perl/lib/Nasm/Regs/Register.pm

   1 use strict;
   2 use warnings;
   3
   4 package Nasm::Regs::Register;
   5
   6 sub new{
   7   my($class,@v) = @_;
   8   $v[0] =~ s/^\s+|\s+$//g;
   9
  10   my $self = bless \@v, $class;
  11
  12   return $self;
  13 }
  14
  15 BEGIN{
  16   my $i = -1;
  17   for my $sub_name(qw'RegisterName AssemblerClass',undef,'x86RegisterNumber'){
  18     no strict 'refs';
  19     $i++;
  20     my $i = $i;
  21     next unless $sub_name;
  22     *$sub_name = sub{
  23       my($self) = @_;
  24       return $self->[$i];
  25     }
  26   }
  27 }
  28
  29 sub DisassemberClasses{
  30   my($self) = @_;
  31   my @classes;
  32   if( ref $self->[2] ){
  33     @classes = @{$self->[2]}
  34   }else{
  35     @classes = $self->[2]
  36   }
  37   return  @classes if wantarray;
  38   return \@classes;
  39 }
  40
  41 1;