summaryrefslogtreecommitdiff
path: root/Build/source/texk
diff options
context:
space:
mode:
authorTakuji Tanaka <ttk@t-lab.opal.ne.jp>2024-04-14 05:29:13 +0000
committerTakuji Tanaka <ttk@t-lab.opal.ne.jp>2024-04-14 05:29:13 +0000
commit406b2b73ed325a7138057ee90cc5ea7f026a6e68 (patch)
tree46f8d7f372bb90b62be391387a9cedfb93bb8688 /Build/source/texk
parentd0f3e54f7deda0e587d231083c9bafd55e1b8ccc (diff)
eptex: Remove web2c/eptexdir
git-svn-id: svn://tug.org/texlive/trunk@70943 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk')
-rw-r--r--Build/source/texk/web2c/ChangeLog7
-rw-r--r--Build/source/texk/web2c/Makefile.am3
-rw-r--r--Build/source/texk/web2c/Makefile.in804
-rw-r--r--Build/source/texk/web2c/ac/web2c.ac1
-rwxr-xr-xBuild/source/texk/web2c/configure68
-rw-r--r--Build/source/texk/web2c/eptexdir/COPYRIGHT26
-rw-r--r--Build/source/texk/web2c/eptexdir/am/eptex.am135
-rw-r--r--Build/source/texk/web2c/eptexdir/char-warning-eptex.ch101
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.defines60
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.ech804
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex_version.h1
-rw-r--r--Build/source/texk/web2c/eptexdir/eptexextra.c12
-rw-r--r--Build/source/texk/web2c/eptexdir/eptexextra.h26
-rw-r--r--Build/source/texk/web2c/eptexdir/eptrip/eptrip.diffs1386
-rw-r--r--Build/source/texk/web2c/eptexdir/eptrip/texmf.cnf41
-rwxr-xr-xBuild/source/texk/web2c/eptexdir/eptriptest.test220
-rwxr-xr-xBuild/source/texk/web2c/eptexdir/epver.test36
-rw-r--r--Build/source/texk/web2c/eptexdir/etex.ch0261
-rw-r--r--Build/source/texk/web2c/eptexdir/etex.ch1214
-rw-r--r--Build/source/texk/web2c/eptexdir/fam256.ch1537
-rwxr-xr-xBuild/source/texk/web2c/eptexdir/pdfprimitive.test27
-rw-r--r--Build/source/texk/web2c/eptexdir/pdfutils.ch2150
-rw-r--r--Build/source/texk/web2c/eptexdir/suppresserrors.ch138
-rw-r--r--Build/source/texk/web2c/eptexdir/tests/pdfprimitive-eptex.log57
-rw-r--r--Build/source/texk/web2c/eptexdir/tests/pdfprimitive-test.tex47
-rwxr-xr-xBuild/source/texk/web2c/eptexdir/wcfname.test131
-rw-r--r--Build/source/texk/web2c/etexdir/ChangeLog5
-rwxr-xr-xBuild/source/texk/web2c/etexdir/etriptest.test2
-rw-r--r--Build/source/texk/web2c/euptexdir/ChangeLog16
-rw-r--r--Build/source/texk/web2c/euptexdir/am/euptex.am4
-rw-r--r--Build/source/texk/web2c/euptexdir/epTeX_doc/ChangeLog (renamed from Build/source/texk/web2c/eptexdir/ChangeLog)0
-rw-r--r--Build/source/texk/web2c/euptexdir/epTeX_doc/Changes.txt (renamed from Build/source/texk/web2c/eptexdir/Changes.txt)0
-rw-r--r--Build/source/texk/web2c/euptexdir/epTeX_doc/README.txt (renamed from Build/source/texk/web2c/eptexdir/README.txt)0
-rw-r--r--Build/source/texk/web2c/euptexdir/epTeX_doc/eptex-base.ch (renamed from Build/source/texk/web2c/eptexdir/eptex-base.ch)0
-rwxr-xr-xBuild/source/texk/web2c/euptexdir/eptriptest.test12
-rw-r--r--Build/source/texk/web2c/euptexdir/euptexextra.h2
-rw-r--r--Build/source/texk/web2c/euptexdir/euptrip/eptrip.log (renamed from Build/source/texk/web2c/eptexdir/eptrip/eptrip.log)0
-rw-r--r--Build/source/texk/web2c/euptexdir/euptrip/eptrip.tex (renamed from Build/source/texk/web2c/eptexdir/eptrip/eptrip.tex)0
-rwxr-xr-xBuild/source/texk/web2c/euptexdir/euptriptest.test7
-rwxr-xr-xBuild/source/texk/web2c/euptexdir/pdfprimitive.test2
-rwxr-xr-xBuild/source/texk/web2c/euptexdir/tests/fontchar.sh (renamed from Build/source/texk/web2c/eptexdir/tests/fontchar.sh)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/fontchar.tex (renamed from Build/source/texk/web2c/eptexdir/tests/fontchar.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/lastnodefont.tex (renamed from Build/source/texk/web2c/eptexdir/tests/lastnodefont.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/lastnodesubtype_math.tex (renamed from Build/source/texk/web2c/eptexdir/tests/lastnodesubtype_math.tex)0
-rwxr-xr-xBuild/source/texk/web2c/euptexdir/tests/pdforigin.sh (renamed from Build/source/texk/web2c/eptexdir/tests/pdforigin.sh)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/pdforigin.tex (renamed from Build/source/texk/web2c/eptexdir/tests/pdforigin.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/pdfpagewidth.tex (renamed from Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/pdfsavepos.tex (renamed from Build/source/texk/web2c/eptexdir/tests/pdfsavepos.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/printkanji-eptex.tex (renamed from Build/source/texk/web2c/eptexdir/tests/printkanji-eptex.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/suppress_errors.tex (renamed from Build/source/texk/web2c/eptexdir/tests/suppress_errors.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/uchar.tex (renamed from Build/source/texk/web2c/eptexdir/tests/uchar.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/zero_search.tex (renamed from Build/source/texk/web2c/eptexdir/tests/zero_search.tex)0
-rw-r--r--Build/source/texk/web2c/euptexdir/unbalanced-braces-eptex.ch (renamed from Build/source/texk/web2c/eptexdir/unbalanced-braces-eptex.ch)0
-rw-r--r--Build/source/texk/web2c/lib/ChangeLog4
-rw-r--r--Build/source/texk/web2c/lib/Makefile.am4
-rw-r--r--Build/source/texk/web2c/lib/Makefile.in2
-rw-r--r--Build/source/texk/web2c/man/ChangeLog4
-rw-r--r--Build/source/texk/web2c/man/Makefile.am4
-rw-r--r--Build/source/texk/web2c/man/Makefile.in9
-rwxr-xr-xBuild/source/texk/web2c/mftraptest.test2
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog5
-rwxr-xr-xBuild/source/texk/web2c/ptexdir/ptriptest.test2
-rw-r--r--Build/source/texk/web2c/synctexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/synctexdir/am/synctex.am37
-rwxr-xr-xBuild/source/texk/web2c/triptest.test2
-rw-r--r--Build/source/texk/web2c/uptexdir/ChangeLog5
-rwxr-xr-xBuild/source/texk/web2c/uptexdir/ptriptest.test2
-rwxr-xr-xBuild/source/texk/web2c/uptexdir/uptriptest.test2
68 files changed, 352 insertions, 8079 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index f2b53abdf84..e4cff42c93f 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,10 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * ac/web2c.ac (eptex), Makefile.am,
+ euptexdir/am/euptex.am, eptexdir/*: Remove eptex and eptexdir/.
+ * {mftraptest,triptest}.test:
+ Filter Web2C year/dev in banner.
+
2024-03-24 Karl Berry <karl@freefriends.org>
* unbalanced-braces.ch: fix from DRF in order to make
diff --git a/Build/source/texk/web2c/Makefile.am b/Build/source/texk/web2c/Makefile.am
index 843aeefe445..6e271293a66 100644
--- a/Build/source/texk/web2c/Makefile.am
+++ b/Build/source/texk/web2c/Makefile.am
@@ -272,9 +272,6 @@ include $(srcdir)/etexdir/am/etex.am
## pTeX
include $(srcdir)/ptexdir/am/ptex.am
-## e-pTeX
-include $(srcdir)/eptexdir/am/eptex.am
-
## upTeX
include $(srcdir)/uptexdir/am/uptex.am
diff --git a/Build/source/texk/web2c/Makefile.in b/Build/source/texk/web2c/Makefile.in
index 2ebe898788f..d1f49dec8e6 100644
--- a/Build/source/texk/web2c/Makefile.in
+++ b/Build/source/texk/web2c/Makefile.in
@@ -96,8 +96,8 @@ host_triplet = @host@
EXTRA_PROGRAMS = $(am__EXEEXT_1) tex$(EXEEXT) mf$(EXEEXT) \
mf-nowin$(EXEEXT) mflua$(EXEEXT) mflua-nowin$(EXEEXT) \
mfluajit$(EXEEXT) mfluajit-nowin$(EXEEXT) mpost$(EXEEXT) \
- pmpost$(EXEEXT) upmpost$(EXEEXT) etex$(EXEEXT) eptex$(EXEEXT) \
- uptex$(EXEEXT) $(am__EXEEXT_2) euptex$(EXEEXT) pdftex$(EXEEXT) \
+ pmpost$(EXEEXT) upmpost$(EXEEXT) etex$(EXEEXT) uptex$(EXEEXT) \
+ $(am__EXEEXT_2) euptex$(EXEEXT) pdftex$(EXEEXT) \
ttf2afm$(EXEEXT) pdftosrc$(EXEEXT) luatex$(EXEEXT) \
luajittex$(EXEEXT) luahbtex$(EXEEXT) luajithbtex$(EXEEXT) \
xetex$(EXEEXT) $(am__EXEEXT_3) aleph$(EXEEXT) synctex$(EXEEXT) \
@@ -113,23 +113,22 @@ bin_PROGRAMS = tangle$(EXEEXT) ctangle$(EXEEXT) $(am__EXEEXT_4) \
$(am__EXEEXT_20) $(am__EXEEXT_21) $(am__EXEEXT_22) \
$(am__EXEEXT_23) $(am__EXEEXT_24) $(am__EXEEXT_25) \
$(am__EXEEXT_26) $(am__EXEEXT_27) $(am__EXEEXT_28) \
- $(am__EXEEXT_29) $(am__EXEEXT_30) $(am__EXEEXT_31)
+ $(am__EXEEXT_29) $(am__EXEEXT_30)
noinst_PROGRAMS = tangleboot$(EXEEXT) ctangleboot$(EXEEXT) \
- $(am__EXEEXT_32) $(am__EXEEXT_33) $(am__EXEEXT_34) \
- $(am__EXEEXT_35) $(am__EXEEXT_36) $(am__EXEEXT_37) \
- $(am__EXEEXT_38) $(am__EXEEXT_39) $(am__EXEEXT_40) \
- $(am__EXEEXT_41) $(am__EXEEXT_42)
-TESTS = tangle.test $(am__EXEEXT_45) ctiedir/ctie.test \
+ $(am__EXEEXT_31) $(am__EXEEXT_32) $(am__EXEEXT_33) \
+ $(am__EXEEXT_34) $(am__EXEEXT_35) $(am__EXEEXT_36) \
+ $(am__EXEEXT_37) $(am__EXEEXT_38) $(am__EXEEXT_39) \
+ $(am__EXEEXT_40) $(am__EXEEXT_41)
+TESTS = tangle.test $(am__EXEEXT_44) ctiedir/ctie.test \
cwebdir/ctwill.test cwebdir/cweave.test tiedir/tie.test \
$(am__append_6) $(am__append_16) $(am__append_25) \
$(am__append_34) $(am__append_42) $(am__append_55) \
$(am__append_56) $(am__append_58) $(am__append_62) \
- $(am__EXEEXT_46) $(am__append_68) $(am__append_73) \
- $(am__append_76) $(am__append_81) $(am__append_86) \
- $(am__append_89) $(am__append_110) $(am__append_111) \
- $(am__append_112) $(am__append_113) $(am__append_121) \
- $(am__append_123) $(am__append_125) $(am__append_152) \
- libmd5/md5.test
+ $(am__EXEEXT_45) $(am__append_68) $(am__append_71) \
+ $(am__append_76) $(am__append_81) $(am__append_84) \
+ $(am__append_105) $(am__append_106) $(am__append_107) \
+ $(am__append_108) $(am__append_116) $(am__append_118) \
+ $(am__append_120) $(am__append_143) libmd5/md5.test
@WEB_TRUE@am__append_1 = $(web_programs)
@WEB_TRUE@am__append_2 = $(web_tests)
@TEX_TRUE@am__append_3 = tex
@@ -199,150 +198,134 @@ TESTS = tangle.test $(am__EXEEXT_45) ctiedir/ctie.test \
@PTEX_TRUE@am__append_63 = ptrip.diffs
@PTEX_TRUE@am__append_64 = ptrip-clean
@PWEB_TRUE@am__append_65 = $(pweb_tests)
-@EPTEX_TRUE@am__append_66 = eptex
-@EPTEX_TRUE@@PTEX_FALSE@am__append_67 = eptex$(EXEEXT):ptex
-@EPTEX_TRUE@am__append_68 = $(eptex_tests)
-@EPTEX_TRUE@am__append_69 = eptrip.diffs
-@EPTEX_TRUE@am__append_70 = eptrip-clean
-@UPTEX_TRUE@am__append_71 = uptex
-@UPWEB_TRUE@am__append_72 = $(upweb_programs)
-@UPTEX_TRUE@am__append_73 = $(uptex_tests)
-@UPTEX_TRUE@am__append_74 = uptrip.diffs
-@UPTEX_TRUE@am__append_75 = uptrip-clean
-@UPWEB_TRUE@am__append_76 = $(upweb_tests)
-@EUPTEX_TRUE@am__append_77 = euptex
-@EUPTEX_TRUE@@UPTEX_FALSE@am__append_78 = euptex$(EXEEXT):uptex
-@EPTEX_FALSE@@EUPTEX_TRUE@am__append_79 = euptex$(EXEEXT):eptex
-@EPTEX_FALSE@@EUPTEX_TRUE@@PTEX_FALSE@am__append_80 = euptex$(EXEEXT):ptex
-@EUPTEX_TRUE@am__append_81 = $(euptex_tests)
-@EUPTEX_TRUE@am__append_82 = euptrip.diffs
-@EUPTEX_TRUE@am__append_83 = euptrip-clean
-@HITEX_TRUE@am__append_84 = hitex hishrink histretch
-@HITEX_TRUE@am__append_85 = himktables
-@HITEX_TRUE@am__append_86 = $(hitex_tests)
-@MINGW32_TRUE@am__append_87 = \
+@UPTEX_TRUE@am__append_66 = uptex
+@UPWEB_TRUE@am__append_67 = $(upweb_programs)
+@UPTEX_TRUE@am__append_68 = $(uptex_tests)
+@UPTEX_TRUE@am__append_69 = uptrip.diffs
+@UPTEX_TRUE@am__append_70 = uptrip-clean
+@UPWEB_TRUE@am__append_71 = $(upweb_tests)
+@EUPTEX_TRUE@am__append_72 = euptex
+@EUPTEX_TRUE@@UPTEX_FALSE@am__append_73 = euptex$(EXEEXT):uptex
+@EUPTEX_TRUE@am__append_74 = euptex$(EXEEXT):eptex
+@EUPTEX_TRUE@@PTEX_FALSE@am__append_75 = euptex$(EXEEXT):ptex
+@EUPTEX_TRUE@am__append_76 = $(euptex_tests)
+@EUPTEX_TRUE@am__append_77 = euptrip.diffs
+@EUPTEX_TRUE@am__append_78 = euptrip-clean
+@HITEX_TRUE@am__append_79 = hitex hishrink histretch
+@HITEX_TRUE@am__append_80 = himktables
+@HITEX_TRUE@am__append_81 = $(hitex_tests)
+@MINGW32_TRUE@am__append_82 = \
@MINGW32_TRUE@ pdftexdir/regex/regex.c \
@MINGW32_TRUE@ pdftexdir/regex/regex.h
-@PDFTEX_TRUE@am__append_88 = pdftex ttf2afm pdftosrc
-@PDFTEX_TRUE@am__append_89 = $(pdftex_tests) $(ttf2afm_tests) \
+@PDFTEX_TRUE@am__append_83 = pdftex ttf2afm pdftosrc
+@PDFTEX_TRUE@am__append_84 = $(pdftex_tests) $(ttf2afm_tests) \
@PDFTEX_TRUE@ $(pdftosrc_tests)
-@LUATEX_TRUE@am__append_90 = luatex
-@LUATEX_TRUE@@WIN32_TRUE@am__append_91 = call_luatex
-@LUATEX_TRUE@@WIN32_TRUE@am__append_92 = install-luatex-links
-@LUATEX_TRUE@@WIN32_TRUE@am__append_93 = uninstall-luatex-links
-@LUATEX_TRUE@@WIN32_FALSE@am__append_94 = luatex$(EXEEXT):texlua luatex$(EXEEXT):texluac
-@LUAHBTEX_TRUE@am__append_95 = luahbtex
-@LUAHBTEX_TRUE@@WIN32_TRUE@am__append_96 = call_luahbtex
-@LUAHBTEX_TRUE@@WIN32_TRUE@am__append_97 = install-luahbtex-links
-@LUAHBTEX_TRUE@@WIN32_TRUE@am__append_98 = uninstall-luahbtex-links
+@LUATEX_TRUE@am__append_85 = luatex
+@LUATEX_TRUE@@WIN32_TRUE@am__append_86 = call_luatex
+@LUATEX_TRUE@@WIN32_TRUE@am__append_87 = install-luatex-links
+@LUATEX_TRUE@@WIN32_TRUE@am__append_88 = uninstall-luatex-links
+@LUATEX_TRUE@@WIN32_FALSE@am__append_89 = luatex$(EXEEXT):texlua luatex$(EXEEXT):texluac
+@LUAHBTEX_TRUE@am__append_90 = luahbtex
+@LUAHBTEX_TRUE@@WIN32_TRUE@am__append_91 = call_luahbtex
+@LUAHBTEX_TRUE@@WIN32_TRUE@am__append_92 = install-luahbtex-links
+@LUAHBTEX_TRUE@@WIN32_TRUE@am__append_93 = uninstall-luahbtex-links
# keep texlua[c] as links to luatex unless luatex is not installed.
-@LUAHBTEX_TRUE@@LUATEX_FALSE@@WIN32_FALSE@am__append_99 = luahbtex$(EXEEXT):texlua luahbtex$(EXEEXT):texluac
-@LUAJITTEX_TRUE@am__append_100 = luajittex
-@LUAJITTEX_TRUE@@WIN32_TRUE@am__append_101 = call_luajittex
-@LUAJITTEX_TRUE@@WIN32_TRUE@am__append_102 = install-luajittex-links
-@LUAJITTEX_TRUE@@WIN32_TRUE@am__append_103 = uninstall-luajittex-links
-@LUAJITTEX_TRUE@@WIN32_FALSE@am__append_104 = luajittex$(EXEEXT):texluajit luajittex$(EXEEXT):texluajitc
-@LUAJITHBTEX_TRUE@am__append_105 = luajithbtex
-@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__append_106 = call_luajithbtex
-@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__append_107 = install-luajithbtex-links
-@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__append_108 = uninstall-luajithbtex-links
+@LUAHBTEX_TRUE@@LUATEX_FALSE@@WIN32_FALSE@am__append_94 = luahbtex$(EXEEXT):texlua luahbtex$(EXEEXT):texluac
+@LUAJITTEX_TRUE@am__append_95 = luajittex
+@LUAJITTEX_TRUE@@WIN32_TRUE@am__append_96 = call_luajittex
+@LUAJITTEX_TRUE@@WIN32_TRUE@am__append_97 = install-luajittex-links
+@LUAJITTEX_TRUE@@WIN32_TRUE@am__append_98 = uninstall-luajittex-links
+@LUAJITTEX_TRUE@@WIN32_FALSE@am__append_99 = luajittex$(EXEEXT):texluajit luajittex$(EXEEXT):texluajitc
+@LUAJITHBTEX_TRUE@am__append_100 = luajithbtex
+@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__append_101 = call_luajithbtex
+@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__append_102 = install-luajithbtex-links
+@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__append_103 = uninstall-luajithbtex-links
# keep texluajit[c] as links to luajittex unless luajittex is not installed.
-@LUAJITHBTEX_TRUE@@LUAJITTEX_FALSE@@WIN32_FALSE@am__append_109 = luajithbtex$(EXEEXT):texluajit luajithbtex$(EXEEXT):texluajitc
-@LUATEX_TRUE@am__append_110 = $(luatex_tests)
-@LUAHBTEX_TRUE@am__append_111 = $(luahbtex_tests)
-@LUAJITTEX_TRUE@am__append_112 = $(luajittex_tests)
-@LUAJITHBTEX_TRUE@am__append_113 = $(luajithbtex_tests)
-@XETEX_TRUE@am__append_114 = xetex
-@XETEX_MACOSX_TRUE@am__append_115 = -DXETEX_MAC
-@XETEX_MACOSX_TRUE@am__append_116 = -std=c++11
-@XETEX_MACOSX_FALSE@am__append_117 = $(FONTCONFIG_INCLUDES)
-@XETEX_MACOSX_FALSE@am__append_118 = $(FONTCONFIG_LIBS)
-@XETEX_MACOSX_TRUE@am__append_119 = \
+@LUAJITHBTEX_TRUE@@LUAJITTEX_FALSE@@WIN32_FALSE@am__append_104 = luajithbtex$(EXEEXT):texluajit luajithbtex$(EXEEXT):texluajitc
+@LUATEX_TRUE@am__append_105 = $(luatex_tests)
+@LUAHBTEX_TRUE@am__append_106 = $(luahbtex_tests)
+@LUAJITTEX_TRUE@am__append_107 = $(luajittex_tests)
+@LUAJITHBTEX_TRUE@am__append_108 = $(luajithbtex_tests)
+@XETEX_TRUE@am__append_109 = xetex
+@XETEX_MACOSX_TRUE@am__append_110 = -DXETEX_MAC
+@XETEX_MACOSX_TRUE@am__append_111 = -std=c++11
+@XETEX_MACOSX_FALSE@am__append_112 = $(FONTCONFIG_INCLUDES)
+@XETEX_MACOSX_FALSE@am__append_113 = $(FONTCONFIG_LIBS)
+@XETEX_MACOSX_TRUE@am__append_114 = \
@XETEX_MACOSX_TRUE@ xetexdir/XeTeXFontInst_Mac.cpp \
@XETEX_MACOSX_TRUE@ xetexdir/XeTeXFontInst_Mac.h \
@XETEX_MACOSX_TRUE@ xetexdir/XeTeXFontMgr_Mac.mm \
@XETEX_MACOSX_TRUE@ xetexdir/XeTeXFontMgr_Mac.h \
@XETEX_MACOSX_TRUE@ xetexdir/XeTeX_mac.c
-@XETEX_MACOSX_FALSE@am__append_120 = \
+@XETEX_MACOSX_FALSE@am__append_115 = \
@XETEX_MACOSX_FALSE@ xetexdir/XeTeXFontMgr_FC.cpp \
@XETEX_MACOSX_FALSE@ xetexdir/XeTeXFontMgr_FC.h
-@XETEX_TRUE@am__append_121 = $(xetex_tests)
-@OTANGLE_TRUE@am__append_122 = $(omegaware_programs)
-@OTANGLE_TRUE@am__append_123 = $(OTANGLE_tests) $(OMFONTS_tests)
-@ALEPH_TRUE@am__append_124 = aleph
-@ALEPH_TRUE@am__append_125 = $(aleph_tests)
-@SYNCTEX_TRUE@am__append_126 = synctex
-@SYNCTEX_TRUE@am__append_127 = $(LTLIBSYNCTEX)
-@SYNCTEX_TRUE@am__append_128 = $(LIBSYNCTEX)
-@MINGW32_TRUE@am__append_129 = $(KPATHSEA_INCLUDES)
-@MINGW32_TRUE@am__append_130 = -lshlwapi $(KPATHSEA_LIBS)
-@MINGW32_TRUE@am__append_131 = -lshlwapi
-@TEX_SYNCTEX_TRUE@am__append_132 = -I$(srcdir)/synctexdir \
+@XETEX_TRUE@am__append_116 = $(xetex_tests)
+@OTANGLE_TRUE@am__append_117 = $(omegaware_programs)
+@OTANGLE_TRUE@am__append_118 = $(OTANGLE_tests) $(OMFONTS_tests)
+@ALEPH_TRUE@am__append_119 = aleph
+@ALEPH_TRUE@am__append_120 = $(aleph_tests)
+@SYNCTEX_TRUE@am__append_121 = synctex
+@SYNCTEX_TRUE@am__append_122 = $(LTLIBSYNCTEX)
+@SYNCTEX_TRUE@am__append_123 = $(LIBSYNCTEX)
+@MINGW32_TRUE@am__append_124 = $(KPATHSEA_INCLUDES)
+@MINGW32_TRUE@am__append_125 = -lshlwapi $(KPATHSEA_LIBS)
+@MINGW32_TRUE@am__append_126 = -lshlwapi
+@TEX_SYNCTEX_TRUE@am__append_127 = -I$(srcdir)/synctexdir \
@TEX_SYNCTEX_TRUE@ $(ZLIB_INCLUDES) -D__SyncTeX__ \
@TEX_SYNCTEX_TRUE@ -DSYNCTEX_ENGINE_H=\"synctex-tex.h\"
-@TEX_SYNCTEX_TRUE@am__append_133 = $(ZLIB_LIBS)
-@TEX_SYNCTEX_TRUE@am__append_134 = $(ZLIB_DEPEND)
-@TEX_SYNCTEX_TRUE@am__append_135 = \
+@TEX_SYNCTEX_TRUE@am__append_128 = $(ZLIB_LIBS)
+@TEX_SYNCTEX_TRUE@am__append_129 = $(ZLIB_DEPEND)
+@TEX_SYNCTEX_TRUE@am__append_130 = \
@TEX_SYNCTEX_TRUE@ synctexdir/synctex.c \
@TEX_SYNCTEX_TRUE@ synctexdir/synctex.h \
@TEX_SYNCTEX_TRUE@ synctexdir/synctex-common.h \
@TEX_SYNCTEX_TRUE@ synctexdir/synctex-tex.h
-@ETEX_SYNCTEX_TRUE@am__append_136 = -I$(srcdir)/synctexdir \
+@ETEX_SYNCTEX_TRUE@am__append_131 = -I$(srcdir)/synctexdir \
@ETEX_SYNCTEX_TRUE@ $(ZLIB_INCLUDES) -D__SyncTeX__ \
@ETEX_SYNCTEX_TRUE@ -DSYNCTEX_ENGINE_H=\"synctex-etex.h\"
-@ETEX_SYNCTEX_TRUE@am__append_137 = $(ZLIB_LIBS)
-@ETEX_SYNCTEX_TRUE@am__append_138 = $(ZLIB_DEPEND)
-@ETEX_SYNCTEX_TRUE@am__append_139 = \
+@ETEX_SYNCTEX_TRUE@am__append_132 = $(ZLIB_LIBS)
+@ETEX_SYNCTEX_TRUE@am__append_133 = $(ZLIB_DEPEND)
+@ETEX_SYNCTEX_TRUE@am__append_134 = \
@ETEX_SYNCTEX_TRUE@ synctexdir/synctex.c \
@ETEX_SYNCTEX_TRUE@ synctexdir/synctex.h \
@ETEX_SYNCTEX_TRUE@ synctexdir/synctex-common.h \
@ETEX_SYNCTEX_TRUE@ synctexdir/synctex-etex.h
-@EPTEX_SYNCTEX_TRUE@am__append_140 = -I$(srcdir)/synctexdir \
-@EPTEX_SYNCTEX_TRUE@ $(ZLIB_INCLUDES) -D__SyncTeX__ \
-@EPTEX_SYNCTEX_TRUE@ -DSYNCTEX_ENGINE_H=\"synctex-eptex.h\"
-@EPTEX_SYNCTEX_TRUE@am__append_141 = $(ZLIB_LIBS)
-@EPTEX_SYNCTEX_TRUE@am__append_142 = $(ZLIB_DEPEND)
-@EPTEX_SYNCTEX_TRUE@am__append_143 = \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex.c \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex.h \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-common.h \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-eptex.h
-
-@EUPTEX_SYNCTEX_TRUE@am__append_144 = -I$(srcdir)/synctexdir \
+@EUPTEX_SYNCTEX_TRUE@am__append_135 = -I$(srcdir)/synctexdir \
@EUPTEX_SYNCTEX_TRUE@ $(ZLIB_INCLUDES) -D__SyncTeX__ \
@EUPTEX_SYNCTEX_TRUE@ -DSYNCTEX_ENGINE_H=\"synctex-euptex.h\"
-@EUPTEX_SYNCTEX_TRUE@am__append_145 = $(ZLIB_LIBS)
-@EUPTEX_SYNCTEX_TRUE@am__append_146 = $(ZLIB_DEPEND)
-@EUPTEX_SYNCTEX_TRUE@am__append_147 = \
+@EUPTEX_SYNCTEX_TRUE@am__append_136 = $(ZLIB_LIBS)
+@EUPTEX_SYNCTEX_TRUE@am__append_137 = $(ZLIB_DEPEND)
+@EUPTEX_SYNCTEX_TRUE@am__append_138 = \
@EUPTEX_SYNCTEX_TRUE@ synctexdir/synctex.c \
@EUPTEX_SYNCTEX_TRUE@ synctexdir/synctex.h \
@EUPTEX_SYNCTEX_TRUE@ synctexdir/synctex-common.h \
@EUPTEX_SYNCTEX_TRUE@ synctexdir/synctex-euptex.h
-@PDFTEX_SYNCTEX_TRUE@am__append_148 = -I$(srcdir)/synctexdir \
+@PDFTEX_SYNCTEX_TRUE@am__append_139 = -I$(srcdir)/synctexdir \
@PDFTEX_SYNCTEX_TRUE@ -D__SyncTeX__ \
@PDFTEX_SYNCTEX_TRUE@ -DSYNCTEX_ENGINE_H=\"synctex-pdftex.h\"
-@PDFTEX_SYNCTEX_TRUE@am__append_149 = \
+@PDFTEX_SYNCTEX_TRUE@am__append_140 = \
@PDFTEX_SYNCTEX_TRUE@ synctexdir/synctex.c \
@PDFTEX_SYNCTEX_TRUE@ synctexdir/synctex.h \
@PDFTEX_SYNCTEX_TRUE@ synctexdir/synctex-common.h \
@PDFTEX_SYNCTEX_TRUE@ synctexdir/synctex-pdftex.h
-@XETEX_SYNCTEX_TRUE@am__append_150 = -I$(srcdir)/synctexdir \
+@XETEX_SYNCTEX_TRUE@am__append_141 = -I$(srcdir)/synctexdir \
@XETEX_SYNCTEX_TRUE@ -D__SyncTeX__ \
@XETEX_SYNCTEX_TRUE@ -DSYNCTEX_ENGINE_H=\"synctex-xetex.h\"
-@XETEX_SYNCTEX_TRUE@am__append_151 = \
+@XETEX_SYNCTEX_TRUE@am__append_142 = \
@XETEX_SYNCTEX_TRUE@ synctexdir/synctex.c \
@XETEX_SYNCTEX_TRUE@ synctexdir/synctex.h \
@XETEX_SYNCTEX_TRUE@ synctexdir/synctex-common.h \
@XETEX_SYNCTEX_TRUE@ synctexdir/synctex-xetex.h
-@SYNCTEX_TRUE@am__append_152 = $(synctex_tests)
+@SYNCTEX_TRUE@am__append_143 = $(synctex_tests)
subdir = .
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/web2c-disable.m4 \
@@ -427,37 +410,36 @@ am__EXEEXT_3 = odvicopy$(EXEEXT) odvitype$(EXEEXT) otangle$(EXEEXT) \
@UPMP_TRUE@am__EXEEXT_15 = upmpost$(EXEEXT)
@ETEX_TRUE@am__EXEEXT_16 = etex$(EXEEXT)
@PTEX_TRUE@am__EXEEXT_17 = ptex$(EXEEXT)
-@EPTEX_TRUE@am__EXEEXT_18 = eptex$(EXEEXT)
-@UPTEX_TRUE@am__EXEEXT_19 = uptex$(EXEEXT)
-@UPWEB_TRUE@am__EXEEXT_20 = $(am__EXEEXT_2)
-@EUPTEX_TRUE@am__EXEEXT_21 = euptex$(EXEEXT)
-@HITEX_TRUE@am__EXEEXT_22 = hitex$(EXEEXT) hishrink$(EXEEXT) \
+@UPTEX_TRUE@am__EXEEXT_18 = uptex$(EXEEXT)
+@UPWEB_TRUE@am__EXEEXT_19 = $(am__EXEEXT_2)
+@EUPTEX_TRUE@am__EXEEXT_20 = euptex$(EXEEXT)
+@HITEX_TRUE@am__EXEEXT_21 = hitex$(EXEEXT) hishrink$(EXEEXT) \
@HITEX_TRUE@ histretch$(EXEEXT)
-@PDFTEX_TRUE@am__EXEEXT_23 = pdftex$(EXEEXT) ttf2afm$(EXEEXT) \
+@PDFTEX_TRUE@am__EXEEXT_22 = pdftex$(EXEEXT) ttf2afm$(EXEEXT) \
@PDFTEX_TRUE@ pdftosrc$(EXEEXT)
-@LUATEX_TRUE@am__EXEEXT_24 = luatex$(EXEEXT)
-@LUAHBTEX_TRUE@am__EXEEXT_25 = luahbtex$(EXEEXT)
-@LUAJITTEX_TRUE@am__EXEEXT_26 = luajittex$(EXEEXT)
-@LUAJITHBTEX_TRUE@am__EXEEXT_27 = luajithbtex$(EXEEXT)
-@XETEX_TRUE@am__EXEEXT_28 = xetex$(EXEEXT)
-@OTANGLE_TRUE@am__EXEEXT_29 = $(am__EXEEXT_3)
-@ALEPH_TRUE@am__EXEEXT_30 = aleph$(EXEEXT)
-@SYNCTEX_TRUE@am__EXEEXT_31 = synctex$(EXEEXT)
+@LUATEX_TRUE@am__EXEEXT_23 = luatex$(EXEEXT)
+@LUAHBTEX_TRUE@am__EXEEXT_24 = luahbtex$(EXEEXT)
+@LUAJITTEX_TRUE@am__EXEEXT_25 = luajittex$(EXEEXT)
+@LUAJITHBTEX_TRUE@am__EXEEXT_26 = luajithbtex$(EXEEXT)
+@XETEX_TRUE@am__EXEEXT_27 = xetex$(EXEEXT)
+@OTANGLE_TRUE@am__EXEEXT_28 = $(am__EXEEXT_3)
+@ALEPH_TRUE@am__EXEEXT_29 = aleph$(EXEEXT)
+@SYNCTEX_TRUE@am__EXEEXT_30 = synctex$(EXEEXT)
am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(libdir)" \
"$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" \
"$(DESTDIR)$(man1dir)" "$(DESTDIR)$(man5dir)" \
"$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(syncincludedir)"
-@MF_TRUE@@WIN32_TRUE@am__EXEEXT_32 = call_mf$(EXEEXT)
-@MFLUA_TRUE@@WIN32_TRUE@am__EXEEXT_33 = call_mflua$(EXEEXT)
-@MFLUAJIT_TRUE@@WIN32_TRUE@am__EXEEXT_34 = call_mfluajit$(EXEEXT)
-@MP_TRUE@@WIN32_TRUE@am__EXEEXT_35 = call_mpost$(EXEEXT)
-@PMP_TRUE@@WIN32_TRUE@am__EXEEXT_36 = call_pmpost$(EXEEXT)
-@UPMP_TRUE@@WIN32_TRUE@am__EXEEXT_37 = call_upmpost$(EXEEXT)
-@HITEX_TRUE@am__EXEEXT_38 = himktables$(EXEEXT)
-@LUATEX_TRUE@@WIN32_TRUE@am__EXEEXT_39 = call_luatex$(EXEEXT)
-@LUAHBTEX_TRUE@@WIN32_TRUE@am__EXEEXT_40 = call_luahbtex$(EXEEXT)
-@LUAJITTEX_TRUE@@WIN32_TRUE@am__EXEEXT_41 = call_luajittex$(EXEEXT)
-@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__EXEEXT_42 = \
+@MF_TRUE@@WIN32_TRUE@am__EXEEXT_31 = call_mf$(EXEEXT)
+@MFLUA_TRUE@@WIN32_TRUE@am__EXEEXT_32 = call_mflua$(EXEEXT)
+@MFLUAJIT_TRUE@@WIN32_TRUE@am__EXEEXT_33 = call_mfluajit$(EXEEXT)
+@MP_TRUE@@WIN32_TRUE@am__EXEEXT_34 = call_mpost$(EXEEXT)
+@PMP_TRUE@@WIN32_TRUE@am__EXEEXT_35 = call_pmpost$(EXEEXT)
+@UPMP_TRUE@@WIN32_TRUE@am__EXEEXT_36 = call_upmpost$(EXEEXT)
+@HITEX_TRUE@am__EXEEXT_37 = himktables$(EXEEXT)
+@LUATEX_TRUE@@WIN32_TRUE@am__EXEEXT_38 = call_luatex$(EXEEXT)
+@LUAHBTEX_TRUE@@WIN32_TRUE@am__EXEEXT_39 = call_luahbtex$(EXEEXT)
+@LUAJITTEX_TRUE@@WIN32_TRUE@am__EXEEXT_40 = call_luajittex$(EXEEXT)
+@LUAJITHBTEX_TRUE@@WIN32_TRUE@am__EXEEXT_41 = \
@LUAJITHBTEX_TRUE@@WIN32_TRUE@ call_luajithbtex$(EXEEXT)
PROGRAMS = $(bin_PROGRAMS) $(noinst_PROGRAMS)
am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
@@ -1322,40 +1304,28 @@ nodist_dvitype_OBJECTS = dvitype.$(OBJEXT)
dvitype_OBJECTS = $(nodist_dvitype_OBJECTS)
dvitype_LDADD = $(LDADD)
dvitype_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
-am__dist_eptex_SOURCES_DIST = eptexdir/eptexextra.c \
- eptexdir/eptexextra.h eptexdir/eptex_version.h \
- synctexdir/synctex.c synctexdir/synctex.h \
- synctexdir/synctex-common.h synctexdir/synctex-eptex.h
-@EPTEX_SYNCTEX_TRUE@am__objects_32 = \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/eptex-synctex.$(OBJEXT)
-dist_eptex_OBJECTS = eptexdir/eptex-eptexextra.$(OBJEXT) \
- $(am__objects_32)
-am__objects_33 = eptex-eptexini.$(OBJEXT) eptex-eptex0.$(OBJEXT)
-nodist_eptex_OBJECTS = $(am__objects_33) eptex-eptex-pool.$(OBJEXT)
-eptex_OBJECTS = $(dist_eptex_OBJECTS) $(nodist_eptex_OBJECTS)
-@EPTEX_SYNCTEX_TRUE@am__DEPENDENCIES_3 = $(am__DEPENDENCIES_1)
am__dist_etex_SOURCES_DIST = etexdir/etexextra.c etexdir/etexextra.h \
etexdir/etex_version.h synctexdir/synctex.c \
synctexdir/synctex.h synctexdir/synctex-common.h \
synctexdir/synctex-etex.h
-@ETEX_SYNCTEX_TRUE@am__objects_34 = synctexdir/etex-synctex.$(OBJEXT)
-dist_etex_OBJECTS = etexdir/etex-etexextra.$(OBJEXT) $(am__objects_34)
-am__objects_35 = etex-etexini.$(OBJEXT) etex-etex0.$(OBJEXT)
-nodist_etex_OBJECTS = $(am__objects_35) etex-etex-pool.$(OBJEXT)
+@ETEX_SYNCTEX_TRUE@am__objects_32 = synctexdir/etex-synctex.$(OBJEXT)
+dist_etex_OBJECTS = etexdir/etex-etexextra.$(OBJEXT) $(am__objects_32)
+am__objects_33 = etex-etexini.$(OBJEXT) etex-etex0.$(OBJEXT)
+nodist_etex_OBJECTS = $(am__objects_33) etex-etex-pool.$(OBJEXT)
etex_OBJECTS = $(dist_etex_OBJECTS) $(nodist_etex_OBJECTS)
-@ETEX_SYNCTEX_TRUE@am__DEPENDENCIES_4 = $(am__DEPENDENCIES_1)
+@ETEX_SYNCTEX_TRUE@am__DEPENDENCIES_3 = $(am__DEPENDENCIES_1)
am__dist_euptex_SOURCES_DIST = euptexdir/euptexextra.c \
euptexdir/euptexextra.h synctexdir/synctex.c \
synctexdir/synctex.h synctexdir/synctex-common.h \
synctexdir/synctex-euptex.h
-@EUPTEX_SYNCTEX_TRUE@am__objects_36 = \
+@EUPTEX_SYNCTEX_TRUE@am__objects_34 = \
@EUPTEX_SYNCTEX_TRUE@ synctexdir/euptex-synctex.$(OBJEXT)
dist_euptex_OBJECTS = euptexdir/euptex-euptexextra.$(OBJEXT) \
- $(am__objects_36)
-am__objects_37 = euptex-euptexini.$(OBJEXT) euptex-euptex0.$(OBJEXT)
-nodist_euptex_OBJECTS = $(am__objects_37) euptex-euptex-pool.$(OBJEXT)
+ $(am__objects_34)
+am__objects_35 = euptex-euptexini.$(OBJEXT) euptex-euptex0.$(OBJEXT)
+nodist_euptex_OBJECTS = $(am__objects_35) euptex-euptex-pool.$(OBJEXT)
euptex_OBJECTS = $(dist_euptex_OBJECTS) $(nodist_euptex_OBJECTS)
-@EUPTEX_SYNCTEX_TRUE@am__DEPENDENCIES_5 = $(am__DEPENDENCIES_1)
+@EUPTEX_SYNCTEX_TRUE@am__DEPENDENCIES_4 = $(am__DEPENDENCIES_1)
am_gftodvi_OBJECTS =
nodist_gftodvi_OBJECTS = gftodvi.$(OBJEXT)
gftodvi_OBJECTS = $(am_gftodvi_OBJECTS) $(nodist_gftodvi_OBJECTS)
@@ -1381,19 +1351,19 @@ hishrink_OBJECTS = $(nodist_hishrink_OBJECTS)
nodist_histretch_OBJECTS = histretch-hitables.$(OBJEXT) \
histretch-histretch.$(OBJEXT)
histretch_OBJECTS = $(nodist_histretch_OBJECTS)
-am__objects_38 = hitex-hitex.$(OBJEXT)
+am__objects_36 = hitex-hitex.$(OBJEXT)
nodist_hitex_OBJECTS = hitex-hitables.$(OBJEXT) hitex-hiput.$(OBJEXT) \
- $(am__objects_38)
+ $(am__objects_36)
hitex_OBJECTS = $(nodist_hitex_OBJECTS)
nodist_initex_OBJECTS = initex-callexe.$(OBJEXT)
initex_OBJECTS = $(nodist_initex_OBJECTS)
initex_DEPENDENCIES =
-am__objects_39 = luatexdir/luahbtex-luatex.$(OBJEXT) \
+am__objects_37 = luatexdir/luahbtex-luatex.$(OBJEXT) \
mplibdir/luahbtex-lmplib.$(OBJEXT)
-nodist_luahbtex_OBJECTS = $(am__objects_39)
+nodist_luahbtex_OBJECTS = $(am__objects_37)
luahbtex_OBJECTS = $(nodist_luahbtex_OBJECTS)
-am__DEPENDENCIES_6 = $(am__DEPENDENCIES_1)
-am__DEPENDENCIES_7 = libmplibcore.a $(am__DEPENDENCIES_1) \
+am__DEPENDENCIES_5 = $(am__DEPENDENCIES_1)
+am__DEPENDENCIES_6 = libmplibcore.a $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_2) libmputil.a \
@@ -1401,27 +1371,27 @@ am__DEPENDENCIES_7 = libmplibcore.a $(am__DEPENDENCIES_1) \
luahbtex_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CXXLD) $(luahbtex_CXXFLAGS) \
$(CXXFLAGS) $(luahbtex_LDFLAGS) $(LDFLAGS) -o $@
-am__objects_40 = luatexdir/luajithbtex-luatex.$(OBJEXT) \
+am__objects_38 = luatexdir/luajithbtex-luatex.$(OBJEXT) \
mplibdir/luajithbtex-lmplib.$(OBJEXT)
-nodist_luajithbtex_OBJECTS = $(am__objects_40)
+nodist_luajithbtex_OBJECTS = $(am__objects_38)
luajithbtex_OBJECTS = $(nodist_luajithbtex_OBJECTS)
luajithbtex_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CXXLD) $(luajithbtex_CXXFLAGS) \
$(CXXFLAGS) $(luajithbtex_LDFLAGS) $(LDFLAGS) -o $@
-am__objects_41 = luatexdir/luajittex-luatex.$(OBJEXT) \
+am__objects_39 = luatexdir/luajittex-luatex.$(OBJEXT) \
mplibdir/luajittex-lmplib.$(OBJEXT)
-nodist_luajittex_OBJECTS = $(am__objects_41)
+nodist_luajittex_OBJECTS = $(am__objects_39)
luajittex_OBJECTS = $(nodist_luajittex_OBJECTS)
-am__DEPENDENCIES_8 = libmplibcore.a $(am__DEPENDENCIES_1) \
+am__DEPENDENCIES_7 = libmplibcore.a $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_2) libmputil.a \
libunilib.a libmd5.a $(am__DEPENDENCIES_1)
luajittex_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
$(luajittex_LDFLAGS) $(LDFLAGS) -o $@
-am__objects_42 = luatexdir/luatex-luatex.$(OBJEXT) \
+am__objects_40 = luatexdir/luatex-luatex.$(OBJEXT) \
mplibdir/luatex-lmplib.$(OBJEXT)
-nodist_luatex_OBJECTS = $(am__objects_42)
+nodist_luatex_OBJECTS = $(am__objects_40)
luatex_OBJECTS = $(nodist_luatex_OBJECTS)
luatex_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
@@ -1431,12 +1401,12 @@ md5main_OBJECTS = $(am_md5main_OBJECTS)
md5main_DEPENDENCIES = libmd5.a
dist_mf_OBJECTS = mf-mfextra.$(OBJEXT)
mf_OBJECTS = $(dist_mf_OBJECTS)
-@WIN32_FALSE@am__DEPENDENCIES_9 = $(am__DEPENDENCIES_1) \
+@WIN32_FALSE@am__DEPENDENCIES_8 = $(am__DEPENDENCIES_1) \
@WIN32_FALSE@ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
@WIN32_FALSE@ $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
@WIN32_FALSE@ $(am__DEPENDENCIES_1)
mf_DEPENDENCIES = libmf.a $(am__DEPENDENCIES_2) $(windowlib) \
- $(am__DEPENDENCIES_9)
+ $(am__DEPENDENCIES_8)
dist_mf_nowin_OBJECTS = mf_nowin-mfextra.$(OBJEXT)
mf_nowin_OBJECTS = $(dist_mf_nowin_OBJECTS)
mf_nowin_DEPENDENCIES = libmf.a $(am__DEPENDENCIES_2) $(windowlib)
@@ -1444,17 +1414,17 @@ dist_mflua_OBJECTS = mfluadir/mflua-mfluaextra.$(OBJEXT)
mflua_OBJECTS = $(dist_mflua_OBJECTS)
mflua_DEPENDENCIES = libmflua.a libmfluaotfcc.a libmfluapotrace.a \
libmflualpeg.a $(am__DEPENDENCIES_2) $(windowlib) \
- $(am__DEPENDENCIES_9) $(am__DEPENDENCIES_6) \
+ $(am__DEPENDENCIES_8) $(am__DEPENDENCIES_5) \
$(am__DEPENDENCIES_1)
mflua_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
$(mflua_LDFLAGS) $(LDFLAGS) -o $@
-am__objects_43 = mfluadir/mflua_nowin-mfluaextra.$(OBJEXT)
-nodist_mflua_nowin_OBJECTS = $(am__objects_43)
+am__objects_41 = mfluadir/mflua_nowin-mfluaextra.$(OBJEXT)
+nodist_mflua_nowin_OBJECTS = $(am__objects_41)
mflua_nowin_OBJECTS = $(nodist_mflua_nowin_OBJECTS)
mflua_nowin_DEPENDENCIES = libmflua.a libmfluaotfcc.a \
libmfluapotrace.a libmflualpeg.a $(am__DEPENDENCIES_2) \
- $(windowlib) $(am__DEPENDENCIES_6) $(am__DEPENDENCIES_1)
+ $(windowlib) $(am__DEPENDENCIES_5) $(am__DEPENDENCIES_1)
mflua_nowin_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
$(mflua_nowin_LDFLAGS) $(LDFLAGS) -o $@
@@ -1462,13 +1432,13 @@ dist_mfluajit_OBJECTS = mfluajitdir/mfluajit-mfluajitextra.$(OBJEXT)
mfluajit_OBJECTS = $(dist_mfluajit_OBJECTS)
mfluajit_DEPENDENCIES = libmfluajit.a libmfluaotfcc.a \
libmfluapotrace.a libmfluajitlpeg.a $(am__DEPENDENCIES_2) \
- $(windowlib) $(am__DEPENDENCIES_9) $(am__DEPENDENCIES_1) \
+ $(windowlib) $(am__DEPENDENCIES_8) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1)
mfluajit_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \
$(mfluajit_LDFLAGS) $(LDFLAGS) -o $@
-am__objects_44 = mfluajitdir/mfluajit_nowin-mfluajitextra.$(OBJEXT)
-nodist_mfluajit_nowin_OBJECTS = $(am__objects_44)
+am__objects_42 = mfluajitdir/mfluajit_nowin-mfluajitextra.$(OBJEXT)
+nodist_mfluajit_nowin_OBJECTS = $(am__objects_42)
mfluajit_nowin_OBJECTS = $(nodist_mfluajit_nowin_OBJECTS)
mfluajit_nowin_DEPENDENCIES = libmfluajit.a libmfluaotfcc.a \
libmfluapotrace.a libmfluajitlpeg.a $(am__DEPENDENCIES_2) \
@@ -1481,8 +1451,8 @@ nodist_mft_OBJECTS = mft.$(OBJEXT)
mft_OBJECTS = $(nodist_mft_OBJECTS)
mft_LDADD = $(LDADD)
mft_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
-am__objects_45 = mpost-mpxout.$(OBJEXT)
-nodist_mpost_OBJECTS = mpost-mpost.$(OBJEXT) $(am__objects_45)
+am__objects_43 = mpost-mpxout.$(OBJEXT)
+nodist_mpost_OBJECTS = mpost-mpost.$(OBJEXT) $(am__objects_43)
mpost_OBJECTS = $(nodist_mpost_OBJECTS)
mpost_DEPENDENCIES = libmplibcore.a libmplibextramath.a \
libmplibbackends.a $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
@@ -1510,14 +1480,14 @@ am__dist_pdftex_SOURCES_DIST = pdftexdir/pdftexextra.c \
pdftexdir/etex_version.h synctexdir/synctex.c \
synctexdir/synctex.h synctexdir/synctex-common.h \
synctexdir/synctex-pdftex.h
-@PDFTEX_SYNCTEX_TRUE@am__objects_46 = \
+@PDFTEX_SYNCTEX_TRUE@am__objects_44 = \
@PDFTEX_SYNCTEX_TRUE@ synctexdir/pdftex-synctex.$(OBJEXT)
dist_pdftex_OBJECTS = pdftexdir/pdftex-pdftexextra.$(OBJEXT) \
- $(am__objects_46)
-am__objects_47 = pdftex-pdftexini.$(OBJEXT) pdftex-pdftex0.$(OBJEXT)
-nodist_pdftex_OBJECTS = $(am__objects_47) pdftex-pdftex-pool.$(OBJEXT)
+ $(am__objects_44)
+am__objects_45 = pdftex-pdftexini.$(OBJEXT) pdftex-pdftex0.$(OBJEXT)
+nodist_pdftex_OBJECTS = $(am__objects_45) pdftex-pdftex-pool.$(OBJEXT)
pdftex_OBJECTS = $(dist_pdftex_OBJECTS) $(nodist_pdftex_OBJECTS)
-am__DEPENDENCIES_10 = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
+am__DEPENDENCIES_9 = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) libmd5.a
pdftex_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CXXLD) $(pdftex_CXXFLAGS) \
@@ -1539,22 +1509,22 @@ nodist_pltotf_OBJECTS = pltotf.$(OBJEXT)
pltotf_OBJECTS = $(nodist_pltotf_OBJECTS)
pltotf_LDADD = $(LDADD)
pltotf_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
-am__objects_48 = pmpost-pmp.$(OBJEXT)
-am__objects_49 = pmpost-pmpmath.$(OBJEXT)
-am__objects_50 = pmpost-pmpmathinterval.$(OBJEXT)
-am__objects_51 = pmpost-pmpmathbinary.$(OBJEXT)
-am__objects_52 = pmpost-pmpmathdecimal.$(OBJEXT)
-am__objects_53 = pmpost-pmpmathdouble.$(OBJEXT)
-am__objects_54 = pmpost-pmpstrings.$(OBJEXT)
-am__objects_55 = pmpost-pmpxout.$(OBJEXT)
-am__objects_56 = pmpost-ppngout.$(OBJEXT)
-am__objects_57 = pmpost-ppsout.$(OBJEXT)
-am__objects_58 = pmpost-psvgout.$(OBJEXT)
-nodist_pmpost_OBJECTS = $(am__objects_48) $(am__objects_49) \
- $(am__objects_50) $(am__objects_51) $(am__objects_52) \
- $(am__objects_53) pmpost-pmpost.$(OBJEXT) $(am__objects_54) \
- $(am__objects_55) $(am__objects_56) $(am__objects_57) \
- $(am__objects_58) pmpost-ptfmin.$(OBJEXT)
+am__objects_46 = pmpost-pmp.$(OBJEXT)
+am__objects_47 = pmpost-pmpmath.$(OBJEXT)
+am__objects_48 = pmpost-pmpmathinterval.$(OBJEXT)
+am__objects_49 = pmpost-pmpmathbinary.$(OBJEXT)
+am__objects_50 = pmpost-pmpmathdecimal.$(OBJEXT)
+am__objects_51 = pmpost-pmpmathdouble.$(OBJEXT)
+am__objects_52 = pmpost-pmpstrings.$(OBJEXT)
+am__objects_53 = pmpost-pmpxout.$(OBJEXT)
+am__objects_54 = pmpost-ppngout.$(OBJEXT)
+am__objects_55 = pmpost-ppsout.$(OBJEXT)
+am__objects_56 = pmpost-psvgout.$(OBJEXT)
+nodist_pmpost_OBJECTS = $(am__objects_46) $(am__objects_47) \
+ $(am__objects_48) $(am__objects_49) $(am__objects_50) \
+ $(am__objects_51) pmpost-pmpost.$(OBJEXT) $(am__objects_52) \
+ $(am__objects_53) $(am__objects_54) $(am__objects_55) \
+ $(am__objects_56) pmpost-ptfmin.$(OBJEXT)
pmpost_OBJECTS = $(nodist_pmpost_OBJECTS)
pmpost_DEPENDENCIES = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
@@ -1566,17 +1536,17 @@ pooltype_OBJECTS = $(nodist_pooltype_OBJECTS)
pooltype_LDADD = $(LDADD)
pooltype_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
dist_ptex_OBJECTS = ptexdir/ptex-ptexextra.$(OBJEXT)
-am__objects_59 = ptex-ptexini.$(OBJEXT) ptex-ptex0.$(OBJEXT)
-nodist_ptex_OBJECTS = $(am__objects_59) ptex-ptex-pool.$(OBJEXT)
+am__objects_57 = ptex-ptexini.$(OBJEXT) ptex-ptex0.$(OBJEXT)
+nodist_ptex_OBJECTS = $(am__objects_57) ptex-ptex-pool.$(OBJEXT)
ptex_OBJECTS = $(dist_ptex_OBJECTS) $(nodist_ptex_OBJECTS)
-am__DEPENDENCIES_11 = libkanji.a $(pproglib) $(am__DEPENDENCIES_1) \
+am__DEPENDENCIES_10 = libkanji.a $(pproglib) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_2) $(am__DEPENDENCIES_1)
am_synctex_OBJECTS = synctexdir/synctex-synctex_main.$(OBJEXT)
synctex_OBJECTS = $(am_synctex_OBJECTS)
-am__DEPENDENCIES_12 = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1)
-@MINGW32_TRUE@am__DEPENDENCIES_13 = $(am__DEPENDENCIES_1)
-synctex_DEPENDENCIES = $(am__DEPENDENCIES_12) $(am__DEPENDENCIES_1) \
- $(am__DEPENDENCIES_13)
+am__DEPENDENCIES_11 = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1)
+@MINGW32_TRUE@am__DEPENDENCIES_12 = $(am__DEPENDENCIES_1)
+synctex_DEPENDENCIES = $(am__DEPENDENCIES_11) $(am__DEPENDENCIES_1) \
+ $(am__DEPENDENCIES_12)
nodist_tangle_OBJECTS = tangle.$(OBJEXT)
tangle_OBJECTS = $(nodist_tangle_OBJECTS)
tangle_LDADD = $(LDADD)
@@ -1587,14 +1557,14 @@ tangleboot_LDADD = $(LDADD)
am__dist_tex_SOURCES_DIST = texextra.c synctexdir/synctex.c \
synctexdir/synctex.h synctexdir/synctex-common.h \
synctexdir/synctex-tex.h
-@TEX_SYNCTEX_TRUE@am__objects_60 = synctexdir/tex-synctex.$(OBJEXT)
-dist_tex_OBJECTS = tex-texextra.$(OBJEXT) $(am__objects_60)
-am__objects_61 = tex-texini.$(OBJEXT) tex-tex0.$(OBJEXT)
-nodist_tex_OBJECTS = $(am__objects_61) tex-tex-pool.$(OBJEXT)
+@TEX_SYNCTEX_TRUE@am__objects_58 = synctexdir/tex-synctex.$(OBJEXT)
+dist_tex_OBJECTS = tex-texextra.$(OBJEXT) $(am__objects_58)
+am__objects_59 = tex-texini.$(OBJEXT) tex-tex0.$(OBJEXT)
+nodist_tex_OBJECTS = $(am__objects_59) tex-tex-pool.$(OBJEXT)
tex_OBJECTS = $(dist_tex_OBJECTS) $(nodist_tex_OBJECTS)
-@TEX_SYNCTEX_TRUE@am__DEPENDENCIES_14 = $(am__DEPENDENCIES_1)
+@TEX_SYNCTEX_TRUE@am__DEPENDENCIES_13 = $(am__DEPENDENCIES_1)
tex_DEPENDENCIES = $(am__DEPENDENCIES_2) $(am__DEPENDENCIES_1) \
- $(am__DEPENDENCIES_14)
+ $(am__DEPENDENCIES_13)
nodist_tftopl_OBJECTS = tftopl.$(OBJEXT)
tftopl_OBJECTS = $(nodist_tftopl_OBJECTS)
tftopl_LDADD = $(LDADD)
@@ -1613,42 +1583,42 @@ twill_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
am_upbibtex_OBJECTS =
nodist_upbibtex_OBJECTS = upbibtex-upbibtex.$(OBJEXT)
upbibtex_OBJECTS = $(am_upbibtex_OBJECTS) $(nodist_upbibtex_OBJECTS)
-am__DEPENDENCIES_15 = libukanji.a $(pproglib) $(am__DEPENDENCIES_1) \
+am__DEPENDENCIES_14 = libukanji.a $(pproglib) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_2) $(am__DEPENDENCIES_1)
am_updvitype_OBJECTS =
nodist_updvitype_OBJECTS = updvitype-updvitype.$(OBJEXT)
updvitype_OBJECTS = $(am_updvitype_OBJECTS) \
$(nodist_updvitype_OBJECTS)
-am__objects_62 = upmpost-pmp.$(OBJEXT)
-am__objects_63 = upmpost-pmpmath.$(OBJEXT)
-am__objects_64 = upmpost-pmpmathinterval.$(OBJEXT)
-am__objects_65 = upmpost-pmpmathbinary.$(OBJEXT)
-am__objects_66 = upmpost-pmpmathdecimal.$(OBJEXT)
-am__objects_67 = upmpost-pmpmathdouble.$(OBJEXT)
-am__objects_68 = upmpost-pmpstrings.$(OBJEXT)
-am__objects_69 = upmpost-pmpxout.$(OBJEXT)
-am__objects_70 = upmpost-ppngout.$(OBJEXT)
-am__objects_71 = upmpost-ppsout.$(OBJEXT)
-am__objects_72 = upmpost-psvgout.$(OBJEXT)
-am__objects_73 = $(am__objects_62) $(am__objects_63) $(am__objects_64) \
- $(am__objects_65) $(am__objects_66) $(am__objects_67) \
- upmpost-pmpost.$(OBJEXT) $(am__objects_68) $(am__objects_69) \
- $(am__objects_70) $(am__objects_71) $(am__objects_72) \
+am__objects_60 = upmpost-pmp.$(OBJEXT)
+am__objects_61 = upmpost-pmpmath.$(OBJEXT)
+am__objects_62 = upmpost-pmpmathinterval.$(OBJEXT)
+am__objects_63 = upmpost-pmpmathbinary.$(OBJEXT)
+am__objects_64 = upmpost-pmpmathdecimal.$(OBJEXT)
+am__objects_65 = upmpost-pmpmathdouble.$(OBJEXT)
+am__objects_66 = upmpost-pmpstrings.$(OBJEXT)
+am__objects_67 = upmpost-pmpxout.$(OBJEXT)
+am__objects_68 = upmpost-ppngout.$(OBJEXT)
+am__objects_69 = upmpost-ppsout.$(OBJEXT)
+am__objects_70 = upmpost-psvgout.$(OBJEXT)
+am__objects_71 = $(am__objects_60) $(am__objects_61) $(am__objects_62) \
+ $(am__objects_63) $(am__objects_64) $(am__objects_65) \
+ upmpost-pmpost.$(OBJEXT) $(am__objects_66) $(am__objects_67) \
+ $(am__objects_68) $(am__objects_69) $(am__objects_70) \
upmpost-ptfmin.$(OBJEXT)
-nodist_upmpost_OBJECTS = $(am__objects_73)
+nodist_upmpost_OBJECTS = $(am__objects_71)
upmpost_OBJECTS = $(nodist_upmpost_OBJECTS)
-am__DEPENDENCIES_16 = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
+am__DEPENDENCIES_15 = $(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) libmputil.a
-upmpost_DEPENDENCIES = $(am__DEPENDENCIES_16)
+upmpost_DEPENDENCIES = $(am__DEPENDENCIES_15)
am_uppltotf_OBJECTS =
nodist_uppltotf_OBJECTS = uppltotf-uppltotf.$(OBJEXT)
uppltotf_OBJECTS = $(am_uppltotf_OBJECTS) $(nodist_uppltotf_OBJECTS)
dist_uptex_OBJECTS = uptexdir/uptex-uptexextra.$(OBJEXT)
-am__objects_74 = uptex-uptexini.$(OBJEXT) uptex-uptex0.$(OBJEXT)
-nodist_uptex_OBJECTS = $(am__objects_74) uptex-uptex-pool.$(OBJEXT)
+am__objects_72 = uptex-uptexini.$(OBJEXT) uptex-uptex0.$(OBJEXT)
+nodist_uptex_OBJECTS = $(am__objects_72) uptex-uptex-pool.$(OBJEXT)
uptex_OBJECTS = $(dist_uptex_OBJECTS) $(nodist_uptex_OBJECTS)
am_uptftopl_OBJECTS =
nodist_uptftopl_OBJECTS = uptftopl-uptftopl.$(OBJEXT)
@@ -1686,20 +1656,20 @@ am__dist_xetex_SOURCES_DIST = xetexdir/xetexextra.c \
xetexdir/xetex_version.h synctexdir/synctex.c \
synctexdir/synctex.h synctexdir/synctex-common.h \
synctexdir/synctex-xetex.h
-@XETEX_SYNCTEX_TRUE@am__objects_75 = \
+@XETEX_SYNCTEX_TRUE@am__objects_73 = \
@XETEX_SYNCTEX_TRUE@ synctexdir/xetex-synctex.$(OBJEXT)
dist_xetex_OBJECTS = xetexdir/xetex-xetexextra.$(OBJEXT) \
- $(am__objects_75)
-am__objects_76 = xetex-xetexini.$(OBJEXT) xetex-xetex0.$(OBJEXT)
-nodist_xetex_OBJECTS = $(am__objects_76) xetex-xetex-pool.$(OBJEXT)
+ $(am__objects_73)
+am__objects_74 = xetex-xetexini.$(OBJEXT) xetex-xetex0.$(OBJEXT)
+nodist_xetex_OBJECTS = $(am__objects_74) xetex-xetex-pool.$(OBJEXT)
xetex_OBJECTS = $(dist_xetex_OBJECTS) $(nodist_xetex_OBJECTS)
-@XETEX_MACOSX_FALSE@am__DEPENDENCIES_17 = $(am__DEPENDENCIES_1)
-am__DEPENDENCIES_18 = $(libxetex) $(am__DEPENDENCIES_1) \
+@XETEX_MACOSX_FALSE@am__DEPENDENCIES_16 = $(am__DEPENDENCIES_1)
+am__DEPENDENCIES_17 = $(libxetex) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
- $(am__DEPENDENCIES_1) libmd5.a $(am__DEPENDENCIES_17)
-xetex_DEPENDENCIES = $(am__DEPENDENCIES_18) $(am__DEPENDENCIES_2) \
+ $(am__DEPENDENCIES_1) libmd5.a $(am__DEPENDENCIES_16)
+xetex_DEPENDENCIES = $(am__DEPENDENCIES_17) $(am__DEPENDENCIES_2) \
$(am__DEPENDENCIES_1)
xetex_LINK = $(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) \
$(LIBTOOLFLAGS) --mode=link $(CXXLD) $(xetex_CXXFLAGS) \
@@ -1737,10 +1707,8 @@ am__depfiles_remade = ./$(DEPDIR)/aleph-aleph-pool.Po \
./$(DEPDIR)/ctwill.Po ./$(DEPDIR)/cweave.Po \
./$(DEPDIR)/cweb.Po ./$(DEPDIR)/cwebboot.Po \
./$(DEPDIR)/dvicopy.Po ./$(DEPDIR)/dvitype.Po \
- ./$(DEPDIR)/eptex-eptex-pool.Po ./$(DEPDIR)/eptex-eptex0.Po \
- ./$(DEPDIR)/eptex-eptexini.Po ./$(DEPDIR)/etex-etex-pool.Po \
- ./$(DEPDIR)/etex-etex0.Po ./$(DEPDIR)/etex-etexini.Po \
- ./$(DEPDIR)/euptex-euptex-pool.Po \
+ ./$(DEPDIR)/etex-etex-pool.Po ./$(DEPDIR)/etex-etex0.Po \
+ ./$(DEPDIR)/etex-etexini.Po ./$(DEPDIR)/euptex-euptex-pool.Po \
./$(DEPDIR)/euptex-euptex0.Po ./$(DEPDIR)/euptex-euptexini.Po \
./$(DEPDIR)/gftodvi.Po ./$(DEPDIR)/gftopk.Po \
./$(DEPDIR)/gftype.Po ./$(DEPDIR)/himktables.Po \
@@ -1824,7 +1792,6 @@ am__depfiles_remade = ./$(DEPDIR)/aleph-aleph-pool.Po \
alephdir/$(DEPDIR)/aleph-aleph.Po \
alephdir/$(DEPDIR)/aleph-alephbis.Po \
alephdir/$(DEPDIR)/aleph-alephextra.Po \
- eptexdir/$(DEPDIR)/eptex-eptexextra.Po \
etexdir/$(DEPDIR)/etex-etexextra.Po \
euptexdir/$(DEPDIR)/euptex-euptexextra.Po \
hitexdir/$(DEPDIR)/hishrink-hilexer.Po \
@@ -2366,7 +2333,6 @@ am__depfiles_remade = ./$(DEPDIR)/aleph-aleph-pool.Po \
ptexdir/$(DEPDIR)/libkanji_a-kanji.Po \
ptexdir/$(DEPDIR)/libkanji_a-kanji_dump.Po \
ptexdir/$(DEPDIR)/ptex-ptexextra.Po \
- synctexdir/$(DEPDIR)/eptex-synctex.Po \
synctexdir/$(DEPDIR)/etex-synctex.Po \
synctexdir/$(DEPDIR)/euptex-synctex.Po \
synctexdir/$(DEPDIR)/libluajittex_a-synctex.Po \
@@ -2493,7 +2459,6 @@ SOURCES = $(libff_a_SOURCES) $(libkanji_a_SOURCES) \
$(nodist_ctwill_refsort_SOURCES) \
$(nodist_ctwill_twinx_SOURCES) $(nodist_cweave_SOURCES) \
$(nodist_dvicopy_SOURCES) $(nodist_dvitype_SOURCES) \
- $(dist_eptex_SOURCES) $(nodist_eptex_SOURCES) \
$(dist_etex_SOURCES) $(nodist_etex_SOURCES) \
$(dist_euptex_SOURCES) $(nodist_euptex_SOURCES) \
$(gftodvi_SOURCES) $(nodist_gftodvi_SOURCES) \
@@ -2541,13 +2506,12 @@ DIST_SOURCES = $(libff_a_SOURCES) $(libkanji_a_SOURCES) \
$(am__libpdftex_a_SOURCES_DIST) $(EXTRA_libpdftex_a_SOURCES) \
$(libukanji_a_SOURCES) $(libunilib_a_SOURCES) \
$(am__libxetex_a_SOURCES_DIST) $(libsynctex_la_SOURCES) \
- $(dist_aleph_SOURCES) $(am__dist_eptex_SOURCES_DIST) \
- $(am__dist_etex_SOURCES_DIST) $(am__dist_euptex_SOURCES_DIST) \
- $(gftodvi_SOURCES) himktables.c $(md5main_SOURCES) \
- $(dist_mf_SOURCES) $(dist_mf_nowin_SOURCES) \
- $(dist_mflua_SOURCES) $(dist_mfluajit_SOURCES) \
- $(am__dist_pdftex_SOURCES_DIST) $(pdftosrc_SOURCES) \
- $(dist_ptex_SOURCES) $(synctex_SOURCES) \
+ $(dist_aleph_SOURCES) $(am__dist_etex_SOURCES_DIST) \
+ $(am__dist_euptex_SOURCES_DIST) $(gftodvi_SOURCES) \
+ himktables.c $(md5main_SOURCES) $(dist_mf_SOURCES) \
+ $(dist_mf_nowin_SOURCES) $(dist_mflua_SOURCES) \
+ $(dist_mfluajit_SOURCES) $(am__dist_pdftex_SOURCES_DIST) \
+ $(pdftosrc_SOURCES) $(dist_ptex_SOURCES) $(synctex_SOURCES) \
$(am__dist_tex_SOURCES_DIST) $(ttf2afm_SOURCES) \
$(EXTRA_ttf2afm_SOURCES) $(upbibtex_SOURCES) \
$(updvitype_SOURCES) $(uppltotf_SOURCES) $(dist_uptex_SOURCES) \
@@ -2757,15 +2721,15 @@ am__set_TESTS_bases = \
bases=`echo $$bases`
AM_TESTSUITE_SUMMARY_HEADER = ' for $(PACKAGE_STRING)'
RECHECK_LOGS = $(TEST_LOGS)
-am__EXEEXT_43 = bibtex.test dvicopy.test dvitype.test gftodvi.test \
+am__EXEEXT_42 = bibtex.test dvicopy.test dvitype.test gftodvi.test \
gftopk.test gftype.test mft.test patgen.test pktogf.test \
pktype.test pltotf.test pooltype.test tftopl.test vftovp.test \
vptovf.test weave.test twill.test
-am__EXEEXT_44 = $(am__EXEEXT_43) tests/bibtex-openout-test.pl \
+am__EXEEXT_43 = $(am__EXEEXT_42) tests/bibtex-openout-test.pl \
tests/bibtex-longline-test.pl tests/bibtex-mem.test \
tests/bibtex-bigauth.test tests/bibtex-auxinclude.test
-@WEB_TRUE@am__EXEEXT_45 = $(am__EXEEXT_44)
-am__EXEEXT_46 =
+@WEB_TRUE@am__EXEEXT_44 = $(am__EXEEXT_43)
+am__EXEEXT_45 =
TEST_SUITE_LOG = test-suite.log
am__test_logs1 = $(TESTS:=.log)
am__test_logs2 = $(am__test_logs1:@EXEEXT@.log=.log)
@@ -2792,8 +2756,7 @@ am__DIST_COMMON = $(dist_man_MANS) $(srcdir)/../../am/bin_links.am \
$(srcdir)/alephdir/am/aleph.am $(srcdir)/am/bootstrap.am \
$(srcdir)/am/cweb.am $(srcdir)/am/texmf.am $(srcdir)/am/web.am \
$(srcdir)/c-auto.in $(srcdir)/ctangleboot-sh.in \
- $(srcdir)/eptexdir/am/eptex.am $(srcdir)/etexdir/am/etex.am \
- $(srcdir)/euptexdir/am/euptex.am \
+ $(srcdir)/etexdir/am/etex.am $(srcdir)/euptexdir/am/euptex.am \
$(srcdir)/hitexdir/am/hitex.am $(srcdir)/libmd5/am/md5.am \
$(srcdir)/luatexdir/am/libluatex.am \
$(srcdir)/luatexdir/am/libunilib.am \
@@ -2997,7 +2960,7 @@ NM = @NM@
NMEDIT = @NMEDIT@
OBJCXX = @OBJCXX@
OBJCXXDEPMODE = @OBJCXXDEPMODE@
-OBJCXXFLAGS = @OBJCXXFLAGS@ $(am__append_116)
+OBJCXXFLAGS = @OBJCXXFLAGS@ $(am__append_111)
OBJDUMP = @OBJDUMP@
OBJEXT = @OBJEXT@
OTANGLE = @OTANGLE@
@@ -3144,8 +3107,8 @@ EXTRA_LIBRARIES = libmf.a libmflua.a libmfluaotfcc.a libmfluapotrace.a \
libluaharfbuzz.a libluajitharfbuzz.a libxetex.a libsynctex.a \
libmd5.a
EXTRA_LTLIBRARIES = libsynctex.la
-lib_LIBRARIES = $(am__append_128)
-lib_LTLIBRARIES = $(am__append_127)
+lib_LIBRARIES = $(am__append_123)
+lib_LTLIBRARIES = $(am__append_122)
dist_man_MANS = synctexdir/man1/synctex.1 synctexdir/man5/synctex.5
nodist_man_MANS =
TEST_EXTENSIONS = .pl .test
@@ -3254,19 +3217,12 @@ EXTRA_DIST = PROJECTS cftests cpascal.h help.h w2c/config.h \
ptexdir/tests/chcode-euc.pl ptexdir/tests/chcode-sjis.pl \
ptexdir/tests/skipjfmp.pl ptexdir/tests/skipjfmp.tfm \
ptexdir/ptrip/ptrip.diffs ptexdir/ptrip/texmf.cnf \
- $(eptex_web_srcs) $(eptex_ch_srcs) eptexdir/eptex.defines \
- eptexdir/ChangeLog eptexdir/Changes.txt eptexdir/README.txt \
- $(eptex_tests) eptexdir/eptrip/eptrip.diffs \
- eptexdir/eptrip/eptrip.log eptexdir/eptrip/eptrip.tex \
- eptexdir/eptrip/texmf.cnf eptexdir/pdfprimitive.test \
- eptexdir/tests/pdfprimitive-test.tex \
- eptexdir/tests/pdfprimitive-eptex.log $(uptex_web_srcs) \
- $(uptex_ch_srcs) uptexdir/uptex.defines uptexdir/upbibtex.ch \
- uptexdir/updvitype.ch uptexdir/uppltotf.ch \
- uptexdir/uptftopl.ch uptexdir/COPYRIGHT uptexdir/COPYRIGHT.ja \
- uptexdir/ChangeLog $(uptex_tests) $(upweb_tests) \
- tests/enc-u.bbl tests/enc-eu.bbl tests/enc-su.bbl \
- tests/enc-uu.bbl uptexdir/tests/uptex3.tex \
+ $(uptex_web_srcs) $(uptex_ch_srcs) uptexdir/uptex.defines \
+ uptexdir/upbibtex.ch uptexdir/updvitype.ch \
+ uptexdir/uppltotf.ch uptexdir/uptftopl.ch uptexdir/COPYRIGHT \
+ uptexdir/COPYRIGHT.ja uptexdir/ChangeLog $(uptex_tests) \
+ $(upweb_tests) tests/enc-u.bbl tests/enc-eu.bbl \
+ tests/enc-su.bbl tests/enc-uu.bbl uptexdir/tests/uptex3.tex \
uptexdir/tests/uptex3.dvi uptexdir/tests/uptex4.tex \
uptexdir/tests/uptex4.dvi uptexdir/tests/uptex3a.typ \
uptexdir/tests/uptex4a.typ uptexdir/tests/umin10.pl \
@@ -3545,10 +3501,8 @@ EXTRA_DIST = PROJECTS cftests cpascal.h help.h w2c/config.h \
synctexdir/synctex-mem.ch2 synctexdir/synctex-rec.ch0 \
synctexdir/synctex-rec.ch1 synctexdir/synctex-rec.ch2 \
synctexdir/synctex-e-mem.ch0 synctexdir/synctex-e-mem.ch1 \
- synctexdir/synctex-e-rec.ch0 synctexdir/synctex-ep-mem.ch0 \
- synctexdir/synctex-ep-mem.ch1 synctexdir/synctex-ep-rec.ch0 \
- synctexdir/synctex-pdf-rec.ch2 synctexdir/synctex-xe-rec.ch3 \
- $(synctex_tests) libmd5/md5.test
+ synctexdir/synctex-e-rec.ch0 synctexdir/synctex-pdf-rec.ch2 \
+ synctexdir/synctex-xe-rec.ch3 $(synctex_tests) libmd5/md5.test
DISTCLEANFILES = CXXLD.sh tangle.c tangle.h tangle.p tangle-web2c \
tangleboot.c tangleboot.h tangleboot.p tangleboot-web2c \
ctangle.c cweb.c common-ctangle ctangleboot.c cwebboot.c \
@@ -3596,8 +3550,6 @@ DISTCLEANFILES = CXXLD.sh tangle.c tangle.h tangle.p tangle-web2c \
ptests/xpagenum.typ ptests/xptex[34]*.typ ptests/xcmr10.tfm \
ptests/xcmr10.pl ptests/xsample*.typ ptests/x*min10.* \
ptests/xchcode*.* ptests/xskipjfmp.* ptrip.diffs \
- $(nodist_eptex_SOURCES) eptex.web eptex.ch eptex-web2c eptex.p \
- eptex.pool eptex-tangle eptrip.diffs pdfprimitive-eptex.* \
$(nodist_uptex_SOURCES) uptex.web uptex.ch uptex-web2c uptex.p \
uptex.pool uptex-tangle $(upweb_programs:=.c) \
$(upweb_programs:=.h) $(upweb_programs:=.p) \
@@ -3646,28 +3598,25 @@ DISTCLEANFILES = CXXLD.sh tangle.c tangle.h tangle.p tangle-web2c \
CLEANFILES = $(EXTRA_PROGRAMS) $(EXTRA_LIBRARIES) $(EXTRA_LTLIBRARIES)
TRIPTRAP_CLEAN = $(am__append_8) $(am__append_18) $(am__append_27) \
$(am__append_36) $(am__append_44) $(am__append_60) \
- $(am__append_64) $(am__append_70) $(am__append_75) \
- $(am__append_83)
+ $(am__append_64) $(am__append_70) $(am__append_78)
TRIPTRAP = $(am__append_7) $(am__append_17) $(am__append_26) \
$(am__append_35) $(am__append_43) $(am__append_59) \
- $(am__append_63) $(am__append_69) $(am__append_74) \
- $(am__append_82)
+ $(am__append_63) $(am__append_69) $(am__append_77)
bin_links = $(am__append_5) $(am__append_14) $(am__append_15) \
$(am__append_24) $(am__append_33) $(am__append_41) \
- $(am__append_49) $(am__append_54) $(am__append_67) \
- upbibtex$(EXEEXT):pbibtex updvitype$(EXEEXT):pdvitype \
- uppltotf$(EXEEXT):ppltotf uptftopl$(EXEEXT):ptftopl \
- $(am__append_78) $(am__append_79) $(am__append_80) \
- $(am__append_94) $(am__append_99) $(am__append_104) \
- $(am__append_109)
+ $(am__append_49) $(am__append_54) upbibtex$(EXEEXT):pbibtex \
+ updvitype$(EXEEXT):pdvitype uppltotf$(EXEEXT):ppltotf \
+ uptftopl$(EXEEXT):ptftopl $(am__append_73) $(am__append_74) \
+ $(am__append_75) $(am__append_89) $(am__append_94) \
+ $(am__append_99) $(am__append_104)
install_exe_links = $(am__append_12) $(am__append_22) $(am__append_31) \
$(am__append_39) $(am__append_47) $(am__append_52) \
- $(am__append_92) $(am__append_97) $(am__append_102) \
- $(am__append_107)
+ $(am__append_87) $(am__append_92) $(am__append_97) \
+ $(am__append_102)
uninstall_exe_links = $(am__append_13) $(am__append_23) \
$(am__append_32) $(am__append_40) $(am__append_48) \
- $(am__append_53) $(am__append_93) $(am__append_98) \
- $(am__append_103) $(am__append_108)
+ $(am__append_53) $(am__append_88) $(am__append_93) \
+ $(am__append_98) $(am__append_103)
NEVER_DIST = `find . $(NEVER_NAMES)` cwebdir/cweave.log \
cwebdir/cweave.trs cwebdir/ctwill.log cwebdir/ctwill.trs \
cwebdir/refsort.log cwebdir/refsort.trs cwebdir/twinx.log \
@@ -3844,18 +3793,18 @@ tie_CPPFLAGS = $(AM_CPPFLAGS) -DNOT_WEB2C
initex_CPPFLAGS = -DEXEPROG=\"tex.exe\"
nodist_initex_SOURCES = callexe.c
initex_LDADD =
-tex_CPPFLAGS = $(AM_CPPFLAGS) $(am__append_132)
+tex_CPPFLAGS = $(AM_CPPFLAGS) $(am__append_127)
# With --enable-ipc, TeX may need to link with -lsocket.
-tex_LDADD = $(LDADD) $(ipc_socketlibs) $(am__append_133)
+tex_LDADD = $(LDADD) $(ipc_socketlibs) $(am__append_128)
# TeX C sources
tex_c_h = texini.c tex0.c texcoerce.h texd.h
nodist_tex_SOURCES = $(tex_c_h) tex-pool.c
-dist_tex_SOURCES = texextra.c $(am__append_135)
+dist_tex_SOURCES = texextra.c $(am__append_130)
# We must create texd.h before building the tex_OBJECTS.
-tex_prereq = texd.h $(am__append_134)
+tex_prereq = texd.h $(am__append_129)
tex_ch_srcs = \
tex.web \
tex.ch \
@@ -4355,21 +4304,21 @@ libmplib_web = mplibdir/mp.w mplibdir/psout.w mplibdir/svgout.w \
mplibdir/pngout.w mplibdir/mpmath.w mplibdir/mpmathbinary.w \
mplibdir/mpmathinterval.w mplibdir/mpmathdecimal.w \
mplibdir/mpmathdouble.w mplibdir/mpstrings.w mplibdir/tfmin.w
-etex_CPPFLAGS = $(AM_CPPFLAGS) $(ZLIB_INCLUDES) $(am__append_136)
+etex_CPPFLAGS = $(AM_CPPFLAGS) $(ZLIB_INCLUDES) $(am__append_131)
# With --enable-ipc, e-TeX may need to link with -lsocket.
-etex_LDADD = $(LDADD) $(ZLIB_LIBS) $(ipc_socketlibs) $(am__append_137)
+etex_LDADD = $(LDADD) $(ZLIB_LIBS) $(ipc_socketlibs) $(am__append_132)
etex_DEPENDENCIES = $(ZLIB_DEPEND)
# e-TeX C sources
etex_c_h = etexini.c etex0.c etexcoerce.h etexd.h
nodist_etex_SOURCES = $(etex_c_h) etex-pool.c
dist_etex_SOURCES = etexdir/etexextra.c etexdir/etexextra.h \
- etexdir/etex_version.h $(am__append_139)
+ etexdir/etex_version.h $(am__append_134)
# We must create etexd.h and etexdir/etex_version.h before building the
# etex_OBJECTS.
-etex_prereq = etexd.h etexdir/etex_version.h $(am__append_138)
+etex_prereq = etexd.h etexdir/etex_version.h $(am__append_133)
etex_web_srcs = \
tex.web \
etexdir/etex.ch
@@ -4436,58 +4385,6 @@ ptex_tests = \
ptexdir/pver.test \
ptexdir/wcfname.test
-eptex_CPPFLAGS = $(PTEXENC_INCLUDES) $(AM_CPPFLAGS) -I$(srcdir)/libmd5 \
- $(ZLIB_INCLUDES) $(am__append_140)
-
-# With --enable-ipc, e-pTeX may need to link with -lsocket.
-eptex_LDADD = libkanji.a $(pproglib) $(PTEXENC_LIBS) $(LDADD) \
- $(ipc_socketlibs) libmd5.a $(ZLIB_LIBS) $(am__append_141)
-eptex_DEPENDENCIES = libkanji.a $(pproglib) $(PTEXENC_DEPEND) $(default_dependencies) libmd5.a $(ZLIB_DEPEND)
-
-# e-pTeX C sources
-eptex_c_h = eptexini.c eptex0.c eptexcoerce.h eptexd.h
-nodist_eptex_SOURCES = $(eptex_c_h) eptex-pool.c
-dist_eptex_SOURCES = eptexdir/eptexextra.c eptexdir/eptexextra.h \
- eptexdir/eptex_version.h $(am__append_143)
-
-# We must create eptexd.h and eptexdir/eptex_version.h before building the eptex_OBJECTS.
-eptex_prereq = eptexd.h etexdir/etex_version.h ptexdir/ptex_version.h \
- eptexdir/eptex_version.h $(am__append_142)
-eptex_web_srcs = \
- tex.web \
- etexdir/etex.ch \
- etexdir/tex.ch0 \
- tex.ch \
- tracingstacklevels.ch \
- partoken.ch \
- locnull-optimize.ch \
- showstream.ch \
- zlib-fmt.ch \
- etexdir/tex.ech
-
-eptex_ch_srcs = \
- eptexdir/eptex-base.ch \
- eptexdir/etex.ch0 \
- ptexdir/ptex-base.ch \
- eptexdir/eptex.ech \
- eptexdir/etex.ch1 \
- $(eptex_ch_synctex) \
- eptexdir/fam256.ch \
- eptexdir/pdfutils.ch \
- eptexdir/suppresserrors.ch \
- eptexdir/unbalanced-braces-eptex.ch \
- eptexdir/char-warning-eptex.ch \
- tex-binpool.ch
-
-
-# e-pTeX Tests
-#
-eptex_tests = \
- eptexdir/eptriptest.test \
- eptexdir/pdfprimitive.test \
- eptexdir/epver.test \
- eptexdir/wcfname.test
-
uptex_cppflags = $(PTEXENC_INCLUDES) $(AM_CPPFLAGS) $(ZLIB_INCLUDES)
uptex_ldadd = libukanji.a $(pproglib) $(PTEXENC_LIBS) $(LDADD) $(ZLIB_LIBS)
uptex_dependencies = libukanji.a $(pproglib) $(PTEXENC_DEPEND) $(ZLIB_DEPEND) $(default_dependencies)
@@ -4561,23 +4458,23 @@ upweb_tests = uptexdir/upbibtex.test uptexdir/updvitype.test \
uptexdir/newjfm.test uptexdir/uparse.test uptexdir/gkhuge.test \
uptexdir/gk256.test
euptex_CPPFLAGS = $(PTEXENC_INCLUDES) $(AM_CPPFLAGS) \
- -I$(srcdir)/libmd5 $(ZLIB_INCLUDES) $(am__append_144)
+ -I$(srcdir)/libmd5 $(ZLIB_INCLUDES) $(am__append_135)
# With --enable-ipc, e-upTeX may need to link with -lsocket.
euptex_LDADD = libukanji.a $(pproglib) $(PTEXENC_LIBS) $(LDADD) \
- $(ipc_socketlibs) libmd5.a $(ZLIB_LIBS) $(am__append_145)
+ $(ipc_socketlibs) libmd5.a $(ZLIB_LIBS) $(am__append_136)
euptex_DEPENDENCIES = libukanji.a $(pproglib) $(PTEXENC_DEPEND) $(default_dependencies) libmd5.a $(ZLIB_DEPEND)
# e-upTeX C sources
euptex_c_h = euptexini.c euptex0.c euptexcoerce.h euptexd.h
nodist_euptex_SOURCES = $(euptex_c_h) euptex-pool.c
dist_euptex_SOURCES = euptexdir/euptexextra.c euptexdir/euptexextra.h \
- $(am__append_147)
+ $(am__append_138)
# We must create euptexd.h and [eu]ptexdir/[eu]ptex_version.h before building the euptex_OBJECTS.
euptex_prereq = euptexd.h etexdir/etex_version.h \
uptexdir/ptex_version.h euptexdir/eptex_version.h \
- uptexdir/uptex_version.h $(am__append_146)
+ uptexdir/uptex_version.h $(am__append_137)
euptex_web_srcs = \
tex.web \
etexdir/etex.ch \
@@ -4604,7 +4501,7 @@ euptex_ch_srcs = \
euptexdir/pdfutils.ch \
euptexdir/pdfstrcmp-eup-post.ch \
euptexdir/suppresserrors.ch \
- eptexdir/unbalanced-braces-eptex.ch \
+ euptexdir/unbalanced-braces-eptex.ch \
euptexdir/char-warning-eptex.ch \
tex-binpool.ch
@@ -4697,7 +4594,7 @@ libpdftex_a_SOURCES = pdftexdir/avl.c pdftexdir/avl.h \
pdftexdir/writejbig2.c pdftexdir/writejpg.c \
pdftexdir/writepng.c pdftexdir/writet1.c pdftexdir/writet3.c \
pdftexdir/writettf.c pdftexdir/writettf.h pdftexdir/writezip.c \
- $(am__append_87)
+ $(am__append_82)
@MINGW32_TRUE@REGEX_INCLUDES = -I$(srcdir)/pdftexdir/regex
EXTRA_libpdftex_a_SOURCES = pdftexdir/macnames.c \
pdftexdir/regex/regcomp.c pdftexdir/regex/regex_internal.c \
@@ -4713,7 +4610,7 @@ pdftex_dependencies = $(proglib) $(KPATHSEA_DEPEND) $(LIBPNG_DEPEND) \
# Force Automake to use CXXLD for linking
nodist_EXTRA_pdftex_SOURCES = dummy.cxx
pdf_tangle = WEBINPUTS=.:$(srcdir)/pdftexdir AM_V_P=$(AM_V_P) $(SHELL) ./tangle-sh $@ $(TANGLE)
-pdftex_CPPFLAGS = $(pdftex_cppflags) $(am__append_148)
+pdftex_CPPFLAGS = $(pdftex_cppflags) $(am__append_139)
pdftex_CXXFLAGS = $(WARNING_CXXFLAGS)
# With --enable-ipc, pdfTeX may need to link with -lsocket.
@@ -4726,7 +4623,7 @@ pdftex_c_h = pdftexini.c pdftex0.c pdftexcoerce.h pdftexd.h
nodist_pdftex_SOURCES = $(pdftex_c_h) pdftex-pool.c
dist_pdftex_SOURCES = pdftexdir/pdftexextra.c pdftexdir/pdftexextra.h \
pdftexdir/pdftex_version.h pdftexdir/etex_version.h \
- $(am__append_149)
+ $(am__append_140)
pdftex_ch_srcs = \
pdftexdir/pdftex.web \
pdftexdir/tex.ch0 \
@@ -5408,18 +5305,18 @@ libxetex = libxetex.a
xetex_cppflags = $(AM_CPPFLAGS) -I$(srcdir)/xetexdir $(ICU_INCLUDES) \
$(FREETYPE2_INCLUDES) $(TECKIT_INCLUDES) $(HARFBUZZ_INCLUDES) \
$(GRAPHITE2_INCLUDES) $(LIBPNG_INCLUDES) $(ZLIB_INCLUDES) \
- $(PPLIB_INCLUDES) -I$(srcdir)/libmd5 $(am__append_115) \
- $(am__append_117)
+ $(PPLIB_INCLUDES) -I$(srcdir)/libmd5 $(am__append_110) \
+ $(am__append_112)
xetex_ldadd = $(libxetex) $(HARFBUZZ_LIBS) $(GRAPHITE2_LIBS) \
$(ICU_LIBS) $(ICU_LIBS_EXTRA) $(TECKIT_LIBS) $(LIBPNG_LIBS) \
$(FREETYPE2_LIBS) $(PPLIB_LIBS) $(ZLIB_LIBS) libmd5.a \
- $(am__append_118)
+ $(am__append_113)
xetex_dependencies = $(proglib) $(KPATHSEA_DEPEND) $(ICU_DEPEND) \
$(TECKIT_DEPEND) $(HARFBUZZ_DEPEND) $(GRAPHITE2_DEPEND) \
$(LIBPNG_DEPEND) $(FREETYPE2_DEPEND) $(ZLIB_DEPEND) \
$(PPLIB_DEPEND) libmd5.a
@XETEX_MACOSX_TRUE@xetex_LDFLAGS = -framework ApplicationServices -framework Cocoa
-xetex_CPPFLAGS = $(xetex_cppflags) $(am__append_150)
+xetex_CPPFLAGS = $(xetex_cppflags) $(am__append_141)
xetex_CFLAGS = $(WARNING_CFLAGS)
xetex_CXXFLAGS = # $(WARNING_CXXFLAGS)
xetex_LDADD = $(xetex_ldadd) $(LDADD) $(ipc_socketlibs)
@@ -5428,7 +5325,7 @@ xetex_c_h = xetexini.c xetex0.c xetexcoerce.h xetexd.h
nodist_xetex_SOURCES = $(xetex_c_h) xetex-pool.c
dist_xetex_SOURCES = xetexdir/xetexextra.c xetexdir/xetexextra.h \
xetexdir/etex_version.h xetexdir/xetex_version.h \
- $(am__append_151)
+ $(am__append_142)
xetex_ch_srcs = \
xetexdir/xetex.web \
xetexdir/tex.ch0 \
@@ -5462,7 +5359,7 @@ libxetex_a_SOURCES = xetexdir/XeTeXFontInst.cpp \
xetexdir/image/jpegimage.h xetexdir/image/mfileio.c \
xetexdir/image/mfileio.h xetexdir/image/numbers.c \
xetexdir/image/numbers.h xetexdir/image/pngimage.c \
- xetexdir/image/pngimage.h $(am__append_119) $(am__append_120)
+ xetexdir/image/pngimage.h $(am__append_114) $(am__append_115)
# We must create xetexd.h etc. before building the libxetex_a_OBJECTS.
libxetex_prereq = xetexd.h $(xetex_dependencies)
@@ -5568,13 +5465,13 @@ aleph_tests = alephdir/aleph.test
synctex_SOURCES = \
synctexdir/synctex_main.c
-synctex_CPPFLAGS = -I$(srcdir)/synctexdir $(am__append_129)
-synctex_LDADD = $(libsynctex) $(ZLIB_LIBS) $(am__append_130)
+synctex_CPPFLAGS = -I$(srcdir)/synctexdir $(am__append_124)
+synctex_LDADD = $(libsynctex) $(ZLIB_LIBS) $(am__append_125)
libsynctex = $(LTLIBSYNCTEX) $(LIBSYNCTEX)
libsynctex_la_CPPFLAGS = -I$(srcdir)/synctexdir $(ZLIB_INCLUDES) -DSYNCTEX_USE_LOCAL_HEADER
libsynctex_a_CPPFLAGS = $(libsynctex_la_CPPFLAGS)
libsynctex_la_LDFLAGS = -rpath @libdir@ -bindir @bindir@ -no-undefined -version-info $(SYNCTEX_LT_VERSINFO)
-libsynctex_la_LIBADD = $(ZLIB_LIBS) $(am__append_131)
+libsynctex_la_LIBADD = $(ZLIB_LIBS) $(am__append_126)
libsynctex_la_SOURCES = \
synctexdir/synctex_parser.c \
synctexdir/synctex_parser_local.h \
@@ -5606,19 +5503,6 @@ pkgconfigdir = ${libdir}/pkgconfig
@ETEX_SYNCTEX_TRUE@ synctexdir/synctex-rec.ch1 \
@ETEX_SYNCTEX_TRUE@ synctexdir/synctex-e-rec.ch0
-@EPTEX_SYNCTEX_TRUE@eptex_ch_synctex = \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-def.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-ep-mem.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-mem.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-e-mem.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-ep-mem.ch1 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-p-rec.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-rec.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-rec.ch1 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-ep-rec.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-e-rec.ch0 \
-@EPTEX_SYNCTEX_TRUE@ synctexdir/synctex-p-rec.ch1
-
@EUPTEX_SYNCTEX_TRUE@euptex_ch_synctex = \
@EUPTEX_SYNCTEX_TRUE@ synctexdir/synctex-def.ch0 \
@EUPTEX_SYNCTEX_TRUE@ synctexdir/synctex-ep-mem.ch0 \
@@ -5669,7 +5553,7 @@ all: ff-config.h
.SUFFIXES: .c .cc .cin .cpp .cxx .h .hin .lo .log .mm .o .obj .p .pin .pl .pl$(EXEEXT) .test .test$(EXEEXT) .trs
am--refresh: Makefile
@:
-$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(srcdir)/../../am/dist_hook.am $(srcdir)/am/bootstrap.am $(srcdir)/am/web.am $(srcdir)/am/cweb.am $(srcdir)/am/texmf.am $(srcdir)/mfluadir/am/mflua.am $(srcdir)/mfluadir/am/mfluaotfcc.am $(srcdir)/mfluadir/am/mfluapotrace.am $(srcdir)/mfluadir/am/mflualpeg.am $(srcdir)/mfluajitdir/am/mfluajit.am $(srcdir)/mfluajitdir/am/mfluajitlpeg.am $(srcdir)/mplibdir/am/mplib.am $(srcdir)/pmpostdir/am/pmpost.am $(srcdir)/mplibdir/am/libmputil.am $(srcdir)/mplibdir/am/libmplib.am $(srcdir)/etexdir/am/etex.am $(srcdir)/ptexdir/am/ptex.am $(srcdir)/eptexdir/am/eptex.am $(srcdir)/uptexdir/am/uptex.am $(srcdir)/euptexdir/am/euptex.am $(srcdir)/hitexdir/am/hitex.am $(srcdir)/pdftexdir/am/libpdftex.am $(srcdir)/pdftexdir/am/pdftex.am $(srcdir)/pdftexdir/am/ttf2afm.am $(srcdir)/pdftexdir/am/pdftosrc.am $(srcdir)/luatexdir/am/luasocket.am $(srcdir)/luatexdir/am/luamisc.am $(srcdir)/luatexdir/am/libunilib.am $(srcdir)/luatexdir/am/luafontforge.am $(srcdir)/luatexdir/am/libluatex.am $(srcdir)/luatexdir/am/luaffi.am $(srcdir)/luatexdir/am/luatex.am $(srcdir)/luatexdir/am/luaharfbuzz.am $(srcdir)/xetexdir/am/xetex.am $(srcdir)/omegaware/am/omegaware.am $(srcdir)/alephdir/am/aleph.am $(srcdir)/synctexdir/am/synctex.am $(srcdir)/libmd5/am/md5.am $(srcdir)/../../am/bin_links.am $(am__configure_deps)
+$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(srcdir)/../../am/dist_hook.am $(srcdir)/am/bootstrap.am $(srcdir)/am/web.am $(srcdir)/am/cweb.am $(srcdir)/am/texmf.am $(srcdir)/mfluadir/am/mflua.am $(srcdir)/mfluadir/am/mfluaotfcc.am $(srcdir)/mfluadir/am/mfluapotrace.am $(srcdir)/mfluadir/am/mflualpeg.am $(srcdir)/mfluajitdir/am/mfluajit.am $(srcdir)/mfluajitdir/am/mfluajitlpeg.am $(srcdir)/mplibdir/am/mplib.am $(srcdir)/pmpostdir/am/pmpost.am $(srcdir)/mplibdir/am/libmputil.am $(srcdir)/mplibdir/am/libmplib.am $(srcdir)/etexdir/am/etex.am $(srcdir)/ptexdir/am/ptex.am $(srcdir)/uptexdir/am/uptex.am $(srcdir)/euptexdir/am/euptex.am $(srcdir)/hitexdir/am/hitex.am $(srcdir)/pdftexdir/am/libpdftex.am $(srcdir)/pdftexdir/am/pdftex.am $(srcdir)/pdftexdir/am/ttf2afm.am $(srcdir)/pdftexdir/am/pdftosrc.am $(srcdir)/luatexdir/am/luasocket.am $(srcdir)/luatexdir/am/luamisc.am $(srcdir)/luatexdir/am/libunilib.am $(srcdir)/luatexdir/am/luafontforge.am $(srcdir)/luatexdir/am/libluatex.am $(srcdir)/luatexdir/am/luaffi.am $(srcdir)/luatexdir/am/luatex.am $(srcdir)/luatexdir/am/luaharfbuzz.am $(srcdir)/xetexdir/am/xetex.am $(srcdir)/omegaware/am/omegaware.am $(srcdir)/alephdir/am/aleph.am $(srcdir)/synctexdir/am/synctex.am $(srcdir)/libmd5/am/md5.am $(srcdir)/../../am/bin_links.am $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
@@ -5691,7 +5575,7 @@ Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__maybe_remake_depfiles)'; \
cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__maybe_remake_depfiles);; \
esac;
-$(srcdir)/../../am/dist_hook.am $(srcdir)/am/bootstrap.am $(srcdir)/am/web.am $(srcdir)/am/cweb.am $(srcdir)/am/texmf.am $(srcdir)/mfluadir/am/mflua.am $(srcdir)/mfluadir/am/mfluaotfcc.am $(srcdir)/mfluadir/am/mfluapotrace.am $(srcdir)/mfluadir/am/mflualpeg.am $(srcdir)/mfluajitdir/am/mfluajit.am $(srcdir)/mfluajitdir/am/mfluajitlpeg.am $(srcdir)/mplibdir/am/mplib.am $(srcdir)/pmpostdir/am/pmpost.am $(srcdir)/mplibdir/am/libmputil.am $(srcdir)/mplibdir/am/libmplib.am $(srcdir)/etexdir/am/etex.am $(srcdir)/ptexdir/am/ptex.am $(srcdir)/eptexdir/am/eptex.am $(srcdir)/uptexdir/am/uptex.am $(srcdir)/euptexdir/am/euptex.am $(srcdir)/hitexdir/am/hitex.am $(srcdir)/pdftexdir/am/libpdftex.am $(srcdir)/pdftexdir/am/pdftex.am $(srcdir)/pdftexdir/am/ttf2afm.am $(srcdir)/pdftexdir/am/pdftosrc.am $(srcdir)/luatexdir/am/luasocket.am $(srcdir)/luatexdir/am/luamisc.am $(srcdir)/luatexdir/am/libunilib.am $(srcdir)/luatexdir/am/luafontforge.am $(srcdir)/luatexdir/am/libluatex.am $(srcdir)/luatexdir/am/luaffi.am $(srcdir)/luatexdir/am/luatex.am $(srcdir)/luatexdir/am/luaharfbuzz.am $(srcdir)/xetexdir/am/xetex.am $(srcdir)/omegaware/am/omegaware.am $(srcdir)/alephdir/am/aleph.am $(srcdir)/synctexdir/am/synctex.am $(srcdir)/libmd5/am/md5.am $(srcdir)/../../am/bin_links.am $(am__empty):
+$(srcdir)/../../am/dist_hook.am $(srcdir)/am/bootstrap.am $(srcdir)/am/web.am $(srcdir)/am/cweb.am $(srcdir)/am/texmf.am $(srcdir)/mfluadir/am/mflua.am $(srcdir)/mfluadir/am/mfluaotfcc.am $(srcdir)/mfluadir/am/mfluapotrace.am $(srcdir)/mfluadir/am/mflualpeg.am $(srcdir)/mfluajitdir/am/mfluajit.am $(srcdir)/mfluajitdir/am/mfluajitlpeg.am $(srcdir)/mplibdir/am/mplib.am $(srcdir)/pmpostdir/am/pmpost.am $(srcdir)/mplibdir/am/libmputil.am $(srcdir)/mplibdir/am/libmplib.am $(srcdir)/etexdir/am/etex.am $(srcdir)/ptexdir/am/ptex.am $(srcdir)/uptexdir/am/uptex.am $(srcdir)/euptexdir/am/euptex.am $(srcdir)/hitexdir/am/hitex.am $(srcdir)/pdftexdir/am/libpdftex.am $(srcdir)/pdftexdir/am/pdftex.am $(srcdir)/pdftexdir/am/ttf2afm.am $(srcdir)/pdftexdir/am/pdftosrc.am $(srcdir)/luatexdir/am/luasocket.am $(srcdir)/luatexdir/am/luamisc.am $(srcdir)/luatexdir/am/libunilib.am $(srcdir)/luatexdir/am/luafontforge.am $(srcdir)/luatexdir/am/libluatex.am $(srcdir)/luatexdir/am/luaffi.am $(srcdir)/luatexdir/am/luatex.am $(srcdir)/luatexdir/am/luaharfbuzz.am $(srcdir)/xetexdir/am/xetex.am $(srcdir)/omegaware/am/omegaware.am $(srcdir)/alephdir/am/aleph.am $(srcdir)/synctexdir/am/synctex.am $(srcdir)/libmd5/am/md5.am $(srcdir)/../../am/bin_links.am $(am__empty):
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
$(SHELL) ./config.status --recheck
@@ -8076,20 +7960,6 @@ dvicopy$(EXEEXT): $(dvicopy_OBJECTS) $(dvicopy_DEPENDENCIES) $(EXTRA_dvicopy_DEP
dvitype$(EXEEXT): $(dvitype_OBJECTS) $(dvitype_DEPENDENCIES) $(EXTRA_dvitype_DEPENDENCIES)
@rm -f dvitype$(EXEEXT)
$(AM_V_CCLD)$(LINK) $(dvitype_OBJECTS) $(dvitype_LDADD) $(LIBS)
-eptexdir/$(am__dirstamp):
- @$(MKDIR_P) eptexdir
- @: > eptexdir/$(am__dirstamp)
-eptexdir/$(DEPDIR)/$(am__dirstamp):
- @$(MKDIR_P) eptexdir/$(DEPDIR)
- @: > eptexdir/$(DEPDIR)/$(am__dirstamp)
-eptexdir/eptex-eptexextra.$(OBJEXT): eptexdir/$(am__dirstamp) \
- eptexdir/$(DEPDIR)/$(am__dirstamp)
-synctexdir/eptex-synctex.$(OBJEXT): synctexdir/$(am__dirstamp) \
- synctexdir/$(DEPDIR)/$(am__dirstamp)
-
-eptex$(EXEEXT): $(eptex_OBJECTS) $(eptex_DEPENDENCIES) $(EXTRA_eptex_DEPENDENCIES)
- @rm -f eptex$(EXEEXT)
- $(AM_V_CCLD)$(LINK) $(eptex_OBJECTS) $(eptex_LDADD) $(LIBS)
etexdir/$(am__dirstamp):
@$(MKDIR_P) etexdir
@: > etexdir/$(am__dirstamp)
@@ -8449,7 +8319,6 @@ uninstall-dist_binSCRIPTS:
mostlyclean-compile:
-rm -f *.$(OBJEXT)
-rm -f alephdir/*.$(OBJEXT)
- -rm -f eptexdir/*.$(OBJEXT)
-rm -f etexdir/*.$(OBJEXT)
-rm -f euptexdir/*.$(OBJEXT)
-rm -f hitexdir/*.$(OBJEXT)
@@ -8547,9 +8416,6 @@ distclean-compile:
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cwebboot.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dvicopy.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dvitype.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/eptex-eptex-pool.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/eptex-eptex0.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/eptex-eptexini.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/etex-etex-pool.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/etex-etex0.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/etex-etexini.Po@am__quote@ # am--include-marker
@@ -8675,7 +8541,6 @@ distclean-compile:
@AMDEP_TRUE@@am__include@ @am__quote@alephdir/$(DEPDIR)/aleph-aleph.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@alephdir/$(DEPDIR)/aleph-alephbis.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@alephdir/$(DEPDIR)/aleph-alephextra.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@eptexdir/$(DEPDIR)/eptex-eptexextra.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@etexdir/$(DEPDIR)/etex-etexextra.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@euptexdir/$(DEPDIR)/euptex-euptexextra.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@hitexdir/$(DEPDIR)/hishrink-hilexer.Po@am__quote@ # am--include-marker
@@ -9218,7 +9083,6 @@ distclean-compile:
@AMDEP_TRUE@@am__include@ @am__quote@ptexdir/$(DEPDIR)/libkanji_a-kanji.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@ptexdir/$(DEPDIR)/libkanji_a-kanji_dump.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@ptexdir/$(DEPDIR)/ptex-ptexextra.Po@am__quote@ # am--include-marker
-@AMDEP_TRUE@@am__include@ @am__quote@synctexdir/$(DEPDIR)/eptex-synctex.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@synctexdir/$(DEPDIR)/etex-synctex.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@synctexdir/$(DEPDIR)/euptex-synctex.Po@am__quote@ # am--include-marker
@AMDEP_TRUE@@am__include@ @am__quote@synctexdir/$(DEPDIR)/libluajittex_a-synctex.Po@am__quote@ # am--include-marker
@@ -17348,76 +17212,6 @@ call_upmpost-callexe.obj: callexe.c
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(call_upmpost_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o call_upmpost-callexe.obj `if test -f 'callexe.c'; then $(CYGPATH_W) 'callexe.c'; else $(CYGPATH_W) '$(srcdir)/callexe.c'; fi`
-eptexdir/eptex-eptexextra.o: eptexdir/eptexextra.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptexdir/eptex-eptexextra.o -MD -MP -MF eptexdir/$(DEPDIR)/eptex-eptexextra.Tpo -c -o eptexdir/eptex-eptexextra.o `test -f 'eptexdir/eptexextra.c' || echo '$(srcdir)/'`eptexdir/eptexextra.c
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) eptexdir/$(DEPDIR)/eptex-eptexextra.Tpo eptexdir/$(DEPDIR)/eptex-eptexextra.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptexdir/eptexextra.c' object='eptexdir/eptex-eptexextra.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptexdir/eptex-eptexextra.o `test -f 'eptexdir/eptexextra.c' || echo '$(srcdir)/'`eptexdir/eptexextra.c
-
-eptexdir/eptex-eptexextra.obj: eptexdir/eptexextra.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptexdir/eptex-eptexextra.obj -MD -MP -MF eptexdir/$(DEPDIR)/eptex-eptexextra.Tpo -c -o eptexdir/eptex-eptexextra.obj `if test -f 'eptexdir/eptexextra.c'; then $(CYGPATH_W) 'eptexdir/eptexextra.c'; else $(CYGPATH_W) '$(srcdir)/eptexdir/eptexextra.c'; fi`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) eptexdir/$(DEPDIR)/eptex-eptexextra.Tpo eptexdir/$(DEPDIR)/eptex-eptexextra.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptexdir/eptexextra.c' object='eptexdir/eptex-eptexextra.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptexdir/eptex-eptexextra.obj `if test -f 'eptexdir/eptexextra.c'; then $(CYGPATH_W) 'eptexdir/eptexextra.c'; else $(CYGPATH_W) '$(srcdir)/eptexdir/eptexextra.c'; fi`
-
-synctexdir/eptex-synctex.o: synctexdir/synctex.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT synctexdir/eptex-synctex.o -MD -MP -MF synctexdir/$(DEPDIR)/eptex-synctex.Tpo -c -o synctexdir/eptex-synctex.o `test -f 'synctexdir/synctex.c' || echo '$(srcdir)/'`synctexdir/synctex.c
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) synctexdir/$(DEPDIR)/eptex-synctex.Tpo synctexdir/$(DEPDIR)/eptex-synctex.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='synctexdir/synctex.c' object='synctexdir/eptex-synctex.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o synctexdir/eptex-synctex.o `test -f 'synctexdir/synctex.c' || echo '$(srcdir)/'`synctexdir/synctex.c
-
-synctexdir/eptex-synctex.obj: synctexdir/synctex.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT synctexdir/eptex-synctex.obj -MD -MP -MF synctexdir/$(DEPDIR)/eptex-synctex.Tpo -c -o synctexdir/eptex-synctex.obj `if test -f 'synctexdir/synctex.c'; then $(CYGPATH_W) 'synctexdir/synctex.c'; else $(CYGPATH_W) '$(srcdir)/synctexdir/synctex.c'; fi`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) synctexdir/$(DEPDIR)/eptex-synctex.Tpo synctexdir/$(DEPDIR)/eptex-synctex.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='synctexdir/synctex.c' object='synctexdir/eptex-synctex.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o synctexdir/eptex-synctex.obj `if test -f 'synctexdir/synctex.c'; then $(CYGPATH_W) 'synctexdir/synctex.c'; else $(CYGPATH_W) '$(srcdir)/synctexdir/synctex.c'; fi`
-
-eptex-eptexini.o: eptexini.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptex-eptexini.o -MD -MP -MF $(DEPDIR)/eptex-eptexini.Tpo -c -o eptex-eptexini.o `test -f 'eptexini.c' || echo '$(srcdir)/'`eptexini.c
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/eptex-eptexini.Tpo $(DEPDIR)/eptex-eptexini.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptexini.c' object='eptex-eptexini.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptex-eptexini.o `test -f 'eptexini.c' || echo '$(srcdir)/'`eptexini.c
-
-eptex-eptexini.obj: eptexini.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptex-eptexini.obj -MD -MP -MF $(DEPDIR)/eptex-eptexini.Tpo -c -o eptex-eptexini.obj `if test -f 'eptexini.c'; then $(CYGPATH_W) 'eptexini.c'; else $(CYGPATH_W) '$(srcdir)/eptexini.c'; fi`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/eptex-eptexini.Tpo $(DEPDIR)/eptex-eptexini.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptexini.c' object='eptex-eptexini.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptex-eptexini.obj `if test -f 'eptexini.c'; then $(CYGPATH_W) 'eptexini.c'; else $(CYGPATH_W) '$(srcdir)/eptexini.c'; fi`
-
-eptex-eptex0.o: eptex0.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptex-eptex0.o -MD -MP -MF $(DEPDIR)/eptex-eptex0.Tpo -c -o eptex-eptex0.o `test -f 'eptex0.c' || echo '$(srcdir)/'`eptex0.c
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/eptex-eptex0.Tpo $(DEPDIR)/eptex-eptex0.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptex0.c' object='eptex-eptex0.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptex-eptex0.o `test -f 'eptex0.c' || echo '$(srcdir)/'`eptex0.c
-
-eptex-eptex0.obj: eptex0.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptex-eptex0.obj -MD -MP -MF $(DEPDIR)/eptex-eptex0.Tpo -c -o eptex-eptex0.obj `if test -f 'eptex0.c'; then $(CYGPATH_W) 'eptex0.c'; else $(CYGPATH_W) '$(srcdir)/eptex0.c'; fi`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/eptex-eptex0.Tpo $(DEPDIR)/eptex-eptex0.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptex0.c' object='eptex-eptex0.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptex-eptex0.obj `if test -f 'eptex0.c'; then $(CYGPATH_W) 'eptex0.c'; else $(CYGPATH_W) '$(srcdir)/eptex0.c'; fi`
-
-eptex-eptex-pool.o: eptex-pool.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptex-eptex-pool.o -MD -MP -MF $(DEPDIR)/eptex-eptex-pool.Tpo -c -o eptex-eptex-pool.o `test -f 'eptex-pool.c' || echo '$(srcdir)/'`eptex-pool.c
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/eptex-eptex-pool.Tpo $(DEPDIR)/eptex-eptex-pool.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptex-pool.c' object='eptex-eptex-pool.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptex-eptex-pool.o `test -f 'eptex-pool.c' || echo '$(srcdir)/'`eptex-pool.c
-
-eptex-eptex-pool.obj: eptex-pool.c
-@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT eptex-eptex-pool.obj -MD -MP -MF $(DEPDIR)/eptex-eptex-pool.Tpo -c -o eptex-eptex-pool.obj `if test -f 'eptex-pool.c'; then $(CYGPATH_W) 'eptex-pool.c'; else $(CYGPATH_W) '$(srcdir)/eptex-pool.c'; fi`
-@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/eptex-eptex-pool.Tpo $(DEPDIR)/eptex-eptex-pool.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='eptex-pool.c' object='eptex-eptex-pool.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(eptex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o eptex-eptex-pool.obj `if test -f 'eptex-pool.c'; then $(CYGPATH_W) 'eptex-pool.c'; else $(CYGPATH_W) '$(srcdir)/eptex-pool.c'; fi`
-
etexdir/etex-etexextra.o: etexdir/etexextra.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(etex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT etexdir/etex-etexextra.o -MD -MP -MF etexdir/$(DEPDIR)/etex-etexextra.Tpo -c -o etexdir/etex-etexextra.o `test -f 'etexdir/etexextra.c' || echo '$(srcdir)/'`etexdir/etexextra.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) etexdir/$(DEPDIR)/etex-etexextra.Tpo etexdir/$(DEPDIR)/etex-etexextra.Po
@@ -19715,8 +19509,6 @@ distclean-generic:
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
-rm -f alephdir/$(DEPDIR)/$(am__dirstamp)
-rm -f alephdir/$(am__dirstamp)
- -rm -f eptexdir/$(DEPDIR)/$(am__dirstamp)
- -rm -f eptexdir/$(am__dirstamp)
-rm -f etexdir/$(DEPDIR)/$(am__dirstamp)
-rm -f etexdir/$(am__dirstamp)
-rm -f euptexdir/$(DEPDIR)/$(am__dirstamp)
@@ -19889,9 +19681,6 @@ distclean: distclean-recursive
-rm -f ./$(DEPDIR)/cwebboot.Po
-rm -f ./$(DEPDIR)/dvicopy.Po
-rm -f ./$(DEPDIR)/dvitype.Po
- -rm -f ./$(DEPDIR)/eptex-eptex-pool.Po
- -rm -f ./$(DEPDIR)/eptex-eptex0.Po
- -rm -f ./$(DEPDIR)/eptex-eptexini.Po
-rm -f ./$(DEPDIR)/etex-etex-pool.Po
-rm -f ./$(DEPDIR)/etex-etex0.Po
-rm -f ./$(DEPDIR)/etex-etexini.Po
@@ -20017,7 +19806,6 @@ distclean: distclean-recursive
-rm -f alephdir/$(DEPDIR)/aleph-aleph.Po
-rm -f alephdir/$(DEPDIR)/aleph-alephbis.Po
-rm -f alephdir/$(DEPDIR)/aleph-alephextra.Po
- -rm -f eptexdir/$(DEPDIR)/eptex-eptexextra.Po
-rm -f etexdir/$(DEPDIR)/etex-etexextra.Po
-rm -f euptexdir/$(DEPDIR)/euptex-euptexextra.Po
-rm -f hitexdir/$(DEPDIR)/hishrink-hilexer.Po
@@ -20560,7 +20348,6 @@ distclean: distclean-recursive
-rm -f ptexdir/$(DEPDIR)/libkanji_a-kanji.Po
-rm -f ptexdir/$(DEPDIR)/libkanji_a-kanji_dump.Po
-rm -f ptexdir/$(DEPDIR)/ptex-ptexextra.Po
- -rm -f synctexdir/$(DEPDIR)/eptex-synctex.Po
-rm -f synctexdir/$(DEPDIR)/etex-synctex.Po
-rm -f synctexdir/$(DEPDIR)/euptex-synctex.Po
-rm -f synctexdir/$(DEPDIR)/libluajittex_a-synctex.Po
@@ -20670,9 +20457,6 @@ maintainer-clean: maintainer-clean-recursive
-rm -f ./$(DEPDIR)/cwebboot.Po
-rm -f ./$(DEPDIR)/dvicopy.Po
-rm -f ./$(DEPDIR)/dvitype.Po
- -rm -f ./$(DEPDIR)/eptex-eptex-pool.Po
- -rm -f ./$(DEPDIR)/eptex-eptex0.Po
- -rm -f ./$(DEPDIR)/eptex-eptexini.Po
-rm -f ./$(DEPDIR)/etex-etex-pool.Po
-rm -f ./$(DEPDIR)/etex-etex0.Po
-rm -f ./$(DEPDIR)/etex-etexini.Po
@@ -20798,7 +20582,6 @@ maintainer-clean: maintainer-clean-recursive
-rm -f alephdir/$(DEPDIR)/aleph-aleph.Po
-rm -f alephdir/$(DEPDIR)/aleph-alephbis.Po
-rm -f alephdir/$(DEPDIR)/aleph-alephextra.Po
- -rm -f eptexdir/$(DEPDIR)/eptex-eptexextra.Po
-rm -f etexdir/$(DEPDIR)/etex-etexextra.Po
-rm -f euptexdir/$(DEPDIR)/euptex-euptexextra.Po
-rm -f hitexdir/$(DEPDIR)/hishrink-hilexer.Po
@@ -21341,7 +21124,6 @@ maintainer-clean: maintainer-clean-recursive
-rm -f ptexdir/$(DEPDIR)/libkanji_a-kanji.Po
-rm -f ptexdir/$(DEPDIR)/libkanji_a-kanji_dump.Po
-rm -f ptexdir/$(DEPDIR)/ptex-ptexextra.Po
- -rm -f synctexdir/$(DEPDIR)/eptex-synctex.Po
-rm -f synctexdir/$(DEPDIR)/etex-synctex.Po
-rm -f synctexdir/$(DEPDIR)/euptex-synctex.Po
-rm -f synctexdir/$(DEPDIR)/libluajittex_a-synctex.Po
@@ -22089,44 +21871,6 @@ ptrip-clean:
rm -rf ptripdir
# (end of ptex.am)
-$(eptex_OBJECTS): $(eptex_prereq)
-
-$(eptex_c_h): eptex-web2c
- @$(web2c) eptex
-eptex-web2c: eptex.p $(web2c_texmf) eptexdir/eptex.defines
- @$(web2c) eptex
-
-eptex-pool.c: eptex.pool eptexd.h $(makecpool_stamp)
- $(makecpool) eptex >$@ || rm -f $@
-
-# Tangling e-pTeX
-eptex.p eptex.pool: eptex-tangle
- $(texmf_tangle) eptex eptex
-eptex-tangle: tangle$(EXEEXT) eptex.web eptex.ch tangle-sh
- $(texmf_tangle) eptex eptex
-
-# Extract eptex version
-$(srcdir)/eptexdir/eptex_version.h: @MAINTAINER_MODE_TRUE@ eptexdir/eptex.ech
- $(AM_V_GEN)grep '^@d epTeX_version_string==' $(srcdir)/eptexdir/eptex.ech \
- | sed "s/^.*'-/#define EPTEX_VERSION \"/;s/'.*$$/\"/" >$@
-
-# Generate eptex.web
-eptex.web: tie$(EXEEXT) $(eptex_web_srcs)
- $(tie_m) $(eptex_web_srcs)
-
-# Generate eptex.ch
-eptex.ch: tie$(EXEEXT) eptex.web $(eptex_ch_srcs)
- $(tie_c) eptex.web $(eptex_ch_srcs)
-eptexdir/eptriptest.log: eptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT)
-eptexdir/pdfprimitive.log: eptex$(EXEEXT)
-eptexdir/epver.log eptexdir/wcfname.log: eptex$(EXEEXT)
-eptrip.diffs: eptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT)
- $(triptrap_diffs) $@
-.PHONY: eptrip-clean
-eptrip-clean:
- rm -rf eptripdir
-
-# (end of eptex.am)
$(uptex_OBJECTS): $(uptex_prereq)
$(uptex_c_h): uptex-web2c
diff --git a/Build/source/texk/web2c/ac/web2c.ac b/Build/source/texk/web2c/ac/web2c.ac
index 50849efab79..9901c93c40c 100644
--- a/Build/source/texk/web2c/ac/web2c.ac
+++ b/Build/source/texk/web2c/ac/web2c.ac
@@ -32,7 +32,6 @@ m4_define([kpse_tex_progs], [dnl
[[tex], [yes], [no], [TeX], []],
[[etex], [no], [yes], [e-TeX], [zlib]],
[[ptex], [no], [yes], [pTeX], [ptexenc zlib]],
-[[eptex], [no], [yes], [e-pTeX], [ptexenc zlib]],
[[uptex], [no], [yes], [upTeX], [ptexenc zlib]],
[[euptex], [yes], [yes], [e-upTeX], [ptexenc zlib]],
[[aleph], [yes], [], [Aleph], []],
diff --git a/Build/source/texk/web2c/configure b/Build/source/texk/web2c/configure
index 9bfa5199678..daee6c4e064 100755
--- a/Build/source/texk/web2c/configure
+++ b/Build/source/texk/web2c/configure
@@ -828,10 +828,6 @@ UPTEX_SYNCTEX_FALSE
UPTEX_SYNCTEX_TRUE
UPTEX_FALSE
UPTEX_TRUE
-EPTEX_SYNCTEX_FALSE
-EPTEX_SYNCTEX_TRUE
-EPTEX_FALSE
-EPTEX_TRUE
PTEX_SYNCTEX_FALSE
PTEX_SYNCTEX_TRUE
PTEX_FALSE
@@ -1035,8 +1031,6 @@ enable_etex
enable_etex_synctex
enable_ptex
enable_ptex_synctex
-enable_eptex
-enable_eptex_synctex
enable_uptex
enable_uptex_synctex
enable_euptex
@@ -1782,8 +1776,6 @@ Optional Features:
--disable-etex-synctex build e-TeX without SyncTeX support
--enable-ptex compile and install pTeX
--disable-ptex-synctex build pTeX without SyncTeX support
- --enable-eptex compile and install e-pTeX
- --disable-eptex-synctex build e-pTeX without SyncTeX support
--enable-uptex compile and install upTeX
--disable-uptex-synctex build upTeX without SyncTeX support
--disable-euptex do not compile and install e-upTeX
@@ -20294,28 +20286,6 @@ test "x$enable_web2c:$enable_ptex" = xyes:yes && {
need_ptexenc=yes
need_zlib=yes
}
-# Check whether --enable-eptex was given.
-if test ${enable_eptex+y}
-then :
- enableval=$enable_eptex;
-fi
-case $enable_eptex in #(
- yes | no) :
- ;; #(
- *) :
- enable_eptex=no ;;
-esac
-
-# Check whether --enable-eptex-synctex was given.
-if test ${enable_eptex_synctex+y}
-then :
- enableval=$enable_eptex_synctex;
-fi
-
-test "x$enable_web2c:$enable_eptex" = xyes:yes && {
- need_ptexenc=yes
- need_zlib=yes
-}
# Check whether --enable-uptex was given.
if test ${enable_uptex+y}
then :
@@ -23098,36 +23068,6 @@ else
PTEX_SYNCTEX_TRUE='#'
PTEX_SYNCTEX_FALSE=
fi
- if test "x$enable_eptex" = xyes; then
- EPTEX_TRUE=
- EPTEX_FALSE='#'
-else
- EPTEX_TRUE='#'
- EPTEX_FALSE=
-fi
-
-case $enable_native_texlive_build:$enable_eptex_synctex in #(
- yes:yes | no:yes | no:no) :
- ;; #(
- *) :
- if test -z "$enable_eptex_synctex"
-then :
- { printf "%s\n" "$as_me:${as_lineno-$LINENO}: Assuming \`--enable-eptex-synctex=yes'" >&5
-printf "%s\n" "$as_me: Assuming \`--enable-eptex-synctex=yes'" >&6;}
-else case e in #(
- e) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: Enforcing \`--enable-eptex-synctex=yes' (native TeX Live build)" >&5
-printf "%s\n" "$as_me: WARNING: Enforcing \`--enable-eptex-synctex=yes' (native TeX Live build)" >&2;} ;;
-esac
-fi
- enable_eptex_synctex=yes ;;
-esac
- if test "x$enable_eptex_synctex" = xyes; then
- EPTEX_SYNCTEX_TRUE=
- EPTEX_SYNCTEX_FALSE='#'
-else
- EPTEX_SYNCTEX_TRUE='#'
- EPTEX_SYNCTEX_FALSE=
-fi
if test "x$enable_uptex" = xyes; then
UPTEX_TRUE=
UPTEX_FALSE='#'
@@ -29262,14 +29202,6 @@ if test -z "${PTEX_SYNCTEX_TRUE}" && test -z "${PTEX_SYNCTEX_FALSE}"; then
as_fn_error $? "conditional \"PTEX_SYNCTEX\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
fi
-if test -z "${EPTEX_TRUE}" && test -z "${EPTEX_FALSE}"; then
- as_fn_error $? "conditional \"EPTEX\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${EPTEX_SYNCTEX_TRUE}" && test -z "${EPTEX_SYNCTEX_FALSE}"; then
- as_fn_error $? "conditional \"EPTEX_SYNCTEX\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
if test -z "${UPTEX_TRUE}" && test -z "${UPTEX_FALSE}"; then
as_fn_error $? "conditional \"UPTEX\" was never defined.
Usually this means the macro was only invoked conditionally." "$LINENO" 5
diff --git a/Build/source/texk/web2c/eptexdir/COPYRIGHT b/Build/source/texk/web2c/eptexdir/COPYRIGHT
deleted file mode 100644
index 0ebd3f3a08a..00000000000
--- a/Build/source/texk/web2c/eptexdir/COPYRIGHT
+++ /dev/null
@@ -1,26 +0,0 @@
-Copyright (C) 2009 ASCII MEDIA WORKS.
-Copyright (C) 2010-2023 Japanese TeX Development Community
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions
-are met:
-
-1. Redistributions of source code must retain the above copyright
- notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
- notice, this list of conditions and the following disclaimer in the
- documentation and/or other materials provided with the distribution.
-3. Neither the name of the author may be used to endorse or promote products
- derived from this software without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
-IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
-OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
-INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
-NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
-THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/Build/source/texk/web2c/eptexdir/am/eptex.am b/Build/source/texk/web2c/eptexdir/am/eptex.am
deleted file mode 100644
index 8ff94d61068..00000000000
--- a/Build/source/texk/web2c/eptexdir/am/eptex.am
+++ /dev/null
@@ -1,135 +0,0 @@
-## $Id$
-## texk/web2c/eptexdir/am/eptex.am: Makefile fragment for e-pTeX.
-##
-## Copyright 2015-2024 Karl Berry <tex-live@tug.org>
-## Copyright 2011-2015 Peter Breitenlohner <tex-live@tug.org>
-## You may freely use, modify and/or distribute this file.
-
-## e-pTeX
-##
-if EPTEX
-bin_PROGRAMS += eptex
-if !PTEX
-bin_links += eptex$(EXEEXT):ptex
-endif !PTEX
-endif EPTEX
-EXTRA_PROGRAMS += eptex
-
-eptex_CPPFLAGS = $(PTEXENC_INCLUDES) $(AM_CPPFLAGS) -I$(srcdir)/libmd5 $(ZLIB_INCLUDES)
-
-# With --enable-ipc, e-pTeX may need to link with -lsocket.
-eptex_LDADD = libkanji.a $(pproglib) $(PTEXENC_LIBS) $(LDADD) $(ipc_socketlibs) libmd5.a $(ZLIB_LIBS)
-eptex_DEPENDENCIES = libkanji.a $(pproglib) $(PTEXENC_DEPEND) $(default_dependencies) libmd5.a $(ZLIB_DEPEND)
-
-# e-pTeX C sources
-eptex_c_h = eptexini.c eptex0.c eptexcoerce.h eptexd.h
-nodist_eptex_SOURCES = $(eptex_c_h) eptex-pool.c
-dist_eptex_SOURCES = eptexdir/eptexextra.c eptexdir/eptexextra.h eptexdir/eptex_version.h
-
-# We must create eptexd.h and eptexdir/eptex_version.h before building the eptex_OBJECTS.
-eptex_prereq = eptexd.h etexdir/etex_version.h ptexdir/ptex_version.h eptexdir/eptex_version.h
-$(eptex_OBJECTS): $(eptex_prereq)
-
-$(eptex_c_h): eptex-web2c
- @$(web2c) eptex
-eptex-web2c: eptex.p $(web2c_texmf) eptexdir/eptex.defines
- @$(web2c) eptex
-
-eptex-pool.c: eptex.pool eptexd.h $(makecpool_stamp)
- $(makecpool) eptex >$@ || rm -f $@
-
-# Tangling e-pTeX
-eptex.p eptex.pool: eptex-tangle
- $(texmf_tangle) eptex eptex
-eptex-tangle: tangle$(EXEEXT) eptex.web eptex.ch tangle-sh
- $(texmf_tangle) eptex eptex
-
-# Extract eptex version
-$(srcdir)/eptexdir/eptex_version.h: @MAINTAINER_MODE_TRUE@ eptexdir/eptex.ech
- $(AM_V_GEN)grep '^@d epTeX_version_string==' $(srcdir)/eptexdir/eptex.ech \
- | sed "s/^.*'-/#define EPTEX_VERSION \"/;s/'.*$$/\"/" >$@
-
-# Generate eptex.web
-eptex.web: tie$(EXEEXT) $(eptex_web_srcs)
- $(tie_m) $(eptex_web_srcs)
-eptex_web_srcs = \
- tex.web \
- etexdir/etex.ch \
- etexdir/tex.ch0 \
- tex.ch \
- tracingstacklevels.ch \
- partoken.ch \
- locnull-optimize.ch \
- showstream.ch \
- zlib-fmt.ch \
- etexdir/tex.ech
-
-# Generate eptex.ch
-eptex.ch: tie$(EXEEXT) eptex.web $(eptex_ch_srcs)
- $(tie_c) eptex.web $(eptex_ch_srcs)
-eptex_ch_srcs = \
- eptexdir/eptex-base.ch \
- eptexdir/etex.ch0 \
- ptexdir/ptex-base.ch \
- eptexdir/eptex.ech \
- eptexdir/etex.ch1 \
- $(eptex_ch_synctex) \
- eptexdir/fam256.ch \
- eptexdir/pdfutils.ch \
- eptexdir/suppresserrors.ch \
- eptexdir/unbalanced-braces-eptex.ch \
- eptexdir/char-warning-eptex.ch \
- tex-binpool.ch
-
-EXTRA_DIST += $(eptex_web_srcs) $(eptex_ch_srcs) eptexdir/eptex.defines
-
-DISTCLEANFILES += $(nodist_eptex_SOURCES) eptex.web eptex.ch eptex-web2c \
- eptex.p eptex.pool eptex-tangle
-
-##
-EXTRA_DIST += \
- eptexdir/ChangeLog \
- eptexdir/Changes.txt \
- eptexdir/README.txt
-
-# e-pTeX Tests
-#
-eptex_tests = \
- eptexdir/eptriptest.test \
- eptexdir/pdfprimitive.test \
- eptexdir/epver.test \
- eptexdir/wcfname.test
-eptexdir/eptriptest.log: eptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT)
-eptexdir/pdfprimitive.log: eptex$(EXEEXT)
-eptexdir/epver.log eptexdir/wcfname.log: eptex$(EXEEXT)
-
-EXTRA_DIST += $(eptex_tests)
-
-if EPTEX
-TESTS += $(eptex_tests)
-TRIPTRAP += eptrip.diffs
-TRIPTRAP_CLEAN += eptrip-clean
-endif EPTEX
-
-## Test data and results
-##
-## eptexdir/eptriptest.test
-EXTRA_DIST += \
- eptexdir/eptrip/eptrip.diffs \
- eptexdir/eptrip/eptrip.log \
- eptexdir/eptrip/eptrip.tex \
- eptexdir/eptrip/texmf.cnf
-eptrip.diffs: eptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT)
- $(triptrap_diffs) $@
-.PHONY: eptrip-clean
-eptrip-clean:
- rm -rf eptripdir
-DISTCLEANFILES += eptrip.diffs
-## eptexdir/pdfprimitive.test
-EXTRA_DIST += \
- eptexdir/pdfprimitive.test \
- eptexdir/tests/pdfprimitive-test.tex \
- eptexdir/tests/pdfprimitive-eptex.log
-DISTCLEANFILES += pdfprimitive-eptex.*
-
-# (end of eptex.am)
diff --git a/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch b/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch
deleted file mode 100644
index fcd528d45be..00000000000
--- a/Build/source/texk/web2c/eptexdir/char-warning-eptex.ch
+++ /dev/null
@@ -1,101 +0,0 @@
-% $Id$
-% Public domain. See ../pdftexdir/char-warning-pdftex.ch for info.
-
-@x [30] If \tracinglostchars > 2, then promote full errors.
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-var @!l:0..255; {small indices or counters}
-old_setting: integer; {saved value of |tracing_online|}
-begin if tracing_lost_chars>0 then
- begin old_setting:=tracing_online;
- if eTeX_ex and(tracing_lost_chars>1) then tracing_online:=1;
- begin begin_diagnostic;
- print_nl("Missing character: There is no ");
-@.Missing character@>
- if (c<" ")or(c>"~") then
- begin print_char("^"); print_char("^");
- if c<64 then print_char(c+64)
- else if c<128 then print_char(c-64)
- else begin print_lc_hex(c div 16); print_lc_hex(c mod 16); end
- end
- else print_ASCII(c);
- print(" in font ");
- slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
- end;
- tracing_online:=old_setting;
- end;
-end;
-@y
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-var @!l:0..255; {small indices or counters}
-old_setting: integer; {saved value of |tracing_online|}
-begin if tracing_lost_chars>0 then
- begin old_setting:=tracing_online;
- if eTeX_ex and(tracing_lost_chars>1) then tracing_online:=1;
- if tracing_lost_chars > 2 then
- print_err("Missing character: There is no ")
- else begin
- begin_diagnostic;
- print_nl("Missing character: There is no ")
- end;
-@.Missing character@>
- if (c<" ")or(c>"~") then begin
- print_char("^"); print_char("^");
- if c<64 then print_char(c+64)
- else if c<128 then print_char(c-64)
- else begin print_lc_hex(c div 16); print_lc_hex(c mod 16); end
- end
- else print_ASCII(c);
- if tracing_lost_chars > 2 then begin
- print(" (");
- print_hex(c);
- print(")");
- end;
- print(" in font ");
- slow_print(font_name[f]);
- if tracing_lost_chars < 3 then print_char("!");
- tracing_online:=old_setting;
- if tracing_lost_chars > 2 then begin
- help0;
- error;
- end else end_diagnostic(false);
- end; {of |tracing_lost_chars>0|}
-end; {of procedure}
-@z
-
-@x [30] Another warning for (u)pTeX.
-@p procedure char_warning_jis(@!f:internal_font_number;@!jc:KANJI_code);
-begin if tracing_lost_chars>0 then
- begin begin_diagnostic;
- print_nl("Character "); print_kanji(jc); print(" (");
- print_hex(jc); print(") cannot be typeset in JIS-encoded JFM ");
- slow_print(font_name[f]);
- print_char(","); print_nl("so I use .notdef glyph instead.");
- end_diagnostic(false);
- end;
-end;
-@y
-@p procedure char_warning_jis(@!f:internal_font_number;@!jc:KANJI_code);
-var old_setting: integer; {saved value of |tracing_online|}
-begin if tracing_lost_chars>0 then
- begin old_setting:=tracing_online;
- if eTeX_ex and(tracing_lost_chars>1) then tracing_online:=1;
- if tracing_lost_chars > 2 then
- print_err("Character ")
- else begin
- begin_diagnostic;
- print_nl("Character ")
- end;
- print_kanji(jc); print(" (");
- print_hex(jc); print(") cannot be typeset in JIS-encoded JFM ");
- slow_print(font_name[f]);
- print_char(",");
- if tracing_lost_chars > 2 then
- begin print_nl(" so I use .notdef glyph instead");
- help0; error; end
- else
- begin print_nl("so I use .notdef glyph instead.");
- end_diagnostic(false); end;
- tracing_online:=old_setting;
- end; {of |tracing_lost_chars>0|}
-end; {of procedure}
-@z
diff --git a/Build/source/texk/web2c/eptexdir/eptex.defines b/Build/source/texk/web2c/eptexdir/eptex.defines
deleted file mode 100644
index 88035e9c754..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptex.defines
+++ /dev/null
@@ -1,60 +0,0 @@
-{ defined at kanji.c, kanji.h, ptexenc/ptexenc.h }
-@define function BYTE1 ();
-@define function BYTE2 ();
-@define function BYTE3 ();
-@define function BYTE4 ();
-@define function Hi ();
-@define function Lo ();
-
-@define function getencstring;
-@define function setencstring ();
-@define function isinternalUPTEX;
-@define function isterminalUTF8;
-
-@define function iskanji1 ();
-@define function multistrlen ();
-@define function multistrlenshort ();
-@define function multistrlenfilename ();
-@define function fromBUFF ();
-@define function fromBUFFshort ();
-@define function toBUFF ();
-
-@define function fromDVI ();
-@define function toDVI ();
-@define function putc2 ();
-@define function fputs2 ();
-@define function inputline2 ();
-@define function ptencconvfirstline ();
-
-@define function setinfileenc ();
-@define function setstdinenc ();
-
-@define function fromJIS ();
-@define function fromEUC ();
-@define function fromSJIS ();
-@define function fromKUTEN ();
-@define function UCStoUTF8 ();
-@define function fromUCS ();
-@define function toJIS ();
-@define function toUCS ();
-
-@define function notkanjicharseq ();
-@define function checkkanji ();
-@define function ischarascii ();
-@define function ischarkanji ();
-@define function ismultiprn ();
-@define function calcpos ();
-@define function kcatcodekey ();
-
-@define function getintone ();
-@define procedure setintone ();
-
-@define procedure dumpkanji ();
-@define procedure undumpkanji ();
-
-@define procedure initstarttime;
-@define procedure getcreationdate;
-@define procedure getfilemoddate();
-@define procedure getfilesize();
-@define procedure getfiledump();
-@define procedure getmd5sum();
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech
deleted file mode 100644
index bb4d31519f4..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptex.ech
+++ /dev/null
@@ -1,804 +0,0 @@
-% eptexdir/eptex.ech: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details.
-% Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>.
-
-%% new primitives by e-pTeX
-%%
-%% \epTeXversion
-%% \epTeXinputencoding <euc|sjis|jis|utf8>
-%%
-%% \currentspacingmode: 1 iff auto_spacing
-%% \currentxspacingmode: 1 iff auto_xspacing
-%% \lastnodechar: the (internal) character code of the last node
-%% -1: non-character or null
-%% \lastnodesubtype: the (internal) subtype of the last node
-%% note: returns a value from the type if the node is s math noad.
-%% -1: null
-%% fallback to 0 if not explicitly set
-%% \readpapersizespecial
-%% 1: papersize special automatically sets \pdfpage{width,height} (quick hack).
-%% 0: off
-%% The default value is 1.
-%%
-
-@x e-pTeX: logo
-\def\eTeX{$\varepsilon$-\TeX}
-@y
-\def\eTeX{$\varepsilon$-\TeX}
-\def\epTeX{$\varepsilon$-\pTeX}
-@z
-
-@x [1.2] l.190 - epTeX:
-@d eTeX_version_string=='-2.6' {current \eTeX\ version}
-@y
-@d eTeX_version_string=='-2.6' {current \eTeX\ version}
-@#
-@d epTeX_version_string=='-230214'
-@d epTeX_version_number==230214
-@z
-
-@x e-pTeX: banner
- {printed when \pTeX\ starts}
-@y
- {printed when \pTeX\ starts}
-@#
-@d epTeX_version==pTeX_version_string,epTeX_version_string,eTeX_version_string
-@d epTeX_banner=='This is e-pTeX, Version 3.141592653',epTeX_version
-@d epTeX_banner_k==epTeX_banner
- {printed when \epTeX\ starts}
-@z
-
-@x [1.2]
-@d banner==pTeX_banner
-@d banner_k==pTeX_banner_k
-@y
-@d banner==epTeX_banner
-@d banner_k==epTeX_banner_k
-@z
-
-@x [10.135] l.2895 - e-pTeX: box_lr and box_dir
-In \eTeX\ the |subtype| field records the box direction mode |box_lr|.
-@y
-In \eTeX\ the |subtype| field records the box direction mode |box_lr|.
-In \epTeX\ the |subtype| field is |qi(16*box_lr+box_dir)|.
-@z
-
-@x
-@d box_dir(#) == (qo(subtype(#))-dir_max) {direction of a box}
-@d set_box_dir(#) == subtype(#):=set_box_dir_end
-@y
-@d box_dir(#) == ((qo(subtype(#)))mod 16 - dir_max) {direction of a box}
-@d set_box_dir(#) == subtype(#):=box_lr(#)*16+set_box_dir_end
-@z
-
-@x [17]
-@d saving_hyph_codes_code=etex_int_base+8 {save hyphenation codes for languages}
-@d eTeX_state_code=etex_int_base+9 {\eTeX\ state variables}
-@y
-@d saving_hyph_codes_code=etex_int_base+8 {save hyphenation codes for languages}
-@d read_papersize_special_code=etex_int_base+9
-@d eTeX_state_code=etex_int_base+10 {\eTeX\ state variables}
-@z
-
-@x [17]
-@d saving_hyph_codes==int_par(saving_hyph_codes_code)
-@y
-@d saving_hyph_codes==int_par(saving_hyph_codes_code)
-@d read_papersize_special==int_par(read_papersize_special_code)
-@z
-
-@x [26.???] prepare for |scan_font_ident| to recognize \lastnodefont
-@p procedure@?scan_int; forward; {scans an integer value}
-@y
-@p procedure@?scan_int; forward; {scans an integer value}
-procedure@?scan_something_internal_ident; forward;
-@z
-
-@x [26.413] l.8343 - e-pTeX: scan_something_internal
-var m:halfword; {|chr_code| part of the operand token}
-@y
-label exit;
-var m:halfword; {|chr_code| part of the operand token}
-@z
-
-@x [26.???] add |scan_something_internal_ident| (used in |scan_font_ident|)
-@<Fix the reference count, if any, and negate |cur_val| if |negative|@>;
-end;
-@y
-@<Fix the reference count, if any, and negate |cur_val| if |negative|@>;
-end;
-
-@ @p procedure scan_something_internal_ident;
- begin scan_something_internal(ident_val,false); end;
-@z
-
-@x
-@d input_line_no_code=glue_val+2 {code for \.{\\inputlineno}}
-@d badness_code=glue_val+2 {code for \.{\\badness}}
-@y
-@d last_node_subtype_code=glue_val+2 {code for \.{\\lastnodesubtype}}
-@d last_node_char_code=glue_val+3 {code for \.{\\lastnodechar}}
-@d last_node_font_code=glue_val+4 {code for \.{\\lastnodefont}}
-@d input_line_no_code=glue_val+5 {code for \.{\\inputlineno}}
-@d badness_code=glue_val+6 {code for \.{\\badness}}
-@z
-
-@x
-@d ptex_minor_version_code=ptex_version_code+1 {code for \.{\\ptexminorversion}}
-@y
-@d eptex_version_code=ptex_version_code+1 {code for \.{\\epTeXversion}}
-@d ptex_minor_version_code=eptex_version_code+1 {code for \.{\\ptexminorversion}}
-@z
-
-@x e-pTeX: \current(x)spacingmode
-@d eTeX_dim=eTeX_int+8 {first of \eTeX\ codes for dimensions}
-@y
-@d eTeX_dim=eTeX_int+10 {first of \eTeX\ codes for dimensions}
-@z
-
-@x
-primitive("ptexminorversion",last_item,ptex_minor_version_code);
-@!@:ptexminorversion_}{\.{\\ptexminorversion} primitive@>
-@y
-primitive("epTeXversion",last_item,eptex_version_code);
-@!@:epTeXversion_}{\.{\\epTeXversion} primitive@>
-primitive("ptexminorversion",last_item,ptex_minor_version_code);
-@!@:ptexminorversion_}{\.{\\ptexminorversion} primitive@>
-@z
-
-@x
- ptex_minor_version_code: print_esc("ptexminorversion");
-@y
- eptex_version_code: print_esc("epTeXversion");
- ptex_minor_version_code: print_esc("ptexminorversion");
-@z
-
-@x [26.420] l.8474 - pTeX: Fetch a box dimension: dir_node
-begin scan_eight_bit_int; q:=box(cur_val);
-@y
-begin scan_register_num; fetch_box(q);
-@z
-
-@x [26.424] l.8508 - e-pTeX: TeXXeT and disp_node
-node of the current list.
-@y
-node of the current list.
-The macro |find_effective_tail_epTeX| sets |tx| to the last non-\.{\\endM}
-non-|disp_node| of the current list.
-@z
-
-@x [26.424] l.8510 - e-pTeX: last node
-@d find_effective_tail==find_effective_tail_pTeX
-@y
-@d find_effective_tail_epTeX==
-tx:=tail;
-if not is_char_node(tx) then if type(tx)=disp_node then tx:=prev_node;
-if not is_char_node(tx) then
- if (type(tx)=disp_node) {|disp_node| from a discretionary}
- or((type(tx)=math_node)and(subtype(tx)=end_M_code)) then
- begin r:=head; q:=link(head);
- while q<>tx do
- begin if is_char_node(q) then r:=q
- else if (type(q)<>disp_node)and
- ((type(q)<>math_node)or(subtype(q)<>end_M_code)) then r:=q;
- q:=link(q);
- end;
- tx:=r;
- end
-@#
-@d find_effective_tail==find_effective_tail_epTeX
-@#
-@d find_last_char==
-if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx)))
-else cur_val:=qo(character(tx))
-
-@d ignore_font_kerning==
-begin if ((type(tx)=glue_node) and (subtype(tx)=jfm_skip+1))
- or ((type(tx)=penalty_node) and (subtype(tx)=kinsoku_pena)) then
- tx:=last_jchr
-else if (type(tx)=kern_node) and (subtype(tx)=normal) then
- begin r:=head; q:=link(head);
- while q<>tx do
- begin r:=q;
- if is_char_node(q) then if font_dir[font(q)]<>dir_default then q:=link(q);
- q:=link(q);
- end;
- if ((type(r)=penalty_node) and (subtype(r)=kinsoku_pena)) then tx:=last_jchr else tx:=r;
- end;
-end
-@z
-
-@x
- ptex_minor_version_code: cur_val:=pTeX_minor_version;
-@y
- eptex_version_code: cur_val:=epTeX_version_number;
- ptex_minor_version_code: cur_val:=pTeX_minor_version;
-@z
-
-@x [26.424] e-pTeX: node char
- if cur_chr=last_node_type_code then
- begin cur_val_level:=int_val;
- if (tx=head)or(mode=0) then cur_val:=-1;
- end
- else cur_val_level:=cur_chr;
-@y
- if (cur_chr=last_node_type_code)or(cur_chr=last_node_subtype_code) then
- begin cur_val_level:=int_val;
- if (tx=head)or(mode=0) then cur_val:=-1;
- end
- else if cur_chr=last_node_char_code then
- begin cur_val_level:=int_val; cur_val:=-1;
- end
- else if cur_chr=last_node_font_code then
- begin cur_val_level:=ident_val; cur_val:=null_font+font_id_base;
- end
- else cur_val_level:=cur_chr;
- if (cur_chr=last_node_char_code)or(cur_chr=last_node_font_code) then
- if is_char_node(tx)and(tx<>head) then begin
- { |tx| might be ``second node'' of a KANJI character; so we need to look the node before |tx| }
- r:=head; q:=head;
- while q<>tx do begin r:=q; q:=link(q); end; { |r| is the node just before |tx| }
- if (r<>head)and is_char_node(r) then if font_dir[font(r)]<>dir_default then tx:=r;
- if cur_chr=last_node_char_code then find_last_char
- else cur_val:=font(tx)+font_id_base;
- end;
-@z
-
-@x [26.424] e-pTeX: node types
- last_node_type_code: if type(tx)<=unset_node then cur_val:=type(tx)+1
- else cur_val:=unset_node+2;
-@y
- last_node_type_code: if type(tx)<=unset_node then
- begin if type(tx)=dir_node then tx:=list_ptr(tx);
- cur_val:=type(tx);
- if cur_val<dir_node then cur_val:=cur_val+1
- else if cur_val>disp_node then cur_val:=cur_val-1;
- end
- else cur_val:=unset_node; {\epTeX's |unset_node| is \eTeX's |unset_node+2|}
- last_node_subtype_code: if type(tx)<=unset_node then cur_val:=subtype(tx)
- { non-math nodes }
- else begin
- cur_val:=type(tx);
- if cur_val<unset_node+4 then cur_val:=cur_val-unset_node-1
- { |style_noad|, |choice_noad|, |ord_noad| }
- else if cur_val=unset_node+4 then cur_val:=cur_val-unset_node-1+subtype(tx)
- else cur_val:=cur_val-unset_node+1;
- end;
- last_node_char_code: begin
- ignore_font_kerning;
- if is_char_node(tx) then
- find_last_char
- else if type(tx)=ligature_node then
- {decompose a ligature to original characters}
- begin r:=lig_ptr(tx);
- while link(r)<>null do r:=link(r);
- cur_val:=qo(character(r));
- end
- {else: already -1}
- end;
- last_node_font_code: begin
- ignore_font_kerning;
- if is_char_node(tx) then
- cur_val:=font(tx)+font_id_base
- else if type(tx)=ligature_node then
- cur_val:=font(lig_char(tx))+font_id_base
- {else: already nullfont}
- end;
-@z
-
-@x
- last_node_type_code: cur_val:=last_node_type;
-@y
- last_node_type_code: cur_val:=last_node_type;
- last_node_subtype_code: cur_val:=last_node_subtype;
-@z
-
-@x e-pTeX: if primitives - leave room for three e-TeX codes
-@d if_tdir_code=if_case_code+1 { `\.{\\iftdir}' }
-@y
-@d if_tdir_code=if_case_code+4 { `\.{\\iftdir}' }
-@z
-
-@x [30.???] |scan_font_ident|: recognize \lastnodefont
-else begin print_err("Missing font identifier");
-@y
-else if (cur_cmd=last_item)and(cur_chr=last_node_font_code) then
- begin scan_something_internal_ident; f:=cur_val-font_id_base;
- end
-else begin print_err("Missing font identifier");
-@z
-
-@x
-@d box_lr(#) == (qo(subtype(#))) {direction mode of a box}
-@d set_box_lr(#) == subtype(#):=set_box_lr_end
-@d set_box_lr_end(#) == qi(#)
-@y
-@d box_lr(#) == ((qo(subtype(#)))div 16) {direction mode of a box}
-@d set_box_lr(#) == subtype(#):=box_dir(#)+dir_max+set_box_lr_end
-@d set_box_lr_end(#) == qi(16*(#))
-@z
-
-@x [35]
-@<Initialize table entries...@>=
-text_baseline_shift_factor:=1000;
-@y
-@<Initialize table entries...@>=
-text_baseline_shift_factor:=1000;
-read_papersize_special:=1;
-@z
-
-@x
-@!last_node_type:integer; {used to implement \.{\\lastnodetype}}
-@y
-@!last_node_type:integer; {used to implement \.{\\lastnodetype}}
-@!last_node_subtype:integer; {used to implement \.{\\lastnodesubtype}}
-@z
-
-@x
-last_node_type:=-1;
-@y
-last_node_type:=-1; last_node_subtype:=-1;
-@z
-
-@x [45.996] l.19420
-last_node_type:=type(p)+1;
-@y
-if type(p)<dir_node then last_node_type:=type(p)+1
-else if type(p)=dir_node then last_node_type:=type(list_ptr(p))+1
-else if type(p)<disp_node then last_node_type:=type(p)
-else last_node_type:=type(p)-1; {no |disp_node| in a vertical list}
-last_node_subtype:=subtype(p);
-@z
-
-@x [47.1079] l.20920
-@!fd:boolean; {a final |disp_node| pair?}
-@y
-@!s:pointer; {running behind |r|}
-@!t:pointer;
-@!fm:integer; {1: if |r|, 2: if |p| is a \.{\\beginM} node}
-@!gm:integer; {1: if |link(q)|, 2: if |q| is an \.{\\endM} node}
-@!fd,@!gd:integer; {same for |disp_node|}
-@z
-
-@x [47.1080] l.20940
-@d check_effective_tail==check_effective_tail_pTeX
-@d fetch_effective_tail==fetch_effective_tail_pTeX
-@y
-@d fetch_effective_tail_epTeX(#)== {extract |tx|,
- drop \.{\\beginM} \.{\\endM} pair and\slash or merge |disp_node| pair}
-q:=head; p:=null; r:=null; fm:=0; fd:=0; disp:=0; pdisp:=0;
-repeat s:=r; r:=p; p:=q; fm:=fm div 2; fd:=fd div 2;
-if not is_char_node(q) then
- if type(q)=disc_node then
- begin for m:=1 to replace_count(q) do
- begin p:=link(p); if p=tx then #; end
- { |tx| might be a part of discretionary; in this case, nothing will be removed}
- end
- else if (type(q)=math_node)and(subtype(q)=begin_M_code) then fm:=2
- else if type(q)=disp_node then
- begin pdisp:=disp; disp:=disp_dimen(q); fd:=2;@+end;
-q:=link(p);
-until q=tx; {found |s|$\to$|r|$\to$|p|$\to$|q=tx|}
-q:=link(tx); link(p):=q; link(tx):=null;
-if q=null then begin tail:=p; gm:=0; gd:=0;@+end
-else begin if type(q)=math_node then
- begin gm:=2;
- if link(q)=null then gd:=0
- else if type(link(q))=disp_node then gd:=1
- else confusion("tail3");
-@:this can't happen tail3}{\quad tail3@>
- end
- else if type(q)=disp_node then
- begin prev_node:=p; gd:=2;
- if link(q)=null then gm:=0
- else if type(link(q))=math_node then gm:=1
- else confusion("tail4");
-@:this can't happen tail4}{\quad tail4@>
- end
- else confusion("tail5");
-@:this can't happen tail5}{\quad tail5@>
- end;
-if gm=0 then if fm=2 then confusion("tail1")
-@:this can't happen tail1}{\quad tail1@>
- else if fm=1 then confusion("tail2");
-@:this can't happen tail2}{\quad tail2@>
-if (fm+fd)=1 then begin fm:=0; fd:=0;@+end;
-if gm=0 then fm:=0;
-if gd=0 then fd:=0;
-@#
-if fd>0 then {merge a |disp_node| pair}
- begin if gm=0 then {|p|$\to$|q=disp_node|$to$|null|}
- begin t:=q; q:=null; link(p):=q; tail:=p;@+end
- else if gm=1 then {|p|$\to$|q=disp_node|$to$|end_M|$to$|null|}
- begin t:=q; q:=link(q); link(p):=q; gm:=2;@+end
- else {|p|$\to$|q=end_M|$\to$|disp_node|$to$|null|}
- begin t:=link(q); link(q):=null; tail:=q;@+end;
-@#
- if fd=1 then {|s|$\to$|r=disp_node|}
- begin prev_node:=s; disp_dimen(r):=disp_dimen(t);@+end
- else {|r|$\to$|p=disp_node|}
- begin prev_node:=r; disp_dimen(p):=disp_dimen(t);@+end;
- prev_disp:=pdisp; free_node(t,small_node_size); gd:=0;
- end;
-@#
-if fm>0 then {drop \.{\\beginM} \.{\\endM} pair}
- begin if gd=0 then {|p|$\to$|q=end_M|$to$|null|}
- begin t:=q; q:=null; link(p):=q; tail:=p;@+end
- else if gd=1 then {|p|$\to$|q=end_M|$to$|disp_node|$to$|null|}
- begin t:=q; q:=link(q); link(p):=q; prev_node:=p; link(t):=null
- end
- else {|p|$\to$|q=disp_node|$\to$|end_M|$to$|null|}
- begin t:=link(q); link(q):=null; tail:=q;@+end;
-@#
- if fm=1 then {|s|$\to$|r=begin_M|$\to$|p=disp_node|}
- begin link(s):=p; link(r):=t; t:=r; prev_node:=s;@+end
- else {|r|$\to$|p=begin_M|$\to$|q|}
- begin link(r):=q; link(p):=t; t:=p;
- if q=null then tail:=r@+else prev_node:=r;
- end;
- flush_node_list(t);
- end
-@#
-@d check_effective_tail(#)==find_effective_tail_epTeX
-@d fetch_effective_tail==fetch_effective_tail_epTeX
-@z
-
-@x [47.1105] l.21246
-@!fd:boolean; {a final |disp_node| pair?}
-@y
-@!s:pointer; {running behind |r|}
-@!t:pointer;
-@!fm:integer; {1: if |r|, 2: if |p| is a \.{\\beginM} node}
-@!gm:integer; {1: if |link(q)|, 2: if |q| is an \.{\\endM} node}
-@!fd,@!gd:integer; {same for |disp_node|}
-@z
-
-@x
-@d set_language_code=5 {command modifier for \.{\\setlanguage}}
-@y
-@d set_language_code=5 {command modifier for \.{\\setlanguage}}
-@d epTeX_input_encoding_code=6 {command modifier for \.{\\epTeXinputencoding}}
-@z
-
-@x
-primitive("setlanguage",extension,set_language_code);@/
-@!@:set_language_}{\.{\\setlanguage} primitive@>
-@y
-primitive("setlanguage",extension,set_language_code);@/
-@!@:set_language_}{\.{\\setlanguage} primitive@>
-primitive("epTeXinputencoding",extension,epTeX_input_encoding_code);@/
-@!@:epTeX_input_encoding_}{\.{\\epTeXinputencoding} primitive@>
-@z
-
-@x
- set_language_code:print_esc("setlanguage");
-@y
- set_language_code:print_esc("setlanguage");
- epTeX_input_encoding_code:print_esc("epTeXinputencoding");
-@z
-
-@x
-set_language_code:@<Implement \.{\\setlanguage}@>;
-@y
-set_language_code:@<Implement \.{\\setlanguage}@>;
-epTeX_input_encoding_code:@<Implement \.{\\epTeXinputencoding}@>;
-@z
-
-@x
-@ @<Finish the extensions@>=
-@y
-@ @<Declare procedures needed in |do_ext...@>=
-procedure eptex_set_input_encoding;
-var j,k:integer;
-begin
- scan_file_name;
- pack_cur_name;
- if state=token_list then
- begin k:=input_ptr-1; j:=-1;
- while k>=0 do
- begin if input_stack[k].state_field=token_list then decr(k)
- else if input_stack[k].name_field>19 then
- begin j:=input_stack[k].index_field; k:=-1; end
- else begin j:=-(input_stack[k].name_field+1); k:=-1; end
- end
- end
- else if name>19 then j:=index else j:=-(name+1);
- if (j>=0) or (j=-1) or (j=-18) then begin
- k:=true;
- if j>=0 then k:=setinfileenc(input_file[j],stringcast(name_of_file+1))
- else k:=setstdinenc(stringcast(name_of_file+1));
- if k = false then
- begin begin_diagnostic;
- print_nl("Unknown encoding `");
- slow_print(cur_area); slow_print(cur_name); slow_print(cur_ext);
- print("'"); end_diagnostic(false);
- end
- end
- else
- begin begin_diagnostic; j:=-j-1;
- print_ln;
- print_nl("Warning: \epTeXinputencoding is ignored, since I am current reading");
- print_nl("from ");
- if j>=18 then print("a pseudo file created by \scantokens.")
- else begin print("input stream "); print_int(j); print("."); end;
- end_diagnostic(false);
- end
-end;
-
-@ @<Implement \.{\\epTeXinputencoding}@>=
-eptex_set_input_encoding
-
-@ @<Finish the extensions@>=
-@z
-
-@x
-primitive("lastnodetype",last_item,last_node_type_code);
-@!@:last_node_type_}{\.{\\lastnodetype} primitive@>
-@y
-primitive("lastnodetype",last_item,last_node_type_code);
-@!@:last_node_type_}{\.{\\lastnodetype} primitive@>
-primitive("lastnodesubtype",last_item,last_node_subtype_code);
-@!@:last_node_subtype_}{\.{\\lastnodesubtype} primitive@>
-primitive("lastnodechar",last_item,last_node_char_code);
-@!@:last_node_char_}{\.{\\lastnodechar} primitive@>
-primitive("lastnodefont",last_item,last_node_font_code);
-@!@:last_node_font_}{\.{\\lastnodefont} primitive@>
-@z
-
-@x
-last_node_type_code: print_esc("lastnodetype");
-@y
-last_node_type_code: print_esc("lastnodetype");
-last_node_subtype_code: print_esc("lastnodesubtype");
-last_node_char_code: print_esc("lastnodechar");
-last_node_font_code: print_esc("lastnodefont");
-@z
-
-@x
-primitive("savinghyphcodes",assign_int,int_base+saving_hyph_codes_code);@/
-@!@:saving_hyph_codes_}{\.{\\savinghyphcodes} primitive@>
-@y
-primitive("savinghyphcodes",assign_int,int_base+saving_hyph_codes_code);@/
-@!@:saving_hyph_codes_}{\.{\\savinghyphcodes} primitive@>
-primitive("readpapersizespecial",assign_int,int_base+read_papersize_special_code);@/
-@!@:read_papersize_special_}{\.{\\readpapersizespecial} primitive@>
-@z
-
-@x
-saving_hyph_codes_code:print_esc("savinghyphcodes");
-@y
-saving_hyph_codes_code:print_esc("savinghyphcodes");
-read_papersize_special_code:print_esc("readpapersizespecial");
-@z
-
-@x e-pTeX: font_char_{wd,ht,dp,ic}_code l.27306
-font_char_ic_code: begin scan_font_ident; q:=cur_val; scan_char_num;
- if (font_bc[q]<=cur_val)and(font_ec[q]>=cur_val) then
- begin i:=char_info(q)(qi(cur_val));
- case m of
- font_char_wd_code: cur_val:=char_width(q)(i);
- font_char_ht_code: cur_val:=char_height(q)(height_depth(i));
- font_char_dp_code: cur_val:=char_depth(q)(height_depth(i));
- font_char_ic_code: cur_val:=char_italic(q)(i);
- end; {there are no other cases}
- end
- else cur_val:=0;
- end;
-@y
-font_char_ic_code: begin scan_font_ident; q:=cur_val;
- if font_dir[q]<>dir_default then {Japanese font}
- begin scan_int;
- if cur_val>=0 then
- begin if is_char_kanji(cur_val) then {Japanese Character}
- cur_val:=get_jfm_pos(KANJI(cur_val),q)
- else cur_val:=-1
- end
- else begin
- cur_val:=-(cur_val+1);
- if (font_bc[q]>cur_val)or(font_ec[q]<cur_val) then cur_val:=-1
- end;
- if cur_val<>-1 then
- begin
- i:=orig_char_info(q)(qi(cur_val));
- case m of
- font_char_wd_code: cur_val:=char_width(q)(i);
- font_char_ht_code: cur_val:=char_height(q)(height_depth(i));
- font_char_dp_code: cur_val:=char_depth(q)(height_depth(i));
- font_char_ic_code: cur_val:=char_italic(q)(i);
- end; {there are no other cases}
- end
- else cur_val:=0;
- end
- else begin scan_ascii_num;
- if (font_bc[q]<=cur_val)and(font_ec[q]>=cur_val) then
- begin i:=orig_char_info(q)(qi(cur_val));
- case m of
- font_char_wd_code: cur_val:=char_width(q)(i);
- font_char_ht_code: cur_val:=char_height(q)(height_depth(i));
- font_char_dp_code: cur_val:=char_depth(q)(height_depth(i));
- font_char_ic_code: cur_val:=char_italic(q)(i);
- end; {there are no other cases}
- end
- else cur_val:=0;
- end
- end;
-@z
-
-@x e-pTeX: displacement value when typesetting right-to-left l.27798
-@!LR_ptr:pointer; {stack of LR codes for |hpack|, |ship_out|, and |init_math|}
-@y
-@!revdisp:scaled; {temporary value of displacement}
-@!LR_ptr:pointer; {stack of LR codes for |hpack|, |ship_out|, and |init_math|}
-@z
-
-@x e-pTeX: reverse nodes of an hlist l.28010
-var l:pointer; {the new list}
-@y
-var l,la:pointer; {the new list}
-disp,disp2: scaled; { displacement } disped: boolean;
-@z
-@x e-pTeX: reverse nodes of an hlist l.28010
-begin g_order:=glue_order(this_box); g_sign:=glue_sign(this_box);
-@y
-begin g_order:=glue_order(this_box); g_sign:=glue_sign(this_box);
-disp:=revdisp; disped:=false;
-@z
-@x e-pTeX: reverse nodes of an hlist l.28010
-done:reverse:=l;
-@y
-done: {if the beginning node of the new list isn't |disp_node|,
- we insert |disp_node| to fix.}
-if (l<>null)and(type(l)<>disp_node) then begin
- p:=get_node(small_node_size); type(p):=disp_node;
- disp_dimen(p):=disp; link(p):=l; reverse:=p;
- end
-else reverse:=l;
-@z
-@x e-pTeX: reverse nodes of an hlist l.28010
- q:=link(p); link(p):=l; l:=p; p:=q;
-@y
- if font_dir[f]<>dir_default then begin
- q:=link(p); la:=l; l:=p; p:=link(q); link(q):=la;
- end
- else begin q:=link(p); link(p):=l; l:=p; p:=q; end;
-@z
-@x e-pTeX: reverse nodes of an hlist l.28010
-othercases goto next_p
-@y
-disp_node: begin
- disp2:=disp_dimen(p); disp_dimen(p):=disp; disp:=disp2;
- if not disped then disped:=true; end;
-othercases goto next_p
-@z
-
-@x e-pTeX: just_copy
- hlist_node,vlist_node: begin r:=get_node(box_node_size);
-@y
- dir_node,
- hlist_node,vlist_node: begin r:=get_node(box_node_size);
-@z
-@x e-pTeX: just_copy
- mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last two words}
-@y
- mem[r+7]:=mem[p+7];
- mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last three words}
- add_glue_ref(space_ptr(r)); add_glue_ref(xspace_ptr(r));
-@z
-
-@x e-pTeX: pseudo file
- buffer[last]:=w.b0; buffer[last+1]:=w.b1;
- buffer[last+2]:=w.b2; buffer[last+3]:=w.b3;
-@y
- buffer[last]:=w.b0 mod @"100; buffer[last+1]:=w.b1 mod @"100;
- buffer[last+2]:=w.b2 mod @"100; buffer[last+3]:=w.b3 mod @"100;@/
- buffer2[last]:=0; buffer2[last+1]:=0;
- buffer2[last+2]:=0; buffer2[last+3]:=0;
-@z
-
-@x e-pTeX: \readline
-@ @<Handle \.{\\readline} and |goto done|@>=
-if j=1 then
- begin while loc<=limit do {current line not yet finished}
- begin cur_chr:=buffer[loc]; incr(loc);
- if cur_chr=" " then cur_tok:=space_token
- @+else cur_tok:=cur_chr+other_token;
-@y
-@ @<Handle \.{\\readline} and |goto done|@>=
-if j=1 then
- begin while loc<=limit do {current line not yet finished}
- begin cur_chr:=buffer[loc]; incr(loc);
- if multistrlen(ustringcast(buffer), limit+1, loc-1)=2 then
- begin cur_tok:=fromBUFF(ustringcast(buffer), limit+1, loc-1); incr(loc);
- end
- else if cur_chr=" " then cur_tok:=space_token
- @+else cur_tok:=cur_chr+other_token;
-@z
-
-@x e-pTeX: ifcsname l.28620
- buffer[m]:=info(p) mod @'400; incr(m); p:=link(p);
-@y
- if check_kanji(info(p)) then {|wchar_token|}
- begin buffer[m]:=Hi(info(p)); buffer2[m]:=1; incr(m); buffer2[m]:=1;
- end
- else buffer2[m]:=0;
- buffer[m]:=Lo(info(p)); incr(m); p:=link(p);
-@z
-
-@x e-pTeX: if_font_char_code l.28633
-if_font_char_code:begin scan_font_ident; n:=cur_val; scan_char_num;
- if (font_bc[n]<=cur_val)and(font_ec[n]>=cur_val) then
- b:=char_exists(char_info(n)(qi(cur_val)))
- else b:=false;
- end;
-@y
-if_font_char_code:begin scan_font_ident; n:=cur_val;
- if font_dir[n]<>dir_default then {Japanese font}
- begin scan_int;
- if cur_val>=0 then b:=is_char_kanji(cur_val)
- { In u\pTeX, $\hbox{|is_char_kanji|} = \lambda x\mathpunct{.} x\ge 0$ }
- else begin
- cur_val:=-(cur_val+1);
- b:=(font_bc[n]<=cur_val)and(font_ec[n]>=cur_val)
- end
- end
- else begin scan_ascii_num;
- if (font_bc[n]<=cur_val)and(font_ec[n]>=cur_val) then @/
- b:=char_exists(orig_char_info(n)(qi(cur_val)))
- else b:=false;
- end;
- end;
-@z
-
-@x e-pTeX: pTeX has \showmode, follow showstream.ch r61589
-@<Show the current japanese processing mode@>=
-begin print_nl("> ");
-@y
-@<Show the current japanese processing mode@>=
-begin
- @<Adjust |selector| based on |show_stream|@>
- print_nl("> ");
-@z
-
-@x
-procedure print_direction(@!d:integer); {print the direction represented by d}
-@y
-procedure print_direction_alt(@!d:integer);
-var x: boolean;
-begin x:=false;
-case abs(d) of
-dir_yoko: begin print(", yoko"); x:=true; end;
-dir_tate: begin print(", tate"); x:=true; end;
-dir_dtou: begin print(", dtou"); x:=true; end;
-end;
-if x then begin if d<0 then print("(math)");
-print(" direction"); end;
-end;
-@#
-procedure print_direction(@!d:integer); {print the direction represented by d}
-@z
-
-@x e-pTeX: fetch \(no)auto(x)spacing status
-@* \[54] System-dependent changes.
-@y
-@ The \.{\\currentspacingmode} and \.{\\currentxspacingmode} commands
-return the current \pTeX's status of \.{\\(no)autospacing} and
-\.{\\(no)autoxspacing} respectively.
-
-@d current_spacing_mode_code=eTeX_int+8 {code for \.{\\currentspacingmode}}
-@d current_xspacing_mode_code=eTeX_int+9 {code for \.{\\currentxspacingmode}}
-
-@<Generate all \eTeX...@>=
-primitive("currentspacingmode",last_item,current_spacing_mode_code);
-@!@:current_spacing_mode_}{\.{\\currentspacingmode} primitive@>
-primitive("currentxspacingmode",last_item,current_xspacing_mode_code);
-@!@:current_xspacing_mode_}{\.{\\currentxspacingmode} primitive@>
-
-@ @<Cases of |last_item| for |print_cmd_chr|@>=
-current_spacing_mode_code: print_esc("currentspacingmode");
-current_xspacing_mode_code: print_esc("currentxspacingmode");
-
-@ @<Cases for fetching an integer value@>=
-current_spacing_mode_code: cur_val:=auto_spacing;
-current_xspacing_mode_code: cur_val:=auto_xspacing;
-
-@* \[54] System-dependent changes.
-@z
diff --git a/Build/source/texk/web2c/eptexdir/eptex_version.h b/Build/source/texk/web2c/eptexdir/eptex_version.h
deleted file mode 100644
index 297bd81e7f3..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptex_version.h
+++ /dev/null
@@ -1 +0,0 @@
-#define EPTEX_VERSION "230214"
diff --git a/Build/source/texk/web2c/eptexdir/eptexextra.c b/Build/source/texk/web2c/eptexdir/eptexextra.c
deleted file mode 100644
index c60bb42922a..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptexextra.c
+++ /dev/null
@@ -1,12 +0,0 @@
-/* eptexextra.c: Hand-coded routines for e-pTeX.
-
- This file is public domain. */
-
-#define EXTERN /* Instantiate data from eptexd.h here. */
-#define DLLPROC dlleptexmain
-
-/* This file defines TeX and epTeX. */
-#include <eptexd.h>
-
-/* Hand-coded routines for TeX or Metafont in C. */
-#include <lib/texmfmp.c>
diff --git a/Build/source/texk/web2c/eptexdir/eptexextra.h b/Build/source/texk/web2c/eptexdir/eptexextra.h
deleted file mode 100644
index 6dba1f031ae..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptexextra.h
+++ /dev/null
@@ -1,26 +0,0 @@
-/* eptexextra.h: banner etc. for e-pTeX.
-
- This is included by e-pTeX, from eptexextra.c
-*/
-
-#include <etexdir/etex_version.h> /* for ETEX_VERSION */
-#include <eptexdir/eptex_version.h> /* for EPTEX_VERSION */
-#include <ptexdir/ptex_version.h> /* for PTEX_VERSION */
-
-#define BANNER "This is e-pTeX, Version 3.141592653-" PTEX_VERSION "-" EPTEX_VERSION "-" ETEX_VERSION
-#define COPYRIGHT_HOLDER "D.E. Knuth"
-#define AUTHOR "Japanese TeX Development Community"
-#define PROGRAM_HELP EPTEXHELP
-#define BUG_ADDRESS "issue@texjp.org"
-#define DUMP_VAR TEXformatdefault
-#define DUMP_LENGTH_VAR formatdefaultlength
-#define DUMP_OPTION "fmt"
-#define DUMP_EXT ".fmt"
-#define INPUT_FORMAT kpse_tex_format
-#define INI_PROGRAM "inieptex"
-#define VIR_PROGRAM "vireptex"
-
-#ifdef Xchr
-#undef Xchr
-#define Xchr(x) (x)
-#endif /* Xchr */
diff --git a/Build/source/texk/web2c/eptexdir/eptrip/eptrip.diffs b/Build/source/texk/web2c/eptexdir/eptrip/eptrip.diffs
deleted file mode 100644
index 3891bb9d422..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptrip/eptrip.diffs
+++ /dev/null
@@ -1,1386 +0,0 @@
-#! /bin/sh -vx
-# $Id: eptriptest.test 48633 2018-09-09 17:56:55Z karl $
-# Copyright 2017-2018 Karl Berry <tex-live@tug.org>
-# Copyright 2011-2014 Peter Breitenlohner <tex-live@tug.org>
-# Copyright 2010 Hironori Kitagawa <tex-live@tug.org>
-# You may freely use, modify and/or distribute this file.
-
-LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE
-+ LC_ALL=C
-+ export LC_ALL
-+ LANGUAGE=C
-+ export LANGUAGE
-
-testdir=$abs_srcdir/triptrap
-+ testdir=SRCDIR/triptrap
-etestdir=$abs_srcdir/etexdir/etrip
-+ etestdir=SRCDIR/etexdir/etrip
-eptestdir=$abs_srcdir/eptexdir/eptrip
-+ eptestdir=SRCDIR/eptexdir/eptrip
-
-TEXMFCNF=$eptestdir; export TEXMFCNF
-+ TEXMFCNF=SRCDIR/eptexdir/eptrip
-+ export TEXMFCNF
-
-rm -rf eptripdir
-+ rm -rf eptripdir
-mkdir eptripdir
-+ mkdir eptripdir
-cd eptripdir
-+ cd eptripdir
-
-dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'"
-+ dvitype_args='-output-level=2 -dpi=72.27 -page-start='\''*.*.*.*.*.*.*.*.*.*'\'''
-
-echo ">>> Running e-TRIP test for e-pTeX." >&2
-+ echo '>>> Running e-TRIP test for e-pTeX.'
->>> Running e-TRIP test for e-pTeX.
-echo ">>> See $eptestdir/eptrip.diffs for example of acceptable diffs." >&2
-+ echo '>>> See SRCDIR/eptexdir/eptrip/eptrip.diffs for example of acceptable diffs.'
->>> See SRCDIR/eptexdir/eptrip/eptrip.diffs for example of acceptable diffs.
-
-# pTeX outputs direction of boxes.
-P_SED1='s/, yoko direction//;s/yoko direction, //'
-+ P_SED1='s/, yoko direction//;s/yoko direction, //'
-P_SED2='s/yoko(math) direction, //'
-+ P_SED2='s/yoko(math) direction, //'
-
-is_OK=:
-+ is_OK=:
-
-set -x
-+ set -x
-
-echo "*** TRIP test for e-pTeX in compatibility mode ***."
-+ echo '*** TRIP test for e-pTeX in compatibility mode ***.'
-*** TRIP test for e-pTeX in compatibility mode ***.
-
-./pltotf $testdir/trip.pl trip.tfm || exit 1
-+ ./pltotf SRCDIR/triptrap/trip.pl trip.tfm
-
-./tftopl ./trip.tfm trip.pl || exit 1
-+ ./tftopl ./trip.tfm trip.pl
-
-diff $testdir/trip.pl trip.pl || is_OK=false
-+ diff SRCDIR/triptrap/trip.pl trip.pl
-
-# get same filename in log
-$LN_S $testdir/trip.tex .
-+ ln -s SRCDIR/triptrap/trip.tex .
-
-rm -f trip.log
-+ rm -f trip.log
-./eptex --progname=epinitex --ini <$testdir/trip1.in >cptripin.fot
-+ ./eptex --progname=epinitex --ini
-if test ! -s trip.fmt; then
- echo "*** trip.fmt not created by trip1.in, investigate!" >&2
- exit 1
-fi
-+ test '!' -s trip.fmt
-sed "$P_SED1" trip.log > cptripin.log || exit 1
-+ sed 's/, yoko direction//;s/yoko direction, //' trip.log
-diff $testdir/tripin.log cptripin.log
-+ diff SRCDIR/triptrap/tripin.log cptripin.log
-1c1
-< This is TeX, Version 3.141592653 (INITEX) 4 JUL 1776 12:00
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (INITEX) 27 JAN 2021 18:03
-3c3
-< (trip.tex
----
-> (./trip.tex
-91c91,92
-< ### horizontal mode entered at line 77 (language255:hyphenmin1,63)
----
-> ### horizontal mode entered at line 77 (language255:hyph
-> enmin1,63)
-93a95
-> \displace 0.0
-95a98
-> \displace 0.0
-368a372
-> ....\displace 0.0
-370a375
-> ....\displace 0.0
-437,438d441
-< ....\rip 6 (ligature )
-< ....\rip 7 (ligature )
-450,453c453,456
-< (preloaded format=trip 1776.7.4)
-< 1326 strings of total length 23633
-< 471 memory locations dumped; current usage is 96&278
-< 341 multiletter control sequences
----
-> (preloaded format=trip 2021.1.27)
-> 1673 strings of total length 29297
-> 491 memory locations dumped; current usage is 112&278
-> 400 multiletter control sequences
-461c464
-< Hyphenation trie of length 273 has 9 ops out of 500
----
-> Hyphenation trie of length 273 has 9 ops out of 35111
-
-# May as well test non-ini second time through.
-rm -f trip.log
-+ rm -f trip.log
-./eptex --progname=eptex <$testdir/trip2.in >cptrip.fot
-+ ./eptex --progname=eptex
-sed "$P_SED1;$P_SED2" trip.log > cptrip.log
-+ sed 's/, yoko direction//;s/yoko direction, //;s/yoko(math) direction, //' trip.log
-diff $testdir/trip.fot cptrip.fot
-+ diff SRCDIR/triptrap/trip.fot cptrip.fot
-1,3c1,2
-< This is TeX, Version 3.141592653 (INITEX)
-< ** &trip trip
-< (trip.tex ##
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (preloaded format=eptex)
-> **(./trip.tex ##
-17c16
-< Memory usage before: 159&313; after: 102&278; still untouched: 1613
----
-> Memory usage before: 196&313; after: 120&278; still untouched: 2109
-75c74
-< Memory usage before: 334&431; after: 292&418; still untouched: 175
----
-> Memory usage before: 462&431; after: 400&418; still untouched: 240
-
-# We use $DIFF instead of `diff' only for those files where there
-# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $testdir/trip.log cptrip.log
-+ diff SRCDIR/triptrap/trip.log cptrip.log
-1c1
-< This is TeX, Version 3.141592653 (preloaded format=trip 1776.7.4) 4 JUL 1776 12:00
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (preloaded format=trip 2021.1.27) 27 JAN 2021 18:03
-3c3
-< (trip.tex ##
----
-> (./trip.tex ##
-73c73
-< Memory usage before: 159&313; after: 102&278; still untouched: 1613
----
-> Memory usage before: 196&313; after: 120&278; still untouched: 2109
-113a114
-> .\displace 0.0
-198a200
-> .\displace 0.0
-253a256
-> .\displace 0.0
-308a312
-> .\displace 0.0
-349a354
-> .\displace 0.0
-385,386c390,391
-< \insert100, natural size 803.09999; split(1.0 plus 43.0,-2.0); float cos
-< t 100
----
-> \insert100Y, natural size 803.09999; split(1.0 plus 43.0,-2.0); float co
-> st 100
-406a412
-> ....\displace 0.0
-409a416
-> ....\displace 0.0
-412a420
-> ....\displace 0.0
-420a429
-> .\displace 0.0
-426c435
-< \insert200, natural size 400.0; split(0.0,-2.0); float cost 100
----
-> \insert200Y, natural size 400.0; split(0.0,-2.0); float cost 100
-435a445
-> .\displace 0.0
-441c451
-< \insert200, natural size 400.0; split(1.0,-1.0); float cost 100
----
-> \insert200Y, natural size 400.0; split(1.0,-1.0); float cost 100
-450a461
-> .\displace 0.0
-456c467
-< \insert200, natural size 400.0; split(2.0,-1.0); float cost 100
----
-> \insert200Y, natural size 400.0; split(2.0,-1.0); float cost 100
-466a478
-> .\displace 0.0
-483,484c495,496
-< \insert200, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-< 3
----
-> \insert200Y, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-> 3
-588a601
-> .....\displace 0.0
-591a605
-> .....\displace 0.0
-594a609
-> .....\displace 0.0
-630a646
-> ......\displace 0.0
-633a650
-> ......\displace 0.0
-636a654
-> ......\displace 0.0
-642c660
-< Memory usage before: 747&484; after: 581&481; still untouched: 1492
----
-> Memory usage before: 1118&483; after: 864&480; still untouched: 1989
-647c665,666
-< ### internal vertical mode entered at line 150 (\output routine)
----
-> ### internal vertical mode entered at line 150 (\output
-> routine)
-650a670
-> .\displace 0.0
-660a681
-> .\displace 0.0
-670a692
-> .\displace 0.0
-681a704
-> .\displace 0.0
-693,694c716,717
-< \insert100, natural size 535.4; split(1.0 plus 43.0,-2.0); float cost 10
-< 0
----
-> \insert100Y, natural size 535.4; split(1.0 plus 43.0,-2.0); float cost 1
-> 00
-701c724
-< \insert200, natural size 2.0; split(2.0,-1.0); float cost 100
----
-> \insert200Y, natural size 2.0; split(2.0,-1.0); float cost 100
-714,715c737,738
-< \insert200, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-< 3
----
-> \insert200Y, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-> 3
-815c838
-< Memory usage before: 475&470; after: 290&466; still untouched: 1473
----
-> Memory usage before: 710&469; after: 418&465; still untouched: 1970
-820c843,844
-< ### internal vertical mode entered at line 150 (\output routine)
----
-> ### internal vertical mode entered at line 150 (\output
-> routine)
-915c939
-< Memory usage before: 218&459; after: 149&458; still untouched: 1473
----
-> Memory usage before: 308&458; after: 198&457; still untouched: 1970
-920c944,945
-< ### internal vertical mode entered at line 150 (\output routine)
----
-> ### internal vertical mode entered at line 150 (\output
-> routine)
-1070c1095
-< Memory usage before: 118&328; after: 102&328; still untouched: 1473
----
-> Memory usage before: 150&327; after: 126&327; still untouched: 1970
-1405c1430
-< \vbox(16383.99998+0.0)x1000.0, glue set 16342.0fil
----
-> \vbox(16383.99998+0.0)x1000.0, glue set 16341.99998fil
-1493a1519
-> ..\displace 0.0
-1503a1530
-> ..\displace 0.0
-1504a1532
-> ..\displace 0.0
-1511c1539
-< Memory usage before: 990&376; after: 584&370; still untouched: 735
----
-> Memory usage before: 1498&375; after: 846&369; still untouched: 1970
-1887c1915
-< .\rip A
----
-> .\displace 0.0
-1923c1951
-< .\hbox(0.0+0.0)x120.0 []
----
-> .\hbox(0.0+0.0)x120.0, yoko(math) direction []
-1954c1982
-< (tripos.tex
----
-> (./tripos.tex
-2018c2046
-< \vbox(16383.99998+1.0)x100.0, glue set 16239.0fil
----
-> \vbox(16383.99998+1.0)x100.0, glue set 16238.99998fil
-2022a2051
-> ..\displace 0.0
-2058a2088
-> ..\displace 0.0
-2071a2102
-> ..\displace 0.0
-2092a2124
-> ..\displace 0.0
-2113a2146
-> ..\displace 0.0
-2123a2157
-> ..\displace 0.0
-2142a2177
-> ..\displace 0.0
-2150a2186
-> ..\displace 0.0
-2171c2207,2208
-< ..\hbox(0.0+0.0)x120.0
----
-> ..\hbox(0.0+0.0)x120.0, yoko(math) direction
-> ...\displace 0.0
-2189c2226
-< Memory usage before: 950&531; after: 546&448; still untouched: 706
----
-> Memory usage before: 1494&530; after: 826&447; still untouched: 1941
-2397c2434
-< ! Improper alphabetic constant.
----
-> ! Improper alphabetic or KANJI constant.
-2533c2570
-< \vbox(16383.99998+0.0)x20.0, glue set 16331.0fil
----
-> \vbox(16383.99998+0.0)x20.0, glue set 16330.99998fil
-2544a2582
-> ..\displace 0.0
-2570c2608,2609
-< .\hbox(0.0+0.0)x15.0, glue set 0.1875, shifted 5.0
----
-> .\hbox(0.0+0.0)x15.0, glue set 0.1875, shifted 5.0, yoko(math) direction
->
-2572c2611
-< ..\hbox(0.0+0.0)x0.0
----
-> ..\hbox(0.0+0.0)x0.0, yoko(math) direction
-2575c2614
-< Memory usage before: 339&413; after: 236&405; still untouched: 706
----
-> Memory usage before: 497&411; after: 329&403; still untouched: 1941
-2650,2651c2689,2690
-< Dimensions can be in units of em, ex, in, pt, pc,
-< cm, mm, dd, cc, bp, or sp; but yours is a new one!
----
-> Dimensions can be in units of em, ex, zw, zh, in, pt, pc,
-> cm, mm, dd, cc, bp, H, Q, or sp; but yours is a new one!
-2830c2869
-< Since I expected to read a number between 0 and 15,
----
-> Since I expected to read a number between 0 and 255,
-3038c3077,3078
-< ^\hbox(7.0+1.0)x2.0
----
-> ^\hbox(7.0+1.0)x2.0, yoko(math) direction
-> ^.\displace 0.0
-3051c3091
-< \insert0, natural size 0.0; split(1.0 plus 43.0,-2.0); float cost 100
----
-> \insert0Y, natural size 0.0; split(1.0 plus 43.0,-2.0); float cost 100
-3054c3094
-< .\fam0 ^^c8
----
-> .\fam0
-3056c3096
-< .\vbox(-2.0+0.0)x0.0
----
-> .\vbox(-2.0+0.0)x0.0, yoko(math) direction
-3060c3100,3101
-< ^.\hbox(7.0+1.0)x2.0, shifted -2.0
----
-> ^.\hbox(7.0+1.0)x2.0, shifted -2.0, yoko(math) direction
-> ^..\displace 0.0
-3140a3182
-> .....\displace 0.0
-3142a3185
-> ....|\displace 0.0
-3143a3187
-> ....\displace 0.0
-3151a3196
-> .\displace 0.0
-3235c3280
-< ! \textfont 0 is undefined (character ^^c8).
----
-> ! \textfont 0 is undefined (character ).
-3286c3331
-< .\vbox(6.0+-8.0)x0.0
----
-> .\vbox(6.0+-8.0)x0.0, yoko(math) direction
-3326c3371
-< \vbox(10000.0+2.0)x28.0, glue set 9737.58789fil
----
-> \vbox(10000.0+2.0)x28.0, glue set 9737.58742fil
-3329a3375
-> ..\displace 0.0
-3374c3420
-< ..\vbox(6.0+-8.0)x0.0
----
-> ..\vbox(6.0+-8.0)x0.0, yoko(math) direction
-3385c3431,3432
-< ......\hbox(7.0+1.0)x2.0, shifted -2.0
----
-> ......\hbox(7.0+1.0)x2.0, shifted -2.0, yoko(math) direction
-> .......\displace 0.0
-3544a3592
-> ..........\displace 0.0
-3546a3595
-> .........|\displace 0.0
-3547a3597
-> .........\displace 0.0
-3564c3614,3615
-< ...\hbox(7.0+1.0)x1.99
----
-> ...\hbox(7.0+1.0)x1.99, yoko(math) direction
-> ....\displace 0.0
-3616c3667
-< Memory usage before: 2170&521; after: 1181&459; still untouched: 175
----
-> Memory usage before: 3283&519; after: 1753&457; still untouched: 240
-3864c3915
-< \vbox(16383.99998+2.0)x100.0, glue set 16318.0fil
----
-> \vbox(16383.99998+2.0)x100.0, glue set 16317.99997fil
-3919,3920c3970,3972
-< ...\vbox(-0.00002+13.00002)x52.5, glue set - 0.00247
-< ....\vbox(-0.00002+0.0)x0.0
----
-> ...\vbox(-0.00002+13.00002)x52.5, glue set - 0.00247, yoko(math) directi
-> on
-> ....\vbox(-0.00002+0.0)x0.0, yoko(math) direction
-3951c4003
-< Memory usage before: 640&415; after: 397&410; still untouched: 175
----
-> Memory usage before: 959&413; after: 573&408; still untouched: 240
-4034c4086
-< \vbox(16383.99998+0.0)x8236.0, glue set 16344.0fil
----
-> \vbox(16383.99998+0.0)x8236.0, glue set 16343.99998fil
-4053c4105
-< Memory usage before: 235&401; after: 178&399; still untouched: 175
----
-> Memory usage before: 342&399; after: 248&397; still untouched: 240
-4420c4472
-< \vbox(16383.99998+0.0)x100.0, glue set 16332.0fil
----
-> \vbox(16383.99998+0.0)x100.0, glue set 16331.99998fil
-4425a4478
-> ...\displace 0.0
-4447a4501
-> ...\displace 0.0
-4475a4530
-> ...\displace 0.0
-4492a4548
-> ...\displace 0.0
-4506c4562
-< Memory usage before: 651&432; after: 417&418; still untouched: 175
----
-> Memory usage before: 1008&431; after: 606&417; still untouched: 240
-4742c4798,4799
-< \vbox(16383.99998+0.0)x205.12613, glue set 16344.0fil
----
-> \vbox(16383.99998+0.0)x205.12613, glue set 16343.99998fil, yoko directio
-> n
-4746a4804
-> ...\displace 0.0
-4762a4821
-> .....\displace 0.0
-4777a4837
-> ......\displace 0.0
-4828c4888
-< Memory usage before: 776&458; after: 464&452; still untouched: 175
----
-> Memory usage before: 1186&457; after: 682&451; still untouched: 240
-4881,4888d4940
-< ! Bad number (16).
-< <to be read again>
-< =
-< l.346 ...ewlinechar}\textfont16=
-< \relax
-< Since I expected to read a number between 0 and 15,
-< I changed this one to zero.
-<
-5701c5753
-< ! \textfont 0 is undefined (character ^^c8).
----
-> ! \textfont 0 is undefined (character ).
-6381c6433
-< (tripos.tex
----
-> (./tripos.tex
-6502c6554
-< l.429 ...^^M=13 \def^^M{\relax}#
----
-> l.429 ...^^M=13 \defqqM{\relax}#
-6596c6648
-< Memory usage before: 819&428; after: 720&426; still untouched: 175
----
-> Memory usage before: 1232&428; after: 1078&426; still untouched: 240
-6853c6905
-< .|vbox(0.0+0.0)x0.0
----
-> .|vbox(0.0+0.0)x0.0, yoko(math) direction
-6876a6929
-> ..|displace 0.0
-6891a6945
-> ..|displace 0.0
-6926a6981
-> .|displace 0.0
-6959a7015
-> .|displace 0.0
-6961c7017,7018
-< .|hbox(0.0+0.0)x0.0
----
-> .|hbox(0.0+0.0)x0.0, yoko(math) direction
-> ..|displace 0.0
-6991a7049
-> .|displace 0.0
-7103a7162
-> ...|displace 0.0
-7108d7166
-< ...|ip A (ligature BB)
-7116a7175
-> ...|displace 0.0
-7125d7183
-< ...|kern2.0
-7126a7185
-> .|displace 0.0
-7136c7195
-< ...|vbox(0.0+0.0)x0.0
----
-> ...|vbox(0.0+0.0)x0.0, yoko(math) direction
-7156c7215
-< Memory usage before: 895&439; after: 290&420; still untouched: 175
----
-> Memory usage before: 1350&439; after: 398&420; still untouched: 240
-7289c7348
-< Memory usage before: 334&431; after: 292&418; still untouched: 175
----
-> Memory usage before: 462&431; after: 400&418; still untouched: 240
-7297,7300c7356,7359
-< 47 strings out of 1674
-< 253 string characters out of 8367
-< 2825 words of memory out of 3000
-< 372 multiletter control sequences out of 2100
----
-> 44 strings out of 1627
-> 261 string characters out of 10703
-> 4260 words of memory out of 4500
-> 431 multiletter control sequences out of 15000+0
-7302c7361
-< 2 hyphenation exceptions out of 307
----
-> 1 hyphenation exception out of 659
-
-mv tripos.tex cptripos.tex
-+ mv tripos.tex cptripos.tex
-diff $testdir/tripos.tex cptripos.tex
-+ diff SRCDIR/triptrap/tripos.tex cptripos.tex
-
-eval ./dvitype $dvitype_args trip.dvi >cptrip.typ || exit 1
-+ eval ./dvitype -output-level=2 -dpi=72.27 '-page-start='\''*.*.*.*.*.*.*.*.*.*'\''' trip.dvi
-./dvitype -output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*' trip.dvi
-++ ./dvitype -output-level=2 -dpi=72.27 '-page-start=*.*.*.*.*.*.*.*.*.*' trip.dvi
-$DIFF $DIFFFLAGS $testdir/trip.typ cptrip.typ
-+ diff SRCDIR/triptrap/trip.typ cptrip.typ
-1c1
-< This is DVItype, Version 3.6
----
-> This is DVItype, Version 3.6 (TeX Live 2021/dev)
-9c9
-< ' TeX output 1776.07.04:1200'
----
-> ' TeX output 2021.01.27:1803'
-419c419
-< 1121: down4 639342208
----
-> 1121: down4 639342177
-1087,1088c1087,1088
-< 2535: y4 203921760
-< 2540: y0 203921760
----
-> 2535: y4 203921756
-> 2540: y0 203921756
-
-mv trip.fmt ctrip.fmt
-+ mv trip.fmt ctrip.fmt
-
-# =================================
-
-echo "*** TRIP test for e-pTeX in extended mode ***."
-+ echo '*** TRIP test for e-pTeX in extended mode ***.'
-*** TRIP test for e-pTeX in extended mode ***.
-
-rm -f trip.log
-+ rm -f trip.log
-./eptex --progname=epinitex --ini <$etestdir/etrip1.in >xptripin.fot
-+ ./eptex --progname=epinitex --ini
-if test ! -s trip.fmt; then
- echo "*** trip.fmt not created by etrip1.in, investigate!" >&2
- exit 1
-fi
-+ test '!' -s trip.fmt
-sed "$P_SED1" trip.log > xptripin.log || exit 1
-+ sed 's/, yoko direction//;s/yoko direction, //' trip.log
-diff $testdir/tripin.log xptripin.log
-+ diff SRCDIR/triptrap/tripin.log xptripin.log
-1,3c1,4
-< This is TeX, Version 3.141592653 (INITEX) 4 JUL 1776 12:00
-< **\input trip
-< (trip.tex
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (INITEX) 27 JAN 2021 18:03
-> entering extended mode
-> ***\input trip
-> (./trip.tex
-36,41d36
-< ! Bad register code (256).
-< l.29 ...{1} \toksdef\tokens=256
-< \show\errorstopmode
-< A register number must be between 0 and 255.
-< I changed this one to zero.
-<
-91c86,87
-< ### horizontal mode entered at line 77 (language255:hyphenmin1,63)
----
-> ### horizontal mode entered at line 77 (language255:hyph
-> enmin1,63)
-93a90
-> \displace 0.0
-95a93
-> \displace 0.0
-368a367
-> ....\displace 0.0
-370a370
-> ....\displace 0.0
-437,438d436
-< ....\rip 6 (ligature )
-< ....\rip 7 (ligature )
-450,453c448,451
-< (preloaded format=trip 1776.7.4)
-< 1326 strings of total length 23633
-< 471 memory locations dumped; current usage is 96&278
-< 341 multiletter control sequences
----
-> (preloaded format=trip 2021.1.27)
-> 1673 strings of total length 29297
-> 538 memory locations dumped; current usage is 159&278
-> 494 multiletter control sequences
-461c459
-< Hyphenation trie of length 273 has 9 ops out of 500
----
-> Hyphenation trie of length 273 has 9 ops out of 35111
-
-# May as well test non-ini second time through.
-rm -f trip.log
-+ rm -f trip.log
-./eptex --progname=eptex <$etestdir/trip2.in >xptrip.fot
-+ ./eptex --progname=eptex
-sed "$P_SED1;$P_SED2" trip.log > xptrip.log
-+ sed 's/, yoko direction//;s/yoko direction, //;s/yoko(math) direction, //' trip.log
-diff $testdir/trip.fot xptrip.fot
-+ diff SRCDIR/triptrap/trip.fot xptrip.fot
-1,3c1,3
-< This is TeX, Version 3.141592653 (INITEX)
-< ** &trip trip
-< (trip.tex ##
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (preloaded format=eptex)
-> **entering extended mode
-> ## (./trip.tex
-17c17
-< Memory usage before: 159&313; after: 102&278; still untouched: 1613
----
-> Memory usage before: 196&313; after: 120&278; still untouched: 2109
-75c75
-< Memory usage before: 334&431; after: 292&418; still untouched: 175
----
-> Memory usage before: 462&431; after: 400&418; still untouched: 240
-77a78,80
->
-> ### semi simple group (level 1) entered at line 429 (begingroup)
-> ### bottom level
-
-# We use $DIFF instead of `diff' only for those files where there
-# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $testdir/trip.log xptrip.log
-+ diff SRCDIR/triptrap/trip.log xptrip.log
-1,3c1,4
-< This is TeX, Version 3.141592653 (preloaded format=trip 1776.7.4) 4 JUL 1776 12:00
-< ** &trip trip
-< (trip.tex ##
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (preloaded format=trip 2021.1.27) 27 JAN 2021 18:03
-> entering extended mode
-> **&trip \toksdef\tokens=0 \input trip
-> (./trip.tex
-73c74
-< Memory usage before: 159&313; after: 102&278; still untouched: 1613
----
-> Memory usage before: 196&313; after: 120&278; still untouched: 2109
-113a115
-> .\displace 0.0
-198a201
-> .\displace 0.0
-253a257
-> .\displace 0.0
-308a313
-> .\displace 0.0
-349a355
-> .\displace 0.0
-385,386c391,392
-< \insert100, natural size 803.09999; split(1.0 plus 43.0,-2.0); float cos
-< t 100
----
-> \insert100Y, natural size 803.09999; split(1.0 plus 43.0,-2.0); float co
-> st 100
-406a413
-> ....\displace 0.0
-409a417
-> ....\displace 0.0
-412a421
-> ....\displace 0.0
-420a430
-> .\displace 0.0
-426c436
-< \insert200, natural size 400.0; split(0.0,-2.0); float cost 100
----
-> \insert200Y, natural size 400.0; split(0.0,-2.0); float cost 100
-435a446
-> .\displace 0.0
-441c452
-< \insert200, natural size 400.0; split(1.0,-1.0); float cost 100
----
-> \insert200Y, natural size 400.0; split(1.0,-1.0); float cost 100
-450a462
-> .\displace 0.0
-456c468
-< \insert200, natural size 400.0; split(2.0,-1.0); float cost 100
----
-> \insert200Y, natural size 400.0; split(2.0,-1.0); float cost 100
-466a479
-> .\displace 0.0
-483,484c496,497
-< \insert200, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-< 3
----
-> \insert200Y, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-> 3
-588a602
-> .....\displace 0.0
-591a606
-> .....\displace 0.0
-594a610
-> .....\displace 0.0
-630a647
-> ......\displace 0.0
-633a651
-> ......\displace 0.0
-636a655
-> ......\displace 0.0
-642c661
-< Memory usage before: 747&484; after: 581&481; still untouched: 1492
----
-> Memory usage before: 1118&483; after: 864&480; still untouched: 1989
-647c666,667
-< ### internal vertical mode entered at line 150 (\output routine)
----
-> ### internal vertical mode entered at line 150 (\output
-> routine)
-650a671
-> .\displace 0.0
-660a682
-> .\displace 0.0
-670a693
-> .\displace 0.0
-681a705
-> .\displace 0.0
-693,694c717,718
-< \insert100, natural size 535.4; split(1.0 plus 43.0,-2.0); float cost 10
-< 0
----
-> \insert100Y, natural size 535.4; split(1.0 plus 43.0,-2.0); float cost 1
-> 00
-701c725
-< \insert200, natural size 2.0; split(2.0,-1.0); float cost 100
----
-> \insert200Y, natural size 2.0; split(2.0,-1.0); float cost 100
-714,715c738,739
-< \insert200, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-< 3
----
-> \insert200Y, natural size 10000.0; split(1.0 plus 43.0,-1.0); float cost
-> 3
-815c839
-< Memory usage before: 475&470; after: 290&466; still untouched: 1473
----
-> Memory usage before: 710&469; after: 418&465; still untouched: 1970
-820c844,845
-< ### internal vertical mode entered at line 150 (\output routine)
----
-> ### internal vertical mode entered at line 150 (\output
-> routine)
-915c940
-< Memory usage before: 218&459; after: 149&458; still untouched: 1473
----
-> Memory usage before: 308&458; after: 198&457; still untouched: 1970
-920c945,946
-< ### internal vertical mode entered at line 150 (\output routine)
----
-> ### internal vertical mode entered at line 150 (\output
-> routine)
-1070c1096
-< Memory usage before: 118&328; after: 102&328; still untouched: 1473
----
-> Memory usage before: 150&327; after: 126&327; still untouched: 1970
-1405c1431
-< \vbox(16383.99998+0.0)x1000.0, glue set 16342.0fil
----
-> \vbox(16383.99998+0.0)x1000.0, glue set 16341.99998fil
-1493a1520
-> ..\displace 0.0
-1503a1531
-> ..\displace 0.0
-1504a1533
-> ..\displace 0.0
-1511c1540
-< Memory usage before: 990&376; after: 584&370; still untouched: 735
----
-> Memory usage before: 1498&375; after: 846&369; still untouched: 1970
-1769d1797
-< {restoring \fam=-1}
-1779d1806
-< {restoring \displayindent=0.0pt}
-1833d1859
-< {restoring \fam=-1}
-1887c1913
-< .\rip A
----
-> .\displace 0.0
-1923c1949
-< .\hbox(0.0+0.0)x120.0 []
----
-> .\hbox(0.0+0.0)x120.0, yoko(math) direction []
-1954c1980
-< (tripos.tex
----
-> (./tripos.tex
-2018c2044
-< \vbox(16383.99998+1.0)x100.0, glue set 16239.0fil
----
-> \vbox(16383.99998+1.0)x100.0, glue set 16238.99998fil
-2022a2049
-> ..\displace 0.0
-2058a2086
-> ..\displace 0.0
-2071a2100
-> ..\displace 0.0
-2092a2122
-> ..\displace 0.0
-2113a2144
-> ..\displace 0.0
-2123a2155
-> ..\displace 0.0
-2135c2167
-< .\hbox(0.0+0.0)x0.0, shifted 50.0
----
-> .\hbox(0.0+0.0)x0.0, shifted 50.0, display
-2138c2170
-< .\hbox(0.0+0.0)x0.0, shifted 100.0
----
-> .\hbox(0.0+0.0)x0.0, shifted 100.0, display
-2142a2175
-> ..\displace 0.0
-2150a2184
-> ..\displace 0.0
-2171c2205,2206
-< ..\hbox(0.0+0.0)x120.0
----
-> ..\hbox(0.0+0.0)x120.0, yoko(math) direction
-> ...\displace 0.0
-2189c2224
-< Memory usage before: 950&531; after: 546&448; still untouched: 706
----
-> Memory usage before: 1494&530; after: 826&447; still untouched: 1941
-2397c2432
-< ! Improper alphabetic constant.
----
-> ! Improper alphabetic or KANJI constant.
-2533c2568
-< \vbox(16383.99998+0.0)x20.0, glue set 16331.0fil
----
-> \vbox(16383.99998+0.0)x20.0, glue set 16330.99998fil
-2544a2580
-> ..\displace 0.0
-2570c2606,2607
-< .\hbox(0.0+0.0)x15.0, glue set 0.1875, shifted 5.0
----
-> .\hbox(0.0+0.0)x15.0, glue set 0.1875, shifted 5.0, display, yoko(math)
-> direction
-2572c2609
-< ..\hbox(0.0+0.0)x0.0
----
-> ..\hbox(0.0+0.0)x0.0, yoko(math) direction
-2575c2612
-< Memory usage before: 339&413; after: 236&405; still untouched: 706
----
-> Memory usage before: 497&411; after: 329&403; still untouched: 1941
-2650,2651c2687,2688
-< Dimensions can be in units of em, ex, in, pt, pc,
-< cm, mm, dd, cc, bp, or sp; but yours is a new one!
----
-> Dimensions can be in units of em, ex, zw, zh, in, pt, pc,
-> cm, mm, dd, cc, bp, H, Q, or sp; but yours is a new one!
-2830c2867
-< Since I expected to read a number between 0 and 15,
----
-> Since I expected to read a number between 0 and 255,
-2835d2871
-< {restoring current font=\ip}
-3038c3074,3075
-< ^\hbox(7.0+1.0)x2.0
----
-> ^\hbox(7.0+1.0)x2.0, yoko(math) direction
-> ^.\displace 0.0
-3051c3088
-< \insert0, natural size 0.0; split(1.0 plus 43.0,-2.0); float cost 100
----
-> \insert0Y, natural size 0.0; split(1.0 plus 43.0,-2.0); float cost 100
-3054c3091
-< .\fam0 ^^c8
----
-> .\fam0
-3056c3093
-< .\vbox(-2.0+0.0)x0.0
----
-> .\vbox(-2.0+0.0)x0.0, yoko(math) direction
-3060c3097,3098
-< ^.\hbox(7.0+1.0)x2.0, shifted -2.0
----
-> ^.\hbox(7.0+1.0)x2.0, shifted -2.0, yoko(math) direction
-> ^..\displace 0.0
-3140a3179
-> .....\displace 0.0
-3142a3182
-> ....|\displace 0.0
-3143a3184
-> ....\displace 0.0
-3151a3193
-> .\displace 0.0
-3223d3264
-< {restoring \fam=-1}
-3235c3276
-< ! \textfont 0 is undefined (character ^^c8).
----
-> ! \textfont 0 is undefined (character ).
-3286c3327
-< .\vbox(6.0+-8.0)x0.0
----
-> .\vbox(6.0+-8.0)x0.0, yoko(math) direction
-3326c3367
-< \vbox(10000.0+2.0)x28.0, glue set 9737.58789fil
----
-> \vbox(10000.0+2.0)x28.0, glue set 9737.58742fil
-3329a3371
-> ..\displace 0.0
-3372c3414
-< .\hbox(68.26251+98.15005)x19.0, glue set - 1.0, shifted 9.0
----
-> .\hbox(68.26251+98.15005)x19.0, glue set - 1.0, shifted 9.0, display
-3374c3416
-< ..\vbox(6.0+-8.0)x0.0
----
-> ..\vbox(6.0+-8.0)x0.0, yoko(math) direction
-3385c3427,3428
-< ......\hbox(7.0+1.0)x2.0, shifted -2.0
----
-> ......\hbox(7.0+1.0)x2.0, shifted -2.0, yoko(math) direction
-> .......\displace 0.0
-3544a3588
-> ..........\displace 0.0
-3546a3591
-> .........|\displace 0.0
-3547a3593
-> .........\displace 0.0
-3557c3603
-< .\hbox(20.5+50.80002)x8.27895, shifted 19.72105
----
-> .\hbox(20.5+50.80002)x8.27895, shifted 19.72105, display
-3564c3610,3611
-< ...\hbox(7.0+1.0)x1.99
----
-> ...\hbox(7.0+1.0)x1.99, yoko(math) direction
-> ....\displace 0.0
-3616c3663
-< Memory usage before: 2170&521; after: 1181&459; still untouched: 175
----
-> Memory usage before: 3283&519; after: 1753&457; still untouched: 240
-3766d3812
-< {restoring \fam=-1}
-3839d3884
-< {restoring \fam=-1}
-3864c3909
-< \vbox(16383.99998+2.0)x100.0, glue set 16318.0fil
----
-> \vbox(16383.99998+2.0)x100.0, glue set 16317.99997fil
-3895c3940
-< ..\hbox(12.0+4.0)x8.1778
----
-> ..\hbox(12.0+4.0)x8.1778, display
-3917c3962
-< ..\hbox(0.0+13.00002)x-0.1778, glue set - 57.67767fil
----
-> ..\hbox(0.0+13.00002)x-0.1778, glue set - 57.67767fil, display
-3919,3920c3964,3966
-< ...\vbox(-0.00002+13.00002)x52.5, glue set - 0.00247
-< ....\vbox(-0.00002+0.0)x0.0
----
-> ...\vbox(-0.00002+13.00002)x52.5, glue set - 0.00247, yoko(math) directi
-> on
-> ....\vbox(-0.00002+0.0)x0.0, yoko(math) direction
-3925c3971
-< ....\hbox(7.0+1.0)x5.0, shifted 47.5
----
-> ....\hbox(7.0+1.0)x5.0, shifted 47.5, display
-3951c3997
-< Memory usage before: 640&415; after: 397&410; still untouched: 175
----
-> Memory usage before: 959&413; after: 573&408; still untouched: 240
-4011d4056
-< {restoring \fam=-1}
-4034c4079
-< \vbox(16383.99998+0.0)x8236.0, glue set 16344.0fil
----
-> \vbox(16383.99998+0.0)x8236.0, glue set 16343.99998fil
-4047c4092
-< .\hbox(0.0+0.0)x1009.0, shifted 7227.0
----
-> .\hbox(0.0+0.0)x1009.0, shifted 7227.0, display
-4051c4096
-< .\hbox(0.0+0.0)x-7127.0, shifted 7227.0
----
-> .\hbox(0.0+0.0)x-7127.0, shifted 7227.0, display
-4053c4098
-< Memory usage before: 235&401; after: 178&399; still untouched: 175
----
-> Memory usage before: 342&399; after: 248&397; still untouched: 240
-4420c4465
-< \vbox(16383.99998+0.0)x100.0, glue set 16332.0fil
----
-> \vbox(16383.99998+0.0)x100.0, glue set 16331.99998fil
-4425a4471
-> ...\displace 0.0
-4447a4494
-> ...\displace 0.0
-4475a4523
-> ...\displace 0.0
-4492a4541
-> ...\displace 0.0
-4506c4555
-< Memory usage before: 651&432; after: 417&418; still untouched: 175
----
-> Memory usage before: 1008&431; after: 606&417; still untouched: 240
-4742c4791,4792
-< \vbox(16383.99998+0.0)x205.12613, glue set 16344.0fil
----
-> \vbox(16383.99998+0.0)x205.12613, glue set 16343.99998fil, yoko directio
-> n
-4746a4797
-> ...\displace 0.0
-4762a4814
-> .....\displace 0.0
-4777a4830
-> ......\displace 0.0
-4828c4881
-< Memory usage before: 776&458; after: 464&452; still untouched: 175
----
-> Memory usage before: 1186&457; after: 682&451; still untouched: 240
-4845c4898
-< I'll pretend you didn't say \long or \outer or \global.
----
-> I'll pretend you didn't say \long or \outer or \global or \protected.
-4881,4888d4933
-< ! Bad number (16).
-< <to be read again>
-< =
-< l.346 ...ewlinechar}\textfont16=
-< \relax
-< Since I expected to read a number between 0 and 15,
-< I changed this one to zero.
-<
-5701c5746
-< ! \textfont 0 is undefined (character ^^c8).
----
-> ! \textfont 0 is undefined (character ).
-6381c6426
-< (tripos.tex
----
-> (./tripos.tex
-6502c6547
-< l.429 ...^^M=13 \def^^M{\relax}#
----
-> l.429 ...^^M=13 \defqqM{\relax}#
-6596c6641
-< Memory usage before: 819&428; after: 720&426; still untouched: 175
----
-> Memory usage before: 1232&428; after: 1078&426; still untouched: 240
-6853c6898
-< .|vbox(0.0+0.0)x0.0
----
-> .|vbox(0.0+0.0)x0.0, yoko(math) direction
-6876a6922
-> ..|displace 0.0
-6891a6938
-> ..|displace 0.0
-6926a6974
-> .|displace 0.0
-6959a7008
-> .|displace 0.0
-6961c7010,7011
-< .|hbox(0.0+0.0)x0.0
----
-> .|hbox(0.0+0.0)x0.0, yoko(math) direction
-> ..|displace 0.0
-6991a7042
-> .|displace 0.0
-7103a7155
-> ...|displace 0.0
-7108d7159
-< ...|ip A (ligature BB)
-7116a7168
-> ...|displace 0.0
-7125d7176
-< ...|kern2.0
-7126a7178
-> .|displace 0.0
-7136c7188
-< ...|vbox(0.0+0.0)x0.0
----
-> ...|vbox(0.0+0.0)x0.0, yoko(math) direction
-7156c7208
-< Memory usage before: 895&439; after: 290&420; still untouched: 175
----
-> Memory usage before: 1350&439; after: 398&420; still untouched: 240
-7289c7341
-< Memory usage before: 334&431; after: 292&418; still untouched: 175
----
-> Memory usage before: 462&431; after: 400&418; still untouched: 240
-7292a7345,7347
->
-> ### semi simple group (level 1) entered at line 429 (begingroup)
-> ### bottom level
-7297,7300c7352,7355
-< 47 strings out of 1674
-< 253 string characters out of 8367
-< 2825 words of memory out of 3000
-< 372 multiletter control sequences out of 2100
----
-> 44 strings out of 1627
-> 261 string characters out of 10703
-> 4260 words of memory out of 4500
-> 525 multiletter control sequences out of 15000+0
-7302,7303c7357,7358
-< 2 hyphenation exceptions out of 307
-< 7i,7n,9p,113b,38s stack positions out of 200i,40n,60p,500b,600s
----
-> 1 hyphenation exception out of 659
-> 7i,7n,9p,136b,40s stack positions out of 200i,40n,60p,500b,600s
-
-mv tripos.tex xptripos.tex
-+ mv tripos.tex xptripos.tex
-diff $testdir/tripos.tex xptripos.tex
-+ diff SRCDIR/triptrap/tripos.tex xptripos.tex
-
-eval ./dvitype $dvitype_args trip.dvi >xptrip.typ || exit 1
-+ eval ./dvitype -output-level=2 -dpi=72.27 '-page-start='\''*.*.*.*.*.*.*.*.*.*'\''' trip.dvi
-./dvitype -output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*' trip.dvi
-++ ./dvitype -output-level=2 -dpi=72.27 '-page-start=*.*.*.*.*.*.*.*.*.*' trip.dvi
-$DIFF $DIFFFLAGS $testdir/trip.typ xptrip.typ
-+ diff SRCDIR/triptrap/trip.typ xptrip.typ
-1c1
-< This is DVItype, Version 3.6
----
-> This is DVItype, Version 3.6 (TeX Live 2021/dev)
-9c9
-< ' TeX output 1776.07.04:1200'
----
-> ' TeX output 2021.01.27:1803'
-419c419
-< 1121: down4 639342208
----
-> 1121: down4 639342177
-1087,1088c1087,1088
-< 2535: y4 203921760
-< 2540: y0 203921760
----
-> 2535: y4 203921756
-> 2540: y0 203921756
-
-mv trip.fmt xtrip.fmt
-+ mv trip.fmt xtrip.fmt
-
-# =================================
-
-echo "*** e-TeX specific part of e-TRIP test for e-pTeX ***."
-+ echo '*** e-TeX specific part of e-TRIP test for e-pTeX ***.'
-*** e-TeX specific part of e-TRIP test for e-pTeX ***.
-
-./pltotf $etestdir/etrip.pl etrip.tfm || exit 1
-+ ./pltotf SRCDIR/etexdir/etrip/etrip.pl etrip.tfm
-
-./tftopl ./etrip.tfm etrip.pl || exit 1
-+ ./tftopl ./etrip.tfm etrip.pl
-
-diff $etestdir/etrip.pl etrip.pl || is_OK=false
-+ diff SRCDIR/etexdir/etrip/etrip.pl etrip.pl
-
-# get same filename in log
-$LN_S $eptestdir/eptrip.tex etrip.tex
-+ ln -s SRCDIR/eptexdir/eptrip/eptrip.tex etrip.tex
-
-./eptex --progname=epinitex --ini <$etestdir/etrip2.in >eptripin.fot
-+ ./eptex --progname=epinitex --ini
-if test ! -s etrip.fmt; then
- echo "*** etrip.fmt not created by etrip2.in, investigate!" >&2
- exit 1
-fi
-+ test '!' -s etrip.fmt
-sed "$P_SED1" etrip.log > eptripin.log || exit 1
-+ sed 's/, yoko direction//;s/yoko direction, //' etrip.log
-diff $etestdir/etripin.log eptripin.log
-+ diff SRCDIR/etexdir/etrip/etripin.log eptripin.log
-1c1
-< This is e-TeX, Version 3.14159265-2.6 (TeX Live 2014) (INITEX) 22 JAN 2014 11:25
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (INITEX) 27 JAN 2021 18:03
-26,29c26,29
-< (preloaded format=etrip 2014.1.22)
-< 1491 strings of total length 26258
-< 281 memory locations dumped; current usage is 36&167
-< 408 multiletter control sequences
----
-> (preloaded format=etrip 2021.1.27)
-> 1674 strings of total length 29328
-> 284 memory locations dumped; current usage is 40&167
-> 494 multiletter control sequences
-
-# May as well test non-ini second time through.
-./eptex --progname=eptex <$etestdir/etrip3.in >eptrip.fot
-+ ./eptex --progname=eptex
-sed "$P_SED1;$P_SED2" etrip.log > eptrip.log
-+ sed 's/, yoko direction//;s/yoko direction, //;s/yoko(math) direction, //' etrip.log
-diff $etestdir/etrip.fot eptrip.fot
-+ diff SRCDIR/etexdir/etrip/etrip.fot eptrip.fot
-1c1
-< This is e-TeX, Version 3.14159265-2.6 (TeX Live 2014) (preloaded format=etex)
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (preloaded format=eptex)
-45,46d44
-<
-< \openout1 = `etrip.out'.
-
-# We use $DIFF instead of `diff' only for those files where there
-# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $eptestdir/eptrip.log eptrip.log
-+ diff SRCDIR/eptexdir/eptrip/eptrip.log eptrip.log
-1c1
-< This is e-pTeX, Version 3.14159265-p3.4-130605-2.6 (utf8.euc) (TeX Live 2014) (preloaded format=etrip 2014.1.22) 22 JAN 2014 11:25
----
-> This is e-pTeX, Version 3.141592653-p3.8.3-191112-2.6 (utf8.euc) (TeX Live 2021/dev) (preloaded format=etrip 2021.1.27) 27 JAN 2021 18:03
-57a58
-> .\displace 0.0
-104a106
-> .\displace 0.0
-133a136
-> .\displace 0.0
-193a197
-> .\displace 0.0
-205a210
-> ..\displace 0.0
-253a259
-> ..\displace 0.0
-283a290
-> ..\displace 0.0
-303a311
-> ..\displace 0.0
-692,693d699
-< \openout1 = `etrip.out'.
-<
-1426c1432
-< this will be denominator of:
----
-> this will begin denominator of:
-1450c1456
-< this will be denominator of:
----
-> this will begin denominator of:
-1497c1503
-< this will be denominator of:
----
-> this will begin denominator of:
-1545c1551
-< this will be denominator of:
----
-> this will begin denominator of:
-1662a1669
-> \displace 0.0
-1873a1881
-> \displace 0.0
-1881c1889
-< .\hbox(0.0+0.0)x0.0, shifted -16.5
----
-> .\hbox(0.0+0.0)x0.0, shifted -16.5, yoko(math) direction
-1901a1910
-> \displace 0.0
-1906c1915
-< .\hbox(0.0+0.0)x0.0, shifted 3.0
----
-> .\hbox(0.0+0.0)x0.0, shifted 3.0, yoko(math) direction
-2207c2216
-< A character number must be between 0 and 255, or KANJI code.
----
-> A character number must be between 0 and 255.
-2213c2222
-< A character number must be between 0 and 255, or KANJI code.
----
-> A character number must be between 0 and 255.
-4025a4035
-> ..\displace 0.0
-4033a4044
-> ..\displace 0.0
-4300a4312
-> .\displace 0.0
-4421,4422c4433,4434
-< 19 strings out of 1692
-< 145 string characters out of 8157
----
-> 19 strings out of 1626
-> 145 string characters out of 10672
-4424c4436
-< 463 multiletter control sequences out of 15000+0
----
-> 495 multiletter control sequences out of 15000+0
-
-mv etrip.out eptrip.out
-+ mv etrip.out eptrip.out
-diff $etestdir/etrip.out eptrip.out
-+ diff SRCDIR/etexdir/etrip/etrip.out eptrip.out
-
-eval ./dvitype $dvitype_args etrip.dvi >eptrip.typ || exit 1
-+ eval ./dvitype -output-level=2 -dpi=72.27 '-page-start='\''*.*.*.*.*.*.*.*.*.*'\''' etrip.dvi
-./dvitype -output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*' etrip.dvi
-++ ./dvitype -output-level=2 -dpi=72.27 '-page-start=*.*.*.*.*.*.*.*.*.*' etrip.dvi
-$DIFF $DIFFFLAGS $etestdir/etrip.typ eptrip.typ
-+ diff SRCDIR/etexdir/etrip/etrip.typ eptrip.typ
-1c1
-< This is DVItype, Version 3.6 (TeX Live 2014)
----
-> This is DVItype, Version 3.6 (TeX Live 2021/dev)
-9c9
-< ' TeX output 2014.01.22:1125'
----
-> ' TeX output 2021.01.27:1803'
-
-$is_OK || {
- echo ">>> There were some errors." >&2
- exit 1
-}
-+ :
-
-PASS eptexdir/eptriptest.test (exit status: 0)
-PASS: eptexdir/eptriptest.test
diff --git a/Build/source/texk/web2c/eptexdir/eptrip/texmf.cnf b/Build/source/texk/web2c/eptexdir/eptrip/texmf.cnf
deleted file mode 100644
index 7ad7bffd6d3..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptrip/texmf.cnf
+++ /dev/null
@@ -1,41 +0,0 @@
-% eptexdir/eptrip/texmf.cnf -- configuration for the e-ptrip test.
-
-% These values apply to all the programs, and they are necessary for any
-% kind of reasonable diff.
-error_line = 64
-half_error_line = 32
-max_print_line = 72
-
-% e-pTeX.
-mem_bot = 1
-main_memory = 4500
-max_strings = 3300
-pool_size = 40000
-
-string_vacancies = 8000
-
-% TeX end e-TeX.
-font_mem_size = 20000
-font_max = 75
-stack_size = 200
-nest_size = 40
-buf_size = 500
-save_size = 600
-dvi_buf_size = 800
-% Although hyph_size is settable, it can't be <hyph_prime, which is 607,
-% and the original trip setting is 307, so no point in changing the default.
-
-% Avoid running any MakeTeX* program.
-MAKETEXTFM = 0
-MAKETEXTEX = 0
-MAKETEXMF = 0
-
-% Search paths.
-% (e)trip.tex:
-TEXINPUTS = .
-% (e)trip.tfm:
-TFMFONTS = .
-% (e)trip.fmt:
-TEXFORMATS = .
-% etex.pool:
-TEXPOOL = .
diff --git a/Build/source/texk/web2c/eptexdir/eptriptest.test b/Build/source/texk/web2c/eptexdir/eptriptest.test
deleted file mode 100755
index c295d745554..00000000000
--- a/Build/source/texk/web2c/eptexdir/eptriptest.test
+++ /dev/null
@@ -1,220 +0,0 @@
-#! /bin/sh -vx
-# $Id$
-# Copyright 2023 Japanese TeX Development Community <issue@texjp.org>
-# Copyright 2017-2018 Karl Berry <tex-live@tug.org>
-# Copyright 2011-2014 Peter Breitenlohner <tex-live@tug.org>
-# Copyright 2010 Hironori Kitagawa <tex-live@tug.org>
-# You may freely use, modify and/or distribute this file.
-
-W2CDir=${W2CDir:-..}
-ExeExt=${ExeExt:-}
-_eptex=$W2CDir/eptex$ExeExt
-_pltotf=$W2CDir/pltotf$ExeExt
-_tftopl=$W2CDir/tftopl$ExeExt
-_dvitype=$W2CDir/dvitype$ExeExt
-
-LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE
-
-testdir=$abs_srcdir/triptrap
-etestdir=$abs_srcdir/etexdir/etrip
-eptestdir=$abs_srcdir/eptexdir/eptrip
-
-TEXMFCNF=$eptestdir; export TEXMFCNF
-
-rm -rf eptripdir
-mkdir eptripdir
-cd eptripdir
-mkdir -p a b
-
-# TeX Live generic
-cat >filter <<-\_EOF
- /^\*\* \&trip trip/d
- /^\*\*entering extended mode/d
- s,^(trip\.tex ##,**(./trip.tex ##,
- s,^## (\./trip\.tex,**(./trip.tex ##,
- s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
- s/(preloaded format=.*tex)/(INITEX)/
- s/format=trip [^)][^)]*)/format=trip)/
- s/) [0-9A-Z: ]*$/)/
- s,^(\./,(,
- s/[1-9][0-9]* strings out of [1-9].*/XX strings out of YYY/
- s/[1-9][0-9]* string characters out of [1-9].*/XXX string characters out of YYYY/
- s/sequences out of [1-9].*/sequences out of YYYY/
- s/[1-9] hyphenation exceptions* out of [1-9].*/X hyphenation exceptions out of YYY/
- s/[1-9][0-9]* strings of total length [1-9].*/XXXX strings of total length YYYYY/
- s/9 ops out of [1-9][0-9]*/9 ops out of YYY/
- s/TeX output ....\...\...:..../TeX output YYYY.MM.DD:hhmm/
- _EOF
-
-# x86 glue rounding
-cat >>filter <<-\_EOF
- s/ 16341\.999.*fil/ 16342.0fil/
- s/ 16238\.999.*fil/ 16239.0fil/
- s/ 16317\.999.*fil/ 16318.0fil/
- s/ 16330\.999.*fil/ 16331.0fil/
- s/ 16331\.999.*fil/ 16332.0fil/
- s/ 16343\.999.*fil/ 16344.0fil/
- s/ 9737\.587..fil/ 9737.58789fil/
- s/down4 639342.../down4 639342208/
- s/y4 2039217../y4 203921760/
- s/y0 2039217../y0 203921760/
- _EOF
-
-# epTeX
-cat >>filter <<-\_EOF
- s/This is .*TeX,/This is *TeX,/
- s/(utf8[^)]*) //
- s/ Version 3\.141592653[^(]*(/ Version 3.141592653* (/
- s/ before: [1-9][0-9][0-9][0-9]*&[1-9][0-9][0-9][0-9]*; / before: XXX\&YYY; /
- s/ after: [1-9][0-9][0-9][0-9]*&[1-9][0-9][0-9][0-9]*; / after: XXX\&YYY; /
- s/ still untouched: [1-9][0-9][0-9][0-9]*/ still untouched: XXX/
- _EOF
-cat >filter1 <<-\_EOF
- :l
- N
- $!b l
- s/ inside a group at level 1).*bottom level/ inside a group at level 1)/
- _EOF
-
-dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'"
-
-echo ">>> Running e-TRIP test for e-pTeX." >&2
-echo ">>> See $eptestdir/eptrip.diffs for example of acceptable diffs." >&2
-
-# pTeX outputs direction of boxes.
-P_SED1='s/, yoko direction//;s/yoko direction, //'
-P_SED2='s/yoko(math) direction, //'
-
-is_OK=:
-
-set -x
-
-echo "*** TRIP test for e-pTeX in compatibility mode ***."
-
-$_pltotf $testdir/trip.pl trip.tfm || exit 1
-
-$_tftopl ./trip.tfm trip.pl || exit 1
-
-diff $testdir/trip.pl trip.pl || is_OK=false
-
-# get same filename in log
-$LN_S $testdir/trip.tex .
-
-rm -f trip.log
-$_eptex --progname=epinitex --ini <$testdir/trip1.in >cptripin.fot
-if test ! -s trip.fmt; then
- echo "*** trip.fmt not created by trip1.in, investigate!" >&2
- exit 1
-fi
-sed "$P_SED1" trip.log > cptripin.log || exit 1
-diff $testdir/tripin.log cptripin.log
-
-# May as well test non-ini second time through.
-rm -f trip.log
-$_eptex --progname=eptex <$testdir/trip2.in >cptrip.fot
-sed "$P_SED1;$P_SED2" trip.log > cptrip.log
-#diff $testdir/trip.fot cptrip.fot
-
-# We use $DIFF instead of `diff' only for those files where there
-# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $testdir/trip.log cptrip.log
-
-mv tripos.tex cptripos.tex
-diff $testdir/tripos.tex cptripos.tex
-
-eval $_dvitype $dvitype_args trip.dvi >cptrip.typ || exit 1
-#$DIFF $DIFFFLAGS $testdir/trip.typ cptrip.typ
-
-for f in trip.fot trip.typ; do
- sed -f filter $testdir/$f >a/$f
- sed -f filter cp$f >b/$f
- diff a/$f b/$f || is_OK=false
-done
-
-mv trip.fmt ctrip.fmt
-
-# =================================
-
-echo "*** TRIP test for e-pTeX in extended mode ***."
-
-rm -f trip.log
-$_eptex --progname=epinitex --ini <$etestdir/etrip1.in >xptripin.fot
-if test ! -s trip.fmt; then
- echo "*** trip.fmt not created by etrip1.in, investigate!" >&2
- exit 1
-fi
-sed "$P_SED1" trip.log > xptripin.log || exit 1
-diff $testdir/tripin.log xptripin.log
-
-# May as well test non-ini second time through.
-rm -f trip.log
-$_eptex --progname=eptex <$etestdir/trip2.in >xptrip.fot
-sed "$P_SED1;$P_SED2" trip.log > xptrip.log
-#diff $testdir/trip.fot xptrip.fot
-
-# We use $DIFF instead of `diff' only for those files where there
-# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $testdir/trip.log xptrip.log
-
-mv tripos.tex xptripos.tex
-diff $testdir/tripos.tex xptripos.tex
-
-eval $_dvitype $dvitype_args trip.dvi >xptrip.typ || exit 1
-#$DIFF $DIFFFLAGS $testdir/trip.typ xptrip.typ
-
-for f in trip.fot trip.typ; do
- sed -f filter $testdir/$f >a/x$f
- sed -f filter xp$f | sed -f filter1 >b/x$f
- diff a/x$f b/x$f || is_OK=false
-done
-
-mv trip.fmt xtrip.fmt
-
-# =================================
-
-echo "*** e-TeX specific part of e-TRIP test for e-pTeX ***."
-
-$_pltotf $etestdir/etrip.pl etrip.tfm || exit 1
-
-$_tftopl ./etrip.tfm etrip.pl || exit 1
-
-diff $etestdir/etrip.pl etrip.pl || is_OK=false
-
-# get same filename in log
-$LN_S $eptestdir/eptrip.tex etrip.tex
-
-$_eptex --progname=epinitex --ini <$etestdir/etrip2.in >eptripin.fot
-if test ! -s etrip.fmt; then
- echo "*** etrip.fmt not created by etrip2.in, investigate!" >&2
- exit 1
-fi
-sed "$P_SED1" etrip.log > eptripin.log || exit 1
-diff $etestdir/etripin.log eptripin.log
-
-# May as well test non-ini second time through.
-$_eptex --progname=eptex <$etestdir/etrip3.in >eptrip.fot
-sed "$P_SED1;$P_SED2" etrip.log > eptrip.log
-#diff $etestdir/etrip.fot eptrip.fot
-
-# We use $DIFF instead of `diff' only for those files where there
-# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $eptestdir/eptrip.log eptrip.log
-
-mv etrip.out eptrip.out
-diff $etestdir/etrip.out eptrip.out
-
-eval $_dvitype $dvitype_args etrip.dvi >eptrip.typ || exit 1
-#$DIFF $DIFFFLAGS $etestdir/etrip.typ eptrip.typ
-
-for f in trip.fot trip.typ; do
- sed -f filter $etestdir/e$f >a/e$f
- sed -f filter ep$f >b/e$f
- diff a/e$f b/e$f || is_OK=false
-done
-
-$is_OK || {
- echo ">>> There were some errors." >&2
- exit 1
-}
-
diff --git a/Build/source/texk/web2c/eptexdir/epver.test b/Build/source/texk/web2c/eptexdir/epver.test
deleted file mode 100755
index 9f14d055433..00000000000
--- a/Build/source/texk/web2c/eptexdir/epver.test
+++ /dev/null
@@ -1,36 +0,0 @@
-#! /bin/sh -vx
-# $Id$
-# Copyright 2019 Hironobu Yamashita <h.y.acetaminophen@gmail.com>
-# You may freely use, modify and/or distribute this file.
-
-BinDir=${BinDir:-.}
-ExeExt=${ExeExt:-}
-_eptex=$BinDir/eptex$ExeExt
-
-LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE
-
-TEXMFCNF=$srcdir/../kpathsea; export TEXMFCNF
-TEXINPUTS="$srcdir/ptexdir/tests;."; export TEXINPUTS
-
-# check consistency between runtime terminal and log
-$_eptex -ini -etex -interaction batchmode -jobname epver1-log pver1.tex >epver1-term.log || exit 1
-sed -n 's/^This is \([-A-Za-z]*\), Version [^-]*-\([^ ]*\) \(.*\)/\1 \2/p' \
- epver1-term.log >epver1-term_ed.log || exit 2
-sed -n 's/^This is \([-A-Za-z]*\), Version [^-]*-\([^ ]*\) \(.*\)/\1 \2/p' \
- epver1-log.log >epver1-log_ed.log || exit 3
-diff epver1-term_ed.log epver1-log_ed.log || exit 4
-
-# check consistency between runtime and version output
-$_eptex -version >epver2-self.log || exit 5
-sed -n '1 s/^\([-A-Za-z]*\) [^-]*-\([^ ]*\) \(.*\)/\1 \2/p' \
- epver2-self.log >epver2-self_ed.log || exit 6
-diff epver1-term_ed.log epver2-self_ed.log || exit 7
-
-# check consistency between version output and version primitives
-$_eptex -ini -etex -interaction batchmode -jobname epver2-prim pver2.tex || exit 8
-sed -n 's/^Engine \([-A-Za-z]*\) \([^ ]*\) \(.*\)/\1 \2/p' \
- epver2-prim.log >epver2-prim_ed.log || exit 9
-diff epver2-self_ed.log epver2-prim_ed.log || exit 10
-
-exit 0
-
diff --git a/Build/source/texk/web2c/eptexdir/etex.ch0 b/Build/source/texk/web2c/eptexdir/etex.ch0
deleted file mode 100644
index d5893fa9fd1..00000000000
--- a/Build/source/texk/web2c/eptexdir/etex.ch0
+++ /dev/null
@@ -1,261 +0,0 @@
-% eptexdir/etex.ch0: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details.
-% Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>.
-
-@x [10] m.135 l.2895 - e-TeX TeXXeT
-|fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX.
-@y
-|fil|, |fill|, or |filll|). The |subtype| field is not used.
-@z
-
-@x [17.236] l.4960 - first web2c, then e-TeX additional integer parameters
-@d int_pars=web2c_int_pars {total number of integer parameters}
-@#
-@d etex_int_base=tex_int_pars {base for \eTeX's integer parameters}
-@y
-@d int_pars=web2c_int_pars {total number of integer parameters}
-@z
-
-@x [18.???] pTeX: ensure buffer2[]=0 in primitive
- for j:=0 to l-1 do buffer[first+j]:=so(str_pool[k+j]);
-@y
- for j:=0 to l-1 do buffer[j]:=so(str_pool[k+j]);
-@z
-
-@x [26.413]
- {fetch an internal parameter}
-label exit;
-var m:halfword; {|chr_code| part of the operand token}
-@!q,@!r:pointer; {general purpose indices}
-@!tx:pointer; {effective tail node}
-@y
- {fetch an internal parameter}
-var m:halfword; {|chr_code| part of the operand token}
-@z
-
-@x [26.413]
-exit:end;
-@y
-end;
-@z
-
-@x
-@d badness_code=input_line_no_code+1 {code for \.{\\badness}}
-@y
-@d badness_code=glue_val+2 {code for \.{\\badness}}
-@z
-
-@x [26.420]
-begin scan_register_num; fetch_box(q);
-if q=null then cur_val:=0 @+else cur_val:=mem[q+m].sc;
-@y
-begin scan_eight_bit_int;
-if box(cur_val)=null then cur_val:=0 @+else cur_val:=mem[box(cur_val)+m].sc;
-@z
-
-@x [26.424]
-legal in similar contexts.
-
-@y
-legal in similar contexts.
-@z
-
-@x [26.424]
-@d find_effective_tail==find_effective_tail_eTeX
-
-@y
-@z
-
-@x
- if m>=eTeX_glue then @<Process an expression and |return|@>@;
- else if m>=eTeX_dim then
- begin case m of
- @/@<Cases for fetching a dimension value@>@/
- end; {there are no other cases}
- cur_val_level:=dimen_val;
- end
- else begin case m of
- input_line_no_code: cur_val:=line;
- badness_code: cur_val:=last_badness;
- @/@<Cases for fetching an integer value@>@/
- end; {there are no other cases}
-@y
- begin if cur_chr=input_line_no_code then cur_val:=line
- else cur_val:=last_badness; {|cur_chr=badness_code|}
-@z
-
-@x [26.424]
- find_effective_tail;
-@y
-@z
-
-@x [26.424]
- if not is_char_node(tx)and(mode<>0) then
- case cur_chr of
- int_val: if type(tx)=penalty_node then cur_val:=penalty(tx);
- dimen_val: if type(tx)=kern_node then cur_val:=width(tx);
- glue_val: if type(tx)=glue_node then
- begin cur_val:=glue_ptr(tx);
- if subtype(tx)=mu_glue then cur_val_level:=mu_val;
-@y
- if not is_char_node(tail)and(mode<>0) then
- case cur_chr of
- int_val: if type(tail)=penalty_node then cur_val:=penalty(tail);
- dimen_val: if type(tail)=kern_node then cur_val:=width(tail);
- glue_val: if type(tail)=glue_node then
- begin cur_val:=glue_ptr(tail);
- if subtype(tail)=mu_glue then cur_val_level:=mu_val;
-@z
-
-@x [26.424]
- else if (mode=vmode)and(tx=head) then
-@y
- else if (mode=vmode)and(tail=head) then
-@z
-
-@x [27.468]
-@d etex_convert_base=5 {base for \eTeX's command codes}
-@d eTeX_revision_code=etex_convert_base {command code for \.{\\eTeXrevision}}
-@d etex_convert_codes=etex_convert_base+1 {end of \eTeX's command codes}
-@d job_name_code=etex_convert_codes {command code for \.{\\jobname}}
-@y
-@d job_name_code=5 {command code for \.{\\jobname}}
-@z
-
-@x [30.581]
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-var old_setting: integer; {saved value of |tracing_online|}
-@y
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-@z
-
-@x [32.619]
-save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v;
-prev_p:=this_box+list_offset;
-@<Initialize |hlist_out| for mixed direction typesetting@>;
-left_edge:=cur_h;
-@y
-save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v; left_edge:=cur_h;
-@z
-
-@x [32.620]
- prev_p:=link(prev_p); {N.B.: not |prev_p:=p|, |p| might be |lig_trick|}
-@y
-@z
-
-@x [32.624] l.13005 - pTeX: output a box(and dir_node) with disp
- cur_h:=edge; cur_v:=base_line;
-@y
- cur_h:=edge+width(p); cur_v:=base_line;
-@z
-
-@x [33.649]
-exit: if TeXXeT_en then @<Check for LR anomalies at the end of |hpack|@>;
-hpack:=r;
-@y
-exit: hpack:=r;
-@z
-
-@x [44.977]
-q:=prune_page_top(q,saving_vdiscards>0);
-p:=list_ptr(v); free_node(v,box_node_size);
-if q<>null then q:=vpack(q,natural);
-change_box(q); {the |eq_level| of the box stays the same}
-@y
-q:=prune_page_top(q); p:=list_ptr(v); free_node(v,box_node_size);
-if q=null then box(n):=null {the |eq_level| of the box stays the same}
-else box(n):=vpack(q,natural);
-@z
-
-@x [47.1079]
-@!r:pointer; {running behind |p|}
-@!fm:boolean; {a final \.{\\beginM} \.{\\endM} node pair?}
-@!tx:pointer; {effective tail node}
-@y
-@z
-
-@x [47.1080]
-@d check_effective_tail(#)==find_effective_tail_eTeX
-@d fetch_effective_tail==fetch_effective_tail_eTeX
-
-@y
-@z
-@x [47.1080]
-else begin check_effective_tail(goto done);
- if not is_char_node(tx) then
- if (type(tx)=hlist_node)or(type(tx)=vlist_node) then
- @<Remove the last box, unless it's part of a discretionary@>;
- done:end;
-@y
-else begin if not is_char_node(tail) then
- if (type(tail)=hlist_node)or(type(tail)=vlist_node) then
- @<Remove the last box, unless it's part of a discretionary@>;
- end;
-@z
-
-@x [47.1081]
-begin fetch_effective_tail(goto done);
-cur_box:=tx; shift_amount(cur_box):=0;
-end
-@y
-begin q:=head;
-repeat p:=q;
-if not is_char_node(q) then if type(q)=disc_node then
- begin for m:=1 to replace_count(q) do p:=link(p);
- if p=tail then goto done;
- end;
-q:=link(p);
-until q=tail;
-cur_box:=tail; shift_amount(cur_box):=0;
-tail:=p; link(p):=null;
-done:end
-@z
-
-@x [47.1096]
- else line_break(false);
-@y
- else line_break(widow_penalty);
-@z
-
-@x [47.1105]
-@!r:pointer; {running behind |p|}
-@!fm:boolean; {a final \.{\\beginM} \.{\\endM} node pair?}
-@!tx:pointer; {effective tail node}
-@y
-@z
-
-@x [47.1105]
-else begin check_effective_tail(return);
- if not is_char_node(tx) then if type(tx)=cur_chr then
- begin fetch_effective_tail(return);
- flush_node_list(tx);
-@y
-else begin if not is_char_node(tail) then if type(tail)=cur_chr then
- begin q:=head;
- repeat p:=q;
- if not is_char_node(q) then if type(q)=disc_node then
- begin for m:=1 to replace_count(q) do p:=link(p);
- if p=tail then return;
- end;
- q:=link(p);
- until q=tail;
- link(p):=null; flush_node_list(tail); tail:=p;
-@z
-
-@x [47.1110]
-else begin link(tail):=list_ptr(p); change_box(null);
-@y
-else begin link(tail):=list_ptr(p); box(cur_val):=null;
-@z
-
-@x [48.1145]
-else begin line_break(true);@/
-@y
-else begin line_break(display_widow_penalty);@/
-@z
-
-@x [49.1247]
-if b<>null then mem[b+c].sc:=cur_val;
-@y
-if box(b)<>null then mem[box(b)+c].sc:=cur_val;
-@z
-
diff --git a/Build/source/texk/web2c/eptexdir/etex.ch1 b/Build/source/texk/web2c/eptexdir/etex.ch1
deleted file mode 100644
index 5826dbcb4f8..00000000000
--- a/Build/source/texk/web2c/eptexdir/etex.ch1
+++ /dev/null
@@ -1,214 +0,0 @@
-% eptexdir/etex.ch1: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details.
-% Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>.
-
-@x [12.184]
- begin print(", "); print_direction(box_dir(p));
-@y
- begin print_direction_alt(box_dir(p));
-@z
-
-@x [16.215] - e-pTeX last_node_subtype
-last_glue:=max_halfword; last_penalty:=0; last_kern:=0;
-last_node_type:=-1;
-@y
-last_glue:=max_halfword; last_penalty:=0; last_kern:=0;
-last_node_type:=-1; last_node_subtype:=-1;
-@z
-
-@x [17.236]
-@d int_pars=web2c_int_pars {total number of integer parameters}
-@y
-@d etex_int_base=web2c_int_pars {base for \eTeX's integer parameters}
-@z
-
-@x [18]
- for j:=0 to l-1 do begin
- buffer[j]:=Lo(so(str_pool[k+j])); buffer2[j]:=Hi(so(str_pool[k+j])); end;
-@y
- for j:=0 to l-1 do begin
- buffer[first+j]:=Lo(so(str_pool[k+j])); buffer2[first+j]:=Hi(so(str_pool[k+j])); end;
-@z
-
-@x [26.413]
-@<Fix the reference count, if any, and negate |cur_val| if |negative|@>;
-end;
-@y
-@<Fix the reference count, if any, and negate |cur_val| if |negative|@>;
-exit:end;
-@z
-
-@x
-@d eTeX_int=badness_code+1 {first of \eTeX\ codes for integers}
-@y
-@d eTeX_int=ptex_minor_version_code+1 {first of \eTeX\ codes for integers}
-@z
-
-@x
- begin case m of
- input_line_no_code: cur_val:=line;
- badness_code: cur_val:=last_badness;
- ptex_version_code: cur_val:=pTeX_version;
- eptex_version_code: cur_val:=epTeX_version_number;
- ptex_minor_version_code: cur_val:=pTeX_minor_version;
- end; {there and no other cases}
-@y
- if m>=eTeX_glue then @<Process an expression and |return|@>@;
- else if m>=eTeX_dim then
- begin case m of
- @/@<Cases for fetching a dimension value@>@/
- end; {there are no other cases}
- cur_val_level:=dimen_val;
- end
- else begin case m of
- input_line_no_code: cur_val:=line;
- badness_code: cur_val:=last_badness;
- ptex_version_code: cur_val:=pTeX_version;
- eptex_version_code: cur_val:=epTeX_version_number;
- ptex_minor_version_code: cur_val:=pTeX_minor_version;
- @/@<Cases for fetching an integer value@>@/
- end; {there are no other cases}
-@z
-
-@x [27.468]
-@d job_name_code=ptex_convert_codes {command code for \.{\\jobname}}
-@y
-@d etex_convert_base=ptex_convert_codes {base for \eTeX's command codes}
-@d eTeX_revision_code=etex_convert_base {command code for \.{\\eTeXrevision}}
-@d etex_convert_codes=etex_convert_base+1 {end of \eTeX's command codes}
-@d job_name_code=etex_convert_codes {command code for \.{\\jobname}}
-@z
-
-@x [30.581]
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-var @!l:0..255; {small indices or counters}
-@y
-@p procedure char_warning(@!f:internal_font_number;@!c:eight_bits);
-var @!l:0..255; {small indices or counters}
-old_setting: integer; {saved value of |tracing_online|}
-@z
-
-@x [32.619]
-base_line:=cur_v; left_edge:=cur_h; disp:=0;
-@y
-base_line:=cur_v; disp:=0; revdisp:=0;
-prev_p:=this_box+list_offset;
-@<Initialize |hlist_out| for mixed direction typesetting@>;
-left_edge:=cur_h;
-@z
-
-@x [32.622]
-@<Output node |p| for |hlist_out|...@>=
-@y
-@<Output node |p| for |hlist_out|...@>=
-@z
-@x [32.622]
- p:=link(p);
-@y
- prev_p:=link(prev_p); {N.B.: not |prev_p:=p|, |p| might be |lig_trick|}
- p:=link(p);
-@z
-
-@x [32.623]
-disp_node: begin disp:=disp_dimen(p); cur_v:=base_line+disp; end;
-@y
-disp_node: begin disp:=disp_dimen(p); revdisp:=disp; cur_v:=base_line+disp; end;
-@z
-
-@x [32.624]
- cur_h:=edge+width(p); cur_v:=base_line+disp; cur_dir_hv:=save_dir;
-@y
- cur_h:=edge; cur_v:=base_line+disp; cur_dir_hv:=save_dir;
-@z
-
-@x [33.649]
-exit: last_disp:=disp; hpack:=r;
-@y
-exit: last_disp:=disp;
-if TeXXeT_en then @<Check for LR anomalies at the end of |hpack|@>;
-hpack:=r;
-@z
-
-@x [33.651]
- disp_node:disp:=disp_dimen(p);
-@y
- disp_node:begin disp:=disp_dimen(p); revdisp:=disp; end;
-@z
-
-@x [44.977]
-q:=prune_page_top(q); p:=list_ptr(v);
-if q=null then box(n):=null {the |eq_level| of the box stays the same}
-else begin
- box(n):=vpack(q,natural); set_box_dir(box(n))(box_dir(v));
- end;
-@y
-q:=prune_page_top(q,saving_vdiscards>0);
-p:=list_ptr(v);
-if q<>null then begin
- q:=vpack(q,natural); set_box_dir(q)(box_dir(v));
- end;
-change_box(q);
-@z
-
-@x [47.1096]
- else begin adjust_hlist(head,true); line_break(widow_penalty)
-@y
- else begin adjust_hlist(head,true); line_break(false)
-@z
-
-@x [47.1110]
- begin if type(box(cur_val))=dir_node then
- begin delete_glue_ref(space_ptr(box(cur_val)));
- delete_glue_ref(xspace_ptr(box(cur_val)));
- free_node(box(cur_val),box_node_size);
-@y
- begin if type(p)=dir_node then
- begin delete_glue_ref(space_ptr(p));
- delete_glue_ref(xspace_ptr(p));
- free_node(p,box_node_size);
-@z
-@x [47.1110]
- link(tail):=list_ptr(p); box(cur_val):=null;
-@y
- link(tail):=list_ptr(p); change_box(null);
-@z
-
-@x [48.1145]
- pop_nest; w:=-max_dimen;
- end
- { |disp_node|-only paragraphs are ignored }
-@y
- @<Prepare for display after an empty paragraph@>
- end
- { |disp_node|-only paragraphs are ignored }
-@z
-
-@x [48.1145]
-else begin adjust_hlist(head,true); line_break(display_widow_penalty);@/
-@y
-else begin adjust_hlist(head,true); line_break(true);@/
-@z
-
-@x [49.1247]
-if box(b)<>null then
- begin q:=box(b); p:=link(q);
-@y
-if b<>null then
- begin q:=b; p:=link(q);
-@z
-@x [49.1247]
- begin p:=link(box(b)); link(box(b)):=null;
-@y
- begin p:=link(b); link(b):=null;
-@z
-@x [49.1247]
- link(q):=p; link(box(b)):=q;
-@y
- link(q):=p; link(b):=q;
-@z
-
-@x [49.1291]
-@d show_mode=4 { \.{\\showmode} }
-@y
-@d show_mode=7 { \.{\\showmode} }
-@z
-
diff --git a/Build/source/texk/web2c/eptexdir/fam256.ch b/Build/source/texk/web2c/eptexdir/fam256.ch
deleted file mode 100644
index 583c5b8d21a..00000000000
--- a/Build/source/texk/web2c/eptexdir/fam256.ch
+++ /dev/null
@@ -1,1537 +0,0 @@
-% fam256.ch
-% (C) 2009--2017 by Hironori Kitagawa.
-%
-% This patch is derived from om16bit.ch and omfi.ch (both in Omega).
-% (Omega is copyright by John Plaice and Yannis Haralambous.)
-%
-%-----------------------------------------------
-@x
-@d hyph_prime=607 {another prime for hashing \.{\\hyphenation} exceptions;
- if you change this, you should also change |iinf_hyphen_size|.}
-@y
-@d hyph_prime=607 {another prime for hashing \.{\\hyphenation} exceptions;
- if you change this, you should also change |iinf_hyphen_size|.}
-@d text_size=0 {size code for the largest size in a family}
-@d script_size=256 {size code for the medium size in a family}
-@d script_script_size=512 {size code for the smallest size in a family}
-@z
-%-----------------------------------------------
-@x
-@d not_found4=49 {like |not_found|, when there's more than four}
-@y
-@d not_found4=49 {like |not_found|, when there's more than four}
-@d not_found5=50 {like |not_found|, when there's more than five}
-@z
-%-----------------------------------------------
-@x
-specifies the order of infinity to which glue setting applies (|normal|,
-|fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX.
-@y
-specifies the order of infinity to which glue setting applies (|normal|,
-|sfi|, |fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX.
-@z
-%-----------------------------------------------
-@x
-orders of infinity (|normal|, |fil|, |fill|, or |filll|)
-@y
-orders of infinity (|normal|, |sfi|, |fil|, |fill|, or |filll|)
-@z
-%-----------------------------------------------
-@x
-@d fil=1 {first-order infinity}
-@d fill=2 {second-order infinity}
-@d filll=3 {third-order infinity}
-@y
-@d sfi=1 {first-order infinity}
-@d fil=2 {second-order infinity}
-@d fill=3 {third-order infinity}
-@d filll=4 {fourth-order infinity}
-@z
-%-----------------------------------------------
-@x
-@!glue_ord=normal..filll; {infinity to the 0, 1, 2, or 3 power}
-@y
-@!glue_ord=normal..filll; {infinity to the 0, 1, 2, 3, or 4 power}
-@z
-%-----------------------------------------------
-@x
-@d fil_glue==zero_glue+glue_spec_size {\.{0pt plus 1fil minus 0pt}}
-@y
-@d sfi_glue==zero_glue+glue_spec_size {\.{0pt plus 1fi minus 0pt}}
-@d fil_glue==sfi_glue+glue_spec_size {\.{0pt plus 1fil minus 0pt}}
-@z
-%-----------------------------------------------
-@x
-stretch(fil_glue):=unity; stretch_order(fil_glue):=fil;@/
-stretch(fill_glue):=unity; stretch_order(fill_glue):=fill;@/
-@y
-stretch(sfi_glue):=unity; stretch_order(sfi_glue):=sfi;@/
-stretch(fil_glue):=unity; stretch_order(fil_glue):=fil;@/
-stretch(fill_glue):=unity; stretch_order(fill_glue):=fill;@/
-@z
-%-----------------------------------------------
-@x
- begin print("fil");
- while order>fil do
-@y
- begin print("fi");
- while order>sfi do
-@z
-%-----------------------------------------------
-@x
-@d last_item=math_given+1 {most recent item ( \.{\\lastpenalty},
-@y
-@d omath_given=math_given+1 {math code defined by \.{\\omathchardef}}
-@d last_item=omath_given+1 {most recent item ( \.{\\lastpenalty},
-@z
-%-----------------------------------------------
-@x
-@d math_font_base=cur_font_loc+1 {table of 48 math font numbers}
-@d cur_jfont_loc=math_font_base+48
-@y
-@d math_font_base=cur_font_loc+1 {table of 768 math font numbers}
-@d cur_jfont_loc=math_font_base+768
-@z
-%-----------------------------------------------
-@x
-@d var_code==@'70000 {math code meaning ``use the current family''}
-@y
-@d var_code==@"70000 {math code meaning ``use the current family''}
-@z
-%-----------------------------------------------
-@x
-for k:=math_font_base to math_font_base+47 do eqtb[k]:=eqtb[cur_font_loc];
-@y
-for k:=math_font_base to math_font_base+767 do eqtb[k]:=eqtb[cur_font_loc];
-@z
-%-----------------------------------------------
-@x
-begin if n=cur_font_loc then print("current font")
-else if n<math_font_base+16 then
- begin print_esc("textfont"); print_int(n-math_font_base);
- end
-else if n<math_font_base+32 then
- begin print_esc("scriptfont"); print_int(n-math_font_base-16);
- end
-else begin print_esc("scriptscriptfont"); print_int(n-math_font_base-32);
-@y
-begin if n=cur_font_loc then print("current font")
-else if n<math_font_base+script_size then
- begin print_esc("textfont"); print_int(n-math_font_base);
- end
-else if n<math_font_base+script_script_size then
- begin print_esc("scriptfont"); print_int(n-math_font_base-script_size);
- end
-else begin print_esc("scriptscriptfont");
- print_int(n-math_font_base-script_script_size);
-@z
-%-----------------------------------------------
-@x
-@d del_code(#)==eqtb[del_code_base+#].int
-@y
-@d del_code(#)==eqtb[del_code_base+#].int
-@d del_code1(#)==getintone(eqtb[del_code_base+#])
-@z
-%-----------------------------------------------
-@x
-for k:=0 to 255 do del_code(k):=-1;
-del_code("."):=0; {this null delimiter is used in error recovery}
-@y
-for k:=0 to 255 do
- begin del_code(k):=-1; setintone(eqtb[del_code_base+k],-1);
- end;
-del_code("."):=0; setintone(eqtb[del_code_base+"."],0);
- {this null delimiter is used in error recovery}
-@z
-%-----------------------------------------------
-@x
-primitive("delimiter",delim_num,0);@/
-@!@:delimiter_}{\.{\\delimiter} primitive@>
-@y
-primitive("delimiter",delim_num,0);@/
-@!@:delimiter_}{\.{\\delimiter} primitive@>
-primitive("odelimiter",delim_num,1);@/
-@!@:delimiter_}{\.{\\odelimiter} primitive@>
-@z
-%-----------------------------------------------
-@x
-primitive("mathaccent",math_accent,0);@/
-@!@:math_accent_}{\.{\\mathaccent} primitive@>
-primitive("mathchar",math_char_num,0);@/
-@!@:math_char_}{\.{\\mathchar} primitive@>
-@y
-primitive("mathaccent",math_accent,0);@/
-@!@:math_accent_}{\.{\\mathaccent} primitive@>
-primitive("mathchar",math_char_num,0);@/
-@!@:math_char_}{\.{\\mathchar} primitive@>
-primitive("omathaccent",math_accent,1);@/
-@!@:math_accent_}{\.{\\omathaccent} primitive@>
-primitive("omathchar",math_char_num,1);@/
-@!@:math_char_}{\.{\\omathchar} primitive@>
-@z
-%-----------------------------------------------
-@x
-primitive("radical",radical,0);@/
-@!@:radical_}{\.{\\radical} primitive@>
-@y
-primitive("radical",radical,0);@/
-@!@:radical_}{\.{\\radical} primitive@>
-primitive("oradical",radical,1);@/
-@!@:radical_}{\.{\\oradical} primitive@>
-@z
-%-----------------------------------------------
-@x
-delim_num: print_esc("delimiter");
-@y
-delim_num: if chr_code=0 then print_esc("delimiter")
- else print_esc("odelimiter");
-@z
-@x
-math_accent: print_esc("mathaccent");
-math_char_num: print_esc("mathchar");
-@y
-math_accent: if chr_code=0 then print_esc("mathaccent")
- else print_esc("omathaccent");
-math_char_num: if chr_code=0 then print_esc("mathchar")
- else print_esc("omathchar");
-@z
-@x
-radical: print_esc("radical");
-@y
-radical: if chr_code=0 then print_esc("radical")
- else print_esc("oradical");
-@z
-%-----------------------------------------------
-@x
-@p procedure eq_word_define(@!p:pointer;@!w:integer);
-label exit;
-begin if eTeX_ex and(eqtb[p].int=w) then
- begin assign_trace(p,"reassigning")@;@/
- return;
- end;
-assign_trace(p,"changing")@;@/
-if xeq_level[p]<>cur_level then
- begin eq_save(p,xeq_level[p]); xeq_level[p]:=cur_level;
- end;
-eqtb[p].int:=w;
-assign_trace(p,"into")@;@/
-exit:end;
-@y
-@p procedure eq_word_define(@!p:pointer;@!w:integer);
-label exit;
-begin if eTeX_ex and(eqtb[p].int=w) then
- begin assign_trace(p,"reassigning")@;@/
- return;
- end;
-assign_trace(p,"changing")@;@/
-if xeq_level[p]<>cur_level then
- begin eq_save(p,xeq_level[p]); xeq_level[p]:=cur_level;
- end;
-eqtb[p].int:=w;
-assign_trace(p,"into")@;@/
-exit:end;
-@#
-procedure del_eq_word_define(@!p:pointer;@!w,wone:integer);
-label exit;
-begin if eTeX_ex and(eqtb[p].int=w)and(getintone(eqtb[p])=wone) then
- begin assign_trace(p,"reassigning")@;@/
- return;
- end;
-assign_trace(p,"changing")@;@/
-if xeq_level[p]<>cur_level then
- begin eq_save(p,xeq_level[p]); xeq_level[p]:=cur_level;
- end;
-eqtb[p].int:=w; setintone(eqtb[p],wone);
-assign_trace(p,"into")@;@/
-exit:end;
-@z
-%-----------------------------------------------
-@x
-procedure geq_word_define(@!p:pointer;@!w:integer); {global |eq_word_define|}
-begin assign_trace(p,"globally changing")@;@/
-begin eqtb[p].int:=w; xeq_level[p]:=level_one;
-end;
-assign_trace(p,"into")@;@/
-end;
-@y
-procedure geq_word_define(@!p:pointer;@!w:integer); {global |eq_word_define|}
-begin assign_trace(p,"globally changing")@;@/
-begin eqtb[p].int:=w; xeq_level[p]:=level_one;
-end;
-assign_trace(p,"into")@;@/
-end;
-@#
-procedure del_geq_word_define(@!p:pointer;@!w,wone:integer);
- {global |del_eq_word_define|}
-begin assign_trace(p,"globally changing")@;@/
-begin eqtb[p].int:=w; setintone(eqtb[p],wone); xeq_level[p]:=level_one;
-end;
-assign_trace(p,"into")@;@/
-end;
-@z
-%-----------------------------------------------
-@x
-@d tok_val=5 {token lists}
-
-@<Glob...@>=
-@!cur_val:integer; {value returned by numeric scanners}
-@y
-@d tok_val=5 {token lists}
-
-@<Glob...@>=
-@!cur_val:integer; {value returned by numeric scanners}
-@!cur_val1:integer;
-@z
-%-----------------------------------------------
-@x
-char_given,math_given: scanned_result(cur_chr)(int_val);
-@y
-omath_given,
-char_given,math_given: scanned_result(cur_chr)(int_val);
-@z
-%-----------------------------------------------
-@x
-@ @<Fetch a character code from some table@>=
-begin
-if m=math_code_base then
- begin scan_ascii_num;
- scanned_result(ho(math_code(cur_val)))(int_val); end
-@y
-@ @<Fetch a character code from some table@>=
-begin
-if m=math_code_base then begin
- scan_ascii_num; cur_val1:=ho(math_code(cur_val));
- if ((cur_val1 div @"10000)>8) or
- (((cur_val1 mod @"10000) div @"100)>15) then
- begin print_err("Extended mathchar used as mathchar");
-@.Bad mathchar@>
- help2("A mathchar number must be between 0 and ""7FFF.")@/
- ("I changed this one to zero."); int_error(cur_val1);
- scanned_result(0)(int_val)
- end;
- cur_val1:=(cur_val1 div @"10000)*@"1000+cur_val1 mod @"1000;
- scanned_result(cur_val1)(int_val);
- end
-else if m=(math_code_base+128) then begin
- scan_ascii_num; cur_val1:=ho(math_code(cur_val));
- cur_val:=(cur_val1 div @"10000) * @"1000000
- +((cur_val1 div @"100) mod @"100) * @"10000
- +(cur_val1 mod @"100);
- scanned_result(cur_val)(int_val);
- end
-else if m=del_code_base then begin
- scan_ascii_num; cur_val1:=del_code(cur_val); cur_val:=del_code1(cur_val);
- if ((cur_val1 div @"100) mod @"100 >= 16) or (cur_val>=@"1000) then
- begin print_err("Extended delimiter code used as delcode");
-@.Bad delimiter code@>
- help2("A numeric delimiter code must be between 0 and 2^{27}-1.")@/
- ("I changed this one to zero."); error;
- scanned_result(0)(int_val);
- end
- else if cur_val1<0 then
- scanned_result(cur_val)(int_val)
- else
- scanned_result(cur_val1*@"1000+cur_val)(int_val);
- end
-else if m=(del_code_base+128) then begin
- { Aleph seems \.{\\odelcode} always returns $-1$.}
- scan_ascii_num; scanned_result(-1)(int_val);
- end
-@z
-%-----------------------------------------------
-@x
-procedure scan_four_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>15) then
- begin print_err("Bad number");
-@.Bad number@>
- help2("Since I expected to read a number between 0 and 15,")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-end;
-@y
-procedure scan_four_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>15) then
- begin print_err("Bad number");
-@.Bad number@>
- help2("Since I expected to read a number between 0 and 15,")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-end;
-@#
-procedure scan_big_four_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>255) then
- begin print_err("Bad number");
-@.Bad register code@>
- help2("Since I expected to read a number between 0 and 255,")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-end;
-@z
-%-----------------------------------------------
-@x
-procedure scan_fifteen_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>@'77777) then
- begin print_err("Bad mathchar");
-@.Bad mathchar@>
- help2("A mathchar number must be between 0 and 32767.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-end;
-@y
-procedure scan_fifteen_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>@'77777) then
- begin print_err("Bad mathchar");
-@.Bad mathchar@>
- help2("A mathchar number must be between 0 and 32767.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-cur_val:=((cur_val div @"1000) * @"10000)+(cur_val mod @"1000);
-end;
-@#
-procedure scan_real_fifteen_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>@'77777) then
- begin print_err("Bad mathchar");
-@.Bad mathchar@>
- help2("A mathchar number must be between 0 and 32767.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-end;
-@#
-procedure scan_big_fifteen_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>@"7FFFFFF) then
- begin print_err("Bad extended mathchar");
-@.Bad mathchar@>
- help2("An extended mathchar number must be between 0 and ""7FFFFFF.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-{ e-pTeX doesn't support 65536 characters for math font. }
-cur_val:=((cur_val div @"10000) * @"100)+(cur_val mod @"100);
-end;
-@#
-procedure scan_omega_fifteen_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>@"7FFFFFF) then
- begin print_err("Bad extended mathchar");
-@.Bad mathchar@>
- help2("An extended mathchar number must be between 0 and ""7FFFFFF.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-end;
-@z
-%-----------------------------------------------
-@x
-procedure scan_twenty_seven_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>@'777777777) then
- begin print_err("Bad delimiter code");
-@.Bad delimiter code@>
- help2("A numeric delimiter code must be between 0 and 2^{27}-1.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-end;
-@y
-procedure scan_twenty_seven_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>@'777777777) then
- begin print_err("Bad delimiter code");
-@.Bad delimiter code@>
- help2("A numeric delimiter code must be between 0 and 2^{27}-1.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-cur_val1 := cur_val mod @"1000; cur_val := cur_val div @"1000;
-cur_val := ((cur_val div @"1000) * @"10000) + (cur_val mod @"1000);
-end;
-@#
-procedure scan_fifty_one_bit_int;
-var iiii:integer;
-begin scan_int;
-if (cur_val<0)or(cur_val>@'777777777) then
- begin print_err("Bad delimiter code");
-@.Bad delimiter code@>
- help2("A numeric delimiter (first part) must be between 0 and 2^{27}-1.")
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-iiii:=((cur_val div @"10000) * @"100) + (cur_val mod @"100);
-scan_int;
-if (cur_val<0)or(cur_val>@"FFFFFF) then
- begin print_err("Bad delimiter code");
-@.Bad delimiter code@>
-help2("A numeric delimiter (second part) must be between 0 and 2^{24}-1.")@/
- ("I changed this one to zero."); int_error(cur_val); cur_val:=0;
- end;
-{ e-pTeX doesn't support 65536 characters for math font. }
-cur_val1:=((cur_val div @"10000) * @"100) + (cur_val mod @"100);
-cur_val:=iiii;
-end;
-@z
-%-----------------------------------------------
-@x
-@<Scan for \(f)\.{fil} units...@>=
-if scan_keyword("fil") then
-@.fil@>
- begin cur_order:=fil;
-@y
-@<Scan for \(f)\.{fil} units...@>=
-if scan_keyword("fi") then
-@.fil@>
- begin cur_order:=sfi;
-@z
-%-----------------------------------------------
-@x
-else if cur_cmd=def_family then
- begin m:=cur_chr; scan_four_bit_int; f:=equiv(m+cur_val);
-@y
-else if cur_cmd=def_family then
- begin m:=cur_chr; scan_big_four_bit_int; f:=equiv(m+cur_val);
-@z
-%-----------------------------------------------
-@x
-total_stretch[normal]:=0; total_shrink[normal]:=0;
-@y
-total_stretch[normal]:=0; total_shrink[normal]:=0;
-total_stretch[sfi]:=0; total_shrink[sfi]:=0;
-@z
-%-----------------------------------------------
-@x
-else if total_stretch[fil]<>0 then o:=fil
-@y
-else if total_stretch[fil]<>0 then o:=fil
-else if total_stretch[sfi]<>0 then o:=sfi
-@z
-%-----------------------------------------------
-@x
-else if total_shrink[fil]<>0 then o:=fil
-@y
-else if total_shrink[fil]<>0 then o:=fil
-else if total_shrink[sfi]<>0 then o:=sfi
-@z
-%-----------------------------------------------
-@x
-\yskip\hang|math_type(q)=math_char| means that |fam(q)| refers to one of
-the sixteen font families, and |character(q)| is the number of a character
-@y
-\yskip\hang|math_type(q)=math_char| means that |fam(q)| refers to one of
-the 256 font families, and |character(q)| is the number of a character
-@z
-%-----------------------------------------------
-@x
-procedure print_fam_and_char(@!p:pointer;@!t:small_number);
-@y
-procedure print_fam_and_char(@!p:pointer;@!t:integer);
-@z
-%-----------------------------------------------
-@x
-other font information. A size code, which is a multiple of 16, is added to a
-family number to get an index into the table of internal font numbers
-for each combination of family and size. (Be alert: Size codes get
-larger as the type gets smaller.)
-
-@d text_size=0 {size code for the largest size in a family}
-@d script_size=16 {size code for the medium size in a family}
-@d script_script_size=32 {size code for the smallest size in a family}
-@y
-other font information. A size code, which is a multiple of 256, is added to a
-family number to get an index into the table of internal font numbers
-for each combination of family and size. (Be alert: Size codes get
-larger as the type gets smaller.)
-@z
-%-----------------------------------------------
-@x
-else cur_size:=16*((cur_style-text_style) div 2);
-@y
-else cur_size:=script_size*((cur_style-text_style) div 2);
-@z
-%-----------------------------------------------
-@x
-function var_delimiter(@!d:pointer;@!s:small_number;@!v:scaled):pointer;
-@y
-function var_delimiter(@!d:pointer;@!s:integer;@!v:scaled):pointer;
-@z
-%-----------------------------------------------
-@x
-@!hd: eight_bits; {height-depth byte}
-@!r: four_quarters; {extensible pieces}
-@!z: small_number; {runs through font family members}
-@y
-@!hd: eight_bits; {height-depth byte}
-@!r: four_quarters; {extensible pieces}
-@!z: integer; {runs through font family members}
-@z
-%-----------------------------------------------
-@x
- begin z:=z+s+16;
- repeat z:=z-16; g:=fam_fnt(z);
-@y
- begin z:=z+s+script_size;
- repeat z:=z-script_size; g:=fam_fnt(z);
-@z
-%-----------------------------------------------
-@x
- until z<16;
-@y
- until z<script_size;
-@z
-%-----------------------------------------------
-@x
-@!cur_mlist:pointer; {beginning of mlist to be translated}
-@!cur_style:small_number; {style code at current place in the list}
-@!cur_size:small_number; {size code corresponding to |cur_style|}
-@y
-@!cur_mlist:pointer; {beginning of mlist to be translated}
-@!cur_style:small_number; {style code at current place in the list}
-@!cur_size:integer; {size code corresponding to |cur_style|}
-@z
-%-----------------------------------------------
-@x
-@!p,@!x,@!y,@!z: pointer; {temporary registers for list construction}
-@!pen:integer; {a penalty to be inserted}
-@!s:small_number; {the size of a noad to be deleted}
-@y
-@!p,@!x,@!y,@!z: pointer; {temporary registers for list construction}
-@!pen:integer; {a penalty to be inserted}
-@!s:integer; {the size of a noad to be deleted}
-@z
-%-----------------------------------------------
-@x
-procedure make_scripts(@!q:pointer;@!delta:scaled);
-var p,@!x,@!y,@!z:pointer; {temporary registers for box construction}
-@!shift_up,@!shift_down,@!clr:scaled; {dimensions in the calculation}
-@!t:small_number; {subsidiary size code}
-@y
-procedure make_scripts(@!q:pointer;@!delta:scaled);
-var p,@!x,@!y,@!z:pointer; {temporary registers for box construction}
-@!shift_up,@!shift_down,@!clr:scaled; {dimensions in the calculation}
-@!t:integer; {subsidiary size code}
-@z
-%-----------------------------------------------
-@x
-contains six scaled numbers, since it must record the net change in glue
-stretchability with respect to all orders of infinity. The natural width
-difference appears in |mem[q+1].sc|; the stretch differences in units of
-pt, fil, fill, and filll appear in |mem[q+2..q+5].sc|; and the shrink difference
-appears in |mem[q+6].sc|. The |subtype| field of a delta node is not used.
-
-@d delta_node_size=7 {number of words in a delta node}
-@y
-contains seven scaled numbers, since it must record the net change in glue
-stretchability with respect to all orders of infinity. The natural width
-difference appears in |mem[q+1].sc|; the stretch differences in units of
-pt, sfi, fil, fill, and filll appear in |mem[q+2..q+6].sc|; and the shrink
-difference appears in |mem[q+7].sc|. The |subtype| field of a delta node
-is not used.
-
-@d delta_node_size=8 {number of words in a delta node}
-@z
-%-----------------------------------------------
-@x
-@ As the algorithm runs, it maintains a set of six delta-like registers
-for the length of the line following the first active breakpoint to the
-current position in the given hlist. When it makes a pass through the
-active list, it also maintains a similar set of six registers for the
-@y
-@ As the algorithm runs, it maintains a set of seven delta-like registers
-for the length of the line following the first active breakpoint to the
-current position in the given hlist. When it makes a pass through the
-active list, it also maintains a similar set of seven registers for the
-@z
-%-----------------------------------------------
-@x
-k:=1 to 6 do cur_active_width[k]:=cur_active_width[k]+mem[q+k].sc|};$$ and we
-want to do this without the overhead of |for| loops. The |do_all_six|
-macro makes such six-tuples convenient.
-
-@d do_all_six(#)==#(1);#(2);#(3);#(4);#(5);#(6)
-@y
-k:=1 to 7 do cur_active_width[k]:=cur_active_width[k]+mem[q+k].sc|};$$ and we
-want to do this without the overhead of |for| loops. The |do_all_six|
-macro makes such seven-tuples convenient.
-
-@d do_all_six(#)==#(1);#(2);#(3);#(4);#(5);#(6);#(7)
-@z
-%-----------------------------------------------
-@x
-@!active_width:array[1..6] of scaled;
- {distance from first active node to~|cur_p|}
-@!cur_active_width:array[1..6] of scaled; {distance from current active node}
-@!background:array[1..6] of scaled; {length of an ``empty'' line}
-@!break_width:array[1..6] of scaled; {length being computed after current break}
-@y
-@!active_width:array[1..7] of scaled;
- {distance from first active node to~|cur_p|}
-@!cur_active_width:array[1..7] of scaled; {distance from current active node}
-@!background:array[1..7] of scaled; {length of an ``empty'' line}
-@!break_width:array[1..7] of scaled; {length being computed after current break}
-@z
-%-----------------------------------------------
-@x
-background[2]:=0; background[3]:=0; background[4]:=0; background[5]:=0;@/
-background[2+stretch_order(q)]:=stretch(q);@/
-background[2+stretch_order(r)]:=@|background[2+stretch_order(r)]+stretch(r);@/
-background[6]:=shrink(q)+shrink(r);
-@y
-background[2]:=0; background[3]:=0; background[4]:=0; background[5]:=0;@/
-background[6]:=0;@/
-background[2+stretch_order(q)]:=stretch(q);@/
-background[2+stretch_order(r)]:=@|background[2+stretch_order(r)]+stretch(r);@/
-background[7]:=shrink(q)+shrink(r);
-@z
-%-----------------------------------------------
-@x
- break_width[6]:=break_width[6]-shrink(cur_kanji_skip);
-@y
- break_width[7]:=break_width[7]-shrink(cur_kanji_skip);
-@z
-%-----------------------------------------------
-@x
-break_width[6]:=break_width[6]-shrink(v);
-@y
-break_width[7]:=break_width[7]-shrink(v);
-@z
-%-----------------------------------------------
-@x
-subarray |cur_active_width[2..5]|, in units of points, fil, fill, and filll.
-@y
-subarray |cur_active_width[2..6]|, in units of points, sfi, fil, fill and filll.
-@z
-%-----------------------------------------------
-@x
-if (cur_active_width[3]<>0)or(cur_active_width[4]<>0)or@|
- (cur_active_width[5]<>0) then
-@y
-if (cur_active_width[3]<>0)or(cur_active_width[4]<>0)or@|
- (cur_active_width[5]<>0)or(cur_active_width[6]<>0) then
-@z
-%-----------------------------------------------
-@x
-@ Shrinkability is never infinite in a paragraph;
-we can shrink the line from |r| to |cur_p| by at most |cur_active_width[6]|.
-
-@<Set the value of |b| to the badness for shrinking...@>=
-begin if -shortfall>cur_active_width[6] then b:=inf_bad+1
-else b:=badness(-shortfall,cur_active_width[6]);
-@y
-@ Shrinkability is never infinite in a paragraph;
-we can shrink the line from |r| to |cur_p| by at most |cur_active_width[7]|.
-
-@<Set the value of |b| to the badness for shrinking...@>=
-begin if -shortfall>cur_active_width[7] then b:=inf_bad+1
-else b:=badness(-shortfall,cur_active_width[7]);
-@z
-%-----------------------------------------------
-@x
- active_width[6]:=active_width[6]+shrink(cur_kanji_skip);
-@y
- active_width[7]:=active_width[7]+shrink(cur_kanji_skip);
-@z
-%-----------------------------------------------
-@x
-active_width[6]:=active_width[6]+shrink(q)
-@y
-active_width[7]:=active_width[7]+shrink(q)
-@z
-%-----------------------------------------------
-@x
- if (active_height[3]<>0) or (active_height[4]<>0) or
- (active_height[5]<>0) then b:=0
- else b:=badness(h-cur_height,active_height[2])
-else if cur_height-h>active_height[6] then b:=awful_bad
-else b:=badness(cur_height-h,active_height[6])
-@y
- if (active_height[3]<>0) or (active_height[4]<>0) or
- (active_height[5]<>0) or (active_height[6]<>0) then b:=0
- else b:=badness(h-cur_height,active_height[2])
-else if cur_height-h>active_height[7] then b:=awful_bad
-else b:=badness(cur_height-h,active_height[7])
-@z
-%-----------------------------------------------
-@x
- active_height[6]:=active_height[6]+shrink(q);
-@y
- active_height[7]:=active_height[7]+shrink(q);
-@z
-%-----------------------------------------------
-@x
-on the current page. This array contains six |scaled| numbers, like the
-@y
-on the current page. This array contains seven |scaled| numbers, like the
-@z
-%-----------------------------------------------
-@x
-@d page_shrink==page_so_far[6] {shrinkability of the current page}
-@d page_depth==page_so_far[7] {depth of the current page}
-@y
-@d page_shrink==page_so_far[7] {shrinkability of the current page}
-@d page_depth==page_so_far[8] {depth of the current page}
-@z
-%-----------------------------------------------
-@x
-@<Glob...@>=
-@!page_so_far:array [0..7] of scaled; {height and glue of the current page}
-@y
-@<Glob...@>=
-@!page_so_far:array [0..8] of scaled; {height and glue of the current page}
-@z
-%-----------------------------------------------
-@x
-primitive("pagefilstretch",set_page_dimen,3);
-@!@:page_fil_stretch_}{\.{\\pagefilstretch} primitive@>
-primitive("pagefillstretch",set_page_dimen,4);
-@!@:page_fill_stretch_}{\.{\\pagefillstretch} primitive@>
-primitive("pagefilllstretch",set_page_dimen,5);
-@!@:page_filll_stretch_}{\.{\\pagefilllstretch} primitive@>
-primitive("pageshrink",set_page_dimen,6);
-@!@:page_shrink_}{\.{\\pageshrink} primitive@>
-primitive("pagedepth",set_page_dimen,7);
-@!@:page_depth_}{\.{\\pagedepth} primitive@>
-@y
-primitive("pagefistretch",set_page_dimen,3);
-@!@:page_fi_stretch_}{\.{\\pagefistretch} primitive@>
-primitive("pagefilstretch",set_page_dimen,4);
-@!@:page_fil_stretch_}{\.{\\pagefilstretch} primitive@>
-primitive("pagefillstretch",set_page_dimen,5);
-@!@:page_fill_stretch_}{\.{\\pagefillstretch} primitive@>
-primitive("pagefilllstretch",set_page_dimen,6);
-@!@:page_filll_stretch_}{\.{\\pagefilllstretch} primitive@>
-primitive("pageshrink",set_page_dimen,7);
-@!@:page_shrink_}{\.{\\pageshrink} primitive@>
-primitive("pagedepth",set_page_dimen,8);
-@!@:page_depth_}{\.{\\pagedepth} primitive@>
-@z
-%-----------------------------------------------
-@x
-3: print_esc("pagefilstretch");
-4: print_esc("pagefillstretch");
-5: print_esc("pagefilllstretch");
-6: print_esc("pageshrink");
-@y
-3: print_esc("pagefistretch");
-4: print_esc("pagefilstretch");
-5: print_esc("pagefillstretch");
-6: print_esc("pagefilllstretch");
-7: print_esc("pageshrink");
-@z
-%-----------------------------------------------
-@x
-print_plus(3)("fil");
-print_plus(4)("fill");
-print_plus(5)("filll");
-@y
-print_plus(3)("fi");
-print_plus(4)("fil");
-print_plus(5)("fill");
-print_plus(6)("filll");
-@z
-%-----------------------------------------------
-@x
- if (page_so_far[3]<>0) or (page_so_far[4]<>0) or@|
- (page_so_far[5]<>0) then b:=0
-@y
- if (page_so_far[3]<>0) or (page_so_far[4]<>0) or@|
- (page_so_far[5]<>0) or (page_so_far[6]<>0) then b:=0
-@z
-%-----------------------------------------------
-@x
-non_math(math_given), non_math(math_comp), non_math(delim_num),
-@y
-non_math(math_given), non_math(omath_given),
-non_math(math_comp), non_math(delim_num),
-@z
-%-----------------------------------------------
-@x
-@d fil_code=0 {identifies \.{\\hfil} and \.{\\vfil}}
-@d fill_code=1 {identifies \.{\\hfill} and \.{\\vfill}}
-@d ss_code=2 {identifies \.{\\hss} and \.{\\vss}}
-@d fil_neg_code=3 {identifies \.{\\hfilneg} and \.{\\vfilneg}}
-@d skip_code=4 {identifies \.{\\hskip} and \.{\\vskip}}
-@d mskip_code=5 {identifies \.{\\mskip}}
-@y
-@d sfi_code=0 {identifies \.{\\hfi} and \.{\\vfi}}
-@d fil_code=1 {identifies \.{\\hfil} and \.{\\vfil}}
-@d fill_code=2 {identifies \.{\\hfill} and \.{\\vfill}}
-@d ss_code=3 {identifies \.{\\hss} and \.{\\vss}}
-@d fil_neg_code=4 {identifies \.{\\hfilneg} and \.{\\vfilneg}}
-@d skip_code=5 {identifies \.{\\hskip} and \.{\\vskip}}
-@d mskip_code=6 {identifies \.{\\mskip}}
-@z
-%-----------------------------------------------
-@x
-primitive("hfil",hskip,fil_code);
-@!@:hfil_}{\.{\\hfil} primitive@>
-@y
-primitive("hfi",hskip,sfi_code);
-@!@:hfi_}{\.{\\hfi} primitive@>
-primitive("hfil",hskip,fil_code);
-@!@:hfil_}{\.{\\hfil} primitive@>
-@z
-%-----------------------------------------------
-@x
-primitive("vfil",vskip,fil_code);
-@!@:vfil_}{\.{\\vfil} primitive@>
-@y
-primitive("vfi",vskip,sfi_code);
-@!@:vfi_}{\.{\\vfi} primitive@>
-primitive("vfil",vskip,fil_code);
-@!@:vfil_}{\.{\\vfil} primitive@>
-@z
-%-----------------------------------------------
-@x
-hskip: case chr_code of
- skip_code:print_esc("hskip");
-@y
-hskip: case chr_code of
- skip_code:print_esc("hskip");
- sfi_code:print_esc("hfi");
-@z
-%-----------------------------------------------
-@x
-vskip: case chr_code of
- skip_code:print_esc("vskip");
-@y
-vskip: case chr_code of
- skip_code:print_esc("vskip");
- sfi_code:print_esc("vfi");
-@z
-%-----------------------------------------------
-@x
-begin s:=cur_chr;
-case s of
-fil_code: cur_val:=fil_glue;
-@y
-begin s:=cur_chr;
-case s of
-sfi_code: cur_val:=sfi_glue;
-fil_code: cur_val:=fil_glue;
-@z
-%-----------------------------------------------
-@x
-|global_box_flag-1| represent `\.{\\setbox0}' through `\.{\\setbox32767}';
-codes |global_box_flag| through |ship_out_flag-1| represent
-`\.{\\global\\setbox0}' through `\.{\\global\\setbox32767}';
-@y
-|global_box_flag-1| represent `\.{\\setbox0}' through `\.{\\setbox65535}';
-codes |global_box_flag| through |ship_out_flag-1| represent
-`\.{\\global\\setbox0}' through `\.{\\global\\setbox65535}';
-@z
-%-----------------------------------------------
-@x
-@d box_flag==@'10000000000 {context code for `\.{\\setbox0}'}
-@d global_box_flag==@'10000100000 {context code for `\.{\\global\\setbox0}'}
-@d ship_out_flag==@'10000200000 {context code for `\.{\\shipout}'}
-@d leader_flag==@'10000200001 {context code for `\.{\\leaders}'}
-@y
-@d box_flag==@"40000000 {context code for `\.{\\setbox0}'}
-@d global_box_flag==@"40010000 {context code for `\.{\\global\\setbox0}'}
-@d ship_out_flag==@"40020000 {context code for `\.{\\shipout}'}
-@d leader_flag==@"40020001 {context code for `\.{\\leaders}'}
-@z
-%-----------------------------------------------
-@x
-@d fam_in_range==((cur_fam>=0)and(cur_fam<16))
-@y
-@d fam_in_range==((cur_fam>=0)and(cur_fam<script_size))
-@z
-%-----------------------------------------------
-@x
- c:=ho(math_code(cur_chr));
- if c=@'100000 then
-@y
- c:=ho(math_code(cur_chr));
- if c=@"80000 then
-@z
-%-----------------------------------------------
-@x
-math_char_num: begin scan_fifteen_bit_int; c:=cur_val;
- end;
-math_given: c:=cur_chr;
-delim_num: begin scan_twenty_seven_bit_int; c:=cur_val div @'10000;
-@y
-math_char_num: begin
- if cur_chr=0 then scan_fifteen_bit_int
- else scan_big_fifteen_bit_int;
- c:=cur_val;
- end;
-math_given: c:=((cur_chr div @"1000) * @"10000) + (cur_chr mod @"1000);
-omath_given: c:=((cur_chr div @"10000) * @"100) + (cur_chr mod @"100);
-delim_num: begin
- if cur_chr=0 then scan_twenty_seven_bit_int
- else scan_fifty_one_bit_int;
- c:=cur_val;
-@z
-%-----------------------------------------------
-@x
- if (c>=var_code)and(fam_in_range) then fam(p):=cur_fam
- else fam(p):=(c div 256) mod 16;
-@y
- if (c>=var_code)and(fam_in_range) then fam(p):=cur_fam
- else fam(p):=(c div 256) mod 256;
-@z
-%-----------------------------------------------
-@x
-mmode+math_char_num: begin scan_fifteen_bit_int; set_math_char(cur_val);
- end;
-mmode+math_given: set_math_char(cur_chr);
-mmode+delim_num: begin scan_twenty_seven_bit_int;
- set_math_char(cur_val div @'10000);
-@y
-mmode+math_char_num: begin
- if cur_chr=0 then scan_fifteen_bit_int
- else scan_big_fifteen_bit_int;
- set_math_char(cur_val);
- end;
-mmode+math_given: begin
- set_math_char(((cur_chr div @"1000) * @"10000)+(cur_chr mod @"1000));
- end;
-mmode+omath_given: begin
- set_math_char(((cur_chr div @"10000) * @"100)+(cur_chr mod @"100));
- end;
-mmode+delim_num: begin
- if cur_chr=0 then scan_twenty_seven_bit_int
- else scan_fifty_one_bit_int;
- set_math_char(cur_val); {character code of left delimiter}
-@z
-%-----------------------------------------------
-@x
-procedure set_math_char(@!c:integer);
-var p:pointer; {the new noad}
-begin if c>=@'100000 then
- @<Treat |cur_chr|...@>
-else begin p:=new_noad; math_type(nucleus(p)):=math_char;
- character(nucleus(p)):=qi(c mod 256);
- fam(nucleus(p)):=(c div 256) mod 16;
- if c>=var_code then
- begin if fam_in_range then fam(nucleus(p)):=cur_fam;
- type(p):=ord_noad;
- end
- else type(p):=ord_noad+(c div @'10000);
- link(tail):=p; tail:=p;
- if font_dir[fam_fnt(fam(nucleus(p))+cur_size)]<>dir_default then begin
-@y
-procedure set_math_char(@!c:integer);
-var p:pointer; {the new noad}
-begin if c>=@"80000 then
- @<Treat |cur_chr|...@>
-else begin p:=new_noad; math_type(nucleus(p)):=math_char;
- character(nucleus(p)):=qi(c mod 256);
- fam(nucleus(p)):=(c div 256) mod 256;
- if c>=var_code then
- begin if fam_in_range then fam(nucleus(p)):=cur_fam;
- type(p):=ord_noad;
- end
- else type(p):=ord_noad+(c div @"10000);
- link(tail):=p; tail:=p;
- if font_dir[fam_fnt(fam(nucleus(p))+cur_size)]<>dir_default then begin
-@z
-%-----------------------------------------------
-@x
-@<Declare act...@>=
-procedure scan_delimiter(@!p:pointer;@!r:boolean);
-begin if r then scan_twenty_seven_bit_int
-else begin @<Get the next non-blank non-relax...@>;
- case cur_cmd of
- letter,other_char: cur_val:=del_code(cur_chr);
- delim_num: scan_twenty_seven_bit_int;
- othercases cur_val:=-1
- endcases;
- end;
-if cur_val<0 then @<Report that an invalid delimiter code is being changed
- to null; set~|cur_val:=0|@>;
-small_fam(p):=(cur_val div @'4000000) mod 16;
-small_char(p):=qi((cur_val div @'10000) mod 256);
-large_fam(p):=(cur_val div 256) mod 16;
-large_char(p):=qi(cur_val mod 256);
-end;
-@y
-@<Declare act...@>=
-procedure scan_delimiter(@!p:pointer;@!r:boolean);
-begin if r=1 then scan_twenty_seven_bit_int
-else if r=2 then scan_fifty_one_bit_int
-else begin @<Get the next non-blank non-relax...@>;
- case cur_cmd of
- letter,other_char: begin
- cur_val:=del_code(cur_chr); cur_val1:=del_code1(cur_chr);
- end;
- delim_num: if cur_chr=0 then scan_twenty_seven_bit_int
- else scan_fifty_one_bit_int;
- othercases begin cur_val:=-1; cur_val1:=-1; end;
- endcases;
- end;
-if cur_val<0 then begin @<Report that an invalid delimiter code is being changed
- to null; set~|cur_val:=0|@>;
- cur_val1:=0;
- end;
-small_fam(p):=(cur_val div @"100) mod @"100;
-small_char(p):=qi(cur_val mod @"100);
-large_fam(p):=(cur_val1 div @"100) mod @"100;
-large_char(p):=qi(cur_val1 mod @"100);
-end;
-@z
-%-----------------------------------------------
-@x
-scan_delimiter(left_delimiter(tail),true);
-@y
-scan_delimiter(left_delimiter(tail),cur_chr+1);
-@z
-%-----------------------------------------------
-@x
-scan_fifteen_bit_int;
-character(accent_chr(tail)):=qi(cur_val mod 256);
-if (cur_val>=var_code)and fam_in_range then fam(accent_chr(tail)):=cur_fam
-else fam(accent_chr(tail)):=(cur_val div 256) mod 16;
-@y
-if cur_chr=0 then scan_fifteen_bit_int
-else scan_big_fifteen_bit_int;
-character(accent_chr(tail)):=qi(cur_val mod 256);
-if (cur_val>=var_code)and fam_in_range then fam(accent_chr(tail)):=cur_fam
-else fam(accent_chr(tail)):=(cur_val div 256) mod 256;
-@z
-%-----------------------------------------------
-@x
-begin if (e<>0)and((w-total_shrink[normal]+q<=z)or@|
- (total_shrink[fil]<>0)or(total_shrink[fill]<>0)or
- (total_shrink[filll]<>0)) then
-@y
-begin if (e<>0)and((w-total_shrink[normal]+q<=z)or@|
- (total_shrink[sfi]<>0)or(total_shrink[fil]<>0)or
- (total_shrink[fill]<>0)or(total_shrink[filll]<>0)) then
-@z
-%-----------------------------------------------
-@x
-@d word_define(#)==if global then geq_word_define(#)@+else eq_word_define(#)
-@y
-@d word_define(#)==if global then geq_word_define(#)@+else eq_word_define(#)
-@d del_word_define(#)==if global
- then del_geq_word_define(#)@+else del_eq_word_define(#)
-@z
-%-----------------------------------------------
-@x
-@d count_def_code=2 {|shorthand_def| for \.{\\countdef}}
-@d dimen_def_code=3 {|shorthand_def| for \.{\\dimendef}}
-@d skip_def_code=4 {|shorthand_def| for \.{\\skipdef}}
-@d mu_skip_def_code=5 {|shorthand_def| for \.{\\muskipdef}}
-@d toks_def_code=6 {|shorthand_def| for \.{\\toksdef}}
-@d char_sub_def_code=7 {|shorthand_def| for \.{\\charsubdef}}
-@y
-@d omath_char_def_code=2 {|shorthand_def| for \.{\\omathchardef}}
-@d count_def_code=3 {|shorthand_def| for \.{\\countdef}}
-@d dimen_def_code=4 {|shorthand_def| for \.{\\dimendef}}
-@d skip_def_code=5 {|shorthand_def| for \.{\\skipdef}}
-@d mu_skip_def_code=6 {|shorthand_def| for \.{\\muskipdef}}
-@d toks_def_code=7 {|shorthand_def| for \.{\\toksdef}}
-@d char_sub_def_code=8 {|shorthand_def| for \.{\\charsubdef}}
-@z
-%-----------------------------------------------
-@x
-primitive("mathchardef",shorthand_def,math_char_def_code);@/
-@!@:math_char_def_}{\.{\\mathchardef} primitive@>
-@y
-primitive("mathchardef",shorthand_def,math_char_def_code);@/
-@!@:math_char_def_}{\.{\\mathchardef} primitive@>
-primitive("omathchardef",shorthand_def,omath_char_def_code);@/
-@!@:math_char_def_}{\.{\\omathchardef} primitive@>
-@z
-%-----------------------------------------------
-@x
- math_char_def_code: print_esc("mathchardef");
-@y
- math_char_def_code: print_esc("mathchardef");
- omath_char_def_code: print_esc("omathchardef");
-@z
-%-----------------------------------------------
-@x
-math_given: begin print_esc("mathchar"); print_hex(chr_code);
- end;
-@y
-math_given: begin print_esc("mathchar"); print_hex(chr_code);
- end;
-omath_given: begin print_esc("omathchar"); print_hex(chr_code);
- end;
-@z
-%-----------------------------------------------
-@x
- math_char_def_code: begin scan_fifteen_bit_int; define(p,math_given,cur_val);
-@y
- math_char_def_code: begin scan_real_fifteen_bit_int;
- define(p,math_given,cur_val);
- end;
- omath_char_def_code: begin scan_omega_fifteen_bit_int;
- define(p,omath_given,cur_val);
-@z
-%-----------------------------------------------
-@x
-primitive("mathcode",def_code,math_code_base);
-@!@:math_code_}{\.{\\mathcode} primitive@>
-@y
-primitive("mathcode",def_code,math_code_base);
-@!@:math_code_}{\.{\\mathcode} primitive@>
-primitive("omathcode",def_code,math_code_base+128);
-@!@:math_code_}{\.{\\omathcode} primitive@>
-@z
-%-----------------------------------------------
-@x
-primitive("delcode",def_code,del_code_base);
-@!@:del_code_}{\.{\\delcode} primitive@>
-@y
-primitive("delcode",def_code,del_code_base);
-@!@:del_code_}{\.{\\delcode} primitive@>
-primitive("odelcode",def_code,del_code_base+128);
-@!@:del_code_}{\.{\\odelcode} primitive@>
-@z
-%-----------------------------------------------
-@x
- else if chr_code=lc_code_base then print_esc("lccode")
- else if chr_code=uc_code_base then print_esc("uccode")
- else if chr_code=sf_code_base then print_esc("sfcode")
- else print_esc("delcode");
-@y
- else if chr_code=math_code_base+128 then print_esc("omathcode")
- else if chr_code=lc_code_base then print_esc("lccode")
- else if chr_code=uc_code_base then print_esc("uccode")
- else if chr_code=sf_code_base then print_esc("sfcode")
- else if chr_code=del_code_base then print_esc("delcode")
- else print_esc("odelcode");
-@z
-%-----------------------------------------------
-@x
-@<Assignments@>=
-def_code: begin
- @<Let |m| be the minimal legal code value, based on |cur_chr|@>;
- @<Let |n| be the largest legal code value, based on |cur_chr|@>;
- p:=cur_chr;
- if p=kcat_code_base then
- begin scan_char_num; p:=p+kcatcodekey(cur_val) end
- else begin scan_ascii_num; p:=p+cur_val; end;
- scan_optional_equals; scan_int;
- if ((cur_val<m)and(p<del_code_base))or(cur_val>n) then
- begin print_err("Invalid code ("); print_int(cur_val);
-@.Invalid code@>
- if p<del_code_base then
- begin print("), should be in the range "); print_int(m); print("..");
- end
- else print("), should be at most ");
- print_int(n);
- if m=0 then
- begin help1("I'm going to use 0 instead of that illegal code value.");@/
- error; cur_val:=0;
- end
- else
- begin help1("I'm going to use 16 instead of that illegal code value.");@/
- error; cur_val:=16;
- end;
- end;
- if p<math_code_base then define(p,data,cur_val)
- else if p<del_code_base then define(p,data,hi(cur_val))
- else word_define(p,cur_val);
- end;
-@y
-@<Assignments@>=
-def_code: begin
- if cur_chr=(del_code_base+128) then begin
- p:=cur_chr-128; scan_ascii_num; p:=p+cur_val; scan_optional_equals;
- scan_int; cur_val1:=cur_val; scan_int; {backwards}
- if (cur_val1>@"FFFFFF) or (cur_val>@"FFFFFF) then
- begin print_err("Invalid code ("); print_int(cur_val1); print(" ");
- print_int(cur_val);
- print("), should be at most ""FFFFFF ""FFFFFF");
- help1("I'm going to use 0 instead of that illegal code value.");@/
- error; cur_val1:=0; cur_val:=0;
- end;
- cur_val1:=(cur_val1 div @"10000)*@"100+(cur_val1 mod @"100);
- cur_val:=(cur_val div @"10000)*@"100+(cur_val mod @"100);
- del_word_define(p,cur_val1,cur_val);
- end
- else begin
- @<Let |m| be the minimal legal code value, based on |cur_chr|@>;
- @<Let |n| be the largest legal code value, based on |cur_chr|@>;
- p:=cur_chr; cur_val1:=p;
- if p=kcat_code_base then begin scan_char_num; p:=p+kcatcodekey(cur_val) end
- else begin scan_ascii_num; p:=p+cur_val; end;
- scan_optional_equals; scan_int;
- if ((cur_val<m)and(p<del_code_base))or(cur_val>n) then
- begin print_err("Invalid code ("); print_int(cur_val);
-@.Invalid code@>
- if p<del_code_base then
- begin print("), should be in the range "); print_int(m); print("..");
- end
- else print("), should be at most ");
- print_int(n);
- if m=0 then
- begin help1("I'm going to use 0 instead of that illegal code value.");@/
- error; cur_val:=0;
- end
- else
- begin help1("I'm going to use 16 instead of that illegal code value.");@/
- error; cur_val:=16;
- end;
- end;
- if p<math_code_base then define(p,data,cur_val)
- else if cur_val1=math_code_base then begin
- if cur_val=@"8000 then cur_val:=@"80000
- else cur_val:=((cur_val div @"1000)*@"10000)+(cur_val mod @"1000);
- define(p,data,hi(cur_val));
- end
- else if cur_val1=math_code_base+128 then begin
- cur_val:=((cur_val div @"10000) * @"100) + (cur_val mod @"100);
- define(p-128,data,hi(cur_val));
- end
- else if cur_val1=del_code_base then begin
- if cur_val>=0 then begin
- cur_val1:=cur_val div @"1000;
- cur_val1:=(cur_val1 div @"1000)*@"10000 + cur_val1 mod @"1000;
- cur_val:=cur_val mod @"1000;
- del_word_define(p,cur_val1,cur_val); end
- else
- del_word_define(p, -1, cur_val);
- end
- else define(p,data,cur_val);
- end;
- end;
-@z
-%-----------------------------------------------
-@x
-else if cur_chr=kcat_code_base then n:=max_char_code
-else if cur_chr=math_code_base then n:=@'100000
-@y
-else if cur_chr=kcat_code_base then n:=max_char_code
-else if cur_chr=math_code_base then n:=@"8000
-else if cur_chr=(math_code_base+128) then n:=@"8000000
-@z
-%-----------------------------------------------
-@x
-def_family: begin p:=cur_chr; scan_four_bit_int; p:=p+cur_val;
-@y
-def_family: begin p:=cur_chr; scan_big_four_bit_int; p:=p+cur_val;
-@z
-%-----------------------------------------------
-@x
-@ @<Dump regions 5 and 6 of |eqtb|@>=
-repeat j:=k;
-while j<eqtb_size do
- begin if eqtb[j].int=eqtb[j+1].int then goto found2;
- incr(j);
- end;
-l:=eqtb_size+1; goto done2; {|j=eqtb_size|}
-found2: incr(j); l:=j;
-while j<eqtb_size do
- begin if eqtb[j].int<>eqtb[j+1].int then goto done2;
-@y
-@ @<Dump regions 5 and 6 of |eqtb|@>=
-repeat j:=k;
-while j<eqtb_size do
- begin if (eqtb[j].int=eqtb[j+1].int) and@|
- (getintone(eqtb[j])=getintone(eqtb[j+1])) then goto found2;
- incr(j);
- end;
-l:=eqtb_size+1; goto done2; {|j=eqtb_size|}
-found2: incr(j); l:=j;
-while j<eqtb_size do
- begin if (eqtb[j].int<>eqtb[j+1].int)or@|
- (getintone(eqtb[j])<>getintone(eqtb[j+1])) then goto done2;
-@z
-%-----------------------------------------------
-@x
- else cur_val:=shrink_order(q);
-@y
- else cur_val:=shrink_order(q);
- if cur_val>normal then cur_val:=cur_val-1; {compatible to \eTeX}
-@z
-%-----------------------------------------------
-@x FAM256 65536 Registers
-@ \eTeX\ (in extended mode) supports 32768 (i.e., $2^{15}$) count,
-@y
-@ \epTeX\ (in extended mode) supports 65536 (i.e., $2^{16}$) count,
-@z
-%-----------------------------------------------
-@x
-Similarly there are 32768 mark classes; the command \.{\\marks}|n|
-creates a mark node for a given mark class |0<=n<=32767| (where
-@y
-Similarly there are 65536 mark classes; the command \.{\\marks}|n|
-creates a mark node for a given mark class |0<=n<=65535| (where
-@z
-%-----------------------------------------------
-@x
-not exceed 255 in compatibility mode resp.\ 32767 in extended mode.
-@y
-not exceed 255 in compatibility mode resp.\ 65535 in extended mode.
-@z
-%-----------------------------------------------
-@x
-max_reg_num:=32767;
-max_reg_help_line:="A register number must be between 0 and 32767.";
-@y
-max_reg_num:=65535;
-max_reg_help_line:="A register number must be between 0 and 65535.";
-@z
-%-----------------------------------------------
-@x
-sparse array of the up to 32512 additional registers of each kind and
-one for the sparse array of the up to 32767 additional mark classes.
-The root of each such tree, if it exists, is an index node containing 16
-pointers to subtrees for 4096 consecutive array elements. Similar index
-nodes are the starting points for all nonempty subtrees for 4096, 256,
-and 16 consecutive array elements. These four levels of index nodes are
-followed by a fifth level with nodes for the individual array elements.
-@y
-sparse array of the up to 65280 additional registers of each kind and
-one for the sparse array of the up to 65535 additional mark classes.
-The root of each such tree, if it exists, is an index node containing 16
-pointers to subtrees for 65536 consecutive array elements. Similar index
-nodes are the starting points for all nonempty subtrees for 65536, 4096,
-256, and 16 consecutive array elements. These five levels of index nodes
-are followed by a sixth level with nodes for the individual array elements.
-@z
-%-----------------------------------------------
-@x
-@d hex_dig1(#)==# div 4096 {the fourth lowest hexadecimal digit}
-@d hex_dig2(#)==(# div 256) mod 16 {the third lowest hexadecimal digit}
-@d hex_dig3(#)==(# div 16) mod 16 {the second lowest hexadecimal digit}
-@d hex_dig4(#)==# mod 16 {the lowest hexadecimal digit}
-@y
-@d hex_dig1(#)==# div 65536 {the fifth lowest hexadecimal digit}
-@d hex_dig2(#)==(# div 4096) mod 16 {the fourth lowest hexadecimal digit}
-@d hex_dig3(#)==(# div 256) mod 16 {the third lowest hexadecimal digit}
-@d hex_dig4(#)==(# div 16) mod 16 {the second lowest hexadecimal digit}
-@d hex_dig5(#)==# mod 16 {the lowest hexadecimal digit}
-@z
-%-----------------------------------------------
-@x
-procedure find_sa_element(@!t:small_number;@!n:halfword;@!w:boolean);
- {sets |cur_val| to sparse array element location or |null|}
-label not_found,not_found1,not_found2,not_found3,not_found4,exit;
-var q:pointer; {for list manipulations}
-@!i:small_number; {a four bit index}
-begin cur_ptr:=sa_root[t];
-if_cur_ptr_is_null_then_return_or_goto(not_found);@/
-q:=cur_ptr; i:=hex_dig1(n); get_sa_ptr;
-if_cur_ptr_is_null_then_return_or_goto(not_found1);@/
-q:=cur_ptr; i:=hex_dig2(n); get_sa_ptr;
-if_cur_ptr_is_null_then_return_or_goto(not_found2);@/
-q:=cur_ptr; i:=hex_dig3(n); get_sa_ptr;
-if_cur_ptr_is_null_then_return_or_goto(not_found3);@/
-q:=cur_ptr; i:=hex_dig4(n); get_sa_ptr;
-if (cur_ptr=null)and w then goto not_found4;
-return;
-not_found: new_index(t,null); {create first level index node}
-sa_root[t]:=cur_ptr; q:=cur_ptr; i:=hex_dig1(n);
-not_found1: new_index(i,q); {create second level index node}
-add_sa_ptr; q:=cur_ptr; i:=hex_dig2(n);
-not_found2: new_index(i,q); {create third level index node}
-add_sa_ptr; q:=cur_ptr; i:=hex_dig3(n);
-not_found3: new_index(i,q); {create fourth level index node}
-add_sa_ptr; q:=cur_ptr; i:=hex_dig4(n);
-not_found4: @<Create a new array element of type |t| with index |i|@>;
-link(cur_ptr):=q; add_sa_ptr;
-exit:end;
-@y
-procedure find_sa_element(@!t:small_number;@!n:halfword;@!w:boolean);
- {sets |cur_val| to sparse array element location or |null|}
-label not_found,not_found1,not_found2,not_found3,not_found4,not_found5,exit;
-var q:pointer; {for list manipulations}
-@!i:small_number; {a four bit index}
-begin cur_ptr:=sa_root[t];
-if_cur_ptr_is_null_then_return_or_goto(not_found);@/
-q:=cur_ptr; i:=hex_dig1(n); get_sa_ptr;
-if_cur_ptr_is_null_then_return_or_goto(not_found1);@/
-q:=cur_ptr; i:=hex_dig2(n); get_sa_ptr;
-if_cur_ptr_is_null_then_return_or_goto(not_found2);@/
-q:=cur_ptr; i:=hex_dig3(n); get_sa_ptr;
-if_cur_ptr_is_null_then_return_or_goto(not_found3);@/
-q:=cur_ptr; i:=hex_dig4(n); get_sa_ptr;
-if_cur_ptr_is_null_then_return_or_goto(not_found4);@/
-q:=cur_ptr; i:=hex_dig5(n); get_sa_ptr;
-if (cur_ptr=null)and w then goto not_found5;
-return;
-not_found: new_index(t,null); {create first level index node}
-sa_root[t]:=cur_ptr; q:=cur_ptr; i:=hex_dig1(n);
-not_found1: new_index(i,q); {create second level index node}
-add_sa_ptr; q:=cur_ptr; i:=hex_dig2(n);
-not_found2: new_index(i,q); {create third level index node}
-add_sa_ptr; q:=cur_ptr; i:=hex_dig3(n);
-not_found3: new_index(i,q); {create fourth level index node}
-add_sa_ptr; q:=cur_ptr; i:=hex_dig4(n);
-not_found4: new_index(i,q); {create fifth level index node}
-add_sa_ptr; q:=cur_ptr; i:=hex_dig5(n);
-not_found5: @<Create a new array element of type |t| with index |i|@>;
-link(cur_ptr):=q; add_sa_ptr;
-exit:end;
-@z
-%-----------------------------------------------
-@x
-repeat i:=hex_dig4(sa_index(q)); p:=q; q:=link(p); free_node(p,s);
-@y
-repeat i:=hex_dig5(sa_index(q)); p:=q; q:=link(p); free_node(p,s);
-@z
-%-----------------------------------------------
-@x
-else begin n:=hex_dig4(sa_index(q)); q:=link(q); n:=n+16*sa_index(q);
- q:=link(q); n:=n+256*(sa_index(q)+16*sa_index(link(q)));
-@y
-else begin n:=hex_dig5(sa_index(q)); q:=link(q); n:=n+16*sa_index(q);
- q:=link(q); n:=n+256*(sa_index(q)+16*sa_index(link(q)));
- q:=link(link(q)); n:=n+65536*sa_index(q);
-@z
-%-----------------------------------------------
-@x
-begin if l<4 then {|q| is an index node}
-@y
-begin if l<5 then {|q| is an index node}
-@z
-%-----------------------------------------------
-@x
-@!fill_width:array[0..2] of scaled; {infinite stretch components of
-@y
-@!fill_width:array[0..3] of scaled; {infinite stretch components of
-@z
-%-----------------------------------------------
-@x
- if (background[3]=0)and(background[4]=0)and(background[5]=0) then
- begin do_last_line_fit:=true;
- active_node_size:=active_node_size_extended;
- fill_width[0]:=0; fill_width[1]:=0; fill_width[2]:=0;
-@y
- if (background[3]=0)and(background[4]=0)and@|
- (background[5]=0)and(background[6]=0) then
- begin do_last_line_fit:=true;
- active_node_size:=active_node_size_extended;
- fill_width[0]:=0; fill_width[1]:=0; fill_width[2]:=0; fill_width[3]:=0;
-@z
-%-----------------------------------------------
-@x
-if (cur_active_width[3]<>fill_width[0])or@|
- (cur_active_width[4]<>fill_width[1])or@|
- (cur_active_width[5]<>fill_width[2]) then goto not_found;
- {infinite stretch of this line not entirely due to |par_fill_skip|}
-if active_short(r)>0 then g:=cur_active_width[2]
-else g:=cur_active_width[6];
-@y
-if (cur_active_width[3]<>fill_width[0])or@|
- (cur_active_width[4]<>fill_width[1])or@|
- (cur_active_width[5]<>fill_width[2])or@|
- (cur_active_width[6]<>fill_width[3]) then goto not_found;
- {infinite stretch of this line not entirely due to |par_fill_skip|}
-if active_short(r)>0 then g:=cur_active_width[2]
-else g:=cur_active_width[7];
-@z
-%---------------------------------------
-@x
-begin if -g>cur_active_width[6] then g:=-cur_active_width[6];
-b:=badness(-g,cur_active_width[6]);
-@y
-begin if -g>cur_active_width[7] then g:=-cur_active_width[7];
-b:=badness(-g,cur_active_width[7]);
-@z
-%-----------------------------------------------
-@x
-if shortfall>0 then g:=cur_active_width[2]
-else if shortfall<0 then g:=cur_active_width[6]
-@y
-if shortfall>0 then g:=cur_active_width[2]
-else if shortfall<0 then g:=cur_active_width[7]
-@z
diff --git a/Build/source/texk/web2c/eptexdir/pdfprimitive.test b/Build/source/texk/web2c/eptexdir/pdfprimitive.test
deleted file mode 100755
index 2d23793faea..00000000000
--- a/Build/source/texk/web2c/eptexdir/pdfprimitive.test
+++ /dev/null
@@ -1,27 +0,0 @@
-#! /bin/sh -vx
-# $Id$
-# Copyright 2017-2018 Karl Berry <tex-live@tug.org>#
-# Copyright 2015 Peter Breitenlohner <tex-live@tug.org>
-# You may freely use, modify and/or distribute this file.
-
-BinDir=${BinDir:-.}
-ExeExt=${ExeExt:-}
-_eptex=$BinDir/eptex$ExeExt
-
-LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE
-
-TEXMFCNF=$srcdir/../kpathsea; export TEXMFCNF
-TEXINPUTS=.; export TEXINPUTS
-
-FILE=pdfprimitive-eptex
-
-# get same filename in log
-rm -f $FILE.*
-$LN_S $srcdir/eptexdir/tests/pdfprimitive-test.tex $FILE.tex
-
-$_eptex -ini -etex $FILE && exit 1
-
-sed 1d $FILE.log >$FILE.out
-
-diff $srcdir/eptexdir/tests/$FILE.log $FILE.out || exit 1
-
diff --git a/Build/source/texk/web2c/eptexdir/pdfutils.ch b/Build/source/texk/web2c/eptexdir/pdfutils.ch
deleted file mode 100644
index 73dfb8e3fe6..00000000000
--- a/Build/source/texk/web2c/eptexdir/pdfutils.ch
+++ /dev/null
@@ -1,2150 +0,0 @@
-%% Support for some primitives defined in pdfTeX
-%%
-%% \pdfstrcmp: need for LaTeX3
-%% In comparison, Japanese characters will be always encoded in UTF-8.
-%%
-%% \pdffilemoddate and co.: for standalone package
-%% (\pdfcreationdate, \pdffilemoddate, \pdffilesize)
-%%
-%% \pdfsavepos and co.
-%% (\pdfsavepos, \pdfpage{width,height}, \pdflast{x,y}pos)
-%%
-%% \pdffiledump: for bmpsize package by Heiko Oberdiek
-%%
-%% \pdfshellescape: by doraTeX's request
-%%
-%% \pdfmdfivesum: by Akira's request
-%% As \pdfstrcmp, Japanese characters will be always encoded in UTF-8 in
-%% \pdfmdfivesum {...}. (no conversion for \pdfmdfivesum file <filename>)
-%%
-%% \pdfprimitive and \ifpdfprimitive: for LaTeX3 (2015/07/15)
-%%
-%% \pdfuniformdeviate and co.:
-%% (\pdfnormaldeviate, \pdfrandomseed, \pdfsetrandomseed)
-%%
-%% \pdfelapsedtime and \pdfresettimer
-%%
-%% \expanded
-%%
-%% \ifincsname
-%%
-%% \Uchar, \Ucharcat
-%%
-%% \vadjust pre (2021-07-01)
-
-@x
-@* \[8] Packed data.
-@y
-@* \[7b] Random numbers.
-
-\font\tenlogo=logo10 % font used for the METAFONT logo
-\def\MP{{\tenlogo META}\-{\tenlogo POST}}
-\def\pdfTeX{pdf\TeX}
-
-This section is (almost) straight from MetaPost. I had to change
-the types (use |integer| instead of |fraction|), but that should
-not have any influence on the actual calculations (the original
-comments refer to quantities like |fraction_four| ($2^{30}$), and
-that is the same as the numeric representation of |maxdimen|).
-
-I've copied the low-level variables and routines that are needed, but
-only those (e.g. |m_log|), not the accompanying ones like |m_exp|. Most
-of the following low-level numeric routines are only needed within the
-calculation of |norm_rand|. I've been forced to rename |make_fraction|
-to |make_frac| because TeX already has a routine by that name with
-a wholly different function (it creates a |fraction_noad| for math
-typesetting) -- Taco
-
-And now let's complete our collection of numeric utility routines
-by considering random number generation.
-\MP\ generates pseudo-random numbers with the additive scheme recommended
-in Section 3.6 of {\sl The Art of Computer Programming}; however, the
-results are random fractions between 0 and |fraction_one-1|, inclusive.
-
-There's an auxiliary array |randoms| that contains 55 pseudo-random
-fractions. Using the recurrence $x_n=(x_{n-55}-x_{n-31})\bmod 2^{28}$,
-we generate batches of 55 new $x_n$'s at a time by calling |new_randoms|.
-The global variable |j_random| tells which element has most recently
-been consumed.
-
-@<Glob...@>=
-@!randoms:array[0..54] of integer; {the last 55 random values generated}
-@!j_random:0..54; {the number of unused |randoms|}
-@!random_seed:scaled; {the default random seed}
-
-@ A small bit of metafont is needed.
-
-@d fraction_half==@'1000000000 {$2^{27}$, represents 0.50000000}
-@d fraction_one==@'2000000000 {$2^{28}$, represents 1.00000000}
-@d fraction_four==@'10000000000 {$2^{30}$, represents 4.00000000}
-@d el_gordo == @'17777777777 {$2^{31}-1$, the largest value that \MP\ likes}
-@d halfp(#)==(#) div 2
-@d double(#) == #:=#+# {multiply a variable by two}
-
-@ The |make_frac| routine produces the |fraction| equivalent of
-|p/q|, given integers |p| and~|q|; it computes the integer
-$f=\lfloor2^{28}p/q+{1\over2}\rfloor$, when $p$ and $q$ are
-positive. If |p| and |q| are both of the same scaled type |t|,
-the ``type relation'' |make_frac(t,t)=fraction| is valid;
-and it's also possible to use the subroutine ``backwards,'' using
-the relation |make_frac(t,fraction)=t| between scaled types.
-
-If the result would have magnitude $2^{31}$ or more, |make_frac|
-sets |arith_error:=true|. Most of \MP's internal computations have
-been designed to avoid this sort of error.
-
-If this subroutine were programmed in assembly language on a typical
-machine, we could simply compute |(@t$2^{28}$@>*p)div q|, since a
-double-precision product can often be input to a fixed-point division
-instruction. But when we are restricted to \PASCAL\ arithmetic it
-is necessary either to resort to multiple-precision maneuvering
-or to use a simple but slow iteration. The multiple-precision technique
-would be about three times faster than the code adopted here, but it
-would be comparatively long and tricky, involving about sixteen
-additional multiplications and divisions.
-
-This operation is part of \MP's ``inner loop''; indeed, it will
-consume nearly 10\pct! of the running time (exclusive of input and output)
-if the code below is left unchanged. A machine-dependent recoding
-will therefore make \MP\ run faster. The present implementation
-is highly portable, but slow; it avoids multiplication and division
-except in the initial stage. System wizards should be careful to
-replace it with a routine that is guaranteed to produce identical
-results in all cases.
-@^system dependencies@>
-
-As noted below, a few more routines should also be replaced by machine-dependent
-code, for efficiency. But when a procedure is not part of the ``inner loop,''
-such changes aren't advisable; simplicity and robustness are
-preferable to trickery, unless the cost is too high.
-@^inner loop@>
-
-@p function make_frac(@!p,@!q:integer):integer;
-var @!f:integer; {the fraction bits, with a leading 1 bit}
-@!n:integer; {the integer part of $\vert p/q\vert$}
-@!negative:boolean; {should the result be negated?}
-@!be_careful:integer; {disables certain compiler optimizations}
-begin if p>=0 then negative:=false
-else begin negate(p); negative:=true;
- end;
-if q<=0 then
- begin debug if q=0 then confusion("/");@;@+gubed@;@/
-@:this can't happen /}{\quad \./@>
- negate(q); negative:=not negative;
- end;
-n:=p div q; p:=p mod q;
-if n>=8 then
- begin arith_error:=true;
- if negative then make_frac:=-el_gordo@+else make_frac:=el_gordo;
- end
-else begin n:=(n-1)*fraction_one;
- @<Compute $f=\lfloor 2^{28}(1+p/q)+{1\over2}\rfloor$@>;
- if negative then make_frac:=-(f+n)@+else make_frac:=f+n;
- end;
-end;
-
-@ The |repeat| loop here preserves the following invariant relations
-between |f|, |p|, and~|q|:
-(i)~|0<=p<q|; (ii)~$fq+p=2^k(q+p_0)$, where $k$ is an integer and
-$p_0$ is the original value of~$p$.
-
-Notice that the computation specifies
-|(p-q)+p| instead of |(p+p)-q|, because the latter could overflow.
-Let us hope that optimizing compilers do not miss this point; a
-special variable |be_careful| is used to emphasize the necessary
-order of computation. Optimizing compilers should keep |be_careful|
-in a register, not store it in memory.
-@^inner loop@>
-
-@<Compute $f=\lfloor 2^{28}(1+p/q)+{1\over2}\rfloor$@>=
-f:=1;
-repeat be_careful:=p-q; p:=be_careful+p;
-if p>=0 then f:=f+f+1
-else begin double(f); p:=p+q;
- end;
-until f>=fraction_one;
-be_careful:=p-q;
-if be_careful+p>=0 then incr(f)
-
-@
-
-@p function take_frac(@!q:integer;@!f:integer):integer;
-var @!p:integer; {the fraction so far}
-@!negative:boolean; {should the result be negated?}
-@!n:integer; {additional multiple of $q$}
-@!be_careful:integer; {disables certain compiler optimizations}
-begin @<Reduce to the case that |f>=0| and |q>0|@>;
-if f<fraction_one then n:=0
-else begin n:=f div fraction_one; f:=f mod fraction_one;
- if q<=el_gordo div n then n:=n*q
- else begin arith_error:=true; n:=el_gordo;
- end;
- end;
-f:=f+fraction_one;
-@<Compute $p=\lfloor qf/2^{28}+{1\over2}\rfloor-q$@>;
-be_careful:=n-el_gordo;
-if be_careful+p>0 then
- begin arith_error:=true; n:=el_gordo-p;
- end;
-if negative then take_frac:=-(n+p)
-else take_frac:=n+p;
-end;
-
-@ @<Reduce to the case that |f>=0| and |q>0|@>=
-if f>=0 then negative:=false
-else begin negate(f); negative:=true;
- end;
-if q<0 then
- begin negate(q); negative:=not negative;
- end;
-
-@ The invariant relations in this case are (i)~$\lfloor(qf+p)/2^k\rfloor
-=\lfloor qf_0/2^{28}+{1\over2}\rfloor$, where $k$ is an integer and
-$f_0$ is the original value of~$f$; (ii)~$2^k\L f<2^{k+1}$.
-@^inner loop@>
-
-@<Compute $p=\lfloor qf/2^{28}+{1\over2}\rfloor-q$@>=
-p:=fraction_half; {that's $2^{27}$; the invariants hold now with $k=28$}
-if q<fraction_four then
- repeat if odd(f) then p:=halfp(p+q)@+else p:=halfp(p);
- f:=halfp(f);
- until f=1
-else repeat if odd(f) then p:=p+halfp(q-p)@+else p:=halfp(p);
- f:=halfp(f);
- until f=1
-
-@ The subroutines for logarithm and exponential involve two tables.
-The first is simple: |two_to_the[k]| equals $2^k$. The second involves
-a bit more calculation, which the author claims to have done correctly:
-|spec_log[k]| is $2^{27}$ times $\ln\bigl(1/(1-2^{-k})\bigr)=
-2^{-k}+{1\over2}2^{-2k}+{1\over3}2^{-3k}+\cdots\,$, rounded to the
-nearest integer.
-
-@<Glob...@>=
-@!two_to_the:array[0..30] of integer; {powers of two}
-@!spec_log:array[1..28] of integer; {special logarithms}
-
-
-@ @<Set init...@>=
-two_to_the[0]:=1;
-for k:=1 to 30 do two_to_the[k]:=2*two_to_the[k-1];
-spec_log[1]:=93032640;
-spec_log[2]:=38612034;
-spec_log[3]:=17922280;
-spec_log[4]:=8662214;
-spec_log[5]:=4261238;
-spec_log[6]:=2113709;
-spec_log[7]:=1052693;
-spec_log[8]:=525315;
-spec_log[9]:=262400;
-spec_log[10]:=131136;
-spec_log[11]:=65552;
-spec_log[12]:=32772;
-spec_log[13]:=16385;
-for k:=14 to 27 do spec_log[k]:=two_to_the[27-k];
-spec_log[28]:=1;
-
-@
-
-@p function m_log(@!x:integer):integer;
-var @!y,@!z:integer; {auxiliary registers}
-@!k:integer; {iteration counter}
-begin if x<=0 then @<Handle non-positive logarithm@>
-else begin y:=1302456956+4-100; {$14\times2^{27}\ln2\approx1302456956.421063$}
- z:=27595+6553600; {and $2^{16}\times .421063\approx 27595$}
- while x<fraction_four do
- begin double(x); y:=y-93032639; z:=z-48782;
- end; {$2^{27}\ln2\approx 93032639.74436163$
- and $2^{16}\times.74436163\approx 48782$}
- y:=y+(z div unity); k:=2;
- while x>fraction_four+4 do
- @<Increase |k| until |x| can be multiplied by a
- factor of $2^{-k}$, and adjust $y$ accordingly@>;
- m_log:=y div 8;
- end;
-end;
-
-@ @<Increase |k| until |x| can...@>=
-begin z:=((x-1) div two_to_the[k])+1; {$z=\lceil x/2^k\rceil$}
-while x<fraction_four+z do
- begin z:=halfp(z+1); k:=k+1;
- end;
-y:=y+spec_log[k]; x:=x-z;
-end
-
-@ @<Handle non-positive logarithm@>=
-begin print_err("Logarithm of ");
-@.Logarithm...replaced by 0@>
-print_scaled(x); print(" has been replaced by 0");
-help2("Since I don't take logs of non-positive numbers,")@/
- ("I'm zeroing this one. Proceed, with fingers crossed.");
-error; m_log:=0;
-end
-
-@ The following somewhat different subroutine tests rigorously if $ab$ is
-greater than, equal to, or less than~$cd$,
-given integers $(a,b,c,d)$. In most cases a quick decision is reached.
-The result is $+1$, 0, or~$-1$ in the three respective cases.
-
-@d return_sign(#)==begin ab_vs_cd:=#; return;
- end
-
-@p function ab_vs_cd(@!a,b,c,d:integer):integer;
-label exit;
-var @!q,@!r:integer; {temporary registers}
-begin @<Reduce to the case that |a,c>=0|, |b,d>0|@>;
-loop@+ begin q := a div d; r := c div b;
- if q<>r then
- if q>r then return_sign(1)@+else return_sign(-1);
- q := a mod d; r := c mod b;
- if r=0 then
- if q=0 then return_sign(0)@+else return_sign(1);
- if q=0 then return_sign(-1);
- a:=b; b:=q; c:=d; d:=r;
- end; {now |a>d>0| and |c>b>0|}
-exit:end;
-
-@ @<Reduce to the case that |a...@>=
-if a<0 then
- begin negate(a); negate(b);
- end;
-if c<0 then
- begin negate(c); negate(d);
- end;
-if d<=0 then
- begin if b>=0 then
- if ((a=0)or(b=0))and((c=0)or(d=0)) then return_sign(0)
- else return_sign(1);
- if d=0 then
- if a=0 then return_sign(0)@+else return_sign(-1);
- q:=a; a:=c; c:=q; q:=-b; b:=-d; d:=q;
- end
-else if b<=0 then
- begin if b<0 then if a>0 then return_sign(-1);
- if c=0 then return_sign(0) else return_sign(-1);
- end
-
-@ To consume a random integer, the program below will say `|next_random|'
-and then it will fetch |randoms[j_random]|.
-
-@d next_random==if j_random=0 then new_randoms
- else decr(j_random)
-
-@p procedure new_randoms;
-var @!k:0..54; {index into |randoms|}
-@!x:integer; {accumulator}
-begin for k:=0 to 23 do
- begin x:=randoms[k]-randoms[k+31];
- if x<0 then x:=x+fraction_one;
- randoms[k]:=x;
- end;
-for k:=24 to 54 do
- begin x:=randoms[k]-randoms[k-24];
- if x<0 then x:=x+fraction_one;
- randoms[k]:=x;
- end;
-j_random:=54;
-end;
-
-@ To initialize the |randoms| table, we call the following routine.
-
-@p procedure init_randoms(@!seed:integer);
-var @!j,@!jj,@!k:integer; {more or less random integers}
-@!i:0..54; {index into |randoms|}
-begin j:=abs(seed);
-while j>=fraction_one do j:=halfp(j);
-k:=1;
-for i:=0 to 54 do
- begin jj:=k; k:=j-k; j:=jj;
- if k<0 then k:=k+fraction_one;
- randoms[(i*21)mod 55]:=j;
- end;
-new_randoms; new_randoms; new_randoms; {``warm up'' the array}
-end;
-
-@ To produce a uniform random number in the range |0<=u<x| or |0>=u>x|
-or |0=u=x|, given a |scaled| value~|x|, we proceed as shown here.
-
-Note that the call of |take_frac| will produce the values 0 and~|x|
-with about half the probability that it will produce any other particular
-values between 0 and~|x|, because it rounds its answers.
-
-@p function unif_rand(@!x:integer):integer;
-var @!y:integer; {trial value}
-begin next_random; y:=take_frac(abs(x),randoms[j_random]);
-if y=abs(x) then unif_rand:=0
-else if x>0 then unif_rand:=y
-else unif_rand:=-y;
-end;
-
-@ Finally, a normal deviate with mean zero and unit standard deviation
-can readily be obtained with the ratio method (Algorithm 3.4.1R in
-{\sl The Art of Computer Programming\/}).
-
-@p function norm_rand:integer;
-var @!x,@!u,@!l:integer; {what the book would call $2^{16}X$, $2^{28}U$,
- and $-2^{24}\ln U$}
-begin repeat
- repeat next_random;
- x:=take_frac(112429,randoms[j_random]-fraction_half);
- {$2^{16}\sqrt{8/e}\approx 112428.82793$}
- next_random; u:=randoms[j_random];
- until abs(x)<u;
-x:=make_frac(x,u);
-l:=139548960-m_log(u); {$2^{24}\cdot12\ln2\approx139548959.6165$}
-until ab_vs_cd(1024,l,x,x)>=0;
-norm_rand:=x;
-end;
-@* \[8] Packed data.
-@z
-
-% [10] \vadjust pre
-@x
-@d adjust_ptr(#)==mem[#+1].int
- {vertical list to be moved out of horizontal list}
-@y
-@d adjust_pre == subtype {<>0 => pre-adjustment}
-@#{|append_list| is used to append a list to |tail|}
-@d append_list(#) == begin link(tail) := link(#); append_list_end
-@d append_list_end(#) == tail := #; end
-
-@d adjust_ptr(#)==mem[#+1].int
- {vertical list to be moved out of horizontal list}
-@z
-
-% [11] \vadjust pre
-@x
-@d hi_mem_stat_min==mem_top-13 {smallest statically allocated word in
- the one-word |mem|}
-@d hi_mem_stat_usage=14 {the number of one-word nodes always present}
-@y
-@d pre_adjust_head==mem_top-14 {head of pre-adjustment list returned by |hpack|}
-@d hi_mem_stat_min==mem_top-14 {smallest statically allocated word in
- the one-word |mem|}
-@d hi_mem_stat_usage=15 {the number of one-word nodes always present}
-@z
-
-@x
-@* \[12] Displaying boxes.
-@y
-@<Declare procedures that need to be declared forward for \pdfTeX@>@;
-
-@* \[12] Displaying boxes.
-@z
-
-% [12] \vadjust pre
-@x
-@ @<Display adjustment |p|@>=
-begin print_esc("vadjust"); node_list_display(adjust_ptr(p)); {recursive call}
-end
-@y
-@ @<Display adjustment |p|@>=
-begin print_esc("vadjust"); if adjust_pre(p) <> 0 then print(" pre ");
-node_list_display(adjust_ptr(p)); {recursive call}
-end
-@z
-
-@x \[if]pdfprimitive
-@d frozen_special=frozen_control_sequence+10
- {permanent `\.{\\special}'}
-@d frozen_null_font=frozen_control_sequence+11
- {permanent `\.{\\nullfont}'}
-@y
-@d frozen_special=frozen_control_sequence+10
- {permanent `\.{\\special}'}
-@d frozen_primitive=frozen_control_sequence+11
- {permanent `\.{\\pdfprimitive}'}
-@d prim_eqtb_base=frozen_primitive+1
-@d prim_size=2100 {maximum number of primitives }
-@d frozen_null_font=prim_eqtb_base+prim_size+1
- {permanent `\.{\\nullfont}'}
-@z
-
-@x
-@d dimen_pars=23 {total number of dimension parameters}
-@y
-@d pdf_page_width_code=23 {page width}
-@d pdf_page_height_code=24 {page height}
-@d dimen_pars=25 {total number of dimension parameters}
-@z
-
-@x \pdfpage{width,height}
-@d emergency_stretch==dimen_par(emergency_stretch_code)
-@y
-@d emergency_stretch==dimen_par(emergency_stretch_code)
-@d pdf_page_width==dimen_par(pdf_page_width_code)
-@d pdf_page_height==dimen_par(pdf_page_height_code)
-@z
-
-@x \pdfpage{width,height}
-emergency_stretch_code:print_esc("emergencystretch");
-@y
-emergency_stretch_code:print_esc("emergencystretch");
-pdf_page_width_code: print_esc("pdfpagewidth");
-pdf_page_height_code: print_esc("pdfpageheight");
-@z
-
-@x \[if]pdfprimitive
-@!cs_count:integer; {total number of known identifiers}
-@y
-@!cs_count:integer; {total number of known identifiers}
-
-@ Primitive support needs a few extra variables and definitions
-
-@d prim_prime=1777 {about 85\pct! of |primitive_size|}
-@d prim_base=1
-@d prim_next(#) == prim[#].lh {link for coalesced lists}
-@d prim_text(#) == prim[#].rh {string number for control sequence name, plus one}
-@d prim_is_full == (prim_used=prim_base) {test if all positions are occupied}
-@d prim_eq_level_field(#)==#.hh.b1
-@d prim_eq_type_field(#)==#.hh.b0
-@d prim_equiv_field(#)==#.hh.rh
-@d prim_eq_level(#)==prim_eq_level_field(eqtb[prim_eqtb_base+#]) {level of definition}
-@d prim_eq_type(#)==prim_eq_type_field(eqtb[prim_eqtb_base+#]) {command code for equivalent}
-@d prim_equiv(#)==prim_equiv_field(eqtb[prim_eqtb_base+#]) {equivalent value}
-@d undefined_primitive=0
-@d biggest_char=255 { 65535 in XeTeX }
-
-@<Glob...@>=
-@!prim: array [0..prim_size] of two_halves; {the primitives table}
-@!prim_used:pointer; {allocation pointer for |prim|}
-@z
-
-@x \[if]pdfprimitive
-@ @<Set init...@>=
-no_new_control_sequence:=true; {new identifiers are usually forbidden}
-@y
-@ @<Set init...@>=
-no_new_control_sequence:=true; {new identifiers are usually forbidden}
-prim_next(0):=0; prim_text(0):=0;
-for k:=1 to prim_size do prim[k]:=prim[0];
-@z
-
-@x \[if]pdfprimitive
-text(frozen_dont_expand):="notexpanded:";
-@.notexpanded:@>
-@y
-prim_used:=prim_size; {nothing is used}
-text(frozen_dont_expand):="notexpanded:";
-@.notexpanded:@>
-eq_type(frozen_primitive):=ignore_spaces;
-equiv(frozen_primitive):=1;
-eq_level(frozen_primitive):=level_one;
-text(frozen_primitive):="pdfprimitive";
-@z
-
-@x \[if]pdfprimitive
-@ Single-character control sequences do not need to be looked up in a hash
-table, since we can use the character code itself as a direct address.
-@y
-@ Here is the subroutine that searches the primitive table for an identifier
-
-@p function prim_lookup(@!s:str_number):pointer; {search the primitives table}
-label found; {go here if you found it}
-var h:integer; {hash code}
-@!p:pointer; {index in |hash| array}
-@!k:pointer; {index in string pool}
-@!j,@!l:integer;
-begin
-if s<=biggest_char then begin
- if s<0 then begin p:=undefined_primitive; goto found; end
- else p:=(s mod prim_prime)+prim_base; {we start searching here}
- l:=1
- end
-else begin
- j:=str_start[s];
- if s = str_ptr then l := cur_length else l := length(s);
- @<Compute the primitive code |h|@>;
- p:=h+prim_base; {we start searching here; note that |0<=h<prim_prime|}
- end;
-loop@+begin
- if prim_text(p)>1+biggest_char then { |p| points a multi-letter primitive }
- begin if length(prim_text(p)-1)=l then
- if str_eq_str(prim_text(p)-1,s) then goto found;
- end
- else if prim_text(p)=1+s then goto found; { |p| points a single-letter primitive }
- if prim_next(p)=0 then
- begin if no_new_control_sequence then
- p:=undefined_primitive
- else @<Insert a new primitive after |p|, then make
- |p| point to it@>;
- goto found;
- end;
- p:=prim_next(p);
- end;
-found: prim_lookup:=p;
-end;
-
-@ @<Insert a new primitive...@>=
-begin if prim_text(p)>0 then
- begin repeat if prim_is_full then overflow("primitive size",prim_size);
-@:TeX capacity exceeded primitive size}{\quad primitive size@>
- decr(prim_used);
- until prim_text(prim_used)=0; {search for an empty location in |prim|}
- prim_next(p):=prim_used; p:=prim_used;
- end;
-prim_text(p):=s+1;
-end
-
-@ The value of |prim_prime| should be roughly 85\pct! of
-|prim_size|, and it should be a prime number.
-
-@<Compute the primitive code |h|@>=
-h:=str_pool[j];
-for k:=j+1 to j+l-1 do
- begin h:=h+h+str_pool[k];
- while h>=prim_prime do h:=h-prim_prime;
- end
-
-@ Single-character control sequences do not need to be looked up in a hash
-table, since we can use the character code itself as a direct address.
-@z
-
-@x print_cs: \pdfprimitive
-else begin l:=text(p);
-@y
-else begin
- if (p>=prim_eqtb_base)and(p<frozen_null_font) then
- l:=prim_text(p-prim_eqtb_base)-1 else l:=text(p);
-@z
-
-@x
-else print_esc(text(p));
-@y
-else if (p>=prim_eqtb_base)and(p<frozen_null_font) then
- print_esc(prim_text(p-prim_eqtb_base)-1)
-else print_esc(text(p));
-@z
-
-
-@x \[if]pdfprimitive
-@p @!init procedure primitive(@!s:str_number;@!c:quarterword;@!o:halfword);
-var k:pool_pointer; {index into |str_pool|}
-@y
-@p @!init procedure primitive(@!s:str_number;@!c:quarterword;@!o:halfword);
-var k:pool_pointer; {index into |str_pool|}
-@!prim_val:integer; {needed to fill |prim_eqtb|}
-@z
-
-@x \[if]pdfprimitive
-begin if s<256 then cur_val:=s+single_base
-@y
-begin if s<256 then begin
- cur_val:=s+single_base;
- prim_val:=prim_lookup(s);
-end
-@z
-
-@x \[if]pdfprimitive
- flush_string; text(cur_val):=s; {we don't want to have the string twice}
- end;
-eq_level(cur_val):=level_one; eq_type(cur_val):=c; equiv(cur_val):=o;
-end;
-tini
-@y
- flush_string; text(cur_val):=s; {we don't want to have the string twice}
- prim_val:=prim_lookup(s);
- end;
-eq_level(cur_val):=level_one; eq_type(cur_val):=c; equiv(cur_val):=o;
-prim_eq_level(prim_val):=level_one;
-prim_eq_type(prim_val):=c;
-prim_equiv(prim_val):=o;
-end;
-tini
-@z
-
-@x \[if]pdfprimitive
-ignore_spaces: print_esc("ignorespaces");
-@y
-ignore_spaces: if chr_code=0 then print_esc("ignorespaces") else print_esc("pdfprimitive");
-@z
-
-@x \[if]pdfprimitive
-no_expand: print_esc("noexpand");
-@y
-no_expand: if chr_code=0 then print_esc("noexpand")
- else print_esc("pdfprimitive");
-@z
-
-@x \ifincsname
-var t:halfword; {token that is being ``expanded after''}
-@!p,@!q,@!r:pointer; {for list manipulation}
-@y
-var t:halfword; {token that is being ``expanded after''}
-@!b:boolean; {keep track of nested csnames}
-@!p,@!q,@!r:pointer; {for list manipulation}
-@z
-
-@x
-@ @<Expand a nonmacro@>=
-@y
-@ @<Glob...@>=
-@!is_in_csname: boolean;
-
-@ @<Set init...@>=
-is_in_csname := false;
-
-@ @<Expand a nonmacro@>=
-@z
-
-@x
-no_expand:@<Suppress expansion of the next token@>;
-@y
-no_expand: if cur_chr=0 then @<Suppress expansion of the next token@>
- else @<Implement \.{\\pdfprimitive}@>;
-@z
-
-@x
-@<Suppress expansion...@>=
-begin save_scanner_status:=scanner_status; scanner_status:=normal;
-get_token; scanner_status:=save_scanner_status; t:=cur_tok;
-back_input; {now |start| and |loc| point to the backed-up token |t|}
-if (t>=cs_token_flag)and(t<>end_write_token) then
- begin p:=get_avail; info(p):=cs_token_flag+frozen_dont_expand;
- link(p):=loc; start:=p; loc:=p;
- end;
-end
-@y
-@<Suppress expansion...@>=
-begin save_scanner_status:=scanner_status; scanner_status:=normal;
-get_token; scanner_status:=save_scanner_status; t:=cur_tok;
-back_input; {now |start| and |loc| point to the backed-up token |t|}
-if (t>=cs_token_flag)and(t<>end_write_token) then
- begin p:=get_avail; info(p):=cs_token_flag+frozen_dont_expand;
- link(p):=loc; start:=p; loc:=p;
- end;
-end
-
-@ The \.{\\pdfprimitive} handling. If the primitive meaning of the next
-token is an expandable command, it suffices to replace the current
-token with the primitive one and restart |expand|/
-
-Otherwise, the token we just read has to be pushed back, as well
-as a token matching the internal form of \.{\\pdfprimitive}, that is
-sneaked in as an alternate form of |ignore_spaces|.
-@!@:pdfprimitive_}{\.{\\pdfprimitive} primitive (internalized)@>
-
-Simply pushing back a token that matches the correct internal command
-does not work, because approach would not survive roundtripping to a
-temporary file.
-
-@<Implement \.{\\pdfprimitive}@>=
-begin save_scanner_status := scanner_status; scanner_status:=normal;
-get_token; scanner_status:=save_scanner_status;
-if cur_cs < hash_base then
- cur_cs := prim_lookup(cur_cs-single_base)
-else
- cur_cs := prim_lookup(text(cur_cs));
-if cur_cs<>undefined_primitive then begin
- t := prim_eq_type(cur_cs);
- if t>max_command then begin
- cur_cmd := t;
- cur_chr := prim_equiv(cur_cs);
- cur_tok := (cur_cmd*@'400)+cur_chr;
- cur_cs := 0;
- goto reswitch;
- end
- else begin
- back_input; { now |loc| and |start| point to a one-item list }
- p:=get_avail; info(p):=cs_token_flag+frozen_primitive;
- link(p):=loc; loc:=p; start:=p;
- end;
- end;
-end
-
-@ This block deals with unexpandable \.{\\primitive} appearing at a spot where
-an integer or an internal values should have been found. It fetches the
-next token then resets |cur_cmd|, |cur_cs|, and |cur_tok|, based on the
-primitive value of that token. No expansion takes place, because the
-next token may be all sorts of things. This could trigger further
-expansion creating new errors.
-
-@<Reset |cur_tok| for unexpandable primitives, goto restart @>=
-begin
-get_token;
-if cur_cs < hash_base then
- cur_cs := prim_lookup(cur_cs-single_base)
-else
- cur_cs := prim_lookup(text(cur_cs));
-if cur_cs<>undefined_primitive then begin
- cur_cmd := prim_eq_type(cur_cs);
- cur_chr := prim_equiv(cur_cs);
- cur_cs := prim_eqtb_base+cur_cs;
- cur_tok := cs_token_flag+cur_cs;
- end
-else begin
- cur_cmd := relax;
- cur_chr := 0;
- cur_tok := cs_token_flag+frozen_relax;
- cur_cs := frozen_relax;
- end;
-goto restart;
-end
-@z
-
-@x
-begin r:=get_avail; p:=r; {head of the list of characters}
-repeat get_x_token;
-@y
-begin r:=get_avail; p:=r; {head of the list of characters}
-b := is_in_csname; is_in_csname := true;
-repeat get_x_token;
-@z
-
-@x
-@<Look up the characters of list |r| in the hash table, and set |cur_cs|@>;
-@y
-is_in_csname := b;
-@<Look up the characters of list |r| in the hash table, and set |cur_cs|@>;
-@z
-
-@x scan_keyword
-@!k:pool_pointer; {index into |str_pool|}
-begin p:=backup_head; link(p):=null; k:=str_start[s];
-@y
-@!k:pool_pointer; {index into |str_pool|}
-@!save_cur_cs:pointer; {to save |cur_cs|}
-begin p:=backup_head; link(p):=null; k:=str_start[s];
-save_cur_cs:=cur_cs;
-@z
-
-@x scan_keyword
- scan_keyword:=false; return;
-@y
- cur_cs:=save_cur_cs;
- scan_keyword:=false; return;
-@z
-
-@x \[if]pdfprimitive : scan_something_internal
-procedure scan_something_internal(@!level:small_number;@!negative:boolean);
- {fetch an internal parameter}
-label exit;
-@y
-procedure scan_something_internal(@!level:small_number;@!negative:boolean);
- {fetch an internal parameter}
-label exit, restart;
-@z
-
-@x \[if]pdfprimitive : scan_something_internal
-begin m:=cur_chr;
-@y
-begin restart: m:=cur_chr;
-@z
-
-@x \[if]pdfprimitive : scan_something_internal
-last_item: @<Fetch an item in the current node, if appropriate@>;
-@y
-last_item: @<Fetch an item in the current node, if appropriate@>;
-ignore_spaces: {trap unexpandable primitives}
- if cur_chr=1 then @<Reset |cur_tok| for unexpandable primitives, goto restart@>;
-@z
-
-@x
-@d ptex_minor_version_code=eptex_version_code+1 {code for \.{\\ptexminorversion}}
-@y
-@d ptex_minor_version_code=eptex_version_code+1 {code for \.{\\ptexminorversion}}
-@d pdf_last_x_pos_code=ptex_minor_version_code+1 {code for \.{\\pdflastxpos}}
-@d pdf_last_y_pos_code=pdf_last_x_pos_code+1 {code for \.{\\pdflastypos}}
-@d pdf_shell_escape_code=pdf_last_y_pos_code+1 {code for \.{\\pdflastypos}}
-@d elapsed_time_code=pdf_shell_escape_code+1 {code for \.{\\pdfelapsedtime}}
-@d random_seed_code=elapsed_time_code+1 {code for \.{\\pdfrandomseed}}
-@z
-
-@x
-@d eTeX_int=ptex_minor_version_code+1 {first of \eTeX\ codes for integers}
-@y
-@d eTeX_int=random_seed_code+1 {first of \eTeX\ codes for integers}
-@z
-
-@x \[if]pdfprimitive: scan_int
-@p procedure scan_int; {sets |cur_val| to an integer}
-label done;
-@y
-@p procedure scan_int; {sets |cur_val| to an integer}
-label done, restart;
-@z
-
-@x \[if]pdfprimitive: scan_int
-if cur_tok=alpha_token then @<Scan an alphabetic character code into |cur_val|@>
-@y
-restart:
-if cur_tok=alpha_token then @<Scan an alphabetic character code into |cur_val|@>
-else if cur_tok=cs_token_flag+frozen_primitive then
- @<Reset |cur_tok| for unexpandable primitives, goto restart@>
-@z
-
-@x \Ucharcat: str_toks_cat
-function str_toks(@!b:pool_pointer):pointer;
-@y
-function str_toks_cat(@!b:pool_pointer;@!cat:small_number):pointer;
-@z
-
-@x \Ucharcat: str_toks_cat
- else if t=" " then t:=space_token
- else t:=other_token+t;
-@y
- else if (t=" ")and(cat=0) then t:=space_token
- else if (cat=0)or(cat>=kanji) then t:=other_token+t
- else if cat=active_char then t:= cs_token_flag + active_base + t
- else t:=left_brace_token*cat+t;
-@z
-
-@x \Ucharcat: str_toks_cat
-pool_ptr:=b; str_toks:=p;
-end;
-@y
-pool_ptr:=b; str_toks_cat:=p;
-end;
-
-function str_toks(@!b:pool_pointer):pointer;
-begin str_toks:=str_toks_cat(b,0); end;
-@z
-
-@x
-@d etex_convert_codes=etex_convert_base+1 {end of \eTeX's command codes}
-@d job_name_code=etex_convert_codes {command code for \.{\\jobname}}
-@y
-@d etex_convert_codes=etex_convert_base+1 {end of \eTeX's command codes}
-@d expanded_code = etex_convert_codes {command code for \.{\\expanded}}
-@d pdf_first_expand_code = expanded_code + 1 {base for \pdfTeX-like command codes}
-@d pdf_strcmp_code = pdf_first_expand_code+0 {command code for \.{\\pdfstrcmp}}
-@d pdf_creation_date_code = pdf_first_expand_code+1 {command code for \.{\\pdfcreationdate}}
-@d pdf_file_mod_date_code = pdf_first_expand_code+2 {command code for \.{\\pdffilemoddate}}
-@d pdf_file_size_code = pdf_first_expand_code+3 {command code for \.{\\pdffilesize}}
-@d pdf_mdfive_sum_code = pdf_first_expand_code+4 {command code for \.{\\pdfmdfivesum}}
-@d pdf_file_dump_code = pdf_first_expand_code+5 {command code for \.{\\pdffiledump}}
-@d uniform_deviate_code = pdf_first_expand_code+6 {command code for \.{\\pdfuniformdeviate}}
-@d normal_deviate_code = pdf_first_expand_code+7 {command code for \.{\\pdfnormaldeviate}}
-@d pdf_convert_codes = pdf_first_expand_code+8 {end of \pdfTeX-like command codes}
-@d Uchar_convert_code = pdf_convert_codes {command code for \.{\\Uchar}}
-@d Ucharcat_convert_code = pdf_convert_codes+1 {command code for \.{\\Ucharcat}}
-@d eptex_convert_codes = pdf_convert_codes+2 {end of \epTeX's command codes}
-@d job_name_code=eptex_convert_codes {command code for \.{\\jobname}}
-@z
-
-@x
-primitive("jobname",convert,job_name_code);@/
-@y
-@#
-primitive("expanded",convert,expanded_code);@/
-@!@:expanded_}{\.{\\expanded} primitive@>
-@#
-primitive("jobname",convert,job_name_code);@/
-@z
-
-@x
- eTeX_revision_code: print_esc("eTeXrevision");
-@y
- eTeX_revision_code: print_esc("eTeXrevision");
- expanded_code: print_esc("expanded");
- pdf_strcmp_code: print_esc("pdfstrcmp");
- pdf_creation_date_code: print_esc("pdfcreationdate");
- pdf_file_mod_date_code: print_esc("pdffilemoddate");
- pdf_file_size_code: print_esc("pdffilesize");
- pdf_mdfive_sum_code: print_esc("pdfmdfivesum");
- pdf_file_dump_code: print_esc("pdffiledump");
- uniform_deviate_code: print_esc("pdfuniformdeviate");
- normal_deviate_code: print_esc("pdfnormaldeviate");
- Uchar_convert_code: print_esc("Uchar");
- Ucharcat_convert_code: print_esc("Ucharcat");
-@z
-
-@x
-@p procedure conv_toks;
-@y
-
-The extra temp string |u| is needed because |pdf_scan_ext_toks| incorporates
-any pending string in its output. In order to save such a pending string,
-we have to create a temporary string that is destroyed immediately after.
-
-@d save_cur_string==if str_start[str_ptr]<pool_ptr then u:=make_string else u:=0
-@d restore_cur_string==if u<>0 then decr(str_ptr)
-
-@ Not all catcode values are allowed by \.{\\Ucharcat}:
-@d illegal_Ucharcat_ascii_catcode(#)==(#<left_brace)or(#>active_char)or(#=out_param)or(#=ignore)
-@d illegal_Ucharcat_wchar_catcode(#)==(#<kanji)or(#>other_kchar)
-
-@p procedure conv_toks;
-@z
-
-@x
-@!save_scanner_status:small_number; {|scanner_status| upon entry}
-@y
-@!save_scanner_status:small_number; {|scanner_status| upon entry}
-@!save_def_ref: pointer; {|def_ref| upon entry, important if inside `\.{\\message}'}
-@!save_warning_index: pointer;
-@!bool: boolean; {temp boolean}
-@!u: str_number; {saved current string string}
-@!s: str_number; {first temp string}
-@!i: integer;
-@!j: integer;
-@!cat:small_number; {desired catcode, or 0 for automatic |spacer|/|other_char| selection}
-@z
-
-@x
-begin c:=cur_chr; @<Scan the argument for command |c|@>;
-@y
-begin cat:=0; c:=cur_chr; @<Scan the argument for command |c|@>;
-u:=0; { will become non-nil if a string is already being built}
-@z
-
-@x
-selector:=old_setting; link(garbage):=str_toks(b); ins_list(link(temp_head));
-@y
-selector:=old_setting; link(garbage):=str_toks_cat(b,cat); ins_list(link(temp_head));
-@z
-
-@x
-eTeX_revision_code: do_nothing;
-@y
-eTeX_revision_code: do_nothing;
-expanded_code:
- begin
- save_scanner_status := scanner_status;
- save_warning_index := warning_index;
- save_def_ref := def_ref;
- save_cur_string;
- scan_pdf_ext_toks;
- warning_index := save_warning_index;
- scanner_status := save_scanner_status;
- ins_list(link(def_ref));
- free_avail(def_ref);
- def_ref := save_def_ref;
- restore_cur_string;
- return;
- end;
-pdf_strcmp_code:
- begin
- save_scanner_status := scanner_status;
- save_warning_index := warning_index;
- save_def_ref := def_ref;
- save_cur_string;
- compare_strings;
- def_ref := save_def_ref;
- warning_index := save_warning_index;
- scanner_status := save_scanner_status;
- restore_cur_string;
- end;
-pdf_creation_date_code:
- begin
- b := pool_ptr;
- getcreationdate;
- link(garbage) := str_toks(b);
- ins_list(link(temp_head));
- return;
- end;
-pdf_file_mod_date_code:
- begin
- save_scanner_status := scanner_status;
- save_warning_index := warning_index;
- save_def_ref := def_ref;
- save_cur_string;
- scan_pdf_ext_toks;
- s := tokens_to_string(def_ref);
- delete_token_ref(def_ref);
- def_ref := save_def_ref;
- warning_index := save_warning_index;
- scanner_status := save_scanner_status;
- b := pool_ptr;
- getfilemoddate(s);
- link(garbage) := str_toks(b);
- flush_str(s);
- ins_list(link(temp_head));
- restore_cur_string;
- return;
- end;
-pdf_file_size_code:
- begin
- save_scanner_status := scanner_status;
- save_warning_index := warning_index;
- save_def_ref := def_ref;
- save_cur_string;
- scan_pdf_ext_toks;
- s := tokens_to_string(def_ref);
- delete_token_ref(def_ref);
- def_ref := save_def_ref;
- warning_index := save_warning_index;
- scanner_status := save_scanner_status;
- b := pool_ptr;
- getfilesize(s);
- link(garbage) := str_toks(b);
- flush_str(s);
- ins_list(link(temp_head));
- restore_cur_string;
- return;
- end;
-pdf_mdfive_sum_code:
- begin
- save_scanner_status := scanner_status;
- save_warning_index := warning_index;
- save_def_ref := def_ref;
- save_cur_string;
- bool := scan_keyword("file");
- scan_pdf_ext_toks;
- if bool then s := tokens_to_string(def_ref)
- else begin
- isprint_utf8:=true; s := tokens_to_string(def_ref); isprint_utf8:=false;
- end;
- delete_token_ref(def_ref);
- def_ref := save_def_ref;
- warning_index := save_warning_index;
- scanner_status := save_scanner_status;
- b := pool_ptr;
- getmd5sum(s, bool);
- link(garbage) := str_toks(b);
- flush_str(s);
- ins_list(link(temp_head));
- restore_cur_string;
- return;
- end;
-pdf_file_dump_code:
- begin
- save_scanner_status := scanner_status;
- save_warning_index := warning_index;
- save_def_ref := def_ref;
- save_cur_string;
- {scan offset}
- cur_val := 0;
- if (scan_keyword("offset")) then begin
- scan_int;
- if (cur_val < 0) then begin
- print_err("Bad file offset");
-@.Bad file offset@>
- help2("A file offset must be between 0 and 2^{31}-1,")@/
- ("I changed this one to zero.");
- int_error(cur_val);
- cur_val := 0;
- end;
- end;
- i := cur_val;
- {scan length}
- cur_val := 0;
- if (scan_keyword("length")) then begin
- scan_int;
- if (cur_val < 0) then begin
- print_err("Bad dump length");
-@.Bad dump length@>
- help2("A dump length must be between 0 and 2^{31}-1,")@/
- ("I changed this one to zero.");
- int_error(cur_val);
- cur_val := 0;
- end;
- end;
- j := cur_val;
- {scan file name}
- scan_pdf_ext_toks;
- s := tokens_to_string(def_ref);
- delete_token_ref(def_ref);
- def_ref := save_def_ref;
- warning_index := save_warning_index;
- scanner_status := save_scanner_status;
- b := pool_ptr;
- getfiledump(s, i, j);
- link(garbage) := str_toks(b);
- flush_str(s);
- ins_list(link(temp_head));
- restore_cur_string;
- return;
- end;
-uniform_deviate_code: scan_int;
-normal_deviate_code: do_nothing;
-Uchar_convert_code: scan_char_num;
-Ucharcat_convert_code:
- begin
- scan_ascii_num;
- i:=cur_val;
- scan_int;
- if illegal_Ucharcat_ascii_catcode(cur_val) then
- begin print_err("Invalid code ("); print_int(cur_val);
-@.Invalid code@>
- print("), should be in the ranges 1..4, 6..8, 10..13");
- help1("I'm going to use 12 instead of that illegal code value.");@/
- error; cat:=12;
- end else cat:=cur_val;
- cur_val:=i;
- end;
-@z
-
-@x
-eTeX_revision_code: print(eTeX_revision);
-@y
-eTeX_revision_code: print(eTeX_revision);
-pdf_strcmp_code: print_int(cur_val);
-uniform_deviate_code: print_int(unif_rand(cur_val));
-normal_deviate_code: print_int(norm_rand);
-Uchar_convert_code:
-if is_char_ascii(cur_val) then print_char(cur_val) else print_kanji(cur_val);
-Ucharcat_convert_code:
-if cat<kanji then print_char(cur_val) else print_kanji(cur_val);
-@z
-
-@x e-pTeX: if primitives - leave room for \ifincsname
-@d if_tdir_code=if_case_code+4 { `\.{\\iftdir}' }
-@y
-@d if_in_csname_code=20 { `\.{\\ifincsname}'; |if_font_char_code| + 1 }
-@d if_pdfprimitive_code=21 { `\.{\\ifpdfprimitive}' }
-@#
-@d if_tdir_code=if_pdfprimitive_code+1 { `\.{\\iftdir}' }
-@z
-
-@x \[if]pdfprimitive
- if_mbox_code:print_esc("ifmbox");
-@y
- if_mbox_code:print_esc("ifmbox");
- if_pdfprimitive_code:print_esc("ifpdfprimitive");
-@z
-
-@x \ifincsname
-var b:boolean; {is the condition true?}
-@!r:"<"..">"; {relation to be evaluated}
-@y
-var b:boolean; {is the condition true?}
-@!e:boolean; {keep track of nested csnames}
-@!r:"<"..">"; {relation to be evaluated}
-@z
-
-@x \[if]pdfprimitive
-if_void_code, if_hbox_code, if_vbox_code: @<Test box register status@>;
-@y
-if_void_code, if_hbox_code, if_vbox_code: @<Test box register status@>;
-if_pdfprimitive_code: begin
- save_scanner_status:=scanner_status;
- scanner_status:=normal;
- get_next;
- scanner_status:=save_scanner_status;
- if cur_cs < hash_base then
- m := prim_lookup(cur_cs-single_base)
- else
- m := prim_lookup(text(cur_cs));
- b :=((cur_cmd<>undefined_cs) and
- (m<>undefined_primitive) and
- (cur_cmd=prim_eq_type(m)) and
- (cur_chr=prim_equiv(m)));
- end;
-@z
-
-@x
-@ @<Initialize variables as |ship_out| begins@>=
-@y
-@ @<Initialize variables as |ship_out| begins@>=
-@<Calculate DVI page dimensions and margins@>;
-@z
-
-% [33] \vadjust pre
-@x
-if adjust_tail<>null then link(adjust_tail):=null;
-@y
-if adjust_tail<>null then link(adjust_tail):=null;
-if pre_adjust_tail<>null then link(pre_adjust_tail):=null;
-@z
-
-% [33] \vadjust pre
-@x
- ins_node,mark_node,adjust_node: if adjust_tail<>null then
-@y
- ins_node,mark_node,adjust_node: if (adjust_tail<>null) or (pre_adjust_tail<> null) then
-@z
-
-% [33] \vadjust pre
-@x
-to make a deletion.
-@^inner loop@>
-@y
-to make a deletion.
-@^inner loop@>
-
-@<Glob...@>=
-@!pre_adjust_tail: pointer;
-
-@ @<Set init...@>=
-pre_adjust_tail := null;
-
-@ Materials in \.{\\vadjust} used with \.{pre} keyword will be appended to
-|pre_adjust_tail| instead of |adjust_tail|.
-
-@d update_adjust_list(#) == begin
- if # = null then
- confusion("pre vadjust");
- link(#) := adjust_ptr(p);
- while link(#) <> null do
- # := link(#);
-end
-@z
-
-% [33] \vadjust pre
-@x
-@<Transfer node |p| to the adjustment list@>=
-begin while link(q)<>p do q:=link(q);
-if type(p)=adjust_node then
- begin link(adjust_tail):=adjust_ptr(p);
- while link(adjust_tail)<>null do adjust_tail:=link(adjust_tail);
- p:=link(p); free_node(link(q),small_node_size);
- end
-else begin link(adjust_tail):=p; adjust_tail:=p; p:=link(p);
- end;
-link(q):=p; p:=q;
-@y
-@<Transfer node |p| to the adjustment list@>=
-begin while link(q)<>p do q:=link(q);
- if type(p) = adjust_node then begin
- if adjust_pre(p) <> 0 then
- update_adjust_list(pre_adjust_tail)
- else
- update_adjust_list(adjust_tail);
- p := link(p); free_node(link(q), small_node_size);
- end
-else begin link(adjust_tail):=p; adjust_tail:=p; p:=link(p);
- end;
-link(q):=p; p:=q;
-@z
-
-% [37] \vadjust pre
-@x
-@d align_stack_node_size=5 {number of |mem| words to save alignment states}
-@y
-@d align_stack_node_size=6 {number of |mem| words to save alignment states}
-@z
-
-% [37] \vadjust pre
-@x
-@!cur_head,@!cur_tail:pointer; {adjustment list pointers}
-@y
-@!cur_head,@!cur_tail:pointer; {adjustment list pointers}
-@!cur_pre_head,@!cur_pre_tail:pointer; {pre-adjustment list pointers}
-@z
-
-% [37] \vadjust pre
-@x
-cur_head:=null; cur_tail:=null;
-@y
-cur_head:=null; cur_tail:=null;
-cur_pre_head:=null; cur_pre_tail:=null;
-@z
-
-% [37] procedure |push_alignment|: \vadjust pre
-@x
-info(p+4):=cur_head; link(p+4):=cur_tail;
-align_ptr:=p;
-cur_head:=get_avail;
-@y
-info(p+4):=cur_head; link(p+4):=cur_tail;
-info(p+5):=cur_pre_head; link(p+5):=cur_pre_tail;
-align_ptr:=p;
-cur_head:=get_avail;
-cur_pre_head:=get_avail;
-@z
-
-% [37] procedure |pop_alignment|: \vadjust pre
-@x
-begin free_avail(cur_head);
-p:=align_ptr;
-cur_tail:=link(p+4); cur_head:=info(p+4);
-@y
-begin free_avail(cur_head);
-free_avail(cur_pre_head);
-p:=align_ptr;
-cur_tail:=link(p+4); cur_head:=info(p+4);
-cur_pre_tail:=link(p+5); cur_pre_head:=info(p+5);
-@z
-
-% [37] \vadjust pre
-@x
-cur_align:=link(preamble); cur_tail:=cur_head; init_span(cur_align);
-@y
-cur_align:=link(preamble); cur_tail:=cur_head; cur_pre_tail:=cur_pre_head;
-init_span(cur_align);
-@z
-
-% [37] \vadjust pre + pTeX
-@x
- begin adjust_tail:=cur_tail; adjust_hlist(head,false);
-@y
- begin adjust_tail:=cur_tail; pre_adjust_tail:=cur_pre_tail;
- adjust_hlist(head,false);
-@z
-
-% [37] \vadjust pre
-@x
- cur_tail:=adjust_tail; adjust_tail:=null;
-@y
- cur_tail:=adjust_tail; adjust_tail:=null;
- cur_pre_tail:=pre_adjust_tail; pre_adjust_tail:=null;
-@z
-
-% [37] \vadjust pre
-@x
- pop_nest; append_to_vlist(p);
- if cur_head<>cur_tail then
- begin link(tail):=link(cur_head); tail:=cur_tail;
- end;
-@y
- pop_nest;
- if cur_pre_head <> cur_pre_tail then
- append_list(cur_pre_head)(cur_pre_tail);
- append_to_vlist(p);
- if cur_head <> cur_tail then
- append_list(cur_head)(cur_tail);
-@z
-
-% [39] \vadjust pre
-@x
-@ @<Append the new box to the current vertical list...@>=
-append_to_vlist(just_box);
-if adjust_head<>adjust_tail then
- begin link(tail):=link(adjust_head); tail:=adjust_tail;
- end;
-adjust_tail:=null
-@y
-@ @<Append the new box to the current vertical list...@>=
-if pre_adjust_head <> pre_adjust_tail then
- append_list(pre_adjust_head)(pre_adjust_tail);
-pre_adjust_tail := null;
-append_to_vlist(just_box);
-if adjust_head <> adjust_tail then
- append_list(adjust_head)(adjust_tail);
-adjust_tail := null
-@z
-
-% [39] \vadjust pre
-@x
-adjust_tail:=adjust_head; just_box:=hpack(q,cur_width,exactly);
-@y
-adjust_tail:=adjust_head;
-pre_adjust_tail := pre_adjust_head;
-just_box:=hpack(q,cur_width,exactly);
-@z
-
-@x \[if]pdfprimitive: main_loop
-any_mode(ignore_spaces): begin @<Get the next non-blank non-call...@>;
- goto reswitch;
- end;
-@y
-any_mode(ignore_spaces): begin
- if cur_chr = 0 then begin
- @<Get the next non-blank non-call...@>;
- goto reswitch;
- end
- else begin
- t:=scanner_status;
- scanner_status:=normal;
- get_next;
- scanner_status:=t;
- if cur_cs < hash_base then
- cur_cs := prim_lookup(cur_cs-single_base)
- else
- cur_cs := prim_lookup(text(cur_cs));
- if cur_cs<>undefined_primitive then begin
- cur_cmd := prim_eq_type(cur_cs);
- cur_chr := prim_equiv(cur_cs);
- cur_tok := cs_token_flag+prim_eqtb_base+cur_cs;
- goto reswitch;
- end;
- end;
- end;
-@z
-
-% [47] \vadjust pre
-@x
- if abs(mode)=vmode then
- begin append_to_vlist(cur_box);
- if adjust_tail<>null then
- begin if adjust_head<>adjust_tail then
- begin link(tail):=link(adjust_head); tail:=adjust_tail;
- end;
- adjust_tail:=null;
- end;
- if mode>0 then build_page;
- end
-@y
- if abs(mode)=vmode then
- begin
- if pre_adjust_tail <> null then begin
- if pre_adjust_head <> pre_adjust_tail then
- append_list(pre_adjust_head)(pre_adjust_tail);
- pre_adjust_tail := null;
- end;
- append_to_vlist(cur_box);
- if adjust_tail <> null then begin
- if adjust_head <> adjust_tail then
- append_list(adjust_head)(adjust_tail);
- adjust_tail := null;
- end;
- if mode>0 then build_page;
- end
-@z
-
-% [47] \vadjust pre + pTeX
-@x
-adjusted_hbox_group: begin adjust_hlist(head,false);
- adjust_tail:=adjust_head; package(0);
-@y
-adjusted_hbox_group: begin adjust_hlist(head,false);
- adjust_tail:=adjust_head;
- pre_adjust_tail:=pre_adjust_head; package(0);
-@z
-
-% [47] \vadjust pre
-@x
-saved(0):=cur_val; incr(save_ptr);
-@y
-saved(0) := cur_val;
-if (cur_cmd = vadjust) and scan_keyword("pre") then
- saved(1) := 1
-else
- saved(1) := 0;
-save_ptr := save_ptr + 2;
-@z
-
-% [47] \vadjust pre
-@x
- d:=split_max_depth; f:=floating_penalty; unsave; decr(save_ptr);
-@y
- d:=split_max_depth; f:=floating_penalty; unsave; save_ptr := save_ptr - 2;
-@z
-
-% [47] \vadjust pre + pTeX
-@x
- r:=get_node(small_node_size); type(r):=adjust_node;@/
- subtype(r):=0; {the |subtype| is not used}
- adjust_ptr(r):=list_ptr(p); delete_glue_ref(q);
-@y
- r:=get_node(small_node_size); type(r):=adjust_node;@/
- adjust_pre(r) := saved(1); {the |subtype| is used for |adjust_pre|}
- adjust_ptr(r):=list_ptr(p); delete_glue_ref(q);
-@z
-
-% [48] \vadjust pre
-@x
-@!t:pointer; {tail of adjustment list}
-@y
-@!t:pointer; {tail of adjustment list}
-@!pre_t:pointer; {tail of pre-adjustment list}
-@z
-
-% [48] \vadjust pre
-@x
-adjust_tail:=adjust_head; b:=hpack(p,natural); p:=list_ptr(b);
-t:=adjust_tail; adjust_tail:=null;@/
-@y
-adjust_tail:=adjust_head; pre_adjust_tail:=pre_adjust_head;
-b:=hpack(p,natural); p:=list_ptr(b);
-t:=adjust_tail; adjust_tail:=null;@/
-pre_t:=pre_adjust_tail; pre_adjust_tail:=null;@/
-@z
-
-% [48] \vadjust pre
-@x
-if t<>adjust_head then {migrating material comes after equation number}
- begin link(tail):=link(adjust_head); tail:=t;
- end;
-@y
-if t<>adjust_head then {migrating material comes after equation number}
- begin link(tail):=link(adjust_head); tail:=t;
- end;
-if pre_t<>pre_adjust_head then
- begin link(tail):=link(pre_adjust_head); tail:=pre_t;
- end;
-@z
-
-@x \[if]pdfprimitive: dump prim table
-@<Dump the hash table@>=
-@y
-@<Dump the hash table@>=
-for p:=0 to prim_size do dump_hh(prim[p]);
-@z
-
-@x \[if]pdfprimitive: undump prim table
-@ @<Undump the hash table@>=
-@y
-@ @<Undump the hash table@>=
-for p:=0 to prim_size do undump_hh(prim[p]);
-@z
-
-@x
-fix_date_and_time;@/
-@y
-fix_date_and_time;@/
-isprint_utf8:=false;
-random_seed:=(microseconds*1000)+(epochseconds mod 1000000);@/
-init_randoms(random_seed);@/
-@z
-
-@x
-@d language_node=4 {|subtype| in whatsits that change the current language}
-@y
-@d latespecial_node=4 {|subtype| in whatsits that represent \.{\\special} things}
-@d language_node=5 {|subtype| in whatsits that change the current language}
-@z
-
-@x
-@d immediate_code=4 {command modifier for \.{\\immediate}}
-@d set_language_code=5 {command modifier for \.{\\setlanguage}}
-@d epTeX_input_encoding_code=6 {command modifier for \.{\\epTeXinputencoding}}
-@y
-@d immediate_code=5 {command modifier for \.{\\immediate}}
-@d set_language_code=6 {command modifier for \.{\\setlanguage}}
-@d epTeX_input_encoding_code=7 {command modifier for \.{\\epTeXinputencoding}}
-@d pdf_save_pos_node=epTeX_input_encoding_code+1
-@d set_random_seed_code=pdf_save_pos_node+1
-@d reset_timer_code=set_random_seed_code+1
-@z
-
-@x
- set_language_code:print_esc("setlanguage");
-@y
- set_language_code:print_esc("setlanguage");
- pdf_save_pos_node: print_esc("pdfsavepos");
- set_random_seed_code: print_esc("pdfsetrandomseed");
- reset_timer_code: print_esc("pdfresettimer");
-@z
-
-@x
-set_language_code:@<Implement \.{\\setlanguage}@>;
-@y
-set_language_code:@<Implement \.{\\setlanguage}@>;
-pdf_save_pos_node: @<Implement \.{\\pdfsavepos}@>;
-set_random_seed_code: @<Implement \.{\\pdfsetrandomseed}@>;
-reset_timer_code: @<Implement \.{\\pdfresettimer}@>;
-@z
-
-@x
-@<Implement \.{\\special}@>=
-begin new_whatsit(special_node,write_node_size); write_stream(tail):=null;
-p:=scan_toks(false,true); write_tokens(tail):=def_ref;
-inhibit_glue_flag:=false;
-end
-@y
-@<Implement \.{\\special}@>=
-begin if scan_keyword("shipout") then
-begin new_whatsit(latespecial_node,write_node_size); write_stream(tail):=null;
-p:=scan_toks(false,false); write_tokens(tail):=def_ref;
-end else
-begin new_whatsit(special_node,write_node_size); write_stream(tail):=null;
-p:=scan_toks(false,true); write_tokens(tail):=def_ref;
-end;
-inhibit_glue_flag:=false;
-end
-@z
-
-@x
-special_node:begin print_esc("special");
- print_mark(write_tokens(p));
- end;
-@y
-special_node:begin print_esc("special");
- print_mark(write_tokens(p));
- end;
-latespecial_node:begin print_esc("special"); print(" shipout");
- print_mark(write_tokens(p));
- end;
-@z
-
-@x \pdfsavepos
- print_int(what_lhm(p)); print_char(",");
- print_int(what_rhm(p)); print_char(")");
- end;
-@y
- print_int(what_lhm(p)); print_char(",");
- print_int(what_rhm(p)); print_char(")");
- end;
-pdf_save_pos_node: print_esc("pdfsavepos");
-set_random_seed_code: print_esc("pdfsetrandomseed");
-reset_timer_code: print_esc("pdfresettimer");
-@z
-
-@x
-write_node,special_node: begin r:=get_node(write_node_size);
-@y
-write_node,special_node,latespecial_node: begin r:=get_node(write_node_size);
-@z
-
-@x \pdfsavepos
-close_node,language_node: begin r:=get_node(small_node_size);
- words:=small_node_size;
- end;
-@y
-close_node,language_node: begin r:=get_node(small_node_size);
- words:=small_node_size;
- end;
-pdf_save_pos_node:
- r := get_node(small_node_size);
-@z
-
-@x
-write_node,special_node: begin delete_token_ref(write_tokens(p));
-@y
-write_node,special_node,latespecial_node: begin delete_token_ref(write_tokens(p));
-@z
-
-@x \pdfsavepos
-close_node,language_node: free_node(p,small_node_size);
-@y
-close_node,language_node: free_node(p,small_node_size);
-pdf_save_pos_node: free_node(p, small_node_size);
-@z
-
-@x
-procedure special_out(@!p:pointer);
-var old_setting:0..max_selector; {holds print |selector|}
-@!k:pool_pointer; {index into |str_pool|}
-begin synch_h; synch_v;@/
-old_setting:=selector; selector:=new_string;
-show_token_list(link(write_tokens(p)),null,pool_size-pool_ptr);
-@y
-procedure special_out(@!p:pointer);
-label done;
-var old_setting:0..max_selector; {holds print |selector|}
-@!h:halfword;
-@!k:pool_pointer; {index into |str_pool|}
-@!q,@!r:pointer; {temporary variables for list manipulation}
-@!old_mode:integer; {saved |mode|}
-@!s,@!t,@!cw, @!num, @!denom: scaled;
-@!bl: boolean;
-@!i: small_number;
-begin synch_h; synch_v;@/
-old_setting:=selector;
-if subtype(p)=latespecial_node then
- begin @<Expand macros in the token list
- and make |link(def_ref)| point to the result@>;
- h:=def_ref;
- end
-else h:=write_tokens(p);
-selector:=new_string;
-show_token_list(link(h),null,pool_size-pool_ptr);
-@z
-
-@x
-pool_ptr:=str_start[str_ptr]; {erase the string}
-@y
-if read_papersize_special>0 then
- @<Determine whether this \.{\\special} is a papersize special@>;
-done: pool_ptr:=str_start[str_ptr]; {erase the string}
-if subtype(p)=latespecial_node then
- flush_list(def_ref);
-@z
-
-@x
-special_node:special_out(p);
-language_node:do_nothing;
-@y
-special_node,latespecial_node:special_out(p);
-language_node:do_nothing;
-pdf_save_pos_node:
- @<Save current position in DVI mode@>;
-@z
-
-@x
-primitive("eTeXrevision",convert,eTeX_revision_code);@/
-@!@:eTeX_revision_}{\.{\\eTeXrevision} primitive@>
-@y
-primitive("eTeXrevision",convert,eTeX_revision_code);@/
-@!@:eTeX_revision_}{\.{\\eTeXrevision} primitive@>
-primitive("pdfprimitive",no_expand,1);@/
-@!@:pdfprimitive_}{\.{\\pdfprimitive} primitive@>
-primitive("pdfstrcmp",convert,pdf_strcmp_code);@/
-@!@:pdf_strcmp_}{\.{\\pdfstrcmp} primitive@>
-primitive("pdfcreationdate",convert,pdf_creation_date_code);@/
-@!@:pdf_creation_date_}{\.{\\pdfcreationdate} primitive@>
-primitive("pdffilemoddate",convert,pdf_file_mod_date_code);@/
-@!@:pdf_file_mod_date_}{\.{\\pdffilemoddate} primitive@>
-primitive("pdffilesize",convert,pdf_file_size_code);@/
-@!@:pdf_file_size_}{\.{\\pdffilesize} primitive@>
-primitive("pdfmdfivesum",convert,pdf_mdfive_sum_code);@/
-@!@:pdf_mdfive_sum_}{\.{\\pdfmdfivesum} primitive@>
-primitive("pdffiledump",convert,pdf_file_dump_code);@/
-@!@:pdf_file_dump_}{\.{\\pdffiledump} primitive@>
-primitive("pdfsavepos",extension,pdf_save_pos_node);@/
-@!@:pdf_save_pos_}{\.{\\pdfsavepos} primitive@>
-primitive("pdfpagewidth",assign_dimen,dimen_base+pdf_page_width_code);@/
-@!@:pdf_page_width_}{\.{\\pdfpagewidth} primitive@>
-primitive("pdfpageheight",assign_dimen,dimen_base+pdf_page_height_code);@/
-@!@:pdf_page_height_}{\.{\\pdfpageheight} primitive@>
-primitive("pdflastxpos",last_item,pdf_last_x_pos_code);@/
-@!@:pdf_last_x_pos_}{\.{\\pdflastxpos} primitive@>
-primitive("pdflastypos",last_item,pdf_last_y_pos_code);@/
-@!@:pdf_last_y_pos_}{\.{\\pdflastypos} primitive@>
-primitive("pdfshellescape",last_item,pdf_shell_escape_code);
-@!@:pdf_shell_escape_}{\.{\\pdfshellescape} primitive@>
-primitive("ifpdfprimitive",if_test,if_pdfprimitive_code);
-@!@:if_pdfprimitive_}{\.{\\ifpdfprimitive} primitive@>
-primitive("pdfuniformdeviate",convert,uniform_deviate_code);@/
-@!@:uniform_deviate_}{\.{\\pdfuniformdeviate} primitive@>
-primitive("pdfnormaldeviate",convert,normal_deviate_code);@/
-@!@:normal_deviate_}{\.{\\pdfnormaldeviate} primitive@>
-primitive("pdfrandomseed",last_item,random_seed_code);
-@!@:random_seed_}{\.{\\pdfrandomseed} primitive@>
-primitive("pdfsetrandomseed",extension,set_random_seed_code);@/
-@!@:set_random_seed_code}{\.{\\pdfsetrandomseed} primitive@>
-primitive("pdfelapsedtime",last_item,elapsed_time_code);
-@!@:elapsed_time_}{\.{\\pdfelapsedtime} primitive@>
-primitive("pdfresettimer",extension,reset_timer_code);@/
-@!@:reset_timer_}{\.{\\pdfresettimer} primitive@>
-primitive("Uchar",convert,Uchar_convert_code);@/
-@!@:Uchar_}{\.{\\Uchar} primitive@>
-primitive("Ucharcat",convert,Ucharcat_convert_code);@/
-@!@:Ucharcat_}{\.{\\Ucharcat} primitive@>
-@z
-
-@x
-eTeX_version_code: print_esc("eTeXversion");
-@y
-eTeX_version_code: print_esc("eTeXversion");
-pdf_last_x_pos_code: print_esc("pdflastxpos");
-pdf_last_y_pos_code: print_esc("pdflastypos");
-elapsed_time_code: print_esc("pdfelapsedtime");
-pdf_shell_escape_code: print_esc("pdfshellescape");
-random_seed_code: print_esc("pdfrandomseed");
-@z
-
-@x
-eTeX_version_code: cur_val:=eTeX_version;
-@y
-eTeX_version_code: cur_val:=eTeX_version;
-pdf_last_x_pos_code: cur_val := pdf_last_x_pos;
-pdf_last_y_pos_code: cur_val := pdf_last_y_pos;
-pdf_shell_escape_code:
- begin
- if shellenabledp then begin
- if restrictedshell then cur_val :=2
- else cur_val := 1;
- end
- else cur_val := 0;
- end;
-elapsed_time_code: cur_val := get_microinterval;
-random_seed_code: cur_val := random_seed;
-@z
-
-@x
-primitive("iffontchar",if_test,if_font_char_code);
-@!@:if_font_char_}{\.{\\iffontchar} primitive@>
-@y
-primitive("iffontchar",if_test,if_font_char_code);
-@!@:if_font_char_}{\.{\\iffontchar} primitive@>
-primitive("ifincsname",if_test,if_in_csname_code);
-@!@:if_in_csname_}{\.{\\ifincsname} primitive@>
-@z
-
-@x
-if_font_char_code:print_esc("iffontchar");
-@y
-if_font_char_code:print_esc("iffontchar");
-if_in_csname_code:print_esc("ifincsname");
-@z
-
-@x
-if_cs_code:begin n:=get_avail; p:=n; {head of the list of characters}
- repeat get_x_token;
-@y
-if_cs_code:begin n:=get_avail; p:=n; {head of the list of characters}
- e := is_in_csname; is_in_csname := true;
- repeat get_x_token;
-@z
-
-@x
- b:=(eq_type(cur_cs)<>undefined_cs);
-@y
- b:=(eq_type(cur_cs)<>undefined_cs);
- is_in_csname := e;
-@z
-
-@x
-if_font_char_code:begin scan_font_ident; n:=cur_val;
-@y
-if_in_csname_code: b := is_in_csname;
-if_font_char_code:begin scan_font_ident; n:=cur_val;
-@z
-
-@x
-procedure print_kanji(@!s:KANJI_code); {prints a single character}
-begin
-if s>@"FF then
- begin print_char(@"100+Hi(s)); print_char(@"100+Lo(s));
- end else print_char(s);
-end;
-@y
-procedure print_kanji(@!s:integer); {prints a single character}
-begin
-if s>@"FF then begin
- if isprint_utf8 then begin
- s:=UCStoUTF8(toUCS(s));
- if BYTE1(s)<>0 then print_char(@"100+BYTE1(s));
- if BYTE2(s)<>0 then print_char(@"100+BYTE2(s));
- if BYTE3(s)<>0 then print_char(@"100+BYTE3(s));
- print_char(@"100+BYTE4(s));
- end
- else begin print_char(@"100+Hi(s)); print_char(@"100+Lo(s)); end;
-end
-else print_char(s);
-end;
-
-
-@z
-
-@x
-@* \[54] System-dependent changes.
-@y
-@* \[54/pdf\TeX] System-dependent changes for {\tt\char"5Cpdfstrcmp}.
-@d call_func(#) == begin if # <> 0 then do_nothing end
-@d flushable(#) == (# = str_ptr - 1)
-
-@<Glob...@>=
-@!isprint_utf8: boolean;
-@!epochseconds: integer;
-@!microseconds: integer;
-
-@
-@d max_integer == @"7FFFFFFF {$2^{31}-1$}
-
-@<Declare procedures that need to be declared forward for \pdfTeX@>=
-procedure pdf_error(t, p: str_number);
-begin
- normalize_selector;
- print_err("pdfTeX error");
- if t <> 0 then begin
- print(" (");
- print(t);
- print(")");
- end;
- print(": "); print(p);
- succumb;
-end;
-
-function get_microinterval:integer;
-var s,@!m:integer; {seconds and microseconds}
-begin
- seconds_and_micros(s,m);
- if (s-epochseconds)>32767 then
- get_microinterval := max_integer
- else if (microseconds>m) then
- get_microinterval := ((s-1-epochseconds)*65536)+ (((m+1000000-microseconds)/100)*65536)/10000
- else
- get_microinterval := ((s-epochseconds)*65536) + (((m-microseconds)/100)*65536)/10000;
-end;
-
-@ @<Declare procedures needed in |do_ext...@>=
-
-procedure compare_strings; {to implement \.{\\pdfstrcmp}}
-label done;
-var s1, s2: str_number;
- i1, i2, j1, j2: pool_pointer;
- c1, c2: integer;
- save_cur_cs: pointer;
-begin
- save_cur_cs:=cur_cs; call_func(scan_toks(false, true));
- isprint_utf8:=true; s1 := tokens_to_string(def_ref); isprint_utf8:=false;
- delete_token_ref(def_ref);
- cur_cs:=save_cur_cs; call_func(scan_toks(false, true));
- isprint_utf8:=true; s2 := tokens_to_string(def_ref); isprint_utf8:=false;
- delete_token_ref(def_ref);
- i1 := str_start[s1];
- j1 := str_start[s1 + 1];
- i2 := str_start[s2];
- j2 := str_start[s2 + 1];
- while (i1 < j1) and (i2 < j2) do begin
- if str_pool[i1]>=@"100 then c1:=str_pool[i1]-@"100 else c1:=str_pool[i1];
- if str_pool[i2]>=@"100 then c2:=str_pool[i2]-@"100 else c2:=str_pool[i2];
- if c1<c2 then begin cur_val := -1; goto done; end
- else if c1>c2 then begin cur_val := 1; goto done; end;
- incr(i1);
- incr(i2);
- end;
- if (i1 = j1) and (i2 = j2) then
- cur_val := 0
- else if i1 < j1 then
- cur_val := 1
- else
- cur_val := -1;
-done:
- flush_str(s2);
- flush_str(s1);
- cur_val_level := int_val;
-end;
-
-@ Next, we implement \.{\\pdfsavepos} and related primitives.
-
-@<Glob...@>=
-@!cur_page_width: scaled; {"physical" width of page being shipped}
-@!cur_page_height: scaled; {"physical" height of page being shipped}
-@!pdf_last_x_pos: integer;
-@!pdf_last_y_pos: integer;
-
-@ @<Implement \.{\\pdfsavepos}@>=
-begin
- new_whatsit(pdf_save_pos_node, small_node_size);
- inhibit_glue_flag:=false;
-end
-
-@ @<Save current position in DVI mode@>=
-begin
- case dvi_dir of
- dir_yoko: begin pdf_last_x_pos := cur_h; pdf_last_y_pos := cur_v; end;
- dir_tate: begin pdf_last_x_pos := -cur_v; pdf_last_y_pos := cur_h; end;
- dir_dtou: begin pdf_last_x_pos := cur_v; pdf_last_y_pos := -cur_h; end;
- endcases;
- pdf_last_x_pos := pdf_last_x_pos + 4736286;
- pdf_last_y_pos := cur_page_height - pdf_last_y_pos - 4736286;
- {4736286 = 1in, the funny DVI origin offset}
-end
-
-@ @<Calculate DVI page dimensions and margins@>=
- if pdf_page_height <> 0 then
- cur_page_height := pdf_page_height
- else if (box_dir(p)=dir_tate)or(box_dir(p)=dir_dtou) then
- cur_page_height := width(p) + 2*v_offset + 2*4736286
- else
- cur_page_height := height(p) + depth(p) + 2*v_offset + 2*4736286;
- {4736286 = 1in, the funny DVI origin offset}
- if pdf_page_width <> 0 then
- cur_page_width := pdf_page_width
- else if (box_dir(p)=dir_tate)or(box_dir(p)=dir_dtou) then
- cur_page_width := height(p) + depth(p) + 2*h_offset + 2*4736286
- else
- cur_page_width := width(p) + 2*h_offset + 2*4736286
- {4736286 = 1in, the funny DVI origin offset}
-
-
-@ Of course \epTeX\ can produce a \.{DVI} file only, not a PDF file.
-A \.{DVI} file does not have the information of the page height,
-which is needed to implement \.{\\pdflastypos} correctly.
-To keep the information of the page height, I (H.~Kitagawa)
-adopted \.{\\pdfpageheight} primitive from pdf\TeX.
-
-In \pTeX (and \hbox{\epTeX}), the papersize special
-\.{\\special\{papersize=\<width>,\<height>\}} is commonly used
-for specifying page width/height.
-If \.{\\readpapersizespecial} is greater than~0, the papersize special also
-changes the value of \.{\\pdfpagewidth} and \.{\\pdfpageheight}.
-This process is done in the following routine.
-
-{\def\<#1>{\langle\hbox{#1\/}\rangle}
-In present implementation, the papersize special $\<special>$,
-which can be interpreted by this routine, is defined as follows.
-$$\eqalign{%
- \<special> &\longrightarrow \.{papersize=}\<length>\.{,}\<length>\cr
- \<length> &\longrightarrow \<decimal>
- \<optional~\.{true}>\<physical unit>\cr
- \<decimal> &\longrightarrow \.{.} \mid \<digit>\<decimal> \mid
- \<decimal>\<digit>\cr
-}$$}
-Note that any space, ``\.{,}'' as a decimal separator, minus~symbol
-are neither permitted.
-
-@d ifps(#)==@+if k+(#)>pool_ptr then goto done @+ else @+ if
-@d sop(#)==so(str_pool[#])
-@f ifps==if
-
-@<Determine whether this \.{\\special} is a papersize special@>=
-begin k:=str_start[str_ptr];@/
-ifps(10) @,
- (sop(k+0)<>'p')or(sop(k+1)<>'a')or(sop(k+2)<>'p')or
- (sop(k+3)<>'e')@|or(sop(k+4)<>'r')or(sop(k+5)<>'s')or
- (sop(k+6)<>'i')or(sop(k+7)<>'z')@|or(sop(k+8)<>'e')or
- (sop(k+9)<>'=') then goto done;
-k:=k+10;
-@<Read dimensions in the argument in the papersize special@>;
-ifps(1) @, sop(k)=',' then begin
- incr(k); cw:=s;
- @<Read dimensions in the argument in the papersize special@>;
- if pool_ptr>k then goto done;
- geq_word_define(dimen_base+pdf_page_width_code,cw);
- geq_word_define(dimen_base+pdf_page_height_code,s);@|
- cur_page_height := s; cur_page_width := cw;
-end;
-end;
-
-@
-
-@d if_ps_unit(#)==if bl then @+ begin @+ ifps(2) sop(k)=(#) @, if_ps_unit_two
-@d if_ps_unit_two(#)==and (sop(k+1)=(#)) then begin bl:=false; k:=k+2; if_ps_unit_end
-@d if_ps_unit_end(#)==# @+ end @+ end;
-
-@d do_ps_conversion(#)==num:=#; do_ps_conversion_end
-@d do_ps_conversion_end(#)==
- s:=xn_over_d(s,num,#); s:=s*unity+((num*t+@'200000*remainder) div #)
-
-@<Read dimensions in the argument in the papersize special@>=
-s:=0; t:=0; bl:=true;
-while (k<pool_ptr)and bl do
- if (sop(k)>='0')and (sop(k)<='9') then begin s:=10*s+sop(k)-'0'; incr(k); @+end
- else bl:=false;
-ifps(1) sop(k)='.' then
- begin incr(k); bl:=true; i:=0; dig[0]:=0;
- while (k<pool_ptr)and bl do begin
- if (sop(k)>='0')and (sop(k)<='9') then
- begin if i<17 then begin dig[i]:=sop(k)-'0'; incr(i); @+end;
- incr(k); end
- else bl:=false;
- end;
- t:=round_decimals(i);
- end;
-if k+4>pool_ptr then
- if (sop(k)='t')and(sop(k+1)='r')and(sop(k+2)='u')and(sop(k+3)='e') then
- k:=k+4;
-if mag<>1000 then
- begin s:=xn_over_d(s,1000,mag);
- t:=(1000*t+@'200000*remainder) div mag;
- s:=s+(t div @'200000); t:=t mod @'200000;
-end;
-bl:=true;@/
-if_ps_unit('p')('t')(s:=s*unity+t)@/
-if_ps_unit('i')('n')(do_ps_conversion(7227)(100))@/
-if_ps_unit('p')('c')(do_ps_conversion(12)(1))@/
-if_ps_unit('c')('m')(do_ps_conversion(7227)(254))@/
-if_ps_unit('m')('m')(do_ps_conversion(7227)(2540))@/
-if_ps_unit('b')('p')(do_ps_conversion(7227)(7200))@/
-if_ps_unit('d')('d')(do_ps_conversion(1238)(1157))@/
-if_ps_unit('c')('c')(do_ps_conversion(14856)(1157))@/
-if_ps_unit('s')('p')(do_nothing)
-
-@ Finally, we declare some routine needed for \.{\\pdffilemoddate}.
-
-@<Glob...@>=
-@!isprint_utf8: boolean;
-@!last_tokens_string: str_number; {the number of the most recently string
-created by |tokens_to_string|}
-
-@ @<Declare procedures needed in |do_ext...@>=
-procedure scan_pdf_ext_toks;
-begin
- call_func(scan_toks(false, true)); {like \.{\\special}}
-end;
-
-@ @<Declare procedures that need to be declared forward for \pdfTeX@>=
-function tokens_to_string(p: pointer): str_number; {return a string from tokens
-list}
-begin
- if selector = new_string then
- pdf_error("tokens", "tokens_to_string() called while selector = new_string");
- old_setting:=selector; selector:=new_string;
- show_token_list(link(p),null,pool_size-pool_ptr);
- selector:=old_setting;
- last_tokens_string := make_string;
- tokens_to_string := last_tokens_string;
-end;
-procedure flush_str(s: str_number); {flush a string if possible}
-begin
- if flushable(s) then
- flush_string;
-end;
-
-@ @<Set initial values of key variables@>=
- seconds_and_micros(epochseconds,microseconds);
- init_start_time;
-
-@ Negative random seed values are silently converted to positive ones
-
-@<Implement \.{\\pdfsetrandomseed}@>=
-begin
- scan_int;
- if cur_val<0 then negate(cur_val);
- random_seed := cur_val;
- init_randoms(random_seed);
-end
-
-@ @<Implement \.{\\pdfresettimer}@>=
-begin
- seconds_and_micros(epochseconds,microseconds);
-end
-
-@* \[54] System-dependent changes.
-@z
diff --git a/Build/source/texk/web2c/eptexdir/suppresserrors.ch b/Build/source/texk/web2c/eptexdir/suppresserrors.ch
deleted file mode 100644
index 07049dd3533..00000000000
--- a/Build/source/texk/web2c/eptexdir/suppresserrors.ch
+++ /dev/null
@@ -1,138 +0,0 @@
-%% suppresserrors.ch: support ``suppressing errors'' primitives in LuaTeX
-%%
-%% \suppresslongerror done
-%% \suppressoutererror done
-%% \suppressmathparerror done
-%% The followings are not implemented to e-(u)pTeX:
-%% % \suppressifcsnameerror
-%% % \suppressfontnotfounderror -> we have an error from mktextfm etc. anyway
-%% % \suppressprimitiveerror -> e-(u)pTeX does not produce errors in \pdfprimitive
-
-@x
-@d eTeX_state_code=etex_int_base+10 {\eTeX\ state variables}
-@y
-@d suppress_long_error_code=etex_int_base+10
-@d suppress_outer_error_code=etex_int_base+11
-@d suppress_mathpar_error_code=etex_int_base+12
-@d eTeX_state_code=etex_int_base+13 {\eTeX\ state variables}
-@z
-
-@x
-@d read_papersize_special==int_par(read_papersize_special_code)
-@y
-@d read_papersize_special==int_par(read_papersize_special_code)
-@d suppress_long_error==int_par(suppress_long_error_code)
-@d suppress_outer_error==int_par(suppress_outer_error_code)
-@d suppress_mathpar_error==int_par(suppress_mathpar_error_code)
-@z
-
-@x {Perhaps this change hunk is not needed}
-@p procedure check_outer_validity;
-var p:pointer; {points to inserted token list}
-@!q:pointer; {auxiliary pointer}
-begin if scanner_status<>normal then
-@y
-@p procedure check_outer_validity;
-var p:pointer; {points to inserted token list}
-@!q:pointer; {auxiliary pointer}
-begin if suppress_outer_error=0 then if scanner_status<>normal then
-@z
-
-@x @<Finish line, emit a \.{\\par}@>
-if cur_cmd>=outer_call then check_outer_validity;
-@y
-if (suppress_outer_error=0)and(cur_cmd>=outer_call) then check_outer_validity;
-@z
-
-@x @<Process an active-character...@>
-if cur_cmd>=outer_call then check_outer_validity;
-@y
-if (suppress_outer_error=0)and(cur_cmd>=outer_call) then check_outer_validity;
-@z
-
-@x @<Scan a control...@>
-if cur_cmd>=outer_call then check_outer_validity;
-@y
-if (suppress_outer_error=0)and(cur_cmd>=outer_call) then check_outer_validity;
-@z
-
-@x @<Input from token list, |goto restart| ...@>
- if cur_cmd=dont_expand then
- @<Get the next token, suppressing expansion@>
- else check_outer_validity;
-@y
- if cur_cmd=dont_expand then
- @<Get the next token, suppressing expansion@>
- else if suppress_outer_error=0 then check_outer_validity;
-@z
-
-@x @<Read next line of file into |buffer|, ...>
- end_file_reading; {resume previous level}
- check_outer_validity; goto restart;
-@y
- end_file_reading; {resume previous level}
- if suppress_outer_error=0 then check_outer_validity; goto restart;
-@z
-
-@x
-if cur_tok=par_token then if long_state<>long_call then
- @<Report a runaway argument and abort@>;
-@y
-if cur_tok=par_token then if long_state<>long_call then
- if suppress_long_error=0 then @<Report a runaway argument and abort@>;
-@z
-
-@x
- if cur_tok=par_token then if long_state<>long_call then
- @<Report a runaway argument and abort@>;
-@y
- if cur_tok=par_token then if long_state<>long_call then
- if suppress_long_error=0 then @<Report a runaway argument and abort@>;
-@z
-
-@x
-@<Math-only cases in non-math modes, or vice versa@>: insert_dollar_sign;
-@y
-@<Math-only cases in non-math modes, or vice versa@>: insert_dollar_sign;
-mmode+par_end: if suppress_mathpar_error=0 then insert_dollar_sign;
-@z
-
-@x
-mmode+endv, mmode+par_end, mmode+stop, mmode+vskip, mmode+un_vbox,
-mmode+valign, mmode+hrule
-@y
-mmode+endv, mmode+stop, mmode+vskip, mmode+un_vbox,
-mmode+valign, mmode+hrule
-@z
-
-@x after_math
-@<Check that another \.\$ follows@>=
-begin get_x_token;
-@y
-@<Check that another \.\$ follows@>=
-begin repeat get_x_token;
-until (suppress_mathpar_error=0)or(cur_cmd<>par_end);
-@z
-
-@x
-primitive("readpapersizespecial",assign_int,int_base+read_papersize_special_code);@/
-@!@:read_papersize_special_}{\.{\\readpapersizespecial} primitive@>
-@y
-primitive("readpapersizespecial",assign_int,int_base+read_papersize_special_code);@/
-@!@:read_papersize_special_}{\.{\\readpapersizespecial} primitive@>
-primitive("suppresslongerror",assign_int,int_base+suppress_long_error_code);@/
-@!@:suppress_long_error_}{\.{\\suppresslongerror} primitive@>
-primitive("suppressoutererror",assign_int,int_base+suppress_outer_error_code);@/
-@!@:suppress_outer_error_}{\.{\\suppressoutererror} primitive@>
-primitive("suppressmathparerror",assign_int,int_base+suppress_mathpar_error_code);@/
-@!@:suppress_mathpar_error_}{\.{\\suppressmathparerror} primitive@>
-@z
-
-@x
-read_papersize_special_code:print_esc("readpapersizespecial");
-@y
-read_papersize_special_code:print_esc("readpapersizespecial");
-suppress_long_error_code: print_esc("suppresslongerror");
-suppress_outer_error_code: print_esc("suppressoutererror");
-suppress_mathpar_error_code: print_esc("suppressmathparerror");
-@z
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdfprimitive-eptex.log b/Build/source/texk/web2c/eptexdir/tests/pdfprimitive-eptex.log
deleted file mode 100644
index 81688a1f803..00000000000
--- a/Build/source/texk/web2c/eptexdir/tests/pdfprimitive-eptex.log
+++ /dev/null
@@ -1,57 +0,0 @@
-entering extended mode
- restricted \write18 enabled.
- %&-line parsing enabled.
-**pdfprimitive-eptex
-(./pdfprimitive-eptex.tex
-RELAX macro:->\message {RELAX} FUGA F T F F F
-> \pdfstrcmp=\pdfstrcmp.
-l.28 \show\pdfstrcmp
- % ==> \pdfstrcmp
-
-T T
-! Undefined control sequence.
-l.35 \setbox0=\vbox{\pdfprimitive\ \undefined
- }
-The control sequence at the end of the top line
-of your error message was never \def'ed. If you have
-misspelled it (e.g., `\hobx'), type `I' and the correct
-spelling (e.g., `I\hbox'). Otherwise just continue,
-and I'll forget about whatever was undefined.
-
-! Undefined control sequence.
-l.37 \setbox0=\vbox{\pdfprimitive\vrule\undefined
- }
-The control sequence at the end of the top line
-of your error message was never \def'ed. If you have
-misspelled it (e.g., `\hobx'), type `I' and the correct
-spelling (e.g., `I\hbox'). Otherwise just continue,
-and I'll forget about whatever was undefined.
-
-
-Overfull \hbox (0.4pt too wide) in paragraph at lines 37--37
-[]|
-
-\hbox(0.0+0.0)x0.0 []
-
-<1>
-! Missing number, treated as zero.
-<to be read again>
- \-
-l.43 \count42=\pdfprimitive\-
- 2\A
-A number should have been here; I inserted `0'.
-(If you can't figure out why I needed to see a number,
-look up `weird error' in the index to The TeXbook.)
-
-<0>
-! Missing number, treated as zero.
-<to be read again>
- \vrule
-l.44 \count42=\pdfprimitive\vrule
- 3\A
-A number should have been here; I inserted `0'.
-(If you can't figure out why I needed to see a number,
-look up `weird error' in the index to The TeXbook.)
-
-<0> )
-No pages of output.
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdfprimitive-test.tex b/Build/source/texk/web2c/eptexdir/tests/pdfprimitive-test.tex
deleted file mode 100644
index 2f7211d26c7..00000000000
--- a/Build/source/texk/web2c/eptexdir/tests/pdfprimitive-test.tex
+++ /dev/null
@@ -1,47 +0,0 @@
-%#!euptex pdfprimitive-test.tex
-\catcode`\{=1\catcode`\}=2
-\scrollmode
-\catcode`\Q=14
-\ifdefined\pdfprimitive\else\catcode`\Q=11 \fi
-
-Q\let\pdfprimitive\primitive\let\ifpdfprimitive\ifprimitive
-\catcode`\Q=11
-
-\def\relax{\message{RELAX}}
-\def\fuga{\message{FUGA}}
-\let\input=\halign
-
-\relax % ==> RELAX
-\pdfprimitive\relax % ==> (no output)
-\message{\meaning\relax} % ==> macro:->\message {RELAX}
-
-\fuga % ==> FUGA
-\pdfprimitive\fuga % ==> ``! Missing primitive name.'' error
-
-\ifpdfprimitive\relax\message{T}\else\message{F}\fi % ==> F (macro)
-\ifpdfprimitive\par\message{T}\else\message{F}\fi % ==> T
-\ifpdfprimitive\input\message{T}\else\message{F}\fi % ==> F
- % (This \input is not ``primitive \input''.)
-\ifpdfprimitive\hoge\message{T}\else\message{F}\fi % ==> F (undefined)
-\ifpdfprimitive\fuga\message{T}\else\message{F}\fi % ==> F (macro)
-
-\show\pdfstrcmp % ==> \pdfstrcmp
-
-% fix for overwriting entries (170924)
-\ifpdfprimitive\ \message{T}\else\message{F}\fi % ==> T
-\ifpdfprimitive\vrule\message{T}\else\message{F}\fi % ==> T
-
-% fix for back_input in vertical mode (170924)
-\setbox0=\vbox{\pdfprimitive\ \undefined}
-% ==> ``! Undefined control sequence.'' error
-\setbox0=\vbox{\pdfprimitive\vrule\undefined}
-% ==> ``! Undefined control sequence.'' error
-
-\setbox0=\hbox{%
- \def\A{\message{<\the\count42>}\ignorespaces}
- \count42=\pdfprimitive\X 1\A
- \count42=\pdfprimitive\- 2\A
- \count42=\pdfprimitive\vrule 3\A
-}
-
-\end
diff --git a/Build/source/texk/web2c/eptexdir/wcfname.test b/Build/source/texk/web2c/eptexdir/wcfname.test
deleted file mode 100755
index 628ec54cd99..00000000000
--- a/Build/source/texk/web2c/eptexdir/wcfname.test
+++ /dev/null
@@ -1,131 +0,0 @@
-#! /bin/sh -vx
-#
-# Copyright 2022-2023 Japanese TeX Development Community <issue@texjp.org>
-# You may freely use, modify and/or distribute this file.
-
-engine=eptex
-testdir=eptests
-
-KpsDir=${KpsDir:-../kpathsea}
-BinDir=${BinDir:-.}
-ExeExt=${ExeExt:-}
-_kpsewhich=$KpsDir/kpsewhich$ExeExt
-_tex=$BinDir/$engine$ExeExt
-
-test -d $testdir || mkdir -p $testdir
-rm -f $testdir/fn*.log $testdir/fn*.txt $testdir/fn*-tmp*.tex
-
-rc=0; err1=; err2=; err3=; err4=
-
-TEXMFCNF=$srcdir/../kpathsea; export TEXMFCNF
-TEXINPUTS="$testdir;."; export TEXINPUTS
-
-$_kpsewhich -var-value=TEXMFCNF
-$_kpsewhich -progname=$engine -var-value=TEXINPUTS
-$_kpsewhich -progname=$engine -var-value=command_line_encoding
-$_kpsewhich -progname=$engine -var-value=guess_input_kanji_encoding
-
-for loc in C.UTF-8 C.utf8 en_US.UTF-8 en_US.utf8 ja_JP.UTF-8 ja_JP.utf8; do
- locale -a | grep "^$loc\$"
- ret=$?
- # For Slackware linux, we need to replace from utf8 to UTF-8
- if [ -f /etc/slackware-version ]; then
- loc=`echo $loc | sed -e "s/utf8/UTF-8/"`
- fi
- if [ $ret = 0 ]; then
- LC_ALL=$loc; LANGUAGE=$loc; export LC_ALL LANGUAGE
- break
- fi
-done
-if [ $ret != 0 ]; then
- # linux musl fails to run `locale -a` but seems to have C.UTF-8
- loc=C.UTF-8
- LC_ALL=$loc; LANGUAGE=$loc; export LC_ALL LANGUAGE
-fi
-
-if [ "$COMSPEC" != "" ] || [ "$ExeExt" = ".exe" ]; then
- echo "*** We guess OS is Windows."
- MyOS=Windows
- try_ienc="sjis"
-else
- echo "*** We guess OS is not Windows."
- MyOS=nonWindows
- try_ienc="euc sjis"
-fi
-if [ "$ExeExt" = ".exe" ]; then
- opt_win=-windows
-else
- opt_win=
-fi
-
-perl -s $srcdir/tests/fn-generate.perl $opt_win -randgen=pdfuniformdeviate $testdir
-pret=$?
-if [ $pret != 0 ] && [ $pret != 239 ]; then
- exit 77
-fi
-
-# pTeX internal encoding
-fenc="utf8"
-for ienc in $try_ienc; do
-for doc in fn-$fenc fnさざ波-$fenc; do
-
- echo '>>> Document:'$doc ' File Encoding:'$fenc ' Internal Encoding:'$ienc
- job=$doc-$ienc-ep
- $_kpsewhich -progname=$engine $doc.tex || rc=10
- $_kpsewhich -progname=$engine fn±×÷§¶-utf8.tex || rc=11
- rm -f $testdir/$doc-tmp.tex $testdir/$doc-$ienc.txt $testdir/$doc-$ienc.log
- $_tex -ini -interaction nonstopmode -jobname=$job -kanji=$fenc --kanji-internal=$ienc --shell-escape -etex --recorder $doc.tex >$testdir/$doc-$fenc-$ienc-term.log || \
- { rc=1 ; err1=$err1" $fenc:$ienc:$doc" ; }
- $_kpsewhich -progname=$engine $doc-tmp.tex || rc=12
- mv $job.txt $job.log $testdir/ || rc=14
- mv $job.fls $testdir/ || : echo "FIXME" # check *.fls
- diff $testdir/$job.txt $srcdir/tests/fn-$fenc.txt || \
- { rc=2 ; err2=$err2" $fenc:$ienc:$doc" ; }
- rm -f $testdir/fn±×÷§¶-utf8-tmp.tex
-
-done
-done
-
-if [ $pret = 239 ]; then
- echo "*** skip tests for Shift_JIS & EUC-JP."
- exit 0
-fi
-
-
-# pTeX, regacy encoding
-for fenc in sjis euc; do
-for doc in fnさざ波-$fenc; do
-
- ienc=$fenc
- if [ $MyOS = Windows ]; then
- ienc="sjis"
- else
- if [ $fenc != sjis ]; then ienc="euc"; fi
- fi
-
- echo '>>> Document:'$doc ' File Encoding:'$fenc ' Internal Encoding:'$ienc
- job=$doc-$ienc-ep
- $_kpsewhich -progname=$engine $doc.tex || rc=20
- $_kpsewhich -progname=$engine fn±×÷§¶-utf8.tex || rc=21
- rm -f $testdir/$doc-tmp.tex $testdir/$job.txt $testdir/$job.log
- $_tex -ini -interaction nonstopmode -jobname=$job -kanji=$fenc --kanji-internal=$ienc --shell-escape -etex --recorder $doc.tex >$testdir/$doc-$fenc-$ienc-term.log || \
- { rc=3 ; err3=$err3" $fenc:$ienc:$doc" ; }
- $_kpsewhich -progname=$engine $doc-tmp.tex || rc=22
- mv $job.txt $job.log $testdir/ || rc=24
- mv $job.fls $testdir/ || : echo "FIXME" # check *.fls
- diff $testdir/$job.txt $srcdir/tests/fn-$fenc.txt || \
- { rc=4 ; err4=$err4" $fenc:$ienc:$doc" ; }
-
-done
-done
-
-
-if [ $rc -gt 0 ]; then
- if [ -n "$err1" ]; then echo ERROR1 $err1; fi
- if [ -n "$err2" ]; then echo ERROR2 $err2; fi
- if [ -n "$err3" ]; then echo ERROR3 $err3; fi
- if [ -n "$err4" ]; then echo ERROR4 $err4; fi
-else
- echo PASS
-fi
-exit $rc
diff --git a/Build/source/texk/web2c/etexdir/ChangeLog b/Build/source/texk/web2c/etexdir/ChangeLog
index d142e6c67e5..16713e0691c 100644
--- a/Build/source/texk/web2c/etexdir/ChangeLog
+++ b/Build/source/texk/web2c/etexdir/ChangeLog
@@ -1,3 +1,8 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * etriptest.test:
+ Filter Web2C year/dev in banner.
+
2024-03-10 Karl Berry <karl@tug.org>
* TL'24 release.
diff --git a/Build/source/texk/web2c/etexdir/etriptest.test b/Build/source/texk/web2c/etexdir/etriptest.test
index 5b8807003eb..34e7ed02a20 100755
--- a/Build/source/texk/web2c/etexdir/etriptest.test
+++ b/Build/source/texk/web2c/etexdir/etriptest.test
@@ -29,7 +29,7 @@ cat >filter <<-\_EOF
s,^(trip\.tex ##,**(./trip.tex ##,
s,^## (\./trip\.tex,**(./trip.tex ##,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/(preloaded format=.*tex)/(INITEX)/
s/format=trip [^)][^)]*)/format=trip)/
s/) [0-9A-Z: ]*$/)/
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog
index 181edf616e8..4d074d004c9 100644
--- a/Build/source/texk/web2c/euptexdir/ChangeLog
+++ b/Build/source/texk/web2c/euptexdir/ChangeLog
@@ -1,3 +1,19 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * epTeX_doc/{{README,Changes}.txt,ChangeLog,eptex-base.ch},
+ tests/{{fontchar,pdforigin}.{sh,tex},{lastnodefont,
+ lastnodesubtype_math,pdfpagewidth,pdfsavepos,
+ printkanji-eptex,suppress_errors,uchar,zero_search}.tex},
+ euptrip/eptrip.{tex,log}, unbalanced-braces-eptex.ch:
+ Move from ../eptexdir/*.
+ * am/euptex.am, euptexextra.h, e{,u}ptriptest.test,
+ pdfprimitive.test: Remove eptex and eptexdir.
+ We already use alias of e-upTeX (euptex)
+ and will never build e-pTeX binary (eptex).
+ https://github.com/texjporg/tex-jp-build/issues/32
+ * e{,u}ptriptest.test:
+ Filter Web2C year/dev in banner.
+
2024-03-10 Karl Berry <karl@tug.org>
* TL'24 release.
diff --git a/Build/source/texk/web2c/euptexdir/am/euptex.am b/Build/source/texk/web2c/euptexdir/am/euptex.am
index a4d83023adf..9c4ced1d3b4 100644
--- a/Build/source/texk/web2c/euptexdir/am/euptex.am
+++ b/Build/source/texk/web2c/euptexdir/am/euptex.am
@@ -12,12 +12,10 @@ bin_PROGRAMS += euptex
if !UPTEX
bin_links += euptex$(EXEEXT):uptex
endif !UPTEX
-if !EPTEX
bin_links += euptex$(EXEEXT):eptex
if !PTEX
bin_links += euptex$(EXEEXT):ptex
endif !PTEX
-endif !EPTEX
endif EUPTEX
EXTRA_PROGRAMS += euptex
@@ -83,7 +81,7 @@ euptex_ch_srcs = \
euptexdir/pdfutils.ch \
euptexdir/pdfstrcmp-eup-post.ch \
euptexdir/suppresserrors.ch \
- eptexdir/unbalanced-braces-eptex.ch \
+ euptexdir/unbalanced-braces-eptex.ch \
euptexdir/char-warning-eptex.ch \
tex-binpool.ch
diff --git a/Build/source/texk/web2c/eptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/epTeX_doc/ChangeLog
index c96a43d6fea..c96a43d6fea 100644
--- a/Build/source/texk/web2c/eptexdir/ChangeLog
+++ b/Build/source/texk/web2c/euptexdir/epTeX_doc/ChangeLog
diff --git a/Build/source/texk/web2c/eptexdir/Changes.txt b/Build/source/texk/web2c/euptexdir/epTeX_doc/Changes.txt
index 20740858502..20740858502 100644
--- a/Build/source/texk/web2c/eptexdir/Changes.txt
+++ b/Build/source/texk/web2c/euptexdir/epTeX_doc/Changes.txt
diff --git a/Build/source/texk/web2c/eptexdir/README.txt b/Build/source/texk/web2c/euptexdir/epTeX_doc/README.txt
index fb612b8a999..fb612b8a999 100644
--- a/Build/source/texk/web2c/eptexdir/README.txt
+++ b/Build/source/texk/web2c/euptexdir/epTeX_doc/README.txt
diff --git a/Build/source/texk/web2c/eptexdir/eptex-base.ch b/Build/source/texk/web2c/euptexdir/epTeX_doc/eptex-base.ch
index 7f18c7b1132..7f18c7b1132 100644
--- a/Build/source/texk/web2c/eptexdir/eptex-base.ch
+++ b/Build/source/texk/web2c/euptexdir/epTeX_doc/eptex-base.ch
diff --git a/Build/source/texk/web2c/euptexdir/eptriptest.test b/Build/source/texk/web2c/euptexdir/eptriptest.test
index a3416f09207..3dc387cf957 100755
--- a/Build/source/texk/web2c/euptexdir/eptriptest.test
+++ b/Build/source/texk/web2c/euptexdir/eptriptest.test
@@ -17,9 +17,9 @@ LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE
testdir=$abs_srcdir/triptrap
etestdir=$abs_srcdir/etexdir/etrip
-eptestdir=$abs_srcdir/eptexdir/eptrip
+euptestdir=$abs_srcdir/euptexdir/euptrip
-TEXMFCNF=$eptestdir; export TEXMFCNF
+TEXMFCNF=$euptestdir; export TEXMFCNF
rm -rf eupptripdir
mkdir eupptripdir
@@ -33,7 +33,7 @@ cat >filter <<-\_EOF
s,^(trip\.tex ##,**(./trip.tex ##,
s,^## (\./trip\.tex,**(./trip.tex ##,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/(preloaded format=.*tex)/(INITEX)/
s/format=trip [^)][^)]*)/format=trip)/
s/) [0-9A-Z: ]*$/)/
@@ -80,7 +80,7 @@ cat >filter1 <<-\_EOF
dvitype_args="-output-level=2 -dpi=72.27 -page-start='*.*.*.*.*.*.*.*.*.*'"
echo ">>> Running e-TRIP test for e-upTeX-euc." >&2
-echo ">>> See $eptestdir/eptrip.diffs for example of acceptable diffs." >&2
+echo ">>> See $euptestdir/eptrip.diffs for example of acceptable diffs." >&2
# pTeX outputs direction of boxes.
P_SED1='s/, yoko direction//;s/yoko direction, //'
@@ -182,7 +182,7 @@ $_tftopl ./etrip.tfm etrip.pl || exit 1
diff $etestdir/etrip.pl etrip.pl || is_OK=false
# get same filename in log
-$LN_S $eptestdir/eptrip.tex etrip.tex
+$LN_S $euptestdir/eptrip.tex etrip.tex
$_euptex --kanji-internal=euc --progname=epinitex --ini <$etestdir/etrip2.in >eptripin.fot
if test ! -s etrip.fmt; then
@@ -199,7 +199,7 @@ sed "$P_SED1;$P_SED2" etrip.log > eptrip.log
# We use $DIFF instead of `diff' only for those files where there
# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $eptestdir/eptrip.log eptrip.log
+$DIFF $DIFFFLAGS $euptestdir/eptrip.log eptrip.log
mv etrip.out eptrip.out
diff $etestdir/etrip.out eptrip.out
diff --git a/Build/source/texk/web2c/euptexdir/euptexextra.h b/Build/source/texk/web2c/euptexdir/euptexextra.h
index b448b3d8273..99a42d28a91 100644
--- a/Build/source/texk/web2c/euptexdir/euptexextra.h
+++ b/Build/source/texk/web2c/euptexdir/euptexextra.h
@@ -3,7 +3,7 @@
This is included by e-upTeX, from euptexextra.c
*/
-#include <eptexdir/eptex_version.h> /* for EPTEX_VERSION */
+#include <euptexdir/eptex_version.h> /* for EPTEX_VERSION */
#include <etexdir/etex_version.h> /* for ETEX_VERSION */
#include <ptexdir/ptex_version.h> /* for PTEX_VERSION */
#include <uptexdir/uptex_version.h> /* for UPTEX_VERSION */
diff --git a/Build/source/texk/web2c/eptexdir/eptrip/eptrip.log b/Build/source/texk/web2c/euptexdir/euptrip/eptrip.log
index 1d166fdd58a..1d166fdd58a 100644
--- a/Build/source/texk/web2c/eptexdir/eptrip/eptrip.log
+++ b/Build/source/texk/web2c/euptexdir/euptrip/eptrip.log
diff --git a/Build/source/texk/web2c/eptexdir/eptrip/eptrip.tex b/Build/source/texk/web2c/euptexdir/euptrip/eptrip.tex
index 6d359151e47..6d359151e47 100644
--- a/Build/source/texk/web2c/eptexdir/eptrip/eptrip.tex
+++ b/Build/source/texk/web2c/euptexdir/euptrip/eptrip.tex
diff --git a/Build/source/texk/web2c/euptexdir/euptriptest.test b/Build/source/texk/web2c/euptexdir/euptriptest.test
index d6a1239ded3..279b801aaff 100755
--- a/Build/source/texk/web2c/euptexdir/euptriptest.test
+++ b/Build/source/texk/web2c/euptexdir/euptriptest.test
@@ -17,7 +17,6 @@ LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE
testdir=$abs_srcdir/triptrap
etestdir=$abs_srcdir/etexdir/etrip
-eptestdir=$abs_srcdir/eptexdir/eptrip
euptestdir=$abs_srcdir/euptexdir/euptrip
TEXMFCNF=$euptestdir; export TEXMFCNF
@@ -34,7 +33,7 @@ cat >filter <<-\_EOF
s,^(trip\.tex ##,**(./trip.tex ##,
s,^## (\./trip\.tex,**(./trip.tex ##,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/(preloaded format=.*tex)/(INITEX)/
s/format=trip [^)][^)]*)/format=trip)/
s/) [0-9A-Z: ]*$/)/
@@ -183,7 +182,7 @@ $_tftopl ./etrip.tfm etrip.pl || exit 1
diff $etestdir/etrip.pl etrip.pl || is_OK=false
# get same filename in log
-$LN_S $eptestdir/eptrip.tex etrip.tex
+$LN_S $euptestdir/eptrip.tex etrip.tex
$_euptex --progname=eupinitex --ini <$etestdir/etrip2.in >euptripin.fot
if test ! -s etrip.fmt; then
@@ -200,7 +199,7 @@ sed "$P_SED1;$P_SED2" etrip.log > euptrip.log
# We use $DIFF instead of `diff' only for those files where there
# might actually be legitimate numerical differences.
-$DIFF $DIFFFLAGS $eptestdir/eptrip.log euptrip.log
+$DIFF $DIFFFLAGS $euptestdir/eptrip.log euptrip.log
mv etrip.out euptrip.out
diff $etestdir/etrip.out euptrip.out
diff --git a/Build/source/texk/web2c/euptexdir/pdfprimitive.test b/Build/source/texk/web2c/euptexdir/pdfprimitive.test
index 0f3ee9808a0..8a8f92ab824 100755
--- a/Build/source/texk/web2c/euptexdir/pdfprimitive.test
+++ b/Build/source/texk/web2c/euptexdir/pdfprimitive.test
@@ -17,7 +17,7 @@ FILE=pdfprimitive-euptex
# get same filename in log
rm -f $FILE.*
-$LN_S $srcdir/eptexdir/tests/pdfprimitive-test.tex $FILE.tex
+$LN_S $srcdir/euptexdir/tests/pdfprimitive-test.tex $FILE.tex
$_euptex -ini -etex $FILE && exit 1
diff --git a/Build/source/texk/web2c/eptexdir/tests/fontchar.sh b/Build/source/texk/web2c/euptexdir/tests/fontchar.sh
index 6430e83ca83..6430e83ca83 100755
--- a/Build/source/texk/web2c/eptexdir/tests/fontchar.sh
+++ b/Build/source/texk/web2c/euptexdir/tests/fontchar.sh
diff --git a/Build/source/texk/web2c/eptexdir/tests/fontchar.tex b/Build/source/texk/web2c/euptexdir/tests/fontchar.tex
index 1df91d27cd1..1df91d27cd1 100644
--- a/Build/source/texk/web2c/eptexdir/tests/fontchar.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/fontchar.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/lastnodefont.tex b/Build/source/texk/web2c/euptexdir/tests/lastnodefont.tex
index a9c8e91fe29..a9c8e91fe29 100644
--- a/Build/source/texk/web2c/eptexdir/tests/lastnodefont.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/lastnodefont.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/lastnodesubtype_math.tex b/Build/source/texk/web2c/euptexdir/tests/lastnodesubtype_math.tex
index fd1d0c2d4cd..fd1d0c2d4cd 100644
--- a/Build/source/texk/web2c/eptexdir/tests/lastnodesubtype_math.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/lastnodesubtype_math.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdforigin.sh b/Build/source/texk/web2c/euptexdir/tests/pdforigin.sh
index 0889a39508b..0889a39508b 100755
--- a/Build/source/texk/web2c/eptexdir/tests/pdforigin.sh
+++ b/Build/source/texk/web2c/euptexdir/tests/pdforigin.sh
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex b/Build/source/texk/web2c/euptexdir/tests/pdforigin.tex
index ab64ac932b9..ab64ac932b9 100644
--- a/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/pdforigin.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex b/Build/source/texk/web2c/euptexdir/tests/pdfpagewidth.tex
index c285d7601db..c285d7601db 100644
--- a/Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/pdfpagewidth.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdfsavepos.tex b/Build/source/texk/web2c/euptexdir/tests/pdfsavepos.tex
index 7bde48aa574..7bde48aa574 100644
--- a/Build/source/texk/web2c/eptexdir/tests/pdfsavepos.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/pdfsavepos.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/printkanji-eptex.tex b/Build/source/texk/web2c/euptexdir/tests/printkanji-eptex.tex
index 67c795e7d80..67c795e7d80 100644
--- a/Build/source/texk/web2c/eptexdir/tests/printkanji-eptex.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/printkanji-eptex.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/suppress_errors.tex b/Build/source/texk/web2c/euptexdir/tests/suppress_errors.tex
index 6b116350fdf..6b116350fdf 100644
--- a/Build/source/texk/web2c/eptexdir/tests/suppress_errors.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/suppress_errors.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/uchar.tex b/Build/source/texk/web2c/euptexdir/tests/uchar.tex
index 0c5bb56c4a0..0c5bb56c4a0 100644
--- a/Build/source/texk/web2c/eptexdir/tests/uchar.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/uchar.tex
diff --git a/Build/source/texk/web2c/eptexdir/tests/zero_search.tex b/Build/source/texk/web2c/euptexdir/tests/zero_search.tex
index 02b0df3929c..02b0df3929c 100644
--- a/Build/source/texk/web2c/eptexdir/tests/zero_search.tex
+++ b/Build/source/texk/web2c/euptexdir/tests/zero_search.tex
diff --git a/Build/source/texk/web2c/eptexdir/unbalanced-braces-eptex.ch b/Build/source/texk/web2c/euptexdir/unbalanced-braces-eptex.ch
index ade62e87feb..ade62e87feb 100644
--- a/Build/source/texk/web2c/eptexdir/unbalanced-braces-eptex.ch
+++ b/Build/source/texk/web2c/euptexdir/unbalanced-braces-eptex.ch
diff --git a/Build/source/texk/web2c/lib/ChangeLog b/Build/source/texk/web2c/lib/ChangeLog
index 650f2a7dad3..0d7a53e8cb5 100644
--- a/Build/source/texk/web2c/lib/ChangeLog
+++ b/Build/source/texk/web2c/lib/ChangeLog
@@ -1,3 +1,7 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * Makefile.am: Remove eptex.
+
2024-01-01 Akira Kakuto <kakuto@jcom.zaq.ne.jp>
* printversion.c: Update copyright year.
diff --git a/Build/source/texk/web2c/lib/Makefile.am b/Build/source/texk/web2c/lib/Makefile.am
index cc0f5c78902..0c0a775077d 100644
--- a/Build/source/texk/web2c/lib/Makefile.am
+++ b/Build/source/texk/web2c/lib/Makefile.am
@@ -10,9 +10,9 @@ AM_CFLAGS = $(WARNING_CFLAGS)
@KPATHSEA_RULE@
noinst_LIBRARIES = lib.a
-if EPTEX
+if EUPTEX
noinst_LIBRARIES += libp.a
-endif EPTEX
+endif EUPTEX
EXTRA_LIBRARIES = libp.a
## We don't compile `texmfmp.c'; this file is included from 'texextra.c'
diff --git a/Build/source/texk/web2c/lib/Makefile.in b/Build/source/texk/web2c/lib/Makefile.in
index 2ae2727f262..435bdd73a84 100644
--- a/Build/source/texk/web2c/lib/Makefile.in
+++ b/Build/source/texk/web2c/lib/Makefile.in
@@ -88,7 +88,7 @@ PRE_UNINSTALL = :
POST_UNINSTALL = :
build_triplet = @build@
host_triplet = @host@
-@EPTEX_TRUE@am__append_1 = libp.a
+@EUPTEX_TRUE@am__append_1 = libp.a
subdir = lib
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/m4/web2c-disable.m4 \
diff --git a/Build/source/texk/web2c/man/ChangeLog b/Build/source/texk/web2c/man/ChangeLog
index c50132b0a9b..f82821f1847 100644
--- a/Build/source/texk/web2c/man/ChangeLog
+++ b/Build/source/texk/web2c/man/ChangeLog
@@ -1,3 +1,7 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * Makefile.am: Remove eptex.
+
2024-03-13 Andreas Scherer <https://ascherer.github.io>
* weave.man,
diff --git a/Build/source/texk/web2c/man/Makefile.am b/Build/source/texk/web2c/man/Makefile.am
index 6be2c9cd1e6..091d58bcb87 100644
--- a/Build/source/texk/web2c/man/Makefile.am
+++ b/Build/source/texk/web2c/man/Makefile.am
@@ -55,14 +55,14 @@ endif PDFTEX
pdftex_man_sources = pdftex.man pdftosrc.man ttf2afm.man
EXTRA_DIST += $(pdftex_man_sources)
-if EPTEX
+if EUPTEX
man_sources += ptex.man
man1_links += ptex:eptex ptex:euptex ptex:uptex
man_sources += ppltotf.man ptftopl.man
man1_links += ppltotf:uppltotf ptftopl:uptftopl
man_sources += pbibtex.man
man1_links += pbibtex:upbibtex
-endif EPTEX
+endif EUPTEX
EXTRA_DIST += ptex.man ppltotf.man ptftopl.man pbibtex.man
if LUATEX
diff --git a/Build/source/texk/web2c/man/Makefile.in b/Build/source/texk/web2c/man/Makefile.in
index ed8f6da1052..7bfb6cfa2f4 100644
--- a/Build/source/texk/web2c/man/Makefile.in
+++ b/Build/source/texk/web2c/man/Makefile.in
@@ -98,10 +98,11 @@ host_triplet = @host@
@ETEX_TRUE@am__append_9 = etex.man
@PDFTEX_TRUE@am__append_10 = $(pdftex_man_sources)
@PDFTEX_TRUE@am__append_11 = pdftex:pdflatex
-@EPTEX_TRUE@am__append_12 = ptex.man ppltotf.man ptftopl.man \
-@EPTEX_TRUE@ pbibtex.man
-@EPTEX_TRUE@am__append_13 = ptex:eptex ptex:euptex ptex:uptex \
-@EPTEX_TRUE@ ppltotf:uppltotf ptftopl:uptftopl pbibtex:upbibtex
+@EUPTEX_TRUE@am__append_12 = ptex.man ppltotf.man ptftopl.man \
+@EUPTEX_TRUE@ pbibtex.man
+@EUPTEX_TRUE@am__append_13 = ptex:eptex ptex:euptex ptex:uptex \
+@EUPTEX_TRUE@ ppltotf:uppltotf ptftopl:uptftopl \
+@EUPTEX_TRUE@ pbibtex:upbibtex
@LUATEX_TRUE@am__append_14 = luatex.man
@LUATEX_TRUE@am__append_15 = luatex:texlua luatex:texluac \
@LUATEX_TRUE@ luatex:luahbtex luatex:luajittex \
diff --git a/Build/source/texk/web2c/mftraptest.test b/Build/source/texk/web2c/mftraptest.test
index 5390e9f688a..17a237a4ffa 100755
--- a/Build/source/texk/web2c/mftraptest.test
+++ b/Build/source/texk/web2c/mftraptest.test
@@ -36,7 +36,7 @@ cat >filter <<-\_EOF
s,^\*\*(trap\.mf,** \&trap trap \
(trap.mf,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/base=trap [^)][^)]*)/base=trap)/
s/) [0-9A-Z: ]*$/)/
s/usage [1-9][0-9&]* ([1-9][0-9&]* still/usage XX\&XX (YYY\&YYYYY still/
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index 59244a1777a..73a3fbe1c2b 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * ptriptest.test:
+ Filter Web2C year/dev in banner.
+
2024-03-10 Karl Berry <karl@tug.org>
* TL'24 release.
diff --git a/Build/source/texk/web2c/ptexdir/ptriptest.test b/Build/source/texk/web2c/ptexdir/ptriptest.test
index 330e5d43885..694436956a0 100755
--- a/Build/source/texk/web2c/ptexdir/ptriptest.test
+++ b/Build/source/texk/web2c/ptexdir/ptriptest.test
@@ -29,7 +29,7 @@ cat >filter <<-\_EOF
s,^\*\*(\./trip\.tex ##,** \&trip trip \
(trip.tex ##,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/(preloaded format=.*tex)/(INITEX)/
s/format=trip [^)][^)]*)/format=trip)/
s/) [0-9A-Z: ]*$/)/
diff --git a/Build/source/texk/web2c/synctexdir/ChangeLog b/Build/source/texk/web2c/synctexdir/ChangeLog
index 5eb225b864b..858b6b1ca95 100644
--- a/Build/source/texk/web2c/synctexdir/ChangeLog
+++ b/Build/source/texk/web2c/synctexdir/ChangeLog
@@ -1,3 +1,7 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * am/synctex.am: Remove eptex.
+
2024-03-10 Karl Berry <karl@tug.org>
* TL'24 release.
diff --git a/Build/source/texk/web2c/synctexdir/am/synctex.am b/Build/source/texk/web2c/synctexdir/am/synctex.am
index fa223285ef8..e9aed963011 100644
--- a/Build/source/texk/web2c/synctexdir/am/synctex.am
+++ b/Build/source/texk/web2c/synctexdir/am/synctex.am
@@ -151,43 +151,6 @@ EXTRA_DIST += \
synctexdir/synctex-e-mem.ch1 \
synctexdir/synctex-e-rec.ch0
-## SyncTeX infrastructure: e-pTeX
-
-if EPTEX_SYNCTEX
-
-eptex_CPPFLAGS += -I$(srcdir)/synctexdir $(ZLIB_INCLUDES)
-
-eptex_LDADD += $(ZLIB_LIBS)
-eptex_prereq += $(ZLIB_DEPEND)
-
-eptex_ch_synctex = \
- synctexdir/synctex-def.ch0 \
- synctexdir/synctex-ep-mem.ch0 \
- synctexdir/synctex-mem.ch0 \
- synctexdir/synctex-e-mem.ch0 \
- synctexdir/synctex-ep-mem.ch1 \
- synctexdir/synctex-p-rec.ch0 \
- synctexdir/synctex-rec.ch0 \
- synctexdir/synctex-rec.ch1 \
- synctexdir/synctex-ep-rec.ch0 \
- synctexdir/synctex-e-rec.ch0 \
- synctexdir/synctex-p-rec.ch1
-
-dist_eptex_SOURCES += \
- synctexdir/synctex.c \
- synctexdir/synctex.h \
- synctexdir/synctex-common.h \
- synctexdir/synctex-eptex.h
-
-eptex_CPPFLAGS += -D__SyncTeX__ -DSYNCTEX_ENGINE_H=\"synctex-eptex.h\"
-
-endif EPTEX_SYNCTEX
-
-EXTRA_DIST += \
- synctexdir/synctex-ep-mem.ch0 \
- synctexdir/synctex-ep-mem.ch1 \
- synctexdir/synctex-ep-rec.ch0
-
## SyncTeX infrastructure: e-upTeX
if EUPTEX_SYNCTEX
diff --git a/Build/source/texk/web2c/triptest.test b/Build/source/texk/web2c/triptest.test
index b49dd54ec48..674e5c85f5b 100755
--- a/Build/source/texk/web2c/triptest.test
+++ b/Build/source/texk/web2c/triptest.test
@@ -28,7 +28,7 @@ cat >filter <<-\_EOF
s,^\*\*(\./trip\.tex ##,** \&trip trip \
(trip.tex ##,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/(preloaded format=tex)/(INITEX)/
s/format=trip [^)][^)]*)/format=trip)/
s/) [0-9A-Z: ]*$/)/
diff --git a/Build/source/texk/web2c/uptexdir/ChangeLog b/Build/source/texk/web2c/uptexdir/ChangeLog
index 8c18b4cc3de..7f40079d674 100644
--- a/Build/source/texk/web2c/uptexdir/ChangeLog
+++ b/Build/source/texk/web2c/uptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2024-04-14 TANAKA Takuji <ttk@t-lab.opal.ne.jp>
+
+ * {,u}ptriptest.test:
+ Filter Web2C year/dev in banner.
+
2024-03-10 Karl Berry <karl@tug.org>
* TL'24 release.
diff --git a/Build/source/texk/web2c/uptexdir/ptriptest.test b/Build/source/texk/web2c/uptexdir/ptriptest.test
index 37d1bd5d29f..325cdef1c09 100755
--- a/Build/source/texk/web2c/uptexdir/ptriptest.test
+++ b/Build/source/texk/web2c/uptexdir/ptriptest.test
@@ -29,7 +29,7 @@ cat >filter <<-\_EOF
s,^\*\*(\./trip\.tex ##,** \&trip trip \
(trip.tex ##,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/(preloaded format=.*tex)/(INITEX)/
s/format=trip [^)][^)]*)/format=trip)/
s/) [0-9A-Z: ]*$/)/
diff --git a/Build/source/texk/web2c/uptexdir/uptriptest.test b/Build/source/texk/web2c/uptexdir/uptriptest.test
index 0b2af38552a..1fe56c5637f 100755
--- a/Build/source/texk/web2c/uptexdir/uptriptest.test
+++ b/Build/source/texk/web2c/uptexdir/uptriptest.test
@@ -29,7 +29,7 @@ cat >filter <<-\_EOF
s,^\*\*(\./trip\.tex ##,** \&trip trip \
(trip.tex ##,
s/ (TeX Live 20[^)]*)//
- s/ (Web2C 202[3-9])//
+ s/ (Web2C 202[3-9][^)]*)//
s/(preloaded format=.*tex)/(INITEX)/
s/format=trip [^)][^)]*)/format=trip)/
s/) [0-9A-Z: ]*$/)/