bibcop (10jan23)

git-svn-id: svn://tug.org/texlive/trunk@65505 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 46 insertions, 5 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
index 3deda06e459..73535c1de50 100755
--- a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
+++ b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
@@ -205,10 +205,17 @@ sub check_typography {
     '-' => 'dash',
     '--' => 'double dash',
     '---' => 'triple dash',
+    '(' => 'opening bracket',
+    ')' => 'closing bracket',
+    '[' => 'opening square bracket',
+    ']' => 'closing square bracket',
   );
   my @spaces_around = ( '---' );
   my @no_spaces_around = ( '--', '-' );
-  my @no_space_before = ( '.', ',', ';', ':', '?', '!' );
+  my @no_space_before = ( '.', ',', ';', ':', '?', '!', ')', ']' );
+  my @no_space_after = ( '(', '[' );
+  my @space_before = ( '(', '[' );
+  my @space_after = ( ')', ']' );
   my @bad_tails = ( '.', ',', ';', ':', '-' );
   foreach my $tag (keys %entry) {
     if ($tag =~ /^:.*/) {
@@ -228,6 +235,22 @@ sub check_typography {
         return "In the '$tag', do not put a space before a $symbols{$s}"
       }
     }
+    foreach my $s (@no_space_after) {
+      if ($value =~ /^.*\Q$s\E\s.*$/) {
+        return "In the '$tag', do not put a space after a $symbols{$s}"
+      }
+    }
+    foreach my $s (@space_before) {
+      if ($value =~ /^.*[^\s]\Q$s\E.*$/) {
+        return "In the '$tag', put a space before a $symbols{$s}"
+      }
+    }
+    foreach my $s (@space_after) {
+      my $p = join('', @no_space_before);
+      if ($value =~ /^.*\Q$s\E[^\s\Q$p\E].*$/) {
+        return "In the '$tag', put a space after a $symbols{$s}"
+      }
+    }
     foreach my $s (@spaces_around) {
       if ($value =~ /^.*[^\s]\Q$s\E.*$/ or $value =~ /^.*\Q$s\E[^\s].*$/) {
         return "In the '$tag', put spaces around a $symbols{$s}"
@@ -241,6 +264,24 @@ sub check_typography {
   }
 }
 
+# Check that no values have non-ASCII symbols.
+sub check_ascii {
+  my (%entry) = @_;
+  foreach my $tag (keys %entry) {
+    if ($tag =~ /^:.*/) {
+      next;
+    }
+    my $value = $entry{$tag};
+    for my $pos (0..length($value)-1) {
+      my $char = substr($value, $pos, 1);
+      my $ord = ord($char);
+      if ($ord < 20 or $ord > 0x7f) {
+        return "In the '$tag', don't use Unicode symbol '0x" . (sprintf '%04x', $ord) . "'"
+      }
+    }
+  }
+}
+
 # Check the year is not mentioned in titles.
 sub check_year_in_titles {
   my (%entry) = @_;
@@ -419,10 +460,10 @@ sub entries {
       $entry{':type'} = substr($acc, 1);
       $acc = '';
       $s = 'body';
-    } elsif ($char =~ /[a-zA-Z]/ and $s eq 'body') {
+    } elsif ($char =~ /[a-zA-Z0-9]/ and $s eq 'body') {
       $acc = '';
       $s = 'tag';
-    } elsif ($char =~ /[a-zA-Z0-9_]/ and $s eq 'tag') {
+    } elsif ($char =~ /[a-zA-Z0-9_\.\-\/]/ and $s eq 'tag') {
       # reading the tag
     } elsif ($char =~ /[a-zA-Z0-9]/ and $s eq 'value') {
       # reading the value without quotes or brackets
@@ -485,7 +526,7 @@ sub entries {
       }
       $escape = 0;
     } else {
-      warning("It is impossible to parse the .bib file, because I do not know what to do with '$char' at line #$lineno (s=$s)");
+      warning("It is impossible to parse the .bib file, because I do not know what to do with '$char' at line no.$lineno (s=$s)");
       last;
     }
     if ($char eq ' ' and not($s =~ /quote|brackets/)) {
@@ -581,7 +622,7 @@ if (@ARGV+0 eq 0 or exists $args{'--help'} or exists $args{'-?'}) {
     "      --latex     Report errors in LaTeX format using \\PackageWarningNoLine command\n\n" .
     "If any issues, report to GitHub: https://github.com/yegor256/bibcop");
 } elsif (exists $args{'--version'} or exists $args{'-v'}) {
-  info('0.0.6');
+  info('0.0.7');
 } else {
   my ($file) = grep { not($_ =~ /^--.*$/) } @ARGV;
   if (not $file) {