misc/fmtinsns.pl

   1 #!/usr/bin/perl
   2 #
   3 # Re-align the columns in insns.dat
   4 #
   5
   6 @cols = (0, 16, 40, 72);
   7
   8 while ($line = <STDIN>) {
   9     chomp $line;
  10     if ($line !~ /^\s*(\;.*|)$/) {
  11         ($ln = $line) =~ s/\s+$//;
  12         @fields = split(/\s+/, $line);
  13         if (scalar(@fields) == 4) {
  14             $c = 0;
  15             $line = '';
  16             for ($i = 0; $i < scalar(@fields); $i++) {
  17                 if ($i > 0 && $c >= $cols[$i]) {
  18                     $line .= ' ';
  19                     $c++;
  20                 }
  21                 while ($c < $cols[$i]) {
  22                     $line .= "\t";
  23                     $c = ($c+8) & ~7;
  24                 }
  25                 $line .= $fields[$i];
  26                 $c += length($fields[$i]);
  27             }
  28         }
  29     }
  30     print $line, "\n";
  31 }