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

   1 #! /usr/bin/perl
   2
   3 die "command line includes empty string" if grep (/^$/, @ARGV);
   4 $cmdline = join ("\0", @ARGV) . "\0\0";
   5 die "command line exceeds 128 bytes" if length ($cmdline) > 128;
   6 $cmdline .= "\0" x (128 - length ($cmdline));
   7
   8 open (DISK, "+<os.dsk");
   9 seek (DISK, 0x17e, 0);
  10 syswrite (DISK, $cmdline);
  11 close (DISK);
  12 exec "/home/blp/cs140/qemu/i386-softmmu/qemu "
  13     . "-hda os.dsk "
  14     . "-hdb filesys.bin "
  15     . "-hdc scratch.bin "
  16     . " -nographic"
  17     ;