blob: 9acde06008f68e3f683f6aebed471bcb094080ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
#
# Re-align the columns in insns.dat
#
@cols = (0, 16, 48, 96);
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";
}
|