diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-03-10 09:13:50 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-03-10 09:13:50 +0000 |
commit | d52c80bbd7d9a4255f54d34929e6d06f18a1d6d5 (patch) | |
tree | 96acc5581e382f29613e8aeebbae87dcdca0c781 /Build/source/texk/web2c/omegaware | |
parent | 7b1fe9c5919e7d7ddff71b621137cb798e1aa5b1 (diff) |
avoid use of and remove support for kpse_set_progname,
should be completely removed for kpathsea version 6.x.y
git-svn-id: svn://tug.org/texlive/trunk@17409 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware')
-rw-r--r-- | Build/source/texk/web2c/omegaware/ChangeLog | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/omegaware/odvicopy.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/omegaware/odvitype.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/omegaware/ofm2opl.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/omegaware/opl2ofm.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/omegaware/otangle.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/omegaware/ovf2ovp.ch | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/omegaware/ovp2ovf.ch | 2 |
8 files changed, 13 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/omegaware/ChangeLog b/Build/source/texk/web2c/omegaware/ChangeLog index 63e7397f820..923c96cd14e 100644 --- a/Build/source/texk/web2c/omegaware/ChangeLog +++ b/Build/source/texk/web2c/omegaware/ChangeLog @@ -1,3 +1,9 @@ +2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de> + + * odvicopy.ch, odvitype.ch, ofm2opl.ch, opl2ofm.ch, otangle.ch, + ovf2ovp.ch, ovp2ovf: Use kpse_set_program_name(argv[0], nil) + instead of kpse_set_progname(argv[0]). + 2010-01-22 Peter Breitenlohner <peb@mppmu.mpg.de> * odvitype.ch (open_dvi_file): Skip use of cur_name. diff --git a/Build/source/texk/web2c/omegaware/odvicopy.ch b/Build/source/texk/web2c/omegaware/odvicopy.ch index 7215b186642..9a8fcfe4fe3 100644 --- a/Build/source/texk/web2c/omegaware/odvicopy.ch +++ b/Build/source/texk/web2c/omegaware/odvicopy.ch @@ -33,7 +33,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @<Local variables for initialization@>@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; print (banner); print_ln (version_string); @z diff --git a/Build/source/texk/web2c/omegaware/odvitype.ch b/Build/source/texk/web2c/omegaware/odvitype.ch index cf2893dfc66..2acd6ad32e8 100644 --- a/Build/source/texk/web2c/omegaware/odvitype.ch +++ b/Build/source/texk/web2c/omegaware/odvitype.ch @@ -55,7 +55,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var i:integer; {loop index for initializations} begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; print (banner); print_ln (version_string); diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.ch b/Build/source/texk/web2c/omegaware/ofm2opl.ch index fac46b06d80..9e2a462feba 100644 --- a/Build/source/texk/web2c/omegaware/ofm2opl.ch +++ b/Build/source/texk/web2c/omegaware/ofm2opl.ch @@ -49,7 +49,7 @@ procedure initialize; {this procedure gets things started properly} @<Define |parse_arguments|@> procedure initialize; {this procedure gets things started properly} begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); kpse_init_prog ('OFM2OPL', 0, nil, nil); {We |xrealloc| when we know how big the file is. The 1000 comes from the negative lower bound.} diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.ch b/Build/source/texk/web2c/omegaware/opl2ofm.ch index 1e134a69bd3..2510e995faa 100644 --- a/Build/source/texk/web2c/omegaware/opl2ofm.ch +++ b/Build/source/texk/web2c/omegaware/opl2ofm.ch @@ -35,7 +35,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @<Local variables for initialization@>@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @z diff --git a/Build/source/texk/web2c/omegaware/otangle.ch b/Build/source/texk/web2c/omegaware/otangle.ch index 84e5dc406ba..6dc54623d97 100644 --- a/Build/source/texk/web2c/omegaware/otangle.ch +++ b/Build/source/texk/web2c/omegaware/otangle.ch @@ -71,7 +71,7 @@ procedure initialize; procedure initialize; var @<Local variables for initialization@>@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @<Set initial values@>@/ @z diff --git a/Build/source/texk/web2c/omegaware/ovf2ovp.ch b/Build/source/texk/web2c/omegaware/ovf2ovp.ch index 9ab40b511c9..24ec29f0a02 100644 --- a/Build/source/texk/web2c/omegaware/ovf2ovp.ch +++ b/Build/source/texk/web2c/omegaware/ovf2ovp.ch @@ -26,7 +26,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @!k:integer; {all-purpose index for initialization} begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); kpse_init_prog ('VFTOVP', 0, nil, nil); parse_arguments; @z diff --git a/Build/source/texk/web2c/omegaware/ovp2ovf.ch b/Build/source/texk/web2c/omegaware/ovp2ovf.ch index 62c2b250bae..8e5695027a1 100644 --- a/Build/source/texk/web2c/omegaware/ovp2ovf.ch +++ b/Build/source/texk/web2c/omegaware/ovp2ovf.ch @@ -24,7 +24,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @<Local variables for initialization@>@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @z |