texlive[72840] trunk: bibcop (13nov24)
commits+karl at tug.org
commits+karl at tug.org
Wed Nov 13 22:11:12 CET 2024
Revision: 72840
https://tug.org/svn/texlive?view=revision&revision=72840
Author: karl
Date: 2024-11-13 22:11:11 +0100 (Wed, 13 Nov 2024)
Log Message:
-----------
bibcop (13nov24)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
trunk/Build/source/texk/texlive/linked_scripts/texlive/extractbb.lua
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
trunk/Master/tlpkg/libexec/ctan2tds
Modified: trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl 2024-11-13 17:17:35 UTC (rev 72839)
+++ trunk/Build/source/texk/texlive/linked_scripts/bibcop/bibcop.pl 2024-11-13 21:11:11 UTC (rev 72840)
@@ -21,7 +21,7 @@
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
-# 2024-05-03 0.0.21
+# 2024/11/13 0.0.23
package bibcop;
use warnings;
@@ -112,7 +112,7 @@
return "The minor word '$word' in the '$tag' must be upper-cased since it is the first one"
}
my $before = $words[$pos - 2];
- if (grep(/^$before$/, @ends)) {
+ if (grep(/^\Q$before\E$/, @ends)) {
return "The minor word '$word' in the '$tag' must be upper-cased, because it follows the '$before'"
}
next;
@@ -122,7 +122,7 @@
next;
}
my $before = $words[$pos - 2];
- if (grep(/^$before$/, @ends)) {
+ if (grep(/^\Q$before\E$/, @ends)) {
next;
}
return "All minor words in the '$tag' must be lower-cased, while @{[as_position($pos)]} word '$word' is not"
@@ -1065,14 +1065,14 @@
}
if (@ARGV+0 eq 0 or exists $args{'--help'} or exists $args{'-?'}) {
- info("Bibcop is a Style Checker of BibTeX Files\n\n" .
+ info("Bibcop is a style checker of BibTeX files (.bib)\n\n" .
"Usage:\n" .
" bibcop [<options>] <.bib file path>\n\n" .
"Options:\n" .
- " -v, --version Print the current version of the tool and exit\n" .
+ " -v, --version Print the current version of Bibcop and exit\n" .
" -?, --help Print this help screen\n" .
" --fix Fix the errors and print a new version of the .bib file to the console\n" .
- " -i, --in-place When used together with --fix, modifies the file in place, doesn't print it to the console\n" .
+ " -i, --in-place When used together with the --fix, modifies the file in place, doesn't print it to the console\n" .
" --verbose Print supplementary debugging information\n" .
" --no:XXX Disable one of the following checks (e.g. --no:wraps):\n" .
" tags Only some tags are allowed, while some of them are mandatory\n" .
@@ -1081,10 +1081,10 @@
" doi The presence of the 'doi' tag is mandatory in all entries\n" .
" inproc The booktitle of \@inproceedings must start with 'Proceedings of the'\n" .
" org The booktitle may not mention ACM or IEEE\n" .
- " --latex Report errors in LaTeX format using \\PackageWarningNoLine command\n\n" .
- "If any issues, report to GitHub: https://github.com/yegor256/bibcop");
+ " --latex Report errors in LaTeX format using the \\PackageWarningNoLine command\n\n" .
+ "If any issues, please, report to GitHub: https://github.com/yegor256/bibcop");
} elsif (exists $args{'--version'} or exists $args{'-v'}) {
- info('0.0.21 2024-05-03');
+ info('0.0.23 2024/11/13');
} else {
my ($file) = grep { not($_ =~ /^-.*$/) } @ARGV;
if (not $file) {
Modified: trunk/Build/source/texk/texlive/linked_scripts/texlive/extractbb.lua
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/texlive/extractbb.lua 2024-11-13 17:17:35 UTC (rev 72839)
+++ trunk/Build/source/texk/texlive/linked_scripts/texlive/extractbb.lua 2024-11-13 21:11:11 UTC (rev 72840)
@@ -1,5 +1,5 @@
#!/usr/bin/env texlua
--- $Id: extractbb.lua 71832 2024-07-18 09:36:59Z mseven $
+-- $Id: extractbb.lua 72829 2024-11-12 02:41:50Z kakuto $
-- SPDX-License-Identifier: CC0-1.0
-- SPDX-FileCopyrightText: 2024 Max Chernoff
--
@@ -225,11 +225,14 @@
for i = 1, #script_args do
-- We use a numeric iterator here to avoid ``arg[-1]'' and ``arg[0]''.
local this_arg = script_args[i]
+ if os.type == 'windows' then
+ this_arg = '"'..this_arg..'"'
+ end
insert(target_args, this_arg)
-- Show version information
if this_arg:match("%-version") then
- print("(Wrapped by extractbb.lua $Revision: 71832 $.)")
+ print("(Wrapped by extractbb.lua $Revision: 72829 $.)")
end
end
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 2024-11-13 17:17:35 UTC (rev 72839)
+++ trunk/Master/texmf-dist/doc/man/man1/bibcop.1 2024-11-13 21:11:11 UTC (rev 72840)
@@ -1,4 +1,4 @@
-.TH bibcop 1 "2024-05-03"
+.TH bibcop 1 "2024/11/13"
.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 2024-11-13 17:17:35 UTC (rev 72839)
+++ trunk/Master/texmf-dist/scripts/bibcop/bibcop.pl 2024-11-13 21:11:11 UTC (rev 72840)
@@ -21,7 +21,7 @@
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.
-# 2024-05-03 0.0.21
+# 2024/11/13 0.0.23
package bibcop;
use warnings;
@@ -112,7 +112,7 @@
return "The minor word '$word' in the '$tag' must be upper-cased since it is the first one"
}
my $before = $words[$pos - 2];
- if (grep(/^$before$/, @ends)) {
+ if (grep(/^\Q$before\E$/, @ends)) {
return "The minor word '$word' in the '$tag' must be upper-cased, because it follows the '$before'"
}
next;
@@ -122,7 +122,7 @@
next;
}
my $before = $words[$pos - 2];
- if (grep(/^$before$/, @ends)) {
+ if (grep(/^\Q$before\E$/, @ends)) {
next;
}
return "All minor words in the '$tag' must be lower-cased, while @{[as_position($pos)]} word '$word' is not"
@@ -1065,14 +1065,14 @@
}
if (@ARGV+0 eq 0 or exists $args{'--help'} or exists $args{'-?'}) {
- info("Bibcop is a Style Checker of BibTeX Files\n\n" .
+ info("Bibcop is a style checker of BibTeX files (.bib)\n\n" .
"Usage:\n" .
" bibcop [<options>] <.bib file path>\n\n" .
"Options:\n" .
- " -v, --version Print the current version of the tool and exit\n" .
+ " -v, --version Print the current version of Bibcop and exit\n" .
" -?, --help Print this help screen\n" .
" --fix Fix the errors and print a new version of the .bib file to the console\n" .
- " -i, --in-place When used together with --fix, modifies the file in place, doesn't print it to the console\n" .
+ " -i, --in-place When used together with the --fix, modifies the file in place, doesn't print it to the console\n" .
" --verbose Print supplementary debugging information\n" .
" --no:XXX Disable one of the following checks (e.g. --no:wraps):\n" .
" tags Only some tags are allowed, while some of them are mandatory\n" .
@@ -1081,10 +1081,10 @@
" doi The presence of the 'doi' tag is mandatory in all entries\n" .
" inproc The booktitle of \@inproceedings must start with 'Proceedings of the'\n" .
" org The booktitle may not mention ACM or IEEE\n" .
- " --latex Report errors in LaTeX format using \\PackageWarningNoLine command\n\n" .
- "If any issues, report to GitHub: https://github.com/yegor256/bibcop");
+ " --latex Report errors in LaTeX format using the \\PackageWarningNoLine command\n\n" .
+ "If any issues, please, report to GitHub: https://github.com/yegor256/bibcop");
} elsif (exists $args{'--version'} or exists $args{'-v'}) {
- info('0.0.21 2024-05-03');
+ info('0.0.23 2024/11/13');
} 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 2024-11-13 17:17:35 UTC (rev 72839)
+++ trunk/Master/texmf-dist/source/bibtex/bibcop/bibcop.dtx 2024-11-13 21:11:11 UTC (rev 72840)
@@ -50,7 +50,7 @@
%<package>\NeedsTeXFormat{LaTeX2e}
%<package>\ProvidesPackage{bibcop}
%<*package>
-[2024-05-03 0.0.21 Style Checker of Bibliography Files]
+[2024/11/13 0.0.23 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 2024-11-13 17:17:35 UTC (rev 72839)
+++ trunk/Master/texmf-dist/tex/latex/bibcop/bibcop.sty 2024-11-13 21:11:11 UTC (rev 72840)
@@ -31,7 +31,7 @@
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{bibcop}
-[2024-05-03 0.0.21 Style Checker of Bibliography Files]
+[2024/11/13 0.0.23 Style Checker of Bibliography Files]
Modified: trunk/Master/tlpkg/libexec/ctan2tds
===================================================================
--- trunk/Master/tlpkg/libexec/ctan2tds 2024-11-13 17:17:35 UTC (rev 72839)
+++ trunk/Master/tlpkg/libexec/ctan2tds 2024-11-13 21:11:11 UTC (rev 72840)
@@ -4238,11 +4238,7 @@
my ($ctan_dir) = @_;
my $guess = "";
- if ($ctan_dir =~ m!/(CTAN|tex-archive)/biblio/bibtex/utils!) {
- $standarddocfmt = $standardsourcefmt = "support";
- $guess = "$standarddocfmt for docfmt/srcfmt";
-
- } elsif ($ctan_dir =~ m!/(CTAN|tex-archive)/biblio/bib!) {
+ if ($ctan_dir =~ m!/(CTAN|tex-archive)/biblio/bib!) {
$standarddocfmt = $standardsourcefmt = "bibtex";
$guess = "$standarddocfmt for docfmt/srcfmt";
More information about the tex-live-commits
mailing list.