romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-05-30 13:57:28 +03:00
Code Issues Projects Releases Packages Wiki Activity

markdown-uppercase: ignore quoted sections

Browse source 
Sections within the markdown ~~~ or ``` are now ignored.

Closes #9733
This commit is contained in:
Daniel Stenberg 2022-10-14 08:55:37 +02:00
parent a0d776f332
commit 05f477ad4b
No known key found for this signature in database
GPG key ID: 5CC908FDB71E12C2
1 changed files with 35 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

61
tests/markdown-uppercase.pl
View file

@ -41,37 +41,46 @@ sub checkfile {
open(F, "<$f");
my $l = 1;
my $prevl;
my $ignore = 0;
while(<F>) {
my $line = $_;
chomp $line;
if(($prevl =~ /\.\z/) && ($line =~ /^( *)([a-z]+)/)) {
my ($prefix, $word) = ($1, $2);
if(!$accepted{$word}) {
my $c = length($prefix);
print STDERR "$f:$l:$c:error: lowercase $word after period\n";
print STDERR "$line\n";
print STDERR ' ' x $c;
print STDERR "^\n";
$errors++;
}
if($line =~ /^(\`\`\`|\~\~\~)/) {
# start or stop ignore-mode
$ignore ^= 1;
}
if($line =~ /^(.*)\. +([a-z]+)/) {
my ($prefix, $word) = ($1, $2);
if(($prefix =~ /\.\.\z/) ||
($prefix =~ /[0-9]\z/) ||
($prefix =~ /e.g\z/) ||
($prefix =~ /i.e\z/) ||
($prefix =~ /etc\z/) ||
$accepted{$word}) {
if(!$ignore) {
if(($prevl =~ /\.\z/) && ($line =~ /^( *)([a-z]+)/)) {
my ($prefix, $word) = ($1, $2);
if(!$accepted{$word}) {
my $c = length($prefix);
print STDERR
"$f:$l:$c:error: lowercase $word after period\n";
print STDERR "$line\n";
print STDERR ' ' x $c;
print STDERR "^\n";
$errors++;
}
}
else {
my $c = length($prefix) + 2;
print STDERR "$f:$l:$c:error: lowercase $word after period\n";
print STDERR "$line\n";
print STDERR ' ' x $c;
print STDERR "^\n";
$errors++;
elsif($line =~ /^(.*)\. +([a-z]+)/) {
my ($prefix, $word) = ($1, $2);
if(($prefix =~ /\.\.\z/) ||
($prefix =~ /[0-9]\z/) ||
($prefix =~ /e.g\z/) ||
($prefix =~ /i.e\z/) ||
($prefix =~ /etc\z/) ||
$accepted{$word}) {
}
else {
my $c = length($prefix) + 2;
print STDERR
"$f:$l:$c:error: lowercase $word after period\n";
print STDERR "$line\n";
print STDERR ' ' x $c;
print STDERR "^\n";
$errors++;
}
}
}
$prevl = $line;