blob: 49468404d8b248fd8c242fe830d25a15f8ee773e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#!/usr/bin/env perl
# $Id: nmbibtex.pl,v 1.1 2015-04-26 00:19:37 boris Exp $
#
# Copyright 2015, Michael Cohen <mcohen@u-aizu.ac.jp>
# and Boris Veytsman <borisv@lk.net>
# This work may be distributed and/or modified under the
# conditions of the LaTeX Project Public License, either
# version 1.3 of this license or (at your option) any
# later version.
# The latest version of the license is in
# http://www.latex-project.org/lppl.txt
# and version 1.3 or later is part of all distributions of
# LaTeX version 2003/06/01 or later.
#
# This work has the LPPL maintenance status `maintained'.
#
# The Current Maintainer of this work is Boris Veytsman
=pod
=head1 NAME
nmbibtex - a program to compile bibliographies for the package nmbib
=head1 SYNOPSIS
nmbibtex I<OPTIONS> I<FILE>
=head1 DESCRIPTION
nmbibtex calls L<bibtex(1)> for all aux files produced by the package
nmbib
=head1 OPTIONS
=over 4
=item B<-h>
Print the help information and exit
=item B<-min-crossrefs> I<number>
Send the option C<-min-crossref=NUMBER> to L<bibtex(1)>
=item B<-terse>
Send the option C<-terse> to L<bibtex(1)>
=item B<-v>
Print the copyright information and exit
=back
=head1 AUTHORS AND LICENSE
Copyright 2015, Michael Cohen mcohen@u-aizu.ac.jp
and Boris Veytsman borisv@lk.net
This work may be distributed and/or modified under the
conditions of the LaTeX Project Public License, either
version 1.3 of this license or (at your option) any
later version.
=cut
use strict;
my $USAGE = <<'END';
Usage: nmbibtex [-min-crossref NUMBER] [-terse] FILE
Copyright 2015, Michael Cohen mcohen@u-aizu.ac.jp
and Boris Veytsman borisv@lk.net
This work may be distributed and/or modified under the
conditions of the LaTeX Project Public License, either
version 1.3 of this license or (at your option) any
later version.
END
use Getopt::Long;
my $help=0;
my $terse=0;
my $mincross=-1;
GetOptions("h" => \$help,
'v' => \$help,
'-terse' => \$terse,
"-min-crossrefs=i" => \$mincross) or die $USAGE;
if ($help){
die $USAGE;
}
my $cmdline = "bibtex ";
if ($terse) {
$cmdline .= "-terse ";
}
if ($mincross>0) {
$cmdline .= "-min-crossrefs=$mincross ";
}
my $file = shift;
if (!length($file)) {
die $USAGE;
}
# Just in case strip the suffix
$file =~ s/\.aux$//;
$file =~ s/\.AUX$//;
my @auxfiles = glob("$file-*.aux");
foreach my $auxfile (@auxfiles) {
print `$cmdline $auxfile`;
}
|
