test/geekos_test_vm/scripts/mkcdisk

   1 #! /usr/bin/perl
   2
   3 # Build a binary image containing a pseudo fat filesystem with the listed files
   4
   5 # $Revision: 1.1 $
   6 use FileHandle;
   7
   8 if ( scalar(@ARGV) < 2 ) {
   9     print STDERR "usage: mkuprog <diskImage> <filenames>\n";
  10     exit 1;
  11 }
  12
  13
  14 $filename = shift @ARGV;
  15 $filecount = scalar ( @ARGV );
  16
  17 $fh = new FileHandle(">$filename");
  18
  19 write
  20
  21 while (scalar(@ARGV)) {
  22     $filename = shift @ARGV;
  23
  24     print  "got file ", $filename, "\n";
  25 }