texlive[65665] trunk: bibcop (29jan23)

[commits+karl at tug.org]

Revision: 65665
          http://tug.org/svn/texlive?view=revision&revision=65665
Author:   karl
Date:     2023-01-29 22:17:25 +0100 (Sun, 29 Jan 2023)
Log Message:
-----------
bibcop (29jan23)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
    trunk/Master/texmf-dist/doc/bibtex/bibcop/bibcop.pdf
    trunk/Master/texmf-dist/doc/man/man1/bibcop.1
    trunk/Master/texmf-dist/doc/man/man1/bibcop.man1.pdf
    trunk/Master/texmf-dist/scripts/bibcop/bibcop.pl
    trunk/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx
    trunk/Master/texmf-dist/tex/latex/bibcop/bibcop.sty

Modified: trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl	2023-01-29 00:48:36 UTC (rev 65664)
+++ trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl	2023-01-29 21:17:25 UTC (rev 65665)
@@ -435,6 +435,7 @@
   my %entry;
   my $acc = '';
   my $tag = '';
+  my $interrupted = ''; # where the comment interrupted the proceeding (state name)
   my $lineno = 0;
   my $nest = 0;
   my $escape = 0;
@@ -442,9 +443,17 @@
     my $char = substr($bib, $pos, 1);
     if ($char eq ' ') {
       # ignore the white space
+    } elsif ($char eq '%' and not($s eq 'quote')) {
+      $interrupted = $s;
+      $s = 'comment';
     } elsif ($char eq "\n") {
       # ignore the EOL
       $lineno = $lineno + 1;
+      if ($s eq 'comment') {
+        $s = $interrupted;
+      }
+    } elsif ($s eq 'comment') {
+      # ignore the comment
     } elsif ($s eq 'top') {
       if ($char eq '@') {
         %entry = ();
@@ -622,7 +631,7 @@
     "      --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.7');
+  info('0.0.8');
 } else {
   my ($file) = grep { not($_ =~ /^--.*$/) } @ARGV;
   if (not $file) {

Modified: trunk/Master/texmf-dist/doc/bibtex/bibcop/bibcop.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/man/man1/bibcop.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/bibcop.1	2023-01-29 00:48:36 UTC (rev 65664)
+++ trunk/Master/texmf-dist/doc/man/man1/bibcop.1	2023-01-29 21:17:25 UTC (rev 65665)
@@ -1,4 +1,4 @@
-.TH bibcop 1 "2023-01-10"
+.TH bibcop 1 "2023-01-29"
 .SH NAME
 bibcop \- Style Checker and Fixer of BibTeX Files (.bib)
 .SH SYNOPSIS

Modified: trunk/Master/texmf-dist/doc/man/man1/bibcop.man1.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/scripts/bibcop/bibcop.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/bibcop/bibcop.pl	2023-01-29 00:48:36 UTC (rev 65664)
+++ trunk/Master/texmf-dist/scripts/bibcop/bibcop.pl	2023-01-29 21:17:25 UTC (rev 65665)
@@ -435,6 +435,7 @@
   my %entry;
   my $acc = '';
   my $tag = '';
+  my $interrupted = ''; # where the comment interrupted the proceeding (state name)
   my $lineno = 0;
   my $nest = 0;
   my $escape = 0;
@@ -442,9 +443,17 @@
     my $char = substr($bib, $pos, 1);
     if ($char eq ' ') {
       # ignore the white space
+    } elsif ($char eq '%' and not($s eq 'quote')) {
+      $interrupted = $s;
+      $s = 'comment';
     } elsif ($char eq "\n") {
       # ignore the EOL
       $lineno = $lineno + 1;
+      if ($s eq 'comment') {
+        $s = $interrupted;
+      }
+    } elsif ($s eq 'comment') {
+      # ignore the comment
     } elsif ($s eq 'top') {
       if ($char eq '@') {
         %entry = ();
@@ -622,7 +631,7 @@
     "      --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.7');
+  info('0.0.8');
 } else {
   my ($file) = grep { not($_ =~ /^--.*$/) } @ARGV;
   if (not $file) {

Modified: trunk/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx
===================================================================
--- trunk/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx	2023-01-29 00:48:36 UTC (rev 65664)
+++ trunk/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx	2023-01-29 21:17:25 UTC (rev 65665)
@@ -50,7 +50,7 @@
 %<package>\NeedsTeXFormat{LaTeX2e}
 %<package>\ProvidesPackage{bibcop}
 %<*package>
-[2023-01-10 0.0.7 Style Checker of Bibliography Files]
+[2023-01-29 0.0.8 Style Checker of Bibliography Files]
 %</package>
 %<*driver>
 \documentclass{ltxdoc}

Modified: trunk/Master/texmf-dist/tex/latex/bibcop/bibcop.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/bibcop/bibcop.sty	2023-01-29 00:48:36 UTC (rev 65664)
+++ trunk/Master/texmf-dist/tex/latex/bibcop/bibcop.sty	2023-01-29 21:17:25 UTC (rev 65665)
@@ -31,7 +31,7 @@
 
 \NeedsTeXFormat{LaTeX2e}
 \ProvidesPackage{bibcop}
-[2023-01-10 0.0.7 Style Checker of Bibliography Files]
+[2023-01-29 0.0.8 Style Checker of Bibliography Files]