summaryrefslogtreecommitdiff
path: root/Build/source
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
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')
-rw-r--r--Build/source/texk/dvipng/ChangeLog5
-rwxr-xr-xBuild/source/texk/dvipng/configure4
-rw-r--r--Build/source/texk/dvipng/configure.ac2
-rw-r--r--Build/source/texk/dvipng/dvipng-1.12-PATCHES/ChangeLog5
-rw-r--r--Build/source/texk/dvipng/dvipng-1.12-PATCHES/patch-12-set_program_name26
-rw-r--r--Build/source/texk/dvipng/dvipng-1.12/ChangeLog5
-rw-r--r--Build/source/texk/dvipng/dvipng-1.12/configure.ac2
-rw-r--r--Build/source/texk/dvisvgm/ChangeLog5
-rwxr-xr-xBuild/source/texk/dvisvgm/configure4
-rw-r--r--Build/source/texk/dvisvgm/configure.ac2
-rw-r--r--Build/source/texk/gsftopk/ChangeLog5
-rw-r--r--Build/source/texk/gsftopk/gsftopk.c2
-rw-r--r--Build/source/texk/kpathsea/ChangeLog6
-rw-r--r--Build/source/texk/kpathsea/pathsearch.c4
-rw-r--r--Build/source/texk/kpathsea/progname.c2
-rw-r--r--Build/source/texk/kpathsea/progname.h8
-rw-r--r--Build/source/texk/kpathsea/texmf.cnf6
-rw-r--r--Build/source/texk/makeindexk/ChangeLog5
-rw-r--r--Build/source/texk/makeindexk/mkind.c2
-rw-r--r--Build/source/texk/ps2pkm/ChangeLog5
-rw-r--r--Build/source/texk/ps2pkm/ps2pk.c2
-rw-r--r--Build/source/texk/web2c/ChangeLog13
-rw-r--r--Build/source/texk/web2c/bibtex.ch2
-rw-r--r--Build/source/texk/web2c/cpascal.h1
-rw-r--r--Build/source/texk/web2c/dvicopy.ch2
-rw-r--r--Build/source/texk/web2c/dvitype.ch2
-rw-r--r--Build/source/texk/web2c/gftodvi.ch2
-rw-r--r--Build/source/texk/web2c/gftopk.ch2
-rw-r--r--Build/source/texk/web2c/gftype.ch2
-rw-r--r--Build/source/texk/web2c/luatexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/luatexdir/luatangle.ch2
-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
-rw-r--r--Build/source/texk/web2c/patgen.ch2
-rw-r--r--Build/source/texk/web2c/pdftexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/pdftexdir/ttf2afm.c2
-rw-r--r--Build/source/texk/web2c/pktogf.ch2
-rw-r--r--Build/source/texk/web2c/pktype.ch2
-rw-r--r--Build/source/texk/web2c/pltotf.ch2
-rw-r--r--Build/source/texk/web2c/pooltype.ch2
-rw-r--r--Build/source/texk/web2c/tangle.ch2
-rw-r--r--Build/source/texk/web2c/tangleboot.pin46
-rw-r--r--Build/source/texk/web2c/tftopl.ch2
-rw-r--r--Build/source/texk/web2c/triptrap/texmf.cnf14
-rw-r--r--Build/source/texk/web2c/vftovp.ch2
-rw-r--r--Build/source/texk/web2c/vptovf.ch2
-rw-r--r--Build/source/texk/web2c/weave.ch2
-rw-r--r--Build/source/texk/web2c/web2c/ChangeLog1
-rw-r--r--Build/source/texk/web2c/web2c/common.defines1
55 files changed, 175 insertions, 74 deletions
diff --git a/Build/source/texk/dvipng/ChangeLog b/Build/source/texk/dvipng/ChangeLog
index ff1e5a6fb3b..ddbbc34b370 100644
--- a/Build/source/texk/dvipng/ChangeLog
+++ b/Build/source/texk/dvipng/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * configure.ac: Check for kpse_set_program_name() as used in
+ dvipng.c instead of kpse_set_progname().
+
2010-02-24 Peter Breitenlohner <peb@mppmu.mpg.de>
* configure.ac, help/Makefile.am: Do not even try to rebuild
diff --git a/Build/source/texk/dvipng/configure b/Build/source/texk/dvipng/configure
index 804d459b4fa..aa1217d4da3 100755
--- a/Build/source/texk/dvipng/configure
+++ b/Build/source/texk/dvipng/configure
@@ -15433,8 +15433,8 @@ fi
eval CPPFLAGS=\"$KPATHSEA_INCLUDES \$CPPFLAGS\"
eval LIBS=\"$KPATHSEA_LIBS \$LIBS\"
-ac_fn_c_check_func "$LINENO" "kpse_set_progname" "ac_cv_func_kpse_set_progname"
-if test "x$ac_cv_func_kpse_set_progname" = x""yes; then :
+ac_fn_c_check_func "$LINENO" "kpse_set_program_name" "ac_cv_func_kpse_set_program_name"
+if test "x$ac_cv_func_kpse_set_program_name" = x""yes; then :
$as_echo "#define HAVE_LIBKPATHSEA 1" >>confdefs.h
diff --git a/Build/source/texk/dvipng/configure.ac b/Build/source/texk/dvipng/configure.ac
index 8d6db35beac..53af4e5b689 100644
--- a/Build/source/texk/dvipng/configure.ac
+++ b/Build/source/texk/dvipng/configure.ac
@@ -138,7 +138,7 @@ AC_CHECK_FUNC([gdImageCreate],
This drawing library can be downloaded at http://www.boutell.com/gd])])
KPSE_ADD_FLAGS([kpathsea])
-AC_CHECK_FUNC([kpse_set_progname],
+AC_CHECK_FUNC([kpse_set_program_name],
[AC_DEFINE([HAVE_LIBKPATHSEA], 1,
[Define to 1 if you have the `kpathsea' library (-lkpathsea).])],
[AC_MSG_ERROR([cannot find/use libkpathsea])])
diff --git a/Build/source/texk/dvipng/dvipng-1.12-PATCHES/ChangeLog b/Build/source/texk/dvipng/dvipng-1.12-PATCHES/ChangeLog
index f076d87063a..91100698f24 100644
--- a/Build/source/texk/dvipng/dvipng-1.12-PATCHES/ChangeLog
+++ b/Build/source/texk/dvipng/dvipng-1.12-PATCHES/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * patch-12-set_program_name: Replace kpse_set_progname() by
+ kpse_set_program_name().
+
2010-02-24 Peter Breitenlohner <peb@mppmu.mpg.de>
* patch-10-mmap-for-WIN32 (new): Former MIKTEX code for mmap
diff --git a/Build/source/texk/dvipng/dvipng-1.12-PATCHES/patch-12-set_program_name b/Build/source/texk/dvipng/dvipng-1.12-PATCHES/patch-12-set_program_name
new file mode 100644
index 00000000000..4225fff4f98
--- /dev/null
+++ b/Build/source/texk/dvipng/dvipng-1.12-PATCHES/patch-12-set_program_name
@@ -0,0 +1,26 @@
+ Replace kpse_set_progname() by kpse_set_program_name().
+
+diff -ur dvipng-1.12.orig/ChangeLog dvipng-1.12/ChangeLog
+--- dvipng-1.12.orig/ChangeLog 2010-02-24 17:29:03.000000000 +0100
++++ dvipng-1.12/ChangeLog 2010-03-09 18:53:23.800798994 +0100
+@@ -1,3 +1,8 @@
++2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
++
++ * configure.ac: Check for kpse_set_program_name() as used in
++ dvipng.c instead of kpse_set_progname().
++
+ 2010-02-24 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ Support WIN32 builds (native or MinGW32).
+diff -ur dvipng-1.12.orig/configure.ac dvipng-1.12/configure.ac
+--- dvipng-1.12.orig/configure.ac 2009-02-23 14:47:03.000000000 +0100
++++ dvipng-1.12/configure.ac 2010-03-09 18:50:33.116303898 +0100
+@@ -69,7 +69,7 @@
+ AC_CHECK_LIB([gd], [gdImageCreate],,
+ [AC_MSG_ERROR([cannot find/use libgd
+ This drawing library can be downloaded at http://www.boutell.com/gd])])
+-AC_CHECK_LIB([kpathsea], [kpse_set_progname],,
++AC_CHECK_LIB([kpathsea], [kpse_set_program_name],,
+ AC_MSG_ERROR([cannot find/use libkpathsea]))
+ AC_CHECK_LIB([t1], [T1_InitLib])
+ PSFONTS_O=""
diff --git a/Build/source/texk/dvipng/dvipng-1.12/ChangeLog b/Build/source/texk/dvipng/dvipng-1.12/ChangeLog
index be4403114cd..4336c507b8d 100644
--- a/Build/source/texk/dvipng/dvipng-1.12/ChangeLog
+++ b/Build/source/texk/dvipng/dvipng-1.12/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * configure.ac: Check for kpse_set_program_name() as used in
+ dvipng.c instead of kpse_set_progname().
+
2010-02-24 Peter Breitenlohner <peb@mppmu.mpg.de>
Support WIN32 builds (native or MinGW32).
diff --git a/Build/source/texk/dvipng/dvipng-1.12/configure.ac b/Build/source/texk/dvipng/dvipng-1.12/configure.ac
index 509591c93ba..751087a1f49 100644
--- a/Build/source/texk/dvipng/dvipng-1.12/configure.ac
+++ b/Build/source/texk/dvipng/dvipng-1.12/configure.ac
@@ -69,7 +69,7 @@ AC_CHECK_LIB([png], [png_read_image],,
AC_CHECK_LIB([gd], [gdImageCreate],,
[AC_MSG_ERROR([cannot find/use libgd
This drawing library can be downloaded at http://www.boutell.com/gd])])
-AC_CHECK_LIB([kpathsea], [kpse_set_progname],,
+AC_CHECK_LIB([kpathsea], [kpse_set_program_name],,
AC_MSG_ERROR([cannot find/use libkpathsea]))
AC_CHECK_LIB([t1], [T1_InitLib])
PSFONTS_O=""
diff --git a/Build/source/texk/dvisvgm/ChangeLog b/Build/source/texk/dvisvgm/ChangeLog
index 345a41a9508..7eb8ee87f19 100644
--- a/Build/source/texk/dvisvgm/ChangeLog
+++ b/Build/source/texk/dvisvgm/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * configure.ac: Check for kpse_set_program_name() instead of
+ kpse_set_progname().
+
2009-11-18 Peter Breitenlohner <peb@mppmu.mpg.de>
* Makefile.am, configure.ac: Allow to link with libgs, load
diff --git a/Build/source/texk/dvisvgm/configure b/Build/source/texk/dvisvgm/configure
index 18823c7f75c..8b9b47de008 100755
--- a/Build/source/texk/dvisvgm/configure
+++ b/Build/source/texk/dvisvgm/configure
@@ -18102,8 +18102,8 @@ fi
eval CPPFLAGS=\"$KPATHSEA_INCLUDES \$CPPFLAGS\"
eval LIBS=\"$KPATHSEA_LIBS \$LIBS\"
-ac_fn_c_check_func "$LINENO" "kpse_set_progname" "ac_cv_func_kpse_set_progname"
-if test "x$ac_cv_func_kpse_set_progname" = x""yes; then :
+ac_fn_c_check_func "$LINENO" "kpse_set_program_name" "ac_cv_func_kpse_set_program_name"
+if test "x$ac_cv_func_kpse_set_program_name" = x""yes; then :
$as_echo "#define HAVE_LIBKPATHSEA 1" >>confdefs.h
diff --git a/Build/source/texk/dvisvgm/configure.ac b/Build/source/texk/dvisvgm/configure.ac
index 8301b3e14f3..6ab273d890f 100644
--- a/Build/source/texk/dvisvgm/configure.ac
+++ b/Build/source/texk/dvisvgm/configure.ac
@@ -106,7 +106,7 @@ AC_CHECK_FUNC([FT_Init_FreeType],
[AC_MSG_ERROR([cannot find/use libfreetype])])
KPSE_ADD_FLAGS([kpathsea])
-AC_CHECK_FUNC([kpse_set_progname],
+AC_CHECK_FUNC([kpse_set_program_name],
[AC_DEFINE([HAVE_LIBKPATHSEA], 1,
[Define to 1 if you have the `kpathsea' library (-lkpathsea).])],
[AC_MSG_ERROR([cannot find/use libkpathsea])])
diff --git a/Build/source/texk/gsftopk/ChangeLog b/Build/source/texk/gsftopk/ChangeLog
index 779a38fa204..39b3f4ef6fd 100644
--- a/Build/source/texk/gsftopk/ChangeLog
+++ b/Build/source/texk/gsftopk/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * gsftopk.c: Use kpse_set_program_name() instead of
+ kpse_set_progname().
+
2010-02-12 Peter Breitenlohner <peb@mppmu.mpg.de>
* gsftopk.c [WIN32]: Patches for MinGW32 build
diff --git a/Build/source/texk/gsftopk/gsftopk.c b/Build/source/texk/gsftopk/gsftopk.c
index 799b9329f96..0531222041e 100644
--- a/Build/source/texk/gsftopk/gsftopk.c
+++ b/Build/source/texk/gsftopk/gsftopk.c
@@ -2251,7 +2251,7 @@ Author of gsftopk: Paul Vojta.");
#ifdef WIN32
setmode(fileno(stdout), _O_BINARY);
#endif
- kpse_set_progname(argv[0]);
+ kpse_set_program_name(argv[0], NULL);
kpse_init_prog("GSFTOPK", (int) (dpi + 0.5), NULL, "cmr10");
if (!test)
xputenv_int("KPATHSEA_DPI", (int) (dpi + 0.5));
diff --git a/Build/source/texk/kpathsea/ChangeLog b/Build/source/texk/kpathsea/ChangeLog
index d61ba8d0667..ae40d04d0f4 100644
--- a/Build/source/texk/kpathsea/ChangeLog
+++ b/Build/source/texk/kpathsea/ChangeLog
@@ -1,3 +1,9 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * texmf.cnf: Add '.gftype' to GFtype specific parameters.
+ * progname.h: Remove kpse_set_progname from exported API.
+ Deprecated since 1998. Kept in library for Versions 5.x.y.
+
2010-03-08 Peter Breitenlohner <peb@mppmu.mpg.de>
* xrealloc.c (xrealloc): Allocate 1 byte if passed size 0.
diff --git a/Build/source/texk/kpathsea/pathsearch.c b/Build/source/texk/kpathsea/pathsearch.c
index 4bc0b974d29..8d376ab85ab 100644
--- a/Build/source/texk/kpathsea/pathsearch.c
+++ b/Build/source/texk/kpathsea/pathsearch.c
@@ -343,7 +343,7 @@ search (kpathsea kpse, const_string path, const_string original_name,
signature); that we do NOT need time stamp of root directories;
and that we do NOT need the write access bit in st_mode.
- Note that `kpse_set_progname' needs the EXEC bits,
+ Note that `kpse_set_program_name' needs the EXEC bits,
but it was already called by the time we get here. */
unsigned short save_djgpp_flags = _djstat_flags;
@@ -430,7 +430,7 @@ search_list (kpathsea kpse, const_string path, const_string* names,
signature); that we do NOT need time stamp of root directories;
and that we do NOT need the write access bit in st_mode.
- Note that `kpse_set_progname' needs the EXEC bits,
+ Note that `kpse_set_program_name' needs the EXEC bits,
but it was already called by the time we get here. */
unsigned short save_djgpp_flags = _djstat_flags;
diff --git a/Build/source/texk/kpathsea/progname.c b/Build/source/texk/kpathsea/progname.c
index e5cf8c937bf..7fe68742a09 100644
--- a/Build/source/texk/kpathsea/progname.c
+++ b/Build/source/texk/kpathsea/progname.c
@@ -672,6 +672,8 @@ kpse_set_program_name (const_string argv0, const_string progname)
kpathsea_set_program_name (kpse_def, argv0, progname);
}
+/* DEPRECATED since 1998 -- To be removed in Version 6.0.0. */
+
void
kpse_set_progname (const_string argv0)
{
diff --git a/Build/source/texk/kpathsea/progname.h b/Build/source/texk/kpathsea/progname.h
index 438420fe1a9..b5e7af87103 100644
--- a/Build/source/texk/kpathsea/progname.h
+++ b/Build/source/texk/kpathsea/progname.h
@@ -49,7 +49,9 @@ extern KPSEDLL string kpse_selfdir (const_string argv0);
extern KPSEDLL void kpse_set_program_name (const_string argv0,
const_string progname);
-/* DEPRECATED
+#ifdef MAKE_KPSE_DLL /* libkpathsea internal only */
+
+/* DEPRECATED since 1998 -- To be removed in Version 6.0.0.
Set first two variables above (if they're not predefined) to a copy of
ARGV0 and everything in ARGV0 after the last directory separator,
respectively. kpse_program_name is _always_ set to a copy of everything
@@ -57,6 +59,8 @@ extern KPSEDLL void kpse_set_program_name (const_string argv0,
extern KPSEDLL void kpse_set_progname (const_string argv0);
-#endif
+#endif /* MAKE_KPSE_DLL */
+
+#endif /* KPSE_COMPAT_API */
#endif /* not KPATHSEA_PROGNAME_H */
diff --git a/Build/source/texk/kpathsea/texmf.cnf b/Build/source/texk/kpathsea/texmf.cnf
index d8824c718a5..be1e99baa98 100644
--- a/Build/source/texk/kpathsea/texmf.cnf
+++ b/Build/source/texk/kpathsea/texmf.cnf
@@ -692,6 +692,6 @@ screen_width = 1664
screen_depth = 1200
% GFtype only.
-line_length = 500
-max_rows = 8191
-max_cols = 8191
+line_length.gftype = 500
+max_rows.gftype = 8191
+max_cols.gftype = 8191
diff --git a/Build/source/texk/makeindexk/ChangeLog b/Build/source/texk/makeindexk/ChangeLog
index afe346a8629..eb71b2e53bb 100644
--- a/Build/source/texk/makeindexk/ChangeLog
+++ b/Build/source/texk/makeindexk/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * mkind.c: Use kpse_set_program_name() instead of
+ kpse_set_progname().
+
2010-02-23 Peter Breitenlohner <peb@mppmu.mpg.de>
* mkind.h (DUPLICATE) [WIN32]: #undef before #define.
diff --git a/Build/source/texk/makeindexk/mkind.c b/Build/source/texk/makeindexk/mkind.c
index 1856ded8bd9..60c292fc7d0 100644
--- a/Build/source/texk/makeindexk/mkind.c
+++ b/Build/source/texk/makeindexk/mkind.c
@@ -105,7 +105,7 @@ main(int argc, char *argv[])
pgm_fn++;
#if USE_KPATHSEA
- kpse_set_progname (pgm_fn); /* use the same name as the intro message */
+ kpse_set_program_name (pgm_fn, NULL); /* use the same name as the intro message */
#endif
diff --git a/Build/source/texk/ps2pkm/ChangeLog b/Build/source/texk/ps2pkm/ChangeLog
index f084aa0017d..7600d60ce6c 100644
--- a/Build/source/texk/ps2pkm/ChangeLog
+++ b/Build/source/texk/ps2pkm/ChangeLog
@@ -1,3 +1,8 @@
+2010-03-09 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * ps2pk.c: Use kpse_set_program_name() instead of
+ kpse_set_progname().
+
2010-02-27 Peter Breitenlohner <peb@mppmu.mpg.de>
* Makefile.am: List all used header files.
diff --git a/Build/source/texk/ps2pkm/ps2pk.c b/Build/source/texk/ps2pkm/ps2pk.c
index 4d08e0fdcf7..7d917816f8f 100644
--- a/Build/source/texk/ps2pkm/ps2pk.c
+++ b/Build/source/texk/ps2pkm/ps2pk.c
@@ -352,7 +352,7 @@ int argc; char *argv[];
psname = argv[0]; argc--; argv++;
#ifdef KPATHSEA
- kpse_set_progname(myname);
+ kpse_set_program_name(myname, NULL);
#endif
#ifndef KPATHSEA
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 <peb@mppmu.mpg.de>
+
+ * 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 <karl@tug.org>
* 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
@<Process a possible command line@>=
-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 @<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/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 @<Globals in the outer block@>@/
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 @<Globals in the outer block@>@/
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 <peb@mppmu.mpg.de>
+
+ * luatangle.ch: Use kpse_set_program_name(argv[0], nil) instead
+ of kpse_set_progname(argv[0]).
+
2010-02-15 Peter Breitenlohner <peb@mppmu.mpg.de>
* 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 @<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/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
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 @<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);
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 <peb@mppmu.mpg.de>
+
+ * ttf2afm.c: Use kpse_set_program_name(argv[0], NULL) instead of
+ kpse_set_progname(argv[0]).
+
2010-02-14 Peter Breitenlohner <peb@mppmu.mpg.de>
* 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 @<Globals in the outer block@>@/
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 @<Globals in the outer block@>@/
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 @<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/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 @<Local variables for initialization@>@;
begin
- kpse_set_progname (argv[0]);
+ kpse_set_program_name (argv[0], nil);
parse_arguments;
@<Set initial values of key variables@>
@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 @<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/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}
@<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 ('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 @<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/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 @<Globals in the outer block@>@/
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/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 <peb@mppmu.mpg.de>
* common.defines (BIBXRETALLOCNOSET): New procedure.
+ (kpsesetprogname): Removed.
2010-03-05 Peter Breitenlohner <peb@mppmu.mpg.de>
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 ();