perl/regs.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 use lib 'lib';
   6
   7 =head
   8
   9 reads a file with columns:
  10
  11 register name, assembler class, disassembler class(es), x86 register number
  12
  13
  14 outputs in formats:
  15
  16 h c fc vc dc dh
  17
  18
  19 regs.pl [output format] [input filename]
  20
  21 =cut
  22
  23 use Nasm::Regs;
  24
  25 my ($format,$filename) = @ARGV;
  26 $filename ||= 'regs.dat';
  27
  28 unless($format){
  29   print help();
  30   exit;
  31 }
  32
  33 my $self = Nasm::Regs->new($filename);
  34
  35 my $str = $self->format($format);
  36 print $str;
  37 print "\n" unless $str =~ /\n\Z/;
  38
  39 sub help{
  40   "$0 [output format] [input filename]\n"
  41 }