diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2012-07-16 07:27:23 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2012-07-16 07:27:23 +0000 |
commit | 2f6e1cc9e4c3f899a4142cbdf44e6fc10af0d32b (patch) | |
tree | 6ca7032c7cce84a2826dc9105b9aaf479800b561 /Build/source/texk/web2c/bibtex.ch | |
parent | 41e050122555719daad3bc3da47e3d559e39c42f (diff) |
texk/*: Pass known program names as arg2 to kpse_set_program_name()
git-svn-id: svn://tug.org/texlive/trunk@27073 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/bibtex.ch')
-rw-r--r-- | Build/source/texk/web2c/bibtex.ch | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/bibtex.ch b/Build/source/texk/web2c/bibtex.ch index ce7faf597f6..5653ca9f805 100644 --- a/Build/source/texk/web2c/bibtex.ch +++ b/Build/source/texk/web2c/bibtex.ch @@ -22,6 +22,13 @@ \let\maybe = \iffalse % process only changed sections @z +@x [1] Define my_name +@d banner=='This is BibTeX, Version 0.99d' {printed when the program starts} +@y +@d my_name=='bibtex' +@d banner=='This is BibTeX, Version 0.99d' {printed when the program starts} +@z + % [2] `term_in' and `term_out' are standard input and output. But % there is a complication: BibTeX passes `term_out' to some routines as % a var parameter. web2c turns a var parameter f into &f at the calling @@ -1518,7 +1525,7 @@ begin {End of arguments; we exit the loop below.} ; end else if getopt_return_val = "?" then begin - usage ('bibtex'); + usage (my_name); end else if argument_is ('min-crossrefs') then begin min_crossrefs := atoi (optarg); @@ -1535,8 +1542,8 @@ begin {Now |optind| is the index of first non-option on the command line. We must have one remaining argument.} if (optind + 1 <> argc) then begin - write_ln (stderr, 'bibtex: Need exactly one file argument.'); - usage ('bibtex'); + write_ln (stderr, my_name, ': Need exactly one file argument.'); + usage (my_name); end; end; |