texlive[43993] trunk: crossrefware (23apr17)
commits+karl at tug.org
commits+karl at tug.org
Mon Apr 24 00:08:22 CEST 2017
Revision: 43993
http://tug.org/svn/texlive?view=revision&revision=43993
Author: karl
Date: 2017-04-24 00:08:21 +0200 (Mon, 24 Apr 2017)
Log Message:
-----------
crossrefware (23apr17)
Modified Paths:
--------------
trunk/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl
trunk/Master/texmf-dist/doc/man/man1/bbl2bib.1
trunk/Master/texmf-dist/doc/man/man1/bbl2bib.man1.pdf
trunk/Master/texmf-dist/doc/man/man1/bibdoiadd.1
trunk/Master/texmf-dist/doc/man/man1/bibzbladd.1
trunk/Master/texmf-dist/doc/man/man1/ltx2crossrefxml.1
trunk/Master/texmf-dist/doc/support/crossrefware/README
trunk/Master/texmf-dist/doc/support/crossrefware/crossrefware.pdf
trunk/Master/texmf-dist/scripts/crossrefware/bbl2bib.pl
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/support/crossrefware/ltx2crossrefxml.exe
Modified: trunk/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl 2017-04-23 21:57:07 UTC (rev 43992)
+++ trunk/Build/source/texk/texlive/linked_scripts/crossrefware/bbl2bib.pl 2017-04-23 22:08:21 UTC (rev 43993)
@@ -101,7 +101,7 @@
my $USAGE="USAGE: $0 [-o output] file\n";
my $VERSION = <<END;
-bbl2bib v2.1
+bbl2bib v2.1a
This is free software. You may redistribute copies of it under the
terms of the GNU General Public License
http://www.gnu.org/licenses/gpl.html. There is NO WARRANTY, to the
@@ -216,7 +216,7 @@
open $fh, "<", \$bib;
my $parser = new BibTeX::Parser($fh);
my $entry = $parser->next;
- if ($entry->parse_ok()) {
+ if (ref($entry) && $entry->parse_ok()) {
$entry->key($bibitem->{key});
return ($entry);
}
@@ -227,7 +227,7 @@
sub PrintBibitem {
- print "\n";
+ print $output "\n";
my $bibitem = shift;
if (!ref($bibitem->{bib})) {
return;
@@ -253,7 +253,7 @@
$entry->field('arxiv', $bibitem->{arxiv});
}
- print $entry->to_string(), "\n\n";
+ print $output $entry->to_string(), "\n\n";
}
Modified: trunk/Master/texmf-dist/doc/man/man1/bbl2bib.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/bbl2bib.1 2017-04-23 21:57:07 UTC (rev 43992)
+++ trunk/Master/texmf-dist/doc/man/man1/bbl2bib.1 2017-04-23 22:08:21 UTC (rev 43993)
@@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "bbl2bib 1"
-.TH bbl2bib 1 "2017-04-10" "" "CROSSREF LIBRARY"
+.TH bbl2bib 1 "2017-04-23" "" "CROSSREF LIBRARY"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
Modified: trunk/Master/texmf-dist/doc/man/man1/bbl2bib.man1.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/man/man1/bibdoiadd.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/bibdoiadd.1 2017-04-23 21:57:07 UTC (rev 43992)
+++ trunk/Master/texmf-dist/doc/man/man1/bibdoiadd.1 2017-04-23 22:08:21 UTC (rev 43993)
@@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "bibdoiadd 1"
-.TH bibdoiadd 1 "2017-04-12" "" "CROSSREF LIBRARY"
+.TH bibdoiadd 1 "2017-04-09" "" "CROSSREF LIBRARY"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
Modified: trunk/Master/texmf-dist/doc/man/man1/bibzbladd.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/bibzbladd.1 2017-04-23 21:57:07 UTC (rev 43992)
+++ trunk/Master/texmf-dist/doc/man/man1/bibzbladd.1 2017-04-23 22:08:21 UTC (rev 43993)
@@ -133,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "bibzbladd 1"
-.TH bibzbladd 1 "2017-04-12" "" "CROSSREF LIBRARY"
+.TH bibzbladd 1 "2017-04-02" "" "CROSSREF LIBRARY"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
Modified: trunk/Master/texmf-dist/doc/man/man1/ltx2crossrefxml.1
===================================================================
--- trunk/Master/texmf-dist/doc/man/man1/ltx2crossrefxml.1 2017-04-23 21:57:07 UTC (rev 43992)
+++ trunk/Master/texmf-dist/doc/man/man1/ltx2crossrefxml.1 2017-04-23 22:08:21 UTC (rev 43993)
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.28 (Pod::Simple 3.28)
+.\" Automatically generated by Pod::Man 2.22 (Pod::Simple 3.07)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,8 +38,6 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
-. ds C`
-. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
@@ -50,24 +48,17 @@
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.\"
-.\" Avoid warning from groff about undefined register 'F'.
-.de IX
+.ie \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
-.nr rF 0
-.if \n(.g .if rF .nr rF 1
-.if (\n(rF:(\n(.g==0)) \{
-. if \nF \{
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+. nr % 0
+. rr F
+.\}
+.el \{\
+. de IX
..
-. if !\nF==2 \{
-. nr % 0
-. nr F 2
-. \}
-. \}
.\}
-.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -133,7 +124,7 @@
.\" ========================================================================
.\"
.IX Title "ltx2crossrefxml 1"
-.TH ltx2crossrefxml 1 "2017-03-28" "" "CROSSREF LIBRARY"
+.TH ltx2crossrefxml 1 "2016-02-14" "" "CROSSREF LIBRARY"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -185,5 +176,5 @@
.PP
This is free software. You may redistribute copies of it under the
terms of the \s-1GNU\s0 General Public License
-<http://www.gnu.org/licenses/gpl.html>. There is \s-1NO WARRANTY,\s0 to the
+<http://www.gnu.org/licenses/gpl.html>. There is \s-1NO\s0 \s-1WARRANTY\s0, to the
extent permitted by law.
Modified: trunk/Master/texmf-dist/doc/support/crossrefware/README
===================================================================
--- trunk/Master/texmf-dist/doc/support/crossrefware/README 2017-04-23 21:57:07 UTC (rev 43992)
+++ trunk/Master/texmf-dist/doc/support/crossrefware/README 2017-04-23 22:08:21 UTC (rev 43993)
@@ -1,5 +1,5 @@
Crossrefware Bundle
- version 2.1
+ version 2.1a
Scripts useful for working with Crossref, MathSciNet and Zentralblatt MATH.
@@ -26,6 +26,8 @@
Changes:
+ Version 2.1a: Bug in bbl2bib corrected
+
Version 2.1: New options to add empty doi and zbl when doi or zbl
are not found to prevent repeated searches.
Added bibmradd.pl
Modified: trunk/Master/texmf-dist/doc/support/crossrefware/crossrefware.pdf
===================================================================
(Binary files differ)
Deleted: trunk/Master/texmf-dist/doc/support/crossrefware/ltx2crossrefxml.exe
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/scripts/crossrefware/bbl2bib.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/crossrefware/bbl2bib.pl 2017-04-23 21:57:07 UTC (rev 43992)
+++ trunk/Master/texmf-dist/scripts/crossrefware/bbl2bib.pl 2017-04-23 22:08:21 UTC (rev 43993)
@@ -101,7 +101,7 @@
my $USAGE="USAGE: $0 [-o output] file\n";
my $VERSION = <<END;
-bbl2bib v2.1
+bbl2bib v2.1a
This is free software. You may redistribute copies of it under the
terms of the GNU General Public License
http://www.gnu.org/licenses/gpl.html. There is NO WARRANTY, to the
@@ -216,7 +216,7 @@
open $fh, "<", \$bib;
my $parser = new BibTeX::Parser($fh);
my $entry = $parser->next;
- if ($entry->parse_ok()) {
+ if (ref($entry) && $entry->parse_ok()) {
$entry->key($bibitem->{key});
return ($entry);
}
@@ -227,7 +227,7 @@
sub PrintBibitem {
- print "\n";
+ print $output "\n";
my $bibitem = shift;
if (!ref($bibitem->{bib})) {
return;
@@ -253,7 +253,7 @@
$entry->field('arxiv', $bibitem->{arxiv});
}
- print $entry->to_string(), "\n\n";
+ print $output $entry->to_string(), "\n\n";
}
More information about the tex-live-commits
mailing list