mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2024-11-21 03:14:19 +08:00
Code Issues Packages Projects Releases Wiki Activity

fmtinsns.pl: handle compiler fields; do some case mangling

Browse Source 
Handle compiler-generated fields, and at least try to do some case
mangling.
This commit is contained in:
H. Peter Anvin 2008-05-23 16:59:59 -07:00
parent 072771e4a5
commit ea2832c7f3
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
misc/fmtinsns.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
#
# Re-align the columns in insns.dat
# Re-align the columns in insns.dat, and enforce case conventions
#
@cols = (0, 16, 48, 96);
@ -9,21 +9,30 @@ while ($line = <STDIN>) {
chomp $line;
if ($line !~ /^\s*(\;.*|)$/) {
($ln = $line) =~ s/\s+$//;
@fields = split(/\s+/, $line);
if (scalar(@fields) == 4) {
if ($line =~ /^\s*(\S+)\s+(\S+)\s+(\S+|\[.*\])\s+(\S+)\s*$/) {
@fields = ($1, $2, $3, $4);
$fields[0] = "\U$fields[0]" unless ($fields[0] =~ /^[^a-z]+cc$/);
$fields[3] =~ s/\,+$//;
$fields[3] = "\U$fields[3]" unless ($fields[3] eq 'ignore');
$c = 0;
$line = '';
for ($i = 0; $i < scalar(@fields); $i++) {
if ($i > 0 && $c >= $cols[$i]) {
$line .= ' ';
$c++;
}
}
while ($c < $cols[$i]) {
$line .= "\t";
$c = ($c+8) & ~7;
$c = ($c+8) & ~7;
}
$line .= $fields[$i];
$c += length($fields[$i]);
for ($j = 0; $j < length($fields[$i]); $j++) {
if (substr($fields[$i], $j, 1) eq "\t") {
$c = ($c+8) & ~7;
} else {
$c++;
}
}
}
}
}