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/ptexdir | |
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/ptexdir')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 5 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/pbibtex.ch | 16 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/pdvitype.ch | 16 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ppltotf.ch | 16 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptftopl.ch | 16 |
5 files changed, 13 insertions, 56 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index dae9ffdb618..4eda595b09e 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,8 @@ +2012-07-15 Peter Breitenlohner <peb@mppmu.mpg.de> + + * pbibtex.ch, pdvitype.ch, ppltotf.ch, ptftopl.ch: + Adapt to the use my_name. + 2012-07-15 Akira Kakuto <kakuto@fuk.kindai.ac.jp> * ptexextra.c: Must #define DLLPROC before reading ptexd.h. diff --git a/Build/source/texk/web2c/ptexdir/pbibtex.ch b/Build/source/texk/web2c/ptexdir/pbibtex.ch index 5a6adc4112a..1752e8059d7 100644 --- a/Build/source/texk/web2c/ptexdir/pbibtex.ch +++ b/Build/source/texk/web2c/ptexdir/pbibtex.ch @@ -42,8 +42,10 @@ % [1] banner %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @x +@d my_name=='bibtex' @d banner=='This is BibTeX, Version 0.99d' {printed when the program starts} @y +@d my_name=='pbibtex' @d banner=='This is pBibTeX, Version 0.99d-j0.33' {printed when the program starts} @z @@ -520,12 +522,6 @@ const n_options = 6; {Pascal won't count array lengths for us.} @z @x - usage ('bibtex'); -@y - usage ('pbibtex'); -@z - -@x usage_help (BIBTEX_HELP, nil); @y usage_help (PBIBTEX_HELP, nil); @@ -542,14 +538,6 @@ const n_options = 6; {Pascal won't count array lengths for us.} @z @x - write_ln (stderr, 'bibtex: Need exactly one file argument.'); - usage ('bibtex'); -@y - write_ln (stderr, 'pbibtex: Need exactly one file argument.'); - usage ('pbibtex'); -@z - -@x long_options[current_option].name := 'version'; long_options[current_option].has_arg := 0; long_options[current_option].flag := 0; diff --git a/Build/source/texk/web2c/ptexdir/pdvitype.ch b/Build/source/texk/web2c/ptexdir/pdvitype.ch index 53f0a0ebc6d..d9df210e39a 100644 --- a/Build/source/texk/web2c/ptexdir/pdvitype.ch +++ b/Build/source/texk/web2c/ptexdir/pdvitype.ch @@ -3,8 +3,10 @@ % 09/27/95 (KA) Supporting ASCII pTeX % @x +@d my_name=='dvitype' @d banner=='This is DVItype, Version 3.6' {printed when the program starts} @y +@d my_name=='pdvitype' @d banner=='This is pDVItype, Version 3.6-p0.4' {printed when the program starts} @z @@ -489,12 +491,6 @@ const n_options = 10; {Pascal won't count array lengths for us.} @z @x - usage ('dvitype'); -@y - usage ('pdvitype'); -@z - -@x usage_help (DVITYPE_HELP, nil); @y usage_help (PDVITYPE_HELP, nil); @@ -513,14 +509,6 @@ const n_options = 10; {Pascal won't count array lengths for us.} @z @x - write_ln (stderr, 'dvitype: Need exactly one file argument.'); - usage ('dvitype'); -@y - write_ln (stderr, 'pdvitype: Need exactly one file argument.'); - usage ('pdvitype'); -@z - -@x @ An element with all zeros always ends the list. @y @ Shift-JIS terminal (the flag is ignored except for WIN32). diff --git a/Build/source/texk/web2c/ptexdir/ppltotf.ch b/Build/source/texk/web2c/ptexdir/ppltotf.ch index d7d68421a85..a071bf0f82c 100644 --- a/Build/source/texk/web2c/ptexdir/ppltotf.ch +++ b/Build/source/texk/web2c/ptexdir/ppltotf.ch @@ -11,8 +11,10 @@ @z @x [2] l.69 - pTeX: +@d my_name=='pltotf' @d banner=='This is PLtoTF, Version 3.5' {printed when the program starts} @y +@d my_name=='ppltotf' @d banner=='This is pPLtoTF, Version 3.5-p1.8' {printed when the program starts} @z @@ -355,12 +357,6 @@ const n_options = 5; {Pascal won't count array lengths for us.} @z @x - usage ('pltotf'); -@y - usage ('ppltotf'); -@z - -@x usage_help (PLTOTF_HELP, nil); @y usage_help (PPLTOTF_HELP, nil); @@ -377,14 +373,6 @@ const n_options = 5; {Pascal won't count array lengths for us.} @z @x - write_ln (stderr, 'pltotf: Need one or two file arguments.'); - usage ('pltotf'); -@y - write_ln (stderr, 'ppltotf: Need one or two file arguments.'); - usage ('ppltotf'); -@z - -@x @ An element with all zeros always ends the list. @y @ Shift-JIS terminal (the flag is ignored except for WIN32). diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch index 691b87506de..ad7d889b025 100644 --- a/Build/source/texk/web2c/ptexdir/ptftopl.ch +++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch @@ -10,8 +10,10 @@ @z @x [2] l.64 - pTeX: +@d my_name=='tftopl' @d banner=='This is TFtoPL, Version 3.2' {printed when the program starts} @y +@d my_name=='ptftopl' @d banner=='This is pTFtoPL, Version 3.2-p1.7' {printed when the program starts} @z @@ -352,12 +354,6 @@ const n_options = 6; {Pascal won't count array lengths for us.} @z @x - usage ('tftopl'); -@y - usage ('ptftopl'); -@z - -@x usage_help (TFTOPL_HELP, nil); @y usage_help (PTFTOPL_HELP, nil); @@ -374,14 +370,6 @@ const n_options = 6; {Pascal won't count array lengths for us.} @z @x - print_ln ('tftopl: Need one or two file arguments.'); - usage ('tftopl'); -@y - print_ln ('ptftopl: Need one or two file arguments.'); - usage ('ptftopl'); -@z - -@x @ An element with all zeros always ends the list. @y @ Shift-JIS terminal (the flag is ignored except for WIN32). |