This repository has been archived on 2021-05-26. You can view files and clone it, but cannot push or open issues or pull requests.
OS/pintos-env/pintos/utils/pintos-set-cmdline

43 lines
1.2 KiB
Text
Raw Normal View History

#! /usr/bin/perl -w
use strict;
use Fcntl 'SEEK_SET';
# Read Pintos.pm from the same directory as this program.
BEGIN { my $self = $0; $self =~ s%/+[^/]*$%%; require "$self/Pintos.pm"; }
# Get command-line arguments.
usage (0) if @ARGV == 1 && $ARGV[0] eq '--help';
usage (1) if @ARGV < 2 || $ARGV[1] ne '--';
my ($disk, undef, @kernel_args) = @ARGV;
# Open disk.
my ($handle);
open ($handle, '+<', $disk) or die "$disk: open: $!\n";
# Check that it's a partitioned disk with a Pintos loader.
my ($buffer) = read_fully ($handle, $disk, 512);
unpack ("x510 v", $buffer) == 0xaa55 or die "$disk: not a partitioned disk\n";
$buffer =~ /Pintos/ or die "$disk: does not contain Pintos loader\n";
# Write the command line.
our ($LOADER_SIZE);
sysseek ($handle, $LOADER_SIZE, SEEK_SET) == $LOADER_SIZE
or die "$disk: seek: $!\n";
write_fully ($handle, $disk, make_kernel_command_line (@kernel_args));
# Close disk.
close ($handle) or die "$disk: close: $!\n";
exit 0;
sub usage {
print <<'EOF';
pintos-set-cmdline, a utility for changing the command line in Pintos disks
Usage: pintos-set-cmdline DISK -- [ARGUMENT...]
where DISK is a bootable disk containing a Pintos loader
and each ARGUMENT is inserted into the command line written to DISK.
EOF
exit ($_[0]);
}