perl/lib/Nasm/Regs/Format/DC.pm

   1 use strict;
   2 use warnings;
   3 package Nasm::Regs::Format::DC;
   4
   5 sub format{
   6   my($regs) = @_;
   7   my $filename = $regs->filename;
   8
   9   my $out = <<END;
  10 /* automatically generated from $filename - do not edit */
  11
  12 #include "regdis.h"
  13
  14 END
  15
  16   my @classes = $regs->DisassemblerClasses;
  17
  18   for my $class (@classes){
  19     my @regs = $regs->DisassemblerClass($class);
  20     $out .= sprintf(
  21       "const enum reg_enum nasm_rd_%-8s[%2d] = {",
  22       $class,
  23       scalar @regs
  24     );
  25
  26     my @cc = map {  'R_'.uc($_->RegisterName) } @regs;
  27
  28     $out .= join ',', @cc;
  29     $out .= "};\n";
  30   }
  31
  32
  33   return $out;
  34 }
  35
  36 1;
  37 __END__
  38
  39 # Output regdis.c
  40 print "/* automatically generated from $file - do not edit */\n\n";
  41 print "#include \"regdis.h\"\n\n";
  42 foreach $class ( sort(keys(%disclass)) ) {
  43   printf "const enum reg_enum nasm_rd_%-8s[%2d] = {",
  44   $class, scalar @{$disclass{$class}};
  45   @foo = @{$disclass{$class}};
  46   @bar = ();
  47   for ( $i = 0 ; $i < scalar(@foo) ; $i++ ) {
  48     if (defined($foo[$i])) {
  49       push(@bar, "R_\U$foo[$i]\E");
  50     } else {
  51       die "$0: No register name for class $class, value $i\n";
  52     }
  53   }
  54   print join(',', @bar), "};\n";
  55 }