makesym.perl

   1 #!/usr/bin/perl
   2 #
   3 # $Id$
   4 #
   5 # Read output file from as86 (e.g. rombios.txt) and write out a symbol
   6 # table suitable for the Bochs debugger.
   7 #
   8
   9 $WHERE_BEFORE_SYM_TABLE = 0;
  10 $WHERE_IN_SYM_TABLE = 1;
  11 $WHERE_AFTER_SYM_TABLE = 2;
  12
  13 $where = $WHERE_BEFORE_SYM_TABLE;
  14 while (<STDIN>) {
  15   chop;
  16   if ($where == WHERE_BEFORE_SYM_TABLE && /^Symbols:/) {
  17     $where = $WHERE_IN_SYM_TABLE;
  18   } elsif ($where == $WHERE_IN_SYM_TABLE && /^$/) {
  19     $where = $WHERE_AFTER_SYM_TABLE;
  20   }
  21   if ($where == $WHERE_IN_SYM_TABLE) {
  22     @F = split (/\s+/);
  23     ($name[0], $junk, $addr[0], $junk, $name[1], $junk, $addr[1]) = @F;
  24     foreach $col (0,1) {
  25       next if length $addr[$col] < 1;
  26       $addr[$col] =~ tr/A-Z/a-z/;
  27       $addr[$col] = "000f" . $addr[$col];
  28       print "$addr[$col] $name[$col]\n";
  29     }
  30   }
  31 }