summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-01-29 21:17:25 +0000
committerKarl Berry <karl@freefriends.org>2023-01-29 21:17:25 +0000
commite27c2fbf8b5486893205c5491e86086fb24a8e0c (patch)
treeb1bc0bcf7ccf64be17df76425427342d7b181227
parentc1bdc4b926ad66de66b4744899a822510f97ae7f (diff)
bibcop (29jan23)
git-svn-id: svn://tug.org/texlive/trunk@65665 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/bibcop/bibcop.pl11
-rw-r--r--Master/texmf-dist/doc/bibtex/bibcop/bibcop.pdfbin343290 -> 343290 bytes
-rw-r--r--Master/texmf-dist/doc/man/man1/bibcop.12
-rw-r--r--Master/texmf-dist/doc/man/man1/bibcop.man1.pdfbin13274 -> 13388 bytes
-rwxr-xr-xMaster/texmf-dist/scripts/bibcop/bibcop.pl11
-rw-r--r--Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx2
-rw-r--r--Master/texmf-dist/tex/latex/bibcop/bibcop.sty2
7 files changed, 23 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 73535c1de50..fd774d90195 100755
--- a/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
+++ b/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
@@ -435,6 +435,7 @@ sub entries {
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 @@ sub entries {
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 @@ 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.7');
+ info('0.0.8');
} else {
my ($file) = grep { not($_ =~ /^--.*$/) } @ARGV;
if (not $file) {
diff --git a/Master/texmf-dist/doc/bibtex/bibcop/bibcop.pdf b/Master/texmf-dist/doc/bibtex/bibcop/bibcop.pdf
index d1497efae8a..29fb6056bbf 100644
--- a/Master/texmf-dist/doc/bibtex/bibcop/bibcop.pdf
+++ b/Master/texmf-dist/doc/bibtex/bibcop/bibcop.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/man/man1/bibcop.1 b/Master/texmf-dist/doc/man/man1/bibcop.1
index da9b44a0dd8..48f55428edf 100644
--- a/Master/texmf-dist/doc/man/man1/bibcop.1
+++ b/Master/texmf-dist/doc/man/man1/bibcop.1
@@ -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
diff --git a/Master/texmf-dist/doc/man/man1/bibcop.man1.pdf b/Master/texmf-dist/doc/man/man1/bibcop.man1.pdf
index 36a1a6c344f..7dbcfeb2895 100644
--- a/Master/texmf-dist/doc/man/man1/bibcop.man1.pdf
+++ b/Master/texmf-dist/doc/man/man1/bibcop.man1.pdf
Binary files differ
diff --git a/Master/texmf-dist/scripts/bibcop/bibcop.pl b/Master/texmf-dist/scripts/bibcop/bibcop.pl
index 73535c1de50..fd774d90195 100755
--- a/Master/texmf-dist/scripts/bibcop/bibcop.pl
+++ b/Master/texmf-dist/scripts/bibcop/bibcop.pl
@@ -435,6 +435,7 @@ sub entries {
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 @@ sub entries {
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 @@ 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.7');
+ info('0.0.8');
} else {
my ($file) = grep { not($_ =~ /^--.*$/) } @ARGV;
if (not $file) {
diff --git a/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx b/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx
index c2690c58d71..d3b34027c7f 100644
--- a/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx
+++ b/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx
@@ -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}
diff --git a/Master/texmf-dist/tex/latex/bibcop/bibcop.sty b/Master/texmf-dist/tex/latex/bibcop/bibcop.sty
index 20293892b15..41d57b62823 100644
--- a/Master/texmf-dist/tex/latex/bibcop/bibcop.sty
+++ b/Master/texmf-dist/tex/latex/bibcop/bibcop.sty
@@ -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]