verify-synopsis.pl: work with .md files

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

View File

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