3 # insns.pl produce insnsa.c, insnsd.c, insnsi.h, insnsn.c from insns.dat
5 # The Netwide Assembler is copyright (C) 1996 Simon Tatham and
6 # Julian Hall. All rights reserved. The software is
7 # redistributable under the licence given in the file "Licence"
8 # distributed in the NASM archive.
10 print STDERR
"Reading insns.dat...\n";
14 foreach $arg ( @ARGV ) {
15 if ( $arg =~ /^\-/ ) {
16 if ( $arg =~ /^\-([adin])$/ ) {
19 die "$0: Unknown option: ${arg}\n";
26 $fname = "insns.dat" unless $fname = $args[0];
27 open (F
, $fname) || die "unable to open $fname";
33 next if /^\s*;/; # comments
36 next if $#_ == -1; # blank lines
37 (warn "line $line does not contain four fields\n"), next if $#_ != 3;
38 ($formatted, $nd) = &format
(@_);
42 push @
$aname, $formatted;
44 if ( $_[0] =~ /cc$/ ) {
45 # Conditional instruction
46 $k_opcodes_cc{$_[0]}++;
48 # Unconditional instruction
51 if ($formatted && !$nd) {
52 push @big, $formatted;
53 foreach $i (&startbyte
($_[2])) {
54 $aname = sprintf "dd_%02X",$i;
62 @opcodes = sort keys(%k_opcodes);
63 @opcodes_cc = sort keys(%k_opcodes_cc);
65 if ( !defined($output) || $output eq 'a' ) {
66 print STDERR
"Writing insnsa.c...\n";
70 print A
"/* This file auto-generated from insns.dat by insns.pl" .
71 " - don't edit it */\n\n";
72 print A
"#include \"nasm.h\"\n";
73 print A
"#include \"insns.h\"\n";
76 foreach $i (@opcodes, @opcodes_cc) {
77 print A
"static const struct itemplate instrux_${i}[] = {\n";
79 foreach $j (@
$aname) {
82 print A
" ITEMPLATE_END\n};\n\n";
84 print A
"const struct itemplate * const nasm_instructions[] = {\n";
85 foreach $i (@opcodes, @opcodes_cc) {
86 print A
" instrux_${i},\n";
93 if ( !defined($output) || $output eq 'd' ) {
94 print STDERR
"Writing insnsd.c...\n";
98 print D
"/* This file auto-generated from insns.dat by insns.pl" .
99 " - don't edit it */\n\n";
100 print D
"#include \"nasm.h\"\n";
101 print D
"#include \"insns.h\"\n";
104 print D
"static const struct itemplate instrux[] = {\n";
108 print D
" ITEMPLATE_END\n};\n\n";
110 for ($c=0; $c<256; $c++) {
111 $h = sprintf "%02X", $c;
112 print D
"static const struct itemplate * const itable_${h}[] = {\n";
114 foreach $j (@
$aname) {
115 print D
" instrux + $j,\n";
117 print D
" NULL\n};\n\n";
120 print D
"const struct itemplate * const * const itable[] = {\n";
121 for ($c=0; $c<256; $c++) {
122 printf D
" itable_%02X,\n", $c;
129 if ( !defined($output) || $output eq 'i' ) {
130 print STDERR
"Writing insnsi.h...\n";
134 print I
"/* This file is auto-generated from insns.dat by insns.pl" .
135 " - don't edit it */\n\n";
136 print I
"/* This file in included by nasm.h */\n\n";
138 print I
"/* Instruction names */\n\n";
139 print I
"#ifndef NASM_INSNSI_H\n";
140 print I
"#define NASM_INSNSI_H 1\n\n";
141 print I
"enum opcode {\n";
143 foreach $i (@opcodes, @opcodes_cc) {
144 print I
"\tI_${i},\n";
146 $len++ if ( $i =~ /cc$/ ); # Condition codes can be 3 characters long
147 $maxlen = $len if ( $len > $maxlen );
149 print I
"\tI_none = -1\n";
151 print I
"#define MAX_INSLEN ", $maxlen, "\n\n";
152 print I
"#endif /* NASM_INSNSI_H */\n";
157 if ( !defined($output) || $output eq 'n' ) {
158 print STDERR
"Writing insnsn.c...\n";
162 print N
"/* This file is auto-generated from insns.dat by insns.pl" .
163 " - don't edit it */\n\n";
164 print N
"/* This file in included by names.c */\n\n";
166 print N
"static const char * const insn_names[] = {";
168 foreach $i (@opcodes) {
169 print N
"," if ( !$first );
172 $ilower =~ tr/A-Z/a-z/; # Change to lower case (Perl 4 compatible)
173 print N
"\n\t\"${ilower}\"";
176 print N
"/* Conditional instructions */\n";
177 print N
"static const char *icn[] = {";
179 foreach $i (@opcodes_cc) {
180 print N
"," if ( !$first );
183 $ilower =~ s/cc$//; # Skip cc suffix
184 $ilower =~ tr/A-Z/a-z/; # Change to lower case (Perl 4 compatible)
185 print N
"\n\t\"${ilower}\"";
189 print N
"/* and the corresponding opcodes */\n";
190 print N
"static const enum opcode ico[] = {";
192 foreach $i (@opcodes_cc) {
193 print N
"," if ( !$first );
203 printf STDERR
"Done: %d instructions\n", $insns;
206 local ($opcode, $operands, $codes, $flags) = @_;
209 return (undef, undef) if $operands eq "ignore";
211 # format the operands
212 $operands =~ s/:/|colon,/g;
213 $operands =~ s/mem(\d+)/mem|bits$1/g;
214 $operands =~ s/mem/memory/g;
215 $operands =~ s/memory_offs/mem_offs/g;
216 $operands =~ s/imm(\d+)/imm|bits$1/g;
217 $operands =~ s/imm/immediate/g;
218 $operands =~ s/rm(\d+)/rm_gpr|bits$1/g;
219 $operands =~ s/mmxrm/rm_mmx/g;
220 $operands =~ s/xmmrm/rm_xmm/g;
222 $operands = '0,0,0', $num = 0 if $operands eq 'void';
223 $operands .= ',0', $num-- while $operands !~ /,.*,/;
224 $operands =~ tr/a-z/A-Z/;
227 $flags =~ s/,/|IF_/g;
228 $flags =~ s/(\|IF_ND|IF_ND\|)//, $nd = 1 if $flags =~ /IF_ND/;
229 $flags = "IF_" . $flags;
231 ("{I_$opcode, $num, {$operands}, \"$codes\", $flags},", $nd);
234 # Here we determine the range of possible starting bytes for a given
235 # instruction. We need only consider the codes:
236 # \1 \2 \3 mean literal bytes, of course
237 # \4 \5 \6 \7 mean PUSH/POP of segment registers: special case
238 # \10 \11 \12 mean byte plus register value
239 # \17 means byte zero
240 # \330 means byte plus condition code
241 # \0 or \340 mean give up and return empty set
247 die "couldn't get code in '$codes'" if $codes !~ /^(\\[^\\]+)(\\.*)?$/;
248 $word = $1, $codes = $2;
249 return (hex $1) if $word =~ /^\\[123]$/ && $codes =~ /^\\x(..)/;
250 return (0x07, 0x17, 0x1F) if $word eq "\\4";
251 return (0xA1, 0xA9) if $word eq "\\5";
252 return (0x06, 0x0E, 0x16, 0x1E) if $word eq "\\6";
253 return (0xA0, 0xA8) if $word eq "\\7";
254 $start=hex $1, $r=8, last if $word =~ /^\\1[012]$/ && $codes =~/^\\x(..)/;
255 return (0) if $word eq "\\17";
256 $start=hex $1, $r=16, last if $word =~ /^\\330$/ && $codes =~ /^\\x(..)/;
257 return () if $word eq "\\0" || $word eq "\\340";
260 push @range, $start++ while ($r-- > 0);