/[bibulus]/bibulus/LaTeX/bibulustex
ViewVC logotype

Diff of /bibulus/LaTeX/bibulustex

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by twid, Fri Jul 11 10:42:16 2003 UTC revision 1.6 by twid, Fri Jul 11 20:17:12 2003 UTC
# Line 5  use Bibulus::LaTeX; Line 5  use Bibulus::LaTeX;
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);
# Line 15  foreach (@ARGV) { Line 16  foreach (@ARGV) {
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$/) {
# Line 32  foreach (@ARGV) { Line 34  foreach (@ARGV) {
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;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26