From d52c80bbd7d9a4255f54d34929e6d06f18a1d6d5 Mon Sep 17 00:00:00 2001 From: Peter Breitenlohner Date: Wed, 10 Mar 2010 09:13:50 +0000 Subject: 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 --- Build/source/texk/web2c/ChangeLog | 13 ++++++++ Build/source/texk/web2c/bibtex.ch | 2 +- Build/source/texk/web2c/cpascal.h | 1 - Build/source/texk/web2c/dvicopy.ch | 2 +- Build/source/texk/web2c/dvitype.ch | 2 +- Build/source/texk/web2c/gftodvi.ch | 2 +- Build/source/texk/web2c/gftopk.ch | 2 +- Build/source/texk/web2c/gftype.ch | 2 +- Build/source/texk/web2c/luatexdir/ChangeLog | 5 +++ Build/source/texk/web2c/luatexdir/luatangle.ch | 2 +- Build/source/texk/web2c/omegaware/ChangeLog | 6 ++++ Build/source/texk/web2c/omegaware/odvicopy.ch | 2 +- Build/source/texk/web2c/omegaware/odvitype.ch | 2 +- Build/source/texk/web2c/omegaware/ofm2opl.ch | 2 +- Build/source/texk/web2c/omegaware/opl2ofm.ch | 2 +- Build/source/texk/web2c/omegaware/otangle.ch | 2 +- Build/source/texk/web2c/omegaware/ovf2ovp.ch | 2 +- Build/source/texk/web2c/omegaware/ovp2ovf.ch | 2 +- Build/source/texk/web2c/patgen.ch | 2 +- Build/source/texk/web2c/pdftexdir/ChangeLog | 5 +++ Build/source/texk/web2c/pdftexdir/ttf2afm.c | 2 +- Build/source/texk/web2c/pktogf.ch | 2 +- Build/source/texk/web2c/pktype.ch | 2 +- Build/source/texk/web2c/pltotf.ch | 2 +- Build/source/texk/web2c/pooltype.ch | 2 +- Build/source/texk/web2c/tangle.ch | 2 +- Build/source/texk/web2c/tangleboot.pin | 46 +++++++++++++------------- Build/source/texk/web2c/tftopl.ch | 2 +- Build/source/texk/web2c/triptrap/texmf.cnf | 14 ++++---- Build/source/texk/web2c/vftovp.ch | 2 +- Build/source/texk/web2c/vptovf.ch | 2 +- Build/source/texk/web2c/weave.ch | 2 +- Build/source/texk/web2c/web2c/ChangeLog | 1 + Build/source/texk/web2c/web2c/common.defines | 1 - 34 files changed, 85 insertions(+), 57 deletions(-) (limited to 'Build/source/texk/web2c') diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog index 5489e7c3bbe..36db8facf8c 100644 --- a/Build/source/texk/web2c/ChangeLog +++ b/Build/source/texk/web2c/ChangeLog @@ -1,3 +1,16 @@ +2010-03-10 Peter Breitenlohner + + * cpascal.h (kpsesetprogname): Removed. + * bibtex.ch, dvicopy.ch, dvitype.ch, gftodvi.ch, gftopk.ch, + patgen.ch, pktogf.ch, pktype.ch, pltotf.ch, pooltype.ch, + tangle.ch, tftopl.ch, vftovp.ch, vptovf.ch, weave.ch: + Use kpse_set_program_name(argv[0], nil) instead of + kpse_set_progname(argv[0]). + * gftype.ch: Use kpse_set_program_name(argv[0], 'gftype') + instead of kpse_set_progname(argv[0]). + * triptrap/texmf.cnf: Add '.inimf' to Metafont specific, and + '.gftype' to GFtype specific parameters. + 2010-03-09 Karl Berry * bibtex.web: final 0.99d, from Oren. diff --git a/Build/source/texk/web2c/bibtex.ch b/Build/source/texk/web2c/bibtex.ch index 5beca8e13f6..647e01385b0 100644 --- a/Build/source/texk/web2c/bibtex.ch +++ b/Build/source/texk/web2c/bibtex.ch @@ -647,7 +647,7 @@ do_nothing; {the ``default system'' doesn't use the command line} end @y @= -kpse_set_progname (argv[0]); +kpse_set_program_name (argv[0], nil); parse_arguments; @z diff --git a/Build/source/texk/web2c/cpascal.h b/Build/source/texk/web2c/cpascal.h index 5428f8ecb44..f41d9ea8ec7 100644 --- a/Build/source/texk/web2c/cpascal.h +++ b/Build/source/texk/web2c/cpascal.h @@ -246,7 +246,6 @@ typedef const unsigned char *const_w2custring; #define kpsefindvf kpse_find_vf #define kpseinnameok kpse_in_name_ok #define kpseinitprog kpse_init_prog -#define kpsesetprogname kpse_set_progname #define kpsesetprogramname kpse_set_program_name #define kpseresetprogramname kpse_reset_program_name #define kpsegfformat kpse_gf_format diff --git a/Build/source/texk/web2c/dvicopy.ch b/Build/source/texk/web2c/dvicopy.ch index 9371281d8ce..c4ff1ee9232 100644 --- a/Build/source/texk/web2c/dvicopy.ch +++ b/Build/source/texk/web2c/dvicopy.ch @@ -24,7 +24,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @@/ 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/dvitype.ch b/Build/source/texk/web2c/dvitype.ch index 44c48a05c39..d06ecfb80d4 100644 --- a/Build/source/texk/web2c/dvitype.ch +++ b/Build/source/texk/web2c/dvitype.ch @@ -47,7 +47,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/gftodvi.ch b/Build/source/texk/web2c/gftodvi.ch index 6227feff207..9e8db5eb13f 100644 --- a/Build/source/texk/web2c/gftodvi.ch +++ b/Build/source/texk/web2c/gftodvi.ch @@ -69,7 +69,7 @@ var @@/ procedure initialize; {this procedure gets things started properly} var @!i,@!j,@!m,@!n:integer; {loop indices for initializations} begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); kpse_init_prog ('GFTODVI', 0, nil, nil); parse_arguments; if verbose then begin diff --git a/Build/source/texk/web2c/gftopk.ch b/Build/source/texk/web2c/gftopk.ch index ed5cc0f598c..65504f88b03 100644 --- a/Build/source/texk/web2c/gftopk.ch +++ b/Build/source/texk/web2c/gftopk.ch @@ -55,7 +55,7 @@ var @@/ 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); kpse_init_prog ('GFTOPK', 0, nil, nil); parse_arguments; print(banner); print_ln(version_string); diff --git a/Build/source/texk/web2c/gftype.ch b/Build/source/texk/web2c/gftype.ch index 3ee9cb763eb..b26f81a1378 100644 --- a/Build/source/texk/web2c/gftype.ch +++ b/Build/source/texk/web2c/gftype.ch @@ -51,7 +51,7 @@ procedure initialize; {this procedure gets things started properly} @!bound_default:integer; {temporary for setup} @!bound_name:const_cstring; {temporary for setup} begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], 'gftype'); kpse_init_prog ('GFTYPE', 0, nil, nil); parse_arguments; print(banner);print_ln(version_string); diff --git a/Build/source/texk/web2c/luatexdir/ChangeLog b/Build/source/texk/web2c/luatexdir/ChangeLog index 350c16e95e2..cd538550194 100644 --- a/Build/source/texk/web2c/luatexdir/ChangeLog +++ b/Build/source/texk/web2c/luatexdir/ChangeLog @@ -1,3 +1,8 @@ +2010-03-09 Peter Breitenlohner + + * luatangle.ch: Use kpse_set_program_name(argv[0], nil) instead + of kpse_set_progname(argv[0]). + 2010-02-15 Peter Breitenlohner * am/luamisc.am (libluamisc_a_CPPFLAGS): Adapt to zziplib now diff --git a/Build/source/texk/web2c/luatexdir/luatangle.ch b/Build/source/texk/web2c/luatexdir/luatangle.ch index 4e1ab58208e..9c5af9db75a 100644 --- a/Build/source/texk/web2c/luatexdir/luatangle.ch +++ b/Build/source/texk/web2c/luatexdir/luatangle.ch @@ -72,7 +72,7 @@ procedure initialize; procedure initialize; var @@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @@/ @z 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 + + * 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 * 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 @@/ 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} @ 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 @@/ 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 @@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @@/ @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 @@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @z diff --git a/Build/source/texk/web2c/patgen.ch b/Build/source/texk/web2c/patgen.ch index 78be9792ff2..02cce046a4f 100644 --- a/Build/source/texk/web2c/patgen.ch +++ b/Build/source/texk/web2c/patgen.ch @@ -45,7 +45,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @@/ 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/pdftexdir/ChangeLog b/Build/source/texk/web2c/pdftexdir/ChangeLog index f19611f3603..d5d93472e89 100644 --- a/Build/source/texk/web2c/pdftexdir/ChangeLog +++ b/Build/source/texk/web2c/pdftexdir/ChangeLog @@ -1,3 +1,8 @@ +2010-03-09 Peter Breitenlohner + + * ttf2afm.c: Use kpse_set_program_name(argv[0], NULL) instead of + kpse_set_progname(argv[0]). + 2010-02-14 Peter Breitenlohner * writet1.c (append_cs_return): Cast to byte * to avoid warning. diff --git a/Build/source/texk/web2c/pdftexdir/ttf2afm.c b/Build/source/texk/web2c/pdftexdir/ttf2afm.c index 02945f4d81f..27780adf8f0 100644 --- a/Build/source/texk/web2c/pdftexdir/ttf2afm.c +++ b/Build/source/texk/web2c/pdftexdir/ttf2afm.c @@ -1016,7 +1016,7 @@ int main(int argc, char **argv) char date[128], *s; time_t t = time(&t); int c; - kpse_set_progname(argv[0]); + kpse_set_program_name(argv[0], NULL); kpse_init_prog("ttf2afm", 0, 0, 0); while ((c = getopt(argc, argv, "iucve:o:m:")) != -1) switch (c) { diff --git a/Build/source/texk/web2c/pktogf.ch b/Build/source/texk/web2c/pktogf.ch index aa4ead80631..c5079eb91f2 100644 --- a/Build/source/texk/web2c/pktogf.ch +++ b/Build/source/texk/web2c/pktogf.ch @@ -54,7 +54,7 @@ var @@/ 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); kpse_init_prog ('PKTOGF', 0, nil, nil); parse_arguments; print_ln(banner);@/ diff --git a/Build/source/texk/web2c/pktype.ch b/Build/source/texk/web2c/pktype.ch index 677c3d298db..36fb4f71189 100644 --- a/Build/source/texk/web2c/pktype.ch +++ b/Build/source/texk/web2c/pktype.ch @@ -38,7 +38,7 @@ var @@/ 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); kpse_init_prog ('PKTYPE', 0, nil, nil); parse_arguments; print(banner); print_ln(version_string);@/ diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch index d8259e4ac03..f51d6859baf 100644 --- a/Build/source/texk/web2c/pltotf.ch +++ b/Build/source/texk/web2c/pltotf.ch @@ -28,7 +28,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @z diff --git a/Build/source/texk/web2c/pooltype.ch b/Build/source/texk/web2c/pooltype.ch index 55e8a65bd8b..85849a3efa4 100644 --- a/Build/source/texk/web2c/pooltype.ch +++ b/Build/source/texk/web2c/pooltype.ch @@ -25,7 +25,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @@; begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @ @z diff --git a/Build/source/texk/web2c/tangle.ch b/Build/source/texk/web2c/tangle.ch index f25eadec12b..3771e2a1107 100644 --- a/Build/source/texk/web2c/tangle.ch +++ b/Build/source/texk/web2c/tangle.ch @@ -63,7 +63,7 @@ procedure initialize; procedure initialize; var @@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @@/ @z diff --git a/Build/source/texk/web2c/tangleboot.pin b/Build/source/texk/web2c/tangleboot.pin index b0709eeb67a..e0ca48e45eb 100644 --- a/Build/source/texk/web2c/tangleboot.pin +++ b/Build/source/texk/web2c/tangleboot.pin @@ -125,29 +125,29 @@ if optind+2=argc then begin chgname:=extendfilename(cmdline(optind+1), 'ch');end;pascalname:=basenamechangesuffix(webname,'.web','.p');end; {:188}procedure initialize;var{16:}i:0..255;{:16}{41:}wi:0..2; {:41}{45:}zi:0..4;{:45}{51:}h:0..hashsize; -{:51}begin kpsesetprogname(argv[0]);parsearguments;{10:}history:=0; -{:10}{14:}xchr[32]:=' ';xchr[33]:='!';xchr[34]:='"';xchr[35]:='#'; -xchr[36]:='$';xchr[37]:='%';xchr[38]:='&';xchr[39]:='''';xchr[40]:='('; -xchr[41]:=')';xchr[42]:='*';xchr[43]:='+';xchr[44]:=',';xchr[45]:='-'; -xchr[46]:='.';xchr[47]:='/';xchr[48]:='0';xchr[49]:='1';xchr[50]:='2'; -xchr[51]:='3';xchr[52]:='4';xchr[53]:='5';xchr[54]:='6';xchr[55]:='7'; -xchr[56]:='8';xchr[57]:='9';xchr[58]:=':';xchr[59]:=';';xchr[60]:='<'; -xchr[61]:='=';xchr[62]:='>';xchr[63]:='?';xchr[64]:='@';xchr[65]:='A'; -xchr[66]:='B';xchr[67]:='C';xchr[68]:='D';xchr[69]:='E';xchr[70]:='F'; -xchr[71]:='G';xchr[72]:='H';xchr[73]:='I';xchr[74]:='J';xchr[75]:='K'; -xchr[76]:='L';xchr[77]:='M';xchr[78]:='N';xchr[79]:='O';xchr[80]:='P'; -xchr[81]:='Q';xchr[82]:='R';xchr[83]:='S';xchr[84]:='T';xchr[85]:='U'; -xchr[86]:='V';xchr[87]:='W';xchr[88]:='X';xchr[89]:='Y';xchr[90]:='Z'; -xchr[91]:='[';xchr[92]:='\';xchr[93]:=']';xchr[94]:='^';xchr[95]:='_'; -xchr[96]:='`';xchr[97]:='a';xchr[98]:='b';xchr[99]:='c';xchr[100]:='d'; -xchr[101]:='e';xchr[102]:='f';xchr[103]:='g';xchr[104]:='h'; -xchr[105]:='i';xchr[106]:='j';xchr[107]:='k';xchr[108]:='l'; -xchr[109]:='m';xchr[110]:='n';xchr[111]:='o';xchr[112]:='p'; -xchr[113]:='q';xchr[114]:='r';xchr[115]:='s';xchr[116]:='t'; -xchr[117]:='u';xchr[118]:='v';xchr[119]:='w';xchr[120]:='x'; -xchr[121]:='y';xchr[122]:='z';xchr[123]:='{';xchr[124]:='|'; -xchr[125]:='}';xchr[126]:='~';xchr[0]:=' ';xchr[127]:=' '; -{:14}{17:}for i:=1 to 31 do xchr[i]:=chr(i); +{:51}begin kpsesetprogramname(argv[0],nil);parsearguments; +{10:}history:=0;{:10}{14:}xchr[32]:=' ';xchr[33]:='!';xchr[34]:='"'; +xchr[35]:='#';xchr[36]:='$';xchr[37]:='%';xchr[38]:='&';xchr[39]:=''''; +xchr[40]:='(';xchr[41]:=')';xchr[42]:='*';xchr[43]:='+';xchr[44]:=','; +xchr[45]:='-';xchr[46]:='.';xchr[47]:='/';xchr[48]:='0';xchr[49]:='1'; +xchr[50]:='2';xchr[51]:='3';xchr[52]:='4';xchr[53]:='5';xchr[54]:='6'; +xchr[55]:='7';xchr[56]:='8';xchr[57]:='9';xchr[58]:=':';xchr[59]:=';'; +xchr[60]:='<';xchr[61]:='=';xchr[62]:='>';xchr[63]:='?';xchr[64]:='@'; +xchr[65]:='A';xchr[66]:='B';xchr[67]:='C';xchr[68]:='D';xchr[69]:='E'; +xchr[70]:='F';xchr[71]:='G';xchr[72]:='H';xchr[73]:='I';xchr[74]:='J'; +xchr[75]:='K';xchr[76]:='L';xchr[77]:='M';xchr[78]:='N';xchr[79]:='O'; +xchr[80]:='P';xchr[81]:='Q';xchr[82]:='R';xchr[83]:='S';xchr[84]:='T'; +xchr[85]:='U';xchr[86]:='V';xchr[87]:='W';xchr[88]:='X';xchr[89]:='Y'; +xchr[90]:='Z';xchr[91]:='[';xchr[92]:='\';xchr[93]:=']';xchr[94]:='^'; +xchr[95]:='_';xchr[96]:='`';xchr[97]:='a';xchr[98]:='b';xchr[99]:='c'; +xchr[100]:='d';xchr[101]:='e';xchr[102]:='f';xchr[103]:='g'; +xchr[104]:='h';xchr[105]:='i';xchr[106]:='j';xchr[107]:='k'; +xchr[108]:='l';xchr[109]:='m';xchr[110]:='n';xchr[111]:='o'; +xchr[112]:='p';xchr[113]:='q';xchr[114]:='r';xchr[115]:='s'; +xchr[116]:='t';xchr[117]:='u';xchr[118]:='v';xchr[119]:='w'; +xchr[120]:='x';xchr[121]:='y';xchr[122]:='z';xchr[123]:='{'; +xchr[124]:='|';xchr[125]:='}';xchr[126]:='~';xchr[0]:=' '; +xchr[127]:=' ';{:14}{17:}for i:=1 to 31 do xchr[i]:=chr(i); for i:=128 to 255 do xchr[i]:=chr(i); {:17}{18:}for i:=0 to 255 do xord[chr(i)]:=32; for i:=1 to 255 do xord[xchr[i]]:=i;xord[' ']:=32; diff --git a/Build/source/texk/web2c/tftopl.ch b/Build/source/texk/web2c/tftopl.ch index 233c2821d8d..f0f7986cb37 100644 --- a/Build/source/texk/web2c/tftopl.ch +++ b/Build/source/texk/web2c/tftopl.ch @@ -50,7 +50,7 @@ procedure initialize; {this procedure gets things started properly} @ procedure initialize; {this procedure gets things started properly} begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); kpse_init_prog ('TFTOPL', 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/triptrap/texmf.cnf b/Build/source/texk/web2c/triptrap/texmf.cnf index 6713c41d8b3..b6162e58c6e 100644 --- a/Build/source/texk/web2c/triptrap/texmf.cnf +++ b/Build/source/texk/web2c/triptrap/texmf.cnf @@ -46,10 +46,10 @@ dvi_buf_size = 800 % and the original trip setting is 307, so no point in changing the default. % Metafont only. -gf_buf_size = 8 % trapman.tex says to use this. -MFTERM = trap % get the right screen output -screen_width = 100 -screen_depth = 200 +gf_buf_size.inimf = 8 % trapman.tex says to use this. +MFTERM.inimf = trap % get the right screen output +screen_width.inimf = 100 +screen_depth.inimf = 200 % MetaPost only. Turn off callmakempx, i.e., makempx, % since we can only test tex and dvitomp, and we'll test those in other @@ -88,6 +88,6 @@ MFPOOL = . MPPOOL = . % GFtype only. -line_length = 79 -max_rows = 79 -max_cols = 79 +line_length.gftype = 79 +max_rows.gftype = 79 +max_cols.gftype = 79 diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch index c2b8d6ed174..026e8ef6d28 100644 --- a/Build/source/texk/web2c/vftovp.ch +++ b/Build/source/texk/web2c/vftovp.ch @@ -28,7 +28,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/vptovf.ch b/Build/source/texk/web2c/vptovf.ch index d394d210b3d..7455ab58892 100644 --- a/Build/source/texk/web2c/vptovf.ch +++ b/Build/source/texk/web2c/vptovf.ch @@ -17,7 +17,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var @@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @z diff --git a/Build/source/texk/web2c/weave.ch b/Build/source/texk/web2c/weave.ch index 94aa30229e8..15372d2bae8 100644 --- a/Build/source/texk/web2c/weave.ch +++ b/Build/source/texk/web2c/weave.ch @@ -73,7 +73,7 @@ var @@/ procedure initialize; var @@/ begin - kpse_set_progname (argv[0]); + kpse_set_program_name (argv[0], nil); parse_arguments; @@/ @z diff --git a/Build/source/texk/web2c/web2c/ChangeLog b/Build/source/texk/web2c/web2c/ChangeLog index 1e46cbe3a0b..0529dd6b909 100644 --- a/Build/source/texk/web2c/web2c/ChangeLog +++ b/Build/source/texk/web2c/web2c/ChangeLog @@ -1,6 +1,7 @@ 2010-03-09 Peter Breitenlohner * common.defines (BIBXRETALLOCNOSET): New procedure. + (kpsesetprogname): Removed. 2010-03-05 Peter Breitenlohner diff --git a/Build/source/texk/web2c/web2c/common.defines b/Build/source/texk/web2c/web2c/common.defines index 44f0a0d6034..bdd35768fa8 100644 --- a/Build/source/texk/web2c/web2c/common.defines +++ b/Build/source/texk/web2c/web2c/common.defines @@ -163,7 +163,6 @@ @define procedure input2ints (); @define procedure input3ints (); @define procedure kpseinitprog (); -@define procedure kpsesetprogname (); @define procedure kpsesetprogramname (); @define procedure kpseresetprogramname (); @define procedure kpsesetprogramenabled (); -- cgit v1.2.3