perl/lib/Nasm/insns.pm

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