7 my ($pintos) = "pintos";
8 my ($os_disk) = "../../src/userprog/build/os.dsk";
11 GetOptions ("os-disk=s" => \$os_disk,
12 "fs-disk=s" => \$fs_disk,
13 "help" => sub { usage (0) })
14 or die "option parsing failed; use --help for help\n";
16 if (!defined $fs_disk) {
17 die "output disk name expected; use --help for help\n"
19 $fs_disk = shift @ARGV;
23 print STDERR "$os_disk: stat: $!\n";
24 print STDERR "perhaps you should `make' in ../../src/userprog?\n";
31 xsystem ("$pintos make-disk '$fs_disk' 2");
33 put_file (shift (@ARGV));
38 my ($cmd) = "$pintos -v --os-disk='$os_disk' --fs-disk='$fs_disk' put";
39 $cmd .= " -f", $formatted = 1 if !$formatted;
47 system ($cmd) == 0 or die "command failed\n";