Return to catrom.pl CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / ipxe / src / util

Annotation of qemu/roms/ipxe/src/util/catrom.pl, revision 1.1.1.1

1.1       root        1: #!/usr/bin/perl -w
                      2: 
                      3: use warnings;
                      4: use strict;
                      5: 
                      6: use bytes;
                      7: 
                      8: use constant MAX_ROM_LEN => 1024*1024;
                      9: use constant PCI_OFF => 0x18;
                     10: use constant INDICATOR_OFF => 0x15;
                     11: 
                     12: my $total_len = 0;
                     13: my @romfiles = @ARGV
                     14:     or die "Usage: $0 rom-file-1 rom-file-2 ... > multi-rom-file\n";
                     15: 
                     16: while ( my $romfile = shift @romfiles ) {
                     17:   my $last = @romfiles ? 0 : 1;
                     18: 
                     19:   open ROM, "<$romfile" or die "Could not open $romfile: $!\n";
                     20:   my $len = read ( ROM, my $romdata, MAX_ROM_LEN )
                     21:       or die "Could not read $romfile: $!\n";
                     22:   close ROM;
                     23: 
                     24:   die "$romfile is not a ROM file\n"
                     25:       unless substr ( $romdata, 0, 2 ) eq "\x55\xAA";
                     26: 
                     27:   ( my $checklen ) = unpack ( 'C', substr ( $romdata, 2, 1 ) );
                     28:   $checklen *= 512;
                     29:   die "$romfile has incorrect length field $checklen (should be $len)\n"
                     30:       unless $len == $checklen;
                     31: 
                     32:   ( my $pci ) = unpack ( 'v', substr ( $romdata, PCI_OFF, 2 ) );
                     33:   die "Invalid PCI offset field in $romfile\n"
                     34:       if $pci >= $len;
                     35:   die "No PCIR signature in $romfile\n"
                     36:       unless substr ( $romdata, $pci, 4 ) eq "PCIR";
                     37:   
                     38:   ( my $indicator ) =
                     39:       unpack ( 'C', substr ( $romdata, $pci + INDICATOR_OFF, 1 ) );
                     40:   my $msg = sprintf ( "$romfile: indicator was %02x, ", $indicator );
                     41:   $indicator &= ! ( 1 << 7 );
                     42:   $indicator |= ( $last << 7 );
                     43:   $msg .= sprintf ( "now %02x\n", $indicator );
                     44:   substr ( $romdata, $pci + INDICATOR_OFF, 1 ) = pack ( 'C', $indicator );
                     45:   warn $msg;
                     46: 
                     47:   print $romdata;
                     48: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.