luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

verify-synopsis.pl: work with .md files

Browse Source 
Ref: #14037
Closes #14038
This commit is contained in:
Daniel Stenberg 2024-06-27 11:23:13 +02:00
parent fde2143df7
commit 41e0250411
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
.github/scripts/verify-synopsis.pl vendored
View File

@ -46,17 +46,17 @@ sub extract {
open(O, ">$cfile"); open(O, ">$cfile");
while(<F>) { while(<F>) {
$iline++; $iline++;
if(/^.SH SYNOPSIS/) { if(/^# SYNOPSIS/) {
$syn = 1 $syn = 1
} }
elsif($syn == 1) { elsif($syn == 1) {
if(/^.nf/) { if(/^\~\~\~/) {
$syn++; $syn++;
print O "#line $iline \"$f\"\n"; print O "#line $iline \"$f\"\n";
} }
} }
elsif($syn == 2) { elsif($syn == 2) {
if(/^.fi/) { if(/^\~\~\~/) {
last; last;
} }
# turn the vararg argument into vararg # turn the vararg argument into vararg
@ -68,13 +68,17 @@ sub extract {
close(F); close(F);
close(O); close(O);
if($syn < 2) {
print STDERR "Found no synopsis in $f\n";
return 1;
}
return 0; return 0;
} }
my $error; my $error;
for my $m (@files) { for my $m (@files) {
print "Verify $m\n"; $error |= extract($m);
extract($m);
$error |= testcompile($m); $error |= testcompile($m);
} }
exit $error; exit $error;