perl/lib/Nasm/insns.pm

   1 package Nasm::insns;
   2 use strict;
   3 use warnings;
   4
   5 use base 'Exporter';
   6
   7 require Nasm::insns::Operands;
   8 require Nasm::insns::Flags;
   9
  10 # Opcode prefixes which need their own opcode tables
  11 # LONGER PREFIXES FIRST!
  12 our @disasm_prefixes = qw(0F24 0F25 0F38 0F3A 0F7A 0FA6 0FA7 0F);
  13
  14 # This should match MAX_OPERANDS from nasm.h
  15 our $MAX_OPERANDS = 5;
  16
  17 # Add VEX prefixes
  18 our @vexlist;
  19 for( my $m = 0; $m < 32; $m++ ){
  20   for( my $lp = 0; $lp < 8; $lp++ ){
  21     push(@vexlist, sprintf("VEX%02X%01X", $m, $lp));
  22   }
  23 }
  24 @disasm_prefixes = (@vexlist, @disasm_prefixes);
  25
  26 our @bytecode_count = (0) x 256;
  27
  28 sub new{
  29   my($class,$filename) = @_;
  30
  31   my $self = bless {}, $class;
  32
  33   if($filename){
  34     $self->ProcessFile($filename);
  35   }
  36
  37   return $self;
  38 }
  39
  40 sub ProcessFile{
  41   my( $self, $filename ) = @_;
  42   open( my $file, '<', $filename ) || die "unable to open $filename";
  43
  44   $self->{filename} = $filename;
  45
  46   my $line_number = 0;
  47   while( my $line = <$file> ){
  48     $line_number++;
  49     chomp $line;
  50
  51     # /^\s*(?:;\#)(.*)$/ # special lines
  52     next if $line =~ /^\s*(?:;|$)/ ;   # comments or blank lines
  53
  54     $self->ProcessLine($line,$line_number);
  55   }
  56 }
  57
  58 sub ProcessLine{
  59   my( $self, $line, $line_number ) = @_;
  60
  61   unless( $line =~ m{
  62     ^\s*+
  63     (\S+)\s++
  64     (\S+)\s++
  65     (
  66       \[.*?\] |
  67       \S+
  68     )\s++
  69     (\S++)\s*+
  70     $
  71   }x){
  72     die;
  73   }
  74
  75   my($name,$operands,$code_string,$flags) = ($1,$2,$3,$4);
  76
  77   my $op_obj = Nasm::insns::Operands->new($operands);
  78   my $flag_obj = Nasm::insns::Flags->new($flags);
  79
  80   my $ref = $self->{ops}{$name.':'.$op_obj->string} = {
  81     operands   => $op_obj,
  82     flags      => $flag_obj,
  83     codestring => $code_string
  84   };
  85 }
  86
  87 1;