mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-04-12 18:40:23 +08:00
Code Issues Packages Projects Releases Wiki Activity

warnings.pl: format the warning class list better

Browse Source 
Better formatting for the warning class list (a little bit less like
trying to be prose.)

Signed-off-by: H. Peter Anvin <hpa@zytor.com>
This commit is contained in:
H. Peter Anvin 2022-11-08 15:26:03 -08:00
parent a5fc643cb9
commit 63049146f6
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
asm/warnings.pl
View File

@ -228,6 +228,9 @@ if ($what eq 'c') {
'off' => 'Disabled',
'err' => 'Enabled and promoted to error' );
my @indexinfo = ();
my @outtxt = ();
foreach my $pfx (sort { $a cmp $b } keys(%prefixes)) {
my $warn = $aliases{$pfx};
my @doc;
@ -236,25 +239,23 @@ if ($what eq 'c') {
my @plist = sort { $a cmp $b } @{$prefixes{$pfx}};
next if ( $#plist < 1 );
@doc = ("is a group alias for all warning classes prefixed by ".
"\\c{".$pfx."-}; currently\n");
for (my $i = 0; $i <= $#plist; $i++) {
if ($i > 0) {
if ($i < $#plist) {
push(@doc, ", ");
} else {
push(@doc, ($i == 1) ? " and " : ", and ");
}
}
push(@doc, '\c{'.$plist[$i].'}');
}
push(@doc, ".\n");
@doc = ("all \\c{$pfx-} warnings\n\n",
"\\> \\c{$pfx} is a group alias for all warning classes\n",
"prefixed by \\c{$pfx-}; currently\n");
# Just commas is bad grammar to be sure, but it is more
# legible than the alternative.
push(@doc, join(scalar(@plist) < 3 ? ' and ' : ',', @plist).".\n");
} elsif ($pfx ne $warn->{name}) {
@doc = ("is a backwards compatibility alias for \\c{",
$warn->{name}, "}.\n");
my $awarn = $aliases{$warn->{name}};
@doc = ($awarn->{help}."\n\n",
"\\> \\c{$pfx} is a backwards compatibility alias for \\c{".
$warn->{name}."}.\n");
} else {
my $docdef = $whatdef{$warn->{def}};
@doc = ($warn->{help}."\n\n",
"\\> \\c{".$warn->{name}."} ");
my $newpara = 0;
foreach my $l (@{$warn->{doc}}) {
if ($l =~ /^\s*$/) {
@ -272,8 +273,11 @@ if ($what eq 'c') {
}
}
print $out "\\b \\i\\c{", $pfx, "} ", @doc, "\n";
push(@indexinfo, "\\IR{w-$pfx} warning class, \\c{$pfx}\n");
push(@outtxt, "\\b \\I{w-$pfx} \\c{$pfx}: ", @doc, "\n");
}
print $out "\n", @indexinfo, "\n", @outtxt;
}
close($out);