nroff-scan.pl: verify that references are made with \fI
This commit is contained in:
Родитель
dac8ce9558
Коммит
1135340214
|
@ -64,7 +64,7 @@ sub file {
|
|||
my ($pre, $str, $post)=($1, $2, $3);
|
||||
if($post ne "P") {
|
||||
print STDERR "error: $f:$line: missing \\fP after $str\n";
|
||||
$errrors++;
|
||||
$errors++;
|
||||
}
|
||||
if($str =~ /((libcurl|curl)([^ ]*))\(3\)/i) {
|
||||
my $man = "$1.3";
|
||||
|
@ -72,6 +72,10 @@ sub file {
|
|||
print STDERR "error: $f:$line: refering to non-existing man page $man\n";
|
||||
$errors++;
|
||||
}
|
||||
if($pre ne "I") {
|
||||
print STDERR "error: $f:$line: use \\fI before $str\n";
|
||||
$errors++;
|
||||
}
|
||||
}
|
||||
}
|
||||
if($l =~ /(curl([^ ]*)\(3\))/i) {
|
||||
|
@ -97,4 +101,4 @@ foreach my $f (@f) {
|
|||
file($f);
|
||||
}
|
||||
|
||||
exit $errors?1:0;
|
||||
exit $errors?1:0;
|
||||
|
|
Загрузка…
Ссылка в новой задаче