perl/lib/Nasm/insns/Flags.pm

   1 =head1 NAME
   2
   3 Nasm::insns::Flags
   4
   5 =cut
   6
   7 package Nasm::insns::Flags;
   8 use strict;
   9 use warnings;
  10 use YAML::XS ':all';
  11
  12 #our @arch = qw{
  13 #  AMD
  14 #  8086 186 286 386 486
  15 #  X64 X86_64 PENT CYRIX P6 IA64
  16 #  PRESCOTT
  17 #  FPU
  18 #  MMX SSE SSE2 3DNOW
  19 #};
  20
  21 our( %map2id, %also_enable, @arch);
  22
  23 # load up variables from the data below __DATA__
  24 {
  25   my @yaml_streams;
  26   {
  27     ## no critic
  28     open( my $data, '<&DATA' ) or die;
  29     ## use critic
  30     seek( $data, 0, 0 );
  31
  32     {
  33       # seek to end of Perl code
  34       local $/ = "\n__DATA__\n";
  35       scalar <$data>;
  36     }
  37     {
  38       # split the embedded YAML code on '...'
  39       local $/ = "\n...\n";
  40       @yaml_streams = <$data>;
  41     }
  42     close $data;
  43   }
  44
  45   #use Data::Dump 'dump';
  46   #use 5.010;
  47   use Scalar::Util qw'reftype';
  48
  49   my $dir = Load $yaml_streams[0];
  50   for my $variable_name ( keys %$dir ){
  51     my $index = $dir->{$variable_name};
  52
  53     $variable_name =~ s/^([%@\$])//;
  54     my $type = $1;
  55
  56     ## no critic
  57     no strict qw'refs';
  58     no warnings qw'once';
  59     ## use critic
  60
  61     # load on demand
  62     my $ref = Load $yaml_streams[$index] or
  63       warn "unable to load YAML item \"$variable_name\"\n";
  64
  65     my $reftype = reftype $ref;
  66     my %type_map = (
  67       HASH   => '%',
  68       ARRAY  => '@',
  69       SCALAR => '$',
  70       REF    => '$'
  71     );
  72
  73     $type ||= $type_map{$reftype};
  74
  75     if( $type eq '%' ){
  76       die unless $reftype eq 'HASH';
  77       %{*$variable_name} = %$ref;
  78     }elsif( $type eq '@' ){
  79       die unless $reftype eq 'ARRAY';
  80       @{*$variable_name} = @$ref;
  81     }elsif( $type eq '$' ){
  82       ${*$variable_name} = $ref;
  83     }
  84   }
  85 }
  86
  87 #use 5.010;
  88 #use Data::Dump 'dump';
  89 #
  90 #say dump $_ for ( \%map2id, \%also_enable, \@arch);
  91 # end of initialization
  92
  93
  94
  95
  96
  97 =head2 new
  98
  99 Creates a new Nasm::insns::Flags object
 100
 101 =cut
 102
 103 sub new{
 104   my( $class, $string ) = @_;
 105
 106   my $self = bless [], $class;
 107
 108   $string =~ s/^ \s+  //gx;
 109   $string =~ s/  \s+ $//gx;
 110
 111   return $self unless $string;
 112   return $self if $string eq 'ignore';
 113
 114   @$self = split ',', $string;
 115
 116   return $self;
 117 }
 118
 119 1;
 120
 121 #
 122 # All YAML streams must be seperated by a single "..." line
 123 #
 124 # The first YAML stream should start immediately after the __DATA__ line
 125 #
 126 # The first YAML stream is the dir stream, it is used to map the global variable
 127 # to the YAML stream
 128 #
 129 __DATA__
 130 ---
 131 # "global variable": "YAML stream number"
 132 # all of the following global variables should have been
 133 # defined with "our %global" at the top of the file
 134 #
 135 # any stream not referenced here will not be loaded
 136 "%map2id":      1
 137 "%also_enable": 3
 138 "@arch":        4
 139 ...
 140 ---
 141 # "external name": "internal id"
 142 PENT:  Pentium
 143 80186: 186
 144 80286: 286
 145 80386: 386
 146 ...
 147 ---
 148 # "internal id": "external name"
 149 # if an internal id is not in this stream
 150 # then use the internal id for external name
 151 Pentium: PENT
 152 ...
 153 ---
 154 # when Pentium is enabled: 486 is also enabled
 155 # which then enables 386, etc
 156 Pentium:
 157 - 486
 158 486:
 159 - 386
 160 386:
 161 - 286
 162 286:
 163 - 186
 164 186:
 165 - 8086
 166 ...
 167 ---
 168 - KATMAI
 169 - PRESCOTT
 170 - NEHALEM
 171 - WILLAMETTE
 172 - WESTMERE
 173 - SANDYBRIDGE
 174 - SSE
 175 - SSE2
 176 - SSE3
 177 - SSE4A
 178 - SSE41
 179 - SSE42
 180 - SSE5
 181 ...