pintos-os.org Git - pintos-anon/blob - src/bochs/copy_in

   1 #! /usr/bin/perl
   2
   3 if (@ARGV != 2) {
   4     print "usage: copy_in src dst\n";
   5     exit 1;
   6 }
   7 ($src, $dst) = @ARGV;
   8 $size = -s $src;
   9
  10 system "../pad 512 < $src > scratch.bin";
  11 exec "./run_qemu -cp $dst:$size";