summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-03-10 09:13:50 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-03-10 09:13:50 +0000
commitd52c80bbd7d9a4255f54d34929e6d06f18a1d6d5 (patch)
tree96acc5581e382f29613e8aeebbae87dcdca0c781 /Build/source/texk/web2c/omegaware
parent7b1fe9c5919e7d7ddff71b621137cb798e1aa5b1 (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/ChangeLog6
-rw-r--r--Build/source/texk/web2c/omegaware/odvicopy.ch2
-rw-r--r--Build/source/texk/web2c/omegaware/odvitype.ch2
-rw-r--r--Build/source/texk/web2c/omegaware/ofm2opl.ch2
-rw-r--r--Build/source/texk/web2c/omegaware/opl2ofm.ch2
-rw-r--r--Build/source/texk/web2c/omegaware/otangle.ch2
-rw-r--r--Build/source/texk/web2c/omegaware/ovf2ovp.ch2
-rw-r--r--Build/source/texk/web2c/omegaware/ovp2ovf.ch2
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