5 |
|
|
6 |
my $filename; |
my $filename; |
7 |
my $DEBUG = 0; |
my $DEBUG = 0; |
8 |
|
my $terse = 0; |
9 |
|
|
10 |
my $bib = new Bibulus::LaTeX; |
my $bib = new Bibulus::LaTeX; |
11 |
$bib->inlinecrossref(2); |
$bib->inlinecrossref(2); |
16 |
$bib->inlinecrossref($1); |
$bib->inlinecrossref($1); |
17 |
} elsif (/^--?terse$/) { |
} elsif (/^--?terse$/) { |
18 |
$bib->verbose(0); |
$bib->verbose(0); |
19 |
|
$terse = 1; |
20 |
} elsif (/^--?help$/) { |
} elsif (/^--?help$/) { |
21 |
usage(); |
usage(); |
22 |
} elsif (/^--?debug$/) { |
} elsif (/^--?debug$/) { |
34 |
|
|
35 |
$filename or die "bibulustex: Need exactly one file argument.\nTry `bibuluxtex --help' for more information.\n"; |
$filename or die "bibulustex: Need exactly one file argument.\nTry `bibuluxtex --help' for more information.\n"; |
36 |
|
|
37 |
|
print "This is Bibulus\n" unless $terse; |
38 |
$bib->procaux($filename); |
$bib->procaux($filename); |
39 |
open (BBL, ">$filename.bbl") or die "Could not write $filename.bbl.\n"; |
open (BBL, ">$filename.bbl") or die "Could not write $filename.bbl.\n"; |
40 |
print BBL $bib->getbib; |
print BBL $bib->getbib; |