X-Git-Url: http://v3vee.org/palacios/gitweb/gitweb.cgi?p=palacios.git;a=blobdiff_plain;f=misc%2Ftest_vm%2Fscripts%2Fmkuprog;fp=misc%2Ftest_vm%2Fscripts%2Fmkuprog;h=0000000000000000000000000000000000000000;hp=1581b4b29e0959b4e725c34086ce8e94bebfb081;hb=a70930549d1b741704dd7af4e6bb0e89f6f8a519;hpb=afb634a80f946634454a5d067a92aa600227bd93

diff --git a/misc/test_vm/scripts/mkuprog b/misc/test_vm/scripts/mkuprog
deleted file mode 100755
index 1581b4b..0000000
--- a/misc/test_vm/scripts/mkuprog
+++ /dev/null
@@ -1,55 +0,0 @@
-#! /usr/bin/perl
-
-# From a binary image containing a user program, generate
-# C code initializing a User_Program struct.
-
-# $Revision: 1.1 $
-
-use strict qw(refs vars);
-use FileHandle;
-
-if ( scalar(@ARGV) != 3 ) {
-    print STDERR "usage: mkuprog <filename> <progname> <entry addr>\n";
-    exit 1;
-}
-
-my $filename = shift @ARGV;
-my $progname = shift @ARGV;
-my $entryAddr = shift @ARGV;
-
-my $fh = new FileHandle("<$filename");
-(defined $fh) || die "Couldn't open $filename: $!\n";
-binmode $fh;
-
-my $dataArrayName = $progname . "Data";
-my $structName = $progname . "Prog";
-print "const unsigned char $dataArrayName"."[] = {\n";
-
-my $LINEWIDTH = 10;
-
-my $buf = chr(0) x $LINEWIDTH;
-my $n;
-my $size = 0;
-while ( ($n = read( $fh, $buf, $LINEWIDTH )) > 0 ) {
-    $size += $n;
-    my $i;
-    print "    ";
-    for ( $i = 0; $i < $n; $i++ ) {
-	my $c = ord( substr($buf, $i, 1) );
-	printf( "0x%x,", $c );
-    }
-    print "\n";
-}
-
-print "};\n";
-
-$fh->close();
-
-print << "END";
-const struct User_Program $structName = {
-    "$progname",
-    $size,
-    $entryAddr,
-    $dataArrayName
-};
-END