mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2024-12-09 06:30:06 +08:00
Code Issues Packages Projects Releases Wiki Activity

nroff-scan.pl: detect double highlights

Browse Source
This commit is contained in:
Daniel Stenberg 2022-11-14 08:38:34 +01:00
parent 4154165e5e
commit 7fcfe0e009
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/nroff-scan.pl
View File

@ -64,6 +64,10 @@ sub file {
my $l = $_; my $l = $_;
while($l =~ s/\\f(.)([^ ]*)\\f(.)//) { while($l =~ s/\\f(.)([^ ]*)\\f(.)//) {
my ($pre, $str, $post)=($1, $2, $3); my ($pre, $str, $post)=($1, $2, $3);
if($str =~ /^\\f[ib]/i) {
print "error: $f:$line: double-highlight\n";
$errors++;
}
if($post ne "P") { if($post ne "P") {
print "error: $f:$line: missing \\fP after $str\n"; print "error: $f:$line: missing \\fP after $str\n";
$errors++; $errors++;