mirror of
https://github.com/netwide-assembler/nasm.git
synced 2024-11-27 08:10:07 +08:00
Reformat insns.dat to uniform column width
Add a script to reformat insns.dat to uniform width, and use it.
This commit is contained in:
parent
20dec371dc
commit
438ed48c49
33
misc/fmtinsns.pl
Executable file
33
misc/fmtinsns.pl
Executable file
@ -0,0 +1,33 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
#
|
||||||
|
# Re-align the columns in insns.dat
|
||||||
|
#
|
||||||
|
|
||||||
|
@cols = (0, 16, 40, 72);
|
||||||
|
|
||||||
|
while ($line = <STDIN>) {
|
||||||
|
chomp $line;
|
||||||
|
if ($line !~ /^\s*(\;.*|)$/) {
|
||||||
|
($ln = $line) =~ s/\s+$//;
|
||||||
|
@fields = split(/\s+/, $line);
|
||||||
|
if (scalar(@fields) == 4) {
|
||||||
|
$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;
|
||||||
|
}
|
||||||
|
$line .= $fields[$i];
|
||||||
|
$c += length($fields[$i]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print $line, "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user