summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r--Build/source/texk/web2c/ChangeLog7
-rw-r--r--Build/source/texk/web2c/Makefile.am5
-rw-r--r--Build/source/texk/web2c/Makefile.in500
-rw-r--r--Build/source/texk/web2c/ac/web2c.ac1
-rw-r--r--Build/source/texk/web2c/c-auto.in3
-rwxr-xr-xBuild/source/texk/web2c/configure503
-rw-r--r--Build/source/texk/web2c/configure.ac5
-rw-r--r--Build/source/texk/web2c/lib/ChangeLog4
-rw-r--r--Build/source/texk/web2c/lib/texmfmp.c60
-rw-r--r--Build/source/texk/web2c/man/ChangeLog5
-rw-r--r--Build/source/texk/web2c/man/Makefile.am8
-rw-r--r--Build/source/texk/web2c/man/Makefile.in8
-rw-r--r--Build/source/texk/web2c/man/omega.man292
-rw-r--r--Build/source/texk/web2c/mpdir/am/mp.am14
-rw-r--r--Build/source/texk/web2c/omegadir/ChangeLog23
-rw-r--r--Build/source/texk/web2c/omegadir/README12
-rw-r--r--Build/source/texk/web2c/omegadir/am/omega.am88
-rw-r--r--Build/source/texk/web2c/omegadir/com16bit.ch2818
-rw-r--r--Build/source/texk/web2c/omegadir/comchar.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comdir.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comfi.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comfilter.ch123
-rw-r--r--Build/source/texk/web2c/omegadir/comfont.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comnode.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comocp.ch141
-rw-r--r--Build/source/texk/web2c/omegadir/compar.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comsrcspec.ch353
-rw-r--r--Build/source/texk/web2c/omegadir/comstr.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comtrans.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/comxml.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/om16bit.ch2826
-rw-r--r--Build/source/texk/web2c/omegadir/omchar.ch84
-rw-r--r--Build/source/texk/web2c/omegadir/omcprt.ch11
-rw-r--r--Build/source/texk/web2c/omegadir/omdir.ch4172
-rw-r--r--Build/source/texk/web2c/omegadir/omega-pool.h9
-rw-r--r--Build/source/texk/web2c/omegadir/omega.c624
-rw-r--r--Build/source/texk/web2c/omegadir/omega.defines74
-rw-r--r--Build/source/texk/web2c/omegadir/omega.mk225
-rw-r--r--Build/source/texk/web2c/omegadir/omega.version1
-rw-r--r--Build/source/texk/web2c/omegadir/omegabis.c339
-rw-r--r--Build/source/texk/web2c/omegadir/omegaextra.h38
-rw-r--r--Build/source/texk/web2c/omegadir/omegamem.h145
-rw-r--r--Build/source/texk/web2c/omegadir/omfi.ch246
-rw-r--r--Build/source/texk/web2c/omegadir/omfilter.ch925
-rw-r--r--Build/source/texk/web2c/omegadir/omfont.ch2377
-rw-r--r--Build/source/texk/web2c/omegadir/omnode.ch20
-rw-r--r--Build/source/texk/web2c/omegadir/omocp.ch1068
-rw-r--r--Build/source/texk/web2c/omegadir/ompar.ch1629
-rw-r--r--Build/source/texk/web2c/omegadir/omstr.ch875
-rw-r--r--Build/source/texk/web2c/omegadir/omtrans.ch822
-rw-r--r--Build/source/texk/web2c/omegadir/omxml.ch2099
-rw-r--r--Build/source/texk/web2c/synctexdir/am/synctex.am2
-rw-r--r--Build/source/texk/web2c/synctexdir/am/synctex.mk42
-rw-r--r--Build/source/texk/web2c/tex.ch4
-rw-r--r--Build/source/texk/web2c/texmfmem.h10
-rw-r--r--Build/source/texk/web2c/texmfmp-help.h170
-rw-r--r--Build/source/texk/web2c/texmfmp.h8
-rw-r--r--Build/source/texk/web2c/web2c/ChangeLog5
-rw-r--r--Build/source/texk/web2c/web2c/README2
-rw-r--r--Build/source/texk/web2c/web2c/common.defines3
-rwxr-xr-xBuild/source/texk/web2c/web2c/convert4
-rw-r--r--Build/source/texk/web2c/web2c/fixwrites.c2
-rw-r--r--Build/source/texk/web2c/web2c/splitup.c11
63 files changed, 671 insertions, 23354 deletions
diff --git a/Build/source/texk/web2c/ChangeLog b/Build/source/texk/web2c/ChangeLog
index 259b4dfdbea..511d02e2324 100644
--- a/Build/source/texk/web2c/ChangeLog
+++ b/Build/source/texk/web2c/ChangeLog
@@ -1,3 +1,10 @@
+2009-03-29 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * Makefile.am, configure.ac: remove Omega.
+
+ * tex.ch, texmfmem.h, texmfmp-help.h, texmfmp.h: remove all
+ references to Omega, eOmega, and pdfeTeX.
+
2009-03-28 Karl Berry <karl@tug.org>
* texmfmp.h: shell escape declarations.
diff --git a/Build/source/texk/web2c/Makefile.am b/Build/source/texk/web2c/Makefile.am
index a753f0a9045..2fe531852a5 100644
--- a/Build/source/texk/web2c/Makefile.am
+++ b/Build/source/texk/web2c/Makefile.am
@@ -123,9 +123,6 @@ include $(srcdir)/xetexdir/am/xetex.am
## omegaware web programs
include $(srcdir)/omegaware/am/omegaware.am
-## Omega
-include $(srcdir)/omegadir/am/omega.am
-
## Aleph
include $(srcdir)/alephdir/am/aleph.am
@@ -135,7 +132,7 @@ include $(srcdir)/synctexdir/am/synctex.am
## libmd5
include $(srcdir)/libmd5/am/md5.am
-## Not yet used
+## Not used
##
EXTRA_DIST += fmtutil.in
diff --git a/Build/source/texk/web2c/Makefile.in b/Build/source/texk/web2c/Makefile.in
index 9c81117a69b..4940916f4de 100644
--- a/Build/source/texk/web2c/Makefile.in
+++ b/Build/source/texk/web2c/Makefile.in
@@ -38,8 +38,7 @@ bin_PROGRAMS = tangle$(EXEEXT) ctangle$(EXEEXT) $(am__EXEEXT_2) \
$(am__EXEEXT_4) $(am__EXEEXT_5) $(am__EXEEXT_6) \
$(am__EXEEXT_7) $(am__EXEEXT_8) ttf2afm$(EXEEXT) \
pdftosrc$(EXEEXT) $(am__EXEEXT_9) $(am__EXEEXT_11) \
- $(am__EXEEXT_13) $(am__EXEEXT_14) $(am__EXEEXT_15) \
- synctex$(EXEEXT)
+ $(am__EXEEXT_13) $(am__EXEEXT_14) synctex$(EXEEXT)
noinst_PROGRAMS = tangleboot$(EXEEXT) ctangleboot$(EXEEXT)
check_PROGRAMS = md5main$(EXEEXT)
DIST_COMMON = README $(am__configure_deps) $(dist_check_SCRIPTS) \
@@ -54,7 +53,6 @@ DIST_COMMON = README $(am__configure_deps) $(dist_check_SCRIPTS) \
$(srcdir)/am/texmf.am $(srcdir)/am/web.am $(srcdir)/c-auto.in \
$(srcdir)/etexdir/am/etex.am $(srcdir)/libmd5/am/md5.am \
$(srcdir)/luatexdir/am/luatex.am $(srcdir)/mpdir/am/mp.am \
- $(srcdir)/omegadir/am/omega.am \
$(srcdir)/omegaware/am/omegaware.am \
$(srcdir)/pdftexdir/am/pdftex.am \
$(srcdir)/synctexdir/am/synctex.am \
@@ -78,20 +76,19 @@ DIST_COMMON = README $(am__configure_deps) $(dist_check_SCRIPTS) \
@OTANGLE_TRUE@am__append_12 = $(omegaware_tools)
@OMFONTS_FALSE@@OTANGLE_TRUE@am__append_13 = $(omegaware_font_tools)
@OTANGLE_TRUE@am__append_14 = omegaware/otangle.test
-@OMEGA_TRUE@am__append_15 = omega
-@ALEPH_TRUE@am__append_16 = aleph
-@TEX_SYNCTEX_TRUE@am__append_17 = -I$(srcdir)/synctexdir $(ZLIB_INCLUDES)
-@TEX_SYNCTEX_TRUE@am__append_18 = $(ZLIB_LIBS)
-@TEX_SYNCTEX_TRUE@am__append_19 = \
+@ALEPH_TRUE@am__append_15 = aleph
+@TEX_SYNCTEX_TRUE@am__append_16 = -I$(srcdir)/synctexdir $(ZLIB_INCLUDES)
+@TEX_SYNCTEX_TRUE@am__append_17 = $(ZLIB_LIBS)
+@TEX_SYNCTEX_TRUE@am__append_18 = \
@TEX_SYNCTEX_TRUE@ synctex.c
-@ETEX_SYNCTEX_TRUE@am__append_20 = -I$(srcdir)/synctexdir $(ZLIB_INCLUDES)
-@ETEX_SYNCTEX_TRUE@am__append_21 = $(ZLIB_LIBS)
-@ETEX_SYNCTEX_TRUE@am__append_22 = \
+@ETEX_SYNCTEX_TRUE@am__append_19 = -I$(srcdir)/synctexdir $(ZLIB_INCLUDES)
+@ETEX_SYNCTEX_TRUE@am__append_20 = $(ZLIB_LIBS)
+@ETEX_SYNCTEX_TRUE@am__append_21 = \
@ETEX_SYNCTEX_TRUE@ synctex-e.c
-@PDFTEX_SYNCTEX_TRUE@am__append_23 = -I$(srcdir)/synctexdir
-@PDFTEX_SYNCTEX_TRUE@am__append_24 = \
+@PDFTEX_SYNCTEX_TRUE@am__append_22 = -I$(srcdir)/synctexdir
+@PDFTEX_SYNCTEX_TRUE@am__append_23 = \
@PDFTEX_SYNCTEX_TRUE@ synctex-pdf.c
subdir = .
@@ -257,14 +254,13 @@ am__objects_2 = libmf_a-mfini.$(OBJEXT) libmf_a-mf0.$(OBJEXT) \
libmf_a-mf1.$(OBJEXT)
nodist_libmf_a_OBJECTS = $(am__objects_2) libmf_a-mf-pool.$(OBJEXT)
libmf_a_OBJECTS = $(nodist_libmf_a_OBJECTS)
-libmpost_a_AR = $(AR) $(ARFLAGS)
-libmpost_a_LIBADD =
-am_libmpost_a_OBJECTS = libmpost_a-avl.$(OBJEXT) \
- libmpost_a-avlstuff.$(OBJEXT) libmpost_a-mapfile.$(OBJEXT) \
- libmpost_a-turningnumber.$(OBJEXT) libmpost_a-utils.$(OBJEXT) \
- libmpost_a-writeenc.$(OBJEXT) libmpost_a-writefont.$(OBJEXT) \
- libmpost_a-writet1.$(OBJEXT)
-libmpost_a_OBJECTS = $(am_libmpost_a_OBJECTS)
+libmp_a_AR = $(AR) $(ARFLAGS)
+libmp_a_LIBADD =
+am_libmp_a_OBJECTS = libmp_a-avl.$(OBJEXT) libmp_a-avlstuff.$(OBJEXT) \
+ libmp_a-mapfile.$(OBJEXT) libmp_a-turningnumber.$(OBJEXT) \
+ libmp_a-utils.$(OBJEXT) libmp_a-writeenc.$(OBJEXT) \
+ libmp_a-writefont.$(OBJEXT) libmp_a-writet1.$(OBJEXT)
+libmp_a_OBJECTS = $(am_libmp_a_OBJECTS)
libpdftex_a_AR = $(AR) $(ARFLAGS)
libpdftex_a_LIBADD =
am_libpdftex_a_OBJECTS = libpdftex_a-avl.$(OBJEXT) \
@@ -306,8 +302,7 @@ am__EXEEXT_10 = odvicopy$(EXEEXT) odvitype$(EXEEXT) otangle$(EXEEXT)
am__EXEEXT_12 = ofm2opl$(EXEEXT) opl2ofm$(EXEEXT) ovf2ovp$(EXEEXT) \
ovp2ovf$(EXEEXT)
@OMFONTS_FALSE@@OTANGLE_TRUE@am__EXEEXT_13 = $(am__EXEEXT_12)
-@OMEGA_TRUE@am__EXEEXT_14 = omega$(EXEEXT)
-@ALEPH_TRUE@am__EXEEXT_15 = aleph$(EXEEXT)
+@ALEPH_TRUE@am__EXEEXT_14 = aleph$(EXEEXT)
am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)" \
"$(DESTDIR)$(man5dir)"
binPROGRAMS_INSTALL = $(INSTALL_PROGRAM)
@@ -414,7 +409,7 @@ am__objects_7 = mpost-mpini.$(OBJEXT) mpost-mp0.$(OBJEXT) \
nodist_mpost_OBJECTS = $(am__objects_7) mpost-mp-pool.$(OBJEXT) \
mpost-mpextra.$(OBJEXT)
mpost_OBJECTS = $(nodist_mpost_OBJECTS)
-mpost_DEPENDENCIES = libmpost.a $(am__DEPENDENCIES_2)
+mpost_DEPENDENCIES = libmp.a $(am__DEPENDENCIES_2)
nodist_odvicopy_OBJECTS = odvicopy.$(OBJEXT)
odvicopy_OBJECTS = $(nodist_odvicopy_OBJECTS)
odvicopy_LDADD = $(LDADD)
@@ -427,14 +422,6 @@ nodist_ofm2opl_OBJECTS = ofm2opl.$(OBJEXT)
ofm2opl_OBJECTS = $(nodist_ofm2opl_OBJECTS)
ofm2opl_LDADD = $(LDADD)
ofm2opl_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
-am_omega_OBJECTS = omega-omega.$(OBJEXT) omega-omegabis.$(OBJEXT)
-am__objects_8 = omega-omegaini.$(OBJEXT) omega-omega0.$(OBJEXT) \
- omega-omega1.$(OBJEXT) omega-omega2.$(OBJEXT) \
- omega-omega3.$(OBJEXT)
-nodist_omega_OBJECTS = $(am__objects_8) omega-omega-pool.$(OBJEXT) \
- omega-omegaextra.$(OBJEXT)
-omega_OBJECTS = $(am_omega_OBJECTS) $(nodist_omega_OBJECTS)
-omega_DEPENDENCIES = $(am__DEPENDENCIES_2) $(am__DEPENDENCIES_1)
nodist_opl2ofm_OBJECTS = opl2ofm.$(OBJEXT)
opl2ofm_OBJECTS = $(nodist_opl2ofm_OBJECTS)
opl2ofm_LDADD = $(LDADD)
@@ -458,12 +445,12 @@ patgen_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
am__dist_pdftex_SOURCES_DIST = synctexdir/synctex.h \
synctexdir/synctex-common.h synctexdir/synctex-pdftex.h
dist_pdftex_OBJECTS =
-am__objects_9 = pdftex-pdftexini.$(OBJEXT) pdftex-pdftex0.$(OBJEXT) \
+am__objects_8 = pdftex-pdftexini.$(OBJEXT) pdftex-pdftex0.$(OBJEXT) \
pdftex-pdftex1.$(OBJEXT) pdftex-pdftex2.$(OBJEXT) \
pdftex-pdftex3.$(OBJEXT)
-@PDFTEX_SYNCTEX_TRUE@am__objects_10 = pdftex-synctex-pdf.$(OBJEXT)
-nodist_pdftex_OBJECTS = $(am__objects_9) pdftex-pdftex-pool.$(OBJEXT) \
- pdftex-pdftexextra.$(OBJEXT) $(am__objects_10)
+@PDFTEX_SYNCTEX_TRUE@am__objects_9 = pdftex-synctex-pdf.$(OBJEXT)
+nodist_pdftex_OBJECTS = $(am__objects_8) pdftex-pdftex-pool.$(OBJEXT) \
+ pdftex-pdftexextra.$(OBJEXT) $(am__objects_9)
pdftex_OBJECTS = $(dist_pdftex_OBJECTS) $(nodist_pdftex_OBJECTS)
am__DEPENDENCIES_6 = libpdftex.a $(am__DEPENDENCIES_1) \
$(am__DEPENDENCIES_1) $(am__DEPENDENCIES_1) \
@@ -500,11 +487,11 @@ tangleboot_DEPENDENCIES = $(proglib) $(am__DEPENDENCIES_1)
am__dist_tex_SOURCES_DIST = synctexdir/synctex.h \
synctexdir/synctex-common.h synctexdir/synctex-tex.h
dist_tex_OBJECTS =
-am__objects_11 = tex-texini.$(OBJEXT) tex-tex0.$(OBJEXT) \
+am__objects_10 = tex-texini.$(OBJEXT) tex-tex0.$(OBJEXT) \
tex-tex1.$(OBJEXT) tex-tex2.$(OBJEXT)
-@TEX_SYNCTEX_TRUE@am__objects_12 = tex-synctex.$(OBJEXT)
-nodist_tex_OBJECTS = $(am__objects_11) tex-tex-pool.$(OBJEXT) \
- tex-texextra.$(OBJEXT) $(am__objects_12)
+@TEX_SYNCTEX_TRUE@am__objects_11 = tex-synctex.$(OBJEXT)
+nodist_tex_OBJECTS = $(am__objects_10) tex-tex-pool.$(OBJEXT) \
+ tex-texextra.$(OBJEXT) $(am__objects_11)
tex_OBJECTS = $(dist_tex_OBJECTS) $(nodist_tex_OBJECTS)
@TEX_SYNCTEX_TRUE@am__DEPENDENCIES_7 = $(am__DEPENDENCIES_1)
tex_DEPENDENCIES = $(am__DEPENDENCIES_2) $(am__DEPENDENCIES_1) \
@@ -558,7 +545,7 @@ SOURCES = $(libff_a_SOURCES) $(liblua51_a_SOURCES) \
$(libluasocket_a_SOURCES) $(libluatex_a_SOURCES) \
$(EXTRA_libluatex_a_SOURCES) $(nodist_libluatex_a_SOURCES) \
$(libmd5_a_SOURCES) $(nodist_libmf_a_SOURCES) \
- $(libmpost_a_SOURCES) $(libpdftex_a_SOURCES) \
+ $(libmp_a_SOURCES) $(libpdftex_a_SOURCES) \
$(EXTRA_libpdftex_a_SOURCES) $(libzzip_a_SOURCES) \
$(aleph_SOURCES) $(nodist_aleph_SOURCES) \
$(nodist_bibtex_SOURCES) $(nodist_ctangle_SOURCES) \
@@ -573,7 +560,6 @@ SOURCES = $(libff_a_SOURCES) $(liblua51_a_SOURCES) \
$(nodist_mf_nowin_SOURCES) $(nodist_mft_SOURCES) \
$(nodist_mpost_SOURCES) $(nodist_odvicopy_SOURCES) \
$(nodist_odvitype_SOURCES) $(nodist_ofm2opl_SOURCES) \
- $(omega_SOURCES) $(nodist_omega_SOURCES) \
$(nodist_opl2ofm_SOURCES) $(nodist_otangle_SOURCES) \
$(nodist_ovf2ovp_SOURCES) $(nodist_ovp2ovf_SOURCES) \
$(nodist_patgen_SOURCES) $(dist_pdftex_SOURCES) \
@@ -591,10 +577,10 @@ DIST_SOURCES = $(libff_a_SOURCES) $(liblua51_a_SOURCES) \
$(libluamisc_a_SOURCES) $(EXTRA_libluamisc_a_SOURCES) \
$(libluasocket_a_SOURCES) $(libluatex_a_SOURCES) \
$(EXTRA_libluatex_a_SOURCES) $(libmd5_a_SOURCES) \
- $(libmpost_a_SOURCES) $(libpdftex_a_SOURCES) \
+ $(libmp_a_SOURCES) $(libpdftex_a_SOURCES) \
$(EXTRA_libpdftex_a_SOURCES) $(libzzip_a_SOURCES) \
$(aleph_SOURCES) $(am__dist_etex_SOURCES_DIST) \
- $(gftodvi_SOURCES) $(md5main_SOURCES) $(omega_SOURCES) \
+ $(gftodvi_SOURCES) $(md5main_SOURCES) \
$(am__dist_pdftex_SOURCES_DIST) $(pdftosrc_SOURCES) \
$(synctex_SOURCES) $(am__dist_tex_SOURCES_DIST) \
$(ttf2afm_SOURCES) $(EXTRA_ttf2afm_SOURCES)
@@ -794,7 +780,7 @@ dist_check_SCRIPTS = tangle.test luatexdir/luatangle.test \
omegaware/otangle.test libmd5/md5.test
TESTS = tangle.test tiedir/tie.test $(am__append_11) $(am__append_14) \
libmd5/md5.test
-EXTRA_LIBRARIES = libmf.a libmpost.a libpdftex.a liblua51.a libzzip.a \
+EXTRA_LIBRARIES = libmf.a libmp.a libpdftex.a liblua51.a libzzip.a \
libluasocket.a libluamisc.a libff.a libluatex.a libmd5.a
EXTRA_DIST = PROJECTS cftests config.h cpascal.h help.h tangle.web \
tangle.ch tangleboot.p cwebdir ctangleboot.c cwebboot.c \
@@ -960,10 +946,7 @@ EXTRA_DIST = PROJECTS cftests config.h cpascal.h help.h tangle.web \
xetexdir/withenable.ac xetexdir/xetex.mk omegaware/ChangeLog \
$(odvicopy_sources) $(odvitype_sources) $(ofm2opl_sources) \
$(opl2ofm_sources) $(otangle_sources) $(ovf2ovp_sources) \
- $(ovp2ovf_sources) $(omega_web_srcs) $(omega_ch_srcs) \
- lib/texmfmp.c omegadir/ChangeLog omegadir/README \
- omegadir/omega.defines omegadir/omega.version \
- omegadir/omega.mk $(aleph_web_srcs) $(aleph_ch_srcs) \
+ $(ovp2ovf_sources) $(aleph_web_srcs) $(aleph_ch_srcs) \
lib/texmfmp.c alephdir/ChangeLog alephdir/Makefile \
alephdir/aleph.defines alephdir/aleph.version \
alephdir/eomega.ech alephdir/etex.ch alephdir/omega.ch0 \
@@ -980,8 +963,8 @@ EXTRA_DIST = PROJECTS cftests config.h cpascal.h help.h tangle.web \
synctexdir/synctex-e-rec.ch1 synctexdir/synctex-pdf-rec.ch2 \
synctexdir/synctex-xe-mem.ch2 synctexdir/synctex-xe-rec.ch2 \
synctexdir/synctex-xe-rec.ch3 synctexdir/synctex-xetex.h \
- synctexdir/am/synctex.mk synctexdir/synctex.mk fmtutil.in \
- Makefile.in.orig configure.in.orig
+ synctexdir/synctex.mk fmtutil.in Makefile.in.orig \
+ configure.in.orig
DISTCLEANFILES = $(EXTRA_LIBRARIES) tangle.c tangle.h tangle.p \
tangle-web2c stamp-tangle tangleboot.c tangleboot.h ctangle.c \
cweb.c stamp-ctangle cftest.p $(web_programs:=.c) \
@@ -1000,10 +983,8 @@ DISTCLEANFILES = $(EXTRA_LIBRARIES) tangle.c tangle.h tangle.p \
luatangle.p $(lua_mp_c_h) mp-ctangle cftest.p \
$(omegaware_programs:=.c) $(omegaware_programs:=.h) \
$(omegaware_programs:=.p) $(omegaware_programs:=-web2c) \
- cftest.p $(nodist_omega_SOURCES) omega.web omega.ch \
- omega-web2c omega.p omega.pool omega-tangle \
- $(nodist_aleph_SOURCES) aleph.web aleph.ch aleph-web2c aleph.p \
- aleph.pool aleph-tangle
+ cftest.p $(nodist_aleph_SOURCES) aleph.web aleph.ch \
+ aleph-web2c aleph.p aleph.pool aleph-tangle
CLEANFILES =
web2c = srcdir=$(srcdir) $(SHELL) $(srcdir)/web2c/convert
makecpool = ./web2c/makecpool
@@ -1049,10 +1030,10 @@ nodist_weave_SOURCES = weave.c weave.h
nodist_ctie_SOURCES = ctie.c
nodist_cweave_SOURCES = cweave.c cweb.c
nodist_tie_SOURCES = tie.c
-tex_CPPFLAGS = $(am__append_17)
-tex_LDADD = $(LDADD) $(socketlibs) $(am__append_18)
+tex_CPPFLAGS = $(am__append_16)
+tex_LDADD = $(LDADD) $(socketlibs) $(am__append_17)
tex_c_h = texini.c tex0.c tex1.c tex2.c texcoerce.h texd.h
-nodist_tex_SOURCES = $(tex_c_h) tex-pool.c texextra.c $(am__append_19)
+nodist_tex_SOURCES = $(tex_c_h) tex-pool.c texextra.c $(am__append_18)
tex_ch_srcs = \
tex.web \
tex.ch \
@@ -1071,11 +1052,11 @@ mf_c_h = mfini.c mf0.c mf1.c mfcoerce.h mfd.h
nodist_libmf_a_SOURCES = $(mf_c_h) mf-pool.c
libmf_a_CPPFLAGS = -DMETA_FONT
mpost_CPPFLAGS = -I$(srcdir)/mpdir
-mpost_LDADD = libmpost.a $(LDADD)
+mpost_LDADD = libmp.a $(LDADD)
mpost_c_h = mpini.c mp0.c mp1.c mp2.c mpcoerce.h mpd.h
nodist_mpost_SOURCES = $(mpost_c_h) mp-pool.c mpextra.c
-libmpost_a_CPPFLAGS = -I$(srcdir)/mpdir
-libmpost_a_SOURCES = \
+libmp_a_CPPFLAGS = -I$(srcdir)/mpdir
+libmp_a_SOURCES = \
mpdir/avl.c \
mpdir/avl.h \
mpdir/avlstuff.c \
@@ -1088,11 +1069,11 @@ libmpost_a_SOURCES = \
mpdir/writefont.c \
mpdir/writet1.c
-etex_CPPFLAGS = $(am__append_20)
-etex_LDADD = $(LDADD) $(socketlibs) $(am__append_21)
+etex_CPPFLAGS = $(am__append_19)
+etex_LDADD = $(LDADD) $(socketlibs) $(am__append_20)
etex_c_h = etexini.c etex0.c etex1.c etex2.c etexcoerce.h etexd.h
nodist_etex_SOURCES = $(etex_c_h) etex-pool.c etexextra.c \
- etexdir/etexextra.h $(am__append_22)
+ etexdir/etexextra.h $(am__append_21)
etex_web_srcs = \
tex.web \
etexdir/etex.ch \
@@ -1115,12 +1096,12 @@ pdftex_dependencies = $(proglib) $(LIBPNG_DEPEND) $(ZLIB_DEPEND) \
$(XPDF_DEPEND) $(OBSDCOMPAT_DEPEND) libmd5.a
nodist_EXTRA_pdftex_SOURCES = dummy.cxx
pdf_tangle = WEBINPUTS=.:$(srcdir)/pdftexdir $(buildenv) $(TANGLE)
-pdftex_CPPFLAGS = $(pdftex_cppflags) $(am__append_23)
+pdftex_CPPFLAGS = $(pdftex_cppflags) $(am__append_22)
pdftex_LDADD = $(pdftex_ldadd) $(LDADD) $(socketlibs)
pdftex_DEPENDENCIES = $(pdftex_dependencies) libpdftex.a
pdftex_c_h = pdftexini.c pdftex0.c pdftex1.c pdftex2.c pdftex3.c pdftexcoerce.h pdftexd.h
nodist_pdftex_SOURCES = $(pdftex_c_h) pdftex-pool.c pdftexextra.c \
- pdftexdir/pdftexextra.h $(am__append_24)
+ pdftexdir/pdftexextra.h $(am__append_23)
pdftex_ch_srcs = \
pdftexdir/pdftex.web \
pdftexdir/tex.ch0 \
@@ -1584,48 +1565,6 @@ nodist_ovf2ovp_SOURCES = ovf2ovp.c ovf2ovp.h
ovf2ovp_sources = omegaware/ovf2ovp.web omegaware/ovf2ovp.ch
nodist_ovp2ovf_SOURCES = ovp2ovf.c ovp2ovf.h
ovp2ovf_sources = omegaware/ovp2ovf.web omegaware/ovp2ovf.ch
-omega_LDADD = $(LDADD) $(socketlibs)
-omega_CPPFLAGS = -I$(srcdir)/omegadir $(AM_CPPFLAGS)
-omega_c_h = omegaini.c omega0.c omega1.c omega2.c omega3.c omegacoerce.h omegad.h
-nodist_omega_SOURCES = $(omega_c_h) omega-pool.c omegaextra.c
-omega_SOURCES = \
- omegadir/omega.c \
- omegadir/omegabis.c \
- omegadir/omegaextra.h \
- omegadir/omegamem.h \
- omegadir/omega-pool.h
-
-omega_web_srcs = \
- tex.web \
- omegadir/omnode.ch \
- omegadir/om16bit.ch \
- omegadir/omstr.ch \
- omegadir/omfont.ch \
- omegadir/omchar.ch \
- omegadir/omfi.ch \
- omegadir/ompar.ch \
- omegadir/omocp.ch \
- omegadir/omfilter.ch \
- omegadir/omtrans.ch \
- omegadir/omdir.ch \
- omegadir/omcprt.ch \
- omegadir/omxml.ch
-
-omega_ch_srcs = \
- omegadir/comnode.ch \
- omegadir/com16bit.ch \
- omegadir/comstr.ch \
- omegadir/comfont.ch \
- omegadir/comchar.ch \
- omegadir/comfi.ch \
- omegadir/compar.ch \
- omegadir/comocp.ch \
- omegadir/comfilter.ch \
- omegadir/comtrans.ch \
- omegadir/comdir.ch \
- omegadir/comxml.ch \
- omegadir/comsrcspec.ch
-
aleph_LDADD = $(LDADD) $(socketlibs)
aleph_CPPFLAGS = -I$(srcdir)/alephdir $(AM_CPPFLAGS)
aleph_c_h = alephini.c aleph0.c aleph1.c aleph2.c aleph3.c alephcoerce.h alephd.h
@@ -1747,7 +1686,7 @@ all: c-auto.h ff-config.h
.SUFFIXES: .c .cc .cxx .lo .o .obj
am--refresh:
@:
-$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(srcdir)/am/bootstrap.am $(srcdir)/am/web.am $(srcdir)/am/cweb.am $(srcdir)/am/texmf.am $(srcdir)/mpdir/am/mp.am $(srcdir)/etexdir/am/etex.am $(srcdir)/pdftexdir/am/pdftex.am $(srcdir)/luatexdir/am/luatex.am $(srcdir)/xetexdir/am/xetex.am $(srcdir)/omegaware/am/omegaware.am $(srcdir)/omegadir/am/omega.am $(srcdir)/alephdir/am/aleph.am $(srcdir)/synctexdir/am/synctex.am $(srcdir)/libmd5/am/md5.am $(am__configure_deps)
+$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(srcdir)/am/bootstrap.am $(srcdir)/am/web.am $(srcdir)/am/cweb.am $(srcdir)/am/texmf.am $(srcdir)/mpdir/am/mp.am $(srcdir)/etexdir/am/etex.am $(srcdir)/pdftexdir/am/pdftex.am $(srcdir)/luatexdir/am/luatex.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 $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
@@ -1832,10 +1771,10 @@ libmf.a: $(libmf_a_OBJECTS) $(libmf_a_DEPENDENCIES)
-rm -f libmf.a
$(libmf_a_AR) libmf.a $(libmf_a_OBJECTS) $(libmf_a_LIBADD)
$(RANLIB) libmf.a
-libmpost.a: $(libmpost_a_OBJECTS) $(libmpost_a_DEPENDENCIES)
- -rm -f libmpost.a
- $(libmpost_a_AR) libmpost.a $(libmpost_a_OBJECTS) $(libmpost_a_LIBADD)
- $(RANLIB) libmpost.a
+libmp.a: $(libmp_a_OBJECTS) $(libmp_a_DEPENDENCIES)
+ -rm -f libmp.a
+ $(libmp_a_AR) libmp.a $(libmp_a_OBJECTS) $(libmp_a_LIBADD)
+ $(RANLIB) libmp.a
libpdftex.a: $(libpdftex_a_OBJECTS) $(libpdftex_a_DEPENDENCIES)
-rm -f libpdftex.a
$(libpdftex_a_AR) libpdftex.a $(libpdftex_a_OBJECTS) $(libpdftex_a_LIBADD)
@@ -1955,9 +1894,6 @@ odvitype$(EXEEXT): $(odvitype_OBJECTS) $(odvitype_DEPENDENCIES)
ofm2opl$(EXEEXT): $(ofm2opl_OBJECTS) $(ofm2opl_DEPENDENCIES)
@rm -f ofm2opl$(EXEEXT)
$(LINK) $(ofm2opl_OBJECTS) $(ofm2opl_LDADD) $(LIBS)
-omega$(EXEEXT): $(omega_OBJECTS) $(omega_DEPENDENCIES)
- @rm -f omega$(EXEEXT)
- $(LINK) $(omega_OBJECTS) $(omega_LDADD) $(LIBS)
opl2ofm$(EXEEXT): $(opl2ofm_OBJECTS) $(opl2ofm_DEPENDENCIES)
@rm -f opl2ofm$(EXEEXT)
$(LINK) $(opl2ofm_OBJECTS) $(opl2ofm_LDADD) $(LIBS)
@@ -2254,14 +2190,14 @@ distclean-compile:
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmf_a-mf0.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmf_a-mf1.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmf_a-mfini.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-avl.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-avlstuff.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-mapfile.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-turningnumber.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-utils.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-writeenc.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-writefont.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmpost_a-writet1.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-avl.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-avlstuff.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-mapfile.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-turningnumber.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-utils.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-writeenc.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-writefont.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libmp_a-writet1.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libpdftex_a-avl.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libpdftex_a-avlstuff.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libpdftex_a-epdf.Po@am__quote@
@@ -2313,15 +2249,6 @@ distclean-compile:
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/odvicopy.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/odvitype.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ofm2opl.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omega-pool.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omega.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omega0.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omega1.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omega2.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omega3.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omegabis.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omegaextra.Po@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/omega-omegaini.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/opl2ofm.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/otangle.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/ovf2ovp.Po@am__quote@
@@ -5126,117 +5053,117 @@ libmf_a-mf-pool.obj: mf-pool.c
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmf_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmf_a-mf-pool.obj `if test -f 'mf-pool.c'; then $(CYGPATH_W) 'mf-pool.c'; else $(CYGPATH_W) '$(srcdir)/mf-pool.c'; fi`
-libmpost_a-avl.o: mpdir/avl.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-avl.o -MD -MP -MF $(DEPDIR)/libmpost_a-avl.Tpo -c -o libmpost_a-avl.o `test -f 'mpdir/avl.c' || echo '$(srcdir)/'`mpdir/avl.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-avl.Tpo $(DEPDIR)/libmpost_a-avl.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avl.c' object='libmpost_a-avl.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-avl.o: mpdir/avl.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-avl.o -MD -MP -MF $(DEPDIR)/libmp_a-avl.Tpo -c -o libmp_a-avl.o `test -f 'mpdir/avl.c' || echo '$(srcdir)/'`mpdir/avl.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-avl.Tpo $(DEPDIR)/libmp_a-avl.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avl.c' object='libmp_a-avl.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-avl.o `test -f 'mpdir/avl.c' || echo '$(srcdir)/'`mpdir/avl.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-avl.o `test -f 'mpdir/avl.c' || echo '$(srcdir)/'`mpdir/avl.c
-libmpost_a-avl.obj: mpdir/avl.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-avl.obj -MD -MP -MF $(DEPDIR)/libmpost_a-avl.Tpo -c -o libmpost_a-avl.obj `if test -f 'mpdir/avl.c'; then $(CYGPATH_W) 'mpdir/avl.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avl.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-avl.Tpo $(DEPDIR)/libmpost_a-avl.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avl.c' object='libmpost_a-avl.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-avl.obj: mpdir/avl.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-avl.obj -MD -MP -MF $(DEPDIR)/libmp_a-avl.Tpo -c -o libmp_a-avl.obj `if test -f 'mpdir/avl.c'; then $(CYGPATH_W) 'mpdir/avl.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avl.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-avl.Tpo $(DEPDIR)/libmp_a-avl.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avl.c' object='libmp_a-avl.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-avl.obj `if test -f 'mpdir/avl.c'; then $(CYGPATH_W) 'mpdir/avl.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avl.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-avl.obj `if test -f 'mpdir/avl.c'; then $(CYGPATH_W) 'mpdir/avl.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avl.c'; fi`
-libmpost_a-avlstuff.o: mpdir/avlstuff.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-avlstuff.o -MD -MP -MF $(DEPDIR)/libmpost_a-avlstuff.Tpo -c -o libmpost_a-avlstuff.o `test -f 'mpdir/avlstuff.c' || echo '$(srcdir)/'`mpdir/avlstuff.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-avlstuff.Tpo $(DEPDIR)/libmpost_a-avlstuff.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avlstuff.c' object='libmpost_a-avlstuff.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-avlstuff.o: mpdir/avlstuff.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-avlstuff.o -MD -MP -MF $(DEPDIR)/libmp_a-avlstuff.Tpo -c -o libmp_a-avlstuff.o `test -f 'mpdir/avlstuff.c' || echo '$(srcdir)/'`mpdir/avlstuff.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-avlstuff.Tpo $(DEPDIR)/libmp_a-avlstuff.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avlstuff.c' object='libmp_a-avlstuff.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-avlstuff.o `test -f 'mpdir/avlstuff.c' || echo '$(srcdir)/'`mpdir/avlstuff.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-avlstuff.o `test -f 'mpdir/avlstuff.c' || echo '$(srcdir)/'`mpdir/avlstuff.c
-libmpost_a-avlstuff.obj: mpdir/avlstuff.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-avlstuff.obj -MD -MP -MF $(DEPDIR)/libmpost_a-avlstuff.Tpo -c -o libmpost_a-avlstuff.obj `if test -f 'mpdir/avlstuff.c'; then $(CYGPATH_W) 'mpdir/avlstuff.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avlstuff.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-avlstuff.Tpo $(DEPDIR)/libmpost_a-avlstuff.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avlstuff.c' object='libmpost_a-avlstuff.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-avlstuff.obj: mpdir/avlstuff.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-avlstuff.obj -MD -MP -MF $(DEPDIR)/libmp_a-avlstuff.Tpo -c -o libmp_a-avlstuff.obj `if test -f 'mpdir/avlstuff.c'; then $(CYGPATH_W) 'mpdir/avlstuff.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avlstuff.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-avlstuff.Tpo $(DEPDIR)/libmp_a-avlstuff.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/avlstuff.c' object='libmp_a-avlstuff.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-avlstuff.obj `if test -f 'mpdir/avlstuff.c'; then $(CYGPATH_W) 'mpdir/avlstuff.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avlstuff.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-avlstuff.obj `if test -f 'mpdir/avlstuff.c'; then $(CYGPATH_W) 'mpdir/avlstuff.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/avlstuff.c'; fi`
-libmpost_a-mapfile.o: mpdir/mapfile.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-mapfile.o -MD -MP -MF $(DEPDIR)/libmpost_a-mapfile.Tpo -c -o libmpost_a-mapfile.o `test -f 'mpdir/mapfile.c' || echo '$(srcdir)/'`mpdir/mapfile.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-mapfile.Tpo $(DEPDIR)/libmpost_a-mapfile.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/mapfile.c' object='libmpost_a-mapfile.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-mapfile.o: mpdir/mapfile.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-mapfile.o -MD -MP -MF $(DEPDIR)/libmp_a-mapfile.Tpo -c -o libmp_a-mapfile.o `test -f 'mpdir/mapfile.c' || echo '$(srcdir)/'`mpdir/mapfile.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-mapfile.Tpo $(DEPDIR)/libmp_a-mapfile.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/mapfile.c' object='libmp_a-mapfile.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-mapfile.o `test -f 'mpdir/mapfile.c' || echo '$(srcdir)/'`mpdir/mapfile.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-mapfile.o `test -f 'mpdir/mapfile.c' || echo '$(srcdir)/'`mpdir/mapfile.c
-libmpost_a-mapfile.obj: mpdir/mapfile.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-mapfile.obj -MD -MP -MF $(DEPDIR)/libmpost_a-mapfile.Tpo -c -o libmpost_a-mapfile.obj `if test -f 'mpdir/mapfile.c'; then $(CYGPATH_W) 'mpdir/mapfile.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/mapfile.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-mapfile.Tpo $(DEPDIR)/libmpost_a-mapfile.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/mapfile.c' object='libmpost_a-mapfile.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-mapfile.obj: mpdir/mapfile.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-mapfile.obj -MD -MP -MF $(DEPDIR)/libmp_a-mapfile.Tpo -c -o libmp_a-mapfile.obj `if test -f 'mpdir/mapfile.c'; then $(CYGPATH_W) 'mpdir/mapfile.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/mapfile.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-mapfile.Tpo $(DEPDIR)/libmp_a-mapfile.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/mapfile.c' object='libmp_a-mapfile.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-mapfile.obj `if test -f 'mpdir/mapfile.c'; then $(CYGPATH_W) 'mpdir/mapfile.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/mapfile.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-mapfile.obj `if test -f 'mpdir/mapfile.c'; then $(CYGPATH_W) 'mpdir/mapfile.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/mapfile.c'; fi`
-libmpost_a-turningnumber.o: mpdir/turningnumber.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-turningnumber.o -MD -MP -MF $(DEPDIR)/libmpost_a-turningnumber.Tpo -c -o libmpost_a-turningnumber.o `test -f 'mpdir/turningnumber.c' || echo '$(srcdir)/'`mpdir/turningnumber.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-turningnumber.Tpo $(DEPDIR)/libmpost_a-turningnumber.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/turningnumber.c' object='libmpost_a-turningnumber.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-turningnumber.o: mpdir/turningnumber.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-turningnumber.o -MD -MP -MF $(DEPDIR)/libmp_a-turningnumber.Tpo -c -o libmp_a-turningnumber.o `test -f 'mpdir/turningnumber.c' || echo '$(srcdir)/'`mpdir/turningnumber.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-turningnumber.Tpo $(DEPDIR)/libmp_a-turningnumber.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/turningnumber.c' object='libmp_a-turningnumber.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-turningnumber.o `test -f 'mpdir/turningnumber.c' || echo '$(srcdir)/'`mpdir/turningnumber.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-turningnumber.o `test -f 'mpdir/turningnumber.c' || echo '$(srcdir)/'`mpdir/turningnumber.c
-libmpost_a-turningnumber.obj: mpdir/turningnumber.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-turningnumber.obj -MD -MP -MF $(DEPDIR)/libmpost_a-turningnumber.Tpo -c -o libmpost_a-turningnumber.obj `if test -f 'mpdir/turningnumber.c'; then $(CYGPATH_W) 'mpdir/turningnumber.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/turningnumber.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-turningnumber.Tpo $(DEPDIR)/libmpost_a-turningnumber.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/turningnumber.c' object='libmpost_a-turningnumber.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-turningnumber.obj: mpdir/turningnumber.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-turningnumber.obj -MD -MP -MF $(DEPDIR)/libmp_a-turningnumber.Tpo -c -o libmp_a-turningnumber.obj `if test -f 'mpdir/turningnumber.c'; then $(CYGPATH_W) 'mpdir/turningnumber.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/turningnumber.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-turningnumber.Tpo $(DEPDIR)/libmp_a-turningnumber.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/turningnumber.c' object='libmp_a-turningnumber.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-turningnumber.obj `if test -f 'mpdir/turningnumber.c'; then $(CYGPATH_W) 'mpdir/turningnumber.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/turningnumber.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-turningnumber.obj `if test -f 'mpdir/turningnumber.c'; then $(CYGPATH_W) 'mpdir/turningnumber.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/turningnumber.c'; fi`
-libmpost_a-utils.o: mpdir/utils.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-utils.o -MD -MP -MF $(DEPDIR)/libmpost_a-utils.Tpo -c -o libmpost_a-utils.o `test -f 'mpdir/utils.c' || echo '$(srcdir)/'`mpdir/utils.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-utils.Tpo $(DEPDIR)/libmpost_a-utils.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/utils.c' object='libmpost_a-utils.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-utils.o: mpdir/utils.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-utils.o -MD -MP -MF $(DEPDIR)/libmp_a-utils.Tpo -c -o libmp_a-utils.o `test -f 'mpdir/utils.c' || echo '$(srcdir)/'`mpdir/utils.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-utils.Tpo $(DEPDIR)/libmp_a-utils.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/utils.c' object='libmp_a-utils.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-utils.o `test -f 'mpdir/utils.c' || echo '$(srcdir)/'`mpdir/utils.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-utils.o `test -f 'mpdir/utils.c' || echo '$(srcdir)/'`mpdir/utils.c
-libmpost_a-utils.obj: mpdir/utils.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-utils.obj -MD -MP -MF $(DEPDIR)/libmpost_a-utils.Tpo -c -o libmpost_a-utils.obj `if test -f 'mpdir/utils.c'; then $(CYGPATH_W) 'mpdir/utils.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/utils.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-utils.Tpo $(DEPDIR)/libmpost_a-utils.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/utils.c' object='libmpost_a-utils.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-utils.obj: mpdir/utils.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-utils.obj -MD -MP -MF $(DEPDIR)/libmp_a-utils.Tpo -c -o libmp_a-utils.obj `if test -f 'mpdir/utils.c'; then $(CYGPATH_W) 'mpdir/utils.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/utils.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-utils.Tpo $(DEPDIR)/libmp_a-utils.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/utils.c' object='libmp_a-utils.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-utils.obj `if test -f 'mpdir/utils.c'; then $(CYGPATH_W) 'mpdir/utils.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/utils.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-utils.obj `if test -f 'mpdir/utils.c'; then $(CYGPATH_W) 'mpdir/utils.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/utils.c'; fi`
-libmpost_a-writeenc.o: mpdir/writeenc.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-writeenc.o -MD -MP -MF $(DEPDIR)/libmpost_a-writeenc.Tpo -c -o libmpost_a-writeenc.o `test -f 'mpdir/writeenc.c' || echo '$(srcdir)/'`mpdir/writeenc.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-writeenc.Tpo $(DEPDIR)/libmpost_a-writeenc.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writeenc.c' object='libmpost_a-writeenc.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-writeenc.o: mpdir/writeenc.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-writeenc.o -MD -MP -MF $(DEPDIR)/libmp_a-writeenc.Tpo -c -o libmp_a-writeenc.o `test -f 'mpdir/writeenc.c' || echo '$(srcdir)/'`mpdir/writeenc.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-writeenc.Tpo $(DEPDIR)/libmp_a-writeenc.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writeenc.c' object='libmp_a-writeenc.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-writeenc.o `test -f 'mpdir/writeenc.c' || echo '$(srcdir)/'`mpdir/writeenc.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-writeenc.o `test -f 'mpdir/writeenc.c' || echo '$(srcdir)/'`mpdir/writeenc.c
-libmpost_a-writeenc.obj: mpdir/writeenc.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-writeenc.obj -MD -MP -MF $(DEPDIR)/libmpost_a-writeenc.Tpo -c -o libmpost_a-writeenc.obj `if test -f 'mpdir/writeenc.c'; then $(CYGPATH_W) 'mpdir/writeenc.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writeenc.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-writeenc.Tpo $(DEPDIR)/libmpost_a-writeenc.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writeenc.c' object='libmpost_a-writeenc.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-writeenc.obj: mpdir/writeenc.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-writeenc.obj -MD -MP -MF $(DEPDIR)/libmp_a-writeenc.Tpo -c -o libmp_a-writeenc.obj `if test -f 'mpdir/writeenc.c'; then $(CYGPATH_W) 'mpdir/writeenc.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writeenc.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-writeenc.Tpo $(DEPDIR)/libmp_a-writeenc.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writeenc.c' object='libmp_a-writeenc.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-writeenc.obj `if test -f 'mpdir/writeenc.c'; then $(CYGPATH_W) 'mpdir/writeenc.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writeenc.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-writeenc.obj `if test -f 'mpdir/writeenc.c'; then $(CYGPATH_W) 'mpdir/writeenc.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writeenc.c'; fi`
-libmpost_a-writefont.o: mpdir/writefont.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-writefont.o -MD -MP -MF $(DEPDIR)/libmpost_a-writefont.Tpo -c -o libmpost_a-writefont.o `test -f 'mpdir/writefont.c' || echo '$(srcdir)/'`mpdir/writefont.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-writefont.Tpo $(DEPDIR)/libmpost_a-writefont.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writefont.c' object='libmpost_a-writefont.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-writefont.o: mpdir/writefont.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-writefont.o -MD -MP -MF $(DEPDIR)/libmp_a-writefont.Tpo -c -o libmp_a-writefont.o `test -f 'mpdir/writefont.c' || echo '$(srcdir)/'`mpdir/writefont.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-writefont.Tpo $(DEPDIR)/libmp_a-writefont.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writefont.c' object='libmp_a-writefont.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-writefont.o `test -f 'mpdir/writefont.c' || echo '$(srcdir)/'`mpdir/writefont.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-writefont.o `test -f 'mpdir/writefont.c' || echo '$(srcdir)/'`mpdir/writefont.c
-libmpost_a-writefont.obj: mpdir/writefont.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-writefont.obj -MD -MP -MF $(DEPDIR)/libmpost_a-writefont.Tpo -c -o libmpost_a-writefont.obj `if test -f 'mpdir/writefont.c'; then $(CYGPATH_W) 'mpdir/writefont.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writefont.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-writefont.Tpo $(DEPDIR)/libmpost_a-writefont.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writefont.c' object='libmpost_a-writefont.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-writefont.obj: mpdir/writefont.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-writefont.obj -MD -MP -MF $(DEPDIR)/libmp_a-writefont.Tpo -c -o libmp_a-writefont.obj `if test -f 'mpdir/writefont.c'; then $(CYGPATH_W) 'mpdir/writefont.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writefont.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-writefont.Tpo $(DEPDIR)/libmp_a-writefont.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writefont.c' object='libmp_a-writefont.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-writefont.obj `if test -f 'mpdir/writefont.c'; then $(CYGPATH_W) 'mpdir/writefont.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writefont.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-writefont.obj `if test -f 'mpdir/writefont.c'; then $(CYGPATH_W) 'mpdir/writefont.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writefont.c'; fi`
-libmpost_a-writet1.o: mpdir/writet1.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-writet1.o -MD -MP -MF $(DEPDIR)/libmpost_a-writet1.Tpo -c -o libmpost_a-writet1.o `test -f 'mpdir/writet1.c' || echo '$(srcdir)/'`mpdir/writet1.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-writet1.Tpo $(DEPDIR)/libmpost_a-writet1.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writet1.c' object='libmpost_a-writet1.o' libtool=no @AMDEPBACKSLASH@
+libmp_a-writet1.o: mpdir/writet1.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-writet1.o -MD -MP -MF $(DEPDIR)/libmp_a-writet1.Tpo -c -o libmp_a-writet1.o `test -f 'mpdir/writet1.c' || echo '$(srcdir)/'`mpdir/writet1.c
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-writet1.Tpo $(DEPDIR)/libmp_a-writet1.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writet1.c' object='libmp_a-writet1.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-writet1.o `test -f 'mpdir/writet1.c' || echo '$(srcdir)/'`mpdir/writet1.c
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-writet1.o `test -f 'mpdir/writet1.c' || echo '$(srcdir)/'`mpdir/writet1.c
-libmpost_a-writet1.obj: mpdir/writet1.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmpost_a-writet1.obj -MD -MP -MF $(DEPDIR)/libmpost_a-writet1.Tpo -c -o libmpost_a-writet1.obj `if test -f 'mpdir/writet1.c'; then $(CYGPATH_W) 'mpdir/writet1.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writet1.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmpost_a-writet1.Tpo $(DEPDIR)/libmpost_a-writet1.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writet1.c' object='libmpost_a-writet1.obj' libtool=no @AMDEPBACKSLASH@
+libmp_a-writet1.obj: mpdir/writet1.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libmp_a-writet1.obj -MD -MP -MF $(DEPDIR)/libmp_a-writet1.Tpo -c -o libmp_a-writet1.obj `if test -f 'mpdir/writet1.c'; then $(CYGPATH_W) 'mpdir/writet1.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writet1.c'; fi`
+@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/libmp_a-writet1.Tpo $(DEPDIR)/libmp_a-writet1.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='mpdir/writet1.c' object='libmp_a-writet1.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmpost_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmpost_a-writet1.obj `if test -f 'mpdir/writet1.c'; then $(CYGPATH_W) 'mpdir/writet1.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writet1.c'; fi`
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libmp_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o libmp_a-writet1.obj `if test -f 'mpdir/writet1.c'; then $(CYGPATH_W) 'mpdir/writet1.c'; else $(CYGPATH_W) '$(srcdir)/mpdir/writet1.c'; fi`
libpdftex_a-avl.o: pdftexdir/avl.c
@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libpdftex_a_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT libpdftex_a-avl.o -MD -MP -MF $(DEPDIR)/libpdftex_a-avl.Tpo -c -o libpdftex_a-avl.o `test -f 'pdftexdir/avl.c' || echo '$(srcdir)/'`pdftexdir/avl.c
@@ -6078,132 +6005,6 @@ mpost-mpextra.obj: mpextra.c
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(mpost_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o mpost-mpextra.obj `if test -f 'mpextra.c'; then $(CYGPATH_W) 'mpextra.c'; else $(CYGPATH_W) '$(srcdir)/mpextra.c'; fi`
-omega-omega.o: omegadir/omega.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega.o -MD -MP -MF $(DEPDIR)/omega-omega.Tpo -c -o omega-omega.o `test -f 'omegadir/omega.c' || echo '$(srcdir)/'`omegadir/omega.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega.Tpo $(DEPDIR)/omega-omega.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegadir/omega.c' object='omega-omega.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega.o `test -f 'omegadir/omega.c' || echo '$(srcdir)/'`omegadir/omega.c
-
-omega-omega.obj: omegadir/omega.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega.obj -MD -MP -MF $(DEPDIR)/omega-omega.Tpo -c -o omega-omega.obj `if test -f 'omegadir/omega.c'; then $(CYGPATH_W) 'omegadir/omega.c'; else $(CYGPATH_W) '$(srcdir)/omegadir/omega.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega.Tpo $(DEPDIR)/omega-omega.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegadir/omega.c' object='omega-omega.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega.obj `if test -f 'omegadir/omega.c'; then $(CYGPATH_W) 'omegadir/omega.c'; else $(CYGPATH_W) '$(srcdir)/omegadir/omega.c'; fi`
-
-omega-omegabis.o: omegadir/omegabis.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omegabis.o -MD -MP -MF $(DEPDIR)/omega-omegabis.Tpo -c -o omega-omegabis.o `test -f 'omegadir/omegabis.c' || echo '$(srcdir)/'`omegadir/omegabis.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omegabis.Tpo $(DEPDIR)/omega-omegabis.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegadir/omegabis.c' object='omega-omegabis.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omegabis.o `test -f 'omegadir/omegabis.c' || echo '$(srcdir)/'`omegadir/omegabis.c
-
-omega-omegabis.obj: omegadir/omegabis.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omegabis.obj -MD -MP -MF $(DEPDIR)/omega-omegabis.Tpo -c -o omega-omegabis.obj `if test -f 'omegadir/omegabis.c'; then $(CYGPATH_W) 'omegadir/omegabis.c'; else $(CYGPATH_W) '$(srcdir)/omegadir/omegabis.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omegabis.Tpo $(DEPDIR)/omega-omegabis.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegadir/omegabis.c' object='omega-omegabis.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omegabis.obj `if test -f 'omegadir/omegabis.c'; then $(CYGPATH_W) 'omegadir/omegabis.c'; else $(CYGPATH_W) '$(srcdir)/omegadir/omegabis.c'; fi`
-
-omega-omegaini.o: omegaini.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omegaini.o -MD -MP -MF $(DEPDIR)/omega-omegaini.Tpo -c -o omega-omegaini.o `test -f 'omegaini.c' || echo '$(srcdir)/'`omegaini.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omegaini.Tpo $(DEPDIR)/omega-omegaini.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegaini.c' object='omega-omegaini.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omegaini.o `test -f 'omegaini.c' || echo '$(srcdir)/'`omegaini.c
-
-omega-omegaini.obj: omegaini.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omegaini.obj -MD -MP -MF $(DEPDIR)/omega-omegaini.Tpo -c -o omega-omegaini.obj `if test -f 'omegaini.c'; then $(CYGPATH_W) 'omegaini.c'; else $(CYGPATH_W) '$(srcdir)/omegaini.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omegaini.Tpo $(DEPDIR)/omega-omegaini.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegaini.c' object='omega-omegaini.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omegaini.obj `if test -f 'omegaini.c'; then $(CYGPATH_W) 'omegaini.c'; else $(CYGPATH_W) '$(srcdir)/omegaini.c'; fi`
-
-omega-omega0.o: omega0.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega0.o -MD -MP -MF $(DEPDIR)/omega-omega0.Tpo -c -o omega-omega0.o `test -f 'omega0.c' || echo '$(srcdir)/'`omega0.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega0.Tpo $(DEPDIR)/omega-omega0.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega0.c' object='omega-omega0.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega0.o `test -f 'omega0.c' || echo '$(srcdir)/'`omega0.c
-
-omega-omega0.obj: omega0.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega0.obj -MD -MP -MF $(DEPDIR)/omega-omega0.Tpo -c -o omega-omega0.obj `if test -f 'omega0.c'; then $(CYGPATH_W) 'omega0.c'; else $(CYGPATH_W) '$(srcdir)/omega0.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega0.Tpo $(DEPDIR)/omega-omega0.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega0.c' object='omega-omega0.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega0.obj `if test -f 'omega0.c'; then $(CYGPATH_W) 'omega0.c'; else $(CYGPATH_W) '$(srcdir)/omega0.c'; fi`
-
-omega-omega1.o: omega1.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega1.o -MD -MP -MF $(DEPDIR)/omega-omega1.Tpo -c -o omega-omega1.o `test -f 'omega1.c' || echo '$(srcdir)/'`omega1.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega1.Tpo $(DEPDIR)/omega-omega1.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega1.c' object='omega-omega1.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega1.o `test -f 'omega1.c' || echo '$(srcdir)/'`omega1.c
-
-omega-omega1.obj: omega1.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega1.obj -MD -MP -MF $(DEPDIR)/omega-omega1.Tpo -c -o omega-omega1.obj `if test -f 'omega1.c'; then $(CYGPATH_W) 'omega1.c'; else $(CYGPATH_W) '$(srcdir)/omega1.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega1.Tpo $(DEPDIR)/omega-omega1.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega1.c' object='omega-omega1.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega1.obj `if test -f 'omega1.c'; then $(CYGPATH_W) 'omega1.c'; else $(CYGPATH_W) '$(srcdir)/omega1.c'; fi`
-
-omega-omega2.o: omega2.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega2.o -MD -MP -MF $(DEPDIR)/omega-omega2.Tpo -c -o omega-omega2.o `test -f 'omega2.c' || echo '$(srcdir)/'`omega2.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega2.Tpo $(DEPDIR)/omega-omega2.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega2.c' object='omega-omega2.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega2.o `test -f 'omega2.c' || echo '$(srcdir)/'`omega2.c
-
-omega-omega2.obj: omega2.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega2.obj -MD -MP -MF $(DEPDIR)/omega-omega2.Tpo -c -o omega-omega2.obj `if test -f 'omega2.c'; then $(CYGPATH_W) 'omega2.c'; else $(CYGPATH_W) '$(srcdir)/omega2.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega2.Tpo $(DEPDIR)/omega-omega2.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega2.c' object='omega-omega2.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega2.obj `if test -f 'omega2.c'; then $(CYGPATH_W) 'omega2.c'; else $(CYGPATH_W) '$(srcdir)/omega2.c'; fi`
-
-omega-omega3.o: omega3.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega3.o -MD -MP -MF $(DEPDIR)/omega-omega3.Tpo -c -o omega-omega3.o `test -f 'omega3.c' || echo '$(srcdir)/'`omega3.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega3.Tpo $(DEPDIR)/omega-omega3.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega3.c' object='omega-omega3.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega3.o `test -f 'omega3.c' || echo '$(srcdir)/'`omega3.c
-
-omega-omega3.obj: omega3.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega3.obj -MD -MP -MF $(DEPDIR)/omega-omega3.Tpo -c -o omega-omega3.obj `if test -f 'omega3.c'; then $(CYGPATH_W) 'omega3.c'; else $(CYGPATH_W) '$(srcdir)/omega3.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega3.Tpo $(DEPDIR)/omega-omega3.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega3.c' object='omega-omega3.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega3.obj `if test -f 'omega3.c'; then $(CYGPATH_W) 'omega3.c'; else $(CYGPATH_W) '$(srcdir)/omega3.c'; fi`
-
-omega-omega-pool.o: omega-pool.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega-pool.o -MD -MP -MF $(DEPDIR)/omega-omega-pool.Tpo -c -o omega-omega-pool.o `test -f 'omega-pool.c' || echo '$(srcdir)/'`omega-pool.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega-pool.Tpo $(DEPDIR)/omega-omega-pool.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega-pool.c' object='omega-omega-pool.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega-pool.o `test -f 'omega-pool.c' || echo '$(srcdir)/'`omega-pool.c
-
-omega-omega-pool.obj: omega-pool.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omega-pool.obj -MD -MP -MF $(DEPDIR)/omega-omega-pool.Tpo -c -o omega-omega-pool.obj `if test -f 'omega-pool.c'; then $(CYGPATH_W) 'omega-pool.c'; else $(CYGPATH_W) '$(srcdir)/omega-pool.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omega-pool.Tpo $(DEPDIR)/omega-omega-pool.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omega-pool.c' object='omega-omega-pool.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omega-pool.obj `if test -f 'omega-pool.c'; then $(CYGPATH_W) 'omega-pool.c'; else $(CYGPATH_W) '$(srcdir)/omega-pool.c'; fi`
-
-omega-omegaextra.o: omegaextra.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omegaextra.o -MD -MP -MF $(DEPDIR)/omega-omegaextra.Tpo -c -o omega-omegaextra.o `test -f 'omegaextra.c' || echo '$(srcdir)/'`omegaextra.c
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omegaextra.Tpo $(DEPDIR)/omega-omegaextra.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegaextra.c' object='omega-omegaextra.o' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omegaextra.o `test -f 'omegaextra.c' || echo '$(srcdir)/'`omegaextra.c
-
-omega-omegaextra.obj: omegaextra.c
-@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT omega-omegaextra.obj -MD -MP -MF $(DEPDIR)/omega-omegaextra.Tpo -c -o omega-omegaextra.obj `if test -f 'omegaextra.c'; then $(CYGPATH_W) 'omegaextra.c'; else $(CYGPATH_W) '$(srcdir)/omegaextra.c'; fi`
-@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/omega-omegaextra.Tpo $(DEPDIR)/omega-omegaextra.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='omegaextra.c' object='omega-omegaextra.obj' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(omega_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o omega-omegaextra.obj `if test -f 'omegaextra.c'; then $(CYGPATH_W) 'omegaextra.c'; else $(CYGPATH_W) '$(srcdir)/omegaextra.c'; fi`
-
pdftex-pdftexini.o: pdftexini.c
@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(pdftex_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT pdftex-pdftexini.o -MD -MP -MF $(DEPDIR)/pdftex-pdftexini.Tpo -c -o pdftex-pdftexini.o `test -f 'pdftexini.c' || echo '$(srcdir)/'`pdftexini.c
@am__fastdepCC_TRUE@ mv -f $(DEPDIR)/pdftex-pdftexini.Tpo $(DEPDIR)/pdftex-pdftexini.Po
@@ -7439,7 +7240,7 @@ mp-tangle: tangle mp.web mp.ch
mp-pool.c: mp.pool $(makecpool) mpdir/mplib.h
$(makecpool) mp.pool $(srcdir)/mpdir/mplib.h >$@ || rm -f $@
-$(libmpost_a_SOURCES): mpd.h
+$(libmp_a_SOURCES): mpd.h
$(etex_c_h): etex-web2c
etex-web2c: etex.p $(web2c_texmf)
$(web2c) etex
@@ -7580,25 +7381,6 @@ ovp2ovf-web2c: $(web2c_common) $(web2c_programs) ovp2ovf.p
touch ovp2ovf.c ovp2ovf.h
ovp2ovf.p: tangle $(ovp2ovf_sources)
$(ow_tangle) ovp2ovf ovp2ovf
-@OMEGA_TRUE@$(omega_SOURCES): omegad.h
-$(omega_c_h): omega-web2c
-omega-web2c: omega.p $(web2c_texmf) omegadir/omega.defines
- $(web2c) omega
- echo timestamp >$@
- touch $(omega_c_h)
-omegaextra.c: lib/texmfmp.c omegad.h
- sed s/TEX-OR-MF-OR-MP/omega/ $(srcdir)/lib/texmfmp.c >$@
-omega.p omega.pool: omega-tangle
-omega-tangle: otangle omega.web omega.ch
- $(otangle) omega omega
- echo timestamp >$@
- touch omega.p omega.pool
-omega-pool.c: omega.pool $(makecpool) omegadir/omega-pool.h
- $(makecpool) omega.pool $(srcdir)/omegadir/omega-pool.h >$@ || rm -f $@
-omega.web: $(TIE) $(omega_web_srcs)
- $(tie) -m omega.web $(omega_web_srcs)
-omega.ch: $(TIE) omega.web $(omega_ch_srcs)
- $(tie) -c omega.ch omega.web $(omega_ch_srcs)
@ALEPH_TRUE@$(aleph_SOURCES): alephd.h
$(aleph_c_h): aleph-web2c
aleph-web2c: aleph.p $(web2c_texmf) alephdir/aleph.defines
diff --git a/Build/source/texk/web2c/ac/web2c.ac b/Build/source/texk/web2c/ac/web2c.ac
index 01c2f6ffbfb..73f72cb3825 100644
--- a/Build/source/texk/web2c/ac/web2c.ac
+++ b/Build/source/texk/web2c/ac/web2c.ac
@@ -25,7 +25,6 @@ AC_ARG_ENABLE([ipc],
m4_define([kpse_tex_progs], [dnl
[[tex], [yes], [no], [TeX], []],
[[etex], [no], [yes], [e-TeX], []],
-[[omega], [no], [no], [Omega], []],
[[aleph], [yes], [no], [Aleph], []],
[[pdftex], [yes], [yes], [pdfTeX], [xpdf libpng obsdcompat]],
[[luatex], [yes], [no], [luaTeX], [xpdf libpng obsdcompat]],
diff --git a/Build/source/texk/web2c/c-auto.in b/Build/source/texk/web2c/c-auto.in
index 6f3bb2a94e1..0990d54a279 100644
--- a/Build/source/texk/web2c/c-auto.in
+++ b/Build/source/texk/web2c/c-auto.in
@@ -229,6 +229,9 @@
/* The size of `int', as computed by sizeof. */
#undef SIZEOF_INT
+/* The size of `long', as computed by sizeof. */
+#undef SIZEOF_LONG
+
/* Define to 1 if you have the ANSI C header files. */
#undef STDC_HEADERS
diff --git a/Build/source/texk/web2c/configure b/Build/source/texk/web2c/configure
index 1cc486ab0cf..bd87cb57a84 100755
--- a/Build/source/texk/web2c/configure
+++ b/Build/source/texk/web2c/configure
@@ -865,10 +865,6 @@ ALEPH_SYNCTEX_FALSE
ALEPH_SYNCTEX_TRUE
ALEPH_FALSE
ALEPH_TRUE
-OMEGA_SYNCTEX_FALSE
-OMEGA_SYNCTEX_TRUE
-OMEGA_FALSE
-OMEGA_TRUE
ETEX_SYNCTEX_FALSE
ETEX_SYNCTEX_TRUE
ETEX_FALSE
@@ -1018,7 +1014,6 @@ enable_fmtutil
enable_ipc
enable_tex
enable_etex
-enable_omega
enable_aleph
enable_pdftex
enable_luatex
@@ -1714,7 +1709,6 @@ Optional Features:
--enable-ipc enable TeX's --ipc option, i.e., pipe to a program
--disable-tex do not compile and install TeX
--enable-etex compile and install e-TeX
- --enable-omega compile and install Omega
--disable-aleph do not compile and install Aleph
--disable-pdftex do not compile and install pdfTeX
--disable-luatex do not compile and install luaTeX
@@ -4363,13 +4357,13 @@ if test "${lt_cv_nm_interface+set}" = set; then
else
lt_cv_nm_interface="BSD nm"
echo "int some_variable = 0;" > conftest.$ac_ext
- (eval echo "\"\$as_me:4366: $ac_compile\"" >&5)
+ (eval echo "\"\$as_me:4360: $ac_compile\"" >&5)
(eval "$ac_compile" 2>conftest.err)
cat conftest.err >&5
- (eval echo "\"\$as_me:4369: $NM \\\"conftest.$ac_objext\\\"\"" >&5)
+ (eval echo "\"\$as_me:4363: $NM \\\"conftest.$ac_objext\\\"\"" >&5)
(eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out)
cat conftest.err >&5
- (eval echo "\"\$as_me:4372: output\"" >&5)
+ (eval echo "\"\$as_me:4366: output\"" >&5)
cat conftest.out >&5
if $GREP 'External.*some_variable' conftest.out > /dev/null; then
lt_cv_nm_interface="MS dumpbin"
@@ -5575,7 +5569,7 @@ ia64-*-hpux*)
;;
*-*-irix6*)
# Find out which ABI we are using.
- echo '#line 5578 "configure"' > conftest.$ac_ext
+ echo '#line 5572 "configure"' > conftest.$ac_ext
if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
(eval $ac_compile) 2>&5
ac_status=$?
@@ -7622,11 +7616,11 @@ else
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:7625: $lt_compile\"" >&5)
+ (eval echo "\"\$as_me:7619: $lt_compile\"" >&5)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&5
- echo "$as_me:7629: \$? = $ac_status" >&5
+ echo "$as_me:7623: \$? = $ac_status" >&5
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
@@ -7961,11 +7955,11 @@ else
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:7964: $lt_compile\"" >&5)
+ (eval echo "\"\$as_me:7958: $lt_compile\"" >&5)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&5
- echo "$as_me:7968: \$? = $ac_status" >&5
+ echo "$as_me:7962: \$? = $ac_status" >&5
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
@@ -8066,11 +8060,11 @@ else
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:8069: $lt_compile\"" >&5)
+ (eval echo "\"\$as_me:8063: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
- echo "$as_me:8073: \$? = $ac_status" >&5
+ echo "$as_me:8067: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
@@ -8121,11 +8115,11 @@ else
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:8124: $lt_compile\"" >&5)
+ (eval echo "\"\$as_me:8118: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
- echo "$as_me:8128: \$? = $ac_status" >&5
+ echo "$as_me:8122: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
@@ -10921,7 +10915,7 @@ else
lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
lt_status=$lt_dlunknown
cat > conftest.$ac_ext <<_LT_EOF
-#line 10924 "configure"
+#line 10918 "configure"
#include "confdefs.h"
#if HAVE_DLFCN_H
@@ -11017,7 +11011,7 @@ else
lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
lt_status=$lt_dlunknown
cat > conftest.$ac_ext <<_LT_EOF
-#line 11020 "configure"
+#line 11014 "configure"
#include "confdefs.h"
#if HAVE_DLFCN_H
@@ -16033,11 +16027,11 @@ else
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:16036: $lt_compile\"" >&5)
+ (eval echo "\"\$as_me:16030: $lt_compile\"" >&5)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&5
- echo "$as_me:16040: \$? = $ac_status" >&5
+ echo "$as_me:16034: \$? = $ac_status" >&5
if (exit $ac_status) && test -s "$ac_outfile"; then
# The compiler can only warn and ignore the option if not recognized
# So say no if there are warnings other than the usual output.
@@ -16132,11 +16126,11 @@ else
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:16135: $lt_compile\"" >&5)
+ (eval echo "\"\$as_me:16129: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
- echo "$as_me:16139: \$? = $ac_status" >&5
+ echo "$as_me:16133: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
@@ -16184,11 +16178,11 @@ else
-e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
-e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
-e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:16187: $lt_compile\"" >&5)
+ (eval echo "\"\$as_me:16181: $lt_compile\"" >&5)
(eval "$lt_compile" 2>out/conftest.err)
ac_status=$?
cat out/conftest.err >&5
- echo "$as_me:16191: \$? = $ac_status" >&5
+ echo "$as_me:16185: \$? = $ac_status" >&5
if (exit $ac_status) && test -s out/conftest2.$ac_objext
then
# The compiler can only warn and ignore the option if not recognized
@@ -17156,7 +17150,7 @@ fi
cpp_link_hack=false
-if test "x$GXX" = xyes && test "x$enable_cxx_runtime_hack" = xyes; then
+if test "x$GXX:$enable_cxx_runtime_hack" = xyes:yes; then
ac_ext=cpp
ac_cpp='$CXXCPP $CPPFLAGS'
@@ -17317,7 +17311,10 @@ done
{ $as_echo "$as_me:$LINENO: checking for statically linking C++ runtime library" >&5
$as_echo_n "checking for statically linking C++ runtime library... " >&6; }
-cat >conftest.$ac_ext <<_ACEOF
+if test "${kpse_cv_cxx_hack+set}" = set; then
+ $as_echo_n "(cached) " >&6
+else
+ cat >conftest.$ac_ext <<_ACEOF
/* confdefs.h. */
_ACEOF
cat confdefs.h >>conftest.$ac_ext
@@ -17337,13 +17334,14 @@ cout <<"worksok\n";
return 0;
}
_ACEOF
-flags_try0='-nodefaultlibs -Wl,-Bstatic -lstdc++ -Wl,-Bdynamic -lm'
-flags_try1='-lgcc_eh -lgcc -lc -lgcc_eh -lgcc'
-flags_try2='-lgcc -lc -lgcc'
-kpse_save_LIBS=$LIBS
-for flags in "$flags_try1" "$flags_try2"; do
- LIBS="$kpse_save_LIBS $flags_try0 $flags"
- rm -f conftest.$ac_objext conftest$ac_exeext
+ flags_try0='-nodefaultlibs -Wl,-Bstatic -lstdc++ -Wl,-Bdynamic -lm'
+ flags_try1='-lgcc_eh -lgcc -lc -lgcc_eh -lgcc'
+ flags_try2='-lgcc -lc -lgcc'
+ kpse_save_LIBS=$LIBS
+ cpp_link_hack=false
+ for flags in "$flags_try1" "$flags_try2"; do
+ LIBS="$kpse_save_LIBS $flags_try0 $flags"
+ rm -f conftest.$ac_objext conftest$ac_exeext
if { (ac_try="$ac_link"
case "(($ac_try" in
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
@@ -17364,10 +17362,15 @@ $as_echo "$ac_try_echo") >&5
test "$cross_compiling" = yes ||
$as_test_x conftest$ac_exeext
}; then
+ if test "x$cross_compiling" = xyes; then
+ cpp_link_hack=true; break
+else
case `(./conftest$ac_exeext; exit) 2>/dev/null` in
- worksok)
- cpp_link_hack=true; break;;
- esac
+ worksok) cpp_link_hack=true; break ;;
+esac
+
+fi
+
else
$as_echo "$as_me: failed program was:" >&5
sed 's/^/| /' conftest.$ac_ext >&5
@@ -17378,16 +17381,20 @@ fi
rm -rf conftest.dSYM
rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \
conftest$ac_exeext
-done
-LIBS=$kpse_save_LIBS
-
-if $cpp_link_hack; then
- CXX_HACK_LIBS="$flags_try0 $flags"
- { $as_echo "$as_me:$LINENO: result: ok using $CXX_HACK_LIBS" >&5
-$as_echo "ok using $CXX_HACK_LIBS" >&6; }
-else
- { $as_echo "$as_me:$LINENO: result: not supported" >&5
-$as_echo "not supported" >&6; }
+ done
+ LIBS=$kpse_save_LIBS
+ if $cpp_link_hack; then
+ kpse_cv_cxx_hack=ok
+ kpse_cv_cxx_flags="$flags_try0 $flags"
+ else
+ kpse_cv_cxx_hack="not supported"
+ fi
+fi
+{ $as_echo "$as_me:$LINENO: result: $kpse_cv_cxx_hack" >&5
+$as_echo "$kpse_cv_cxx_hack" >&6; }
+if test "x$kpse_cv_cxx_hack" = xok; then
+ { $as_echo "$as_me:$LINENO: using $kpse_cv_cxx_flags" >&5
+$as_echo "$as_me: using $kpse_cv_cxx_flags" >&6;}
fi
ac_ext=c
ac_cpp='$CPP $CPPFLAGS'
@@ -17397,9 +17404,10 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu
fi
-if $cpp_link_hack; then
+if test "x$kpse_cv_cxx_flags" = xok; then
CXXLD='$(top_builddir)/CXXLD.sh'
CXX_HACK_DEPS=$CXXLD
+ CXX_HACK_LIBS=$kpse_cv_cxx_flags
cxxld_sh="#! ${CONFIG_SHELL-/bin/sh}
# CXXLD.sh. Generated by configure.
set -- $CXX \"\$@\" $CXX_HACK_LIBS
@@ -17456,14 +17464,6 @@ case $enable_etex in
yes|no) : ;;
*) enable_etex=no ;;
esac
-# Check whether --enable-omega was given.
-if test "${enable_omega+set}" = set; then
- enableval=$enable_omega;
-fi
-case $enable_omega in
- yes|no) : ;;
- *) enable_omega=no ;;
-esac
# Check whether --enable-aleph was given.
if test "${enable_aleph+set}" = set; then
enableval=$enable_aleph;
@@ -17837,20 +17837,6 @@ else
ETEX_SYNCTEX_TRUE='#'
ETEX_SYNCTEX_FALSE=
fi
- if test "x$enable_omega" = xyes; then
- OMEGA_TRUE=
- OMEGA_FALSE='#'
-else
- OMEGA_TRUE='#'
- OMEGA_FALSE=
-fi
- if false; then
- OMEGA_SYNCTEX_TRUE=
- OMEGA_SYNCTEX_FALSE='#'
-else
- OMEGA_SYNCTEX_TRUE='#'
- OMEGA_SYNCTEX_FALSE=
-fi
if test "x$enable_aleph" = xyes; then
ALEPH_TRUE=
ALEPH_FALSE='#'
@@ -17914,7 +17900,7 @@ else
TEX_SYNCTEX_TRUE='#'
TEX_SYNCTEX_FALSE=
fi
-if test "x$enable_omega:$enable_aleph:$enable_xetex" = xno:no:no; then
+if test "x$enable_aleph:$enable_xetex" = xno:no; then
enable_otangle=no
else
enable_otangle=yes
@@ -20252,6 +20238,365 @@ cat >>confdefs.h <<_ACEOF
_ACEOF
+# The cast to long int works around a bug in the HP C Compiler
+# version HP92453-01 B.11.11.23709.GP, which incorrectly rejects
+# declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'.
+# This bug is HP SR number 8606223364.
+{ $as_echo "$as_me:$LINENO: checking size of long" >&5
+$as_echo_n "checking size of long... " >&6; }
+if test "${ac_cv_sizeof_long+set}" = set; then
+ $as_echo_n "(cached) " >&6
+else
+ if test "$cross_compiling" = yes; then
+ # Depending upon the size, compute the lo and hi bounds.
+cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+$ac_includes_default
+int
+main ()
+{
+static int test_array [1 - 2 * !(((long int) (sizeof (long))) >= 0)];
+test_array [0] = 0
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""
+$as_echo "$ac_try_echo") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ ac_lo=0 ac_mid=0
+ while :; do
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+$ac_includes_default
+int
+main ()
+{
+static int test_array [1 - 2 * !(((long int) (sizeof (long))) <= $ac_mid)];
+test_array [0] = 0
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""
+$as_echo "$ac_try_echo") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ ac_hi=$ac_mid; break
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_lo=`expr $ac_mid + 1`
+ if test $ac_lo -le $ac_mid; then
+ ac_lo= ac_hi=
+ break
+ fi
+ ac_mid=`expr 2 '*' $ac_mid + 1`
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ done
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+$ac_includes_default
+int
+main ()
+{
+static int test_array [1 - 2 * !(((long int) (sizeof (long))) < 0)];
+test_array [0] = 0
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""
+$as_echo "$ac_try_echo") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ ac_hi=-1 ac_mid=-1
+ while :; do
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+$ac_includes_default
+int
+main ()
+{
+static int test_array [1 - 2 * !(((long int) (sizeof (long))) >= $ac_mid)];
+test_array [0] = 0
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""
+$as_echo "$ac_try_echo") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ ac_lo=$ac_mid; break
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_hi=`expr '(' $ac_mid ')' - 1`
+ if test $ac_mid -le $ac_hi; then
+ ac_lo= ac_hi=
+ break
+ fi
+ ac_mid=`expr 2 '*' $ac_mid`
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+ done
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_lo= ac_hi=
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+# Binary search between lo and hi bounds.
+while test "x$ac_lo" != "x$ac_hi"; do
+ ac_mid=`expr '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo`
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+$ac_includes_default
+int
+main ()
+{
+static int test_array [1 - 2 * !(((long int) (sizeof (long))) <= $ac_mid)];
+test_array [0] = 0
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest.$ac_objext
+if { (ac_try="$ac_compile"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""
+$as_echo "$ac_try_echo") >&5
+ (eval "$ac_compile") 2>conftest.er1
+ ac_status=$?
+ grep -v '^ *+' conftest.er1 >conftest.err
+ rm -f conftest.er1
+ cat conftest.err >&5
+ $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && {
+ test -z "$ac_c_werror_flag" ||
+ test ! -s conftest.err
+ } && test -s conftest.$ac_objext; then
+ ac_hi=$ac_mid
+else
+ $as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+ ac_lo=`expr '(' $ac_mid ')' + 1`
+fi
+
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+done
+case $ac_lo in
+?*) ac_cv_sizeof_long=$ac_lo;;
+'') if test "$ac_cv_type_long" = yes; then
+ { { $as_echo "$as_me:$LINENO: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+{ { $as_echo "$as_me:$LINENO: error: cannot compute sizeof (long)
+See \`config.log' for more details." >&5
+$as_echo "$as_me: error: cannot compute sizeof (long)
+See \`config.log' for more details." >&2;}
+ { (exit 77); exit 77; }; }; }
+ else
+ ac_cv_sizeof_long=0
+ fi ;;
+esac
+else
+ cat >conftest.$ac_ext <<_ACEOF
+/* confdefs.h. */
+_ACEOF
+cat confdefs.h >>conftest.$ac_ext
+cat >>conftest.$ac_ext <<_ACEOF
+/* end confdefs.h. */
+$ac_includes_default
+static long int longval () { return (long int) (sizeof (long)); }
+static unsigned long int ulongval () { return (long int) (sizeof (long)); }
+#include <stdio.h>
+#include <stdlib.h>
+int
+main ()
+{
+
+ FILE *f = fopen ("conftest.val", "w");
+ if (! f)
+ return 1;
+ if (((long int) (sizeof (long))) < 0)
+ {
+ long int i = longval ();
+ if (i != ((long int) (sizeof (long))))
+ return 1;
+ fprintf (f, "%ld", i);
+ }
+ else
+ {
+ unsigned long int i = ulongval ();
+ if (i != ((long int) (sizeof (long))))
+ return 1;
+ fprintf (f, "%lu", i);
+ }
+ /* Do not output a trailing newline, as this causes \r\n confusion
+ on some platforms. */
+ return ferror (f) || fclose (f) != 0;
+
+ ;
+ return 0;
+}
+_ACEOF
+rm -f conftest$ac_exeext
+if { (ac_try="$ac_link"
+case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""
+$as_echo "$ac_try_echo") >&5
+ (eval "$ac_link") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); } && { ac_try='./conftest$ac_exeext'
+ { (case "(($ac_try" in
+ *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
+ *) ac_try_echo=$ac_try;;
+esac
+eval ac_try_echo="\"\$as_me:$LINENO: $ac_try_echo\""
+$as_echo "$ac_try_echo") >&5
+ (eval "$ac_try") 2>&5
+ ac_status=$?
+ $as_echo "$as_me:$LINENO: \$? = $ac_status" >&5
+ (exit $ac_status); }; }; then
+ ac_cv_sizeof_long=`cat conftest.val`
+else
+ $as_echo "$as_me: program exited with status $ac_status" >&5
+$as_echo "$as_me: failed program was:" >&5
+sed 's/^/| /' conftest.$ac_ext >&5
+
+( exit $ac_status )
+if test "$ac_cv_type_long" = yes; then
+ { { $as_echo "$as_me:$LINENO: error: in \`$ac_pwd':" >&5
+$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
+{ { $as_echo "$as_me:$LINENO: error: cannot compute sizeof (long)
+See \`config.log' for more details." >&5
+$as_echo "$as_me: error: cannot compute sizeof (long)
+See \`config.log' for more details." >&2;}
+ { (exit 77); exit 77; }; }; }
+ else
+ ac_cv_sizeof_long=0
+ fi
+fi
+rm -rf conftest.dSYM
+rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext
+fi
+rm -f conftest.val
+fi
+{ $as_echo "$as_me:$LINENO: result: $ac_cv_sizeof_long" >&5
+$as_echo "$ac_cv_sizeof_long" >&6; }
+
+
+
+cat >>confdefs.h <<_ACEOF
+#define SIZEOF_LONG $ac_cv_sizeof_long
+_ACEOF
+
+
for ac_func in strerror
do
@@ -23629,20 +23974,6 @@ $as_echo "$as_me: error: conditional \"ETEX_SYNCTEX\" was never defined.
Usually this means the macro was only invoked conditionally." >&2;}
{ (exit 1); exit 1; }; }
fi
-if test -z "${OMEGA_TRUE}" && test -z "${OMEGA_FALSE}"; then
- { { $as_echo "$as_me:$LINENO: error: conditional \"OMEGA\" was never defined.
-Usually this means the macro was only invoked conditionally." >&5
-$as_echo "$as_me: error: conditional \"OMEGA\" was never defined.
-Usually this means the macro was only invoked conditionally." >&2;}
- { (exit 1); exit 1; }; }
-fi
-if test -z "${OMEGA_SYNCTEX_TRUE}" && test -z "${OMEGA_SYNCTEX_FALSE}"; then
- { { $as_echo "$as_me:$LINENO: error: conditional \"OMEGA_SYNCTEX\" was never defined.
-Usually this means the macro was only invoked conditionally." >&5
-$as_echo "$as_me: error: conditional \"OMEGA_SYNCTEX\" was never defined.
-Usually this means the macro was only invoked conditionally." >&2;}
- { (exit 1); exit 1; }; }
-fi
if test -z "${ALEPH_TRUE}" && test -z "${ALEPH_FALSE}"; then
{ { $as_echo "$as_me:$LINENO: error: conditional \"ALEPH\" was never defined.
Usually this means the macro was only invoked conditionally." >&5
diff --git a/Build/source/texk/web2c/configure.ac b/Build/source/texk/web2c/configure.ac
index 5b68f07f6f0..c79ce23e452 100644
--- a/Build/source/texk/web2c/configure.ac
+++ b/Build/source/texk/web2c/configure.ac
@@ -79,13 +79,13 @@ AS_IF([test "x$enable_ipc" = xyes],
])
AC_SUBST([socketlibs])
-dnl Generate *TEX, OMEGA, and ALEPH conditionals.
+dnl Generate *TEX and ALEPH conditionals.
m4_foreach([Kpse_Prog], [kpse_tex_progs],
[m4_ifset([Kpse_Prog],
[KPSE_XTEX_COND(Kpse_Prog)])])[]dnl
dnl Disable SyncTeX support for TeX.
AM_CONDITIONAL([TEX_SYNCTEX], [false])[]dnl
-AS_IF([test "x$enable_omega:$enable_aleph:$enable_xetex" = xno:no:no],
+AS_IF([test "x$enable_aleph:$enable_xetex" = xno:no],
[enable_otangle=no],
[enable_otangle=yes])
AM_CONDITIONAL([OTANGLE],
@@ -173,6 +173,7 @@ if test `(uname) 2>/dev/null` = aux; then
fi
AC_CHECK_SIZEOF([int])
+AC_CHECK_SIZEOF([long])
AC_CHECK_FUNCS([strerror])
AC_CHECK_HEADERS([errno.h])
diff --git a/Build/source/texk/web2c/lib/ChangeLog b/Build/source/texk/web2c/lib/ChangeLog
index be183bf4ddd..2756349bd56 100644
--- a/Build/source/texk/web2c/lib/ChangeLog
+++ b/Build/source/texk/web2c/lib/ChangeLog
@@ -1,3 +1,7 @@
+2009-03-29 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * texmfmp.c: remove all references to Omega, eOmega, and pdfeTeX.
+
2009-03-28 Karl Berry <karl@tug.org>
* texmfmp.c (mk_shellcmdlist, shell_cmd_is_allowed): not static,
diff --git a/Build/source/texk/web2c/lib/texmfmp.c b/Build/source/texk/web2c/lib/texmfmp.c
index 22afe6fc4a5..8735ad48e5c 100644
--- a/Build/source/texk/web2c/lib/texmfmp.c
+++ b/Build/source/texk/web2c/lib/texmfmp.c
@@ -48,10 +48,6 @@
#include <pdftexdir/ptexlib.h>
#elif defined (luaTeX)
#include <luatexdir/luatexextra.h>
-#elif defined (Omega)
-#include <omegadir/omegaextra.h>
-#elif defined (eOmega)
-#include <eomegadir/eomegaextra.h>
#elif defined (Aleph)
#include <alephdir/alephextra.h>
#else
@@ -553,14 +549,14 @@ static void parse_options P2H(int, string *);
/* Try to figure out if we have been given a filename. */
static string get_input_file_name P1H(void);
-#if defined(Omega) || defined(eOmega) || defined(Aleph)
+#if defined(Aleph)
/* Declare this for Omega family, so they can parse the -8bit option,
* even though it is a no-op for them.
*/
static int eightbitp;
-#endif /* Omega || eOmega || Aleph */
+#endif /* Aleph */
-#if defined(pdfTeX) || defined(pdfeTeX) || defined(luaTeX)
+#if defined(pdfTeX) || defined(luaTeX)
char *ptexbanner;
#endif
@@ -631,8 +627,8 @@ maininit P2C(int, ac, string *, av)
# define SYNCTEX_NO_OPTION INT_MAX
synctexoption = SYNCTEX_NO_OPTION;
#else
-# /* Omit warning for Omega and non-TeX. */
-# if defined(TeX) && !defined(Omega) && !defined(eOmega) && !defined(Aleph)
+# /* Omit warning for Aleph and non-TeX. */
+# if defined(TeX) && !defined(Aleph)
# warning SyncTeX: -synctex command line option NOT available
# endif
#endif
@@ -700,10 +696,10 @@ maininit P2C(int, ac, string *, av)
iniversion = true;
} else if (FILESTRCASEEQ (kpse_program_name, "virtex")) {
virversion = true;
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph) && !defined(luaTeX)
+#if !defined(Aleph) && !defined(luaTeX)
} else if (FILESTRCASEEQ (kpse_program_name, "mltex")) {
mltexp = true;
-#endif /* !Omega && !eOmega && !Aleph && !luaTeX */
+#endif /* !Aleph && !luaTeX */
#endif /* TeX */
}
@@ -717,7 +713,7 @@ maininit P2C(int, ac, string *, av)
#ifdef TeX
/* Sanity check: -mltex, -enc, -etex only work in combination with -ini. */
if (!iniversion) {
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph) && !defined(luaTeX)
+#if !defined(Aleph) && !defined(luaTeX)
if (mltexp) {
fprintf(stderr, "-mltex only works with -ini\n");
}
@@ -770,16 +766,16 @@ maininit P2C(int, ac, string *, av)
kpse_src_compile);
#endif /* MP */
#ifdef TeX
-#if defined(Omega) || defined (eOmega) || defined (Aleph)
+#if defined (Aleph)
kpse_set_program_enabled (kpse_ocp_format, MAKE_OMEGA_OCP_BY_DEFAULT,
kpse_src_compile);
kpse_set_program_enabled (kpse_ofm_format, MAKE_OMEGA_OFM_BY_DEFAULT,
kpse_src_compile);
kpse_set_program_enabled (kpse_tfm_format, false, kpse_src_compile);
-#else /* !Omega && !eOmega && !Aleph */
+#else /* !Aleph */
kpse_set_program_enabled (kpse_tfm_format, MAKE_TEX_TFM_BY_DEFAULT,
kpse_src_compile);
-#endif /* !Omega && !eOmega && !Aleph */
+#endif /* !Aleph */
kpse_set_program_enabled (kpse_tex_format, MAKE_TEX_TEX_BY_DEFAULT,
kpse_src_compile);
kpse_set_program_enabled (kpse_fmt_format, MAKE_TEX_FMT_BY_DEFAULT,
@@ -871,7 +867,7 @@ topenin P1H(void)
}
#else
char *ptr = &(argv[i][0]);
- /* Don't use strcat, since in Omega the buffer elements aren't
+ /* Don't use strcat, since in Aleph the buffer elements aren't
single bytes. */
while (*ptr) {
buffer[k++] = *(ptr++);
@@ -896,7 +892,7 @@ topenin P1H(void)
/* One more time, this time converting to TeX's internal character
representation. */
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph) && !defined(XeTeX) && !defined(luaTeX)
+#if !defined(Aleph) && !defined(XeTeX) && !defined(luaTeX)
for (i = first; i < last; i++)
buffer[i] = xord[buffer[i]];
#endif
@@ -1046,7 +1042,7 @@ ipc_snd P3C(int, n, int, is_eof, char *, data)
/* This routine notifies the server if there is an eof, or the filename
if a new DVI file is starting. This is the routine called by TeX.
- Omega defines str_start(#) as str_start_ar[# - too_big_char], with
+ Aleph defines str_start(#) as str_start_ar[# - too_big_char], with
too_big_char = biggest_char + 1 = 65536 (omstr.ch).*/
void
@@ -1061,14 +1057,14 @@ ipcpage P1C(int, is_eof)
string cwd = xgetcwd ();
ipc_open_out ();
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph)
+#if !defined(Aleph)
len = strstart[outputfilename + 1] - strstart[outputfilename];
#else
len = strstartar[outputfilename + 1 - 65536L] -
strstartar[outputfilename - 65536L];
#endif
name = (string)xmalloc (len + 1);
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph)
+#if !defined(Aleph)
strncpy (name, (string)&strpool[strstart[outputfilename]], len);
#else
{
@@ -1096,8 +1092,8 @@ ipcpage P1C(int, is_eof)
#endif /* TeX && IPC */
#if defined (TeX) || defined (MF) || defined (MP)
- /* TCX and Omega get along like sparks and gunpowder. */
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph) && !defined(XeTeX) && !defined(luaTeX)
+ /* TCX and Aleph&Co get along like sparks and gunpowder. */
+#if !defined(Aleph) && !defined(XeTeX) && !defined(luaTeX)
/* Return the next number following START, setting POST to the following
character, as in strtol. Issue a warning and return -1 if no number
@@ -1198,7 +1194,7 @@ readtcxfile P1H(void)
WARNING1 ("Could not open char translation file `%s'", orig_filename);
}
}
-#endif /* !Omega && !eOmega && !Aleph && !XeTeX */
+#endif /* !Aleph && !XeTeX && !luaTeX */
#endif /* TeX || MF || MP [character translation] */
#ifdef XeTeX /* XeTeX handles this differently, and allows odd quotes within names */
@@ -1337,12 +1333,12 @@ static struct option long_options[]
{ "ipc", 0, &ipcon, 1 },
{ "ipc-start", 0, &ipcon, 2 },
#endif /* IPC */
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph) && !defined(luaTeX)
+#if !defined(Aleph) && !defined(luaTeX)
{ "mltex", 0, &mltexp, 1 },
#if !defined(XeTeX)
{ "enc", 0, &enctexp, 1 },
#endif /* !XeTeX */
-#endif /* !Omega && !eOmega && !Aleph */
+#endif /* !Aleph && !luaTeX */
#if defined (eTeX) || defined(pdfTeX) || defined(Aleph) || defined(XeTeX) || defined(luaTeX)
{ "etex", 0, &etexp, 1 },
#endif /* eTeX || pdfTeX || Aleph */
@@ -1519,10 +1515,10 @@ parse_options P2C(int, argc, string *, argv)
translate_filename = optarg;
} else if (ARGUMENT_IS ("default-translate-file")) {
default_translate_filename = optarg;
-#if defined(Omega) || defined(eOmega) || defined(Aleph)
+#if defined(Aleph)
} else if (ARGUMENT_IS ("8bit")) {
/* FIXME: print snippy message? Possibly also for above? */
-#endif /* !Omega && !eOmega && !Aleph */
+#endif /* !Aleph */
#endif /* TeX || MF || MP */
#if defined (TeX) || defined (MF)
@@ -1822,7 +1818,7 @@ boolean openoutnameok P1C(const_string, fname)
closed using pclose().
*/
-#if defined(pdfTeX) || defined(pdfeTeX) || defined(luaTeX)
+#if defined(pdfTeX) || defined(luaTeX)
static FILE *pipes [] = {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
@@ -1842,7 +1838,7 @@ open_in_or_pipe P3C(FILE **, f_ptr, int, filefmt, const_string, fopen_mode)
*f_ptr = NULL;
fname = (string)xmalloc(strlen((const_string)(nameoffile+1))+1);
strcpy(fname,(const_string)(nameoffile+1));
-#if !defined(pdfTeX) && !defined(pdfeTeX)
+#if !defined(pdfTeX)
if (fullnameoffile)
free (fullnameoffile);
fullnameoffile = xstrdup (fname);
@@ -2099,7 +2095,7 @@ input_line P1C(FILE *, f)
--last;
/* Don't bother using xord if we don't need to. */
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph) && !defined(luaTeX)
+#if !defined(Aleph) && !defined(luaTeX)
for (i = first; i <= last; i++)
buffer[i] = xord[buffer[i]];
#endif
@@ -2517,13 +2513,13 @@ gettexstring P1C(strnumber, s)
{
poolpointer len;
string name;
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph)
+#if !defined(Aleph)
len = strstart[s + 1] - strstart[s];
#else
len = strstartar[s + 1 - 65536L] - strstartar[s - 65536L];
#endif
name = (string)xmalloc (len + 1);
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph)
+#if !defined(Aleph)
strncpy (name, (string)&strpool[strstart[s]], len);
#else
{
diff --git a/Build/source/texk/web2c/man/ChangeLog b/Build/source/texk/web2c/man/ChangeLog
index cefa01af10e..68f0b6b46c9 100644
--- a/Build/source/texk/web2c/man/ChangeLog
+++ b/Build/source/texk/web2c/man/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-30 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * omega.man (removed): Omega has been removed. Copied to ...
+ * aleph.man (new): ... here and changed "Omega" => "Aleph".
+
2009-03-22 Karl Berry <karl@tug.org>
* etex.man: missed WB definition, no such thing as elatex,
diff --git a/Build/source/texk/web2c/man/Makefile.am b/Build/source/texk/web2c/man/Makefile.am
index df3e78671e7..129f41b6c55 100644
--- a/Build/source/texk/web2c/man/Makefile.am
+++ b/Build/source/texk/web2c/man/Makefile.am
@@ -56,14 +56,10 @@ if OTANGLE
man_sources +=
endif OTANGLE
-if OMEGA
-man_sources += omega.man
-endif OMEGA
-EXTRA_DIST += omega.man
-
if ALEPH
-man_sources +=
+man_sources += aleph.man
endif ALEPH
+EXTRA_DIST += aleph.man
man_sources += $(misc_man_sources)
EXTRA_DIST += $(misc_man_sources)
diff --git a/Build/source/texk/web2c/man/Makefile.in b/Build/source/texk/web2c/man/Makefile.in
index 6d90996ce1c..ef20c5baf84 100644
--- a/Build/source/texk/web2c/man/Makefile.in
+++ b/Build/source/texk/web2c/man/Makefile.in
@@ -41,8 +41,7 @@ host_triplet = @host@
@LUATEX_TRUE@am__append_8 =
@XETEX_TRUE@am__append_9 =
@OTANGLE_TRUE@am__append_10 =
-@OMEGA_TRUE@am__append_11 = omega.man
-@ALEPH_TRUE@am__append_12 =
+@ALEPH_TRUE@am__append_11 = aleph.man
DIST_COMMON = README $(srcdir)/Makefile.am $(srcdir)/Makefile.in \
$(top_srcdir)/../am/man.am ChangeLog
subdir = man
@@ -239,11 +238,10 @@ man_sources = $(bootstrap_man_sources) $(am__append_1) \
$(mpware_man_sources) $(am__append_2) $(am__append_3) \
$(am__append_4) $(am__append_5) $(am__append_6) \
$(am__append_7) $(am__append_8) $(am__append_9) \
- $(am__append_10) $(am__append_11) $(am__append_12) \
- $(misc_man_sources)
+ $(am__append_10) $(am__append_11) $(misc_man_sources)
EXTRA_DIST = $(bootstrap_man_sources) $(web_man_sources) \
$(mpware_man_sources) tex.man mf.man mpost.man etex.man \
- $(pdeftex_man_sources) omega.man $(misc_man_sources) \
+ $(pdeftex_man_sources) aleph.man $(misc_man_sources) \
amslatex.min initex.min lamstex.min pdftexman.m4 slitex.min \
spell.add virtex.min
bootstrap_man_sources = cweb.man tangle.man
diff --git a/Build/source/texk/web2c/man/omega.man b/Build/source/texk/web2c/man/omega.man
deleted file mode 100644
index e48e22a9a9f..00000000000
--- a/Build/source/texk/web2c/man/omega.man
+++ /dev/null
@@ -1,292 +0,0 @@
-.TH OMEGA 1 "27 December 1997" "Web2C @VERSION@"
-.\"=====================================================================
-.if n .ds MF Metafont
-.if t .ds MF M\s-2ETAFONT\s0
-.if t .ds TX \fRT\\h'-0.1667m'\\v'0.20v'E\\v'-0.20v'\\h'-0.125m'X\fP
-.if n .ds TX TeX
-.ie t .ds OX \fIT\v'+0.25m'E\v'-0.25m'X\fP for troff
-.el .ds OX TeX for nroff
-.\" the same but obliqued
-.\" BX definition must follow TX so BX can use TX
-.if t .ds BX \fRB\s-2IB\s0\fP\*(TX
-.if n .ds BX BibTeX
-.\" LX definition must follow TX so LX can use TX
-.if t .ds LX \fRL\\h'-0.36m'\\v'-0.15v'\s-2A\s0\\h'-0.15m'\\v'0.15v'\fP\*(TX
-.if n .ds LX LaTeX
-.if t .ds AX \fRA\\h'-0.1667m'\\v'0.20v'M\\v'-0.20v'\\h'-0.125m'S\fP\*(TX
-.if n .ds AX AmSTeX
-.if t .ds AY \fRA\\h'-0.1667m'\\v'0.20v'M\\v'-0.20v'\\h'-0.125m'S\fP\*(LX
-.if n .ds AY AmSLaTeX
-.\"=====================================================================
-.SH NAME
-omega, iniomega, viromega \- extended unicode TeX
-.SH SYNOPSIS
-.B omega
-.RI [ options ]
-[\fB&\fR \fIformat\fR ]
-[ \fIfile\fR | \fB\e\fR \fIcommands\fR ]
-.\"=====================================================================
-.SH DESCRIPTION
-Run the Omega typesetter on
-.IR file ,
-usually creating
-.IR file.dvi .
-If the file argument has no extension, ".tex" will be appended to it.
-Instead of a filename, a set of Omega commands can be given, the first
-of which must start with a backslash.
-With a
-.BI & format
-argument Omega uses a different set of precompiled commands,
-contained in
-.IR format.fmt ;
-it is usually better to use the
-.B -fmt
-.I format
-option instead.
-.PP
-Omega is a version of the \*(TX program modified for multilingual
-typesetting. It uses unicode, and has additional primitives for
-(among other things) bidirectional typesetting.
-.PP
-The
-.B iniomega
-and
-.B viromega
-commands are Omega's analogues to the
-.B initex
-and
-.B virtex
-commands. In this installation, they are symlinks to the
-.B omega
-executable.
-.PP
-Omega's command line options are similar to those of \*(TX.
-.PP
-Omega is experimental software.
-.\"=====================================================================
-.SH OPTIONS
-This version of Omega understands the following command line options.
-.TP
-.BI --oft \ format
-.rb
-Use
-.I format
-as the name of the format to be used, instead of the name by which
-Omega was called or a
-.I %&
-line.
-.TP
-.B -halt-on-error
-.rb
-Exit with an error code when an error is encountered during processing.
-.TP
-.B --help
-.rb
-Print help message and exit.
-.TP
-.B --ini
-.rb
-Be
-.BR iniomega ,
-for dumping formats; this is implicitly true if the program is called
-as
-.BR iniomega .
-.TP
-.BI --interaction \ mode
-.rb
-Sets the interaction mode. The mode can be one of
-.IR batchmode ,
-.IR nonstopmode ,
-.IR scrollmode ,
-and
-.IR errorstopmode .
-The meaning of these modes is the same as that of the corresponding
-\ecommands.
-.TP
-.B --ipc
-.rb
-Send DVI output to a socket as well as the usual output file. Whether
-this option is available is the choice of the installer.
-.TP
-.B --ipc-start
-.rb
-As
-.BR --ipc ,
-and starts the server at the other end as well. Whether this option
-is available is the choice of the installer.
-.TP
-.BI --kpathsea-debug \ bitmask
-.rb
-Sets path searching debugging flags according to the bitmask. See the
-.I Kpathsea
-manual for details.
-.TP
-.BI --maketex \ fmt
-.rb
-Enable
-.RI mktex fmt ,
-where
-.I fmt
-must be one of
-.I tex
-or
-.IR tfm .
-.TP
-.BI --no-maketex \ fmt
-.rb
-Disable
-.RI mktex fmt ,
-where
-.I fmt
-must be one of
-.I tex
-or
-.IR tfm .
-.TP
-.BI --output-comment \ string
-.rb
-Use
-.I string
-for the DVI file comment instead of the date.
-.TP
-.BI -output-directory \ directory
-.rb Write output files in
-.I directory
-instead of the current directory. Look up input files in
-.I directory
-first, the along the normal search path.
-.TP
-.B --parse-first-line
-.rb
-If the first line of the main input file begins with
-.I %&
-parse it to look for a dump name.
-.TP
-.BI --progname \ name
-.rb
-Pretend to be program
-.IR name .
-This affects both the format used and the search paths.
-.TP
-.B --recorder
-.rb
-Enable the filename recorder. This leaves a trace of the files opened
-for input and output in a file with extension
-.IR .ofl .
-(This option is always on.)
-.TP
-.B --shell-escape
-.rb
-Enable the
-.BI \ewrite18{ command }
-construct. The
-.I command
-can be any Bourne shell command. This construct is normally
-disallowed for security reasons.
-.TP
-.B --version
-.rb
-Print version information and exit.
-.\"=====================================================================
-.SH ENVIRONMENT
-See the Kpathsearch library documentation (the `Path specifications'
-node) for precise details of how the environment variables are used.
-The
-.B kpsewhich
-utility can be used to query the values of the variables.
-.PP
-One caveat: In most Omega formats, you cannot use ~ in a filename you
-give directly to Omega, because ~ is an active character, and hence is
-expanded, not taken as part of the filename. Other programs, such as
-\*(MF, do not have this problem.
-.PP
-.TP
-TEXMFOUTPUT
-Normally, Omega puts its output files in the current directory. If
-any output file cannot be opened there, it tries to open it in the
-directory specified in the environment variable TEXMFOUTPUT.
-There is no default value for that variable. For example, if you say
-.I tex paper
-and the current directory is not writable, if TEXMFOUTPUT has
-the value
-.IR /tmp ,
-Omega attempts to create
-.I /tmp/paper.log
-(and
-.IR /tmp/paper.dvi ,
-if any output is produced.)
-.TP
-TEXINPUTS
-Search path for
-.I \einput
-and
-.I \eopenin
-files.
-This should probably start with ``.'', so
-that user files are found before system files. An empty path
-component will be replaced with the paths defined in the
-.I texmf.cnf
-file. For example, set TEXINPUTS to ".:/home/usr/tex:" to prepend the
-current direcory and ``/home/user/tex'' to the standard search path.
-.TP
-TEXEDIT
-Command template for switching to editor. The default, usually
-.BR vi ,
-is set when Omega is compiled.
-.\"=====================================================================
-.SH FILES
-The location of the files mentioned below varies from system to
-system. Use the
-.B kpsewhich
-utility to find their locations.
-.TP
-.I omega.pool
-Encoded text of Omega's messages.
-.TP
-.I *.oft
-Predigested Omega format (.\|oft) files.
-.br
-.\"=====================================================================
-.SH NOTES
-This manual page is not meant to be exhaustive. The complete
-documentation for this version of Omega can be found in the info
-manual
-.IR "Web2C: A TeX implementation" .
-.\"=====================================================================
-.SH BUGS
-This version of Omega implements a number of optional extensions.
-In fact, many of these extensions conflict to a greater or lesser
-extent with the definition of Omega. When such extensions are
-enabled, the banner printed when Omega starts is changed to print
-.B Omegak
-instead of
-.BR Omega .
-.PP
-This version of Omega fails to trap arithmetic overflow when
-dimensions are added or subtracted. Cases where this occurs are rare,
-but when it does the generated
-.I DVI
-file will be invalid.
-.PP
-The
-.I DVI
-files produced by Omega may use extensions which make them incompatible
-with most software designed to handle
-.I DVI
-files. In order to print or preview them, you should use
-.B odvips
-to generate a PostScript file.
-.PP
-Omega is experimental software, and if you are an active user it is
-strongly recommended that you subscribe to the Omega mailing list.
-Visit the Omega website
-.B http://omega.cse.unsw.edu.au
-for information on how to subscribe.
-.\"=====================================================================
-.SH "SEE ALSO"
-.BR tex (1),
-.BR mf (1),
-.RB odvips (1),
-.\"=====================================================================
-.SH AUTHORS
-The primary authors of Omega are John Plaice and Yannis Haralambous.
diff --git a/Build/source/texk/web2c/mpdir/am/mp.am b/Build/source/texk/web2c/mpdir/am/mp.am
index eb89d5b0e96..0b7d39ffe97 100644
--- a/Build/source/texk/web2c/mpdir/am/mp.am
+++ b/Build/source/texk/web2c/mpdir/am/mp.am
@@ -7,7 +7,7 @@ bin_PROGRAMS += mpost
endif MP
mpost_CPPFLAGS = -I$(srcdir)/mpdir
-mpost_LDADD = libmpost.a $(LDADD)
+mpost_LDADD = libmp.a $(LDADD)
mpost_c_h = mpini.c mp0.c mp1.c mp2.c mpcoerce.h mpd.h
nodist_mpost_SOURCES = $(mpost_c_h) mp-pool.c mpextra.c
$(mpost_c_h): mp-web2c
@@ -28,13 +28,13 @@ mp-pool.c: mp.pool $(makecpool) mpdir/mplib.h
DISTCLEANFILES += $(nodist_mpost_SOURCES) mp-web2c \
mp.p mp.pool mp-tangle
-## libmpost
+## libmp
##
-EXTRA_LIBRARIES += libmpost.a
+EXTRA_LIBRARIES += libmp.a
-libmpost_a_CPPFLAGS = -I$(srcdir)/mpdir
+libmp_a_CPPFLAGS = -I$(srcdir)/mpdir
-libmpost_a_SOURCES = \
+libmp_a_SOURCES = \
mpdir/avl.c \
mpdir/avl.h \
mpdir/avlstuff.c \
@@ -47,8 +47,8 @@ libmpost_a_SOURCES = \
mpdir/writefont.c \
mpdir/writet1.c
-## We must create mpd.h before compiling the libmpost_a_SOURCES.
-$(libmpost_a_SOURCES): mpd.h
+## We must create mpd.h before compiling the libmp_a_SOURCES.
+$(libmp_a_SOURCES): mpd.h
## Eventually delete these files
##
diff --git a/Build/source/texk/web2c/omegadir/ChangeLog b/Build/source/texk/web2c/omegadir/ChangeLog
deleted file mode 100644
index c0d6577f5bf..00000000000
--- a/Build/source/texk/web2c/omegadir/ChangeLog
+++ /dev/null
@@ -1,23 +0,0 @@
-2009-02-27 Peter Breitenlohner <peb@mppmu.mpg.de>
-
- Backport of changes for Aleph
-
- * omegaextra.h (BUG_ADDRESS): make consistent.
- * omcprt.ch (new): do not announce copyright on the terminal.
- * omage.mk: include omcprt.ch in sources for omega.web.
- * com16bit.ch (banner_k): just make equivalent to banner,
- since Web2C announces itself.
-
- * comsrcspec.ch, com16bit.ch:
- Use runsystem() instead of system(), etc. See tex.ch entry in
- ../ChangeLog
-
-2008-07-04 Karl Berry <karl@tug.org>
-
- * omega.mk (otps): use @OMEGA@ for otps_programs and otps.
- Report from Francois Charrette, tldistro 03 Jul 2008 16:07:38.
-
-2008-03-23 Karl Berry <karl@freefriends.org>
-
- * Update to TeX 3.1415926; compile in pool files.
- From Akira.
diff --git a/Build/source/texk/web2c/omegadir/README b/Build/source/texk/web2c/omegadir/README
deleted file mode 100644
index c8b8d0d048f..00000000000
--- a/Build/source/texk/web2c/omegadir/README
+++ /dev/null
@@ -1,12 +0,0 @@
-This directory contains part of the Omega distribution, other parts
-are found in ../otps, and several files in the parent directory. You
-will also need odvips, the sources of which might be present in
-../../odvips.
-
-Omega is very much experimental software, and may prove hard or
-impossible to build on your system. At present, you need to install
-bison (the GNU version of yacc) and lex or flex to build otp2ocp from
-scratch. If you do not have these programs, you can try to use the
-y_tab.c-dist, y_tab.h-dist, and lex.yy.c-dist files to complete the
-build.
-
diff --git a/Build/source/texk/web2c/omegadir/am/omega.am b/Build/source/texk/web2c/omegadir/am/omega.am
deleted file mode 100644
index 77d97ab50ed..00000000000
--- a/Build/source/texk/web2c/omegadir/am/omega.am
+++ /dev/null
@@ -1,88 +0,0 @@
-## texk/web2c/omegadir/am/omega.am: Makefile fragment for Omega.
-
-## Omega
-##
-if OMEGA
-bin_PROGRAMS += omega
-endif OMEGA
-
-## With --enable-ipc, Omega may need to link with -lsocket.
-omega_LDADD = $(LDADD) $(socketlibs)
-
-omega_CPPFLAGS = -I$(srcdir)/omegadir $(AM_CPPFLAGS)
-omega_c_h = omegaini.c omega0.c omega1.c omega2.c omega3.c omegacoerce.h omegad.h
-nodist_omega_SOURCES = $(omega_c_h) omega-pool.c omegaextra.c
-omega_SOURCES = \
- omegadir/omega.c \
- omegadir/omegabis.c \
- omegadir/omegaextra.h \
- omegadir/omegamem.h \
- omegadir/omega-pool.h
-## We must create omegad.h before compiling the omega_SOURCES,
-## but certainly don't want to create omegad.h if Omega is not built.
-if OMEGA
-$(omega_SOURCES): omegad.h
-endif OMEGA
-$(omega_c_h): omega-web2c
-omega-web2c: omega.p $(web2c_texmf) omegadir/omega.defines
- $(web2c) omega
- echo timestamp >$@
- touch $(omega_c_h)
-omegaextra.c: lib/texmfmp.c omegad.h
- sed s/TEX-OR-MF-OR-MP/omega/ $(srcdir)/lib/texmfmp.c >$@
-omega.p omega.pool: omega-tangle
-omega-tangle: otangle omega.web omega.ch
- $(otangle) omega omega
- echo timestamp >$@
- touch omega.p omega.pool
-omega-pool.c: omega.pool $(makecpool) omegadir/omega-pool.h
- $(makecpool) omega.pool $(srcdir)/omegadir/omega-pool.h >$@ || rm -f $@
-## Generate omega.web
-omega_web_srcs = \
- tex.web \
- omegadir/omnode.ch \
- omegadir/om16bit.ch \
- omegadir/omstr.ch \
- omegadir/omfont.ch \
- omegadir/omchar.ch \
- omegadir/omfi.ch \
- omegadir/ompar.ch \
- omegadir/omocp.ch \
- omegadir/omfilter.ch \
- omegadir/omtrans.ch \
- omegadir/omdir.ch \
- omegadir/omcprt.ch \
- omegadir/omxml.ch
-omega.web: $(TIE) $(omega_web_srcs)
- $(tie) -m omega.web $(omega_web_srcs)
-## Generate omega.ch
-omega_ch_srcs = \
- omegadir/comnode.ch \
- omegadir/com16bit.ch \
- omegadir/comstr.ch \
- omegadir/comfont.ch \
- omegadir/comchar.ch \
- omegadir/comfi.ch \
- omegadir/compar.ch \
- omegadir/comocp.ch \
- omegadir/comfilter.ch \
- omegadir/comtrans.ch \
- omegadir/comdir.ch \
- omegadir/comxml.ch \
- omegadir/comsrcspec.ch
-omega.ch: $(TIE) omega.web $(omega_ch_srcs)
- $(tie) -c omega.ch omega.web $(omega_ch_srcs)
-EXTRA_DIST += $(omega_web_srcs) $(omega_ch_srcs) lib/texmfmp.c
-DISTCLEANFILES += $(nodist_omega_SOURCES) omega.web omega.ch omega-web2c \
- omega.p omega.pool omega-tangle
-
-EXTRA_DIST += \
- omegadir/ChangeLog \
- omegadir/README \
- omegadir/omega.defines \
- omegadir/omega.version
-
-## Eventually delete these files
-##
-EXTRA_DIST += omegadir/omega.mk
-
diff --git a/Build/source/texk/web2c/omegadir/com16bit.ch b/Build/source/texk/web2c/omegadir/com16bit.ch
deleted file mode 100644
index 72aa14e3149..00000000000
--- a/Build/source/texk/web2c/omegadir/com16bit.ch
+++ /dev/null
@@ -1,2818 +0,0 @@
-% com16bit.ch: Omega version of file tex.ch
-%
-% tex.ch for C compilation with web2c, derived from various other change files.
-% By Tim Morgan, UC Irvine ICS Department, and many others.
-%
-% (05/28/86) ETM Started with TeX 2.0
-% (06/03/87) ETM Brought up to TeX 2.2
-% (09/26/87) ETM Brought up to TeX 2.3
-% (10/01/87) ETM Brought up to TeX 2.5
-% (12/21/87) ETM Brought up to TeX 2.7
-% (01/14/88) ETM Brought up to TeX 2.9
-% (02/20/88) PAM Revised format and module numbers
-% (03/01/88) ETM Eliminated some unused variables and unnecesary tests
-% (05/09/88) ETM Added yet another casting bug fix
-% (06/21/88) ETM Brought up to TeX version 2.93
-% (12/11/88) ETM Brought up to TeX version 2.94
-% (01/12/89) PAM Brought up to TeX version 2.95
-% (02/14/89) ETM Brought up to TeX version 2.96
-% (03/10/89) ETM Brought up to TeX version 2.98
-% (07/06/89) ETM Brought up to TeX version 2.991
-% (11/30/89) KB To version 2.992 (8-bit).
-% (01/10/90) SR To version 2.993.
-% (03/27/90) KY To version 3.0.
-% (more recent changes in ChangeLog)
-%
-% The TeX program is copyright (C) 1982 by D. E. Knuth.
-% TeX is a trademark of the American Mathematical Society.
-%
-% The module numbers in this change file refer to TEX.WEB 3.141592 as
-% of March, 1995 (published as Donald E. Knuth, TeX: The Program,
-% Volume B of Computers & Typesetting).
-
-@x [0.0] l.83 - WEAVE: print changes only.
- \def\?##1]{\hbox to 1in{\hfil##1.\ }}
- }
-@y 83
- \def\?##1]{\hbox{Changes to \hbox to 1em{\hfil##1}.\ }}
- }
-\let\maybe=\iffalse
-@z
-
-@x
-@d banner=='This is Omega, Version 3.1415926-1.23.2.3' {printed when \TeX\ starts}
-@y
-@d banner=='This is Omega, Version 3.1415926-1.23.2.3' {printed when \TeX\ starts}
-@d banner_k==banner {Web2C announces itself}
-@z
-
-@x [1.4] l.233 - program header
-Actually the heading shown here is not quite normal: The |program| line
-does not mention any |output| file, because \ph\ would ask the \TeX\ user
-to specify a file name if |output| were specified here.
-@:PASCAL H}{\ph@>
-@^system dependencies@>
-@y
-@z
-
-@x [1.4] l.243 - labels in outer block not needed
-program OMEGA; {all file names are defined dynamically}
-label @<Labels in the outer block@>@/
-@y
-program OMEGA; {all file names are defined dynamically}
-@z
-
-@x [1.6] l.267 - labels in outer block not needed
-@ Three labels must be declared in the main program, so we give them
-symbolic names.
-
-@d start_of_TEX=1 {go here when \TeX's variables are initialized}
-@d end_of_TEX=9998 {go here to close files and terminate gracefully}
-@d final_end=9999 {this label marks the ending of the program}
-
-@<Labels in the out...@>=
-start_of_TEX@t\hskip-2pt@>, end_of_TEX@t\hskip-2pt@>,@,final_end;
- {key control points}
-@y
-@ For Web2c, labels are not declared in the main program, but
-we still have to declare the symbolic names.
-
-@d start_of_TEX=1 {go here when \TeX's variables are initialized}
-@d final_end=9999 {this label marks the ending of the program}
-@z
-
-% Here we change these WEB symbols, which are used much as #ifdef's
-% are in C, into something which will get translated into actual #ifdef's.
-@x [1.7] l.292 - debug..gubed, stat..tats
-@d debug==@{ {change this to `$\\{debug}\equiv\null$' when debugging}
-@d gubed==@t@>@} {change this to `$\\{gubed}\equiv\null$' when debugging}
-@y
-@d debug==ifdef('TEXMF_DEBUG')
-@d gubed==endif('TEXMF_DEBUG')
-@z
-@x [1.7] l.297 - debug..gubed, stat..tats
-@d stat==@{ {change this to `$\\{stat}\equiv\null$' when gathering
- usage statistics}
-@d tats==@t@>@} {change this to `$\\{tats}\equiv\null$' when gathering
- usage statistics}
-@y
-@d stat==ifdef('STAT')
-@d tats==endif('STAT')
-@z
-
-@x [1.8] l.312 - Same, for `init...tini'.
-@d init== {change this to `$\\{init}\equiv\.{@@\{}$' in the production version}
-@d tini== {change this to `$\\{tini}\equiv\.{@@\}}$' in the production version}
-@y 312
-@d init==ifdef('INITEX')
-@d tini==endif('INITEX')
-@z
-
-@x [1.8] l.319 - init...tini is dynamic
-@!init @<Initialize table entries (done by \.{INITEX} only)@>@;@+tini
-@y 318
-@!init
-if ini_version then
- begin @<Initialize table entries (done by \.{INITEX} only)@>@;
- end;
-@+tini
-@z
-
-@x [1.11] l.375 - Compile-time constants: most removed for dynamic allocation.
-@<Constants...@>=
-@!mem_max=30000; {greatest index in \TeX's internal |mem| array;
- must be strictly less than |max_halfword|;
- must be equal to |mem_top| in \.{INITEX}, otherwise |>=mem_top|}
-@!mem_min=0; {smallest index in \TeX's internal |mem| array;
- must be |min_halfword| or more;
- must be equal to |mem_bot| in \.{INITEX}, otherwise |<=mem_bot|}
-@!buf_size=500; {maximum number of characters simultaneously present in
- current lines of open files and in control sequences between
- \.{\\csname} and \.{\\endcsname}; must not exceed |max_halfword|}
-@!error_line=72; {width of context lines on terminal error messages}
-@!half_error_line=42; {width of first lines of contexts in terminal
- error messages; should be between 30 and |error_line-15|}
-@!max_print_line=79; {width of longest text lines output; should be at least 60}
-@!stack_size=200; {maximum number of simultaneous input sources}
-@!max_in_open=6; {maximum number of input files and error insertions that
- can be going on simultaneously}
-@y
-@d file_name_size == maxint
-@d ssup_error_line = 255
-@d ssup_max_strings == 2097151
-{Larger values may be used, but then the arrays consume much more memory.}
-@d ssup_trie_opcode == 65535
-@d ssup_trie_size == @"3FFFFF
-
-@d ssup_hyph_size == 65535 {Changing this requires changing (un)dumping!}
-@d iinf_hyphen_size == 610 {Must be not less than |hyph_prime|!}
-
-@<Constants...@>=
-@!mem_bot=0; {smallest index in the |mem| array dumped by \.{INITEX};
- must not be less than |mem_min|}
- {Use |mem_bot=0| for compilers which cannot decrement pointers.}
-@z
-
-@x
-@!font_max=65535; {maximum internal font number; must be at most |font_biggest|}
-@!param_size=60; {maximum number of simultaneous macro parameters}
-@!nest_size=40; {maximum number of semantic levels simultaneously active}
-@!max_strings=3000; {maximum number of strings; must not exceed |max_halfword|}
-@!string_vacancies=8000; {the minimum number of characters that should be
- available for the user's control sequences and font names,
- after \TeX's own error messages are stored}
-@!pool_size=32000; {maximum number of characters in strings, including all
- error messages and help texts, and the names of all fonts and
- control sequences; must exceed |string_vacancies| by the total
- length of \TeX's own strings, which is currently about 23000}
-@!save_size=600; {space for saving values outside of current group; must be
- at most |max_halfword|}
-@!trie_size=8000; {space for hyphenation patterns; should be larger for
- \.{INITEX} than it is in production versions of \TeX}
-@!trie_op_size=500; {space for ``opcodes'' in the hyphenation patterns}
-@!dvi_buf_size=800; {size of the output buffer; must be a multiple of 8}
-@!file_name_size=40; {file names shouldn't be longer than this}
-@!pool_name='TeXformats:OMEGA.POOL ';
- {string of length |file_name_size|; tells where the string pool appears}
-@y
-@!font_max=65535; {maximum internal font number; must be at most |font_biggest|}
-@!hash_offset=514; {smallest index in hash array, i.e., |hash_base| }
- {Use |hash_offset=0| for compilers which cannot decrement pointers.}
-@!trie_op_size=15011; {space for ``opcodes'' in the hyphenation patterns;
- best if relatively prime to 313, 361, and 1009.}
-@!neg_trie_op_size=-15011; {for lower |trie_op_hash| array bound;
- must be equal to |-trie_op_size|.}
-@!min_trie_op=0; {first possible trie op code for any language}
-@!max_trie_op=ssup_trie_opcode; {largest possible trie opcode for any language}
-@!pool_name=TEXMF_POOL_NAME; {this is configurable, for the sake of ML-\TeX}
- {string of length |file_name_size|; tells where the string pool appears}
-@!engine_name=TEXMF_ENGINE_NAME; {the name of this engine}
-@#
-@!inf_main_memory = 2000000;
-@!sup_main_memory = 256000000;
-
-@!inf_trie_size = 80000;
-@!sup_trie_size = ssup_trie_size;
-
-@!inf_max_strings = 100000;
-@!sup_max_strings = ssup_max_strings;
-
-@!inf_strings_free = 100;
-@!sup_strings_free = sup_max_strings;
-
-@!inf_buf_size = 500;
-@!sup_buf_size = 30000000;
-
-@!inf_nest_size = 40;
-@!sup_nest_size = 4000;
-
-@!inf_max_in_open = 6;
-@!sup_max_in_open = 127;
-
-@!inf_param_size = 60;
-@!sup_param_size = 6000;
-
-@!inf_save_size = 600;
-@!sup_save_size = 80000;
-
-@!inf_stack_size = 200;
-@!sup_stack_size = 30000;
-
-@!inf_dvi_buf_size = 800;
-@!sup_dvi_buf_size = 65536;
-
-@!inf_pool_size = 32000;
-@!sup_pool_size = 40000000;
-@!inf_pool_free = 1000;
-@!sup_pool_free = sup_pool_size;
-@!inf_string_vacancies = 8000;
-@!sup_string_vacancies = sup_pool_size - 23000;
-
-@!sup_hyph_size = ssup_hyph_size;
-@!inf_hyph_size = iinf_hyphen_size; {Must be not less than |hyph_prime|!}
-@z
-
-@x [1.12] l.427 - Constants that are WEB numeric macros.
-@d mem_bot=0 {smallest index in the |mem| array dumped by \.{INITEX};
- must not be less than |mem_min|}
-@d mem_top==30000 {largest index in the |mem| array dumped by \.{INITEX};
- must be substantially larger than |mem_bot|
- and not greater than |mem_max|}
-@d font_base=0 {smallest internal font number; must not be less
- than |min_quarterword|}
-@d hash_size=65536 {maximum number of control sequences; it should be at most
- about |(mem_max-mem_min)/10|}
-@d hash_prime=55711 {a prime number equal to about 85\pct! of |hash_size|}
-@d hyph_size=307 {another prime; the number of \.{\\hyphenation} exceptions}
-@y
-@d font_base=0 {smallest internal font number; must not be less
- than |min_quarterword|}
-@d hash_size=65536 {maximum number of control sequences; it should be at most
- about |(mem_max-mem_min)/10|}
-@d hash_prime=55711 {a prime number equal to about 85\pct! of |hash_size|}
-@d hyph_prime=607 {another prime for hashing \.{\\hyphenation} exceptions;
- if you change this, you should also change |iinf_hyphen_size|.}
-@z
-
-@x [1.16] l.498 - Use C macros for `incr' and `decr'.
-@d incr(#) == #:=#+1 {increase a variable by unity}
-@d decr(#) == #:=#-1 {decrease a variable by unity}
-@y
-@z
-
-% The text_char type is used as an array index into xord. The
-% default type `char' produces signed integers, which are bad array
-% indices in C.
-@x [2.19] l.565 - data type text_char is 8-bit ASCII_code
-@d text_char == char {the data type of characters in text files}
-@y
-@d text_char == ASCII_code {the data type of characters in text files}
-@z
-
-% [3.26] name_of_file is no longer an array. And change the destination
-% type to text_char, which fixes:
-%
-% Date: 19 Sep 1994 10:38:24 +0200
-% From: thorinn@diku.dk (Lars Mathiesen)
-% When echoed to the screen and in the log, character codes
-% above '177 in file names are shown wrongly (typically as ^@).
-%
-@x [3.26] l.789 - name_of_file is no longer an array
-@!name_of_file:packed array[1..file_name_size] of char;@;@/
- {on some systems this may be a \&{record} variable}
-@y
-@!name_of_file:^char;
-@z
-
-@x [3.27] l.794 - Do file opening in C.
-@ The \ph\ compiler with which the present version of \TeX\ was prepared has
-extended the rules of \PASCAL\ in a very convenient way. To open file~|f|,
-we can write
-$$\vbox{\halign{#\hfil\qquad&#\hfil\cr
-|reset(f,@t\\{name}@>,'/O')|&for input;\cr
-|rewrite(f,@t\\{name}@>,'/O')|&for output.\cr}}$$
-The `\\{name}' parameter, which is of type `{\bf packed array
-$[\langle\\{any}\rangle]$ of \\{char}}', stands for the name of
-the external file that is being opened for input or output.
-Blank spaces that might appear in \\{name} are ignored.
-
-The `\.{/O}' parameter tells the operating system not to issue its own
-error messages if something goes wrong. If a file of the specified name
-cannot be found, or if such a file cannot be opened for some other reason
-(e.g., someone may already be trying to write the same file), we will have
-|@!erstat(f)<>0| after an unsuccessful |reset| or |rewrite|. This allows
-\TeX\ to undertake appropriate corrective action.
-@:PASCAL H}{\ph@>
-@^system dependencies@>
-
-\TeX's file-opening procedures return |false| if no file identified by
-|name_of_file| could be opened.
-
-@d reset_OK(#)==erstat(#)=0
-@d rewrite_OK(#)==erstat(#)=0
-
-@p function a_open_in(var f:alpha_file):boolean;
- {open a text file for input}
-begin reset(f,name_of_file,'/O'); a_open_in:=reset_OK(f);
-end;
-@#
-function a_open_out(var f:alpha_file):boolean;
- {open a text file for output}
-begin rewrite(f,name_of_file,'/O'); a_open_out:=rewrite_OK(f);
-end;
-@#
-function b_open_in(var f:byte_file):boolean;
- {open a binary file for input}
-begin reset(f,name_of_file,'/O'); b_open_in:=reset_OK(f);
-end;
-@#
-function b_open_out(var f:byte_file):boolean;
- {open a binary file for output}
-begin rewrite(f,name_of_file,'/O'); b_open_out:=rewrite_OK(f);
-end;
-@#
-function w_open_in(var f:word_file):boolean;
- {open a word file for input}
-begin reset(f,name_of_file,'/O'); w_open_in:=reset_OK(f);
-end;
-@#
-function w_open_out(var f:word_file):boolean;
- {open a word file for output}
-begin rewrite(f,name_of_file,'/O'); w_open_out:=rewrite_OK(f);
-end;
-@y
-@ All of the file opening functions are defined in C.
-@z
-
-@x [3.28] l.850 - Do file closing in C.
-@ Files can be closed with the \ph\ routine `|close(f)|', which
-@:PASCAL H}{\ph@>
-@^system dependencies@>
-should be used when all input or output with respect to |f| has been completed.
-This makes |f| available to be opened again, if desired; and if |f| was used for
-output, the |close| operation makes the corresponding external file appear
-on the user's area, ready to be read.
-
-These procedures should not generate error messages if a file is
-being closed before it has been successfully opened.
-
-@p procedure a_close(var f:alpha_file); {close a text file}
-begin close(f);
-end;
-@#
-procedure b_close(var f:byte_file); {close a binary file}
-begin close(f);
-end;
-@#
-procedure w_close(var f:word_file); {close a word file}
-begin close(f);
-end;
-@y
-@ And all the file closing routines as well.
-@z
-
-@x [3.30] l.888 - Array size of input buffer is determined at runtime.
-@!buffer:array[0..buf_size] of ASCII_code; {lines of characters being read}
-@y
-@!buffer:^ASCII_code; {lines of characters being read}
-@z
-
-@x [3.31] l.933 - Do `input_ln' in C.
-@p function input_ln(var f:alpha_file;@!bypass_eoln:boolean):boolean;
- {inputs the next line or returns |false|}
-var last_nonblank:0..buf_size; {|last| with trailing blanks removed}
-begin if bypass_eoln then if not eof(f) then get(f);
- {input the first character of the line into |f^|}
-last:=first; {cf.\ Matthew 19\thinspace:\thinspace30}
-if eof(f) then input_ln:=false
-else begin last_nonblank:=first;
- while not eoln(f) do
- begin if last>=max_buf_stack then
- begin max_buf_stack:=last+1;
- if max_buf_stack=buf_size then
- @<Report overflow of the input buffer, and abort@>;
- end;
- buffer[last]:=f^; get(f); incr(last);
- if buffer[last-1]<>" " then last_nonblank:=last;
- end;
- last:=last_nonblank; input_ln:=true;
- end;
-end;
-@y
-We define |input_ln| in C, for efficiency.
-@z
-
-% [3.32] `term_in' and `term_out' are standard input and output.
-% Declare the variables that used to be constants.
-@x [3.32] l.961 - `term_in' and `term_out' are standard input and output.
-@<Glob...@>=
-@!term_in:alpha_file; {the terminal as an input file}
-@!term_out:alpha_file; {the terminal as an output file}
-@y
-@d term_in==stdin {the terminal as an input file}
-@d term_out==stdout {the terminal as an output file}
-
-@<Glob...@>=
-@!init
-@!ini_version:boolean; {are we \.{INITEX}?}
-@!dump_option:boolean; {was the dump name option used?}
-@!dump_line:boolean; {was a \.{\%\AM format} line seen?}
-tini@/
-@#
-@!bound_default:integer; {temporary for setup}
-@!bound_name:^char; {temporary for setup}
-@#
-@!main_memory:integer; {total memory words allocated in initex}
-@!extra_mem_bot:integer; {|mem_min:=mem_bot-extra_mem_bot| except in \.{INITEX}}
-@!mem_min:integer; {smallest index in \TeX's internal |mem| array;
- must be |min_halfword| or more;
- must be equal to |mem_bot| in \.{INITEX}, otherwise |<=mem_bot|}
-@!mem_top:integer; {largest index in the |mem| array dumped by \.{INITEX};
- must be substantially larger than |mem_bot|,
- equal to |mem_max| in \.{INITEX}, else not greater than |mem_max|}
-@!extra_mem_top:integer; {|mem_max:=mem_top+extra_mem_top| except in \.{INITEX}}
-@!mem_max:integer; {greatest index in \TeX's internal |mem| array;
- must be strictly less than |max_halfword|;
- must be equal to |mem_top| in \.{INITEX}, otherwise |>=mem_top|}
-@!error_line:integer; {width of context lines on terminal error messages}
-@!half_error_line:integer; {width of first lines of contexts in terminal
- error messages; should be between 30 and |error_line-15|}
-@!max_print_line:integer;
- {width of longest text lines output; should be at least 60}
-@!max_strings:integer; {maximum number of strings; must not exceed |max_halfword|}
-@!strings_free:integer; {strings available after format loaded}
-@!string_vacancies:integer; {the minimum number of characters that should be
- available for the user's control sequences and font names,
- after \TeX's own error messages are stored}
-@!pool_size:integer; {maximum number of characters in strings, including all
- error messages and help texts, and the names of all fonts and
- control sequences; must exceed |string_vacancies| by the total
- length of \TeX's own strings, which is currently about 23000}
-@!pool_free:integer;{pool space free after format loaded}
-@!hyph_size:integer; {maximun number of hyphen exceptions}
-@!trie_size:integer; {space for hyphenation patterns; should be larger for
- \.{INITEX} than it is in production versions of \TeX. 50000 is
- needed for English, German, and Portuguese.}
-@!buf_size:integer; {maximum number of characters simultaneously present in
- current lines of open files and in control sequences between
- \.{\\csname} and \.{\\endcsname}; must not exceed |max_halfword|}
-@!stack_size:integer; {maximum number of simultaneous input sources}
-@!max_in_open:integer; {maximum number of input files and error insertions that
- can be going on simultaneously}
-@!param_size:integer; {maximum number of simultaneous macro parameters}
-@!nest_size:integer; {maximum number of semantic levels simultaneously active}
-@!save_size:integer; {space for saving values outside of current group; must be
- at most |max_halfword|}
-@!dvi_buf_size:integer; {size of the output buffer; must be a multiple of 8}
-@!quoted_filename:boolean; {current filename is quoted}
-@z
-
-@x [3.33] l.964 - We don't need to open terminal files.
-@ Here is how to open the terminal files
-in \ph. The `\.{/I}' switch suppresses the first |get|.
-@:PASCAL H}{\ph@>
-@^system dependencies@>
-
-@d t_open_in==reset(term_in,'TTY:','/O/I') {open the terminal for text input}
-@d t_open_out==rewrite(term_out,'TTY:','/O') {open the terminal for text output}
-@y
-@ Here is how to open the terminal files. |t_open_out| does nothing.
-|t_open_in|, on the other hand, does the work of ``rescanning,'' or getting
-any command line arguments the user has provided. It's defined in C.
-
-@d t_open_out == {output already open for text output}
-@z
-
-@x [3.34] l.982 - Flushing output to terminal files.
-these operations can be specified in \ph:
-@:PASCAL H}{\ph@>
-@^system dependencies@>
-
-@d update_terminal == break(term_out) {empty the terminal output buffer}
-@d clear_terminal == break_in(term_in,true) {clear the terminal input buffer}
-@y
-these operations can be specified with {\mc UNIX}. |update_terminal|
-does an |fflush|. |clear_terminal| is redefined
-to do nothing, since the user should control the terminal.
-@^system dependencies@>
-
-@d update_terminal == fflush (term_out)
-@d clear_terminal == do_nothing
-@z
-
-@x [3.35] l.1017 - Do `input_ln' in C => section not needed.
-@<Report overflow of the input buffer, and abort@>=
-if format_ident=0 then
- begin write_ln(term_out,'Buffer size exceeded!'); goto final_end;
-@.Buffer size exceeded@>
- end
-else begin cur_input.loc_field:=first; cur_input.limit_field:=last-1;
- overflow("buffer size",buf_size);
-@:TeX capacity exceeded buffer size}{\quad buffer size@>
- end
-@y
-Routine is implemented in C, module is not needed.
-@z
-
-@x [3.37] l.1055 - |init_terminal|, reading the command line.
-@ The following program does the required initialization
-without retrieving a possible command line.
-It should be clear how to modify this routine to deal with command lines,
-if the system permits them.
-@^system dependencies@>
-
-@p function init_terminal:boolean; {gets the terminal input started}
-label exit;
-begin t_open_in;
-@y
-@ The following program does the required initialization.
-Iff anything has been specified on the command line, then |t_open_in|
-will return with |last > first|.
-@^system dependencies@>
-
-@p function init_terminal:boolean; {gets the terminal input started}
-label exit;
-begin t_open_in;
-if last > first then
- begin loc := first;
- while (loc < last) and (buffer[loc]=' ') do incr(loc);
- if loc < last then
- begin init_terminal := true; goto exit;
- end;
- end;
-@z
-
-@x [3.37] l.1068 - |init_terminal|, output missing newline.
- write(term_out,'! End of file on the terminal... why?');
-@y
- write_ln(term_out,'! End of file on the terminal... why?');
-@z
-
-@x [4.38] l.1126 - Array size for string pool is determined at runtime.
-@!pool_pointer = 0..pool_size; {for variables that point into |str_pool|}
-@!str_number = 0..max_strings; {for variables that point into |str_start|}
-@y
-@!pool_pointer = integer; {for variables that point into |str_pool|}
-@!str_number = 0..ssup_max_strings; {for variables that point into |str_start|}
-@z
-
-@x [4.39] l.1131 - Dynamically size pool arrays.
-@!str_pool:packed array[pool_pointer] of packed_ASCII_code; {the characters}
-@!str_start_ar : array[str_number] of pool_pointer; {the starting pointers}
-@y
-@!str_pool: ^packed_ASCII_code; {the characters}
-@!str_start_ar : ^pool_pointer; {the starting pointers}
-@z
-
-@x [4.47] l.1237 - string recycling
-@p @!init function get_strings_started:boolean; {initializes the string pool,
-@y
-@p @t\4@>@<Declare additional routines for string recycling@>@/
-
-@!init function get_strings_started:boolean; {initializes the string pool,
-@z
-
-@x
-@ @d bad_pool(#)==begin wake_up_terminal; write_ln(term_out,#);
- a_close(pool_file); get_strings_started:=false; return;
- end
-@<Read the other strings...@>=
-name_of_file:=pool_name; {we needn't set |name_length|}
-if a_open_in(pool_file) then
- begin c:=false;
- repeat @<Read one string, but return |false| if the
- string memory space is getting too tight for comfort@>;
- until c;
- a_close(pool_file); get_strings_started:=true;
- end
-else bad_pool('! I can''t read OMEGA.POOL.')
-@.I can't read OMEGA.POOL@>
-
-@ @<Read one string...@>=
-begin if eof(pool_file) then bad_pool('! OMEGA.POOL has no check sum.');
-@.OMEGA.POOL has no check sum@>
-read(pool_file,m,n); {read two digits of string length}
-if m='*' then @<Check the pool check sum@>
-else begin if (m<"0")or(m>"9")or@|
- (n<"0")or(n>"9") then
- bad_pool('! OMEGA.POOL line doesn''t begin with two digits.');
-@.OMEGA.POOL line doesn't...@>
- l:=m*10+n-"0"*11; {compute the length}
- if pool_ptr+l+string_vacancies>pool_size then
- bad_pool('! You have to increase POOLSIZE.');
-@.You have to increase POOLSIZE@>
- for k:=1 to l do
- begin if eoln(pool_file) then m:=' '@+else read(pool_file,m);
- append_char(m);
- end;
- read_ln(pool_file); g:=make_string;
- end;
-end
-
-@ The \.{WEB} operation \.{@@\$} denotes the value that should be at the
-end of this \.{OMEGA.POOL} file; any other value means that the wrong pool
-file has been loaded.
-@^check sum@>
-
-@<Check the pool check sum@>=
-begin a:=0; k:=1;
-loop@+ begin if (n<"0")or(n>"9") then
- bad_pool('! OMEGA.POOL check sum doesn''t have nine digits.');
-@.OMEGA.POOL check sum...@>
- a:=10*a+n-"0";
- if k=9 then goto done;
- incr(k); read(pool_file,n);
- end;
-done: if a<>@$ then bad_pool('! OMEGA.POOL doesn''t match; OTANGLE me again.');
-@.OMEGA.POOL doesn't match@>
-c:=true;
-end
-@y
-@ @<Read the other strings...@>=
- g := loadpoolstrings((pool_size-string_vacancies));
- if g=0 then begin
- wake_up_terminal; write_ln(term_out,'! You have to increase POOLSIZE.');
- get_strings_started:=false;
- return;
- end;
- get_strings_started:=true;
-
-@ Empty module
-
-@ Empty module
-@z
-
-@x [5.54] l.1422 - error_line
-@!trick_buf:array[0..error_line] of ASCII_code; {circular buffer for
-@y
-@!trick_buf:array[0..ssup_error_line] of ASCII_code; {circular buffer for
-@z
-
-@x [5.61] l.1556 - Print rest of banner, eliminate misleading `(no format preloaded)'.
-wterm(banner);
-if format_ident=0 then wterm_ln(' (no format preloaded)')
-else begin slow_print(format_ident); print_ln;
- end;
-@y
-wterm(banner);
-wterm(version_string);
-if format_ident>0 then slow_print(format_ident);
-print_ln;
-@z
-
-@x [6.73] l.1732 - Add unspecified_mode.
-@d error_stop_mode=3 {stops at every opportunity to interact}
-@y
-@d error_stop_mode=3 {stops at every opportunity to interact}
-@d unspecified_mode=4 {extra value for command-line switch}
-@z
-
-@x [6.73] l.1738 - Add interaction_option.
-@!interaction:batch_mode..error_stop_mode; {current level of interaction}
-@y
-@!interaction:batch_mode..error_stop_mode; {current level of interaction}
-@!interaction_option:batch_mode..unspecified_mode; {set from command line}
-@z
-
-@x [6.74] l.1740 - Allow override by command line switch.
-@ @<Set init...@>=interaction:=error_stop_mode;
-@y
-@ @<Set init...@>=if interaction_option=unspecified_mode then
- interaction:=error_stop_mode
-else
- interaction:=interaction_option;
-@z
-
-% [6.81] Eliminate nonlocal goto, since C doesn't have them.
-% Plus, it's nicer just to do an exit with the appropriate status code
-% under Unix. We call it `uexit' because there's a WEB symbol called
-% `exit' already. We use a C macro to change `uexit' back to `exit'.
-@x [6.81] l.1852 - Eliminate nonlocal goto, since C doesn't have them.
-@<Error hand...@>=
-procedure jump_out;
-begin goto end_of_TEX;
-end;
-@y
-@d do_final_end==begin
- update_terminal;
- ready_already:=0;
- if (history <> spotless) and (history <> warning_issued) then
- uexit(1)
- else
- uexit(0);
- end
-
-@<Error hand...@>=
-procedure jump_out;
-begin
-close_files_and_terminate;
-do_final_end;
-end;
-@z
-
-@x [6.84] l.1888 - Implement the switch-to-editor option.
-line ready to be edited. But such an extension requires some system
-wizardry, so the present implementation simply types out the name of the
-file that should be
-edited and the relevant line number.
-@^system dependencies@>
-
-There is a secret `\.D' option available when the debugging routines haven't
-been commented~out.
-@^debugging@>
-@y
-line ready to be edited.
-We do this by calling the external procedure |call_edit| with a pointer to
-the filename, its length, and the line number.
-However, here we just set up the variables that will be used as arguments,
-since we don't want to do the switch-to-editor until after TeX has closed
-its files.
-@^system dependencies@>
-
-There is a secret `\.D' option available when the debugging routines haven't
-been commented~out.
-@^debugging@>
-@d edit_file==input_stack[base_ptr]
-@z
-
-@x [6.84] l.1903 - Implement the switch-to-editor option.
-"E": if base_ptr>0 then
- begin print_nl("You want to edit file ");
-@.You want to edit file x@>
- slow_print(input_stack[base_ptr].name_field);
- print(" at line "); print_int(line);
- interaction:=scroll_mode; jump_out;
-@y
-"E": if base_ptr>0 then
- begin edit_name_start:=str_start(edit_file.name_field);
- edit_name_length:=str_start(edit_file.name_field+1) -
- str_start(edit_file.name_field);
- edit_line:=line;
- jump_out;
-@z
-
-% [7.104] `remainder' is a library routine on some systems, so change
-% its name to avoid conflicts.
-@x [7.104] l.2227 - avoid name conflicts with lib routine remainder()
-|remainder|, holds the remainder after a division.
-
-@<Glob...@>=
-@y
-|remainder|, holds the remainder after a division.
-
-@d remainder==tex_remainder
-
-@<Glob...@>=
-@z
-
-@x [7.109] l.2352 - Define glue_ratio in C.
-@!glue_ratio=real; {one-word representation of a glue expansion factor}
-@y
-@z
-
-@x [8.112] l.2435 - Efficiency.
-macros are simplified in the obvious way when |min_quarterword=0|.
-@^inner loop@>@^system dependencies@>
-
-@d qi(#)==#+min_quarterword
- {to put an |eight_bits| item into a quarterword}
-@d qo(#)==#-min_quarterword
- {to take an |eight_bits| item out of a quarterword}
-@d hi(#)==#+min_halfword
- {to put a sixteen-bit item into a halfword}
-@d ho(#)==#-min_halfword
- {to take a sixteen-bit item from a halfword}
-@y
-macros are simplified in the obvious way when |min_quarterword=0|.
-So they have been simplified here in the obvious way.
-@^inner loop@>@^system dependencies@>
-
-@d qi(#)==# {to put an |eight_bits| item into a quarterword}
-@d qo(#)==# {to take an |eight_bits| item from a quarterword}
-@d hi(#)==# {to put a sixteen-bit item into a halfword}
-@d ho(#)==# {to take a sixteen-bit item from a halfword}
-@z
-
-% [8.113] We've put the memory structure into the include file
-% `texmf.h', since it's too hard to translate automatically.
-@x [8.113] l.2453 - data structures for main memory
-@!quarterword = min_quarterword..max_quarterword; {1/4 of a word}
-@!halfword=min_halfword..max_halfword; {1/2 of a word}
-@!two_choices = 1..2; {used when there are two variants in a record}
-@!four_choices = 1..4; {used when there are four variants in a record}
-@!two_halves = packed record@;@/
- @!rh:halfword;
- case two_choices of
- 1: (@!lh:halfword);
- 2: (@!b0:quarterword; @!b1:quarterword);
- end;
-@!four_quarters = packed record@;@/
- @!b0:quarterword;
- @!b1:quarterword;
- @!b2:quarterword;
- @!b3:quarterword;
- end;
-@!memory_word = record@;@/
- case four_choices of
- 1: (@!int:integer);
- 2: (@!gr:glue_ratio);
- 3: (@!hh:two_halves);
- 4: (@!qqqq:four_quarters);
- end;
-@y
-@!quarterword = min_quarterword..max_quarterword;
-@!halfword = min_halfword..max_halfword;
-@!two_choices = 1..2; {used when there are two variants in a record}
-@!four_choices = 1..4; {used when there are four variants in a record}
-@=#include "texmfmem.h";@>
-@=#include "omegamem.h";@>
-@z
-
-% [9.116] Change `mem' to `zmem', so we can define mem to be a register
-% pointer to the memory array for speed.
-@x [9.116] l.2545 - definition of main memory array
-@!mem : array[mem_min..mem_max] of memory_word; {the big dynamic storage area}
-@y
-@!yzmem : ^memory_word; {the big dynamic storage area}
-@!zmem : ^memory_word; {the big dynamic storage area}
-@z
-
-% [9.127] Fix casting problem in C.
-% There are several of these. They come from the rules C uses for
-% comparing signed and unsigned quantities. Just doing the comparison
-% can result in incorrect evaluation wrt the way Pascal would do it.
-@x [9.127] l.2739 - Fix casting problem in C.
-if r>p+1 then @<Allocate from the top of node |p| and |goto found|@>;
-@y 2738
-if r>intcast(p+1) then @<Allocate from the top of node |p| and |goto found|@>;
-@z
-
-% [11.165] Fix the word `free' so that it doesn't conflict with the
-% standard C library routine of the same name.
-@x [11.165] l.3364 - avoid conflict with lib function free()
-are debugging.)
-@y
-are debugging.)
-
-@d free==free_arr
-@z
-
-@x [11.165] l.3367 - dummy |free| and |was_free| arrays
-@!debug @!free: packed array [mem_min..mem_max] of boolean; {free cells}
-@t\hskip10pt@>@!was_free: packed array [mem_min..mem_max] of boolean;
-@y
- {The debug memory arrays have not been mallocated yet.}
-@!debug @!free: packed array [0..9] of boolean; {free cells}
-@t\hskip10pt@>@!was_free: packed array [0..9] of boolean;
-@z
-
-@x [12.174] l.3526 - Eliminate unsigned comparisons to zero.
- begin if (font(p)<font_base)or(font(p)>font_max) then
- print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
-@y
- begin @<Print the font identifier for |font(p)|@>;
-@z
-
-@x [12.176] l.3563 - Eliminate unsigned comparisons to zero.
-begin if p>mem_end then print_esc("CLOBBERED.")
-else begin if (font(p)<font_base)or(font(p)>font_max) then print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
-@y
-begin if p>mem_end then print_esc("CLOBBERED.")
-else begin @<Print the font identifier for |font(p)|@>;
-@z
-
-@x [12.186] l.3747 - Don't worry about strange floating point values.
- if abs(mem[p+glue_offset].int)<@'4000000 then print("?.?")
- else if abs(g)>float_constant(20000) then
-@y 3747
- { The Unix |pc| folks removed this restriction with a remark that
- invalid bit patterns were vanishingly improbable, so we follow
- their example without really understanding it.
- |if abs(mem[p+glue_offset].int)<@'4000000 then print('?.?')|
- |else| }
- if fabs(g)>float_constant(20000) then
-@z
-
-
-@x [16.213] l.4321 - texarray
-@!nest:array[0..nest_size] of list_state_record;
-@y
-@!nest:^list_state_record;
-@z
-
-@x [16.215] l.4344 - remove mem[] reference from initialize.
-@<Start a new current page@>;
-@y
-@/{The following piece of code is a copy of module 991:}
-page_contents:=empty; page_tail:=page_head; {|link(page_head):=null;|}@/
-last_glue:=max_halfword; last_penalty:=0; last_kern:=0;
-page_depth:=0; page_max_depth:=0;
-@z
-
-@x [17.241] l.5219 - Do `fix_date_and_time' in C.
-@ The following procedure, which is called just before \TeX\ initializes its
-input and output, establishes the initial values of the date and time.
-@^system dependencies@>
-Since standard \PASCAL\ cannot provide such information, something special
-is needed. The program here simply specifies July 4, 1776, at noon; but
-users probably want a better approximation to the truth.
-
-@p procedure fix_date_and_time;
-begin time:=12*60; {minutes since midnight}
-day:=4; {fourth day of the month}
-month:=7; {seventh month of the year}
-year:=1776; {Anno Domini}
-end;
-@y
-@ The following procedure, which is called just before \TeX\ initializes its
-input and output, establishes the initial values of the date and time.
-It calls a macro-defined |date_and_time| routine. |date_and_time|
-in turn is a C macro, which calls |get_date_and_time|, passing
-it the addresses of the day, month, etc., so they can be set by the
-routine. |get_date_and_time| also sets up interrupt catching if that
-is conditionally compiled in the C code.
-@^system dependencies@>
-
-@d fix_date_and_time==o_date_and_time(int_base+time_code,
- int_base+day_code,
- int_base+month_code,
- int_base+year_code)
-@z
-
-@x [18.262] l.5584 - Remove more unsigned comparisons to zero.
-else if (newtext(p)<0)or(newtext(p)>=str_ptr) then print_esc("NONEXISTENT.")
-@y
-else if (newtext(p)>=str_ptr) then print_esc("NONEXISTENT.")
-@z
-
-@x [19.271] l.5872 - texarray
-@!save_stack : array[0..save_size] of memory_word;
-@y
-@!save_stack : ^memory_word;
-@z
-
-@x [22.301] l.6432 - texarray
-@!input_stack : array[0..stack_size] of in_state_record;
-@y
-@!input_stack : ^in_state_record;
-@z
-
-@x [22.304] l.6536 - texarray
-@!input_file : array[1..max_in_open] of alpha_file;
-@!input_file_mode : array[1..max_in_open] of halfword;
-@!input_file_translation : array[1..max_in_open] of halfword;
-@!line : integer; {current line number in the current source file}
-@!line_stack : array[1..max_in_open] of integer;
-@!line_numbers : array[1..max_in_open] of integer;
-@!file_names : array[1..max_in_open] of integer;
-@y
-@!input_file : ^alpha_file;
-@!input_file_mode : ^halfword;
-@!input_file_translation : ^halfword;
-@!line : integer; {current line number in the current source file}
-@!line_stack : ^integer;
-@!line_numbers : ^integer;
-@!file_names : ^integer;
-@z
-
-@x [22.308] l.6701 - texarray
-@!param_stack:array [0..param_size] of pointer;
- {token list pointers for parameters}
-@y
-@!param_stack: ^pointer;
- {token list pointers for parameters}
-@z
-
-@x [23.328] l.7043 - keep top of source_filename_stack initialized
-incr(in_open); push_input; index:=in_open;
-@y
-incr(in_open); push_input; index:=in_open;
-source_filename_stack[index]:=0;full_source_filename_stack[index]:=0;
-@z
-
-@x [23.331] l.7071 - init source file name stacks
-begin input_ptr:=0; max_in_stack:=0;
-@y
-begin input_ptr:=0; max_in_stack:=0;
-source_filename_stack[0]:=0;full_source_filename_stack[0]:=0;
-@z
-
-@x [28.501] l.9747 - \eof18
-if_eof_code: begin scan_four_bit_int; b:=(read_open[cur_val]=closed);
- end;
-@y
-if_eof_code: begin scan_four_bit_int_or_18;
- if cur_val=18 then b:=not shellenabledp
- else b:=(read_open[cur_val]=closed);
- end;
-@z
-
-@x [29.513] l.9951 - Area and extension rules for filenames.
-@ The file names we shall deal with for illustrative purposes have the
-following structure: If the name contains `\.>' or `\.:', the file area
-consists of all characters up to and including the final such character;
-otherwise the file area is null. If the remaining file name contains
-`\..', the file extension consists of all such characters from the first
-remaining `\..' to the end, otherwise the file extension is null.
-@y
-@ The file names we shall deal with have the
-following structure: If the name contains `\./' or `\.:'
-(for Amiga only), the file area
-consists of all characters up to and including the final such character;
-otherwise the file area is null. If the remaining file name contains
-`\..', the file extension consists of all such characters from the last
-`\..' to the end, otherwise the file extension is null.
-@z
-
-@x [29.513] l.9963 - Area and extension rules for filenames.
-@!area_delimiter:pool_pointer; {the most recent `\.>' or `\.:', if any}
-@!ext_delimiter:pool_pointer; {the relevant `\..', if any}
-@y
-@!area_delimiter:pool_pointer; {the most recent `\./', if any}
-@!ext_delimiter:pool_pointer; {the most recent `\..', if any}
-@z
-
-@x [29.514] l.9973 - TeX area directories.
-@d TEX_area=="TeXinputs:"
-@.TeXinputs@>
-@d TEX_font_area=="TeXfonts:"
-@.TeXfonts@>
-@y
-In C, the default paths are specified separately.
-@z
-
-@x [29.515] l.9995 - filenames: quoted
-begin area_delimiter:=0; ext_delimiter:=0;
-@y
-begin area_delimiter:=0; ext_delimiter:=0; quoted_filename:=false;
-@z
-
-@x [29.516] l.9992 - filenames: more_name
-begin if c=" " then more_name:=false
-@y
-begin if (c=" ") and stop_at_space and (not quoted_filename) then
- more_name:=false
-else if c="""" then begin
- quoted_filename:=not quoted_filename;
- more_name:=true;
- end
-@z
-
-@x [29.516] l.9994 - filenames: more_name
- if (c=">")or(c=":") then
-@y
- if IS_DIR_SEP(c) then
-@z
-
-@x [29.516] l.9997 - filenames: more_name
- else if (c=".")and(ext_delimiter=0) then ext_delimiter:=cur_length;
-@y
- else if c="." then ext_delimiter:=cur_length;
-@z
-
-@x [29.517] l.10002 - end_name: string recycling
-@ The third.
-@^system dependencies@>
-
-@p procedure end_name;
-@y
-@ The third.
-@^system dependencies@>
-If a string is already in the string pool, the function
-|slow_make_string| does not create a new string but returns this string
-number, thus saving string space. Because of this new property of the
-returned string number it is not possible to apply |flush_string| to
-these strings.
-
-@p procedure end_name;
-var temp_str: str_number; {result of file name cache lookups}
-@!j,@!s,@!t: pool_pointer; {running indices}
-@!must_quote:boolean; {whether we need to quote a string}
-@z
-
-@x [29.517] l.10022 - end_name: spaces in filenames
-@:TeX capacity exceeded number of strings}{\quad number of strings@>
-@y
-@:TeX capacity exceeded number of strings}{\quad number of strings@>
-str_room(6); {Room for quotes, if needed.}
-{add quotes if needed}
-if area_delimiter<>0 then begin
- {maybe quote |cur_area|}
- must_quote:=false;
- s:=str_start(str_ptr);
- t:=str_start(str_ptr)+area_delimiter;
- j:=s;
- while (not must_quote) and (j<t) do begin
- must_quote:=str_pool[j]=" "; incr(j);
- end;
- if must_quote then begin
- for j:=pool_ptr-1 downto t do str_pool[j+2]:=str_pool[j];
- str_pool[t+1]:="""";
- for j:=t-1 downto s do str_pool[j+1]:=str_pool[j];
- str_pool[s]:="""";
- if ext_delimiter<>0 then ext_delimiter:=ext_delimiter+2;
- area_delimiter:=area_delimiter+2;
- pool_ptr:=pool_ptr+2;
- end;
- end;
-{maybe quote |cur_name|}
-s:=str_start(str_ptr)+area_delimiter;
-if ext_delimiter=0 then t:=pool_ptr else t:=str_start(str_ptr)+ext_delimiter-1;
-must_quote:=false;
-j:=s;
-while (not must_quote) and (j<t) do begin
- must_quote:=str_pool[j]=" "; incr(j);
- end;
-if must_quote then begin
- for j:=pool_ptr-1 downto t do str_pool[j+2]:=str_pool[j];
- str_pool[t+1]:="""";
- for j:=t-1 downto s do str_pool[j+1]:=str_pool[j];
- str_pool[s]:="""";
- if ext_delimiter<>0 then ext_delimiter:=ext_delimiter+2;
- pool_ptr:=pool_ptr+2;
- end;
-if ext_delimiter<>0 then begin
- {maybe quote |cur_ext|}
- s:=str_start(str_ptr)+ext_delimiter-1;
- t:=pool_ptr;
- must_quote:=false;
- j:=s;
- while (not must_quote) and (j<t) do begin
- must_quote:=str_pool[j]=" "; incr(j);
- end;
- if must_quote then begin
- str_pool[t+1]:="""";
- for j:=t-1 downto s do str_pool[j+1]:=str_pool[j];
- str_pool[s]:="""";
- pool_ptr:=pool_ptr+2;
- end;
- end;
-@z
-
-@x [29.517] l.10011 - end_name: string recycling
- str_start(str_ptr+1):=str_start(str_ptr)+area_delimiter; incr(str_ptr);
- end;
-if ext_delimiter=0 then
- begin cur_ext:=""; cur_name:=make_string;
-@y
- str_start(str_ptr+1):=str_start(str_ptr)+area_delimiter; incr(str_ptr);
- temp_str:=search_string(cur_area);
- if temp_str>0 then
- begin cur_area:=temp_str;
- decr(str_ptr); {no |flush_string|, |pool_ptr| will be wrong!}
- for j:=str_start(str_ptr+1) to pool_ptr-1 do
- begin str_pool[j-area_delimiter]:=str_pool[j];
- end;
- pool_ptr:=pool_ptr-area_delimiter; {update |pool_ptr|}
- end;
- end;
-if ext_delimiter=0 then
- begin cur_ext:=""; cur_name:=slow_make_string;
-@z
-
-@x [29.517] l.10016 - end_name: string recycling
-else begin cur_name:=str_ptr;
- str_start(str_ptr+1):=str_start(str_ptr)+ext_delimiter-area_delimiter-1;
- incr(str_ptr); cur_ext:=make_string;
-@y
-else begin cur_name:=str_ptr;
- str_start(str_ptr+1):=str_start(str_ptr)+ext_delimiter-area_delimiter-1;
- incr(str_ptr); cur_ext:=make_string;
- decr(str_ptr); {undo extension string to look at name part}
- temp_str:=search_string(cur_name);
- if temp_str>0 then
- begin cur_name:=temp_str;
- decr(str_ptr); {no |flush_string|, |pool_ptr| will be wrong!}
- for j:=str_start(str_ptr+1) to pool_ptr-1 do
- begin str_pool[j-ext_delimiter+area_delimiter+1]:=str_pool[j];
- end;
- pool_ptr:=pool_ptr-ext_delimiter+area_delimiter+1; {update |pool_ptr|}
- end;
- cur_ext:=slow_make_string; {remake extension string}
-@z
-
-@x [29.518] l.10042 - print_file_name: quote if spaces in names.
-begin slow_print(a); slow_print(n); slow_print(e);
-@y
-var must_quote: boolean; {whether to quote the filename}
-@!j:pool_pointer; {index into |str_pool|}
-begin
-must_quote:=false;
-if a<>0 then begin
- j:=str_start(a);
- while (not must_quote) and (j<str_start(a+1)) do begin
- must_quote:=str_pool[j]=" "; incr(j);
- end;
-end;
-if n<>0 then begin
- j:=str_start(n);
- while (not must_quote) and (j<str_start(n+1)) do begin
- must_quote:=str_pool[j]=" "; incr(j);
- end;
-end;
-if e<>0 then begin
- j:=str_start(e);
- while (not must_quote) and (j<str_start(e+1)) do begin
- must_quote:=str_pool[j]=" "; incr(j);
- end;
-end;
-{FIXME: Alternative is to assume that any filename that has to be quoted has
- at least one quoted component...if we pick this, a number of insertions
- of |print_file_name| should go away.
-|must_quote|:=((|a|<>0)and(|str_pool|[|str_start|(|a|)]=""""))or
- ((|n|<>0)and(|str_pool|[|str_start|(|n|)]=""""))or
- ((|e|<>0)and(|str_pool|[|str_start|(|e|)]=""""));}
-if must_quote then print_char("""");
-if a<>0 then
- for j:=str_start(a) to str_start(a+1)-1 do
- if so(str_pool[j])<>"""" then
- print_char(so(str_pool[j]));
-if n<>0 then
- for j:=str_start(n) to str_start(n+1)-1 do
- if so(str_pool[j])<>"""" then
- print_char(so(str_pool[j]));
-if e<>0 then
- for j:=str_start(e) to str_start(e+1)-1 do
- if so(str_pool[j])<>"""" then
- print_char(so(str_pool[j]));
-if must_quote then print_char("""");
-@z
-
-@x [29.519] l.10051 - have append_to_name skip quotes.
-@d append_to_name(#)==begin c:=#; incr(k);
- if k<=file_name_size then name_of_file[k]:=xchr[c];
- end
-@y
-@d append_to_name(#)==begin c:=#; if not (c="""") then begin incr(k);
- if k<=file_name_size then name_of_file[k]:=xchr[c];
- end end
-@z
-
-% [29.519] In pack_file_name, leave room for the extra null we append at
-% the end of a filename.
-@x [29.519] l.10047 - pack_file_name, leave room for the extra null
-for j:=str_start(a) to str_start(a+1)-1 do append_to_name(so(str_pool[j]));
-@y
-if name_of_file then libc_free (name_of_file);
-name_of_file:= xmalloc_array(char, 1 + length(a) + length(n) + length(e));
-for j:=str_start(a) to str_start(a+1)-1 do append_to_name(so(str_pool[j]));
-@z
-
-@x [29.519] l.10051 - pack_file_name, append the extra null
-for k:=name_length+1 to file_name_size do name_of_file[k]:=' ';
-@y
-name_of_file[name_length+1]:=0;
-@z
-
-@x [29.520] l.10060 - filenames: default format.
-@d format_default_length=20 {length of the |TEX_format_default| string}
-@d format_area_length=11 {length of its area part}
-@d format_ext_length=4 {length of its `\.{.fmt}' part}
-@d format_extension=".fmt" {the extension, as a \.{WEB} constant}
-@y
-Under {\mc UNIX} we don't give the area part, instead depending
-on the path searching that will happen during file opening. Also, the
-length will be set in the main program.
-
-@d format_area_length=0 {length of its area part}
-@d format_ext_length=4 {length of its `\.{.fmt}' part}
-@d format_extension=".fmt" {the extension, as a \.{WEB} constant}
-@z
-
-@x [29.521] l.10066 - filenames: default format, where `plain.fmt' is.
-@!TEX_format_default:packed array[1..format_default_length] of char;
-
-@ @<Set init...@>=
-TEX_format_default:='TeXformats:plain.fmt';
-@y
-@!format_default_length: integer;
-@!TEX_format_default: ^char;
-
-@ We set the name of the default format file and the length of that name
-in C, instead of Pascal, since we want them to depend on the name of the
-program.
-@z
-
-@x [29.523] l.10095 - Change to pack_buffered_name as with pack_file_name.
-for j:=1 to n do append_to_name(TEX_format_default[j]);
-@y
-if name_of_file then libc_free (name_of_file);
-name_of_file := xmalloc_array (char, 1 + n + (b - a + 1) + format_ext_length);
-for j:=1 to n do append_to_name(TEX_format_default[j]);
-@z
-
-@x [29.523] l.10100 - Change to pack_buffered_name as with pack_file_name.
-for k:=name_length+1 to file_name_size do name_of_file[k]:=' ';
-@y
-name_of_file[name_length+1]:=0;
-@z
-
-@x [29.524] l.10118 - Format file opening: only try once, with path searching.
- pack_buffered_name(0,loc,j-1); {try first without the system file area}
- if w_open_in(fmt_file) then goto found;
- pack_buffered_name(format_area_length,loc,j-1);
- {now try the system format file area}
- if w_open_in(fmt_file) then goto found;
-@y
- pack_buffered_name(0,loc,j-1); {Kpathsea does everything}
- if w_open_in(fmt_file) then goto found;
-@z
-
-@x [29.524] l.10124 - replace `PLAIN' in error messages with `default'.
- wterm_ln('Sorry, I can''t find that format;',' will try PLAIN.');
-@y
- wterm ('Sorry, I can''t find the format `');
- fputs (name_of_file + 1, stdout);
- wterm ('''; will try `');
- fputs (TEX_format_default + 1, stdout);
- wterm_ln ('''.');
-@z
-
-@x [29.524] l.10132 - replace `PLAIN' in error messages with `default'.
- wterm_ln('I can''t find the PLAIN format file!');
-@.I can't find PLAIN...@>
-@y
- wterm ('I can''t find the format file `');
- fputs (TEX_format_default + 1, stdout);
- wterm_ln ('''!');
-@.I can't find the format...@>
-@z
-
-@x [29.525] l.10163 - make_name_string
-@p function make_name_string:str_number;
-var k:1..file_name_size; {index into |name_of_file|}
-begin if (pool_ptr+name_length>pool_size)or(str_ptr=max_strings)or
- (cur_length>0) then
- make_name_string:="?"
-else begin for k:=1 to name_length do append_char(name_of_file[k]);
- make_name_string:=make_string;
- end;
-@y
-@p function make_name_string:str_number;
-var k:1..file_name_size; {index into |name_of_file|}
-save_area_delimiter, save_ext_delimiter: pool_pointer;
-save_name_in_progress, save_stop_at_space: boolean;
-begin if (pool_ptr+name_length>pool_size)or(str_ptr=max_strings)or
- (cur_length>0) then
- make_name_string:="?"
-else begin for k:=1 to name_length do append_char(name_of_file[k]);
- make_name_string:=make_string;
- {At this point we also set |cur_name|, |cur_ext|, and |cur_area| to
- match the contents of |name_of_file|.}
- save_area_delimiter:=area_delimiter; save_ext_delimiter:=ext_delimiter;
- save_name_in_progress:=name_in_progress; save_stop_at_space:=stop_at_space;
- name_in_progress:=true;
- begin_name;
- stop_at_space:=false;
- k:=1;
- while (k<=name_length)and(more_name(name_of_file[k])) do
- incr(k);
- stop_at_space:=save_stop_at_space;
- end_name;
- name_in_progress:=save_name_in_progress;
- area_delimiter:=save_area_delimiter; ext_delimiter:=save_ext_delimiter;
- end;
-@z
-
-@x [29.526] l.10194 - stop scanning file name if we're at end-of-line.
- if not more_name(cur_chr) then goto done;
-@y
- {If |cur_chr| is a space and we're not scanning a token list, check
- whether we're at the end of the buffer. Otherwise we end up adding
- spurious spaces to file names in some cases.}
- if (cur_chr=" ") and (state<>token_list) and (loc>limit) then goto done;
- if not more_name(cur_chr) then goto done;
-@z
-
-@x [29.530] l.10245 - prompt_file_name: prevent empty filenames.
-var k:0..buf_size; {index into |buffer|}
-@y
-var k:0..buf_size; {index into |buffer|}
-@!saved_cur_name:str_number; {to catch empty terminal input}
-@!saved_cur_ext:str_number; {to catch empty terminal input}
-@!saved_cur_area:str_number; {to catch empty terminal input}
-@z
-
-@x [29.530] l.10252 - prompt_file_name: No default extension is TeX input file.
-if e=".tex" then show_context;
-@y
-if (e=".tex") or (e="") then show_context;
-print_ln; print("(Type <return> to retry, or <eof> to exit");
-if (e<>"") then
- begin
- print(" Default file extension is `"); print(e); print("'");
- end;
-print(")"); print_ln;
-@z
-
-@x [29.530] l.10258 - prompt_file_name: prevent empty filenames.
-clear_terminal; prompt_input(": "); @<Scan file name in the buffer@>;
-if cur_ext="" then cur_ext:=e;
-@y
-saved_cur_name:=cur_name;
-saved_cur_ext:=cur_ext;
-saved_cur_area:=cur_area;
-clear_terminal; prompt_input(": "); @<Scan file name in the buffer@>;
-if (length(cur_name)=0) and (cur_ext="") and (cur_area="") then
- begin
- cur_name:=saved_cur_name;
- cur_ext:=saved_cur_ext;
- cur_area:=saved_cur_area;
- end
-else
- if cur_ext="" then cur_ext:=e;
-@z
-
-@x [29.532] l.10263 - avoid conflict, `logname' in <unistd.h> on some systems.
-@ Here's an example of how these conventions are used. Whenever it is time to
-ship out a box of stuff, we shall use the macro |ensure_dvi_open|.
-
-@y
-@ Here's an example of how these conventions are used. Whenever it is time to
-ship out a box of stuff, we shall use the macro |ensure_dvi_open|.
-
-@d log_name == texmf_log_name
-@z
-
-@x [29.534] l.10285 - Adjust for C string conventions.
-@!months:packed array [1..36] of char; {abbreviations of month names}
-@y
-@!months:^char;
-j:integer;
-@z
-
-@x [29.534] l. - Send the job_name to the file recorder.
-begin old_setting:=selector;
-if job_name=0 then job_name:="texput";
-@y
-begin old_setting:=selector;
-if job_name=0 then job_name:=get_job_name("texput");
-pack_job_name(".ofl");
-recorder_change_filename(stringcast(name_of_file+1));
-@z
-
-@x [29.536] l.10324 - Print rest of banner.
-begin wlog(banner);
-@y
-begin wlog(banner);
-wlog(version_string);
-@z
-
-@x [29.536] l.10327 - Adjust for C string conventions.
-months:='JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC';
-@y
-months := ' JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC';
-@z
-
-% [29.537] Use a path when calling a_open_in to do a \input; also, try
-% to open the file with and without the `.tex' extension, regardless of
-% whether the file already has an extension. This allows filenames like
-% `foo' and `foo.bar.tex', as well as `foo.tex' and `foo.bar'.
-@x [29.537] l.10338 - start_input
-begin scan_file_name; {set |cur_name| to desired file name}
-if cur_ext="" then cur_ext:=".tex";
-pack_cur_name;
-loop@+ begin begin_file_reading; {set up |cur_file| and new level of input}
- if a_open_in(cur_file) then goto done;
- if cur_area="" then
- begin pack_file_name(cur_name,TEX_area,cur_ext);
- if a_open_in(cur_file) then goto done;
- end;
-@y
-var temp_str: str_number;
-begin scan_file_name; {set |cur_name| to desired file name}
-pack_cur_name;
-loop@+begin
- begin_file_reading; {set up |cur_file| and new level of input}
- tex_input_type := 1; {Tell |open_input| we are \.{\\input}.}
- {Kpathsea tries all the various ways to get the file.}
- if open_in_name_ok(name_of_file+1)
- and a_open_in(cur_file, kpse_tex_format) then
- goto done;
-@z
-
-@x [29.537] l.10348 - start_input: don't force ".tex" extension.
- prompt_file_name("input file name",".tex");
-@y
- prompt_file_name("input file name","");
-@z
-
-@x [29.537] l.10350 - start_input: string recycling
-done: name:=a_make_name_string(cur_file);
-@y
-done: name:=a_make_name_string(cur_file);
-if name=str_ptr-1 then {we can try to conserve string pool space now}
- begin temp_str:=search_string(name);
- if temp_str>0 then
- begin name:=temp_str; flush_string;
- end;
- end;
-@z
-
-@x [29.537] l.10352 - start_input: use different heuristic for initex.
- begin job_name:=cur_name; open_log_file;
-@y
- begin job_name:=get_job_name(cur_name); open_log_file;
-@z
-
-@x [29.537] l.10359 - start_input: don't return filename to string pool.
-if name=str_ptr-1 then {we can conserve string pool space now}
- begin flush_string; name:=cur_name;
- end;
-@y
-@z
-
-@x [30.563] l.10943 - Don't use TEX_font_area.
-if aire="" then pack_file_name(nom,TEX_font_area,".ofm")
-else pack_file_name(nom,aire,".ofm");
-if not b_open_in(tfm_file) then abort;
-@y
-{|kpse_find_file| will append the |".ofm"| or |".tfm"|,
- and avoid searching the disk before the font alias files as well.}
-pack_file_name(nom,aire,"");
-if not ofm_open_in(tfm_file) then abort;
-@z
-
-% [30.564] Reading the tfm file. As a special case, whenever we open a
-% tfm file, we read its first byte into `tfm_temp' right away. TeX
-% looks at `fbyte' before calling `fget', so it ends up seeing every
-% byte. This is Pascal-like I/O.
-@x [30.564] l.10956 - reading the tfm file, define fget & fbyte
-@d fget==get(tfm_file)
-@d fbyte==tfm_file^
-@y
-@d fget==tfm_temp:=getc(tfm_file)
-@d fbyte==tfm_temp
-@z
-
-% [32.575] We only want `eof' on the TFM file to be true if we
-% previously had EOF, not if we're at EOF now. This is like `feof', and
-% unlike our implementation of `eof' elsewhere.
-@x [32.575] l.11161 - Reading the tfm file, replace eof() by feof().
-if eof(tfm_file) then abort;
-@y
-if feof(tfm_file) then abort;
-@z
-
-@x [32.595] l.11860 - texarray
-@!dvi_buf:array[dvi_index] of real_eight_bits; {buffer for \.{DVI} output}
-@!half_buf:dvi_index; {half of |dvi_buf_size|}
-@!dvi_limit:dvi_index; {end of the current half buffer}
-@!dvi_ptr:dvi_index; {the next available buffer address}
-@y
-@!dvi_buf:^real_eight_bits; {buffer for \.{DVI} output}
-@!half_buf:integer; {half of |dvi_buf_size|}
-@!dvi_limit:integer; {end of the current half buffer}
-@!dvi_ptr:integer; {the next available buffer address}
-@z
-
-@x [32.597] l.11886 - write_dvi done in C.
-@p procedure write_dvi(@!a,@!b:dvi_index);
-var k:dvi_index;
-begin for k:=a to b do write(dvi_file,dvi_buf[k]);
-end;
-@y
-In C, we use a macro to call |fwrite| or |write| directly, writing all
-the bytes in one shot. Much better even than writing four
-bytes at a time.
-@z
-
-@x [32.617] l.12261 - Use output_comment if the user set it. Assume it's short enough.
- old_setting:=selector; selector:=new_string;
-@y
-if output_comment then
- begin l:=strlen(output_comment); dvi_out(l);
- for s:=0 to l-1 do dvi_out(output_comment[s]);
- end
-else begin {the default code is unchanged}
- old_setting:=selector; selector:=new_string;
-@z
-
-@x [32.617] l.12268 - Use output_comment if the user set it.
- pool_ptr:=str_start(str_ptr); {flush the current string}
-@y
- pool_ptr:=str_start(str_ptr); {flush the current string}
-end;
-@z
-
-% We output each portion of the page as we get to it, if we are using
-% IPC, so that the previewer (TeXView) can display it immediately. [SPM]
-@x [32.640] l.12690 - IPC
-dvi_out(eop); incr(total_pages); cur_s:=-1;
-@y
-dvi_out(eop); incr(total_pages); cur_s:=-1;
-ifdef ('IPC')
-if ipc_on>0 then
- begin if dvi_limit=half_buf then
- begin write_dvi(half_buf, dvi_buf_size-1);
- flush_dvi;
- dvi_gone:=dvi_gone+half_buf;
- end;
- if dvi_ptr>0 then
- begin write_dvi(0, dvi_ptr-1);
- flush_dvi;
- dvi_offset:=dvi_offset+dvi_ptr; dvi_gone:=dvi_gone+dvi_ptr;
- end;
- dvi_ptr:=0; dvi_limit:=dvi_buf_size;
- ipc_page(dvi_gone);
- end;
-endif ('IPC');
-@z
-
-@x [32.642] l.12742 - Use dvi_offset instead of dvi_buf_size with IPC stuff.
- k:=4+((dvi_buf_size-dvi_ptr) mod 4); {the number of 223's}
-@y
-ifdef ('IPC')
- k:=7-((3+dvi_offset+dvi_ptr) mod 4); {the number of 223's}
-endif ('IPC')
-ifndef ('IPC')
- k:=4+((dvi_buf_size-dvi_ptr) mod 4); {the number of 223's}
-endifn ('IPC')
-@z
-
-@x [32.642] l.12773 - use print_file_name
- print_nl("Output written on "); slow_print(output_file_name);
-@y
- print_nl("Output written on "); print_file_name(0, output_file_name, 0);
-@z
-
-@x [38.859] l.16855 - Fix a casting/expression evaluation problem.
-if abs(fit_class-fitness(r))>1 then d:=d+adj_demerits;
-@y
-if abs(intcast(fit_class)-intcast(fitness(r)))>1 then d:=d+adj_demerits;
-@z
-
-@x [39.875] l.17170 - Another casting problem.
- begin line_diff:=line_number(r)-best_line;
-@y
- begin line_diff:=intcast(line_number(r))-intcast(best_line);
-@z
-
-@x [42.920] l.18068 - bigtrie: allow larger hyphenation tries.
-@!trie_pointer=0..trie_size; {an index into |trie|}
-@y
-@!trie_pointer=0..ssup_trie_size; {an index into |trie|}
-@z
-
-@x [42.921] l.18075 - bigtrie: allow larger hyphenation tries.
-@!trie:array[trie_pointer] of two_halves; {|trie_link|, |trie_char|, |trie_op|}
-@y
-{We will dynamically allocate this arrays.}
-@!trie:^two_halves; {|trie_link|}
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18126 m.925
-different from $\alpha$, we can conclude that $\alpha$ is not in the table.
-@y 18126
-different from $\alpha$, we can conclude that $\alpha$ is not in the table.
-This is a clever scheme which saves the need for a hash link array.
-However, it is difficult to increase the size of the hyphen exception
-arrays. To make this easier, the ordered hash has been replaced by
-a simple hash, using an additional array |hyph_link|. The value
-|0| in |hyph_link[k]| means that there are no more entries corresponding
-to the specific hash chain. When |hyph_link[k]>0|, the next entry in
-the hash chain is |hyph_link[k]-1|. This value is used because the
-arrays start at |0|.
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18134 m.925
-@!hyph_pointer=0..hyph_size; {an index into the ordered hash table}
-@y 18134
-@!hyph_pointer=0..ssup_hyph_size; {index into hyphen exceptions hash table;
- enlarging this requires changing (un)dump code}
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18137 m.926
-@!hyph_word:array[hyph_pointer] of str_number; {exception words}
-@!hyph_list:array[hyph_pointer] of pointer; {lists of hyphen positions}
-@!hyph_count:hyph_pointer; {the number of words in the exception dictionary}
-@y 18139
-@!hyph_word: ^str_number; {exception words}
-@!hyph_list: ^pointer; {list of hyphen positions}
-@!hyph_link: ^hyph_pointer; {link array for hyphen exceptions hash table}
-@!hyph_count:integer; {the number of words in the exception dictionary}
-@!hyph_next:integer; {next free slot in hyphen exceptions hash table}
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18145 m.928
-for z:=0 to hyph_size do
- begin hyph_word[z]:=0; hyph_list[z]:=null;
- end;
-hyph_count:=0;
-@y 18148
-for z:=0 to hyph_size do
- begin hyph_word[z]:=0; hyph_list[z]:=null; hyph_link[z]:=0;
- end;
-hyph_count:=0;
-hyph_next:=hyph_prime+1; if hyph_next>hyph_size then hyph_next:=hyph_prime;
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18163 m.930
-h:=hc[1]; incr(hn); hc[hn]:=cur_lang;
-for j:=2 to hn do h:=(h+h+hc[j]) mod hyph_size;
-loop@+ begin @<If the string |hyph_word[h]| is less than \(hc)|hc[1..hn]|,
- |goto not_found|; but if the two strings are equal,
- set |hyf| to the hyphen positions and |goto found|@>;
- if h>0 then decr(h)@+else h:=hyph_size;
- end;
-not_found: decr(hn)
-@y 18170
-h:=hc[1]; incr(hn); hc[hn]:=cur_lang;
-for j:=2 to hn do h:=(h+h+hc[j]) mod hyph_prime;
-loop@+ begin @<If the string |hyph_word[h]| is less than \(hc)|hc[1..hn]|,
- |goto not_found|; but if the two strings are equal,
- set |hyf| to the hyphen positions and |goto found|@>;
- h:=hyph_link[h]; if h=0 then goto not_found;
- decr(h);
- end;
-not_found: decr(hn)
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18172 m.931
-@ @<If the string |hyph_word[h]| is less than \(hc)...@>=
-k:=hyph_word[h]; if k=0 then goto not_found;
-if length(k)<hn then goto not_found;
-if length(k)=hn then
- begin j:=1; u:=str_start(k);
- repeat if so(str_pool[u])<hc[j] then goto not_found;
- if so(str_pool[u])>hc[j] then goto done;
- incr(j); incr(u);
- until j>hn;
- @<Insert hyphens as specified in |hyph_list[h]|@>;
- decr(hn); goto found;
- end;
-done:
-@y 18184
-@ @<If the string |hyph_word[h]| is less than \(hc)...@>=
-{This is now a simple hash list, not an ordered one, so
-the module title is no longer descriptive.}
-k:=hyph_word[h]; if k=0 then goto not_found;
-if length(k)=hn then
- begin j:=1; u:=str_start(k);
- repeat
- if so(str_pool[u])<>hc[j] then goto done;
- incr(j); incr(u);
- until j>hn;
- @<Insert hyphens as specified in |hyph_list[h]|@>;
- decr(hn); goto found;
- end;
-done:
-@z
-
-% The GNU C compiler complains of unused variables.
-@x
-@!s,@!t:str_number; {strings being compared or stored}
-@y
-@!s:str_number; {strings being compared or stored}
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18274 m.939
- begin h:=(h+h+hc[j]) mod hyph_size;
-@y 18274
- begin h:=(h+h+hc[j]) mod hyph_prime;
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18281 m.940
-@ @<Insert the \(p)pair |(s,p)|...@>=
-if hyph_count=hyph_size then overflow("exception dictionary",hyph_size);
-@:TeX capacity exceeded exception dictionary}{\quad exception dictionary@>
-incr(hyph_count);
-while hyph_word[h]<>0 do
- begin @<If the string |hyph_word[h]| is less than \(or)or equal to
- |s|, interchange |(hyph_word[h],hyph_list[h])| with |(s,p)|@>;
- if h>0 then decr(h)@+else h:=hyph_size;
- end;
-hyph_word[h]:=s; hyph_list[h]:=p
-@y 18290
-@ @<Insert the \(p)pair |(s,p)|...@>=
- if hyph_next <= hyph_prime then
- while (hyph_next>0) and (hyph_word[hyph_next-1]>0) do decr(hyph_next);
-if (hyph_count=hyph_size)or(hyph_next=0) then
- overflow("exception dictionary",hyph_size);
-@:TeX capacity exceeded exception dictionary}{\quad exception dictionary@>
-incr(hyph_count);
-while hyph_word[h]<>0 do
- begin @<If the string |hyph_word[h]| is less than \(or)or equal to
- |s|, interchange |(hyph_word[h],hyph_list[h])| with |(s,p)|@>;
- if hyph_link[h]=0 then
- begin
- hyph_link[h]:=hyph_next;
- if hyph_next >= hyph_size then hyph_next:=hyph_prime;
- if hyph_next > hyph_prime then incr(hyph_next);
- end;
- h:=hyph_link[h]-1;
- end;
-
-found: hyph_word[h]:=s; hyph_list[h]:=p
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 18292 m.941
-@ @<If the string |hyph_word[h]| is less than \(or)...@>=
-k:=hyph_word[h];
-if length(k)<length(s) then goto found;
-if length(k)>length(s) then goto not_found;
-u:=str_start(k); v:=str_start(s);
-repeat if str_pool[u]<str_pool[v] then goto found;
-if str_pool[u]>str_pool[v] then goto not_found;
-incr(u); incr(v);
-until u=str_start(k+1);
-found:q:=hyph_list[h]; hyph_list[h]:=p; p:=q;@/
-t:=hyph_word[h]; hyph_word[h]:=s; s:=t;
-not_found:
-@y 18303
-@ @<If the string |hyph_word[h]| is less than \(or)...@>=
-{This is now a simple hash list, not an ordered one, so
-the module title is no longer descriptive.}
-k:=hyph_word[h];
-if length(k)<>length(s) then goto not_found;
-u:=str_start(k); v:=str_start(s);
-repeat if str_pool[u]<>str_pool[v] then goto not_found;
-incr(u); incr(v);
-until u=str_start(k+1);
-{repeat hyphenation exception; flushing old data}
-flush_string; s:=hyph_word[h]; {avoid |slow_make_string|!}
-decr(hyph_count);
-{ We could also |flush_list(hyph_list[h]);|, but it interferes
- with \.{trip.log}. }
-goto found;
-not_found:
-@z
-
-@x [43.943] l.18346 - web2c can't parse negative lower bounds in arrays. Sorry.
-@!init@! trie_op_hash:array[-trie_op_size..trie_op_size] of 0..trie_op_size;
-@y
-@!init@! trie_op_hash:array[neg_trie_op_size..trie_op_size] of 0..trie_op_size;
-@z
-
-@x [43.944] l.18365 - web2c can't parse negative lower bounds in arrays. Sorry
-var h:-trie_op_size..trie_op_size; {trial hash location}
-@y
-var h:neg_trie_op_size..trie_op_size; {trial hash location}
-@z
-
-@x [43.944] l.18370 - Another casting problem, and use |neg_trie_op_size|.
-begin h:=abs(n+313*d+361*v+1009*cur_lang) mod (trie_op_size+trie_op_size)
- - trie_op_size;
-@y
-begin h:=abs(intcast(n)+313*intcast(d)+361*intcast(v)+1009*intcast(cur_lang))
- mod (trie_op_size - neg_trie_op_size)
- + neg_trie_op_size;
-@z
-
-@x [43.947] l.18438 - Dynamically allocate arrays, and a casting problem.
-@!init @!trie_c:packed array[trie_pointer] of ASCII_code;
- {characters to match}
-@t\hskip10pt@>@!trie_o:packed array[trie_pointer] of quarterword;
- {operations to perform}
-@t\hskip10pt@>@!trie_l:packed array[trie_pointer] of trie_pointer;
- {left subtrie links}
-@t\hskip10pt@>@!trie_r:packed array[trie_pointer] of trie_pointer;
- {right subtrie links}
-@t\hskip10pt@>@!trie_ptr:trie_pointer; {the number of nodes in the trie}
-@t\hskip10pt@>@!trie_hash:packed array[trie_pointer] of trie_pointer;
- {used to identify equivalent subtries}
-tini
-@y
-@!init @!trie_c:^ASCII_code;
- {characters to match}
-@t\hskip10pt@>@!trie_o:^quarterword;
- {operations to perform}
-@t\hskip10pt@>@!trie_l:^trie_pointer;
- {left subtrie links}
-@t\hskip10pt@>@!trie_r:^trie_pointer;
- {right subtrie links}
-@t\hskip10pt@>@!trie_ptr:trie_pointer; {the number of nodes in the trie}
-@t\hskip10pt@>@!trie_hash:^trie_pointer;
- {used to identify equivalent subtries}
-tini
-@z
-
-@x [43.948] l.18471 - Another casting problem.
-begin h:=abs(trie_c[p]+1009*trie_o[p]+@|
- 2718*trie_l[p]+3142*trie_r[p]) mod trie_size;
-@y
-begin h:=abs(intcast(trie_c[p])+1009*intcast(trie_o[p])+@|
- 2718*intcast(trie_l[p])+3142*intcast(trie_r[p])) mod trie_size;
-@z
-
-@x [43.590] l.18524 - Dynamically allocate & larger tries.
-@!init@!trie_taken:packed array[1..trie_size] of boolean;
- {does a family start here?}
-@t\hskip10pt@>@!trie_min:array[ASCII_code] of trie_pointer;
- {the first possible slot for each character}
-@t\hskip10pt@>@!trie_max:trie_pointer; {largest location used in |trie|}
-@t\hskip10pt@>@!trie_not_ready:boolean; {is the trie still in linked form?}
-tini
-@y
-@!init@!trie_taken: ^boolean;
- {does a family start here?}
-@t\hskip10pt@>@!trie_min:^trie_pointer;
- {the first possible slot for each character}
-@t\hskip10pt@>@!trie_max:trie_pointer; {largest location used in |trie|}
-@t\hskip10pt@>@!trie_not_ready:boolean; {is the trie still in linked form?}
-tini
-@z
-
-@x [43.951] l.18539 - Dynamically allocate.
-trie_not_ready:=true; trie_root:=0; trie_c[0]:=si(0); trie_ptr:=0;
-@y
-trie_not_ready:=true;
-@z
-
-%%
-%% We can rewrite the original code after "main_loop_move+2" upto the
-%% "tail_append(lig_stack)" in module 1036 as
-%%
-%
-% main_loop_move+2:
-% if font_bc[main_f]<=cur_chr then
-% if cur_chr<=font_ec[main_f] then
-% begin main_i:=char_info(main_f)(cur_l);
-% if char_exists(main_i) goto main_loop_move+3;
-% end;
-% char_warning(main_f,cur_chr); free_avail(lig_stack); goto big_switch;
-% main_loop_move+3:
-% tail_append(lig_stack) {|main_loop_lookahead| is next}
-%
-
-@x [49.1252] l.23230 - INI = VIR, so have to do runtime test.
-hyph_data: if cur_chr=1 then
- begin @!init new_patterns; goto done;@;@+tini@/
-@y 23215
-hyph_data: if cur_chr=1 then
- begin @!init if ini_version then
- begin new_patterns; goto done; end; @;@+tini@/
-@z
-
-@x
-@!flushable_string:str_number; {string not yet referenced}
-@y
-@z
-
-% undo Knuth's change because
-% a) the string is already replaced in |scan_file_name| and therefore
-% b) the wrong string will get flushed!!!
-%
-@x [49.1260] l.23331 new_font: string recycling -- already done
-flushable_string:=str_ptr-1;
-@y
-@z
-
-% If you don't want to remove code with the following two changes,
-% please replace the former change by
-%
-% @x
-% flushable_string:=str_ptr-1;
-% @y
-% if cur_name=str_ptr-1 then
-% flushable_string:=str_ptr-1
-% else
-% flushable_string:=str_ptr; {number of a non-existing}
-% @z
-%
-% otherwise the wrong string will get removed by |flush_string|!!
-%
-@x [49.1260] l.23334 new_font: string recycling -- already done
- begin if cur_name=flushable_string then
- begin flush_string; cur_name:=font_name(f);
- end;
- if s>0 then
-@y
- begin if s>0 then
-@z
-
-@x [49.1265] if batchmode, mktex... scripts should be silent.
-interaction:=cur_chr;
-@y
-interaction:=cur_chr;
-if interaction = batch_mode
-then kpse_make_tex_discard_errors := 1
-else kpse_make_tex_discard_errors := 0;
-@z
-
-@x [49.1275] l.23441 - Same stuff as for \input, this time for \openin.
- if cur_ext="" then cur_ext:=".tex";
- pack_cur_name;
- if a_open_in(read_file[n]) then read_open[n]:=just_open;
-@y
- pack_cur_name;
- tex_input_type:=0; {Tell |open_input| we are \.{\\openin}.}
- if open_in_name_ok(name_of_file+1)
- and a_open_in(read_file[n], kpse_tex_format) then
- read_open[n]:=just_open;
-@z
-
-@x [50.1301] l.23679 - INI = VIR, so runtime test.
-format_ident:=" (INIOMEGA)";
-@y
-if ini_version then format_ident:=" (INIOMEGA)";
-@z
-
-% The GNU C compiler complains of unused variables.
-@x [50.1302] l.23690 - Eliminate now-unused variable `w' in `store_fmt_file'.
-var j,@!k,@!l:integer; {all-purpose indices}
-@!p,@!q: pointer; {all-purpose pointers}
-@!x: integer; {something to dump}
-@!w: four_quarters; {four ASCII codes}
-@y
-var @!k:integer; {all-purpose indices}
-@!p,@!q: pointer; {all-purpose pointers}
-@!x: integer; {something to dump}
-@!format_engine: ^char;
-@z
-
-@x [50.1303] l.23722 - Ditto, for `load_fmt_file'.
-@!w: four_quarters; {four ASCII codes}
-@y
-@!format_engine: ^char;
-@z
-
-@x [50.1305] l.23751 - Do dumping and undumping of fmt files in C.
-@d dump_wd(#)==begin fmt_file^:=#; put(fmt_file);@+end
-@d dump_int(#)==begin fmt_file^.int:=#; put(fmt_file);@+end
-@d dump_hh(#)==begin fmt_file^.hh:=#; put(fmt_file);@+end
-@d dump_qqqq(#)==begin fmt_file^.qqqq:=#; put(fmt_file);@+end
-@y
-@z
-@x [1306]
-@d undump_wd(#)==begin get(fmt_file); #:=fmt_file^;@+end
-@d undump_int(#)==begin get(fmt_file); #:=fmt_file^.int;@+end
-@d undump_hh(#)==begin get(fmt_file); #:=fmt_file^.hh;@+end
-@d undump_qqqq(#)==begin get(fmt_file); #:=fmt_file^.qqqq;@+end
-@y
-@z
-@x [still 1306] debug format file
-@d undump_size_end_end(#)==too_small(#)@+else undump_end_end
-@y
-@d format_debug_end(#)==
- write_ln (stderr, ' = ', #);
- end;
-@d format_debug(#)==
- if debug_format_file then begin
- write (stderr, 'fmtdebug:', #);
- format_debug_end
-@d undump_size_end_end(#)==
- too_small(#)@+else format_debug (#)(x); undump_end_end
-@z
-
-@x [50,1307] l.23779 - texarray
-dump_int(@$);@/
-@y
-dump_int(@"57325458); {Web2C \TeX's magic constant: "W2TX"}
-{Align engine to 4 bytes with one or more trailing NUL}
-x:=strlen(engine_name);
-format_engine:=xmalloc_array(char,x+4);
-strcpy(format_engine, engine_name);
-for k:=x to x+3 do format_engine[k]:=0;
-x:=x+4-(x mod 4);
-dump_int(x);dump_things(format_engine[0], x);
-libc_free(format_engine);@/
-dump_int(@$);@/
-dump_int(max_halfword);@/
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 23784 m.1307
-dump_int(hyph_size)
-@y 23784
-dump_int(hyph_prime)
-@z
-
-@x [50.1308] l.23793 - texarray
-x:=fmt_file^.int;
-if x<>@$ then goto bad_fmt; {check that strings are the same}
-undump_int(x);
-if x<>mem_bot then goto bad_fmt;
-undump_int(x);
-if x<>mem_top then goto bad_fmt;
-@y
-@+init
-if ini_version then
- begin libc_free(str_pool); libc_free(str_start_ar); libc_free(yzmem);
- end;
-@+tini
-undump_int(x);
-format_debug('format magic number')(x);
-if x<>@"57325458 then goto bad_fmt; {not a format file}
-undump_int(x);
-format_debug('engine name size')(x);
-if (x<0) or (x>256) then goto bad_fmt; {corrupted format file}
-format_engine:=xmalloc_array(char, x);
-undump_things(format_engine[0], x);
-format_engine[x-1]:=0; {force string termination, just in case}
-if strcmp(engine_name, format_engine) then
- begin wake_up_terminal;
- wterm_ln('---! ', stringcast(name_of_file+1), ' was written by ', format_engine);
- libc_free(format_engine);
- goto bad_fmt;
-end;
-libc_free(format_engine);
-undump_int(x);
-format_debug('string pool checksum')(x);
-if x<>@$ then begin {check that strings are the same}
- wake_up_terminal;
- wterm_ln('---! ', stringcast(name_of_file+1), ' doesn''t match ', pool_name);
- goto bad_fmt;
-end;
-undump_int(x);
-if x<>max_halfword then goto bad_fmt; {check |max_halfword|}
-
-undump_int(x); format_debug ('mem_bot')(x);
-if x<>mem_bot then goto bad_fmt;
-undump_int(mem_top); format_debug ('mem_top')(mem_top);
-if mem_bot+1100>mem_top then goto bad_fmt;
-
-
-head:=contrib_head; tail:=contrib_head;
- page_tail:=page_head; {page initialization}
-
-mem_min := mem_bot - extra_mem_bot;
-mem_max := mem_top + extra_mem_top;
-
-yzmem:=xmalloc_array (memory_word, mem_max - mem_min + 1);
-zmem := yzmem - mem_min; {this pointer arithmetic fails with some compilers}
-mem := zmem;
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 23804 m.1308
-if x<>hyph_size then goto bad_fmt
-@y 23804
-if x<>hyph_prime then goto bad_fmt
-@z
-
-% [1309] Make dumping/undumping more efficient by doing whole arrays at
-% a time, via fread/fwrite in texmfmp.c.
-@x [50.1309] l.23814 - Make dumping/undumping more efficient.
-for k:=too_big_char to str_ptr do dump_int(str_start(k));
-k:=0;
-while k+4<pool_ptr do
- begin dump_four_ASCII; k:=k+4;
- end;
-k:=pool_ptr-4; dump_four_ASCII;
-@y
-dump_things(str_start(too_big_char), str_ptr-too_big_char+1);
-dump_things(str_pool[0], pool_ptr);
-@z
-
-@x [50.1310] l.23829 - Make dumping/undumping more efficient.
-undump_size(0)(pool_size)('string pool size')(pool_ptr);
-undump_size(0)(max_strings)('max strings')(str_ptr);
-for k:=too_big_char to str_ptr do undump(0)(pool_ptr)(str_start(k));
-k:=0;
-while k+4<pool_ptr do
- begin undump_four_ASCII; k:=k+4;
- end;
-k:=pool_ptr-4; undump_four_ASCII;
-@y
-undump_size(0)(sup_pool_size-pool_free)('string pool size')(pool_ptr);
-if pool_size<pool_ptr+pool_free then
- pool_size:=pool_ptr+pool_free;
-undump_size(0)(sup_max_strings-strings_free)('sup strings')(str_ptr);@/
-if max_strings<str_ptr+strings_free then
- max_strings:=str_ptr+strings_free;
-str_start_ar:=xmalloc_array(pool_pointer, max_strings-biggest_char);
-undump_things(str_start(too_big_char), str_ptr-too_big_char+1);
-str_pool:=xmalloc_array(packed_ASCII_code, pool_size);
-undump_things(str_pool[0], pool_ptr);
-@z
-
-@x [50.1311] l.23850 - Make dumping/undumping more efficient.
-repeat for k:=p to q+1 do dump_wd(mem[k]);
-@y
-repeat dump_things(mem[p], q+2-p);
-@z
-
-@x [50.1311] l.23855 - Make dumping/undumping more efficient.
-for k:=p to lo_mem_max do dump_wd(mem[k]);
-@y
-dump_things(mem[p], lo_mem_max+1-p);
-@z
-
-@x [50.1311] l.23858 - Make dumping/undumping more efficient.
-for k:=hi_mem_min to mem_end do dump_wd(mem[k]);
-@y
-dump_things(mem[hi_mem_min], mem_end+1-hi_mem_min);
-@z
-
-@x [50.1312] l.23873 - Make dumping/undumping more efficient.
-repeat for k:=p to q+1 do undump_wd(mem[k]);
-@y
-repeat undump_things(mem[p], q+2-p);
-@z
-
-@x [50.1312] l.23878 - Make dumping/undumping more efficient.
-for k:=p to lo_mem_max do undump_wd(mem[k]);
-@y
-undump_things(mem[p], lo_mem_max+1-p);
-@z
-
-@x [50.1312] l.23888 - Make dumping/undumping more efficient.
-for k:=hi_mem_min to mem_end do undump_wd(mem[k]);
-@y
-undump_things (mem[hi_mem_min], mem_end+1-hi_mem_min);
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 24058 m.1324
-dump_int(hyph_count);
-for k:=0 to hyph_size do if hyph_word[k]<>0 then
- begin dump_int(k); dump_int(hyph_word[k]); dump_int(hyph_list[k]);
- end;
-@y 24061
-dump_int(hyph_count);
-if hyph_next <= hyph_prime then hyph_next:=hyph_size;
-dump_int(hyph_next);{minumum value of |hyphen_size| needed}
-for k:=0 to hyph_size do if hyph_word[k]<>0 then
- begin dump_int(k+65536*hyph_link[k]);
- {assumes number of hyphen exceptions does not exceed 65535}
- dump_int(hyph_word[k]); dump_int(hyph_list[k]);
- end;
-@z
-
-@x [50.1324] l.24066 - Make dumping/undumping more efficient - trie
-for k:=0 to trie_max do dump_hh(trie[k]);
-dump_int(max_hyph_char);
-dump_int(trie_op_ptr);
-for k:=1 to trie_op_ptr do
- begin dump_int(hyf_distance[k]);
- dump_int(hyf_num[k]);
- dump_int(hyf_next[k]);
- end;
-@y
-dump_things(trie[0],trie_max+1);
-dump_int(max_hyph_char);
-dump_int(trie_op_ptr);
-dump_things(hyf_distance[1], trie_op_ptr);
-dump_things(hyf_num[1], trie_op_ptr);
-dump_things(hyf_next[1], trie_op_ptr);
-@z
-
-@x [50.1325] l.24086 - Make dumping/undumping more efficient - trie
-@<Undump the hyphenation tables@>=
-@y
-{This is only used for the hyphenation tries below, and the size is
- always |j+1|.}
-@d xmalloc_and_undump(#) ==
- if not # then #:=xmalloc_array(two_halves, j+1);
- undump_things(#[0], j+1);
-
-@<Undump the hyphenation tables@>=
-@z
-
-%%%%%%%% dynamic hyph_size
-@x 24087 m.1325
-undump(0)(hyph_size)(hyph_count);
-for k:=1 to hyph_count do
- begin undump(0)(hyph_size)(j);
- undump(0)(str_ptr)(hyph_word[j]);
- undump(min_halfword)(max_halfword)(hyph_list[j]);
- end;
-@y 24092
-undump_size(0)(hyph_size)('hyph_size')(hyph_count);
-undump_size(hyph_prime)(hyph_size)('hyph_size')(hyph_next);
-j:=0;
-for k:=1 to hyph_count do
- begin undump_int(j); if j<0 then goto bad_fmt;
- if j>65535 then
- begin hyph_next:= j div 65536; j:=j - hyph_next * 65536; end
- else hyph_next:=0;
- if (j>=hyph_size)or(hyph_next>hyph_size) then goto bad_fmt;
- hyph_link[j]:=hyph_next;
- undump(0)(str_ptr)(hyph_word[j]);
- undump(min_halfword)(max_halfword)(hyph_list[j]);
- end;
- {|j| is now the largest occupied location in |hyph_word|}
- incr(j);
- if j<hyph_prime then j:=hyph_prime;
- hyph_next:=j;
- if hyph_next >= hyph_size then hyph_next:=hyph_prime else
- if hyph_next >= hyph_prime then incr(hyph_next);
-@z
-
-
-@x [50.1325] l.24094 - Make dumping/undumping more efficient - trie
-for k:=0 to j do undump_hh(trie[k]);
-undump_int(max_hyph_char);
-undump_size(0)(trie_op_size)('trie op size')(j); @+init trie_op_ptr:=j;@+tini
-for k:=1 to j do
- begin undump(0)(63)(hyf_distance[k]); {a |small_number|}
- undump(0)(63)(hyf_num[k]);
- undump(min_quarterword)(max_quarterword)(hyf_next[k]);
- end;
-@y
-{The first array has not been allocated yet unless we're \.{INITEX};
- we do that precisely so we don't allocate more space than necessary.}
-xmalloc_and_undump(trie);
-undump_int(max_hyph_char);
-undump_size(0)(trie_op_size)('trie op size')(j); @+init trie_op_ptr:=j;@+tini
-{I'm not sure we have such a strict limitation (64) on these values, so
- let's leave them unchecked.}
-undump_things(hyf_distance[1], j);
-undump_things(hyf_num[1], j);
-undump_upper_check_things(max_quarterword, hyf_next[1], j);
-@z
-
-@x [50.1327] l.24117 - Allow command line to override dumped value.
-undump(batch_mode)(error_stop_mode)(interaction);
-@y
-undump(batch_mode)(error_stop_mode)(interaction);
-if interaction_option<>unspecified_mode then interaction:=interaction_option;
-@z
-
-% [50.1327] As with TFM files, `eof' here means `have we previously
-% encountered the end-of-file', not `are we at the end of the file'.
-@x [50.1327] l.24120 - dumping/undumping, replace eof() by feof()
-if (x<>69069)or eof(fmt_file) then goto bad_fmt
-@y
-if (x<>69069)or feof(fmt_file) then goto bad_fmt
-@z
-
-@x [50.1328] l.24124 - Eliminate probably wrong word `preloaded' from format_idents.
-print(" (preloaded format="); print(job_name); print_char(" ");
-@y
-print(" (format="); print(job_name); print_char(" ");
-@z
-
-@x [51.1332] l.24203 - make the main program a procedure, for eqtb hack.
-@p begin @!{|start_here|}
-@y
-@d const_chk(#)==begin if # < inf@&# then # := inf@&# else
- if # > sup@&# then # := sup@&# end
-
-{|setup_bound_var| stuff duplicated in \.{mf.ch}.}
-@d setup_bound_var(#)==bound_default:=#; setup_bound_var_end
-@d setup_bound_var_end(#)==bound_name:=#; setup_bound_var_end_end
-@d setup_bound_var_end_end(#)==
- setup_bound_variable(addressof(#), bound_name, bound_default);
-
-@p procedure main_body;
-begin @!{|start_here|}
-
-{Always start the file recorder?}
- {recorder_enabled:=true;}
-
-{Bounds that may be set from the configuration file. We want the user to
- be able to specify the names with underscores, but \.{TANGLE} removes
- underscores, so we're stuck giving the names twice, once as a string,
- once as the identifier. How ugly.}
- setup_bound_var (1000000)('main_memory')(main_memory);
- {|memory_word|s for |mem| in \.{INITEX}}
- setup_bound_var (0)('extra_mem_top')(extra_mem_top);
- {increase high mem in \.{VIRTEX}}
- setup_bound_var (0)('extra_mem_bot')(extra_mem_bot);
- {increase low mem in \.{VIRTEX}}
- setup_bound_var (300000)('pool_size')(pool_size);
- setup_bound_var (200000)('string_vacancies')(string_vacancies);
- setup_bound_var (5000)('pool_free')(pool_free); {min pool avail after fmt}
- setup_bound_var (100000)('max_strings')(max_strings);
- setup_bound_var (100)('strings_free')(strings_free);
- setup_bound_var (20000)('trie_size')(trie_size);
- {if |ssup_trie_size| increases, recompile}
- setup_bound_var (659)('hyph_size')(hyph_size);
- setup_bound_var (20000)('buf_size')(buf_size);
- setup_bound_var (50)('nest_size')(nest_size);
- setup_bound_var (15)('max_in_open')(max_in_open);
- setup_bound_var (60)('param_size')(param_size);
- setup_bound_var (4000)('save_size')(save_size);
- setup_bound_var (300)('stack_size')(stack_size);
- setup_bound_var (16384)('dvi_buf_size')(dvi_buf_size);
- setup_bound_var (79)('error_line')(error_line);
- setup_bound_var (50)('half_error_line')(half_error_line);
- setup_bound_var (79)('max_print_line')(max_print_line);
- const_chk (main_memory);
-@+init
- if ini_version then begin
- extra_mem_top := 0;
- extra_mem_bot := 0;
- end;
-@+tini
- if extra_mem_bot>sup_main_memory then extra_mem_bot:=sup_main_memory;
- if extra_mem_top>sup_main_memory then extra_mem_top:=sup_main_memory;
- {|mem_top| is an index, |main_memory| a size}
- mem_top := mem_bot + main_memory -1;
- mem_min := mem_bot;
- mem_max := mem_top;
-
- {Check other constants against their sup and inf.}
- const_chk (trie_size);
- const_chk (hyph_size);
- const_chk (buf_size);
- const_chk (nest_size);
- const_chk (max_in_open);
- const_chk (param_size);
- const_chk (save_size);
- const_chk (stack_size);
- const_chk (dvi_buf_size);
- const_chk (pool_size);
- const_chk (string_vacancies);
- const_chk (pool_free);
- const_chk (max_strings);
- const_chk (strings_free);
- if error_line > ssup_error_line then error_line := ssup_error_line;
-
- {array memory allocation}
- buffer:=xmalloc_array (ASCII_code, buf_size);
- nest:=xmalloc_array (list_state_record, nest_size);
- save_stack:=xmalloc_array (memory_word, save_size);
- input_stack:=xmalloc_array (in_state_record, stack_size);
- input_file:=xmalloc_array (alpha_file, max_in_open);
- input_file_mode:=xmalloc_array (halfword, max_in_open);
- input_file_translation:=xmalloc_array (halfword, max_in_open);
- line_stack:=xmalloc_array (integer, max_in_open);
- line_numbers:=xmalloc_array (integer, max_in_open);
- file_names:=xmalloc_array (integer, max_in_open);
- param_stack:=xmalloc_array (halfword, param_size);
- dvi_buf:=xmalloc_array (real_eight_bits, dvi_buf_size);
- hyph_word:=xmalloc_array (str_number, hyph_size);
- hyph_list:=xmalloc_array (halfword, hyph_size);
- hyph_link:=xmalloc_array (hyph_pointer, hyph_size);
-@+init
-if ini_version then begin
- yzmem:=xmalloc_array (memory_word, mem_top - mem_bot + 1);
- zmem := yzmem - mem_bot; {Some compilers require |mem_bot=0|}
-
- str_start_ar:=xmalloc_array (pool_pointer, max_strings-biggest_char);
- str_pool:=xmalloc_array (packed_ASCII_code, pool_size);
-end;
-@+tini
-@z
-
-@x [51.1332] l.24215 - INI = VIR, so pool init needs runtime test
-@!init if not get_strings_started then goto final_end;
-init_prim; {call |primitive| for each primitive}
-init_str_ptr:=str_ptr; init_pool_ptr:=pool_ptr; fix_date_and_time;
-tini@/
-@y
-@+init if ini_version then
- begin if not get_strings_started then goto final_end;
- init_prim; {call |primitive| for each primitive}
- init_str_ptr:=str_ptr; init_pool_ptr:=pool_ptr; fix_date_and_time;
- end;
-@+tini@/
-@z
-
-@x [51.1332] l.24225 - main
-end_of_TEX: close_files_and_terminate;
-final_end: ready_already:=0;
-end.
-@y
-close_files_and_terminate;
-final_end: do_final_end;
-end {|main_body|};
-@z
-
-@x [51.1333] l.24254 - Print new line before termination; switch to editor if necessary.
- slow_print(log_name); print_char(".");
- end;
- end;
-@y
- print_file_name(0, log_name, 0); print_char(".");
- end;
- end;
-print_ln;
-if (edit_name_start<>0) and (interaction>batch_mode) then
- call_edit(str_pool,edit_name_start,edit_name_length,edit_line);
-@z
-
-@x [51.1334] l. - Remove reference to fontmemsize
- wlog_ln(', out of ',font_mem_size:1,' for ',font_max-font_base:1);@/
-@y
-@z
-
-@x [51.1335] l.24335 - Only do dump if ini.
- begin @!init for c:=top_mark_code to split_bot_mark_code do
- if cur_mark[c]<>null then delete_token_ref(cur_mark[c]);
- if last_glue<>max_halfword then delete_glue_ref(last_glue);
- store_fmt_file; return;@+tini@/
-@y
- begin @!init if ini_version then
- begin for c:=top_mark_code to split_bot_mark_code do
- if cur_mark[c]<>null then delete_token_ref(cur_mark[c]);
- store_fmt_file; return;
- end;@+tini@/
-@z
-
-@x [51.1337] l.24361 - Handle %&format in all cases.
-if (format_ident=0)or(buffer[loc]="&") then
-@y
-if (format_ident=0)or(buffer[loc]="&")or dump_line then
-@z
-
-@x [51.1337] l.24371 - Allocate hyphenation tries.
-fix_date_and_time;@/
-@y
-fix_date_and_time;@/
-
-@!init
-if trie_not_ready then begin {initex without format loaded}
- trie:=xmalloc_array (two_halves, trie_size);
-
- trie_c:=xmalloc_array (ASCII_code, trie_size);
- trie_o:=xmalloc_array (quarterword, trie_size);
- trie_l:=xmalloc_array (trie_pointer, trie_size);
- trie_r:=xmalloc_array (trie_pointer, trie_size);
- trie_hash:=xmalloc_array (trie_pointer, trie_size);
- trie_taken:=xmalloc_array (boolean, trie_size);
- trie_min:=xmalloc_array (trie_pointer, too_big_char);
-
- trie_root:=0; trie_c[0]:=si(0); trie_ptr:=0;
- end;
- tini@/
-
-@z
-
-% [52.1338] Core-dump in debugging mode on 0 input. Under Unix, it's
-% not possible to portably switch into the debugger while a program is
-% running. The best approximation is to do a core dump, then run the
-% debugger on it later.
-@x [52.1338] l.24411 - Core-dump in debugging mode on 0 input.
- begin goto breakpoint;@\ {go to every label at least once}
- breakpoint: m:=0; @{'BREAKPOINT'@}@\
- end
-@y
- dump_core {do something to cause a core dump}
-@z
-
-% The GNU C compiler complains of unused variables.
-@x
-procedure do_extension;
-var i,@!j,@!k:integer; {all-purpose integers}
-@!p,@!q,@!r:pointer; {all-purpose pointers}
-@y
-procedure do_extension;
-var @!k:integer; {all-purpose integers}
-@!p:pointer; {all-purpose pointers}
-@z
-
-% [53.1350] (new_write_whatsit) Allow 18 as a \write stream. We never
-% refer to an actual file, though, so we don't need to change the
-% write_file or write_open arrays. We provide for disabling this at
-% runtime, for paranoids.
-@x [53.1350] l.24609 - system: Allow 18 as a \write stream.
- else if cur_val>15 then cur_val:=16;
-@y
- else if (cur_val>15) and (cur_val <> 18) then cur_val:=16;
-@z
-
-@x [53.1370] l.24770 - system: (write_out) \write18{foo} => system(foo).
-begin @<Expand macros in the token list
-@y
-@!d:integer; {number of characters in incomplete current string}
-@!clobbered:boolean; {system string is ok?}
-@!runsystem_ret:integer; {return value from |runsystem|}
-begin @<Expand macros in the token list
-@z
-
-@x [53.1370] l.24773 - system: (write_out) \write18{foo} => system(foo).
-if write_open[j] then selector:=j
-@y
-if j=18 then selector := new_string
-else if write_open[j] then selector:=j
-@z
-
-% Then call system(3) on that string.
-@x [53.1370] l.24779 - system: (write_out) \write18{foo} => system(foo).
-flush_list(def_ref); selector:=old_setting;
-@y
-flush_list(def_ref);
-if j=18 then
- begin if (tracing_online<=0) then
- selector:=log_only {Show what we're doing in the log file.}
- else selector:=term_and_log; {Show what we're doing.}
- {If the log file isn't open yet, we can only send output to the terminal.
- Calling |open_log_file| from here seems to result in bad data in the log.}
- if not log_opened then selector:=term_only;
- print_nl("runsystem(");
- for d:=0 to cur_length-1 do
- begin {|print| gives up if passed |str_ptr|, so do it by hand.}
- print(so(str_pool[str_start(str_ptr)+d])); {N.B.: not |print_char|}
- end;
- print(")...");
- if shellenabledp then
- begin str_room(1); append_char(0); {Append a null byte to the expansion.}
- clobbered:=false;
- for d:=0 to cur_length-1 do {Convert to external character set.}
- begin
- str_pool[str_start(str_ptr)+d]:=xchr[str_pool[str_start(str_ptr)+d]];
- if (str_pool[str_start(str_ptr)+d]=null_code)
- and (d<cur_length-1) then clobbered:=true;
- {minimal checking: NUL not allowed in argument string of |system|()}
- end;
- if clobbered then print("clobbered")
- else begin {We have the command. See if we're allowed to execute it,
- and report in the log. We don't check the actual exit status of
- the command, or do anything with the output.}
- for d:=0 to cur_length-1 do {Convert to external character set.}
- begin
- outside_string_array[d]:=xchr[str_pool[str_start(str_ptr)+d]];
- end;
- outside_string_array[cur_length]:=null_code;
- runsystem_ret := runsystem(stringcast(outside_string_array));
- if runsystem_ret = -1 then print("quotation error in system command")
- else if runsystem_ret = 0 then print("disabled (restricted)")
- else if runsystem_ret = 1 then print("executed")
- else if runsystem_ret = 2 then print("executed (allowed)")
- end;
- end else begin
- print("disabled"); {|shellenabledp| false}
- end;
- print_char("."); print_nl(""); print_ln;
- pool_ptr:=str_start(str_ptr); {erase the string}
-end;
-selector:=old_setting;
-@z
-
-@x [53.1373] Need new local.
-procedure out_what(@!p:pointer);
-var j:small_number; {write stream number}
-@y
-procedure out_what(@!p:pointer);
-var j:small_number; {write stream number}
- @!old_setting:0..max_selector;
-@z
-
-@x [53.1374] Disallow certain \openout filenames, and log results.
- while not a_open_out(write_file[j]) do
- prompt_file_name("output file name",".tex");
- write_open[j]:=true;
-@y
- while not a_open_out(write_file[j])
- or not open_out_name_ok(name_of_file+1) do
- prompt_file_name("output file name",".tex");
- write_open[j]:=true;
- {If on first line of input, log file is not ready yet, so don't log.}
- if log_opened then begin
- old_setting:=selector;
- if (tracing_online<=0) then
- selector:=log_only {Show what we're doing in the log file.}
- else selector:=term_and_log; {Show what we're doing.}
- print_nl("\openout");
- print_int(j);
- print(" = `");
- print_file_name(cur_name,cur_area,cur_ext);
- print("'."); print_nl(""); print_ln;
- selector:=old_setting;
- end;
-@z
-
-@x [54.1376] l.24903 - Add editor-switch variables to globals.
-@* \[54] System-dependent changes.
-@y
-@* \[54/web2c] System-dependent changes for Web2c.
-Here are extra variables for Web2c. (This numbering of the
-system-dependent section allows easy integration of Web2c and e-\TeX, etc.)
-@^<system dependencies@>
-
-@<Glob...@>=
-@!edit_name_start: pool_pointer; {where the filename to switch to starts}
-@!edit_name_length,@!edit_line: integer; {what line to start editing at}
-@!ipc_on: cinttype; {level of IPC action, 0 for none [default]}
-@!stop_at_space: boolean; {whether |more_name| returns false for space}
-
-@ The |edit_name_start| will be set to point into |str_pool| somewhere after
-its beginning if \TeX\ is supposed to switch to an editor on exit.
-
-@<Set init...@>=
-edit_name_start:=0;
-stop_at_space:=true;
-
-@ These are used when we regenerate the representation of the first 256
-strings.
-
-@<Global...@> =
-@!save_str_ptr: str_number;
-@!save_pool_ptr: pool_pointer;
-@!shellenabledp: cinttype;
-@!restrictedshell: cinttype;
-@!output_comment: ^char;
-@!k,l: 0..65535; {used by `Make the first 256 strings', etc.}
-
-@ When debugging a macro package, it can be useful to see the exact
-control sequence names in the format file. For example, if ten new
-csnames appear, it's nice to know what they are, to help pinpoint where
-they came from. (This isn't a truly ``basic'' printing procedure, but
-that's a convenient module in which to put it.)
-
-@<Basic printing procedures@> =
-procedure print_csnames (hstart:integer; hfinish:integer);
-var c,h:integer;
-begin
- write_ln(stderr, 'fmtdebug:csnames from ', hstart, ' to ', hfinish, ':');
- for h := hstart to hfinish do begin
- if newtext(h) > 0 then begin {if have anything at this position}
- for c := str_start(newtext(h)) to str_start(newtext(h) + 1) - 1
- do begin
- put_byte(str_pool[c], stderr); {print the characters}
- end;
- write_ln(stderr, '|');
- end;
- end;
-end;
-
-@ Are we printing extra info as we read the format file?
-
-@<Glob...@> =
-@!debug_format_file: boolean;
-
-
-@ A helper for printing file:line:error style messages. Look for a
-filename in |full_source_filename_stack|, and if we fail to find
-one fall back on the non-file:line:error style.
-
-@<Basic print...@>=
-procedure print_file_line;
-var level: 0..max_in_open;
-begin
- level:=in_open;
- while (level>0) and (full_source_filename_stack[level]=0) do
- decr(level);
- if level=0 then
- print_nl("! ")
- else begin
- print_nl (""); print (full_source_filename_stack[level]); print (":");
- if level=in_open then print_int (line)
- else print_int (line_stack[index+1-(in_open-level)]);
- print (": ");
- end;
-end;
-
-@ To be able to determine whether \.{\\write18} is enabled from within
-\TeX\ we also implement \.{\\eof18}. We sort of cheat by having an
-additional route |scan_four_bit_int_or_18| which is the same as
-|scan_four_bit_int| except it also accepts the value 18.
-
-@<Declare procedures that scan restricted classes of integers@>=
-procedure scan_four_bit_int_or_18;
-begin scan_int;
-if (cur_val<0)or((cur_val>15)and(cur_val<>18)) 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;
-
-@* \[54/web2c-string] The string recycling routines. \TeX{} uses 2
-upto 4 {\it new\/} strings when scanning a filename in an \.{\\input},
-\.{\\openin}, or \.{\\openout} operation. These strings are normally
-lost because the reference to them are not saved after finishing the
-operation. |search_string| searches through the string pool for the
-given string and returns either 0 or the found string number.
-
-@<Declare additional routines for string recycling@>=
-function search_string(@!search:str_number):str_number;
-label found;
-var result: str_number;
-@!s: str_number; {running index}
-@!len: integer; {length of searched string}
-begin result:=0; len:=length(search);
-if len=0 then {trivial case}
- begin result:=""; goto found;
- end
-else begin s:=search-1; {start search with newest string below |s|; |search>1|!}
- while s>65535 do {first 65536 strings depend on implementation!!}
- begin if length(s)=len then
- if str_eq_str(s,search) then
- begin result:=s; goto found;
- end;
- decr(s);
- end;
- end;
-found:search_string:=result;
-end;
-
-@ The following routine is a variant of |make_string|. It searches
-the whole string pool for a string equal to the string currently built
-and returns a found string. Otherwise a new string is created and
-returned. Be cautious, you can not apply |flush_string| to a replaced
-string!
-
-@<Declare additional routines for string recycling@>=
-function slow_make_string : str_number;
-label exit;
-var s: str_number; {result of |search_string|}
-@!t: str_number; {new string}
-begin t:=make_string; s:=search_string(t);
-if s>0 then
- begin flush_string; slow_make_string:=s; return;
- end;
-slow_make_string:=t;
-exit:end;
-
-
-@* \[54] System-dependent changes.
-@z
diff --git a/Build/source/texk/web2c/omegadir/comchar.ch b/Build/source/texk/web2c/omegadir/comchar.ch
deleted file mode 100644
index e9453955180..00000000000
--- a/Build/source/texk/web2c/omegadir/comchar.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comchar.ch: Local adaptations for file omchar.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comdir.ch b/Build/source/texk/web2c/omegadir/comdir.ch
deleted file mode 100644
index b82a1016fd3..00000000000
--- a/Build/source/texk/web2c/omegadir/comdir.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comdir.ch: Local adaptations for file omdir.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comfi.ch b/Build/source/texk/web2c/omegadir/comfi.ch
deleted file mode 100644
index bb554766295..00000000000
--- a/Build/source/texk/web2c/omegadir/comfi.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comfi.ch: Local adapatations for file omfi.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comfilter.ch b/Build/source/texk/web2c/omegadir/comfilter.ch
deleted file mode 100644
index 64499611753..00000000000
--- a/Build/source/texk/web2c/omegadir/comfilter.ch
+++ /dev/null
@@ -1,123 +0,0 @@
-% comfilter.ch: Local adaptations for file omfilter.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x
-@!inf_ocp_list_size = 1000;
-@y
-@!inf_ocp_list_size = 1000;
-@!sup_ocp_buf_size = 1000000;
-@!inf_ocp_buf_size = 1000;
-@!sup_ocp_stack_size = 1000000;
-@!inf_ocp_stack_size = 1000;
-@z
-%---------------------------------------
-@x
-@!ocp_list_size:integer;
-@y
-@!ocp_list_size:integer;
-@!ocp_buf_size:integer;
-@!ocp_stack_size:integer;
-@z
-%---------------------------------------
-@x
-for k:=0 to active_max_ptr-1 do dump_wd(active_info[k]);
-print_ln; print_int(active_max_ptr); print(" words of active ocps");
-
-@ @<Undump the active ocp information@>=
-undump_size(0)(active_mem_size)('active start point')(active_min_ptr);
-undump_size(0)(active_mem_size)('active mem size')(active_max_ptr);
-for k:=0 to active_max_ptr-1 do undump_wd(active_info[k]);
-@y
-dump_things(active_info[0], active_max_ptr);
-print_ln; print_int(active_max_ptr); print(" words of active ocps");
-
-@ @<Undump the active ocp information@>=
-undump_size(0)(active_mem_size)('active start point')(active_min_ptr);
-undump_size(0)(active_mem_size)('active mem size')(active_max_ptr);
-undump_things(active_info[0], active_max_ptr);
-@z
-%---------------------------------------
-@x
- setup_bound_var(1000)('ocp_list_size')(ocp_list_size);
-@y
- setup_bound_var(1000)('ocp_list_size')(ocp_list_size);
- setup_bound_var(1000)('ocp_buf_size')(ocp_buf_size);
- setup_bound_var(1000)('ocp_stack_size')(ocp_stack_size);
-@z
-%---------------------------------------
-@x
- ocp_list_list:=xmalloc_array (ocp_list_index, ocp_list_size);
-@y
- ocp_list_list:=xmalloc_array (ocp_list_index, ocp_list_size);
- otp_init_input_buf:=xmalloc_array (quarterword, ocp_buf_size);
- otp_input_buf:=xmalloc_array (quarterword, ocp_buf_size);
- otp_output_buf:=xmalloc_array (quarterword, ocp_buf_size);
- otp_stack_buf:=xmalloc_array (quarterword, ocp_stack_size);
- otp_calcs:=xmalloc_array (halfword, ocp_stack_size);
- otp_states:=xmalloc_array (halfword, ocp_stack_size);
-@z
-%---------------------------------------
-@x
-@!otp_init_input_buf:array[0..20000] of quarterword;
-
-@!otp_input_start:halfword;
-@!otp_input_last:halfword;
-@!otp_input_end:halfword;
-@!otp_input_buf:array[0..20000] of quarterword;
-
-@!otp_output_end:halfword;
-@!otp_output_buf:array[0..20000] of quarterword;
-
-@!otp_stack_used:halfword;
-@!otp_stack_last:halfword;
-@!otp_stack_new:halfword;
-@!otp_stack_buf:array[0..1000] of quarterword;
-
-@!otp_pc:halfword;
-
-@!otp_calc_ptr:halfword;
-@!otp_calcs:array[0..1000] of halfword;
-@!otp_state_ptr:halfword;
-@!otp_states:array[0..1000] of halfword;
-@y
-@!otp_init_input_buf:^quarterword;
-
-@!otp_input_start:halfword;
-@!otp_input_last:halfword;
-@!otp_input_end:halfword;
-@!otp_input_buf:^quarterword;
-
-@!otp_output_end:halfword;
-@!otp_output_buf:^quarterword;
-
-@!otp_stack_used:halfword;
-@!otp_stack_last:halfword;
-@!otp_stack_new:halfword;
-@!otp_stack_buf:^quarterword;
-
-@!otp_pc:halfword;
-
-@!otp_calc_ptr:halfword;
-@!otp_calcs:^halfword;
-@!otp_state_ptr:halfword;
-@!otp_states:^halfword;
-@z
diff --git a/Build/source/texk/web2c/omegadir/comfont.ch b/Build/source/texk/web2c/omegadir/comfont.ch
deleted file mode 100644
index 7d490e54985..00000000000
--- a/Build/source/texk/web2c/omegadir/comfont.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comfonts.ch: Local adaptations for file omfonts.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comnode.ch b/Build/source/texk/web2c/omegadir/comnode.ch
deleted file mode 100644
index 9e2faf5f55b..00000000000
--- a/Build/source/texk/web2c/omegadir/comnode.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comnode.ch: Local adaptations for file omnode.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comocp.ch b/Build/source/texk/web2c/omegadir/comocp.ch
deleted file mode 100644
index 0c7056cd610..00000000000
--- a/Build/source/texk/web2c/omegadir/comocp.ch
+++ /dev/null
@@ -1,141 +0,0 @@
-% comcop.ch: Local adaptations for file omocp.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x
-@!inf_hyph_size = iinf_hyphen_size; {Must be not less than |hyph_prime|!}
-@y
-@!inf_hyph_size = iinf_hyphen_size; {Must be not less than |hyph_prime|!}
-@!sup_ocp_list_size = 1000000;
-@!inf_ocp_list_size = 1000;
-@z
-%---------------------------------------
-@x
-@!max_print_line:integer;
- {width of longest text lines output; should be at least 60}
-@y
-@!max_print_line:integer;
- {width of longest text lines output; should be at least 60}
-@!ocp_list_size:integer;
-@z
-%---------------------------------------
-@x
-if not b_open_in(ocp_file) then ocp_abort("opening file");
-@y
-if not ocp_open_in(ocp_file) then ocp_abort("opening file");
-@z
-%---------------------------------------
-@x
-@d ocpget==get(ocp_file)
-@d ocpbyte==ocp_file^
-@y
-@d ocpget==ocp_temp:=getc(ocp_file)
-@d ocpbyte==ocp_temp
-@z
-%---------------------------------------
-@x
-@!ocp_list_info:array[ocp_list_index] of memory_word;
- {the big collection of ocp list data}
-@!ocp_listmem_ptr:ocp_list_index; {first unused word of |ocp_list_info|}
-@!ocp_listmem_run_ptr:ocp_list_index; {temp unused word of |ocp_list_info|}
-@!ocp_lstack_info:array[ocp_lstack_index] of memory_word;
- {the big collection of ocp lstack data}
-@!ocp_lstackmem_ptr:ocp_lstack_index; {first unused word of |ocp_lstack_info|}
-@!ocp_lstackmem_run_ptr:ocp_lstack_index; {temp unused word of |ocp_lstack_info|}
-@!ocp_list_ptr:internal_ocp_list_number; {largest internal ocp list number in use}
-@!ocp_list_list:array[internal_ocp_list_number] of ocp_list_index;
-@y
-@!ocp_list_info:^memory_word;
- {the big collection of ocp list data}
-@!ocp_listmem_ptr:ocp_list_index; {first unused word of |ocp_list_info|}
-@!ocp_listmem_run_ptr:ocp_list_index; {temp unused word of |ocp_list_info|}
-@!ocp_lstack_info:^memory_word;
- {the big collection of ocp lstack data}
-@!ocp_lstackmem_ptr:ocp_lstack_index; {first unused word of |ocp_lstack_info|}
-@!ocp_lstackmem_run_ptr:ocp_lstack_index; {temp unused word of |ocp_lstack_info|}
-@!ocp_list_ptr:internal_ocp_list_number; {largest internal ocp list number in use}
-@!ocp_list_list:^ocp_list_index;
-@z
-%---------------------------------------
-@x
-@ @<Dump the ocp list information@>=
-dump_int(ocp_listmem_ptr);
-for k:=0 to ocp_listmem_ptr-1 do dump_wd(ocp_list_info[k]);
-dump_int(ocp_list_ptr);
-for k:=null_ocp_list to ocp_list_ptr do begin
- dump_int(ocp_list_list[k]);
- print_nl("\ocplist");
- print_esc(ocp_list_id_text(k));
- print_char("=");
- print_ocp_list(ocp_list_list[k]);
- end;
-dump_int(ocp_lstackmem_ptr);
-for k:=0 to ocp_lstackmem_ptr-1 do dump_wd(ocp_lstack_info[k])
-@y
-@ @<Dump the ocp list information@>=
-dump_int(ocp_listmem_ptr);
-dump_things(ocp_list_info[0], ocp_listmem_ptr);
-dump_int(ocp_list_ptr);
-dump_things(ocp_list_list[null_ocp_list], ocp_list_ptr+1-null_ocp_list);
-for k:=null_ocp_list to ocp_list_ptr do begin
- print_nl("\ocplist");
- print_esc(ocp_list_id_text(k));
- print_char("=");
- print_ocp_list(ocp_list_list[k]);
- end;
-dump_int(ocp_lstackmem_ptr);
-dump_things(ocp_lstack_info[0], ocp_lstackmem_ptr)
-@z
-%---------------------------------------
-@x
-@ @<Undump the ocp list information@>=
-undump_size(1)(1000000)('ocp list mem size')(ocp_listmem_ptr);
-for k:=0 to ocp_listmem_ptr-1 do undump_wd(ocp_list_info[k]);
-undump_size(ocp_list_base)(ocp_list_biggest)('ocp list max')(ocp_list_ptr);
-for k:=null_ocp_list to ocp_list_ptr do
- undump_int(ocp_list_list[k]);
-undump_size(1)(1000000)('ocp lstack mem size')(ocp_lstackmem_ptr);
-for k:=0 to ocp_lstackmem_ptr-1 do undump_wd(ocp_lstack_info[k])
-@y
-@ @<Undump the ocp list information@>=
-undump_size(1)(1000000)('ocp list mem size')(ocp_listmem_ptr);
-undump_things(ocp_list_info[0], ocp_listmem_ptr);
-undump_size(0)(1000000)('ocp list max')(ocp_list_ptr);
-undump_things(ocp_list_list[null_ocp_list], ocp_list_ptr+1-null_ocp_list);
-undump_size(0)(1000000)('ocp lstack mem size')(ocp_lstackmem_ptr);
-undump_things(ocp_lstack_info[0], ocp_lstackmem_ptr)
-@z
-%---------------------------------------
-@x
- setup_bound_var (79)('max_print_line')(max_print_line);
-@y
- setup_bound_var (79)('max_print_line')(max_print_line);
- setup_bound_var(1000)('ocp_list_size')(ocp_list_size);
-@z
-%---------------------------------------
-@x
- hyph_link:=xmalloc_array (hyph_pointer, hyph_size);
-@y
- hyph_link:=xmalloc_array (hyph_pointer, hyph_size);
- ocp_list_info:=xmalloc_array (memory_word, ocp_list_size);
- ocp_lstack_info:=xmalloc_array (memory_word, ocp_list_size);
- ocp_list_list:=xmalloc_array (ocp_list_index, ocp_list_size);
-@z
diff --git a/Build/source/texk/web2c/omegadir/compar.ch b/Build/source/texk/web2c/omegadir/compar.ch
deleted file mode 100644
index ac5baddf9b4..00000000000
--- a/Build/source/texk/web2c/omegadir/compar.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% Local adaptations for file ompar.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comsrcspec.ch b/Build/source/texk/web2c/omegadir/comsrcspec.ch
deleted file mode 100644
index 4656f2ce35c..00000000000
--- a/Build/source/texk/web2c/omegadir/comsrcspec.ch
+++ /dev/null
@@ -1,353 +0,0 @@
-@x
-@!dvi_buf_size:integer; {size of the output buffer; must be a multiple of 8}
-@!quoted_filename:boolean; {current filename is quoted}
-@y
-@!dvi_buf_size:integer; {size of the output buffer; must be a multiple of 8}
-@!quoted_filename:boolean; {current filename is quoted}
-@!special_loc:pointer;
-@!special_token:halfword;
-
-@!parse_first_line_p:cinttype; {parse the first line for options}
-@!file_line_error_style_p:cinttype; {format messages as file:line:error}
-@!halt_on_error_p:boolean; {stop at first error}
-
-@!src_specials_p : boolean;
-@!insert_src_special_auto : boolean;
-@!insert_src_special_every_par : boolean;
-@!insert_src_special_every_parend : boolean;
-@!insert_src_special_every_cr : boolean;
-@!insert_src_special_every_math : boolean;
-@!insert_src_special_every_hbox : boolean;
-@!insert_src_special_every_vbox : boolean;
-@!insert_src_special_every_display : boolean;
-@z
-
-@x
-wterm(banner);
-wterm(version_string);
-if format_ident>0 then slow_print(format_ident);
-print_ln;
-@y
-if src_specials_p or file_line_error_style_p or parse_first_line_p then
- wterm(banner_k)
-else
- wterm(banner);
-wterm(version_string);
-if format_ident>0 then slow_print(format_ident);
-print_ln;
-if shellenabledp then begin
- wterm(' ');
- if restrictedshell then begin
- wterm('restricted ');
- end;
- wterm_ln('\write18 enabled.');
-end;
-if src_specials_p then begin
- wterm_ln(' Source specials enabled.')
-end;
-if file_line_error_style_p then begin
- wterm_ln(' file:line:error style messages enabled.')
-end;
-if parse_first_line_p then begin
- wterm_ln(' %&-line parsing enabled.')
-end;
-@z
-
-@x
- print_nl("! "); print(#);
-@y
- if file_line_error_style_p then print_file_line
- else print_nl("! ");
- print(#);
-@z
-
-@x
-print_char("."); show_context;
-@y
-print_char("."); show_context;
-if (halt_on_error_p) then begin
- history:=fatal_error_stop; jump_out;
-end;
-@z
-
-@x
-@!in_open : 0..max_in_open; {the number of lines in the buffer, less one}
-@!open_parens : 0..max_in_open; {the number of open text files}
-@!input_file : ^alpha_file;
-@!input_file_mode : ^halfword;
-@!input_file_translation : ^halfword;
-@!line : integer; {current line number in the current source file}
-@!line_stack : ^integer;
-@y
-@!in_open : 0..max_in_open; {the number of lines in the buffer, less one}
-@!open_parens : 0..max_in_open; {the number of open text files}
-@!input_file : ^alpha_file;
-@!input_file_mode : ^halfword;
-@!input_file_translation : ^halfword;
-@!line : integer; {current line number in the current source file}
-@!line_stack : ^integer;
-@!source_filename_stack : ^str_number;
-@!full_source_filename_stack : ^str_number;
-@z
-
-@x
-begin wlog(banner);
-wlog(version_string);
-@y
-begin if src_specials_p or file_line_error_style_p or parse_first_line_p
-then
- wlog(banner_k)
-else
- wlog(banner);
-wlog(version_string);
-if shellenabledp then begin
- wlog_cr;
- wlog(' ');
- if restrictedshell then begin
- wlog('restricted ');
- end;
- wlog('\write18 enabled.')
-end;
-if src_specials_p then begin
- wlog_cr;
- wlog(' Source specials enabled.')
-end;
-if file_line_error_style_p then begin
- wlog_cr;
- wlog(' file:line:error style messages enabled.')
-end;
-if parse_first_line_p then begin
- wlog_cr;
- wlog(' %&-line parsing enabled.');
-end;
-@z
-
-%% ** 537 ******************************************************************
-
-@x
-done: name:=a_make_name_string(cur_file);
-if name=str_ptr-1 then {we can try to conserve string pool space now}
- begin temp_str:=search_string(name);
- if temp_str>0 then
- begin name:=temp_str; flush_string;
- end;
- end;
-@y
-done: name:=a_make_name_string(cur_file);
-source_filename_stack[in_open]:=name;
-full_source_filename_stack[in_open]:=make_full_name_string;
-if name=str_ptr-1 then {we can try to conserve string pool space now}
- begin temp_str:=search_string(name);
- if temp_str>0 then
- begin name:=temp_str; flush_string;
- end;
- end;
-@z
-
-%%@x
-%%if term_offset+length(name)>max_print_line-2 then print_ln
-%%else if (term_offset>0)or(file_offset>0) then print_char(" ");
-%%print_char("("); incr(open_parens); slow_print(name); update_terminal;
-%%@y
-%%if term_offset+length(full_source_filename_stack[in_open])>max_print_line-2 then print_ln
-%%else if (term_offset>0)or(file_offset>0) then print_char(" ");
-%%print_char("("); incr(open_parens); slow_print(full_source_filename_stack[in_open]); update_terminal;
-%%@z
-
-%% ** 774 ******************************************************************
-
- @x
-if every_cr<>null then begin_token_list(every_cr,every_cr_text);
- @y
-if (insert_src_special_every_cr and head<>tail) then insert_src_special;
-if every_cr<>null then begin_token_list(every_cr,every_cr_text);
- @z
-
-%% ** 799 ******************************************************************
-
- @x
-if every_cr<>null then begin_token_list(every_cr,every_cr_text);
- @y
-if (insert_src_special_every_cr) then insert_src_special;
-if every_cr<>null then begin_token_list(every_cr,every_cr_text);
- @z
-
-%% ** 1034 ******************************************************************
-
-@x
-@<Append character |cur_chr|...@>=
-adjust_space_factor;@/
-@y
-@<Append character |cur_chr|...@>=
-if ((head=tail) and (mode>0)) then begin
- if (insert_src_special_auto) then append_src_special;
-end;
-adjust_space_factor;@/
-@z
-
-%% ** 1083 ******************************************************************
-
- @x
- if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text);
- @y
- if (insert_src_special_every_vbox) then insert_src_special;
- if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text);
- @z
-
- @x
- if every_hbox<>null then begin_token_list(every_hbox,every_hbox_text);
- @y
- if (insert_src_special_every_hbox) then insert_src_special;
- if every_hbox<>null then begin_token_list(every_hbox,every_hbox_text);
- @z
-
-%% ** 1091 ******************************************************************
-% Disabled, prevents merge with web2c's tex.ch.
- @x
-if indented then begin
- p:=new_null_box; box_dir(p):=par_direction;
- width(p):=par_indent;@+
- tail_append(p);
- end;
- @y
-if indented then begin
- p:=new_null_box; box_dir(p):=par_direction;
- width(p):=par_indent;@+
- tail_append(p);
- if (insert_src_special_every_par) then insert_src_special;@+
- end;
- @z
-
-%% insert source special at par because this is disabled above
-@x
-if indented then
- begin tail:=new_null_box; link(head):=tail; width(tail):=par_indent;@+
- box_dir(tail):=info(par_dir_stack);
- change_dir(tail,info(par_dir_stack));
- end;
-@y
-if indented then
- begin tail:=new_null_box; link(head):=tail; width(tail):=par_indent;@+
- box_dir(tail):=info(par_dir_stack);
- change_dir(tail,info(par_dir_stack));
- if (insert_src_special_every_par) then insert_src_special;@+
- end;
-@z
-
-%% ** 1096 ******************************************************************
-
- @x fixme: etex conflict
- else line_break(widow_penalty);
- @y
- else begin
- if (insert_src_special_every_parend) then insert_src_special;
- line_break(widow_penalty);
- end;
- @z
-
-%% ** 1139 ******************************************************************
-
-@x
-if every_math<>null then begin_token_list(every_math,every_math_text);
-@y
-if (insert_src_special_every_math) then insert_src_special;
-if every_math<>null then begin_token_list(every_math,every_math_text);
-@z
-
-%% ** 1145 ******************************************************************
-
- @x
-if every_display<>null then begin_token_list(every_display,every_display_text);
- @y
-if (insert_src_special_every_display) then append_src_special;
-if every_display<>null then begin_token_list(every_display,every_display_text);
- @z
-
-%% ** 1167 ******************************************************************
-
-@x
- if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text);
-@y
- if (insert_src_special_every_vbox) then insert_src_special;
- if every_vbox<>null then begin_token_list(every_vbox,every_vbox_text);
-@z
-
-%% ** 1313 ******************************************************************
-
-@x
-dump_int(par_loc); dump_int(write_loc);@/
-@y
-dump_int(par_loc); dump_int(write_loc); dump_int(special_loc);@/
-@z
-
-%% ** 1314 ******************************************************************
-
-@x
-undump(hash_base)(frozen_control_sequence)(write_loc);@/
-@y
-undump(hash_base)(frozen_control_sequence)(write_loc);@/
-undump(hash_base)(frozen_control_sequence)(special_loc);
-special_token:=cs_token_flag+special_loc;@/
-@z
-
-@x
- line_stack:=xmalloc_array (integer, max_in_open);
-@y
- line_stack:=xmalloc_array (integer, max_in_open);
- source_filename_stack:=xmalloc_array (str_number, max_in_open);
- full_source_filename_stack:=xmalloc_array (str_number, max_in_open);
-@z
-
-%% ** 1344 ******************************************************************
-
-@x
-primitive("special",extension,special_node);@/
-@y
-primitive("special",extension,special_node);@/
-special_loc:=cur_val; special_token:=cs_token_flag+special_loc;@/
-@z
-
-%% ** 1379 ******************************************************************
-
-@x
-@* \[55] Index.
-@y
-
-@ @<Declare action procedures for use by |main_control|@>=
-
-procedure insert_src_special;
-var toklist, p, q : pointer;
-begin
- if (source_filename_stack[in_open] > 0 and is_new_source (source_filename_stack[in_open], line)) then begin
- toklist := get_avail;
- p := toklist;
- info(p) := special_token;
- link(p) := get_avail; p := link(p);
- info(p) := left_brace_token+"{";
- q := str_toks (make_src_special (source_filename_stack[in_open], line));
- link(p) := link(temp_head);
- p := q;
- link(p) := get_avail; p := link(p);
- info(p) := right_brace_token+"}";
- ins_list (toklist);
- remember_source_info (source_filename_stack[in_open], line);
- end;
-end;
-
-procedure append_src_special;
-var q : pointer;
-begin
- if (source_filename_stack[in_open] > 0 and is_new_source (source_filename_stack[in_open], line)) then begin
- new_whatsit (special_node, write_node_size);
- write_stream(tail) := null;
- def_ref := get_avail;
- token_ref_count(def_ref) := null;
- q := str_toks (make_src_special (source_filename_stack[in_open], line));
- link(def_ref) := link(temp_head);
- write_tokens(tail) := def_ref;
- remember_source_info (source_filename_stack[in_open], line);
- end;
-end;
-
-@* \[55] Index.
-@z
diff --git a/Build/source/texk/web2c/omegadir/comstr.ch b/Build/source/texk/web2c/omegadir/comstr.ch
deleted file mode 100644
index 95c089816b5..00000000000
--- a/Build/source/texk/web2c/omegadir/comstr.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comstr.ch: Local adaptations for file omstr.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comtrans.ch b/Build/source/texk/web2c/omegadir/comtrans.ch
deleted file mode 100644
index 5f03ceac5f4..00000000000
--- a/Build/source/texk/web2c/omegadir/comtrans.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comtrans.ch: Local adaptations for file omtrans.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/comxml.ch b/Build/source/texk/web2c/omegadir/comxml.ch
deleted file mode 100644
index 6c68ae40e33..00000000000
--- a/Build/source/texk/web2c/omegadir/comxml.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% comxml.ch: Local adaptations for file omxml.ch
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/om16bit.ch b/Build/source/texk/web2c/omegadir/om16bit.ch
deleted file mode 100644
index eb10ed85e8a..00000000000
--- a/Build/source/texk/web2c/omegadir/om16bit.ch
+++ /dev/null
@@ -1,2826 +0,0 @@
-% om16bit.ch: Basic changes to TeX data structures allowing all
-% 8-bit entities to become 32-bit entities, in particular
-% characters and glyphs.
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-@x limbo l.1 - Omega
-% This program is copyright (C) 1982 by D. E. Knuth; all rights are reserved.
-@y
-% This program is copyright
-% (C) 1994--2000 by John Plaice and Yannis Haralambous.
-% It is designed to be a change file for D. E. Knuth's TeX.
-%
-% This program is copyright (C) 1982 by D. E. Knuth.
-@z
-%---------------------------------------
-@x limbo l.80
-\def\title{\TeX82}
-@y
-\def\title{$\Omega$ (OMEGA)}
-@z
-%---------------------------------------
-@x [1] m.1 l.90 - Omega
-This is \TeX, a document compiler intended to produce typesetting of high
-quality.
-The \PASCAL\ program that follows is the definition of \TeX82, a standard
-@:PASCAL}{\PASCAL@>
-@!@:TeX82}{\TeX82@>
-@y
-This is $\Omega$, a document compiler intended to simplify high-quality
-typesetting for many of the world's languages. It is an extension
-of D. E. Knuth's \TeX, which was designed essentially for the
-typesetting of languages using the Latin alphabet.
-
-The $\Omega$ system loosens many of the restrictions imposed by~\TeX:
-register numbers are no longer limited to 8~bits; fonts may have more
-than 256~characters; more than 256~fonts may be used; etc. In addition,
-$\Omega$ allows much more complex ligature mechanisms between characters,
-thereby simplifying the typesetting of alphabets that have preserved
-their calligraphic traditions.
-
-The \PASCAL\ program that follows is a modification of the definition of \TeX82,
-a standard @:PASCAL}{\PASCAL@> @!@:TeX82}{\TeX82@>
-@z
-%---------------------------------------
-@x [1] m.1 l.97 - Omega
-will be obtainable on a great variety of computers.
-
-@y
-will be obtainable on a great variety of computers.
-
-As little as possible is changed in this document. This means that
-unless the contrary is explicitly stated, references to \TeX\ in the
-documentation are equally applicable to~$\Omega$. References to `the
-author' in the documentation are to D. E. Knuth.
-
-@z
-%---------------------------------------
-@x [1] m.2 l.187 - Omega
-@d banner=='This is TeX, Version 3.1415926' {printed when \TeX\ starts}
-@y
-@d banner=='This is Omega, Version 3.1415926-1.23.2.3' {printed when \TeX\ starts}
-@z
-%---------------------------------------
-@x [1] m.4 l.243
-program TEX; {all file names are defined dynamically}
-@y
-program OMEGA; {all file names are defined dynamically}
-@z
-%---------------------------------------
-@x [1] m.11 l.392 - Omega
-@!font_max=75; {maximum internal font number; must not exceed |max_quarterword|
- and must be at most |font_base+256|}
-@!font_mem_size=20000; {number of words of |font_info| for all fonts}
-@y
-@!font_max=65535; {maximum internal font number; must be at most |font_biggest|}
-@z
-%---------------------------------------
-@x [1] m.11 l.412 - Omega
-@!pool_name='TeXformats:TEX.POOL ';
-@y
-@!pool_name='TeXformats:OMEGA.POOL ';
-@z
-%---------------------------------------
-@x [1] m.12 l.437 - Omega
-@d hash_size=2100 {maximum number of control sequences; it should be at most
- about |(mem_max-mem_min)/10|}
-@d hash_prime=1777 {a prime number equal to about 85\pct! of |hash_size|}
-@d hyph_size=307 {another prime; the number of \.{\\hyphenation} exceptions}
-@y
-@d hash_size=65536 {maximum number of control sequences; it should be at most
- about |(mem_max-mem_min)/10|}
-@d hash_prime=55711 {a prime number equal to about 85\pct! of |hash_size|}
-@d hyph_size=307 {another prime; the number of \.{\\hyphenation} exceptions}
-@d biggest_char=65535 {the largest allowed character number;
- must be |<=max_quarterword|}
-@d too_big_char=65536 {|biggest_char+1|}
-@d special_char=65537 {|biggest_char+2|}
-@d number_chars=65536 {|biggest_char+1|}
-@d biggest_reg=65535 {the largest allowed register number;
- must be |<=max_quarterword|}
-@d number_regs=65536 {|biggest_reg+1|}
-@d font_biggest=65535 {the real biggest font}
-@d number_fonts=font_biggest-font_base+2
-@d number_math_fonts=768
-@d math_font_biggest=767
-@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}
-@d biggest_lang=255
-@d too_big_lang=256
-@z
-%---------------------------------------
-@x [8] m.110 l.2355 - Omega
-In order to make efficient use of storage space, \TeX\ bases its major data
-structures on a |memory_word|, which contains either a (signed) integer,
-possibly scaled, or a (signed) |glue_ratio|, or a small number of
-fields that are one half or one quarter of the size used for storing
-integers.
-
-@y
-In order to make efficient use of storage space, \TeX\ bases its major data
-structures on a |memory_word|, which contains either a (signed) integer,
-possibly scaled, or a (signed) |glue_ratio|, or a small number of
-fields that are one half or one quarter of the size used for storing
-integers.
-
-That is the description for \TeX. For $\Omega$, we are going to keep
-the same terminology, except that |quarterword| is going to refer to
-16~bits, and |halfword| is going to refer to 32~bits. So, in fact,
-a |memory_word| will take 64 bits, and, on a 64-bit machine, will run
-smaller than \TeX\ will!
-
-@z
-%---------------------------------------
-@x [8] m.110 l.2378 - Omega
-Since we are assuming 32-bit integers, a halfword must contain at least
-16 bits, and a quarterword must contain at least 8 bits.
-@^system dependencies@>
-But it doesn't hurt to have more bits; for example, with enough 36-bit
-words you might be able to have |mem_max| as large as 262142, which is
-eight times as much memory as anybody had during the first four years of
-\TeX's existence.
-
-N.B.: Valuable memory space will be dreadfully wasted unless \TeX\ is compiled
-by a \PASCAL\ that packs all of the |memory_word| variants into
-the space of a single integer. This means, for example, that |glue_ratio|
-words should be |short_real| instead of |real| on some computers. Some
-\PASCAL\ compilers will pack an integer whose subrange is `|0..255|' into
-an eight-bit field, but others insist on allocating space for an additional
-sign bit; on such systems you can get 256 values into a quarterword only
-if the subrange is `|-128..127|'.
-
-@y
-@z
-%---------------------------------------
-@x [8] m.110 l.2406 - Omega
-@d max_quarterword=255 {largest allowable value in a |quarterword|}
-@d min_halfword==0 {smallest allowable value in a |halfword|}
-@d max_halfword==65535 {largest allowable value in a |halfword|}
-@y
-@d max_quarterword=@"FFFF {largest allowable value in a |quarterword|}
-@d min_halfword=0 {smallest allowable value in a |halfword|}
-@d max_halfword=@"3FFFFFFF {largest allowable value in a |halfword|}
-@z
-%---------------------------------------
-@x [8] m.111 l.2416 - Omega
-if (min_quarterword>0)or(max_quarterword<127) then bad:=11;
-if (min_halfword>0)or(max_halfword<32767) then bad:=12;
-@y
-if (min_quarterword>0)or(max_quarterword<@"7FFF) then bad:=11;
-if (min_halfword>0)or(max_halfword<@"3FFFFFFF) then bad:=12;
-@z
-%---------------------------------------
-@x [8] m.111 l.2423 - Omega
-if font_max>font_base+256 then bad:=16;
-@y
-if font_max>font_base+@"10000 then bad:=16;
-@z
-%---------------------------------------
-@x [8] m.111 l.2426 - Omega
-if max_quarterword-min_quarterword<255 then bad:=19;
-@y
-if max_quarterword-min_quarterword<@"FFFF then bad:=19;
-@z
-%---------------------------------------
-@x [9] m.120 - Omega
-@ The function |get_avail| returns a pointer to a new one-word node whose
-|link| field is null. However, \TeX\ will halt if there is no more room left.
-@^inner loop@>
-
-If the available-space list is empty, i.e., if |avail=null|,
-we try first to increase |mem_end|. If that cannot be done, i.e., if
-|mem_end=mem_max|, we try to decrease |hi_mem_min|. If that cannot be
-done, i.e., if |hi_mem_min=lo_mem_max+1|, we have to quit.
-
-@p function get_avail : pointer; {single-word node allocation}
-var p:pointer; {the new node being got}
-begin p:=avail; {get top location in the |avail| stack}
-if p<>null then avail:=link(avail) {and pop it off}
-else if mem_end<mem_max then {or go into virgin territory}
- begin incr(mem_end); p:=mem_end;
- end
-else begin decr(hi_mem_min); p:=hi_mem_min;
- if hi_mem_min<=lo_mem_max then
- begin runaway; {if memory is exhausted, display possible runaway text}
- overflow("main memory size",mem_max+1-mem_min);
- {quit; all one-word nodes are busy}
-@:TeX capacity exceeded main memory size}{\quad main memory size@>
- end;
- end;
-link(p):=null; {provide an oft-desired initialization of the new node}
-@!stat incr(dyn_used);@+tats@;{maintain statistics}
-get_avail:=p;
-end;
-@y
-@ The function |get_avail| returns a pointer to a new one-word node whose
-|link| field is null. However, \TeX\ will halt if there is no more room left.
-@^inner loop@>
-
-If the available-space list is empty, i.e., if |avail=null|,
-we try first to increase |mem_end|. If that cannot be done, i.e., if
-|mem_end=mem_max|, we try to decrease |hi_mem_min|. If that cannot be
-done, i.e., if |hi_mem_min=lo_mem_max+1|, we have to quit.
-
-For Omega, we actually return a pointer to the first word,
-rather than the zeroth word.
-
-@p function get_avail : pointer; {single-word node allocation}
-var p:pointer; {the new node being got}
-begin p:=avail; {get top location in the |avail| stack}
-if p<>null then avail:=link(avail) {and pop it off}
-else if (mem_end+1)<mem_max then {or go into virgin territory}
- begin mem_end:=mem_end+2; p:=mem_end;
- link(p):=null; info(p):=null; incr(p);
- end
-else begin hi_mem_min:=hi_mem_min-2; p:=hi_mem_min;
- if hi_mem_min<=lo_mem_max then
- begin runaway; {if memory is exhausted, display possible runaway text}
- overflow("main memory size",mem_max+1-mem_min);
- {quit; all one-word nodes are busy}
-@:TeX capacity exceeded main memory size}{\quad main memory size@>
- end;
- end;
-link(p):=null; {provide an oft-desired initialization of the new node}
-@!stat incr(dyn_used);@+tats@;{maintain statistics}
-get_avail:=p;
-end;
-@z
-%---------------------------------------
-@x [9] m.121 - Omega
-@d free_avail(#)== {single-word node liberation}
- begin link(#):=avail; avail:=#;
- @!stat decr(dyn_used);@+tats@/
- end
-@y
-@d free_avail(#)== {single-word node liberation}
- begin link(#):=avail; avail:=#;
- link(#-1):=null; info(#-1):=null;
- @!stat decr(dyn_used);@+tats@/
- end
-@z
-%---------------------------------------
-@x [9] m.120 - Omega
-@d fast_get_avail(#)==@t@>@;@/
- begin #:=avail; {avoid |get_avail| if possible, to save time}
- if #=null then #:=get_avail
- else begin avail:=link(#); link(#):=null;
- @!stat incr(dyn_used);@+tats@/
- end;
- end
-@y
-@d fast_get_avail(#)==@t@>@;@/
- begin #:=avail; {avoid |get_avail| if possible, to save time}
- if #=null then #:=get_avail
- else begin avail:=link(#); link(#):=null;
- link(#-1):=null; info(#-1):=null;
- @!stat incr(dyn_used);@+tats@/
- end;
- end
-@z
-%---------------------------------------
-@x [10] m.125
-@ A call to |get_node| with argument |s| returns a pointer to a new node
-of size~|s|, which must be 2~or more. The |link| field of the first word
-of this new node is set to null. An overflow stop occurs if no suitable
-space exists.
-
-If |get_node| is called with $s=2^{30}$, it simply merges adjacent free
-areas and returns the value |max_halfword|.
-
-@p function get_node(@!s:integer):pointer; {variable-size node allocation}
-label found,exit,restart;
-var p:pointer; {the node currently under inspection}
-@!q:pointer; {the node physically after node |p|}
-@!r:integer; {the newly allocated node, or a candidate for this honor}
-@!t:integer; {temporary register}
-begin restart: p:=rover; {start at some free node in the ring}
-repeat @<Try to allocate within node |p| and its physical successors,
- and |goto found| if allocation was possible@>;
-@^inner loop@>
-p:=rlink(p); {move to the next node in the ring}
-until p=rover; {repeat until the whole list has been traversed}
-if s=@'10000000000 then
- begin get_node:=max_halfword; return;
- end;
-if lo_mem_max+2<hi_mem_min then if lo_mem_max+2<=mem_bot+max_halfword then
- @<Grow more variable-size memory and |goto restart|@>;
-overflow("main memory size",mem_max+1-mem_min);
- {sorry, nothing satisfactory is left}
-@:TeX capacity exceeded main memory size}{\quad main memory size@>
-found: link(r):=null; {this node is now nonempty}
-@!stat var_used:=var_used+s; {maintain usage statistics}
-tats@;@/
-get_node:=r;
-exit:end;
-@y
-@ A call to |get_node| with argument |s| returns a pointer to a new node
-of size~|s|, which must be 2~or more. The |link| field of the first word
-of this new node is set to null. An overflow stop occurs if no suitable
-space exists.
-
-If |get_node| is called with $s=2^{30}$, it simply merges adjacent free
-areas and returns the value |max_halfword|.
-
-@p function get_node(@!s:integer):pointer; {variable-size node allocation}
-label found,exit,restart;
-var p:pointer; {the node currently under inspection}
-@!q:pointer; {the node physically after node |p|}
-@!r:integer; {the newly allocated node, or a candidate for this honor}
-@!t:integer; {temporary register}
-begin
-if s<>@'10000000000 then incr(s);
-restart: p:=rover; {start at some free node in the ring}
-repeat @<Try to allocate within node |p| and its physical successors,
- and |goto found| if allocation was possible@>;
-@^inner loop@>
-p:=rlink(p); {move to the next node in the ring}
-until p=rover; {repeat until the whole list has been traversed}
-if s=@'10000000000 then
- begin get_node:=max_halfword; return;
- end;
-if lo_mem_max+2<hi_mem_min then if lo_mem_max+2<=mem_bot+max_halfword then
- @<Grow more variable-size memory and |goto restart|@>;
-overflow("main memory size",mem_max+1-mem_min);
- {sorry, nothing satisfactory is left}
-@:TeX capacity exceeded main memory size}{\quad main memory size@>
-found: incr(r); link(r):=null; {this node is now nonempty}
-@!stat var_used:=var_used+s; {maintain usage statistics}
-tats@;@/
-link(r-1):=null; info(r-1):=null;
-get_node:=r;
-exit:end;
-@z
-%---------------------------------------
-@x [10] m.130
-@p procedure free_node(@!p:pointer; @!s:halfword); {variable-size node
- liberation}
-var q:pointer; {|llink(rover)|}
-begin node_size(p):=s; link(p):=empty_flag;
-q:=llink(rover); llink(p):=q; rlink(p):=rover; {set both links}
-llink(rover):=p; rlink(q):=p; {insert |p| into the ring}
-@!stat var_used:=var_used-s;@+tats@;{maintain statistics}
-end;
-@y
-@p procedure free_node(@!p:pointer; @!s:halfword); {variable-size node
- liberation}
-var q:pointer; {|llink(rover)|}
-begin
-decr(p); incr(s);
-link(p):=null; info(p):=null;
-node_size(p):=s; link(p):=empty_flag;
-q:=llink(rover); llink(p):=q; rlink(p):=rover; {set both links}
-llink(rover):=p; rlink(q):=p; {insert |p| into the ring}
-@!stat var_used:=var_used-s;@+tats@;{maintain statistics}
-end;
-@z
-%---------------------------------------
-@x [10] m.134 l.2832 - Omega
-Note that the format of a |char_node| allows for up to 256 different
-fonts and up to 256 characters per font; but most implementations will
-probably limit the total number of fonts to fewer than 75 per job,
-and most fonts will stick to characters whose codes are
-less than 128 (since higher codes
-are more difficult to access on most keyboards).
-
-Extensions of \TeX\ intended for oriental languages will need even more
-than $256\times256$ possible characters, when we consider different sizes
-@^oriental characters@>@^Chinese characters@>@^Japanese characters@>
-and styles of type. It is suggested that Chinese and Japanese fonts be
-handled by representing such characters in two consecutive |char_node|
-entries: The first of these has |font=font_base|, and its |link| points
-to the second;
-the second identifies the font and the character dimensions.
-The saving feature about oriental characters is that most of them have
-the same box dimensions. The |character| field of the first |char_node|
-is a ``\\{charext}'' that distinguishes between graphic symbols whose
-dimensions are identical for typesetting purposes. (See the \MF\ manual.)
-Such an extension of \TeX\ would not be difficult; further details are
-left to the reader.
-@y
-Note that the format of a |char_node| allows for up to 65536 different
-fonts and up to 65536 characters per font.
-@z
-%---------------------------------------
-@x [15] m.208 l.4127 - Omega
-@d min_internal=68 {the smallest code that can follow \.{\\the}}
-@d char_given=68 {character code defined by \.{\\chardef}}
-@d math_given=69 {math code defined by \.{\\mathchardef}}
-@d last_item=70 {most recent item ( \.{\\lastpenalty},
- \.{\\lastkern}, \.{\\lastskip} )}
-@d max_non_prefixed_command=70 {largest command code that can't be \.{\\global}}
-@y
-@d min_internal=end_cs_name+1 {the smallest code that can follow \.{\\the}}
-@d char_given=min_internal {character code defined by \.{\\chardef}}
-@d math_given=char_given+1 {math code defined by \.{\\mathchardef}}
-@d omath_given=math_given+1 {math code defined by \.{\\omathchardef}}
-@d last_item=omath_given+1 {most recent item ( \.{\\lastpenalty},
- \.{\\lastkern}, \.{\\lastskip} )}
-@d max_non_prefixed_command=last_item
- {largest command code that can't be \.{\\global}}
-@z
-%---------------------------------------
-@x [15] m.209 l.4138 - Omega
-@d toks_register=71 {token list register ( \.{\\toks} )}
-@d assign_toks=72 {special token list ( \.{\\output}, \.{\\everypar}, etc.~)}
-@d assign_int=73 {user-defined integer ( \.{\\tolerance}, \.{\\day}, etc.~)}
-@d assign_dimen=74 {user-defined length ( \.{\\hsize}, etc.~)}
-@d assign_glue=75 {user-defined glue ( \.{\\baselineskip}, etc.~)}
-@d assign_mu_glue=76 {user-defined muglue ( \.{\\thinmuskip}, etc.~)}
-@d assign_font_dimen=77 {user-defined font dimension ( \.{\\fontdimen} )}
-@d assign_font_int=78 {user-defined font integer ( \.{\\hyphenchar},
- \.{\\skewchar} )}
-@d set_aux=79 {specify state info ( \.{\\spacefactor}, \.{\\prevdepth} )}
-@d set_prev_graf=80 {specify state info ( \.{\\prevgraf} )}
-@d set_page_dimen=81 {specify state info ( \.{\\pagegoal}, etc.~)}
-@d set_page_int=82 {specify state info ( \.{\\deadcycles},
- \.{\\insertpenalties} )}
-@d set_box_dimen=83 {change dimension of box ( \.{\\wd}, \.{\\ht}, \.{\\dp} )}
-@d set_shape=84 {specify fancy paragraph shape ( \.{\\parshape} )}
-@d def_code=85 {define a character code ( \.{\\catcode}, etc.~)}
-@d def_family=86 {declare math fonts ( \.{\\textfont}, etc.~)}
-@d set_font=87 {set current font ( font identifiers )}
-@d def_font=88 {define a font file ( \.{\\font} )}
-@d register=89 {internal register ( \.{\\count}, \.{\\dimen}, etc.~)}
-@d max_internal=89 {the largest code that can follow \.{\\the}}
-@d advance=90 {advance a register or parameter ( \.{\\advance} )}
-@d multiply=91 {multiply a register or parameter ( \.{\\multiply} )}
-@d divide=92 {divide a register or parameter ( \.{\\divide} )}
-@d prefix=93 {qualify a definition ( \.{\\global}, \.{\\long}, \.{\\outer} )}
-@d let=94 {assign a command code ( \.{\\let}, \.{\\futurelet} )}
-@d shorthand_def=95 {code definition ( \.{\\chardef}, \.{\\countdef}, etc.~)}
-@d read_to_cs=96 {read into a control sequence ( \.{\\read} )}
-@d def=97 {macro definition ( \.{\\def}, \.{\\gdef}, \.{\\xdef}, \.{\\edef} )}
-@d set_box=98 {set a box ( \.{\\setbox} )}
-@d hyph_data=99 {hyphenation data ( \.{\\hyphenation}, \.{\\patterns} )}
-@d set_interaction=100 {define level of interaction ( \.{\\batchmode}, etc.~)}
-@d max_command=100 {the largest command code seen at |big_switch|}
-@y
-@d toks_register=max_non_prefixed_command+1
- {token list register ( \.{\\toks} )}
-@d assign_toks=toks_register+1
- {special token list ( \.{\\output}, \.{\\everypar}, etc.~)}
-@d assign_int=assign_toks+1
- {user-defined integer ( \.{\\tolerance}, \.{\\day}, etc.~)}
-@d assign_dimen=assign_int+1
- {user-defined length ( \.{\\hsize}, etc.~)}
-@d assign_glue=assign_dimen+1
- {user-defined glue ( \.{\\baselineskip}, etc.~)}
-@d assign_mu_glue=assign_glue+1
- {user-defined muglue ( \.{\\thinmuskip}, etc.~)}
-@d assign_font_dimen=assign_mu_glue+1
- {user-defined font dimension ( \.{\\fontdimen} )}
-@d assign_font_int=assign_font_dimen+1
- {user-defined font integer ( \.{\\hyphenchar}, \.{\\skewchar} )}
-@d set_aux=assign_font_int+1
- {specify state info ( \.{\\spacefactor}, \.{\\prevdepth} )}
-@d set_prev_graf=set_aux+1
- {specify state info ( \.{\\prevgraf} )}
-@d set_page_dimen=set_prev_graf+1
- {specify state info ( \.{\\pagegoal}, etc.~)}
-@d set_page_int=set_page_dimen+1
- {specify state info ( \.{\\deadcycles},
- \.{\\insertpenalties} )}
-@d set_box_dimen=set_page_int+1
- {change dimension of box ( \.{\\wd}, \.{\\ht}, \.{\\dp} )}
-@d set_shape=set_box_dimen+1
- {specify fancy paragraph shape ( \.{\\parshape} )}
-@d def_code=set_shape+1
- {define a character code ( \.{\\catcode}, etc.~)}
-@d def_family=def_code+1
- {declare math fonts ( \.{\\textfont}, etc.~)}
-@d set_font=def_family+1
- {set current font ( font identifiers )}
-@d def_font=set_font+1
- {define a font file ( \.{\\font} )}
-@d register=def_font+1
- {internal register ( \.{\\count}, \.{\\dimen}, etc.~)}
-@d max_internal=register
- {the largest code that can follow \.{\\the}}
-@d advance=max_internal+1
- {advance a register or parameter ( \.{\\advance} )}
-@d multiply=advance+1
- {multiply a register or parameter ( \.{\\multiply} )}
-@d divide=multiply+1
- {divide a register or parameter ( \.{\\divide} )}
-@d prefix=divide+1
- {qualify a definition ( \.{\\global}, \.{\\long}, \.{\\outer} )}
-@d let=prefix+1
- {assign a command code ( \.{\\let}, \.{\\futurelet} )}
-@d shorthand_def=let+1
- {code definition ( \.{\\chardef}, \.{\\countdef}, etc.~)}
-@d read_to_cs=shorthand_def+1
- {read into a control sequence ( \.{\\read} )}
-@d def=read_to_cs+1
- {macro definition ( \.{\\def}, \.{\\gdef}, \.{\\xdef}, \.{\\edef} )}
-@d set_box=def+1
- {set a box ( \.{\\setbox} )}
-@d hyph_data=set_box+1
- {hyphenation data ( \.{\\hyphenation}, \.{\\patterns} )}
-@d set_interaction=hyph_data+1
- {define level of interaction ( \.{\\batchmode}, etc.~)}
-@d max_command=set_interaction
- {the largest command code seen at |big_switch|}
-@z
-%---------------------------------------
-@x [17] m.220 l.4486 - Omega
-@d eq_level(#)==eq_level_field(eqtb[#]) {level of definition}
-@d eq_type(#)==eq_type_field(eqtb[#]) {command code for equivalent}
-@d equiv(#)==equiv_field(eqtb[#]) {equivalent value}
-@y
-@d eq_level(#)==new_eq_level(#) {level of definition}
-@d eq_type(#)==new_eq_type(#) {command code for equivalent}
-@d equiv(#)==new_equiv(#) {equivalent value}
-@d equiv1(#)==new_equiv1(#) {equivalent value}
-@z
-%---------------------------------------
-@x [17] m.222 l.4496 - Omega
-In the first region we have 256 equivalents for ``active characters'' that
-act as control sequences, followed by 256 equivalents for single-character
-control sequences.
-@y
-In the first region we have |number_chars| equivalents for ``active characters''
-that act as control sequences, followed by |number_chars| equivalents for
-single-character control sequences.
-@z
-%---------------------------------------
-@x [17] m.222 l.4507 - Omega
-@d single_base=active_base+256 {equivalents of one-character control sequences}
-@d null_cs=single_base+256 {equivalent of \.{\\csname\\endcsname}}
-@y
-@d single_base=active_base+number_chars
- {equivalents of one-character control sequences}
-@d null_cs=single_base+number_chars {equivalent of \.{\\csname\\endcsname}}
-@z
-%---------------------------------------
-@x [17] m.222 l.4530 - Omega
-eq_type(undefined_control_sequence):=undefined_cs;
-equiv(undefined_control_sequence):=null;
-eq_level(undefined_control_sequence):=level_zero;
-for k:=active_base to undefined_control_sequence-1 do
- eqtb[k]:=eqtb[undefined_control_sequence];
-@y
-set_eq_type(undefined_control_sequence,undefined_cs);
-set_equiv(undefined_control_sequence,null);
-set_eq_level(undefined_control_sequence,level_zero);
-@z
-%---------------------------------------
-@x [17] m.224 l.4547 - Omega
-@ Region 3 of |eqtb| contains the 256 \.{\\skip} registers, as well as the
-glue parameters defined here. It is important that the ``muskip''
-parameters have larger numbers than the others.
-@y
-@ Region 3 of |eqtb| contains the |number_regs| \.{\\skip} registers,
-as well as the glue parameters defined here. It is important that the
-``muskip'' parameters have larger numbers than the others.
-@z
-%---------------------------------------
-@x [17] m.224 l.4572 - Omega
-@d skip_base=glue_base+glue_pars {table of 256 ``skip'' registers}
-@d mu_skip_base=skip_base+256 {table of 256 ``muskip'' registers}
-@d local_base=mu_skip_base+256 {beginning of region 4}
-@y
-@d skip_base=glue_base+glue_pars {table of |number_regs| ``skip'' registers}
-@d mu_skip_base=skip_base+number_regs
- {table of |number_regs| ``muskip'' registers}
-@d local_base=mu_skip_base+number_regs {beginning of region 4}
-@z
-%---------------------------------------
-@x [17] m.228 l.4685 - Omega
-equiv(glue_base):=zero_glue; eq_level(glue_base):=level_one;
-eq_type(glue_base):=glue_ref;
-for k:=glue_base+1 to local_base-1 do eqtb[k]:=eqtb[glue_base];
-@y
-set_equiv(glue_base,zero_glue); set_eq_level(glue_base,level_one);
-set_eq_type(glue_base,glue_ref);
-@z
-%---------------------------------------
-@x [17] m.230 l.4721 - Omega
-@d toks_base=local_base+10 {table of 256 token list registers}
-@d box_base=toks_base+256 {table of 256 box registers}
-@d cur_font_loc=box_base+256 {internal font number outside math mode}
-@d math_font_base=cur_font_loc+1 {table of 48 math font numbers}
-@d cat_code_base=math_font_base+48
- {table of 256 command codes (the ``catcodes'')}
-@d lc_code_base=cat_code_base+256 {table of 256 lowercase mappings}
-@d uc_code_base=lc_code_base+256 {table of 256 uppercase mappings}
-@d sf_code_base=uc_code_base+256 {table of 256 spacefactor mappings}
-@d math_code_base=sf_code_base+256 {table of 256 math mode mappings}
-@d int_base=math_code_base+256 {beginning of region 5}
-@y
-@d toks_base=local_base+10 {table of |number_regs| token list registers}
-@d box_base=toks_base+number_regs {table of |number_regs| box registers}
-@d cur_font_loc=box_base+number_regs {internal font number outside math mode}
-@d math_font_base=cur_font_loc+1
- {table of |number_math_fonts| math font numbers}
-@d cat_code_base=math_font_base+number_math_fonts
- {table of |number_chars| command codes (the ``catcodes'')}
-@d lc_code_base=cat_code_base+number_chars
- {table of |number_chars| lowercase mappings}
-@d uc_code_base=lc_code_base+number_chars
- {table of |number_chars| uppercase mappings}
-@d sf_code_base=uc_code_base+number_chars
- {table of |number_chars| spacefactor mappings}
-@d math_code_base=sf_code_base+number_chars
- {table of |number_chars| math mode mappings}
-@d int_base=math_code_base+number_chars {beginning of region 5}
-@z
-%---------------------------------------
-@x [17] m.232 l.4802 - Omega
-@d var_code==@'70000 {math code meaning ``use the current family''}
-
-@<Initialize table entries...@>=
-par_shape_ptr:=null; eq_type(par_shape_loc):=shape_ref;
-eq_level(par_shape_loc):=level_one;@/
-for k:=output_routine_loc to toks_base+255 do
- eqtb[k]:=eqtb[undefined_control_sequence];
-box(0):=null; eq_type(box_base):=box_ref; eq_level(box_base):=level_one;
-for k:=box_base+1 to box_base+255 do eqtb[k]:=eqtb[box_base];
-cur_font:=null_font; eq_type(cur_font_loc):=data;
-eq_level(cur_font_loc):=level_one;@/
-for k:=math_font_base to math_font_base+47 do eqtb[k]:=eqtb[cur_font_loc];
-equiv(cat_code_base):=0; eq_type(cat_code_base):=data;
-eq_level(cat_code_base):=level_one;@/
-for k:=cat_code_base+1 to int_base-1 do eqtb[k]:=eqtb[cat_code_base];
-for k:=0 to 255 do
- begin cat_code(k):=other_char; math_code(k):=hi(k); sf_code(k):=1000;
- end;
-cat_code(carriage_return):=car_ret; cat_code(" "):=spacer;
-cat_code("\"):=escape; cat_code("%"):=comment;
-cat_code(invalid_code):=invalid_char; cat_code(null_code):=ignore;
-for k:="0" to "9" do math_code(k):=hi(k+var_code);
-for k:="A" to "Z" do
- begin cat_code(k):=letter; cat_code(k+"a"-"A"):=letter;@/
- math_code(k):=hi(k+var_code+@"100);
- math_code(k+"a"-"A"):=hi(k+"a"-"A"+var_code+@"100);@/
- lc_code(k):=k+"a"-"A"; lc_code(k+"a"-"A"):=k+"a"-"A";@/
- uc_code(k):=k; uc_code(k+"a"-"A"):=k;@/
- sf_code(k):=999;
- end;
-@y
-@d var_code==@"7000000 {math code meaning ``use the current family''}
-
-@<Initialize table entries...@>=
-set_equiv(par_shape_loc,null); set_eq_type(par_shape_loc,shape_ref);
-set_eq_level(par_shape_loc,level_one);@/
-set_equiv(cat_code_base+carriage_return,car_ret);
-set_equiv(cat_code_base+" ",spacer);
-set_equiv(cat_code_base+"\",escape);
-set_equiv(cat_code_base+"%",comment);
-set_equiv(cat_code_base+invalid_code,invalid_char);
-set_equiv(cat_code_base+null_code,ignore);
-for k:="0" to "9" do set_equiv(math_code_base+k,hi(k+var_code));
-for k:="A" to "Z" do
- begin set_equiv(cat_code_base+k,letter);
- set_equiv(cat_code_base+k+"a"-"A",letter);@/
- set_equiv(math_code_base+k,hi(k+var_code+@"10000));
- set_equiv(math_code_base+k+"a"-"A",hi(k+"a"-"A"+var_code+@"10000));@/
- set_equiv(lc_code_base+k,k+"a"-"A");
- set_equiv(lc_code_base+k+"a"-"A",k+"a"-"A");@/
- set_equiv(uc_code_base+k,k);
- set_equiv(uc_code_base+k+"a"-"A",k);@/
- set_equiv(sf_code_base+k,999);
- end;
-@z
-%---------------------------------------
-@x [17] m.234 l.4857 - Omega
-@ @<Show the font identifier in |eqtb[n]|@>=
-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);
- end;
-print_char("=");@/
-print_esc(hash[font_id_base+equiv(n)].rh);
- {that's |font_id_text(equiv(n))|}
-@y
-@ @<Show the font identifier in |eqtb[n]|@>=
-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);
- end;
-print_char("=");@/
-print_esc(newtext(font_id_base+equiv(n)));
- {that's |font_id_text(equiv(n))|}
-@z
-%---------------------------------------
-@x [17] m.236 l.4955 - Omega
-@d count_base=int_base+int_pars {256 user \.{\\count} registers}
-@d del_code_base=count_base+256 {256 delimiter code mappings}
-@d dimen_base=del_code_base+256 {beginning of region 6}
-@#
-@d del_code(#)==eqtb[del_code_base+#].int
-@d count(#)==eqtb[count_base+#].int
-@d int_par(#)==eqtb[int_base+#].int {an integer parameter}
-@y
-@d count_base=int_base+int_pars {|number_regs| user \.{\\count} registers}
-@d del_code_base=count_base+number_regs {|number_chars| delimiter code mappings}
-@d dimen_base=del_code_base+number_chars {beginning of region 6}
-@#
-@d del_code0(#)==new_equiv(del_code_base+#)
-@d del_code1(#)==new_equiv1(del_code_base+#)
-@d count(#)==new_eqtb_int(count_base+#)
-@d int_par(#)==new_eqtb_int(int_base+#) {an integer parameter}
-@z
-%---------------------------------------
-@x [17] m.240 l.5213 - Omega
-for k:=int_base to del_code_base-1 do eqtb[k].int:=0;
-mag:=1000; tolerance:=10000; hang_after:=1; max_dead_cycles:=25;
-escape_char:="\"; end_line_char:=carriage_return;
-for k:=0 to 255 do del_code(k):=-1;
-del_code("."):=0; {this null delimiter is used in error recovery}
-@y
-set_new_eqtb_int(int_base+mag_code,1000);
-set_new_eqtb_int(int_base+tolerance_code,10000);
-set_new_eqtb_int(int_base+hang_after_code,1);
-set_new_eqtb_int(int_base+max_dead_cycles_code,25);
-set_new_eqtb_int(int_base+escape_char_code,"\");
-set_new_eqtb_int(int_base+end_line_char_code,carriage_return);
-set_equiv(del_code_base+".",0);
-set_equiv1(del_code_base+".",0);
- {this null delimiter is used in error recovery}
-
-@ @<Set newline character to -1@>=
-set_new_eqtb_int(int_base+new_line_char_code,-1)
-
-@ @<Set newline character to nl@>=
-set_new_eqtb_int(int_base+new_line_char_code,nl)
-
-@z
-%---------------------------------------
-@x [17] m.242 l.5240 - Omega
-print_char("="); print_int(eqtb[n].int);
-@y
-print_char("="); print_int(new_eqtb_int(n));
-@z
-%---------------------------------------
-@x [17] m.247 l.5273 - Omega
-here, and the 256 \.{\\dimen} registers.
-@y
-here, and the |number_regs| \.{\\dimen} registers.
-@z
-%---------------------------------------
-@x [17] m.247 l.5298 - Omega
- {table of 256 user-defined \.{\\dimen} registers}
-@d eqtb_size=scaled_base+255 {largest subscript of |eqtb|}
-@#
-@d dimen(#)==eqtb[scaled_base+#].sc
-@d dimen_par(#)==eqtb[dimen_base+#].sc {a scaled quantity}
-@y
- {table of |number_regs| user-defined \.{\\dimen} registers}
-@d eqtb_size=scaled_base+biggest_reg {largest subscript of |eqtb|}
-@#
-@d dimen(#)==new_eqtb_sc(scaled_base+(#))
-@d dimen_par(#)==new_eqtb_sc(dimen_base+(#)) {a scaled quantity}
-@z
-%---------------------------------------
-@x [17] m.250 l.5405 - Omega
-for k:=dimen_base to eqtb_size do eqtb[k].sc:=0;
-@y
-
-@ @p function init_eqtb_entry (p:pointer):memory_word;
-var mw:memory_word;
-begin
- { Regions 1 and 2 }
- if (p>=active_base) and
- (p<=undefined_control_sequence) then begin
- equiv_field(mw):=null;
- eq_type_field(mw):=undefined_cs;
- eq_level_field(mw):=level_zero;
- end
- { Region 3 }
- else if (p>=glue_base) and
- (p<=local_base+1) then begin
- equiv_field(mw):=zero_glue;
- eq_type_field(mw):=glue_ref;
- eq_level_field(mw):=level_one;
- end
- { Region 4 }
- else if (p>=par_shape_loc) and
- (p<=toks_base+biggest_reg) then begin
- equiv_field(mw):=null;
- eq_type_field(mw):=undefined_cs;
- eq_level_field(mw):=level_zero;
- end
- else if (p>=box_base) and
- (p<=box_base+biggest_reg) then begin
- equiv_field(mw):=null;
- eq_type_field(mw):=box_ref;
- eq_level_field(mw):=level_one;
- end
- else if (p>=cur_font_loc) and
- (p<=math_font_base+math_font_biggest) then begin
- equiv_field(mw):=null_font;
- eq_type_field(mw):=data;
- eq_level_field(mw):=level_one;
- end
- else if (p>=cat_code_base) and
- (p<=cat_code_base+biggest_char) then begin
- equiv_field(mw):=other_char;
- eq_type_field(mw):=data;
- eq_level_field(mw):=level_one;
- end
- else if (p>=lc_code_base) and
- (p<=uc_code_base+biggest_char) then begin
- equiv_field(mw):=0;
- eq_type_field(mw):=data;
- eq_level_field(mw):=level_one;
- end
- else if (p>=sf_code_base) and
- (p<=sf_code_base+biggest_char) then begin
- equiv_field(mw):=1000;
- eq_type_field(mw):=data;
- eq_level_field(mw):=level_one;
- end
- else if (p>=math_code_base) and
- (p<=math_code_base+biggest_char) then begin
- equiv_field(mw):=hi(p-math_code_base);
- eq_type_field(mw):=data;
- eq_level_field(mw):=level_one;
- end
- { Region 5 }
- else if (p>=int_base) and (p<=del_code_base-1) then begin
- setintzero(mw,0);
- setintone(mw,0);
- end
- else if (p>=del_code_base) and (p<=del_code_base+biggest_char) then begin
- setintzero(mw,-1);
- setintone(mw,-1);
- end
- { Region 6 }
- else if (p>=dimen_base) and (p<=eqtb_size) then begin
- setintzero(mw,0);
- setintone(mw,0);
- end
- else begin
- equiv_field(mw):=null;
- eq_type_field(mw):=undefined_cs;
- eq_level_field(mw):=level_zero;
- end;
- init_eqtb_entry:=mw;
-end;
-
-@z
-%---------------------------------------
-@x [17] m.251 l.5411 - Omega
-print_char("="); print_scaled(eqtb[n].sc); print("pt");
-@y
-print_char("="); print_scaled(new_eqtb_sc(n)); print("pt");
-@z
-%---------------------------------------
-@x [17] m.254 l.5435 - Omega
-@ The last two regions of |eqtb| have fullword values instead of the
-three fields |eq_level|, |eq_type|, and |equiv|. An |eq_type| is unnecessary,
-but \TeX\ needs to store the |eq_level| information in another array
-called |xeq_level|.
-
-@<Glob...@>=
-@!eqtb:array[active_base..eqtb_size] of memory_word;
-@!xeq_level:array[int_base..eqtb_size] of quarterword;
-@y
-@ The last two regions of |eqtb| have fullword values instead of the
-three fields |eq_level|, |eq_type|, and |equiv|. An |eq_type| is unnecessary,
-but \TeX\ needs to store the |eq_level| information in another array
-called |xeq_level|.
-
-@d xeq_level(#) == new_xeq_level(eqtb_size+eqtb_size+#)
-@d set_xeq_level(#) == set_new_eqtb_int(eqtb_size+eqtb_size+#)
-@z
-%---------------------------------------
-@x [17] m.255 l.5439 - Omega
-for k:=int_base to eqtb_size do xeq_level[k]:=level_one;
-@y
-@z
-%---------------------------------------
-@x [17] m.255 l.5446 - Omega
-for q:=active_base to box_base+255 do
-@y
-for q:=active_base to box_base+biggest_reg do
-@z
-%---------------------------------------
-@x [18] m.256 l.5477 - Omega
-@d next(#) == hash[#].lh {link for coalesced lists}
-@d text(#) == hash[#].rh {string number for control sequence name}
-@d hash_is_full == (hash_used=hash_base) {test if all positions are occupied}
-@d font_id_text(#) == text(font_id_base+#) {a frozen font identifier's name}
-
-@<Glob...@>=
-@!hash: array[hash_base..undefined_control_sequence-1] of two_halves;
- {the hash table}
-@y
-@d hash_is_full == (hash_used=hash_base) {test if all positions are occupied}
-@d font_id_text(#) == newtext(font_id_base+#) {a frozen font identifier's name}
-@d newtext(#) == new_hash_text(eqtb_size+#)
-@d newnext(#) == new_hash_next(eqtb_size+#)
-@d settext(#) == set_hash_text(eqtb_size+#)
-@d setnext(#) == set_hash_next(eqtb_size+#)
-
-@<Glob...@>=
-@z
-%---------------------------------------
-@x [18] m.257 l.5491 - Omega
-next(hash_base):=0; text(hash_base):=0;
-for k:=hash_base+1 to undefined_control_sequence-1 do hash[k]:=hash[hash_base];
-@y
-@z
-%---------------------------------------
-@x [18] m.258 l.5497 - Omega
-hash_used:=frozen_control_sequence; {nothing is used}
-cs_count:=0;
-eq_type(frozen_dont_expand):=dont_expand;
-text(frozen_dont_expand):="notexpanded:";
-@y
-hash_used:=frozen_control_sequence; {nothing is used}
-cs_count:=0;
-set_eq_type(frozen_dont_expand,dont_expand);
-settext(frozen_dont_expand,"notexpanded:");
-@z
-%---------------------------------------
-@x [18] m.259 l.5514 - Omega
-@!k:pointer; {index in |buffer| array}
-begin @<Compute the hash code |h|@>;
-p:=h+hash_base; {we start searching here; note that |0<=h<hash_prime|}
-loop@+begin if text(p)>0 then if length(text(p))=l then
- if str_eq_buf(text(p),j) then goto found;
- if next(p)=0 then
- begin if no_new_control_sequence then
- p:=undefined_control_sequence
- else @<Insert a new control sequence after |p|, then make
- |p| point to it@>;
- goto found;
- end;
- p:=next(p);
- end;
-found: id_lookup:=p;
-@y
-@!k:pointer; {index in |buffer| array}
-@!newstring:integer;
-begin @<Compute the hash code |h|@>;
-p:=h+hash_base; {we start searching here; note that |0<=h<hash_prime|}
-loop@+begin if newtext(p)>0 then if length(newtext(p))=l then
- if str_eq_buf(newtext(p),j) then goto found;
- if newnext(p)=0 then
- begin if no_new_control_sequence then
- p:=undefined_control_sequence
- else @<Insert a new control sequence after |p|, then make
- |p| point to it@>;
- goto found;
- end;
- p:=newnext(p);
- end;
-found: id_lookup:=p;
-@z
-%---------------------------------------
-@x [18] m.260 l.5532 - Omega
-begin if text(p)>0 then
- begin repeat if hash_is_full then overflow("hash size",hash_size);
-@:TeX capacity exceeded hash size}{\quad hash size@>
- decr(hash_used);
- until text(hash_used)=0; {search for an empty location in |hash|}
- next(p):=hash_used; p:=hash_used;
- end;
-str_room(l); d:=cur_length;
-while pool_ptr>str_start[str_ptr] do
- begin decr(pool_ptr); str_pool[pool_ptr+l]:=str_pool[pool_ptr];
- end; {move current string up to make room for another}
-for k:=j to j+l-1 do append_char(buffer[k]);
-text(p):=make_string; pool_ptr:=pool_ptr+d;
-@y
-begin if newtext(p)>0 then
- begin repeat if hash_is_full then overflow("hash size",hash_size);
-@:TeX capacity exceeded hash size}{\quad hash size@>
- decr(hash_used);
- until newtext(hash_used)=0; {search for an empty location in |hash|}
- setnext(p,hash_used); p:=hash_used;
- end;
-str_room(l); d:=cur_length;
-while pool_ptr>str_start[str_ptr] do
- begin decr(pool_ptr); str_pool[pool_ptr+l]:=str_pool[pool_ptr];
- end; {move current string up to make room for another}
-for k:=j to j+l-1 do append_char(buffer[k]);
-newstring:=make_string;
-settext(p,newstring); pool_ptr:=pool_ptr+d;
-@z
-%---------------------------------------
-@x [18] m.262 l.5584 - Omega
-else if (text(p)<0)or(text(p)>=str_ptr) then print_esc("NONEXISTENT.")
-@.NONEXISTENT@>
-else begin print_esc(text(p));
-@y
-else if (newtext(p)<0)or(newtext(p)>=str_ptr) then print_esc("NONEXISTENT.")
-@.NONEXISTENT@>
-else begin print_esc(newtext(p));
-@z
-%---------------------------------------
-@x [18] m.263 l.5601 - Omega
-else print_esc(text(p));
-@y
-else print_esc(newtext(p));
-@z
-%---------------------------------------
-@x [18] m.264 l.5610 - Omega
-@p @!init procedure primitive(@!s:str_number;@!c:quarterword;@!o:halfword);
-var k:pool_pointer; {index into |str_pool|}
-@!j:small_number; {index into |buffer|}
-@!l:small_number; {length of the string}
-begin if s<256 then cur_val:=s+single_base
-else begin k:=str_start[s]; l:=str_start[s+1]-k;
- {we will move |s| into the (empty) |buffer|}
- for j:=0 to l-1 do buffer[j]:=so(str_pool[k+j]);
- cur_val:=id_lookup(0,l); {|no_new_control_sequence| is |false|}
- 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;
-@y
-@p @!init procedure primitive(@!s:str_number;@!c:quarterword;@!o:halfword);
-var k:pool_pointer; {index into |str_pool|}
-@!j:small_number; {index into |buffer|}
-@!l:small_number; {length of the string}
-begin if s<=biggest_char then cur_val:=s+single_base
-else begin k:=str_start[s]; l:=str_start[s+1]-k;
- {we will move |s| into the (empty) |buffer|}
- for j:=0 to l-1 do buffer[j]:=so(str_pool[k+j]);
- cur_val:=id_lookup(0,l); {|no_new_control_sequence| is |false|}
- flush_string; settext(cur_val,s); {we don't want to have the string twice}
- end;
-set_eq_level(cur_val,level_one); set_eq_type(cur_val,c);
-set_equiv(cur_val,o);
-@z
-%---------------------------------------
-@x [18] m.265 l.5648 - Omega
-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 [18] m.265 l.5656 - Omega
-text(frozen_end_group):="endgroup"; eqtb[frozen_end_group]:=eqtb[cur_val];@/
-@y
-settext(frozen_end_group,"endgroup");
-set_new_eqtb(frozen_end_group,new_eqtb(cur_val));@/
-@z
-%---------------------------------------
-@x [18] m.265 l.5673 - Omega
-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 [18] m.265 l.5697 - Omega
-primitive("radical",radical,0);@/
-@!@:radical_}{\.{\\radical} primitive@>
-@y
-primitive("radical",radical,0);@/
-@!@:radical_}{\.{\\radical} primitive@>
-primitive("oradical",radical,1);@/
-@!@:radical_}{\.{\\oradical} primitive@>
-@z
-%---------------------------------------
-@x [18] m.265 l.5701 - Omega
-primitive("relax",relax,256); {cf.\ |scan_file_name|}
-@!@:relax_}{\.{\\relax} primitive@>
-text(frozen_relax):="relax"; eqtb[frozen_relax]:=eqtb[cur_val];@/
-@y
-primitive("relax",relax,too_big_char); {cf.\ |scan_file_name|}
-@!@:relax_}{\.{\\relax} primitive@>
-settext(frozen_relax,"relax");
-set_new_eqtb(frozen_relax,new_eqtb(cur_val));@/
-@z
-%---------------------------------------
-@x [19] m.276 l.5951 - Omega
-else begin save_stack[save_ptr]:=eqtb[p]; incr(save_ptr);
-@y
-else begin save_stack[save_ptr]:=new_eqtb(p); incr(save_ptr);
-@z
-%---------------------------------------
-@x [19] m.277 l.5967 - Omega
-begin if eq_level(p)=cur_level then eq_destroy(eqtb[p])
-else if cur_level>level_one then eq_save(p,eq_level(p));
-eq_level(p):=cur_level; eq_type(p):=t; equiv(p):=e;
-@y
-begin if eq_level(p)=cur_level then eq_destroy(new_eqtb(p))
-else if cur_level>level_one then eq_save(p,eq_level(p));
-set_eq_level(p,cur_level); set_eq_type(p,t); set_equiv(p,e);
-@z
-%---------------------------------------
-@x [19] m.278 l.5980 - Omega
-@p procedure eq_word_define(@!p:pointer;@!w:integer);
-begin if xeq_level[p]<>cur_level then
- begin eq_save(p,xeq_level[p]); xeq_level[p]:=cur_level;
- end;
-eqtb[p].int:=w;
-end;
-@y
-@p procedure eq_word_define(@!p:pointer;@!w:integer);
-begin if xeq_level(p)<>cur_level then
- begin eq_save(p,xeq_level(p)); set_xeq_level(p,cur_level);
- end;
-set_new_eqtb_int(p,w);
-end;
-
-procedure del_eq_word_define(@!p:pointer;@!w,wone:integer);
-begin if xeq_level(p)<>cur_level then
- begin eq_save(p,xeq_level(p)); set_xeq_level(p,cur_level);
- end;
-set_equiv(p,w); set_equiv1(p,wone);
-end;
-
-@z
-%---------------------------------------
-@x [19] m.279 l.5990 - Omega
-begin eq_destroy(eqtb[p]);
-eq_level(p):=level_one; eq_type(p):=t; equiv(p):=e;
-end;
-@#
-procedure geq_word_define(@!p:pointer;@!w:integer); {global |eq_word_define|}
-begin eqtb[p].int:=w; xeq_level[p]:=level_one;
-end;
-@y
-begin eq_destroy(new_eqtb(p));
-set_eq_level(p,level_one); set_eq_type(p,t); set_equiv(p,e);
-end;
-@#
-procedure geq_word_define(@!p:pointer;@!w:integer); {global |eq_word_define|}
-begin set_new_eqtb_int(p,w); set_xeq_level(p,level_one);
-end;
-
-procedure del_geq_word_define(@!p:pointer;@!w,wone:integer);
- {global |del_eq_word_define|}
-begin set_equiv(p,w); set_equiv1(p,wone); set_xeq_level(p,level_one);
-end;
-@z
-%---------------------------------------
-@x [19] m.282 l.6036 - Omega
- else save_stack[save_ptr]:=eqtb[undefined_control_sequence];
-@y
- else save_stack[save_ptr]:=new_eqtb(undefined_control_sequence);
-@z
-%---------------------------------------
-@x [19] m.283 l.6056 - Omega
- else begin eq_destroy(eqtb[p]); {destroy the current value}
- eqtb[p]:=save_stack[save_ptr]; {restore the saved value}
- @!stat if tracing_restores>0 then restore_trace(p,"restoring");@+tats@;@/
- end
-else if xeq_level[p]<>level_one then
- begin eqtb[p]:=save_stack[save_ptr]; xeq_level[p]:=l;
-@y
- else begin eq_destroy(new_eqtb(p)); {destroy the current value}
- set_new_eqtb(p,save_stack[save_ptr]); {restore the saved value}
- @!stat if tracing_restores>0 then restore_trace(p,"restoring");@+tats@;@/
- end
-else if xeq_level(p)<>level_one then
- begin set_new_eqtb(p,save_stack[save_ptr]); set_xeq_level(p,l);
-@z
-%---------------------------------------
-@x [20] m.289 l.6129 - Omega
-number $2^8m+c$; the command code is in the range |1<=m<=14|. (2)~A control
-sequence whose |eqtb| address is |p| is represented as the number
-|cs_token_flag+p|. Here |cs_token_flag=@t$2^{12}-1$@>| is larger than
-@y
-number $2^16m+c$; the command code is in the range |1<=m<=14|. (2)~A control
-sequence whose |eqtb| address is |p| is represented as the number
-|cs_token_flag+p|. Here |cs_token_flag=@t$2^{20}-1$@>| is larger than
-@z
-%---------------------------------------
-@x [20] m.289 l.6142 - Omega
-@d cs_token_flag==@'7777 {amount added to the |eqtb| location in a
- token that stands for a control sequence; is a multiple of~256, less~1}
-@d left_brace_token=@'0400 {$2^8\cdot|left_brace|$}
-@d left_brace_limit=@'1000 {$2^8\cdot(|left_brace|+1)$}
-@d right_brace_token=@'1000 {$2^8\cdot|right_brace|$}
-@d right_brace_limit=@'1400 {$2^8\cdot(|right_brace|+1)$}
-@d math_shift_token=@'1400 {$2^8\cdot|math_shift|$}
-@d tab_token=@'2000 {$2^8\cdot|tab_mark|$}
-@d out_param_token=@'2400 {$2^8\cdot|out_param|$}
-@d space_token=@'5040 {$2^8\cdot|spacer|+|" "|$}
-@d letter_token=@'5400 {$2^8\cdot|letter|$}
-@d other_token=@'6000 {$2^8\cdot|other_char|$}
-@d match_token=@'6400 {$2^8\cdot|match|$}
-@d end_match_token=@'7000 {$2^8\cdot|end_match|$}
-@y
-@d cs_token_flag=@"FFFFF {amount added to the |eqtb| location in a
- token that stands for a control sequence; is a multiple of~65536, less~1}
-@d max_char_val=@"10000 {to separate char and command code}
-@d left_brace_token=@"10000 {$2^16\cdot|left_brace|$}
-@d left_brace_limit=@"20000 {$2^16\cdot(|left_brace|+1)$}
-@d right_brace_token=@"20000 {$2^16\cdot|right_brace|$}
-@d right_brace_limit=@"30000 {$2^16\cdot(|right_brace|+1)$}
-@d math_shift_token=@"30000 {$2^16\cdot|math_shift|$}
-@d tab_token=@"40000 {$2^16\cdot|tab_mark|$}
-@d out_param_token=@"50000 {$2^16\cdot|out_param|$}
-@d space_token=@"A0020 {$2^16\cdot|spacer|+|" "|$}
-@d letter_token=@"B0000 {$2^16\cdot|letter|$}
-@d other_token=@"C0000 {$2^16\cdot|other_char|$}
-@d match_token=@"D0000 {$2^16\cdot|match|$}
-@d end_match_token=@"E0000 {$2^16\cdot|end_match|$}
-@z
-%---------------------------------------
-@x [20] m.293 l.6256 - Omega
-else begin m:=info(p) div @'400; c:=info(p) mod @'400;
-@y
-else begin m:=info(p) div max_char_val; c:=info(p) mod max_char_val;
-@z
-%---------------------------------------
-@x [21] m.298 l.6375 - Omega
-procedure print_cmd_chr(@!cmd:quarterword;@!chr_code:halfword);
-@y
-procedure print_cmd_chr(@!cmd:quarterword;@!chr_code:halfword);
-@z
-%---------------------------------------
-@x [24] m.334 l.7110 - Omega
-primitive("par",par_end,256); {cf.\ |scan_file_name|}
-@y
-primitive("par",par_end,too_big_char); {cf. |scan_file_name|}
-@z
-%---------------------------------------
-@x [24] m.357 l.7462 - Omega
- else begin cur_cmd:=t div @'400; cur_chr:=t mod @'400;
-@y
- else begin cur_cmd:=t div max_char_val; cur_chr:=t mod max_char_val;
-@z
-%---------------------------------------
-@x [24] m.358 l.7479 - Omega
-@d no_expand_flag=257 {this characterizes a special variant of |relax|}
-@y
-@d no_expand_flag=special_char {this characterizes a special variant of |relax|}
-@z
-%---------------------------------------
-@x [24] m.365 l.7606 - Omega
-if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr
-@y
-if cur_cs=0 then cur_tok:=(cur_cmd*max_char_val)+cur_chr
-@z
-%---------------------------------------
-@x [25] m.374 l.7728 - Omega
- begin eq_define(cur_cs,relax,256); {N.B.: The |save_stack| might change}
-@y
- begin eq_define(cur_cs,relax,too_big_char);
- {N.B.: The |save_stack| might change}
-@z
-%---------------------------------------
-@x [25] m.374 l.7750 - Omega
- buffer[j]:=info(p) mod @'400; incr(j); p:=link(p);
-@y
- buffer[j]:=info(p) mod max_char_val; incr(j); p:=link(p);
-@z
-%---------------------------------------
-@x [25] m.380 l.7812 - Omega
-done: if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr
-@y
-done: if cur_cs=0 then cur_tok:=(cur_cmd*max_char_val)+cur_chr
-@z
-%---------------------------------------
-@x [25] m.381 l.7824 - Omega
-if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr
-@y
-if cur_cs=0 then cur_tok:=(cur_cmd*max_char_val)+cur_chr
-@z
-%---------------------------------------
-@x [25] m.391 l.7985 - Omega
-if (info(r)>match_token+255)or(info(r)<match_token) then s:=null
-@y
-if (info(r)>=end_match_token)or(info(r)<match_token) then s:=null
-@z
-%---------------------------------------
-@x [26] m.407 l.8161 - Omega
-@ The |scan_left_brace| routine is called when a left brace is supposed to be
-the next non-blank token. (The term ``left brace'' means, more precisely,
-a character whose catcode is |left_brace|.) \TeX\ allows \.{\\relax} to
-appear before the |left_brace|.
-
-@p procedure scan_left_brace; {reads a mandatory |left_brace|}
-begin @<Get the next non-blank non-relax non-call token@>;
-if cur_cmd<>left_brace then
- begin print_err("Missing { inserted");
-@.Missing \{ inserted@>
- help4("A left brace was mandatory here, so I've put one in.")@/
- ("You might want to delete and/or insert some corrections")@/
- ("so that I will find a matching right brace soon.")@/
- ("(If you're confused by all this, try typing `I}' now.)");
- back_error; cur_tok:=left_brace_token+"{"; cur_cmd:=left_brace;
- cur_chr:="{"; incr(align_state);
- end;
-end;
-@y
-@ The |scan_left_brace| routine is called when a left brace is supposed to be
-the next non-blank token. (The term ``left brace'' means, more precisely,
-a character whose catcode is |left_brace|.) \TeX\ allows \.{\\relax} to
-appear before the |left_brace|.
-
-@p procedure scan_left_brace; {reads a mandatory |left_brace|}
-begin @<Get the next non-blank non-relax non-call token@>;
-if cur_cmd<>left_brace then
- begin print_err("Missing { inserted");
-@.Missing \{ inserted@>
- help4("A left brace was mandatory here, so I've put one in.")@/
- ("You might want to delete and/or insert some corrections")@/
- ("so that I will find a matching right brace soon.")@/
- ("(If you're confused by all this, try typing `I}' now.)");
- back_error; cur_tok:=left_brace_token+"{"; cur_cmd:=left_brace;
- cur_chr:="{"; incr(align_state);
- end;
-end;
-
-@ The |scan_right_brace| routine is called when a right brace is supposed to be
-the next non-blank token. (The term ``right brace'' means, more precisely,
-a character whose catcode is |right_brace|.) \TeX\ allows \.{\\relax} to
-appear before the |right_brace|.
-
-@p procedure scan_right_brace; {reads a mandatory |right_brace|}
-begin @<Get the next non-blank non-relax non-call token@>;
-if cur_cmd<>right_brace then
- begin print_err("Missing { inserted");
-@.Missing \{ inserted@>
- help4("A right brace was mandatory here, so I've put one in.")@/
- ("You might want to delete and/or insert some corrections")@/
- ("so that I will find a matching right brace soon.")@/
- ("(If you're confused by all this, try typing `I}' now.)");
- back_error; cur_tok:=right_brace_token+"}"; cur_cmd:=right_brace;
- cur_chr:="}"; incr(align_state);
- end;
-end;
-@z
-%---------------------------------------
-@x [26] m.410 l.8293 - Omega
-@!cur_val:integer; {value returned by numeric scanners}
-@y
-@!cur_val:integer; {value returned by numeric scanners}
-@z
-%---------------------------------------
-@x [26] m.413 l.8335 - Omega
-assign_int: scanned_result(eqtb[m].int)(int_val);
-assign_dimen: scanned_result(eqtb[m].sc)(dimen_val);
-@y
-assign_int: scanned_result(new_eqtb_int(m))(int_val);
-assign_dimen: scanned_result(new_eqtb_sc(m))(dimen_val);
-@z
-%---------------------------------------
-@x [26] m.413 l.8345 - Omega
-char_given,math_given: scanned_result(cur_chr)(int_val);
-@y
-char_given,math_given,omath_given: scanned_result(cur_chr)(int_val);
-@z
-%---------------------------------------
-@x [26] m.414 l.8356 - Omega
-@ @<Fetch a character code from some table@>=
-begin scan_char_num;
-if m=math_code_base then scanned_result(ho(math_code(cur_val)))(int_val)
-else if m<math_code_base then scanned_result(equiv(m+cur_val))(int_val)
-else scanned_result(eqtb[m+cur_val].int)(int_val);
-@y
-@ @<Fetch a character code from some table@>=
-begin scan_char_num;
-if m=math_code_base then begin
- cur_val1:=ho(math_code(cur_val));
- if ((cur_val1 div @"1000000)>8) or
- (((cur_val1 mod @"1000000) div @"10000)>15) or
- ((cur_val1 mod @"10000)>255) 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); cur_val1:=0;
- end;
- cur_val1:=((cur_val1 div @"1000000)*@"1000) +
- (((cur_val1 mod @"1000000) div @"10000)*@"100) +
- (cur_val1 mod @"10000);
- scanned_result(cur_val1)(int_val)
- end
-else if m=(math_code_base+256) then
- scanned_result(ho(math_code(cur_val)))(int_val)
-else if m<math_code_base then scanned_result(equiv(m+cur_val))(int_val)
-else scanned_result(new_eqtb_int(m+cur_val))(int_val);
-@z
-%---------------------------------------
-@x [26] m.433 l.8593 - Omega
-procedure scan_eight_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>255) then
- begin print_err("Bad register code");
-@.Bad register code@>
- help2("A register number must be between 0 and 255.")@/
-@y
-procedure scan_eight_bit_int;
-begin scan_int;
-if (cur_val<0)or(cur_val>biggest_reg) then
- begin print_err("Bad register code");
-@.Bad register code@>
- help2("A register number must be between 0 and 65535.")@/
-@z
-%---------------------------------------
-@x [26] m.434 l.8604 - Omega
-procedure scan_char_num;
-begin scan_int;
-if (cur_val<0)or(cur_val>255) then
- begin print_err("Bad character code");
-@.Bad character code@>
- help2("A character number must be between 0 and 255.")@/
-@y
-procedure scan_char_num;
-begin scan_int;
-if (cur_val<0)or(cur_val>biggest_char) then
- begin print_err("Bad character code");
-@.Bad character code@>
- help2("A character number must be between 0 and 65535.")@/
-@z
-%---------------------------------------
-@x [26] m.435 l.8618 - Omega
-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 number@>
- 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 [26] m.436 l.8629 - Omega
-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_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_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) * @"1000000) +
- (((cur_val mod @"1000) div @"100) * @"10000) +
- (cur_val mod @"100);
-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;
-end;
-@z
-%---------------------------------------
-@x [26] m.437 l.8640 - Omega
-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) div @"100) * @"10000) +
- (cur_val mod @"100);
-cur_val := cur_val div @"1000;
-cur_val := ((cur_val div @"1000) * @"1000000) +
- (((cur_val mod @"1000) div @"100) * @"10000) +
- (cur_val mod @"100);
-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;
-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;
-cur_val1:=cur_val;
-cur_val:=iiii;
-end;
-
-procedure scan_string_argument;
-var s:integer;
-begin
-scan_left_brace;
-get_x_token;
-while (cur_cmd<>right_brace) do
- begin
- if (cur_cmd=letter) or (cur_cmd=other_char) then begin
- str_room(1); append_char(cur_chr);
- end
- else if (cur_cmd=spacer) then begin
- str_room(1); append_char(" ");
- end
- else begin
- print_nl("Bad token appearing in string argument");
- end;
- get_x_token;
- end;
-s:=make_string;
-if str_eq_str("mi",s) then s:="mi";
-if str_eq_str("mo",s) then s:="mo";
-if str_eq_str("mn",s) then s:="mn";
-cur_val:=s;
-end;
-@z
-%---------------------------------------
-@x [26] m.442 l.8720 - Omega
-if cur_val>255 then
- begin print_err("Improper alphabetic constant");
-@y
-if cur_val>biggest_char then
- begin print_err("Improper alphabetic constant");
-@z
-%---------------------------------------
-@x [27] m.468 l.9200 - Omega
-@d job_name_code=5 {command code for \.{\\jobname}}
-@y
-@d omega_code=5 {command code for \.{\\OmegaVersion}}
-@d job_name_code=6 {command code for \.{\\jobname}}
-@z
-%---------------------------------------
-@x [27] m.468 l.9200 - Omega
-primitive("jobname",convert,job_name_code);@/
-@!@:job_name_}{\.{\\jobname} primitive@>
-@y
-primitive("OmegaVersion",convert,omega_code);@/
-@!@:omega_version_}{\.{\\OmegaVersion} primitive@>
-primitive("jobname",convert,job_name_code);@/
-@!@:job_name_}{\.{\\jobname} primitive@>
-@z
-%---------------------------------------
-@x [27] m.469 l.9223 - Omega
- othercases print_esc("jobname")
-@y
- omega_code: print_esc("OmegaVersion");
- othercases print_esc("jobname")
-@z
-%---------------------------------------
-@x [27] m.471 l.9248 - Omega
-job_name_code: if job_name=0 then open_log_file;
-@y
-omega_code:;
-job_name_code: if job_name=0 then open_log_file;
-@z
-%---------------------------------------
-@x [27] m.472 l.9258 - Omega
-job_name_code: print(job_name);
-@y
-omega_code: print("1.23.2.3");
-job_name_code: print(job_name);
-@z
-%---------------------------------------
-@x [28] m.491 l.9610 - Omega
-text(frozen_fi):="fi"; eqtb[frozen_fi]:=eqtb[cur_val];
-@y
-settext(frozen_fi,"fi"); set_new_eqtb(frozen_fi,new_eqtb(cur_val));
-@z
-%---------------------------------------
-@x [28] m.506 l.9802 - Omega
-if (cur_cmd>active_char)or(cur_chr>255) then {not a character}
- begin m:=relax; n:=256;
-@y
-if (cur_cmd>active_char)or(cur_chr>biggest_char) then {not a character}
- begin m:=relax; n:=too_big_char;
-@z
-%---------------------------------------
-@x [28] m.506 l.9808 - Omega
-if (cur_cmd>active_char)or(cur_chr>255) then
- begin cur_cmd:=relax; cur_chr:=256;
-@y
-if (cur_cmd>active_char)or(cur_chr>biggest_char) then
- begin cur_cmd:=relax; cur_chr:=too_big_char;
-@z
-%---------------------------------------
-@x [29] m.526 l.10178 - Omega
-loop@+begin if (cur_cmd>other_char)or(cur_chr>255) then {not a character}
-@y
-loop@+begin if (cur_cmd>other_char)or(cur_chr>biggest_char) then
- {not a character}
-@z
-%---------------------------------------
-@x [37] m.780 l.15354 - Omega
-@d span_code=256 {distinct from any character}
-@d cr_code=257 {distinct from |span_code| and from any character}
-@y
-@d span_code=special_char {distinct from any character}
-@d cr_code=span_code+1 {distinct from |span_code| and from any character}
-@z
-%---------------------------------------
-@x [37] m.780 l.15364 - Omega
-text(frozen_cr):="cr"; eqtb[frozen_cr]:=eqtb[cur_val];@/
-primitive("crcr",car_ret,cr_cr_code);
-@!@:cr_cr_}{\.{\\crcr} primitive@>
-text(frozen_end_template):="endtemplate"; text(frozen_endv):="endtemplate";
-eq_type(frozen_endv):=endv; equiv(frozen_endv):=null_list;
-eq_level(frozen_endv):=level_one;@/
-eqtb[frozen_end_template]:=eqtb[frozen_endv];
-eq_type(frozen_end_template):=end_template;
-@y
-settext(frozen_cr,"cr");
-set_new_eqtb(frozen_cr,new_eqtb(cur_val));@/
-primitive("crcr",car_ret,cr_cr_code);
-@!@:cr_cr_}{\.{\\crcr} primitive@>
-settext(frozen_end_template,"endtemplate"); settext(frozen_endv,"endtemplate");
-set_eq_type(frozen_endv,endv); set_equiv(frozen_endv,null_list);
-set_eq_level(frozen_endv,level_one);@/
-set_new_eqtb(frozen_end_template,new_eqtb(frozen_endv));
-set_eq_type(frozen_end_template,end_template);
-@z
-%---------------------------------------
-@x [37] m.798 l.15651 - Omega
-if n>max_quarterword then confusion("256 spans"); {this can happen, but won't}
-@^system dependencies@>
-@:this can't happen 256 spans}{\quad 256 spans@>
-@y
-if n>max_quarterword then confusion("too many spans");
- {this can happen, but won't}
-@^system dependencies@>
-@:this can't happen too many spans}{\quad too many spans@>
-@z
-%---------------------------------------
-@x [37] m.804 l.15794 - Omega
- overfull_rule:=0; {prevent rule from being packaged}
- p:=hpack(preamble,saved(1),saved(0)); overfull_rule:=rule_save;
-@y
- set_new_eqtb_sc(dimen_base+overfull_rule_code,0);
- {prevent rule from being packaged}
- p:=hpack(preamble,saved(1),saved(0));
- set_new_eqtb_sc(dimen_base+overfull_rule_code,rule_save);
-@z
-%---------------------------------------
-@x [37] m.827 l.16255 - Omega
-check_shrinkage(left_skip); check_shrinkage(right_skip);@/
-@y
-if (shrink_order(left_skip)<>normal)and(shrink(left_skip)<>0) then
- begin set_equiv(glue_base+left_skip_code,finite_shrink(left_skip));
- end;
-if (shrink_order(right_skip)<>normal)and(shrink(right_skip)<>0) then
- begin set_equiv(glue_base+right_skip_code,finite_shrink(right_skip));
- end;
-@z
-%---------------------------------------
-@x [40] m.891 l.17434 - Omega
-$c_1$ will be treated as nonletters. The |hyphen_char| for that font
-must be between 0 and 255, otherwise hyphenation will not be attempted.
-@y
-$c_1$ will be treated as nonletters. The |hyphen_char| for that font must
-be between 0 and |biggest_char|, otherwise hyphenation will not be attempted.
-@z
-%---------------------------------------
-@x [40] m.892 l.17469 - Omega
-@!hc:array[0..65] of 0..256; {word to be hyphenated}
-@!hn:small_number; {the number of positions occupied in |hc|}
-@!ha,@!hb:pointer; {nodes |ha..hb| should be replaced by the hyphenated result}
-@!hf:internal_font_number; {font number of the letters in |hc|}
-@!hu:array[0..63] of 0..256; {like |hc|, before conversion to lowercase}
-@!hyf_char:integer; {hyphen character of the relevant font}
-@!cur_lang,@!init_cur_lang:ASCII_code; {current hyphenation table of interest}
-@!l_hyf,@!r_hyf,@!init_l_hyf,@!init_r_hyf:integer; {limits on fragment sizes}
-@!hyf_bchar:halfword; {boundary character after $c_n$}
-@y
-@!hc:array[0..65] of 0..too_big_char; {word to be hyphenated}
-@!hn:small_number; {the number of positions occupied in |hc|}
-@!ha,@!hb:pointer; {nodes |ha..hb| should be replaced by the hyphenated result}
-@!hf:internal_font_number; {font number of the letters in |hc|}
-@!hu:array[0..63] of 0..too_big_char;
- {like |hc|, before conversion to lowercase}
-@!hyf_char:integer; {hyphen character of the relevant font}
-@!cur_lang,@!init_cur_lang:0..biggest_lang;
- {current hyphenation table of interest}
-@!l_hyf,@!r_hyf,@!init_l_hyf,@!init_r_hyf:integer; {limits on fragment sizes}
-@!hyf_bchar:halfword; {boundary character after $c_n$}
-@!max_hyph_char:integer;
-
-@ @<Set initial values of key variables@>=
-max_hyph_char:=too_big_lang;
-
-@z
-%---------------------------------------
-@x [40] m.893 l.17483 - Omega
-@!c:0..255; {character being considered for hyphenation}
-@y
-@!c:ASCII_code; {character being considered for hyphenation}
-@z
-%---------------------------------------
-@x [40] m.896 l.17534 - Omega
-if hyf_char>255 then goto done1;
-@y
-if hyf_char>biggest_char then goto done1;
-@z
-%---------------------------------------
-@x [40] m.897 l.17546 - Omega
- if lc_code(c)=0 then goto done3;
-@y
- if lc_code(c)=0 then goto done3;
- if lc_code(c)>max_hyph_char then goto done3;
-@z
-%---------------------------------------
-@x [40] m.898 l.17572 - Omega
- if lc_code(c)=0 then goto done3;
-@y
- if lc_code(c)=0 then goto done3;
- if lc_code(c)>max_hyph_char then goto done3;
-@z
-%---------------------------------------
-@x [41] m.903 l.17648 - Omega
- begin hu[0]:=256; init_lig:=false;
-@y
- begin hu[0]:=max_hyph_char; init_lig:=false;
-@z
-%---------------------------------------
-@x [41] m.903 l.17660 - Omega
-found2: s:=ha; j:=0; hu[0]:=256; init_lig:=false; init_list:=null;
-@y
-found2: s:=ha; j:=0; hu[0]:=max_hyph_char; init_lig:=false; init_list:=null;
-@z
-%---------------------------------------
-@x [41] m.905 l.17707 - Omega
-getting the input $x_j\ldots x_n$ from the |hu| array. If $x_j=256$,
-we consider $x_j$ to be an implicit left boundary character; in this
-case |j| must be strictly less than~|n|. There is a
-parameter |bchar|, which is either 256 or an implicit right boundary character
-@y
-getting the input $x_j\ldots x_n$ from the |hu| array. If $x_j=|max_hyph_char|$,
-we consider $x_j$ to be an implicit left boundary character; in this
-case |j| must be strictly less than~|n|. There is a
-parameter |bchar|, which is either |max_hyph_char|
-or an implicit right boundary character
-@z
-%---------------------------------------
-@x [41] m.916 l.17980 - Omega
- begin decr(l); c:=hu[l]; c_loc:=l; hu[l]:=256;
-@y
- begin decr(l); c:=hu[l]; c_loc:=l; hu[l]:=max_hyph_char;
-@z
-%---------------------------------------
-@x [42] m.921 l.18079 - Omega
-@!op_start:array[ASCII_code] of 0..trie_op_size; {offset for current language}
-@y
-@!op_start:array[0..biggest_lang] of 0..trie_op_size;
- {offset for current language}
-@z
-%---------------------------------------
-@x [42] m.923 l.18086 - Omega
-hyphenation algorithm is quite short. In the following code we set |hc[hn+2]|
-to the impossible value 256, in order to guarantee that |hc[hn+3]| will
-@y
-hyphenation algorithm is quite short. In the following code we set |hc[hn+2]| to
-the impossible value |max_hyph_char|, in order to guarantee that |hc[hn+3]| will
-@z
-%---------------------------------------
-@x [42] m.923 l.18095 - Omega
-hc[0]:=0; hc[hn+1]:=0; hc[hn+2]:=256; {insert delimiters}
-@y
-hc[0]:=0; hc[hn+1]:=0; hc[hn+2]:=max_hyph_char; {insert delimiters}
-@z
-%---------------------------------------
-@x [42] m.934 l.18206 - Omega
-@d set_cur_lang==if language<=0 then cur_lang:=0
- else if language>255 then cur_lang:=0
-@y
-@d set_cur_lang==if language<=0 then cur_lang:=0
- else if language>biggest_lang then cur_lang:=0
-@z
-%---------------------------------------
-@x [43] m.943 l.18348 - Omega
-@!trie_used:array[ASCII_code] of quarterword;
- {largest opcode used so far for this language}
-@!trie_op_lang:array[1..trie_op_size] of ASCII_code;
-@y
-@!trie_used:array[0..biggest_lang] of quarterword;
- {largest opcode used so far for this language}
-@!trie_op_lang:array[1..trie_op_size] of 0..biggest_lang;
-@z
-%---------------------------------------
-@x [43] m.945 l.18400 - Omega
-for j:=1 to 255 do op_start[j]:=op_start[j-1]+qo(trie_used[j-1]);
-@y
-for j:=1 to biggest_lang do op_start[j]:=op_start[j-1]+qo(trie_used[j-1]);
-@z
-%---------------------------------------
-@x [43] m.946 l.18416 - Omega
-for k:=0 to 255 do trie_used[k]:=min_quarterword;
-@y
-for k:=0 to biggest_lang do trie_used[k]:=min_quarterword;
-@z
-%---------------------------------------
-@x [43] m.947 l.18438 - Omega
-@!init @!trie_c:packed array[trie_pointer] of packed_ASCII_code;
-@y
-@!init @!trie_c:packed array[trie_pointer] of ASCII_code;
-@z
-%---------------------------------------
-@x [43] m.952 l.18551 - Omega
-for p:=0 to 255 do trie_min[p]:=p+1;
-@y
-for p:=0 to biggest_char do trie_min[p]:=p+1;
-@z
-%---------------------------------------
-@x [43] m.953 l.18569 - Omega
-@!ll:1..256; {upper limit of |trie_min| updating}
-@y
-@!ll:1..too_big_char; {upper limit of |trie_min| updating}
-@z
-%---------------------------------------
-@x [43] m.953 l.18573 - Omega
- @<Ensure that |trie_max>=h+256|@>;
-@y
- @<Ensure that |trie_max>=h+max_hyph_char|@>;
-@z
-%---------------------------------------
-@x [43] m.954 l.18582 - Omega
-@ By making sure that |trie_max| is at least |h+256|, we can be sure that
-|trie_max>z|, since |h=z-c|. It follows that location |trie_max| will
-never be occupied in |trie|, and we will have |trie_max>=trie_link(z)|.
-
-@<Ensure that |trie_max>=h+256|@>=
-if trie_max<h+256 then
- begin if trie_size<=h+256 then overflow("pattern memory",trie_size);
-@y
-@ By making sure that |trie_max| is at least |h+max_hyph_char|,
-we can be sure that
-|trie_max>z|, since |h=z-c|. It follows that location |trie_max| will
-never be occupied in |trie|, and we will have |trie_max>=trie_link(z)|.
-
-@<Ensure that |trie_max>=h+max_hyph_char|@>=
-if trie_max<h+max_hyph_char then
- begin if trie_size<=h+max_hyph_char then overflow("pattern memory",trie_size);
-@z
-%---------------------------------------
-@x [43] m.954 l.18592 - Omega
- until trie_max=h+256;
-@y
- until trie_max=h+max_hyph_char;
-@z
-%---------------------------------------
-@x [43] m.956 l.18607 - Omega
-if l<256 then
- begin if z<256 then ll:=z @+else ll:=256;
-@y
-if l<max_hyph_char then
- begin if z<max_hyph_char then ll:=z @+else ll:=max_hyph_char;
-@z
-%---------------------------------------
-@x [43] m.958 l.18637 - Omega
-if trie_root=0 then {no patterns were given}
- begin for r:=0 to 256 do trie[r]:=h;
- trie_max:=256;
-@y
-if trie_root=0 then {no patterns were given}
- begin for r:=0 to max_hyph_char do trie[r]:=h;
- trie_max:=max_hyph_char;
-@z
-%---------------------------------------
-@x [43] m.962 l.18714 - Omega
-@ @<Append a new letter or a hyphen level@>=
-if digit_sensed or(cur_chr<"0")or(cur_chr>"9") then
- begin if cur_chr="." then cur_chr:=0 {edge-of-word delimiter}
- else begin cur_chr:=lc_code(cur_chr);
- if cur_chr=0 then
- begin print_err("Nonletter");
-@.Nonletter@>
- help1("(See Appendix H.)"); error;
- end;
- end;
-@y
-@ @<Append a new letter or a hyphen level@>=
-if digit_sensed or(cur_chr<"0")or(cur_chr>"9") then
- begin if cur_chr="." then cur_chr:=0 {edge-of-word delimiter}
- else begin cur_chr:=lc_code(cur_chr);
- if cur_chr=0 then
- begin print_err("Nonletter");
-@.Nonletter@>
- help1("(See Appendix H.)"); error;
- end;
- end;
- if cur_chr>max_hyph_char then max_hyph_char:=cur_chr;
-@z
-%---------------------------------------
-@x [43] m.966 l. - Omega
-procedure init_trie;
-var @!p:trie_pointer; {pointer for initialization}
-@!j,@!k,@!t:integer; {all-purpose registers for initialization}
-@!r,@!s:trie_pointer; {used to clean up the packed |trie|}
-@!h:two_halves; {template used to zero out |trie|'s holes}
-begin @<Get ready to compress the trie@>;
-@y
-procedure init_trie;
-var @!p:trie_pointer; {pointer for initialization}
-@!j,@!k,@!t:integer; {all-purpose registers for initialization}
-@!r,@!s:trie_pointer; {used to clean up the packed |trie|}
-@!h:two_halves; {template used to zero out |trie|'s holes}
-begin
-incr(max_hyph_char);
-@<Get ready to compress the trie@>;
-@z
-%---------------------------------------
-@x [44] m.977 l.19008 - Omega
-if q=null then box(n):=null {the |eq_level| of the box stays the same}
-else box(n):=vpack(q,natural);
-@y
-if q=null then set_equiv(box_base+n,null)
- {the |eq_level| of the box stays the same}
-else set_equiv(box_base+n,vpack(q,natural));
-@z
-%---------------------------------------
-@x [45] m.992 l.24928 - Omega
-flush_node_list(box(n)); box(n):=null;
-@y
-flush_node_list(box(n)); set_equiv(box_base+n,null);
-@z
-%---------------------------------------
-@x [45] m.994 l.19364 - Omega
-@!n:min_quarterword..255; {insertion box number}
-@y
-@!n:min_quarterword..biggest_reg; {insertion box number}
-@z
-%---------------------------------------
-@x [45] m.1012 l.19655 - Omega
-@!n:min_quarterword..255; {insertion box number}
-@y
-@!n:min_quarterword..biggest_reg; {insertion box number}
-@z
-%---------------------------------------
-@x [45] m.1014 l.19710 - Omega
-split_top_skip:=save_split_top_skip;
-@y
-set_equiv(glue_base+split_top_skip_code,save_split_top_skip);
-@z
-%---------------------------------------
-@x [45] m.1017 l.19753 - Omega
-save_vbadness:=vbadness; vbadness:=inf_bad;
-save_vfuzz:=vfuzz; vfuzz:=max_dimen; {inhibit error messages}
-box(255):=vpackage(link(page_head),best_size,exactly,page_max_depth);
-vbadness:=save_vbadness; vfuzz:=save_vfuzz;
-@y
-save_vbadness:=vbadness;
-set_new_eqtb_int(int_base+vbadness_code,inf_bad);
-save_vfuzz:=vfuzz;
-set_new_eqtb_sc(dimen_base+vfuzz_code,max_dimen);
- {inhibit error messages}
-set_equiv(box_base+255,
- vpackage(link(page_head),best_size,exactly,page_max_depth));
-set_new_eqtb_int(int_base+vbadness_code,save_vbadness);
-set_new_eqtb_sc(dimen_base+vfuzz_code,save_vfuzz);
-@z
-%---------------------------------------
-@x [45] m.1018 l.19774 - Omega
- if box(n)=null then box(n):=new_null_box;
-@y
- if box(n)=null then set_equiv(box_base+n,new_null_box);
-@z
-%---------------------------------------
-@x [45] m.1021 l.19817 - Omega
- split_top_skip:=split_top_ptr(p);
- ins_ptr(p):=prune_page_top(broken_ptr(r));
- if ins_ptr(p)<>null then
- begin temp_ptr:=vpack(ins_ptr(p),natural);
- height(p):=height(temp_ptr)+depth(temp_ptr);
- free_node(temp_ptr,box_node_size); wait:=true;
- end;
- end;
-best_ins_ptr(r):=null;
-n:=qo(subtype(r));
-temp_ptr:=list_ptr(box(n));
-free_node(box(n),box_node_size);
-box(n):=vpack(temp_ptr,natural);
-@y
- set_equiv(glue_base+split_top_skip_code,split_top_ptr(p));
- ins_ptr(p):=prune_page_top(broken_ptr(r));
- if ins_ptr(p)<>null then
- begin temp_ptr:=vpack(ins_ptr(p),natural);
- height(p):=height(temp_ptr)+depth(temp_ptr);
- free_node(temp_ptr,box_node_size); wait:=true;
- end;
- end;
-best_ins_ptr(r):=null;
-n:=qo(subtype(r));
-temp_ptr:=list_ptr(box(n));
-free_node(box(n),box_node_size);
-set_equiv(box_base+n,vpack(temp_ptr,natural));
-@z
-%---------------------------------------
-@x [45] m.1023 l.19854 - Omega
-ship_out(box(255)); box(255):=null;
-@y
-ship_out(box(255)); set_equiv(box_base+255,null);
-@z
-%---------------------------------------
-@x [46] m.1046 l.20339 - Omega
-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 [47] m.1071 l.20718 - Omega
-|box_flag+255| represent `\.{\\setbox0}' through `\.{\\setbox255}';
-codes |box_flag+256| through |box_flag+511| represent `\.{\\global\\setbox0}'
-through `\.{\\global\\setbox255}';
-code |box_flag+512| represents `\.{\\shipout}'; and codes |box_flag+513|
-through |box_flag+515| represent `\.{\\leaders}', `\.{\\cleaders}',
-@y
-|box_flag+biggest_reg| represent `\.{\\setbox0}' through
-`\.{\\setbox}|biggest_reg|'; codes |box_flag+biggest_reg+1| through
-|box_flag+2*biggest_reg| represent `\.{\\global\\setbox0}'
-through `\.{\\global\\setbox}|biggest_reg|'; code |box_flag+2*number_regs|
-represents `\.{\\shipout}'; and codes |box_flag+2*number_regs+1|
-through |box_flag+2*number_regs+3| represent `\.{\\leaders}', `\.{\\cleaders}',
-@z
-%---------------------------------------
-@x [47] m.1071 l.20732 - Omega
-@d ship_out_flag==box_flag+512 {context code for `\.{\\shipout}'}
-@d leader_flag==box_flag+513 {context code for `\.{\\leaders}'}
-@y
-@d ship_out_flag==box_flag+(number_regs+number_regs)
- {context code for `\.{\\shipout}'}
-@d leader_flag==ship_out_flag+1 {context code for `\.{\\leaders}'}
-@z
-%---------------------------------------
-@x [47] m.1077 l.20853 - Omega
-if box_context<box_flag+256 then
- eq_define(box_base-box_flag+box_context,box_ref,cur_box)
-else geq_define(box_base-box_flag-256+box_context,box_ref,cur_box)
-@y
-if box_context<box_flag+number_regs then
- eq_define(box_base-box_flag+box_context,box_ref,cur_box)
-else geq_define(box_base-box_flag-number_regs+box_context,box_ref,cur_box)
-@z
-%---------------------------------------
-@x [47] m.1079 l.20888 - Omega
- box(cur_val):=null; {the box becomes void, at the same level}
-@y
- set_equiv(box_base+cur_val,null);
- {the box becomes void, at the same level}
-@z
-%---------------------------------------
-@x [47] m.1100 l.21156 - Omega
- if saved(0)<255 then
-@y
- if saved(0)<>255 then
-@z
-%---------------------------------------
-@x [47] m.1109 l.21265 - Omega
-@ The |un_hbox| and |un_vbox| commands unwrap one of the 256 current boxes.
-@y
-@ The |un_hbox| and |un_vbox| commands unwrap one of the current boxes.
-@z
-%---------------------------------------
-@x [47] m.1110 l.21287 - Omega
-else begin link(tail):=list_ptr(p); box(cur_val):=null;
-@y
-else begin link(tail):=list_ptr(p);
-set_equiv(box_base+cur_val,null);
-@z
-%---------------------------------------
-@x [47] m.1117 l.21342 - Omega
- if c>=0 then if c<256 then pre_break(tail):=new_character(cur_font,c);
-@y
- if c>=0 then if c<=biggest_char then
- pre_break(tail):=new_character(cur_font,c);
-@z
-%---------------------------------------
-@x [48] m.1151 l.21810 - Omega
-@ Recall that the |nucleus|, |subscr|, and |supscr| fields in a noad are
-broken down into subfields called |math_type| and either |info| or
-|(fam,character)|. The job of |scan_math| is to figure out what to place
-in one of these principal fields; it looks at the subformula that
-comes next in the input, and places an encoding of that subformula
-into a given word of |mem|.
-
-@d fam_in_range==((cur_fam>=0)and(cur_fam<16))
-
-@<Declare act...@>=
-procedure scan_math(@!p:pointer);
-label restart,reswitch,exit;
-var c:integer; {math character code}
-begin restart:@<Get the next non-blank non-relax...@>;
-reswitch:case cur_cmd of
-letter,other_char,char_given: begin c:=ho(math_code(cur_chr));
- if c=@'100000 then
- begin @<Treat |cur_chr| as an active character@>;
- goto restart;
- end;
- end;
-char_num: begin scan_char_num; cur_chr:=cur_val; cur_cmd:=char_given;
- goto reswitch;
- end;
-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;
- end;
-othercases @<Scan a subformula enclosed in braces and |return|@>
-endcases;@/
-math_type(p):=math_char; character(p):=qi(c mod 256);
-if (c>=var_code)and fam_in_range then fam(p):=cur_fam
-else fam(p):=(c div 256) mod 16;
-exit:end;
-@y
-@ Recall that the |nucleus|, |subscr|, and |supscr| fields in a noad are
-broken down into subfields called |math_type| and either |info| or
-|(fam,character)|. The job of |scan_math| is to figure out what to place
-in one of these principal fields; it looks at the subformula that
-comes next in the input, and places an encoding of that subformula
-into a given word of |mem|.
-
-@d fam_in_range==((cur_fam>=0)and(cur_fam<16))
-
-@<Declare act...@>=
-@t\4@>@<Declare the function called |fin_mlist|@>@t@>@;@/
-
-procedure scan_math(@!p:pointer);
-label restart,reswitch,exit;
-var c:integer; {math character code}
-begin restart:@<Get the next non-blank non-relax...@>;
-reswitch:
-case cur_cmd of
-letter,other_char,char_given: begin
- c:=ho(math_code(cur_chr));
- if c=@"8000000 then
- begin @<Treat |cur_chr| as an active character@>;
- goto restart;
- end;
- end;
-char_num: begin scan_char_num; cur_chr:=cur_val; cur_cmd:=char_given;
- goto reswitch;
- end;
-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: begin
- c := ((cur_chr div @"1000) * @"1000000) +
- (((cur_chr mod @"1000) div @"100) * @"10000) +
- (cur_chr mod @"100);
- end;
-omath_given: begin c:=cur_chr;
- end;
-delim_num: begin
- if cur_chr=0 then scan_twenty_seven_bit_int
- else scan_fifty_one_bit_int;
- c:=cur_val;
- end;
-othercases @<Scan a subformula enclosed in braces and |return|@>
-endcases;@/
-math_type(p):=math_char; character(p):=qi(c mod @"10000);
-if (c>=var_code)and fam_in_range then fam(p):=cur_fam
-else fam(p):=(c div @"10000) mod @"100;
-exit:end;
-@z
-%---------------------------------------
-@x [48] m.1154 l.21860 - Omega
-mmode+letter,mmode+other_char,mmode+char_given:
- set_math_char(ho(math_code(cur_chr)));
-mmode+char_num: begin scan_char_num; cur_chr:=cur_val;
- set_math_char(ho(math_code(cur_chr)));
- end;
-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+letter,mmode+other_char,mmode+char_given:
- set_math_char(ho(math_code(cur_chr)));
-mmode+char_num: begin scan_char_num; cur_chr:=cur_val;
- set_math_char(ho(math_code(cur_chr)));
- end;
-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) * @"1000000) +
- (((cur_chr mod @"1000) div @"100) * @"10000) +
- (cur_chr mod @"100));
- end;
-mmode+omath_given: begin
- set_math_char(cur_chr);
- 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);
-@z
-%---------------------------------------
-@x [48] m.1155 l.21878 - Omega
-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;
- end;
-end;
-@y
-procedure set_math_char(@!c:integer);
-var p,q,r:pointer; {the new noad}
-begin if c>=@"8000000 then
- @<Treat |cur_chr|...@>
-else begin p:=new_noad; math_type(nucleus(p)):=math_char;
- character(nucleus(p)):=qi(c mod @"10000);
- fam(nucleus(p)):=(c div @"10000) mod @"100;
- 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 @"1000000);
- link(tail):=p; tail:=p;
- end;
-end;
-@z
-%---------------------------------------
-@x [48] m.1160 l.21966 - Omega
-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);
-@y
-procedure scan_delimiter(@!p:pointer;@!r:integer);
-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_code0(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 @"10000) mod @"100;
-small_char(p):=qi(cur_val mod @"10000);
-large_fam(p):=(cur_val1 div @"10000) mod @"100;
-large_char(p):=qi(cur_val1 mod @"10000);
-@z
-%---------------------------------------
-@x [48] m.1163 l.22005 - Omega
-scan_delimiter(left_delimiter(tail),true); scan_math(nucleus(tail));
-@y
-scan_delimiter(left_delimiter(tail),cur_chr+1); scan_math(nucleus(tail));
-@z
-%---------------------------------------
-@x [48] m.1165 l.22012 - Omega
-procedure math_ac;
-begin if cur_cmd=accent then
- @<Complain that the user should have said \.{\\mathaccent}@>;
-tail_append(get_node(accent_noad_size));
-type(tail):=accent_noad; subtype(tail):=normal;
-mem[nucleus(tail)].hh:=empty_field;
-mem[subscr(tail)].hh:=empty_field;
-mem[supscr(tail)].hh:=empty_field;
-math_type(accent_chr(tail)):=math_char;
-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;
-scan_math(nucleus(tail));
-end;
-@y
-procedure math_ac;
-begin if cur_cmd=accent then
- @<Complain that the user should have said \.{\\mathaccent}@>;
-tail_append(get_node(accent_noad_size));
-type(tail):=accent_noad; subtype(tail):=normal;
-mem[nucleus(tail)].hh:=empty_field;
-mem[subscr(tail)].hh:=empty_field;
-mem[supscr(tail)].hh:=empty_field;
-math_type(accent_chr(tail)):=math_char;
-if cur_chr=0 then scan_fifteen_bit_int
-else scan_big_fifteen_bit_int;
-character(accent_chr(tail)):=qi(cur_val mod @"10000);
-if (cur_val>=var_code)and fam_in_range then fam(accent_chr(tail)):=cur_fam
-else fam(accent_chr(tail)):=(cur_val div @"10000) mod @"100;
-scan_math(nucleus(tail));
-end;
-@z
-%---------------------------------------
-@x [48] m.1174 l.22085 - Omega
-@t\4@>@<Declare the function called |fin_mlist|@>@t@>@;@/
-@y
-@z
-%---------------------------------------
-@x [48] m.1188 l.22284 - Omega
-text(frozen_right):="right"; eqtb[frozen_right]:=eqtb[cur_val];
-@y
-settext(frozen_right,"right");
-set_new_eqtb(frozen_right,new_eqtb(cur_val));
-@z
-%---------------------------------------
-@x [49] m.1214 l.22700 - Omega
-@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 [49] m.1216 l.22734 - Omega
-text(frozen_protection):="inaccessible";
-@y
-settext(frozen_protection,"inaccessible");
-@z
-%---------------------------------------
-@x [49] m.1222 l.22789 - Omega
-@d char_def_code=0 {|shorthand_def| for \.{\\chardef}}
-@d math_char_def_code=1 {|shorthand_def| for \.{\\mathchardef}}
-@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}}
-
-@<Put each...@>=
-primitive("chardef",shorthand_def,char_def_code);@/
-@!@:char_def_}{\.{\\chardef} primitive@>
-primitive("mathchardef",shorthand_def,math_char_def_code);@/
-@!@:math_char_def_}{\.{\\mathchardef} primitive@>
-@y
-@d char_def_code=0 {|shorthand_def| for \.{\\chardef}}
-@d math_char_def_code=1 {|shorthand_def| for \.{\\mathchardef}}
-@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}}
-
-@<Put each...@>=
-primitive("chardef",shorthand_def,char_def_code);@/
-@!@:char_def_}{\.{\\chardef} primitive@>
-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 [49] m.1224 l.22833 - Omega
-shorthand_def: begin n:=cur_chr; get_r_token; p:=cur_cs; define(p,relax,256);
- scan_optional_equals;
- case n of
- char_def_code: begin scan_char_num; define(p,char_given,cur_val);
- end;
- math_char_def_code: begin scan_fifteen_bit_int; define(p,math_given,cur_val);
- end;
-@y
-shorthand_def: begin n:=cur_chr; get_r_token; p:=cur_cs;
- define(p,relax,too_big_char); scan_optional_equals;
- case n of
- char_def_code: begin scan_char_num; define(p,char_given,cur_val);
- end;
- math_char_def_code: begin scan_real_fifteen_bit_int;
- define(p,math_given,cur_val);
- end;
- omath_char_def_code: begin scan_big_fifteen_bit_int;
- define(p,omath_given,cur_val);
- end;
-@z
-%---------------------------------------
-@x [49] m.1230 l. - Omega
-primitive("mathcode",def_code,math_code_base);
-@!@:math_code_}{\.{\\mathcode} primitive@>
-primitive("lccode",def_code,lc_code_base);
-@!@:lc_code_}{\.{\\lccode} primitive@>
-primitive("uccode",def_code,uc_code_base);
-@!@:uc_code_}{\.{\\uccode} primitive@>
-primitive("sfcode",def_code,sf_code_base);
-@!@:sf_code_}{\.{\\sfcode} primitive@>
-primitive("delcode",def_code,del_code_base);
-@!@:del_code_}{\.{\\delcode} primitive@>
-@y
-primitive("mathcode",def_code,math_code_base);
-@!@:math_code_}{\.{\\mathcode} primitive@>
-primitive("omathcode",def_code,math_code_base+256);
-@!@:math_code_}{\.{\\omathcode} primitive@>
-primitive("lccode",def_code,lc_code_base);
-@!@:lc_code_}{\.{\\lccode} primitive@>
-primitive("uccode",def_code,uc_code_base);
-@!@:uc_code_}{\.{\\uccode} primitive@>
-primitive("sfcode",def_code,sf_code_base);
-@!@:sf_code_}{\.{\\sfcode} primitive@>
-primitive("delcode",def_code,del_code_base);
-@!@:del_code_}{\.{\\delcode} primitive@>
-primitive("odelcode",def_code,del_code_base+256);
-@!@:del_code_}{\.{\\odelcode} primitive@>
-@z
-%---------------------------------------
-@x [49] m.1232 l.22990 - Omega
-def_code: begin @<Let |n| be the largest legal code value, based on |cur_chr|@>;
- p:=cur_chr; scan_char_num; p:=p+cur_val; scan_optional_equals;
- scan_int;
- if ((cur_val<0)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 print("), should be in the range 0..")
- else print("), should be at most ");
- print_int(n);
- help1("I'm going to use 0 instead of that illegal code value.");@/
- error; cur_val:=0;
- 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);
-@y
-def_code: begin
- if cur_chr=(del_code_base+256) then begin
- p:=cur_chr-256; scan_char_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;
- del_word_define(p,cur_val1,cur_val);
- end
- else begin
- @<Let |n| be the largest legal code value, based on |cur_chr|@>;
- p:=cur_chr; scan_char_num; p:=p+cur_val; scan_optional_equals;
- scan_int;
- if ((cur_val<0)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 print("), should be in the range 0..")
- else print("), should be at most ");
- print_int(n);
- help1("I'm going to use 0 instead of that illegal code value.");@/
- error; cur_val:=0;
- end;
- if p<math_code_base then define(p,data,cur_val)
- else if p<(math_code_base+256) then begin
- if cur_val=@"8000 then cur_val:=@"8000000
- else cur_val:=((cur_val div @"1000) * @"1000000) +
- (((cur_val mod @"1000) div @"100) * @"10000) +
- (cur_val mod @"100);
- define(p,data,hi(cur_val));
- end
- else if p<del_code_base then define(p-256,data,hi(cur_val))
- else begin
- cur_val1:=cur_val div @"1000;
- cur_val1:=(cur_val1 div @"100)*@"10000 + (cur_val1 mod @"100);
- cur_val:=cur_val mod @"1000;
- cur_val:=(cur_val div @"100)*@"10000 + (cur_val mod @"100);
- del_word_define(p,cur_val1,cur_val);
- end;
- end;
-@z
-%---------------------------------------
-@x [49] m.1233 l.22990 - Omega
-if cur_chr=cat_code_base then n:=max_char_code
-else if cur_chr=math_code_base then n:=@'100000
-else if cur_chr=sf_code_base then n:=@'77777
-else if cur_chr=del_code_base then n:=@'77777777
-else n:=255
-@y
-if cur_chr=cat_code_base then n:=max_char_code
-else if cur_chr=math_code_base then n:=@'100000
-else if cur_chr=(math_code_base+256) then n:=@"8000000
-else if cur_chr=sf_code_base then n:=@'77777
-else if cur_chr=del_code_base then n:=@'77777777
-else n:=biggest_char
-@z
-%---------------------------------------
-@x [49] m.1234 l.22990 - Omega
-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 [49] m.1238 l.23059 - Omega
- if q=advance then cur_val:=cur_val+eqtb[l].int;
-@y
- if q=advance then cur_val:=cur_val+new_eqtb_int(l);
-@z
-%---------------------------------------
-@x [49] m.1240 l.23086 - Omega
- if p=int_val then cur_val:=mult_integers(eqtb[l].int,cur_val)
- else cur_val:=nx_plus_y(eqtb[l].int,cur_val,0)
- else cur_val:=x_over_n(eqtb[l].int,cur_val)
-@y
- if p=int_val then cur_val:=mult_integers(new_eqtb_int(l),cur_val)
- else cur_val:=nx_plus_y(new_eqtb_int(l),cur_val,0)
- else cur_val:=x_over_n(new_eqtb_int(l),cur_val)
-@z
-%---------------------------------------
-@x [49] m.1241 l.23109 - Omega
- if global then n:=256+cur_val@+else n:=cur_val;
-@y
- if global then n:=number_regs+cur_val@+else n:=cur_val;
-@z
-%---------------------------------------
-@x [49] m.1289 l.23546 - Omega
-|cs_token_flag+active_base| is a multiple of~256.
-@y
-|cs_token_flag+active_base| is a multiple of~|max_char_val|.
-@z
-%---------------------------------------
-@x [49] m.1289 l.23552 - Omega
- begin c:=t mod 256;
-@y
- begin c:=t mod max_char_val;
-@z
-%---------------------------------------
-@x [50] m.1313 l.23892 - Omega
-@<Dump regions 1 to 4 of |eqtb|@>;
-@<Dump regions 5 and 6 of |eqtb|@>;
-@y
-dump_eqtb_table;
-@z
-%---------------------------------------
-@x [50] m.1314 l.23904 - Omega
-@<Undump regions 1 to 6 of |eqtb|@>;
-@y
-undump_eqtb_table;
-@z
-%---------------------------------------
-@x [50] m.1315 l.23904 - Omega
-@ The table of equivalents usually contains repeated information, so we dump it
-in compressed form: The sequence of $n+2$ values $(n,x_1,\ldots,x_n,m)$ in the
-format file represents $n+m$ consecutive entries of |eqtb|, with |m| extra
-copies of $x_n$, namely $(x_1,\ldots,x_n,x_n,\ldots,x_n)$.
-
-@<Dump regions 1 to 4 of |eqtb|@>=
-k:=active_base;
-repeat j:=k;
-while j<int_base-1 do
- begin if (equiv(j)=equiv(j+1))and(eq_type(j)=eq_type(j+1))and@|
- (eq_level(j)=eq_level(j+1)) then goto found1;
- incr(j);
- end;
-l:=int_base; goto done1; {|j=int_base-1|}
-found1: incr(j); l:=j;
-while j<int_base-1 do
- begin if (equiv(j)<>equiv(j+1))or(eq_type(j)<>eq_type(j+1))or@|
- (eq_level(j)<>eq_level(j+1)) then goto done1;
- incr(j);
- end;
-done1:dump_int(l-k);
-while k<l do
- begin dump_wd(eqtb[k]); incr(k);
- end;
-k:=j+1; dump_int(k-l);
-until k=int_base
-
-@ @<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;
- incr(j);
- end;
-done2:dump_int(l-k);
-while k<l do
- begin dump_wd(eqtb[k]); incr(k);
- end;
-k:=j+1; dump_int(k-l);
-until k>eqtb_size
-
-@ @<Undump regions 1 to 6 of |eqtb|@>=
-k:=active_base;
-repeat undump_int(x);
-if (x<1)or(k+x>eqtb_size+1) then goto bad_fmt;
-for j:=k to k+x-1 do undump_wd(eqtb[j]);
-k:=k+x;
-undump_int(x);
-if (x<0)or(k+x>eqtb_size+1) then goto bad_fmt;
-for j:=k to k+x-1 do eqtb[j]:=eqtb[k-1];
-k:=k+x;
-until k>eqtb_size
-@y
-
-@z
-%---------------------------------------
-@x [50] m.1318 l.23967 - Omega
-@<Dump the hash table@>=
-dump_int(hash_used); cs_count:=frozen_control_sequence-1-hash_used;
-for p:=hash_base to hash_used do if text(p)<>0 then
- begin dump_int(p); dump_hh(hash[p]); incr(cs_count);
- end;
-for p:=hash_used+1 to undefined_control_sequence-1 do dump_hh(hash[p]);
-dump_int(cs_count);@/
-print_ln; print_int(cs_count); print(" multiletter control sequences")
-@y
-@<Dump the hash table@>=
-dump_int(hash_used);
-@z
-%---------------------------------------
-@x [50] m.1319 l.23976 - Omega
-undump(hash_base)(frozen_control_sequence)(hash_used); p:=hash_base-1;
-repeat undump(p+1)(hash_used)(p); undump_hh(hash[p]);
-until p=hash_used;
-for p:=hash_used+1 to undefined_control_sequence-1 do undump_hh(hash[p]);
-undump_int(cs_count)
-@y
-undump(hash_base)(frozen_control_sequence)(hash_used);
-@z
-%---------------------------------------
-@x [50] m.1324 l.24066 - Omega
-for k:=0 to trie_max do dump_hh(trie[k]);
-@y
-for k:=0 to trie_max do dump_hh(trie[k]);
-dump_int(max_hyph_char);
-@z
-%---------------------------------------
-@x [50] m.1324 l.24078 - Omega
-for k:=255 downto 0 do if trie_used[k]>min_quarterword then
-@y
-for k:=biggest_lang downto 0 do if trie_used[k]>min_quarterword then
-@z
-%---------------------------------------
-@x [50] m.1325 l.24094 - Omega
-for k:=0 to j do undump_hh(trie[k]);
-@y
-for k:=0 to j do undump_hh(trie[k]);
-undump_int(max_hyph_char);
-@z
-%---------------------------------------
-@x [50] m.1325 l.24101 - Omega
-init for k:=0 to 255 do trie_used[k]:=min_quarterword;@+tini@;@/
-k:=256;
-@y
-init for k:=0 to biggest_lang do trie_used[k]:=min_quarterword;@+tini@;@/
-k:=biggest_lang+1;
-@z
-%---------------------------------------
-@x [50] m.1326 l.24100 - Omega
-dump_int(interaction); dump_int(format_ident); dump_int(69069);
-tracing_stats:=0
-@y
-dump_int(interaction); dump_int(format_ident); dump_int(69069);
-set_new_eqtb_int(int_base+tracing_stats_code,0)
-@z
-%---------------------------------------
-@x [53] m.1341 l.24506 - Omega
-@d what_lang(#)==link(#+1) {language number, in the range |0..255|}
-@y
-@d what_lang(#)==link(#+1) {language number, in the range |0..biggest_lang|}
-@z
-%---------------------------------------
-@x [53] m.1370
-@!write_file:array[0..15] of alpha_file;
-@y
-@!outside_string_array: array[0..1000] of 0..255;
-@!write_file:array[0..15] of alpha_file;
-@z
-%---------------------------------------
-@x [53] m. l.24761 - Omega
-text(end_write):="endwrite"; eq_level(end_write):=level_one;
-eq_type(end_write):=outer_call; equiv(end_write):=null;
-@y
-settext(end_write,"endwrite"); set_eq_level(end_write,level_one);
-set_eq_type(end_write,outer_call); set_equiv(end_write,null);
-@z
-%---------------------------------------
-@x [53] m.1376 l.24878 - Omega
-else if language>255 then l:=0
-@y
-else if language>biggest_lang then l:=0
-@z
-%---------------------------------------
-@x [53] m.1377 l.24893 - Omega
- else if cur_val>255 then clang:=0
-@y
- else if cur_val>biggest_lang then clang:=0
-@z
-%---------------------------------------
-@x [54]
-This section should be replaced, if necessary, by any special
-modifications of the program
-that are necessary to make \TeX\ work at a particular installation.
-It is usually best to design your change file so that all changes to
-previous sections preserve the section numbering; then everybody's version
-will be consistent with the published program. More extensive changes,
-which introduce new sections, can be inserted here; then only the index
-itself will get a new section number.
-@^system dependencies@>
-
-@y
-@* \[54] $\Omega$ changes.
-
-@z
-%---------------------------------------
diff --git a/Build/source/texk/web2c/omegadir/omchar.ch b/Build/source/texk/web2c/omegadir/omchar.ch
deleted file mode 100644
index bb2b8b19567..00000000000
--- a/Build/source/texk/web2c/omegadir/omchar.ch
+++ /dev/null
@@ -1,84 +0,0 @@
-% omchar.ch: Primitives to access the components of font metric files.
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x [26] m.416 l.8407 - Omega char dimensions
-primitive("dp",set_box_dimen,depth_offset);
-@!@:dp_}{\.{\\dp} primitive@>
-@y
-primitive("dp",set_box_dimen,depth_offset);
-@!@:dp_}{\.{\\dp} primitive@>
-primitive("charwd",set_box_dimen,(width_offset+3));
-@!@:charwd_}{\.{\\charwd} primitive@>
-primitive("charht",set_box_dimen,(height_offset+3));
-@!@:charht_}{\.{\\charht} primitive@>
-primitive("chardp",set_box_dimen,(depth_offset+3));
-@!@:chardp_}{\.{\\chardp} primitive@>
-primitive("charit",set_box_dimen,(depth_offset+4));
-@!@:charit_}{\.{\\charit} primitive@>
-@z
-%---------------------------------------
-@x [26] m.416 l.8425 - Omega char dimensions
-set_box_dimen: if chr_code=width_offset then print_esc("wd")
-else if chr_code=height_offset then print_esc("ht")
-else print_esc("dp");
-@y
-set_box_dimen: if chr_code=width_offset then print_esc("wd")
-else if chr_code=height_offset then print_esc("ht")
-else if chr_code=depth_offset then print_esc("dp")
-else if chr_code=(width_offset+3) then print_esc("charwd")
-else if chr_code=(height_offset+3) then print_esc("charht")
-else if chr_code=(depth_offset+3) then print_esc("chardp")
-else print_esc("charit");
-@z
-%---------------------------------------
-@x [26] m.419 l.8461 - Omega char dimensions
-begin scan_eight_bit_int;
-if box(cur_val)=null then cur_val:=0 @+else cur_val:=mem[box(cur_val)+m].sc;
-cur_val_level:=dimen_val;
-end
-@y
-if m<=3 then
-begin
- scan_eight_bit_int;
- if box(cur_val)=null then cur_val:=0 @+else
- cur_val:=mem[box(cur_val)+m].sc;
- cur_val_level:=dimen_val;
-end
-else
-begin
- scan_char_num;
- if m=(width_offset+3) then begin
- cur_val:= char_width(main_f)(char_info(main_f)(cur_val))
- end
- else if m=(height_offset+3) then begin
- cur_val:= char_height(main_f)(height_depth(char_info(main_f)(cur_val)))
- end
- else if m=(depth_offset+3) then begin
- cur_val:= char_depth(main_f)(height_depth(char_info(main_f)(cur_val)))
- end
- else begin
- cur_val:= char_italic(main_f)(char_info(main_f)(cur_val));
- end;
- cur_val_level:=dimen_val;
-end
-@z
-%---------------------------------------
diff --git a/Build/source/texk/web2c/omegadir/omcprt.ch b/Build/source/texk/web2c/omegadir/omcprt.ch
deleted file mode 100644
index a6ab9d581b8..00000000000
--- a/Build/source/texk/web2c/omegadir/omcprt.ch
+++ /dev/null
@@ -1,11 +0,0 @@
-@x
-wterm_ln('Copyright (c) 1994--2000 John Plaice and Yannis Haralambous');
-@y
-{Let's not announce the copyright on the terminal, nothing else does.}
-@z
-@x
-print_nl("Copyright (c) 1994--2000 John Plaice and Yannis Haralambous");
-@y
-print_nl("Copyright (C) 1994--2000 John Plaice and Yannis Haralambous");
-@z
-
diff --git a/Build/source/texk/web2c/omegadir/omdir.ch b/Build/source/texk/web2c/omegadir/omdir.ch
deleted file mode 100644
index 23e2c8f4602..00000000000
--- a/Build/source/texk/web2c/omegadir/omdir.ch
+++ /dev/null
@@ -1,4172 +0,0 @@
-% omdir.ch: Primitives to deal with multiple-direction text
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%-------------------------
-@x [10] m.135
-@d hlist_node=0 {|type| of hlist nodes}
-@d box_node_size=7 {number of words to allocate for a box node}
-@d width_offset=1 {position of |width| field in a box node}
-@d depth_offset=2 {position of |depth| field in a box node}
-@d height_offset=3 {position of |height| field in a box node}
-@d width(#) == mem[#+width_offset].sc {width of the box, in sp}
-@d depth(#) == mem[#+depth_offset].sc {depth of the box, in sp}
-@d height(#) == mem[#+height_offset].sc {height of the box, in sp}
-@d shift_amount(#) == mem[#+4].sc {repositioning distance, in sp}
-@d list_offset=5 {position of |list_ptr| field in a box node}
-@d list_ptr(#) == link(#+list_offset) {beginning of the list inside the box}
-@d glue_order(#) == subtype(#+list_offset) {applicable order of infinity}
-@d glue_sign(#) == type(#+list_offset) {stretching or shrinking}
-@d normal=0 {the most common case when several cases are named}
-@d stretching = 1 {glue setting applies to the stretch components}
-@d shrinking = 2 {glue setting applies to the shrink components}
-@d glue_offset = 6 {position of |glue_set| in a box node}
-@d glue_set(#) == mem[#+glue_offset].gr
- {a word of type |glue_ratio| for glue setting}
-@y
-@d hlist_node=0 {|type| of hlist nodes}
-@d box_node_size=8 {number of words to allocate for a box node}
-@d width_offset=1 {position of |width| field in a box node}
-@d depth_offset=2 {position of |depth| field in a box node}
-@d height_offset=3 {position of |height| field in a box node}
-@d width(#) == mem[#+width_offset].sc {width of the box, in sp}
-@d depth(#) == mem[#+depth_offset].sc {depth of the box, in sp}
-@d height(#) == mem[#+height_offset].sc {height of the box, in sp}
-@d shift_amount(#) == mem[#+4].sc {repositioning distance, in sp}
-@d list_offset=5 {position of |list_ptr| field in a box node}
-@d list_ptr(#) == link(#+list_offset) {beginning of the list inside the box}
-@d glue_order(#) == subtype(#+list_offset) {applicable order of infinity}
-@d glue_sign(#) == type(#+list_offset) {stretching or shrinking}
-@d normal=0 {the most common case when several cases are named}
-@d stretching = 1 {glue setting applies to the stretch components}
-@d shrinking = 2 {glue setting applies to the shrink components}
-@d glue_offset = 6 {position of |glue_set| in a box node}
-@d glue_set(#) == mem[#+glue_offset].gr
- {a word of type |glue_ratio| for glue setting}
-@d dir_offset = 7 {position of |box_dir| in a box node}
-@d box_dir(#) == mem[#+dir_offset].int
-@z
-%-------------------------
-@x [10] m.136
-@p function new_null_box:pointer; {creates a new box node}
-var p:pointer; {the new node}
-begin p:=get_node(box_node_size); type(p):=hlist_node;
-subtype(p):=min_quarterword;
-width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null;
-glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p));
-@<LOCAL: Add info node pointer@>;
-new_null_box:=p;
-@y
-@p function new_null_box:pointer; {creates a new box node}
-var p:pointer; {the new node}
-begin p:=get_node(box_node_size); type(p):=hlist_node;
-subtype(p):=min_quarterword;
-width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null;
-glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p));
-@<LOCAL: Add info node pointer@>;
-box_dir(p):=text_direction;
-new_null_box:=p;
-@z
-%-------------------------
-@x [10] m.138
-@d rule_node=2 {|type| of rule nodes}
-@d rule_node_size=4 {number of words to allocate for a rule node}
-@d null_flag==-@'10000000000 {$-2^{30}$, signifies a missing item}
-@d is_running(#) == (#=null_flag) {tests for a running dimension}
-@y
-@d rule_node=2 {|type| of rule nodes}
-@d rule_node_size=5 {number of words to allocate for a rule node}
-@d null_flag==-@'10000000000 {$-2^{30}$, signifies a missing item}
-@d is_running(#) == (#=null_flag) {tests for a running dimension}
-@d rule_dir(#)==info(#+4)
-@z
-%-------------------------
-@x [10] m.139
-@p function new_rule:pointer;
-var p:pointer; {the new node}
-begin p:=get_node(rule_node_size); type(p):=rule_node;
-subtype(p):=0; {the |subtype| is not used}
-width(p):=null_flag; depth(p):=null_flag; height(p):=null_flag;
-@<LOCAL: Add info node pointer@>;
-new_rule:=p;
-end;
-@y
-@p function new_rule:pointer;
-var p:pointer; {the new node}
-begin p:=get_node(rule_node_size); type(p):=rule_node;
-subtype(p):=0; {the |subtype| is not used}
-width(p):=null_flag; depth(p):=null_flag; height(p):=null_flag;
-@<LOCAL: Add info node pointer@>;
-rule_dir(p):=-1;
-new_rule:=p;
-end;
-@z
-%-------------------------
-@x [10] m.160
-@d info_node=unset_node+2 {|type| to hold local information}
-
-@d ptr_info(#) == link(#-1) {pointer to the local info node}
-
-@d info_size=5
-@d info_ref_count(#) == link(#+1) {reference count to this node}
-@d info_pen_inter(#) == info(#+2) {\.{\\localinterlinepenalty}}
-@d info_pen_broken(#) == link(#+2) {\.{\\localbrokenpenalty}}
-@d info_left_box(#) == info(#+3) {\.{\\localleftbox}}
-@d info_right_box(#) == link(#+3) {\.{\\localrightbox}}
-@d info_file(#) == info(#+4) {file names and line numbers}
-@y
-@d dir_node=unset_node+2 {|type| to keep track of stacks of directions}
-
-@d dir_size=3
-@d dir_no(#) == info(#+1) {number of directions to keep track of}
-@d dir_ref_count(#) == link(#+1) {reference count to this node}
-
-@d dir_incr_ref_count(#)==begin
- if (#)<>null then incr(dir_ref_count(#));
- end
-@d dir_decr_ref_count(#)==begin
- if (#)<>null then begin
- decr(dir_ref_count(#));
- if dir_ref_count(#) = 0 then begin
- free_node(#,file_size+dir_no(#));
- #:=null;
- end;
- end;
- end
-
-@d info_node=unset_node+3 {|type| to hold local information}
-
-@d ptr_info(#) == link(#-1) {pointer to the local info node}
-
-@d info_size=5
-@d info_ref_count(#) == link(#+1) {reference count to this node}
-@d info_pen_inter(#) == info(#+2) {\.{\\localinterlinepenalty}}
-@d info_pen_broken(#) == link(#+2) {\.{\\localbrokenpenalty}}
-@d info_left_box(#) == info(#+3) {\.{\\localleftbox}}
-@d info_right_box(#) == link(#+3) {\.{\\localrightbox}}
-@d info_file(#) == info(#+4) {file names and line numbers}
-@d info_dir(#) == link(#+4) {direction}
-
-@d get_dir(#) == mem[info_dir(ptr_info(#))+
- 2*dir_no(info_dir(ptr_info(#)))+1].int
-@z
-%-------------------------
-@x [10] m.160
- free_node(#,info_size);
-@y
- dir_decr_ref_count(info_dir(#));
- info_dir(#):=null;
- free_node(#,info_size);
-@z
-%-------------------------
-@x [10] m.176
-@p procedure print_font_and_char(@!p:integer); {prints |char_node| data}
-begin if p>mem_end then print_esc("CLOBBERED.")
-else begin if (font(p)<font_base)or(font(p)>font_max) then print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
- print_char(" "); print_ASCII(qo(character(p)));
- end;
-end;
-@y
-@p procedure print_dir(d:integer);
-begin
-print(dir_names[dir_primary[d]]);
-print(dir_names[dir_secondary[d]]);
-print(dir_names[dir_tertiary[d]]);
-end;
-@#
-procedure print_dir_node(p:pointer);
-var i:integer;
-begin
-if dir_no(p)=1 then print(" dir=")
-else print(" dirs=");
-for i:=1 to dir_no(p) do begin
- print_dir(mem[p+2*i+1].int);
- if i<>dir_no(p) then print(",");
- end;
-end;
-@#
-procedure print_font_and_char(@!p:integer); {prints |char_node| data}
-begin if p>mem_end then print_esc("CLOBBERED.")
-else begin if (font(p)<font_base)or(font(p)>font_max) then print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
- print_char(" "); print_ASCII(qo(character(p)));
- end;
-end;
-@z
-%-------------------------
-@x [12] m.183
-@ @<Display node |p|@>=
-if is_char_node(p) then print_font_and_char(p)
-@y
-@ @<Display node |p|@>=
-if is_char_node(p) then begin print_font_and_char(p);
- print_dir_node(info_dir(ptr_info(p)));
- {print(" dir="); print_dir(get_dir(p));}
- end
-@z
-%-------------------------
-@x [12] m.184
-@ @<Display box |p|@>=
-begin if type(p)=hlist_node then print_esc("h")
-else if type(p)=vlist_node then print_esc("v")
-else print_esc("unset");
-print("box("); print_scaled(height(p)); print_char("+");
-print_scaled(depth(p)); print(")x"); print_scaled(width(p));
-if type(p)=unset_node then
- @<Display special fields of the unset node |p|@>
-else begin @<Display the value of |glue_set(p)|@>;
- if shift_amount(p)<>0 then
- begin print(", shifted "); print_scaled(shift_amount(p));
- end;
- end;
-node_list_display(list_ptr(p)); {recursive call}
-end
-@y
-@ @<Display box |p|@>=
-begin if type(p)=hlist_node then print_esc("h")
-else if type(p)=vlist_node then print_esc("v")
-else print_esc("unset");
-print("box("); print_scaled(height(p)); print_char("+");
-print_scaled(depth(p)); print(")x"); print_scaled(width(p));
-if type(p)=unset_node then
- @<Display special fields of the unset node |p|@>
-else begin @<Display the value of |glue_set(p)|@>;
- if shift_amount(p)<>0 then
- begin print(", shifted "); print_scaled(shift_amount(p));
- end;
- print(", direction "); print_dir(box_dir(p));
- end;
-node_list_display(list_ptr(p)); {recursive call}
-end
-@z
-%-------------------------
-@x [12] m.193
-@ @<Display ligature |p|@>=
-begin print_font_and_char(lig_char(p)); print(" (ligature ");
-@y
-@ @<Display ligature |p|@>=
-begin print_font_and_char(lig_char(p));
-print_dir_node(info_dir(ptr_info(p)));
-{print(" dir="); print_dir(get_dir(p));}
-print(" (ligature ");
-@z
-%-------------------------
-@x [13] m.202
- info_node: begin
- @<LOCAL: Delete info node@>;
- goto done; end; {do not delete node at this time}
-@y
- info_node: begin
- @<LOCAL: Delete info node@>;
- goto done; end; {do not delete node at this time}
- dir_node: begin
- @<LOCAL: Delete direction node@>;
- goto done; end; {do not delete node at this time}
-@z
-%-------------------------
-@x [13] m.206
-hlist_node,vlist_node,unset_node: begin r:=get_node(box_node_size);
- mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last two words}
-@y
-hlist_node,vlist_node,unset_node: begin r:=get_node(box_node_size);
- mem[r+7]:=mem[p+7]; mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5];
- {copy the last three words}
-@z
-%-------------------------
-@x [15] m.209
-@d max_internal=register
- {the largest code that can follow \.{\\the}}
-@y
-@d assign_next_fake_math=register+1 {(\.{\\nextfakemath})}
-@d assign_box_dir=register+2 {(\.{\\boxdir})}
-@d assign_dir=register+3 {(\.{\\pagedir}, \.{\\textdir})}
-@d max_internal=assign_dir
- {the largest code that can follow \.{\\the}}
-@z
-%-------------------------
-@x [17] m.230
-@d local_par_info_base=local_right_box_base+1
-@y
-@d local_dir_base=local_right_box_base+1
-@d local_par_info_base=local_dir_base+1
-@z
-%-------------------------
-@x [17] m.230
-@d local_par_info==equiv(local_par_info_base)
-@y
-@d local_dir==equiv(local_dir_base)
-@d local_par_info==equiv(local_par_info_base)
-@z
-%-------------------------
-@x [17] m.236
-@d int_pars=58 {total number of integer parameters}
-@d count_base=int_base+int_pars {|number_regs| user \.{\\count} registers}
-@y
-@d int_pars=58 {total number of integer parameters}
-@d dir_base=int_base+int_pars
-@d page_direction_code=0
-@d body_direction_code=1
-@d par_direction_code=2
-@d text_direction_code=3
-@d math_direction_code=4
-@d dir_pars=5
-@d count_base=dir_base+dir_pars {|number_regs| user \.{\\count} registers}
-@z
-%-------------------------
-@x [17] m.238
-@d local_broken_penalty==int_par(local_broken_penalty_code)
-@y
-@d local_broken_penalty==int_par(local_broken_penalty_code)
-@d dir_par(#)==new_eqtb_int(dir_base+#) {a direction parameter}
-@d page_direction==dir_par(page_direction_code)
-@d body_direction==dir_par(body_direction_code)
-@d par_direction==dir_par(par_direction_code)
-@d text_direction==dir_par(text_direction_code)
-@d math_direction==dir_par(math_direction_code)
-@z
-%-------------------------
-@x [17] m.247
-@d dimen_pars=21 {total number of dimension parameters}
-@y
-@d page_width_code=21
-@d page_height_code=22
-@d page_right_offset_code=23
-@d page_bottom_offset_code=24
-@d dimen_pars=25 {total number of dimension parameters}
-@z
-%-------------------------
-@x [17] m.247
-@d emergency_stretch==dimen_par(emergency_stretch_code)
-@y
-@d emergency_stretch==dimen_par(emergency_stretch_code)
-@d page_width==dimen_par(page_width_code)
-@d page_height==dimen_par(page_height_code)
-@d page_right_offset==dimen_par(page_right_offset_code)
-@d page_bottom_offset==dimen_par(page_bottom_offset_code)
-@z
-%-------------------------
-@x [26] m.410
-@d int_val=0 {integer values}
-@d dimen_val=1 {dimension values}
-@d glue_val=2 {glue specifications}
-@d mu_val=3 {math glue specifications}
-@d ident_val=4 {font identifier}
-@d tok_val=5 {token lists}
-
-@<Glob...@>=
-@!cur_val:integer; {value returned by numeric scanners}
-@!cur_val_level:int_val..tok_val; {the ``level'' of this value}
-@y
-@d int_val=0 {integer values}
-@d dimen_val=1 {dimension values}
-@d glue_val=2 {glue specifications}
-@d mu_val=3 {math glue specifications}
-@d dir_val=4 {directions}
-@d ident_val=5 {font identifier}
-@d tok_val=6 {token lists}
-
-@<Glob...@>=
-@!cur_val:integer; {value returned by numeric scanners}
-@!cur_val1:integer; {delcodes are now 51 digits}
-@!cur_val2:integer; {will be used in omxml.ch; this is cheating}
-@!cur_val_level:int_val..dir_val; {the ``level'' of this value}
-@!tmp_dir_stack:pointer;
-@!par_dir_stack:pointer;
-@!math_dir_stack:pointer;
-@!align_dir_stack:pointer;
-@z
-%-------------------------
-@x [26] m.413
-assign_int: scanned_result(new_eqtb_int(m))(int_val);
-@y
-assign_int: scanned_result(new_eqtb_int(m))(int_val);
-assign_box_dir: begin
- scan_eight_bit_int;
- m:=cur_val;
- if box(m)<>null then cur_val:=box_dir(box(m))
- else cur_val:=0;
- cur_val_level:=dir_val;
- end;
-assign_dir: scanned_result(new_eqtb_int(m))(dir_val);
-@z
-%-------------------------
-@x [26] m.437
-@ @<Declare procedures that scan restricted classes of integers@>=
-procedure scan_eight_bit_int;
-@y
-@
-@d dir_T=0
-@d dir_L=1
-@d dir_B=2
-@d dir_R=3
-@d dir_eq_end(#)==(#)
-@d dir_eq(#)==(#)=dir_eq_end
-@d dir_ne_end(#)==(#)
-@d dir_ne(#)==(#)<>dir_ne_end
-@d dir_opposite_end(#)==((#) mod 4)
-@d dir_opposite(#)==(((#)+2) mod 4)=dir_opposite_end
-@d dir_parallel_end(#)==((#) mod 2)
-@d dir_parallel(#)==((#) mod 2)=dir_parallel_end
-@d dir_orthogonal_end(#)==(# mod 2)
-@d dir_orthogonal(#)==((#) mod 2)<>dir_orthogonal_end
-@d dir_next_end(#)==((#) mod 4)
-@d dir_next(#)==(((#)+3) mod 4)=dir_next_end
-@d dir_prev_end(#)==((#) mod 4)
-@d dir_prev(#)==(((#)+1) mod 4)=dir_prev_end
-
-{box directions}
-@d dir_TL_=0
-@d dir_TR_=1
-@d dir_LT_=2
-@d dir_LB_=3
-@d dir_BL_=4
-@d dir_BR_=5
-@d dir_RT_=6
-@d dir_RB_=7
-
-{font directions}
-@d dir__LT= 0
-@d dir__LL= 1
-@d dir__LB= 2
-@d dir__LR= 3
-@d dir__RT= 4
-@d dir__RL= 5
-@d dir__RB= 6
-@d dir__RR= 7
-@d dir__TT= 8
-@d dir__TL= 9
-@d dir__TB=10
-@d dir__TR=11
-@d dir__BT=12
-@d dir__BL=13
-@d dir__BB=14
-@d dir__BR=15
-
-@d is_mirrored(#)==dir_opposite(dir_primary[#])(dir_tertiary[#])
-@d is_rotated(#)==dir_parallel(dir_secondary[#])(dir_tertiary[#])
-@d font_direction(#)==(# mod 16)
-@d box_direction(#)==(# div 4)
-
-@d scan_single_dir(#)==begin
-if scan_keyword("T") then #:=dir_T
-else if scan_keyword("L") then #:=dir_L
-else if scan_keyword("B") then #:=dir_B
-else if scan_keyword("R") then #:=dir_R
-else begin
- print_err("Bad direction"); cur_val:=0;
- goto exit;
- end
-end
-
-@<Declare procedures that scan restricted classes of integers@>=
-@<DIR: Declare |change_dir|@>;
-procedure scan_dir;
-var d1,d2,d3: integer;
-begin
-get_x_token;
-if cur_cmd=assign_dir then begin
- cur_val:=new_eqtb_int(cur_chr);
- goto exit;
- end
-else back_input;
-scan_single_dir(d1);
-scan_single_dir(d2);
-if dir_parallel(d1)(d2) then begin
- print_err("Bad direction"); cur_val:=0;
- goto exit;
- end;
-scan_single_dir(d3);
-cur_val:=d1*8+dir_rearrange[d2]*4+d3;
-exit:
-end;
-
-@ @<Declare procedures that scan restricted classes of integers@>=
-procedure scan_eight_bit_int;
-@z
-%-------------------------
-@x [27] m.463
-@p function scan_rule_spec:pointer;
-label reswitch;
-var q:pointer; {the rule node being created}
-begin q:=new_rule; {|width|, |depth|, and |height| all equal |null_flag| now}
-if cur_cmd=vrule then width(q):=default_rule
-else begin height(q):=default_rule; depth(q):=0;
- end;
-@y
-@p function scan_rule_spec:pointer;
-label reswitch;
-var q:pointer; {the rule node being created}
-begin q:=new_rule; {|width|, |depth|, and |height| all equal |null_flag| now}
-if cur_cmd=vrule then begin
- width(q):=default_rule;
- rule_dir(q):=body_direction;
- end
-else begin
- height(q):=default_rule; depth(q):=0;
- rule_dir(q):=text_direction;
-end;
-@z
-%-------------------------
-@x [27] m.465
- int_val:print_int(cur_val);
-@y
- int_val:print_int(cur_val);
- dir_val:print_dir(cur_val);
-@z
-%-------------------------
-@x [30] m.550
-@d offset_false_bchar=offset_bchar+1
-@d offset_ivalues_start=offset_false_bchar+1
-@y
-@d offset_false_bchar=offset_bchar+1
-@d offset_natural_dir=offset_false_bchar+1
-@d offset_ivalues_start=offset_natural_dir+1
-@z
-%-------------------------
-@x [30] m.550
-@d font_false_bchar(#)==font_info(#)(offset_false_bchar).int
-@y
-@d font_false_bchar(#)==font_info(#)(offset_false_bchar).int
-@d font_natural_dir(#)==font_info(#)(offset_natural_dir).int
-@z
-%-------------------------
-@x [30] m.560
-@p function read_font_info(@!u:pointer;@!nom,@!aire:str_number;
- @!s:scaled;offset:quarterword):internal_font_number; {input a \.{TFM} file}
-@y
-@p function read_font_info(@!u:pointer;@!nom,@!aire:str_number;
- @!s:scaled;offset:quarterword;natural_dir:integer):internal_font_number;
- {input a \.{TFM} file}
-@z
-%-------------------------
-@x [30] m.560
-font_offset(f):=offset;
-@y
-font_offset(f):=offset;
-font_natural_dir(f):=natural_dir;
-@z
-%-------------------------
-@x [31] m.586
-@d set_rule=132 {typeset a rule and move right}
-@y
-@d set_rule=132 {typeset a rule and move right}
-@d put1==133 {typeset a character without moving}
-@z
-%-------------------------
-@x [31] m.586
-@d right1=143 {move right}
-@y
-@d right1==143 {move right}
-@d right4==146 {move right, 4 bytes}
-@z
-%-------------------------
-@x [31] m.586
-@d down1=157 {move down}
-@y
-@d down1=157 {move down}
-@d down4=160 {move down, 4 bytes}
-@z
-%-------------------------
-@x [32] m.607
-@p procedure movement(@!w:scaled;@!o:eight_bits);
-label exit,found,not_found,2,1;
-var mstate:small_number; {have we seen a |y| or |z|?}
-@!p,@!q:pointer; {current and top nodes on the stack}
-@!k:integer; {index into |dvi_buf|, modulo |dvi_buf_size|}
-begin q:=get_node(movement_node_size); {new node for the top of the stack}
-width(q):=w; location(q):=dvi_offset+dvi_ptr;
-if o=down1 then
- begin link(q):=down_ptr; down_ptr:=q;
- end
-else begin link(q):=right_ptr; right_ptr:=q;
- end;
-@<Look at the other stack entries until deciding what sort of \.{DVI} command
- to generate; |goto found| if node |p| is a ``hit''@>;
-@<Generate a |down| or |right| command for |w| and |return|@>;
-found: @<Generate a |y0| or |z0| command in order to reuse a previous
- appearance of~|w|@>;
-exit:end;
-@y
-@d dvi_set(#)==oval:=#-font_offset(f); ocmd:=set1; out_cmd
-@d dvi_put(#)==oval:=#-font_offset(f); ocmd:=put1; out_cmd
-@d dvi_set_rule_end(#)==dvi_four(#)
-@d dvi_set_rule(#)==dvi_out(set_rule); dvi_four(#); dvi_set_rule_end
-@d dvi_put_rule_end(#)==dvi_four(#)
-@d dvi_put_rule(#)==dvi_out(put_rule); dvi_four(#); dvi_put_rule_end
-@d dvi_right(#)==dvi_out(right4); dvi_four(#);
-@d dvi_left(#)==dvi_out(right4); dvi_four(-#);
-@d dvi_down(#)==dvi_out(down4); dvi_four(#);
-@d dvi_up(#)==dvi_out(down4); dvi_four(-#);
-
-@p procedure movement(@!w:scaled;@!o:eight_bits);
-label exit,found,not_found,2,1;
-var mstate:small_number; {have we seen a |y| or |z|?}
-@!p,@!q:pointer; {current and top nodes on the stack}
-@!k:integer; {index into |dvi_buf|, modulo |dvi_buf_size|}
-begin
-case box_direction(dvi_direction) of
- dir_TL_: begin
- end;
- dir_TR_: begin
- if o=right1 then negate(w);
- end;
- dir_LT_: begin
- if o=right1 then o:=down1
- else o:=right1;
- end;
- dir_LB_: begin
- if o=right1 then begin
- o:=down1; negate(w);
- end
- else o:=right1;
- end;
- dir_BL_: begin
- if o=down1 then negate(w);
- end;
- dir_BR_: begin
- negate(w);
- end;
- dir_RT_: begin
- if o=right1 then o:=down1
- else begin o:=right1; negate(w);
- end;
- end;
- dir_RB_: begin
- if o=right1 then o:=down1 else o:=right1;
- negate(w);
- end;
- end;
-if false then begin
-q:=get_node(movement_node_size); {new node for the top of the stack}
-width(q):=w; location(q):=dvi_offset+dvi_ptr;
-if o=down1 then
- begin link(q):=down_ptr; down_ptr:=q;
- end
-else begin link(q):=right_ptr; right_ptr:=q;
- end;
-@<Look at the other stack entries until deciding what sort of \.{DVI} command
- to generate; |goto found| if node |p| is a ``hit''@>;
-end;
-@<Generate a |down| or |right| command for |w| and |return|@>;
-found: @<Generate a |y0| or |z0| command in order to reuse a previous
- appearance of~|w|@>;
-exit:end;
-@z
-%-------------------------
-@x [32] m.610
-info(q):=yz_OK;
-@y
-@z
-%-------------------------
-@x [32] m.617
-dvi_h:=0; dvi_v:=0; cur_h:=h_offset; dvi_f:=null_font;
-@y
-dvi_h:=0; dvi_v:=0; cur_h:=0; cur_v:=0; dvi_f:=null_font;
-@z
-%-------------------------
-@x [32] m.619
-procedure hlist_out; {output an |hlist_node| box}
-label reswitch, move_past, fin_rule, next_p;
-var base_line: scaled; {the baseline coordinate for this box}
-@y
-procedure hlist_out; {output an |hlist_node| box}
-label reswitch, move_past, fin_rule, next_p;
-var base_line: scaled; {the baseline coordinate for this box}
-c_wd,c_ht,c_dp: scaled;
- {the real width, height and depth of the character}
-c_htdp: quarterword; {height-depth entry in |char_info|}
-c_info: four_quarters; {|char_info| entry}
-edge_v: scaled;
-edge_h: scaled;
-effective_horizontal: scaled;
-basepoint_horizontal: scaled;
-basepoint_vertical: scaled;
-saving_h: scaled;
-saving_v: scaled;
-save_direction: integer;
-dir_tmp,dir_ptr: pointer;
-dvi_dir_h,dvi_dir_ptr,dvi_temp_ptr: integer;
-char_first: integer;
-cur_direction: integer;
-new_dir_node,prev_dir_node: pointer;
-i,d,dir_level,m: integer; {counters for the direction stuff}
-dir_found: boolean;
-@z
-%-------------------------
-@x [32] m.619
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v; left_edge:=cur_h;
-if char_specials>0 then begin
- should_create_special:=true;
- chars_since_last_special:=char_specials;
- end
-else begin
- should_create_special:=false;
- chars_since_last_special:=-1000000;
- end;
-while p<>null do @<Output node |p| for |hlist_out| and move to the next node,
- maintaining the condition |cur_v=base_line|@>;
-prune_movements(save_loc);
-if cur_s>0 then dvi_pop(save_loc);
-decr(cur_s);
-@y
-save_direction:=dvi_direction;
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v; left_edge:=cur_h;
-if dvi_direction<>box_dir(this_box) then begin
- dvi_direction:=box_dir(this_box);
- synch_v; synch_h;
- saving_h:=dvi_h; saving_v:=dvi_v;
- end;
-@<DIR: Initialize the text direction@>;
-if char_specials>0 then begin
- should_create_special:=true;
- chars_since_last_special:=char_specials;
- end
-else begin
- should_create_special:=false;
- chars_since_last_special:=-1000000;
- end;
-while p<>null do @<Output node |p| for |hlist_out| and move to the next node,
- maintaining the condition |cur_v=base_line|@>;
-@<DIR: Finalize the text direction@>;
-if dvi_direction<>save_direction then begin
- dvi_direction:=save_direction;
- synch_v; synch_h;
- cur_h:=saving_h; cur_v:=saving_v;
- end;
-prune_movements(save_loc);
-if cur_s>0 then dvi_pop(save_loc);
-decr(cur_s);
-@z
-%-------------------------
-@x [32] m.620
-@<Output node |p| for |hlist_out|...@>=
-reswitch: if is_char_node(p) then
- begin synch_h; synch_v;
- if should_create_special then begin
- should_create_special:=false;
- if chars_since_last_special>=char_specials then
- if ptr_info(p)<>null then
- if info_file(ptr_info(p))<>null then begin
- @<LOCAL: Create special node@>;
- chars_since_last_special:=0;
- end;
- end;
- repeat f:=font(p); c:=character(p);
- incr(chars_since_last_special);
- if f<>dvi_f then @<Change font |dvi_f| to |f|@>;
- oval:=c-font_offset(f); ocmd:=set1; out_cmd;@/
- cur_h:=cur_h+char_width(f)(char_info(f)(c));
- p:=link(p);
- until not is_char_node(p);
- dvi_h:=cur_h;
- end
-else @<Output the non-|char_node| |p| for |hlist_out|
- and move to the next node@>
-@y
-@<Output node |p| for |hlist_out|...@>=
-reswitch: if is_char_node(p) then
- begin synch_h; synch_v;
- if should_create_special then begin
- should_create_special:=false;
- if chars_since_last_special>=char_specials then
- if ptr_info(p)<>null then
- if info_file(ptr_info(p))<>null then begin
- @<LOCAL: Create special node@>;
- chars_since_last_special:=0;
- end;
- end;
- repeat f:=font(p); c:=character(p);
- incr(chars_since_last_special);
- if f<>dvi_f then @<Change font |dvi_f| to |f|@>;
- c_info:=char_info(f)(c);
- c_htdp:=height_depth(c_info);
- if is_rotated(dvi_direction) then begin
- c_ht:=char_width(f)(c_info) div 2;
- c_wd:=char_height(f)(c_htdp)+char_depth(f)(c_htdp);
- end
- else begin
- c_ht:=char_height(f)(c_htdp);
- c_dp:=char_depth(f)(c_htdp);
- c_wd:=char_width(f)(c_info);
- end;
- cur_h:=cur_h+c_wd;
- if (font_natural_dir(f)<>-1) then
- case font_direction(dvi_direction) of
- dir__LT,dir__LB: begin
- dvi_set(c);
- end;
- dir__RT,dir__RB: begin
- dvi_put(c);
- dvi_left(c_wd);
- end;
- dir__TL,dir__TR: begin
- dvi_put(c);
- dvi_down(c_wd);
- end;
- dir__BL,dir__BR: begin
- dvi_put(c);
- dvi_up(c_wd);
- end;
- dir__LL,dir__LR: begin
- dvi_put(c);
- dvi_right(c_wd);
- end;
- dir__RL,dir__RR: begin
- dvi_put(c);
- dvi_left(c_wd);
- end;
- dir__TT,dir__TB: begin
- dvi_put(c);
- dvi_down(c_wd);
- end;
- dir__BT,dir__BB: begin
- dvi_put(c);
- dvi_up(c_wd);
- end;
- end
- else
- case font_direction(dvi_direction) of
- dir__LT: begin
- dvi_set(c);
- end;
- dir__LB: begin
- dvi_down(c_ht);
- dvi_set(c);
- dvi_up(c_ht);
- end;
- dir__RT: begin
- dvi_left(c_wd);
- dvi_put(c);
- end;
- dir__RB: begin
- dvi_left(c_wd);
- dvi_down(c_ht);
- dvi_put(c);
- dvi_up(c_ht);
- end;
- dir__TL: begin
- dvi_down(c_wd);
- dvi_left(c_ht);
- dvi_put(c);
- dvi_right(c_ht);
- end;
- dir__TR: begin
- dvi_down(c_wd);
- dvi_left(c_dp);
- dvi_put(c);
- dvi_right(c_dp);
- end;
- dir__BL: begin
- dvi_left(c_ht);
- dvi_put(c);
- dvi_right(c_ht);
- dvi_up(c_wd);
- end;
- dir__BR: begin
- dvi_left(c_dp);
- dvi_put(c);
- dvi_right(c_dp);
- dvi_up(c_wd);
- end;
- dir__LL,dir__LR: begin
- dvi_down(c_ht);
- dvi_put(c);
- dvi_up(c_ht);
- dvi_right(c_wd);
- end;
- dir__RL,dir__RR: begin
- dvi_left(c_wd);
- dvi_down(c_ht);
- dvi_put(c);
- dvi_up(c_ht);
- end;
- dir__TT,dir__TB: begin
- dvi_down(c_wd);
- dvi_left(c_ht);
- dvi_put(c);
- dvi_right(c_ht);
- end;
- dir__BT,dir__BB: begin
- dvi_left(c_ht);
- dvi_put(c);
- dvi_right(c_ht);
- dvi_up(c_wd);
- end;
- end;
- p:=link(p);
- dvi_h:=cur_h;
- @<DIR: Check if the text direction has changed@>;
- until not is_char_node(p);
- end
-else @<Output the non-|char_node| |p| for |hlist_out|
- and move to the next node@>
-@z
-%-------------------------
-@x [32] m.622
-rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
- goto fin_rule;
- end;
-whatsit_node: @<Output the whatsit node |p| in an hlist@>;
-glue_node: @<Move right or output leaders@>;
-kern_node,math_node:cur_h:=cur_h+width(p);
-ligature_node: @<Make node |p| look like a |char_node| and |goto reswitch|@>;
-othercases do_nothing
-endcases;@/
-goto next_p;
-fin_rule: @<Output a rule in an hlist@>;
-move_past: cur_h:=cur_h+rule_wd;
-next_p:
-if type(p)<>kern_node then should_create_special:=true;
-p:=link(p);
-end
-@y
-rule_node: begin
- if rule_dir(p)=-1 then begin
- print("Rule direction is not defined"); print_ln;
- end;
- if not (dir_orthogonal(dir_primary[rule_dir(p)])
- (dir_primary[dvi_direction])) then begin
- rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
- end
- else begin
- rule_ht:=width(p) div 2;
- rule_dp:=width(p) div 2;
- rule_wd:=height(p)+depth(p);
- end;
- goto fin_rule;
- end;
-whatsit_node: @<Output the whatsit node |p| in an hlist@>;
-glue_node: @<Move right or output leaders@>;
-kern_node,math_node:cur_h:=cur_h+width(p);
-ligature_node: @<Make node |p| look like a |char_node| and |goto reswitch|@>;
-othercases do_nothing
-endcases;@/
-goto next_p;
-fin_rule: @<Output a rule in an hlist@>;
-move_past: cur_h:=cur_h+rule_wd;
-next_p:
-if type(p)<>kern_node then should_create_special:=true;
-p:=link(p);
-@<DIR: Check if the text direction has changed@>;
-end
-@z
-%-------------------------
-@x [32] m.623
-if list_ptr(p)=null then cur_h:=cur_h+width(p)
-else begin save_h:=dvi_h; save_v:=dvi_v;
- cur_v:=base_line+shift_amount(p); {shift the box down}
- temp_ptr:=p; edge:=cur_h;
- if type(p)=vlist_node then vlist_out@+else hlist_out;
- dvi_h:=save_h; dvi_v:=save_v;
- cur_h:=edge+width(p); cur_v:=base_line;
- end
-@y
-begin
-if not (dir_orthogonal(dir_primary[box_dir(p)])
- (dir_primary[dvi_direction])) then begin
- effective_horizontal:=width(p);
- basepoint_vertical:=0;
- if dir_opposite(dir_secondary[box_dir(p)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=width(p)
- else
- basepoint_horizontal:=0;
- end
-else begin
- effective_horizontal:=height(p)+depth(p);
- if not (is_mirrored(box_dir(p))) then
- if dir_eq(dir_primary[box_dir(p)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=height(p)
- else
- basepoint_horizontal:=depth(p)
- else
- if dir_eq(dir_primary[box_dir(p)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=height(p)
- else
- basepoint_horizontal:=depth(p);
- if dir_eq(dir_secondary[box_dir(p)])
- (dir_primary[dvi_direction]) then
- basepoint_vertical:= -(width(p) div 2)
- else
- basepoint_vertical:= (width(p) div 2);
- end;
-if not (is_mirrored(dvi_direction)) then
- basepoint_vertical := basepoint_vertical + shift_amount(p)
- {shift the box `down'}
-else
- basepoint_vertical := basepoint_vertical - shift_amount(p);
- {shift the box `up'}
-if list_ptr(p)=null then cur_h:=cur_h + effective_horizontal
-else begin
- temp_ptr:=p; edge:=cur_h; cur_h:=cur_h + basepoint_horizontal;
- edge_v:=cur_v; cur_v:=base_line + basepoint_vertical;
- {if dvi_direction<>box_dir(p) then begin}
- synch_h; synch_v;
- {end;}
- save_h:=dvi_h; save_v:=dvi_v;
- if type(p)=vlist_node then vlist_out@+else hlist_out;
- dvi_h:=save_h; dvi_v:=save_v;
- cur_h:=edge+effective_horizontal; cur_v:=base_line;
- end
-end
-@z
-%-------------------------
-@x [32] m.624
- dvi_out(set_rule); dvi_four(rule_ht); dvi_four(rule_wd);
-@y
- case font_direction(dvi_direction) of
- dir__LT: begin
- dvi_set_rule(rule_ht)(rule_wd);
- end;
- dir__LB: begin
- dvi_down(rule_ht);
- dvi_set_rule(rule_ht)(rule_wd);
- dvi_up(rule_ht);
- end;
- dir__RT: begin
- dvi_left(rule_wd);
- dvi_put_rule(rule_ht)(rule_wd);
- end;
- dir__RB: begin
- dvi_left(rule_wd);
- dvi_down(rule_ht);
- dvi_put_rule(rule_ht)(rule_wd);
- dvi_up(rule_ht);
- end;
- dir__TL: begin
- dvi_down(rule_wd);
- dvi_left(rule_ht);
- dvi_set_rule(rule_wd)(rule_ht);
- end;
- dir__TR: begin
- dvi_down(rule_wd);
- dvi_put_rule(rule_wd)(rule_ht);
- end;
- dir__BL: begin
- dvi_left(rule_ht);
- dvi_set_rule(rule_wd)(rule_ht);
- dvi_up(rule_wd);
- end;
- dir__BR: begin
- dvi_put_rule(rule_wd)(rule_ht);
- dvi_up(rule_wd);
- end;
- end;
-@z
-%-------------------------
-@x [32] m.626
-leader_wd:=width(leader_box);
-@y
-if not (dir_orthogonal(dir_primary[box_dir(leader_box)])
- (dir_primary[dvi_direction])) then
- leader_wd:=width(leader_box)
-else
- leader_wd:=height(leader_box)+depth(leader_box);
-@z
-%-------------------------
-@x [32] m.628
-@<Output a leader box at |cur_h|, ...@>=
-begin cur_v:=base_line+shift_amount(leader_box); synch_v; save_v:=dvi_v;@/
-synch_h; save_h:=dvi_h; temp_ptr:=leader_box;
-outer_doing_leaders:=doing_leaders; doing_leaders:=true;
-if type(leader_box)=vlist_node then vlist_out@+else hlist_out;
-doing_leaders:=outer_doing_leaders;
-dvi_v:=save_v; dvi_h:=save_h; cur_v:=base_line;
-cur_h:=save_h+leader_wd+lx;
-end
-@y
-@<Output a leader box at |cur_h|, ...@>=
-begin
-if not (dir_orthogonal(dir_primary[box_dir(leader_box)])
- (dir_primary[dvi_direction])) then begin
- basepoint_vertical:=0;
- if dir_opposite(dir_secondary[box_dir(leader_box)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=width(leader_box)
- else
- basepoint_horizontal:=0;
- end
-else begin
- if not (is_mirrored(box_dir(leader_box))) then
- if dir_eq(dir_primary[box_dir(leader_box)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=height(leader_box)
- else
- basepoint_horizontal:=depth(leader_box)
- else
- if dir_eq(dir_primary[box_dir(leader_box)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=depth(leader_box)
- else
- basepoint_horizontal:=height(leader_box);
- if dir_eq(dir_secondary[box_dir(leader_box)])
- (dir_primary[dvi_direction]) then
- basepoint_vertical:= -(width(leader_box) div 2)
- else
- basepoint_vertical:= (width(leader_box) div 2);
- end;
-if not (is_mirrored(dvi_direction)) then
- basepoint_vertical := basepoint_vertical + shift_amount(leader_box)
- {shift the box `down'}
-else
- basepoint_vertical := basepoint_vertical - shift_amount(leader_box);
- {shift the box `up'}
-temp_ptr:=leader_box;
-synch_h; save_h:=dvi_h;
-cur_h:=cur_h + basepoint_horizontal;
-edge_v:=cur_v; cur_v:=base_line + basepoint_vertical;
-synch_v; save_v:=dvi_v;
-outer_doing_leaders:=doing_leaders; doing_leaders:=true;
-if type(leader_box)=vlist_node then vlist_out@+else hlist_out;
-doing_leaders:=outer_doing_leaders;
-dvi_v:=save_v; dvi_h:=save_h; cur_v:=base_line;
-cur_h:=save_h+leader_wd+lx;
-end
-@z
-%-------------------------
-@x [32] m.629
-@!cur_g:scaled; {rounded equivalent of |cur_glue| times the glue ratio}
-begin cur_g:=0; cur_glue:=float_constant(0);
-this_box:=temp_ptr; g_order:=glue_order(this_box);
-g_sign:=glue_sign(this_box); p:=list_ptr(this_box);
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr; left_edge:=cur_h; cur_v:=cur_v-height(this_box);
-top_edge:=cur_v;
-while p<>null do @<Output node |p| for |vlist_out| and move to the next node,
- maintaining the condition |cur_h=left_edge|@>;
-prune_movements(save_loc);
-if cur_s>0 then dvi_pop(save_loc);
-decr(cur_s);
-@y
-@!cur_g:scaled; {rounded equivalent of |cur_glue| times the glue ratio}
-@!save_direction: integer;
-@!effective_vertical: scaled;
-@!basepoint_horizontal: scaled;
-@!basepoint_vertical: scaled;
-@!edge_v: scaled;
-@!saving_v: scaled;
-@!saving_h: scaled;
-begin cur_g:=0; cur_glue:=float_constant(0);
-this_box:=temp_ptr; g_order:=glue_order(this_box);
-g_sign:=glue_sign(this_box); p:=list_ptr(this_box);
-saving_v:=dvi_v; saving_h:=dvi_h;
-save_direction:=dvi_direction;
-if dvi_direction<>box_dir(this_box) then begin
- dvi_direction:=box_dir(this_box);
- synch_v; synch_h;
- saving_h:=dvi_h; saving_v:=dvi_v;
- end;
-incr(cur_s);
-if cur_s>0 then dvi_out(push);
-if cur_s>max_push then max_push:=cur_s;
-save_loc:=dvi_offset+dvi_ptr; left_edge:=cur_h; cur_v:=cur_v-height(this_box);
-top_edge:=cur_v;
-while p<>null do @<Output node |p| for |vlist_out| and move to the next node,
- maintaining the condition |cur_h=left_edge|@>;
-prune_movements(save_loc);
-if cur_s>0 then dvi_pop(save_loc);
-decr(cur_s);
-if dvi_direction<>save_direction then begin
- dvi_direction:=save_direction;
- synch_v; synch_h;
- cur_h:=saving_h; cur_v:=saving_v;
- end;
-@z
-%-------------------------
-@x [32] m.631
-rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
- goto fin_rule;
- end;
-@y
-rule_node: begin
- if not (dir_orthogonal(dir_primary[rule_dir(p)])
- (dir_primary[dvi_direction])) then begin
- rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p);
- end
- else begin
- rule_ht:=width(p) div 2;
- rule_dp:=width(p) div 2;
- rule_wd:=height(p)+depth(p);
- end;
- goto fin_rule;
- end;
-@z
-%-------------------------
-@x [32] m.632
-@<Output a box in a vlist@>=
-if list_ptr(p)=null then cur_v:=cur_v+height(p)+depth(p)
-else begin cur_v:=cur_v+height(p); synch_v;
- save_h:=dvi_h; save_v:=dvi_v;
- cur_h:=left_edge+shift_amount(p); {shift the box right}
- temp_ptr:=p;
- if type(p)=vlist_node then vlist_out@+else hlist_out;
- dvi_h:=save_h; dvi_v:=save_v;
- cur_v:=save_v+depth(p); cur_h:=left_edge;
- end
-@y
-@<Output a box in a vlist@>=
-begin
-if not (dir_orthogonal(dir_primary[box_dir(p)])
- (dir_primary[dvi_direction])) then begin
- effective_vertical:=height(p)+depth(p);
- if (is_mirrored(box_dir(p))) then
- basepoint_vertical:=depth(p)
- else
- basepoint_vertical:=height(p);
- if dir_opposite(dir_secondary[box_dir(p)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=width(p)
- else
- basepoint_horizontal:=0;
- end
-else begin
- effective_vertical:=width(p);
- if not (is_mirrored(box_dir(p))) then
- if dir_eq(dir_primary[box_dir(p)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=height(p)
- else
- basepoint_horizontal:=depth(p)
- else
- if dir_eq(dir_primary[box_dir(p)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=height(p)
- else
- basepoint_horizontal:=depth(p);
- if dir_eq(dir_secondary[box_dir(p)])
- (dir_primary[dvi_direction]) then
- basepoint_vertical:=0
- else
- basepoint_vertical:=width(p);
- end;
-basepoint_horizontal := basepoint_horizontal + shift_amount(p);
- {shift the box `right'}
-if list_ptr(p)=null then begin
- cur_v:=cur_v+effective_vertical;
- end
-else begin
- edge_v:=cur_v;
- cur_h:=left_edge + basepoint_horizontal;
- cur_v:=cur_v + basepoint_vertical;
- if dvi_direction<>box_dir(p) then begin
- synch_h;
- end;
- synch_v;
- save_h:=dvi_h; save_v:=dvi_v;
- temp_ptr:=p;
- if type(p)=vlist_node then vlist_out@+else hlist_out;
- dvi_h:=save_h; dvi_v:=save_v;
- cur_h:=left_edge; cur_v:=edge_v + effective_vertical;
- end
-end
-@z
-%-------------------------
-@x [32] m.633
- dvi_out(put_rule); dvi_four(rule_ht); dvi_four(rule_wd);
-@y
- case font_direction(dvi_direction) of
- dir__LT: begin
- dvi_put_rule(rule_ht)(rule_wd);
- end;
- dir__LB: begin
- dvi_down(rule_ht);
- dvi_put_rule(rule_ht)(rule_wd);
- dvi_up(rule_ht);
- end;
- dir__RT: begin
- dvi_left(rule_wd);
- dvi_set_rule(rule_ht)(rule_wd);
- end;
- dir__RB: begin
- dvi_down(rule_ht);
- dvi_left(rule_wd);
- dvi_set_rule(rule_ht)(rule_wd);
- dvi_up(rule_ht);
- end;
- dir__TL: begin
- dvi_down(rule_wd);
- dvi_left(rule_ht);
- dvi_set_rule(rule_wd)(rule_ht);
- dvi_up(rule_wd);
- end;
- dir__TR: begin
- dvi_down(rule_wd);
- dvi_put_rule(rule_wd)(rule_ht);
- dvi_up(rule_wd);
- end;
- dir__BL: begin
- dvi_left(rule_ht);
- dvi_set_rule(rule_wd)(rule_ht);
- end;
- dir__BR: begin
- dvi_put_rule(rule_wd)(rule_ht);
- end;
- end;
-@z
-%-------------------------
-@x [32] m.635
-leader_ht:=height(leader_box)+depth(leader_box);
-@y
-if not (dir_orthogonal(dir_primary[box_dir(leader_box)])
- (dir_primary[dvi_direction])) then
- leader_ht:=height(leader_box)+depth(leader_box)
-else
- leader_ht:=width(leader_box);
-@z
-%-------------------------
-@x [32] m.637
-@<Output a leader box at |cur_v|, ...@>=
-begin cur_h:=left_edge+shift_amount(leader_box); synch_h; save_h:=dvi_h;@/
-cur_v:=cur_v+height(leader_box); synch_v; save_v:=dvi_v;
-temp_ptr:=leader_box;
-outer_doing_leaders:=doing_leaders; doing_leaders:=true;
-if type(leader_box)=vlist_node then vlist_out@+else hlist_out;
-doing_leaders:=outer_doing_leaders;
-dvi_v:=save_v; dvi_h:=save_h; cur_h:=left_edge;
-cur_v:=save_v-height(leader_box)+leader_ht+lx;
-end
-@y
-@<Output a leader box at |cur_v|, ...@>=
-begin
-if not (dir_orthogonal(dir_primary[box_dir(leader_box)])
- (dir_primary[dvi_direction])) then begin
- effective_vertical:=height(leader_box)+depth(leader_box);
- if (is_mirrored(box_dir(leader_box))) then
- basepoint_vertical:=depth(leader_box)
- else
- basepoint_vertical:=height(leader_box);
- if dir_opposite(dir_secondary[box_dir(leader_box)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=width(leader_box)
- else
- basepoint_horizontal:=0;
- end
-else begin
- effective_vertical:=width(leader_box);
- if not (is_mirrored(box_dir(leader_box))) then
- if dir_eq(dir_primary[box_dir(leader_box)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=height(leader_box)
- else
- basepoint_horizontal:=depth(leader_box)
- else
- if dir_eq(dir_primary[box_dir(leader_box)])
- (dir_secondary[dvi_direction]) then
- basepoint_horizontal:=depth(leader_box)
- else
- basepoint_horizontal:=height(leader_box);
- if dir_eq(dir_secondary[box_dir(leader_box)])
- (dir_primary[dvi_direction]) then
- basepoint_vertical:= width(leader_box)
- else
- basepoint_vertical:= 0;
- end;
-basepoint_horizontal := basepoint_horizontal + shift_amount(leader_box);
- {shift the box `right'}
-temp_ptr:=leader_box;
-edge_v:=cur_v;
-cur_h:=left_edge + basepoint_horizontal;
-cur_v:=cur_v + basepoint_vertical;
-synch_h; synch_v; save_h:=dvi_h; save_v:=dvi_v;
-outer_doing_leaders:=doing_leaders; doing_leaders:=true;
-if type(leader_box)=vlist_node then vlist_out@+else hlist_out;
-doing_leaders:=outer_doing_leaders;
-dvi_h:=save_h; dvi_v:=save_v;
-cur_h:=left_edge; cur_v:=edge_v+leader_ht+lx;
-end
-@z
-%-------------------------
-@x [32] m.640
-cur_v:=height(p)+v_offset; temp_ptr:=p;
-if type(p)=vlist_node then vlist_out@+else hlist_out;
-@y
-dvi_direction:=page_direction;
-case box_direction(dvi_direction) of
-dir_TL_,dir_LT_: begin
- end;
-dir_TR_,dir_RT_: begin
- dvi_right(page_right_offset);
- end;
-dir_RB_,dir_BR_: begin
- dvi_right(page_right_offset);
- dvi_down(page_bottom_offset);
- end;
-dir_BL_,dir_LB_: begin
- dvi_down(page_bottom_offset);
- end;
-end;
-cur_h:=h_offset;
-cur_v:=height(p)+v_offset;
-case box_direction(dvi_direction) of
-dir_TL_: begin
- dvi_down(cur_v);
- dvi_right(cur_h);
- end;
-dir_TR_: begin
- dvi_down(cur_v);
- dvi_right(-cur_h);
- end;
-dir_LT_: begin
- dvi_right(cur_v);
- dvi_down(cur_h);
- end;
-dir_LB_: begin
- dvi_right(cur_v);
- dvi_down(-cur_h);
- end;
-dir_BL_: begin
- dvi_down(-cur_v);
- dvi_right(cur_h);
- end;
-dir_BR_: begin
- dvi_down(-cur_v);
- dvi_right(-cur_h);
- end;
-dir_RT_: begin
- dvi_right(-cur_v);
- dvi_down(cur_h);
- end;
-dir_RB_: begin
- dvi_right(-cur_v);
- dvi_down(-cur_h);
- end;
-end;
-dvi_h:=cur_h;
-dvi_v:=cur_v;
-temp_ptr:=p;
-if type(p)=vlist_node then vlist_out@+else hlist_out;
-@z
-%-------------------------
-@x [33] m.644
-@d exactly=0 {a box dimension is pre-specified}
-@d additional=1 {a box dimension is increased from the natural one}
-@d natural==0,additional {shorthand for parameters to |hpack| and |vpack|}
-@y
-@d exactly=0 {a box dimension is pre-specified}
-@d additional=1 {a box dimension is increased from the natural one}
-@d natural==0,additional {shorthand for parameters to |hpack| and |vpack|}
-
-@<Glob...@>=
-spec_direction:integer;
-
-@z
-%-------------------------
-@x [33] m.645
-procedure scan_spec(@!c:group_code;@!three_codes:boolean);
- {scans a box specification and left brace}
-label found;
-var @!s:integer; {temporarily saved value}
-@!spec_code:exactly..additional;
-begin if three_codes then s:=saved(0);
-if scan_keyword("to") then spec_code:=exactly
-@.to@>
-else if scan_keyword("spread") then spec_code:=additional
-@.spread@>
-else begin spec_code:=additional; cur_val:=0;
- goto found;
- end;
-scan_normal_dimen;
-found: if three_codes then
- begin saved(0):=s; incr(save_ptr);
- end;
-saved(0):=spec_code; saved(1):=cur_val; save_ptr:=save_ptr+2;
-new_save_level(c); scan_left_brace;
-end;
-@y
-procedure scan_spec(@!c:group_code;@!four_codes:boolean);
- {scans a box specification and left brace}
-label found;
-var @!s:integer; {temporarily saved value}
-@!spec_code:exactly..additional;
-begin if four_codes then s:=saved(0);
-if abs(mode)=mmode then
- spec_direction:=math_direction
-else
- spec_direction:=text_direction;
-if scan_keyword("dir") then begin
- scan_dir; spec_direction:=cur_val;
- end;
-if scan_keyword("to") then spec_code:=exactly
-@.to@>
-else if scan_keyword("spread") then spec_code:=additional
-@.spread@>
-else begin spec_code:=additional; cur_val:=0;
- goto found;
- end;
-scan_normal_dimen;
-found: if four_codes then
- begin saved(0):=s; incr(save_ptr);
- end;
-saved(0):=spec_code; saved(1):=cur_val;
-saved(2):=spec_direction;
-save_ptr:=save_ptr+3;
-new_save_level(c); scan_left_brace;
-eq_word_define(dir_base+text_direction_code,spec_direction);
-make_local_direction(spec_direction,true);
-end;
-@z
-%-------------------------
-@x [33] m.649
-@p function hpack(@!p:pointer;@!w:scaled;@!m:small_number):pointer;
-label reswitch, common_ending, exit;
-var r:pointer; {the box node that will be returned}
-@!q:pointer; {trails behind |p|}
-@!h,@!d,@!x:scaled; {height, depth, and natural width}
-@!s:scaled; {shift amount}
-@!g:pointer; {points to a glue specification}
-@!o:glue_ord; {order of infinity}
-@!f:internal_font_number; {the font in a |char_node|}
-@!i:four_quarters; {font information about a |char_node|}
-@!hd:eight_bits; {height and depth indices for a character}
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=hlist_node;
-@y
-@p function hpack(@!p:pointer;@!w:scaled;@!m:small_number;@!hpack_dir:integer):
-pointer;
-label reswitch, common_ending, exit;
-var r:pointer; {the box node that will be returned}
-@!q:pointer; {trails behind |p|}
-@!h,@!d,@!x:scaled; {height, depth, and natural width}
-@!s:scaled; {shift amount}
-@!g:pointer; {points to a glue specification}
-@!o:glue_ord; {order of infinity}
-@!f:internal_font_number; {the font in a |char_node|}
-@!i:four_quarters; {font information about a |char_node|}
-@!hd:eight_bits; {height and depth indices for a character}
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=hlist_node;
-box_dir(r):=hpack_dir;
-if (hpack_dir<0) or (hpack_dir>31) then begin
- print_ln; print("hpack_dir="); print_int(hpack_dir); print_ln;
- end;
-ptr_info(r):=local_par_info;
-info_incr_ref_count(local_par_info);
-@z
-%-------------------------
-@x [33] m.649
-exit: hpack:=r;
-end;
-@y
-exit:
-{
-if is_mirrored(hpack_dir) then begin
- hd:=depth(p); depth(p):=height(p); height(p):=hd;
- end;
-}
-hpack:=r;
-end;
-@z
-%-------------------------
-@x [33] m.653
-@<Incorporate box dimensions into the dimensions of the hbox...@>=
-begin x:=x+width(p);
-if type(p)>=rule_node then s:=0 @+else s:=shift_amount(p);
-if height(p)-s>h then h:=height(p)-s;
-if depth(p)+s>d then d:=depth(p)+s;
-end
-@y
-@<Incorporate box dimensions into the dimensions of the hbox...@>=
-begin
-if (type(p)=hlist_node) or (type(p)=vlist_node) then begin
- if dir_orthogonal(dir_primary[hpack_dir])
- (dir_primary[box_dir(p)]) then begin
- x:=x+height(p)+depth(p);
- s:=shift_amount(p);
- if (width(p) div 2)-s>h then h:=(width(p) div 2)-s;
- if (width(p) div 2)+s>d then d:=(width(p) div 2)+s;
- end
- else if dir_opposite(dir_primary[hpack_dir])
- (dir_primary[box_dir(p)]) then begin
- x:=x+width(p);
- s:=shift_amount(p);
- if depth(p)-s>h then h:=depth(p)-s;
- if height(p)+s>d then d:=height(p)+s;
- end
- else begin
- x:=x+width(p);
- s:=shift_amount(p);
- if height(p)-s>h then h:=height(p)-s;
- if depth(p)+s>d then d:=depth(p)+s;
- end
- end
-else begin
- x:=x+width(p);
- if type(p)>=rule_node then s:=0 @+else s:=shift_amount(p);
- if height(p)-s>h then h:=height(p)-s;
- if depth(p)+s>d then d:=depth(p)+s;
- end;
-end
-@z
-%-------------------------
-@x [33] m.654
-@<Incorporate character dimensions into the dimensions of the hbox...@>=
-begin f:=font(p); i:=char_info(f)(character(p)); hd:=height_depth(i);
-x:=x+char_width(f)(i);@/
-s:=char_height(f)(hd);@+if s>h then h:=s;
-s:=char_depth(f)(hd);@+if s>d then d:=s;
-p:=link(p);
-end
-@y
-@<Incorporate character dimensions into the dimensions of the hbox...@>=
-begin f:=font(p); i:=char_info(f)(character(p)); hd:=height_depth(i);
-if is_rotated(get_dir(p)) then begin
- x:=x+char_height(f)(hd)+char_depth(f)(hd);@/
- s:=char_width(f)(i) div 2;@+if s>h then h:=s;
- s:=char_width(f)(i) div 2;@+if s>d then d:=s;
- end
-else if dir_opposite(dir_tertiary[hpack_dir])
- (dir_tertiary[get_dir(p)]) then begin
- x:=x+char_width(f)(i);@/
- s:=char_depth(f)(hd);@+if s>h then h:=s;
- s:=char_height(f)(hd);@+if s>d then d:=s;
- end
-else begin
- x:=x+char_width(f)(i);@/
- s:=char_height(f)(hd);@+if s>h then h:=s;
- s:=char_depth(f)(hd);@+if s>d then d:=s;
- end;
-p:=link(p);
-end
-@z
-%-------------------------
-@x [33] m.666
-@ @<Report an overfull hbox and |goto common_ending|, if...@>=
-if (-x-total_shrink[normal]>hfuzz)or(hbadness<100) then
- begin if (overfull_rule>0)and(-x-total_shrink[normal]>hfuzz) then
- begin while link(q)<>null do q:=link(q);
- link(q):=new_rule;
- width(link(q)):=overfull_rule;
- end;
-@y
-@ @<Report an overfull hbox and |goto common_ending|, if...@>=
-if (-x-total_shrink[normal]>hfuzz)or(hbadness<100) then
- begin if (overfull_rule>0)and(-x-total_shrink[normal]>hfuzz) then
- begin while link(q)<>null do q:=link(q);
- link(q):=new_rule; rule_dir(q):=box_dir(r);
- width(link(q)):=overfull_rule;
- end;
-@z
-%-------------------------
-@x [33] m.668
-@p function vpackage(@!p:pointer;@!h:scaled;@!m:small_number;@!l:scaled):
- pointer;
-label common_ending, exit;
-var r:pointer; {the box node that will be returned}
-@!w,@!d,@!x:scaled; {width, depth, and natural height}
-@!s:scaled; {shift amount}
-@!g:pointer; {points to a glue specification}
-@!o:glue_ord; {order of infinity}
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=vlist_node;
-@y
-@p function vpackage(@!p:pointer;@!h:scaled;@!m:small_number;@!l:scaled;
-@!vpack_dir:integer):pointer;
-label common_ending, exit;
-var r:pointer; {the box node that will be returned}
-@!w,@!d,@!x:scaled; {width, depth, and natural height}
-@!s:scaled; {shift amount}
-@!g:pointer; {points to a glue specification}
-@!o:glue_ord; {order of infinity}
-@!dh:scaled;
-begin last_badness:=0; r:=get_node(box_node_size); type(r):=vlist_node;
-box_dir(r):=vpack_dir;
-if (vpack_dir<0) or (vpack_dir>31) then begin
- print_ln; print("vpack_dir="); print_int(vpack_dir); print_ln;
- end;
-ptr_info(r):=local_par_info;
-info_incr_ref_count(local_par_info);
-@z
-%-------------------------
-@x [33] m.668
-exit: vpackage:=r;
-end;
-@y
-exit:
-{
-if is_mirrored(vpack_dir) then begin
- dh:=depth(r); depth(r):=height(r); height(r):=dh;
- end;
-}
-vpackage:=r;
-end;
-@z
-%-------------------------
-@x [33] m.670
-@ @<Incorporate box dimensions into the dimensions of the vbox...@>=
-begin x:=x+d+height(p); d:=depth(p);
-if type(p)>=rule_node then s:=0 @+else s:=shift_amount(p);
-if width(p)+s>w then w:=width(p)+s;
-end
-@y
-@ @<Incorporate box dimensions into the dimensions of the vbox...@>=
-begin
-if (type(p)=hlist_node) or (type(p)=vlist_node) then begin
- if dir_orthogonal(dir_primary[vpack_dir])
- (dir_primary[box_dir(p)]) then begin
- x:=x+d+(width(p) div 2); d:=width(p) div 2;
- s:=shift_amount(p);
- if depth(p)+height(p)+s>w then w:=depth(p)+height(p)+s;
- end
- else if dir_opposite(dir_primary[vpack_dir])
- (dir_primary[box_dir(p)]) then begin
- x:=x+d+depth(p); d:=height(p);
- s:=shift_amount(p);
- if width(p)+s>w then w:=width(p)+s;
- end
- else begin
- x:=x+d+height(p); d:=depth(p);
- s:=shift_amount(p);
- if width(p)+s>w then w:=width(p)+s;
- end
- end
-else
- begin x:=x+d+height(p); d:=depth(p);
- if type(p)>=rule_node then s:=0 @+else s:=shift_amount(p);
- if width(p)+s>w then w:=width(p)+s;
- end;
-end
-@z
-%-------------------------
-@x [33] m.679
- begin d:=width(baseline_skip)-prev_depth-height(b);
- if d<line_skip_limit then p:=new_param_glue(line_skip_code)
- else begin p:=new_skip_param(baseline_skip_code);
- width(temp_ptr):=d; {|temp_ptr=glue_ptr(p)|}
- end;
- link(tail):=p; tail:=p;
- end;
-link(tail):=b; tail:=b; prev_depth:=depth(b);
-@y
- begin
- if (type(b)=hlist_node) and (is_mirrored(box_dir(b))) then
- d:=width(baseline_skip)-prev_depth-depth(b)
- else
- d:=width(baseline_skip)-prev_depth-height(b);
- if d<line_skip_limit then p:=new_param_glue(line_skip_code)
- else begin p:=new_skip_param(baseline_skip_code);
- width(temp_ptr):=d; {|temp_ptr=glue_ptr(p)|}
- end;
- link(tail):=p; tail:=p;
- end;
-link(tail):=b; tail:=b;
-if (type(b)=hlist_node) and (is_mirrored(box_dir(b))) then
- prev_depth:=height(b)
-else
- prev_depth:=depth(b);
-@z
-%-------------------------
-@x [35] m.704
-@p function fraction_rule(@!t:scaled):pointer;
- {construct the bar for a fraction}
-var p:pointer; {the new node}
-begin p:=new_rule; height(p):=t; depth(p):=0; fraction_rule:=p;
-end;
-@y
-@p function fraction_rule(@!t:scaled):pointer;
- {construct the bar for a fraction}
-var p:pointer; {the new node}
-begin p:=new_rule; rule_dir(p):=info(math_dir_stack);
-height(p):=t; depth(p):=0; fraction_rule:=p;
-end;
-@z
-%-------------------------
-@x [35] m.705
-@p function overbar(@!b:pointer;@!k,@!t:scaled):pointer;
-var p,@!q:pointer; {nodes being constructed}
-begin p:=new_kern(k); link(p):=b; q:=fraction_rule(t); link(q):=p;
-p:=new_kern(t); link(p):=q; overbar:=vpack(p,natural);
-end;
-@y
-@p function overbar(@!b:pointer;@!k,@!t:scaled):pointer;
-var p,@!q:pointer; {nodes being constructed}
-begin p:=new_kern(k); link(p):=b; q:=fraction_rule(t); link(q):=p;
-p:=new_kern(t); link(p):=q;
-overbar:=vpackage(p,natural,max_dimen,info(math_dir_stack));
-end;
-@z
-%-------------------------
-@x [36] m.706
-else begin b:=new_null_box;
-@y
-else begin b:=new_null_box; box_dir(b):=info(math_dir_stack);
-@z
-%-------------------------
-@x [36] m.709
-function char_box(@!f:internal_font_number;@!c:quarterword):pointer;
-var q:four_quarters;
-@!hd:eight_bits; {|height_depth| byte}
-@!b,@!p:pointer; {the new box and its character node}
-begin q:=char_info(f)(c); hd:=height_depth(q);
-b:=new_null_box; width(b):=char_width(f)(q)+char_italic(f)(q);
-height(b):=char_height(f)(hd); depth(b):=char_depth(f)(hd);
-p:=get_avail; character(p):=c; font(p):=f; list_ptr(b):=p; char_box:=b;
-end;
-@y
-function char_box(@!f:internal_font_number;@!c:quarterword):pointer;
-var q:four_quarters;
-@!hd:eight_bits; {|height_depth| byte}
-@!b,@!p:pointer; {the new box and its character node}
-begin q:=char_info(f)(c); hd:=height_depth(q);
-b:=new_null_box; width(b):=char_width(f)(q)+char_italic(f)(q);
-box_dir(b):=info(math_dir_stack);
-height(b):=char_height(f)(hd); depth(b):=char_depth(f)(hd);
-p:=get_avail; character(p):=c; font(p):=f; list_ptr(b):=p;
-ptr_info(p):=local_par_info; info_incr_ref_count(local_par_info);
-char_box:=b;
-end;
-@z
-%-------------------------
-@x [36] m.713
-@ @<Construct an extensible...@>=
-begin b:=new_null_box;
-@y
-@ @<Construct an extensible...@>=
-begin b:=new_null_box;
-box_dir(b):=info(math_dir_stack);
-@z
-%-------------------------
-@x [36] m.715
-@p function rebox(@!b:pointer;@!w:scaled):pointer;
-var p:pointer; {temporary register for list manipulation}
-@!f:internal_font_number; {font in a one-character box}
-@!v:scaled; {width of a character without italic correction}
-begin if (width(b)<>w)and(list_ptr(b)<>null) then
- begin if type(b)=vlist_node then b:=hpack(b,natural);
- p:=list_ptr(b);
- if (is_char_node(p))and(link(p)=null) then
- begin f:=font(p); v:=char_width(f)(char_info(f)(character(p)));
- if v<>width(b) then link(p):=new_kern(width(b)-v);
- end;
- free_node(b,box_node_size);
- b:=new_glue(ss_glue); link(b):=p;
- while link(p)<>null do p:=link(p);
- link(p):=new_glue(ss_glue);
- rebox:=hpack(b,w,exactly);
- end
-else begin width(b):=w; rebox:=b;
- end;
-end;
-@y
-@p function rebox(@!b:pointer;@!w:scaled):pointer;
-var p:pointer; {temporary register for list manipulation}
-@!f:internal_font_number; {font in a one-character box}
-@!v:scaled; {width of a character without italic correction}
-begin if (width(b)<>w)and(list_ptr(b)<>null) then
- begin if type(b)=vlist_node then b:=hpack(b,natural,info(math_dir_stack));
- p:=list_ptr(b);
- if (is_char_node(p))and(link(p)=null) then
- begin f:=font(p); v:=char_width(f)(char_info(f)(character(p)));
- if v<>width(b) then link(p):=new_kern(width(b)-v);
- end;
- free_node(b,box_node_size);
- b:=new_glue(ss_glue); link(b):=p;
- while link(p)<>null do p:=link(p);
- link(p):=new_glue(ss_glue);
- rebox:=hpack(b,w,exactly,info(math_dir_stack));
- end
-else begin width(b):=w; rebox:=b;
- end;
-end;
-@z
-%-------------------------
-@x [36] m.720
-function clean_box(@!p:pointer;@!s:integer):pointer;
-label found;
-var q:pointer; {beginning of a list to be boxed}
-@!save_style:integer; {|cur_style| to be restored}
-@!x:pointer; {box to be returned}
-@!r:pointer; {temporary pointer}
-begin case math_type(p) of
-math_char: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p];
- end;
-sub_box: begin q:=info(p); goto found;
- end;
-sub_mlist: cur_mlist:=info(p);
-othercases begin q:=new_null_box; goto found;
- end
-endcases;@/
-save_style:=cur_style; cur_style:=s; mlist_penalties:=false;@/
-mlist_to_hlist; q:=link(temp_head); {recursive call}
-cur_style:=save_style; {restore the style}
-@<Set up the values of |cur_size| and |cur_mu|, based on |cur_style|@>;
-found: if is_char_node(q)or(q=null) then x:=hpack(q,natural)
- else if (link(q)=null)and(type(q)<=vlist_node)and(shift_amount(q)=0) then
- x:=q {it's already clean}
- else x:=hpack(q,natural);
-@<Simplify a trivial box@>;
-clean_box:=x;
-end;
-@y
-function clean_box(@!p:pointer;@!s:integer):pointer;
-label found;
-var q:pointer; {beginning of a list to be boxed}
-@!save_style:integer; {|cur_style| to be restored}
-@!x:pointer; {box to be returned}
-@!r:pointer; {temporary pointer}
-begin case math_type(p) of
-math_char: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p];
- end;
-sub_box: begin q:=info(p); goto found;
- end;
-sub_mlist: cur_mlist:=info(p);
-othercases begin q:=new_null_box; box_dir(q):=info(math_dir_stack); goto found;
- end
-endcases;@/
-save_style:=cur_style; cur_style:=s; mlist_penalties:=false;@/
-mlist_to_hlist; q:=link(temp_head); {recursive call}
-cur_style:=save_style; {restore the style}
-@<Set up the values of |cur_size| and |cur_mu|, based on |cur_style|@>;
-found: if is_char_node(q)or(q=null) then
- x:=hpack(q,natural,info(math_dir_stack))
- else if (link(q)=null)and(type(q)<=vlist_node)and(shift_amount(q)=0) then
- x:=q {it's already clean}
- else x:=hpack(q,natural,info(math_dir_stack));
-@<Simplify a trivial box@>;
-clean_box:=x;
-end;
-@z
-%-------------------------
-@x [36] m.727
-@<Process node-or-noad...@>=
-begin @<Do first-pass processing based on |type(q)|; |goto done_with_noad|
- if a noad has been fully processed, |goto check_dimensions| if it
- has been translated into |new_hlist(q)|, or |goto done_with_node|
- if a node has been fully processed@>;
-check_dimensions: z:=hpack(new_hlist(q),natural);
-if height(z)>max_h then max_h:=height(z);
-if depth(z)>max_d then max_d:=depth(z);
-free_node(z,box_node_size);
-done_with_noad: r:=q; r_type:=type(r);
-done_with_node: q:=link(q);
-end
-@y
-@<Process node-or-noad...@>=
-begin @<Do first-pass processing based on |type(q)|; |goto done_with_noad|
- if a noad has been fully processed, |goto check_dimensions| if it
- has been translated into |new_hlist(q)|, or |goto done_with_node|
- if a node has been fully processed@>;
-check_dimensions: z:=hpack(new_hlist(q),natural,info(math_dir_stack));
-if height(z)>max_h then max_h:=height(z);
-if depth(z)>max_d then max_d:=depth(z);
-free_node(z,box_node_size);
-done_with_noad: r:=q; r_type:=type(r);
-done_with_node: q:=link(q);
-end
-@z
-%-------------------------
-@x [36] m.735
-procedure make_under(@!q:pointer);
-var p,@!x,@!y: pointer; {temporary registers for box construction}
-@!delta:scaled; {overall height plus depth}
-begin x:=clean_box(nucleus(q),cur_style);
-p:=new_kern(3*default_rule_thickness); link(x):=p;
-link(p):=fraction_rule(default_rule_thickness);
-y:=vpack(x,natural);
-delta:=height(y)+depth(y)+default_rule_thickness;
-height(y):=height(x); depth(y):=delta-height(y);
-info(nucleus(q)):=y; math_type(nucleus(q)):=sub_box;
-end;
-@y
-procedure make_under(@!q:pointer);
-var p,@!x,@!y: pointer; {temporary registers for box construction}
-@!delta:scaled; {overall height plus depth}
-begin x:=clean_box(nucleus(q),cur_style);
-p:=new_kern(3*default_rule_thickness); link(x):=p;
-link(p):=fraction_rule(default_rule_thickness);
-y:=vpackage(x,natural,max_dimen,info(math_dir_stack));
-delta:=height(y)+depth(y)+default_rule_thickness;
-height(y):=height(x); depth(y):=delta-height(y);
-info(nucleus(q)):=y; math_type(nucleus(q)):=sub_box;
-end;
-@z
-%-------------------------
-@x [36] m.737
-procedure make_radical(@!q:pointer);
-var x,@!y:pointer; {temporary registers for box construction}
-@!delta,@!clr:scaled; {dimensions involved in the calculation}
-begin x:=clean_box(nucleus(q),cramped_style(cur_style));
-if cur_style<text_style then {display style}
- clr:=default_rule_thickness+(abs(math_x_height(cur_size)) div 4)
-else begin clr:=default_rule_thickness; clr:=clr + (abs(clr) div 4);
- end;
-y:=var_delimiter(left_delimiter(q),cur_size,height(x)+depth(x)+clr+
- default_rule_thickness);
-delta:=depth(y)-(height(x)+depth(x)+clr);
-if delta>0 then clr:=clr+half(delta); {increase the actual clearance}
-shift_amount(y):=-(height(x)+clr);
-link(y):=overbar(x,clr,height(y));
-info(nucleus(q)):=hpack(y,natural); math_type(nucleus(q)):=sub_box;
-end;
-@y
-procedure make_radical(@!q:pointer);
-var x,@!y:pointer; {temporary registers for box construction}
-@!delta,@!clr:scaled; {dimensions involved in the calculation}
-begin x:=clean_box(nucleus(q),cramped_style(cur_style));
-if cur_style<text_style then {display style}
- clr:=default_rule_thickness+(abs(math_x_height(cur_size)) div 4)
-else begin clr:=default_rule_thickness; clr:=clr + (abs(clr) div 4);
- end;
-y:=var_delimiter(left_delimiter(q),cur_size,height(x)+depth(x)+clr+
- default_rule_thickness);
-delta:=depth(y)-(height(x)+depth(x)+clr);
-if delta>0 then clr:=clr+half(delta); {increase the actual clearance}
-shift_amount(y):=-(height(x)+clr);
-link(y):=overbar(x,clr,height(y));
-info(nucleus(q)):=hpack(y,natural,info(math_dir_stack));
-math_type(nucleus(q)):=sub_box;
-end;
-@z
-%-------------------------
-@x [36] m.738
- y:=vpack(y,natural); width(y):=width(x);
-@y
- y:=vpackage(y,natural,max_dimen,info(math_dir_stack)); width(y):=width(x);
-@z
-%-------------------------
-@x [36] m.747
-@ @<Construct a vlist box for the fraction...@>=
-v:=new_null_box; type(v):=vlist_node;
-@y
-@ @<Construct a vlist box for the fraction...@>=
-v:=new_null_box; box_dir(v):=info(math_dir_stack); type(v):=vlist_node;
-@z
-%-------------------------
-@x [36] m.748
-@ @<Put the \(f)fraction into a box with its delimiters...@>=
-if cur_style<text_style then delta:=delim1(cur_size)
-else delta:=delim2(cur_size);
-x:=var_delimiter(left_delimiter(q), cur_size, delta); link(x):=v;@/
-z:=var_delimiter(right_delimiter(q), cur_size, delta); link(v):=z;@/
-new_hlist(q):=hpack(x,natural)
-@y
-@ @<Put the \(f)fraction into a box with its delimiters...@>=
-if cur_style<text_style then delta:=delim1(cur_size)
-else delta:=delim2(cur_size);
-x:=var_delimiter(left_delimiter(q), cur_size, delta); link(x):=v;@/
-z:=var_delimiter(right_delimiter(q), cur_size, delta); link(v):=z;@/
-new_hlist(q):=hpack(x,natural,info(math_dir_stack))
-@z
-%-------------------------
-@x [36] m.750
-@<Construct a box with limits above and below it...@>=
-begin x:=clean_box(supscr(q),sup_style(cur_style));
-y:=clean_box(nucleus(q),cur_style);
-z:=clean_box(subscr(q),sub_style(cur_style));
-v:=new_null_box; type(v):=vlist_node; width(v):=width(y);
-@y
-@<Construct a box with limits above and below it...@>=
-begin x:=clean_box(supscr(q),sup_style(cur_style));
-y:=clean_box(nucleus(q),cur_style);
-z:=clean_box(subscr(q),sub_style(cur_style));
-v:=new_null_box; box_dir(v):=info(math_dir_stack);
-type(v):=vlist_node; width(v):=width(y);
-@z
-%-------------------------
-@x [36] m.754
-@<Convert \(n)|nucleus(q)| to an hlist and attach the sub/superscripts@>=
-case math_type(nucleus(q)) of
-math_char, math_text_char:
- @<Create a character node |p| for |nucleus(q)|, possibly followed
- by a kern node for the italic correction, and set |delta| to the
- italic correction if a subscript is present@>;
-empty: p:=null;
-sub_box: p:=info(nucleus(q));
-sub_mlist: begin cur_mlist:=info(nucleus(q)); save_style:=cur_style;
- mlist_penalties:=false; mlist_to_hlist; {recursive call}
-@^recursion@>
- cur_style:=save_style; @<Set up the values...@>;
- p:=hpack(link(temp_head),natural);
- end;
-@y
-@<Convert \(n)|nucleus(q)| to an hlist and attach the sub/superscripts@>=
-case math_type(nucleus(q)) of
-math_char, math_text_char:
- @<Create a character node |p| for |nucleus(q)|, possibly followed
- by a kern node for the italic correction, and set |delta| to the
- italic correction if a subscript is present@>;
-empty: p:=null;
-sub_box: p:=info(nucleus(q));
-sub_mlist: begin cur_mlist:=info(nucleus(q)); save_style:=cur_style;
- mlist_penalties:=false; mlist_to_hlist; {recursive call}
-@^recursion@>
- cur_style:=save_style; @<Set up the values...@>;
- p:=hpack(link(temp_head),natural,info(math_dir_stack));
- end;
-@z
-%-------------------------
-@x [36] m.756
-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}
-begin p:=new_hlist(q);
-if is_char_node(p) then
- begin shift_up:=0; shift_down:=0;
- end
-else begin z:=hpack(p,natural);
-@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}
-begin p:=new_hlist(q);
-if is_char_node(p) then
- begin shift_up:=0; shift_down:=0;
- end
-else begin z:=hpack(p,natural,info(math_dir_stack));
-@z
-%-------------------------
-@x [36] m.759
-x:=vpack(x,natural); shift_amount(x):=shift_down;
-@y
-x:=vpackage(x,natural,max_dimen,info(math_dir_stack));
-shift_amount(x):=shift_down;
-@z
-%-------------------------
-@x [37] m.774
-procedure init_align;
-label done, done1, done2, continue;
-var save_cs_ptr:pointer; {|warning_index| value for error messages}
-@!p:pointer; {for short-term temporary use}
-begin save_cs_ptr:=cur_cs; {\.{\\halign} or \.{\\valign}, usually}
-push_alignment; align_state:=-1000000; {enter a new alignment level}
-@<Check for improper alignment in displayed math@>;
-push_nest; {enter a new semantic level}
-@<Change current mode to |-vmode| for \.{\\halign}, |-hmode| for \.{\\valign}@>;
-scan_spec(align_group,false);@/
-@<Scan the preamble and record it in the |preamble| list@>;
-new_save_level(align_group);
-@y
-procedure init_align;
-label done, done1, done2, continue;
-var save_cs_ptr:pointer; {|warning_index| value for error messages}
-@!p:pointer; {for short-term temporary use}
-begin save_cs_ptr:=cur_cs; {\.{\\halign} or \.{\\valign}, usually}
-push_alignment; align_state:=-1000000; {enter a new alignment level}
-@<Check for improper alignment in displayed math@>;
-push_nest; {enter a new semantic level}
-@<Change current mode to |-vmode| for \.{\\halign}, |-hmode| for \.{\\valign}@>;
-scan_spec(align_group,false);@/
-@<Scan the preamble and record it in the |preamble| list@>;
-new_save_level(align_group);
-tmp_dir_stack:=get_avail; info(tmp_dir_stack):=spec_direction;
-link(tmp_dir_stack):=align_dir_stack;
-align_dir_stack:=tmp_dir_stack;
-@z
-%-------------------------
-@x [37] m.779
-@ @<Scan preamble text until |cur_cmd| is |tab_mark| or |car_ret|...@>=
-@<Scan the template \<u_j>, putting the resulting token list in |hold_head|@>;
-link(cur_align):=new_null_box; cur_align:=link(cur_align); {a new alignrecord}
-info(cur_align):=end_span; width(cur_align):=null_flag;
-u_part(cur_align):=link(hold_head);
-@<Scan the template \<v_j>, putting the resulting token list in |hold_head|@>;
-v_part(cur_align):=link(hold_head)
-@y
-@ @<Scan preamble text until |cur_cmd| is |tab_mark| or |car_ret|...@>=
-@<Scan the template \<u_j>, putting the resulting token list in |hold_head|@>;
-link(cur_align):=new_null_box; cur_align:=link(cur_align); {a new alignrecord}
-box_dir(cur_align):=info(align_dir_stack);
-info(cur_align):=end_span; width(cur_align):=null_flag;
-u_part(cur_align):=link(hold_head);
-@<Scan the template \<v_j>, putting the resulting token list in |hold_head|@>;
-v_part(cur_align):=link(hold_head)
-@z
-%-------------------------
-@x [37] m.793
-@ @<Lengthen the preamble...@>=
-begin link(q):=new_null_box; p:=link(q); {a new alignrecord}
-info(p):=end_span; width(p):=null_flag; cur_loop:=link(cur_loop);
-@<Copy the templates from node |cur_loop| into node |p|@>;
-cur_loop:=link(cur_loop);
-link(p):=new_glue(glue_ptr(cur_loop));
-end
-@y
-@ @<Lengthen the preamble...@>=
-begin link(q):=new_null_box; p:=link(q); {a new alignrecord}
-box_dir(p):=info(align_dir_stack);
-info(p):=end_span; width(p):=null_flag; cur_loop:=link(cur_loop);
-@<Copy the templates from node |cur_loop| into node |p|@>;
-cur_loop:=link(cur_loop);
-link(p):=new_glue(glue_ptr(cur_loop));
-end
-@z
-%-------------------------
-@x [37] m.796
-@ @<Package an unset...@>=
-begin if mode=-hmode then
- begin adjust_tail:=cur_tail; u:=hpack(link(head),natural); w:=width(u);
- cur_tail:=adjust_tail; adjust_tail:=null;
- end
-else begin u:=vpackage(link(head),natural,0); w:=height(u);
- end;
-@y
-@ @<Package an unset...@>=
-begin if mode=-hmode then
- begin adjust_tail:=cur_tail;
- u:=hpack(link(head),natural,info(align_dir_stack));
- w:=width(u);
- cur_tail:=adjust_tail; adjust_tail:=null;
- end
-else begin u:=vpackage(link(head),natural,0,info(align_dir_stack));
- w:=height(u);
- end;
-@z
-%-------------------------
-@x [37] m.799
-@p procedure fin_row;
-var p:pointer; {the new unset box}
-begin if mode=-hmode then
- begin p:=hpack(link(head),natural);
- pop_nest; append_to_vlist(p);
- if cur_head<>cur_tail then
- begin link(tail):=link(cur_head); tail:=cur_tail;
- end;
- end
-else begin p:=vpack(link(head),natural); pop_nest;
- link(tail):=p; tail:=p; space_factor:=1000;
- end;
-@y
-@p procedure fin_row;
-var p:pointer; {the new unset box}
-begin if mode=-hmode then
- begin p:=hpack(link(head),natural,info(align_dir_stack));
- pop_nest; append_to_vlist(p);
- if cur_head<>cur_tail then
- begin link(tail):=link(cur_head); tail:=cur_tail;
- end;
- end
-else begin p:=vpackage(link(head),natural,max_dimen,info(align_dir_stack));
- pop_nest; link(tail):=p; tail:=p; space_factor:=1000;
- end;
-@z
-%-------------------------
-@x [37] m.800
-flush_node_list(p); pop_alignment;
-@<Insert the \(c)current list into its environment@>;
-@y
-flush_node_list(p); pop_alignment;
-tmp_dir_stack:=align_dir_stack;
-align_dir_stack:=link(align_dir_stack);
-free_avail(tmp_dir_stack);
-@<Insert the \(c)current list into its environment@>;
-@z
-%-------------------------
-@x [37] m.804
-@<Package the preamble list...@>=
-save_ptr:=save_ptr-2; pack_begin_line:=-mode_line;
-if mode=-vmode then
- begin rule_save:=overfull_rule;
- set_new_eqtb_sc(dimen_base+overfull_rule_code,0);
- {prevent rule from being packaged}
- p:=hpack(preamble,saved(1),saved(0));
- set_new_eqtb_sc(dimen_base+overfull_rule_code,rule_save);
- end
-else begin q:=link(preamble);
- repeat height(q):=width(q); width(q):=0; q:=link(link(q));
- until q=null;
- p:=vpack(preamble,saved(1),saved(0));
- q:=link(preamble);
- repeat width(q):=height(q); height(q):=0; q:=link(link(q));
- until q=null;
- end;
-@y
-@<Package the preamble list...@>=
-save_ptr:=save_ptr-3; pack_begin_line:=-mode_line;
-if mode=-vmode then
- begin rule_save:=overfull_rule;
- set_new_eqtb_sc(dimen_base+overfull_rule_code,0);
- {prevent rule from being packaged}
- p:=hpack(preamble,saved(1),saved(0),saved(2));
- set_new_eqtb_sc(dimen_base+overfull_rule_code,rule_save);
- end
-else begin q:=link(preamble);
- repeat height(q):=width(q); width(q):=0; q:=link(link(q));
- until q=null;
- p:=vpackage(preamble,saved(1),saved(0),max_dimen,saved(2));
- q:=link(preamble);
- repeat width(q):=height(q); height(q):=0; q:=link(link(q));
- until q=null;
- end;
-@z
-%-------------------------
-@x [37] m.806
-@ @<Make the running dimensions in rule |q| extend...@>=
-begin if is_running(width(q)) then width(q):=width(p);
-if is_running(height(q)) then height(q):=height(p);
-if is_running(depth(q)) then depth(q):=depth(p);
-if o<>0 then
- begin r:=link(q); link(q):=null; q:=hpack(q,natural);
- shift_amount(q):=o; link(q):=r; link(s):=q;
- end;
-end
-@y
-@ @<Make the running dimensions in rule |q| extend...@>=
-begin if is_running(width(q)) then width(q):=width(p);
-if is_running(height(q)) then height(q):=height(p);
-if is_running(depth(q)) then depth(q):=depth(p);
-if o<>0 then
- begin r:=link(q); link(q):=null; q:=hpack(q,natural,info(align_dir_stack));
- shift_amount(q):=o; link(q):=r; link(s):=q;
- end;
-end
-@z
-%-------------------------
-@x [37] m.809
-@ @<Append tabskip glue and an empty box to list |u|...@>=
-s:=link(s); v:=glue_ptr(s); link(u):=new_glue(v); u:=link(u);
-subtype(u):=tab_skip_code+1; t:=t+width(v);
-if glue_sign(p)=stretching then
- begin if stretch_order(v)=glue_order(p) then
- t:=t+round(float(glue_set(p))*stretch(v));
-@^real multiplication@>
- end
-else if glue_sign(p)=shrinking then
- begin if shrink_order(v)=glue_order(p) then
- t:=t-round(float(glue_set(p))*shrink(v));
- end;
-s:=link(s); link(u):=new_null_box; u:=link(u); t:=t+width(s);
-if mode=-vmode then width(u):=width(s)@+else
- begin type(u):=vlist_node; height(u):=width(s);
- end
-@y
-@ @<Append tabskip glue and an empty box to list |u|...@>=
-s:=link(s); v:=glue_ptr(s); link(u):=new_glue(v); u:=link(u);
-subtype(u):=tab_skip_code+1; t:=t+width(v);
-if glue_sign(p)=stretching then
- begin if stretch_order(v)=glue_order(p) then
- t:=t+round(float(glue_set(p))*stretch(v));
-@^real multiplication@>
- end
-else if glue_sign(p)=shrinking then
- begin if shrink_order(v)=glue_order(p) then
- t:=t-round(float(glue_set(p))*shrink(v));
- end;
-s:=link(s); link(u):=new_null_box; u:=link(u);
-box_dir(u):=info(align_dir_stack);
-t:=t+width(s);
-if mode=-vmode then width(u):=width(s)@+else
- begin type(u):=vlist_node; height(u):=width(s);
- end
-@z
-%-------------------------
-@x [38] m.814
-@!init_local_par_info:pointer;
-@!last_local_par_info:pointer;
-@!current_file_node:pointer;
-
-@ @<Set initial...@>=
-@y
-@!init_local_par_info:pointer;
-@!last_local_par_info:pointer;
-@!current_file_node:pointer;
-@!break_c_htdp:quarterword; {height-depth entry in |char_info|}
-@!next_fake_math_flag:integer;
-@!line_break_dir:pointer;
-
-@ @<Set initial...@>=
-next_fake_math_flag:=0;
-@z
-%-------------------------
-@x [38] m.815
-@p@t\4@>@<Declare subprocedures for |line_break|@>
-procedure line_break(@!final_widow_penalty:integer);
-@y
-@p@t\4@>@<Declare subprocedures for |line_break|@>
-procedure line_break(@!final_widow_penalty:integer;@!break_dir:integer);
-@z
-%-------------------------
-@x [38] m.816
-link(tail):=new_param_glue(par_fill_skip_code);
-@y
-final_par_glue:=new_param_glue(par_fill_skip_code);
-link(tail):=final_par_glue;
-change_dir(final_par_glue,break_dir);
-line_break_dir:=break_dir;
-@z
-%-------------------------
-@x [38] m.816
-init_cur_lang:=prev_graf mod @'200000;
-init_l_hyf:=prev_graf div @'20000000;
-init_r_hyf:=(prev_graf div @'200000) mod @'100;
-@y
-init_cur_lang:=prev_graf mod @'200000;
-init_l_hyf:=prev_graf div @'20000000;
-init_r_hyf:=(prev_graf div @'200000) mod @'100;
-@z
-%-------------------------
-@x [39] m.821
-@!pass_number:halfword; {the number of passive nodes allocated on this pass}
-@y
-@!pass_number:halfword; {the number of passive nodes allocated on this pass}
-@!final_par_glue:pointer;
-@z
-%-------------------------
-@x [38] m.841
-@<Subtract the width of node |v|...@>=
-if is_char_node(v) then
- begin f:=font(v);
- break_width[1]:=break_width[1]-char_width(f)(char_info(f)(character(v)));
- end
-else case type(v) of
- ligature_node: begin f:=font(lig_char(v));@/
- break_width[1]:=@|break_width[1]-
- char_width(f)(char_info(f)(character(lig_char(v))));
- end;
- hlist_node,vlist_node,rule_node,kern_node:
- break_width[1]:=break_width[1]-width(v);
-@y
-@<Subtract the width of node |v|...@>=
-if is_char_node(v) then
- begin f:=font(v);
- if is_rotated(get_dir(v)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(v)));
- break_width[1]:=break_width[1]-char_height(f)(break_c_htdp)
- -char_depth(f)(break_c_htdp);
- end
- else
- break_width[1]:=break_width[1]-char_width(f)(char_info(f)(character(v)));
- end
-else case type(v) of
- ligature_node: begin f:=font(lig_char(v));@/
- if is_rotated(get_dir(v)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(lig_char(v))));
- break_width[1]:=break_width[1]-char_height(f)(break_c_htdp)
- -char_depth(f)(break_c_htdp);
- end
- else
- break_width[1]:=@|break_width[1]-
- char_width(f)(char_info(f)(character(lig_char(v))));
- end;
- hlist_node,vlist_node:
- if not (dir_orthogonal(dir_primary[box_dir(v)])
- (dir_primary[line_break_dir])) then
- break_width[1]:=break_width[1]-width(v)
- else
- break_width[1]:=break_width[1]-(depth(v)+height(v));
- rule_node,kern_node:
- break_width[1]:=break_width[1]-width(v);
-@z
-%-------------------------
-@x [38] m.842
-@ @<Add the width of node |s| to |b...@>=
-if is_char_node(s) then
- begin f:=font(s);
- break_width[1]:=@|break_width[1]+char_width(f)(char_info(f)(character(s)));
- end
-else case type(s) of
- ligature_node: begin f:=font(lig_char(s));
- break_width[1]:=break_width[1]+
- char_width(f)(char_info(f)(character(lig_char(s))));
- end;
- hlist_node,vlist_node,rule_node,kern_node:
- break_width[1]:=break_width[1]+width(s);
-@y
-@ @<Add the width of node |s| to |b...@>=
-if is_char_node(s) then
- begin f:=font(s);
- if is_rotated(get_dir(s)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(s)));
- break_width[1]:=break_width[1]+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
- else
- break_width[1]:=@|break_width[1]+char_width(f)(char_info(f)(character(s)));
- end
-else case type(s) of
- ligature_node: begin f:=font(lig_char(s));
- if is_rotated(get_dir(s)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(lig_char(s))));
- break_width[1]:=break_width[1]+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
- else
- break_width[1]:=break_width[1]+
- char_width(f)(char_info(f)(character(lig_char(s))));
- end;
- hlist_node,vlist_node:
- if not (dir_orthogonal(dir_primary[box_dir(s)])
- (dir_primary[line_break_dir])) then
- break_width[1]:=break_width[1]+width(s)
- else
- break_width[1]:=break_width[1]+(depth(s)+height(s));
- rule_node,kern_node:
- break_width[1]:=break_width[1]+width(s);
-@z
-%-------------------------
-@x [38] m.866
-hlist_node,vlist_node,rule_node: act_width:=act_width+width(cur_p);
-@y
-hlist_node,vlist_node:
-if not (dir_orthogonal(dir_primary[box_dir(cur_p)])
- (dir_primary[line_break_dir]))
-then act_width:=act_width+width(cur_p)
-else act_width:=act_width+(depth(cur_p)+height(cur_p));
-rule_node: act_width:=act_width+width(cur_p);
-@z
-%-------------------------
-@x [38] m.866
- act_width:=act_width+char_width(f)(char_info(f)(character(lig_char(cur_p))));
-@y
- if is_rotated(get_dir(cur_p)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(lig_char(cur_p))));
- act_width:=act_width+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
- else
- act_width:=act_width+
- char_width(f)(char_info(f)(character(lig_char(cur_p))));
-@z
-%-------------------------
-@x [38] m.867
-act_width:=act_width+char_width(f)(char_info(f)(character(cur_p)));
-@y
-if is_rotated(get_dir(cur_p)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(cur_p)));
- act_width:=act_width+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
-else
- act_width:=act_width+char_width(f)(char_info(f)(character(cur_p)));
-@z
-%-------------------------
-@x [38] m.870
-@ @<Add the width of node |s| to |disc_width|@>=
-if is_char_node(s) then
- begin f:=font(s);
- disc_width:=disc_width+char_width(f)(char_info(f)(character(s)));
- end
-else case type(s) of
- ligature_node: begin f:=font(lig_char(s));
- disc_width:=disc_width+
- char_width(f)(char_info(f)(character(lig_char(s))));
- end;
- hlist_node,vlist_node,rule_node,kern_node:
- disc_width:=disc_width+width(s);
-@y
-@ @<Add the width of node |s| to |disc_width|@>=
-if is_char_node(s) then
- begin f:=font(s);
- if is_rotated(get_dir(s)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(s)));
- disc_width:=disc_width+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
- else
- disc_width:=disc_width+char_width(f)(char_info(f)(character(s)));
- end
-else case type(s) of
- ligature_node: begin f:=font(lig_char(s));
- if is_rotated(get_dir(s)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(lig_char(s))));
- disc_width:=disc_width+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
- else
- disc_width:=disc_width+
- char_width(f)(char_info(f)(character(lig_char(s))));
- end;
- hlist_node,vlist_node:
- if not (dir_orthogonal(dir_primary[box_dir(s)])
- (dir_primary[line_break_dir]))
- then disc_width:=disc_width+width(s)
- else disc_width:=disc_width+(depth(s)+height(s));
- rule_node,kern_node:
- disc_width:=disc_width+width(s);
-@z
-%-------------------------
-@x [38] m.871
-@ @<Add the width of node |s| to |act_width|@>=
-if is_char_node(s) then
- begin f:=font(s);
- act_width:=act_width+char_width(f)(char_info(f)(character(s)));
- end
-else case type(s) of
- ligature_node: begin f:=font(lig_char(s));
- act_width:=act_width+
- char_width(f)(char_info(f)(character(lig_char(s))));
- end;
- hlist_node,vlist_node,rule_node,kern_node:
- act_width:=act_width+width(s);
-@y
-@ @<Add the width of node |s| to |act_width|@>=
-if is_char_node(s) then
- begin f:=font(s);
- if is_rotated(get_dir(s)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(s)));
- act_width:=act_width+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
- else
- act_width:=act_width+char_width(f)(char_info(f)(character(s)));
- end
-else case type(s) of
- ligature_node: begin f:=font(lig_char(s));
- if is_rotated(get_dir(s)) then begin
- break_c_htdp:=height_depth(char_info(f)(character(lig_char(s))));
- act_width:=act_width+char_height(f)(break_c_htdp)
- +char_depth(f)(break_c_htdp);
- end
- else
- act_width:=act_width+
- char_width(f)(char_info(f)(character(lig_char(s))));
- end;
- hlist_node,vlist_node:
- if not (dir_orthogonal(dir_primary[box_dir(s)])
- (dir_primary[line_break_dir]))
- then act_width:=act_width+width(s)
- else act_width:=act_width+(depth(s)+height(s));
- rule_node,kern_node:
- act_width:=act_width+width(s);
-@z
-%-------------------------
-@x [39] m.877
-@ The total number of lines that will be set by |post_line_break|
-is |best_line-prev_graf-1|. The last breakpoint is specified by
-|break_node(best_bet)|, and this passive node points to the other breakpoints
-via the |prev_break| links. The finishing-up phase starts by linking the
-relevant passive nodes in forward order, changing |prev_break| to
-|next_break|. (The |next_break| fields actually reside in the same memory
-space as the |prev_break| fields did, but we give them a new name because
-of their new significance.) Then the lines are justified, one by one.
-
-@d next_break==prev_break {new name for |prev_break| after links are reversed}
-
-@<Declare subprocedures for |line_break|@>=
-procedure post_line_break(@!final_widow_penalty:integer);
-label done,done1;
-var q,@!r,@!s:pointer; {temporary registers for list manipulation}
-@!disc_break:boolean; {was the current break at a discretionary node?}
-@!post_disc_break:boolean; {and did it have a nonempty post-break part?}
-@!cur_width:scaled; {width of line number |cur_line|}
-@!cur_indent:scaled; {left margin of line number |cur_line|}
-@!t:quarterword; {used for replacement counts in discretionary nodes}
-@!pen:integer; {use when calculating penalties between lines}
-@!cur_line: halfword; {the current line number being justified}
-begin @<Reverse the links of the relevant passive nodes, setting |cur_p| to the
- first breakpoint@>;
-cur_line:=prev_graf+1;
-repeat @<Justify the line ending at breakpoint |cur_p|, and append it to the
- current vertical list, together with associated penalties and other
- insertions@>;
-incr(cur_line); cur_p:=next_break(cur_p);
-if cur_p<>null then if not post_disc_break then
- @<Prune unwanted nodes at the beginning of the next line@>;
-until cur_p=null;
-if (cur_line<>best_line)or(link(temp_head)<>null) then
- confusion("line breaking");
-@:this can't happen line breaking}{\quad line breaking@>
-prev_graf:=best_line-1;
-end;
-@y
-@ The total number of lines that will be set by |post_line_break|
-is |best_line-prev_graf-1|. The last breakpoint is specified by
-|break_node(best_bet)|, and this passive node points to the other breakpoints
-via the |prev_break| links. The finishing-up phase starts by linking the
-relevant passive nodes in forward order, changing |prev_break| to
-|next_break|. (The |next_break| fields actually reside in the same memory
-space as the |prev_break| fields did, but we give them a new name because
-of their new significance.) Then the lines are justified, one by one.
-
-The |post_line_break| must also keep an dir stack, so that it can
-output end direction instructions at the ends of lines
-and begin direction instructions at the beginnings of lines.
-
-@d next_break==prev_break {new name for |prev_break| after links are reversed}
-
-@<Declare subprocedures for |line_break|@>=
-procedure post_line_break(@!final_widow_penalty:integer);
-label done,done1;
-var q,@!r,@!s:pointer; {temporary registers for list manipulation}
-@!disc_break:boolean; {was the current break at a discretionary node?}
-@!post_disc_break:boolean; {and did it have a nonempty post-break part?}
-@!cur_width:scaled; {width of line number |cur_line|}
-@!cur_indent:scaled; {left margin of line number |cur_line|}
-@!t:quarterword; {used for replacement counts in discretionary nodes}
-@!pen:integer; {use when calculating penalties between lines}
-@!cur_line: halfword; {the current line number being justified}
-begin @<Reverse the links of the relevant passive nodes, setting |cur_p| to the
- first breakpoint@>;
-cur_line:=prev_graf+1;
-repeat @<Justify the line ending at breakpoint |cur_p|, and append it to the
- current vertical list, together with associated penalties and other
- insertions@>;
-incr(cur_line); cur_p:=next_break(cur_p);
-if cur_p<>null then if not post_disc_break then
- @<Prune unwanted nodes at the beginning of the next line@>;
-until cur_p=null;
-if (cur_line<>best_line)or(link(temp_head)<>null) then
- confusion("line breaking");
-@:this can't happen line breaking}{\quad line breaking@>
-prev_graf:=best_line-1;
-end;
-@z
-%-------------------------
-@x [39] m.889
-adjust_tail:=adjust_head; just_box:=hpack(q,cur_width,exactly);
-@y
-adjust_tail:=adjust_head;
-just_box:=hpack(q,cur_width,exactly,line_break_dir);
-@z
-%-------------------------
-@x [40] m.892
-@!ha,@!hb:pointer; {nodes |ha..hb| should be replaced by the hyphenated result}
-@y
-@!ha,@!hb:pointer; {nodes |ha..hb| should be replaced by the hyphenated result}
-@!ha_local:pointer; {points to the local information for the first char node}
-@z
-%-------------------------
-@x [40] m.896
-@<Skip to node |ha|, or |goto done1|...@>=
-loop@+ begin if is_char_node(s) then
- begin c:=qo(character(s)); hf:=font(s);
- end
- else if type(s)=ligature_node then
- if lig_ptr(s)=null then goto continue
- else begin q:=lig_ptr(s); c:=qo(character(q)); hf:=font(q);
- end
- else if (type(s)=kern_node)and(subtype(s)=normal) then goto continue
- else if type(s)=whatsit_node then
- begin @<Advance \(p)past a whatsit node in the \(p)pre-hyphenation loop@>;
- goto continue;
- end
- else goto done1;
- if lc_code(c)<>0 then
- if (lc_code(c)=c)or(uc_hyph>0) then goto done2
- else goto done1;
-continue: prev_s:=s; s:=link(prev_s);
- end;
-done2: hyf_char:=hyphen_char(hf);
-if hyf_char<0 then goto done1;
-if hyf_char>biggest_char then goto done1;
-ha:=prev_s
-@y
-@<Skip to node |ha|, or |goto done1|...@>=
-loop@+ begin if is_char_node(s) then
- begin c:=qo(character(s)); hf:=font(s);
- end
- else if type(s)=ligature_node then
- if lig_ptr(s)=null then goto continue
- else begin q:=lig_ptr(s); c:=qo(character(q)); hf:=font(q);
- end
- else if (type(s)=kern_node)and(subtype(s)=normal) then goto continue
- else if type(s)=whatsit_node then
- begin @<Advance \(p)past a whatsit node in the \(p)pre-hyphenation loop@>;
- goto continue;
- end
- else goto done1;
- if lc_code(c)<>0 then
- if (lc_code(c)=c)or(uc_hyph>0) then goto done2
- else goto done1;
-continue: prev_s:=s; s:=link(prev_s);
- end;
-done2: hyf_char:=hyphen_char(hf);
-if hyf_char<0 then goto done1;
-if hyf_char>biggest_char then goto done1;
-ha:=prev_s;
-ha_local:=ptr_info(s)
-@z
-%-------------------------
-@x [40] m.908
-@ @d append_charnode_to_t(#)== begin link(t):=get_avail; t:=link(t);
- font(t):=hf; character(t):=#;
- end
-@y
-@ @d append_charnode_to_t(#)== begin link(t):=get_avail; t:=link(t);
- ptr_info(t):=ha_local; info_incr_ref_count(ha_local);
- font(t):=hf; character(t):=#;
- end
-@z
-%-------------------------
-@x [40] m.910
-@ @d wrap_lig(#)==if ligature_present then
- begin p:=new_ligature(hf,cur_l,link(cur_q));
- if lft_hit then
- begin subtype(p):=2; lft_hit:=false;
- end;
- if # then if lig_stack=null then
- begin incr(subtype(p)); rt_hit:=false;
- end;
- link(cur_q):=p; t:=p; ligature_present:=false;
- end
-@y
-@ @d wrap_lig(#)==if ligature_present then
- begin p:=new_ligature(hf,cur_l,link(cur_q));
- info_decr_ref_count(ptr_info(p));
- ptr_info(p):=ha_local; info_incr_ref_count(ha_local);
- if lft_hit then
- begin subtype(p):=2; lft_hit:=false;
- end;
- if # then if lig_stack=null then
- begin incr(subtype(p)); rt_hit:=false;
- end;
- link(cur_q):=p; t:=p; ligature_present:=false;
- end
-@z
-%-------------------------
-@x [40] m.910
-wrap_lig(rt_hit);
-if w<>0 then
- begin link(t):=new_kern(w); t:=link(t); w:=0;
- end;
-@y
-wrap_lig(rt_hit);
-if w<>0 then
- begin link(t):=new_kern(w); t:=link(t); w:=0;
- info_decr_ref_count(ptr_info(t));
- ptr_info(t):=ha_local; info_incr_ref_count(ha_local);
- end;
-@z
-%-------------------------
-@x [40] m.911
-qi(2),qi(6):begin cur_r:=rem_byte(q); {\.{\?=:}, \.{\?=:>}}
- if lig_stack>null then character(lig_stack):=cur_r
- else begin lig_stack:=new_lig_item(cur_r);
- if j=n then bchar:=non_char
- else begin p:=get_avail; lig_ptr(lig_stack):=p;
- character(p):=qi(hu[j+1]); font(p):=hf;
- end;
- end;
- end;
-qi(3):begin cur_r:=rem_byte(q); {\.{\?=:\?}}
- p:=lig_stack; lig_stack:=new_lig_item(cur_r); link(lig_stack):=p;
- end;
-@y
-qi(2),qi(6):begin cur_r:=rem_byte(q); {\.{\?=:}, \.{\?=:>}}
- if lig_stack>null then character(lig_stack):=cur_r
- else begin lig_stack:=new_lig_item(cur_r);
- info_decr_ref_count(ptr_info(lig_stack));
- ptr_info(lig_stack):=ha_local; info_incr_ref_count(ha_local);
- if j=n then bchar:=non_char
- else begin p:=get_avail; lig_ptr(lig_stack):=p;
- character(p):=qi(hu[j+1]); font(p):=hf;
- ptr_info(p):=ha_local; info_incr_ref_count(ha_local);
- end;
- end;
- end;
-qi(3):begin cur_r:=rem_byte(q); {\.{\?=:\?}}
- p:=lig_stack; lig_stack:=new_lig_item(cur_r); link(lig_stack):=p;
- info_decr_ref_count(ptr_info(lig_stack));
- ptr_info(lig_stack):=ha_local; info_incr_ref_count(ha_local);
- end;
-@z
-%-------------------------
-@x [40] m.914
-@<Create and append a discretionary node as an alternative...@>=
-repeat r:=get_node(small_node_size);
-link(r):=link(hold_head); type(r):=disc_node;
-@y
-@<Create and append a discretionary node as an alternative...@>=
-repeat r:=get_node(small_node_size);
-link(r):=link(hold_head); type(r):=disc_node;
-ptr_info(r):=ha_local; info_incr_ref_count(ha_local);
-@z
-%-------------------------
-@x [44] m.977
-@p function vsplit(@!n:eight_bits; @!h:scaled):pointer;
- {extracts a page of height |h| from box |n|}
-label exit,done;
-var v:pointer; {the box to be split}
-p:pointer; {runs through the vlist}
-q:pointer; {points to where the break occurs}
-begin v:=box(n);
-if split_first_mark<>null then
- begin delete_token_ref(split_first_mark); split_first_mark:=null;
- delete_token_ref(split_bot_mark); split_bot_mark:=null;
- end;
-@<Dispense with trivial cases of void or bad boxes@>;
-q:=vert_break(list_ptr(v),h,split_max_depth);
-@<Look at all the marks in nodes before the break, and set the final
- link to |null| at the break@>;
-q:=prune_page_top(q); p:=list_ptr(v); free_node(v,box_node_size);
-if q=null then set_equiv(box_base+n,null)
- {the |eq_level| of the box stays the same}
-else set_equiv(box_base+n,vpack(q,natural));
-vsplit:=vpackage(p,h,exactly,split_max_depth);
-exit: end;
-@y
-@p function vsplit(@!n:eight_bits; @!h:scaled):pointer;
- {extracts a page of height |h| from box |n|}
-label exit,done;
-var v:pointer; {the box to be split}
-vdir:integer; {the direction of the box to be split}
-p:pointer; {runs through the vlist}
-q:pointer; {points to where the break occurs}
-begin v:=box(n); vdir:=box_dir(v);
-if split_first_mark<>null then
- begin delete_token_ref(split_first_mark); split_first_mark:=null;
- delete_token_ref(split_bot_mark); split_bot_mark:=null;
- end;
-@<Dispense with trivial cases of void or bad boxes@>;
-q:=vert_break(list_ptr(v),h,split_max_depth);
-@<Look at all the marks in nodes before the break, and set the final
- link to |null| at the break@>;
-q:=prune_page_top(q); p:=list_ptr(v); free_node(v,box_node_size);
-if q=null then set_equiv(box_base+n,null)
- {the |eq_level| of the box stays the same}
-else set_equiv(box_base+n,vpackage(q,natural,max_dimen,vdir));
-vsplit:=vpackage(p,h,exactly,split_max_depth,vdir);
-exit: end;
-@z
-%-------------------------
-@x [45] m.1001
-if width(temp_ptr)>height(p) then width(temp_ptr):=width(temp_ptr)-height(p)
-else width(temp_ptr):=0;
-@y
-if (type(p)=hlist_node) and (is_mirrored(body_direction)) then begin
- if width(temp_ptr)>depth(p) then width(temp_ptr):=width(temp_ptr)-depth(p)
- else width(temp_ptr):=0;
- end
-else begin
- if width(temp_ptr)>height(p) then width(temp_ptr):=width(temp_ptr)-height(p)
- else width(temp_ptr):=0;
- end;
-@z
-%-------------------------
-@x [45] m.1002
-begin page_total:=page_total+page_depth+height(p);
-page_depth:=depth(p);
-@y
-begin
-if (type(p)=hlist_node) and (is_mirrored(body_direction)) then begin
- page_total:=page_total+page_depth+depth(p);
- page_depth:=height(p);
- end
-else begin
- page_total:=page_total+page_depth+height(p);
- page_depth:=depth(p);
- end;
-@z
-%-------------------------
-@x [45] m.1017
-set_equiv(box_base+255,
- vpackage(link(page_head),best_size,exactly,page_max_depth));
-@y
-set_equiv(box_base+255,
- vpackage(link(page_head),best_size,exactly,page_max_depth,body_direction));
-@z
-%-------------------------
-@x [45] m.1018
-@<Prepare all the boxes involved in insertions to act as queues@>=
-begin r:=link(page_ins_head);
-while r<>page_ins_head do
- begin if best_ins_ptr(r)<>null then
- begin n:=qo(subtype(r)); ensure_vbox(n);
- if box(n)=null then set_equiv(box_base+n,new_null_box);
-@y
-@<Prepare all the boxes involved in insertions to act as queues@>=
-begin r:=link(page_ins_head);
-while r<>page_ins_head do
- begin if best_ins_ptr(r)<>null then
- begin n:=qo(subtype(r)); ensure_vbox(n);
- if box(n)=null then set_equiv(box_base+n,new_null_box);
- box_dir(box(n)):=body_direction;
-@z
-%-------------------------
-@x [45] m.1021
-@ @<Wrap up the box specified by node |r|, splitting node |p| if...@>=
-begin if type(r)=split_up then
- if (broken_ins(r)=p)and(broken_ptr(r)<>null) then
- begin while link(s)<>broken_ptr(r) do s:=link(s);
- link(s):=null;
- set_equiv(glue_base+split_top_skip_code,split_top_ptr(p));
- ins_ptr(p):=prune_page_top(broken_ptr(r));
- if ins_ptr(p)<>null then
- begin temp_ptr:=vpack(ins_ptr(p),natural);
- height(p):=height(temp_ptr)+depth(temp_ptr);
- free_node(temp_ptr,box_node_size); wait:=true;
- end;
- end;
-best_ins_ptr(r):=null;
-n:=qo(subtype(r));
-temp_ptr:=list_ptr(box(n));
-free_node(box(n),box_node_size);
-set_equiv(box_base+n,vpack(temp_ptr,natural));
-@y
-@ @<Wrap up the box specified by node |r|, splitting node |p| if...@>=
-begin if type(r)=split_up then
- if (broken_ins(r)=p)and(broken_ptr(r)<>null) then
- begin while link(s)<>broken_ptr(r) do s:=link(s);
- link(s):=null;
- set_equiv(glue_base+split_top_skip_code,split_top_ptr(p));
- ins_ptr(p):=prune_page_top(broken_ptr(r));
- if ins_ptr(p)<>null then
- begin temp_ptr:=vpackage(ins_ptr(p),natural,max_dimen,body_direction);
- height(p):=height(temp_ptr)+depth(temp_ptr);
- free_node(temp_ptr,box_node_size); wait:=true;
- end;
- end;
-best_ins_ptr(r):=null;
-n:=qo(subtype(r));
-temp_ptr:=list_ptr(box(n));
-free_node(box(n),box_node_size);
-set_equiv(box_base+n,vpackage(temp_ptr,natural,max_dimen,body_direction));
-@z
-%-------------------------
-@x [45] m.1054
-function its_all_over:boolean; {do this when \.{\\end} or \.{\\dump} occurs}
-label exit;
-begin if privileged then
- begin if (page_head=page_tail)and(head=tail)and(dead_cycles=0) then
- begin its_all_over:=true; return;
- end;
- back_input; {we will try to end again after ejecting residual material}
- tail_append(new_null_box);
-@y
-function its_all_over:boolean; {do this when \.{\\end} or \.{\\dump} occurs}
-label exit;
-begin if privileged then
- begin if (page_head=page_tail)and(head=tail)and(dead_cycles=0) then
- begin its_all_over:=true; return;
- end;
- back_input; {we will try to end again after ejecting residual material}
- tail_append(new_null_box); box_dir(tail):=info(par_dir_stack);
-@z
-%-------------------------
-@x [47] m.1071
-primitive("xleaders",leader_ship,x_leaders);
-@!@:x_leaders_}{\.{\\xleaders} primitive@>
-@y
-primitive("xleaders",leader_ship,x_leaders);
-@!@:x_leaders_}{\.{\\xleaders} primitive@>
-primitive("boxdir",assign_box_dir,0);
-@!@:box_dir}{\.{\\boxdir} primitive@>
-@z
-%-------------------------
-@x [47] m.1073
-any_mode(make_box): begin_box(0);
-@y
-any_mode(make_box): begin_box(0);
-any_mode(assign_box_dir): begin scan_eight_bit_int;
- cur_box:=box(cur_val);
- scan_optional_equals; scan_dir;
- if cur_box<>null then box_dir(cur_box):=cur_val;
- end;
-@z
-%-------------------------
-@x [47] m.1076
-@<Append box |cur_box| to the current...@>=
-begin if cur_box<>null then
- begin shift_amount(cur_box):=box_context;
- 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
- else begin if abs(mode)=hmode then space_factor:=1000
- else begin p:=new_noad;
- math_type(nucleus(p)):=sub_box;
- info(nucleus(p)):=cur_box; cur_box:=p;
- end;
- link(tail):=cur_box; tail:=cur_box;
- end;
- end;
-end
-@y
-@<Append box |cur_box| to the current...@>=
-begin if cur_box<>null then
- begin shift_amount(cur_box):=box_context;
- ptr_info(cur_box):=local_par_info;
- info_incr_ref_count(local_par_info);
- 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
- else begin if abs(mode)=hmode then space_factor:=1000
- else begin p:=new_noad;
- math_type(nucleus(p)):=sub_box;
- info(nucleus(p)):=cur_box; cur_box:=p;
- end;
- link(tail):=cur_box; tail:=cur_box;
- end;
- end;
-end
-@z
-%-------------------------
-@x [47] m.1083
-begin k:=cur_chr-vtop_code; saved(0):=box_context;
-if k=hmode then
- if (box_context<box_flag)and(abs(mode)=vmode) then
- scan_spec(adjusted_hbox_group,true)
- else scan_spec(hbox_group,true)
-else begin if k=vmode then scan_spec(vbox_group,true)
- else begin scan_spec(vtop_group,true); k:=vmode;
- end;
- normal_paragraph;
- end;
-push_nest; mode:=-k;
-@y
-begin k:=cur_chr-vtop_code; saved(0):=box_context;
-case abs(mode) of
-vmode: spec_direction:=body_direction;
-hmode: spec_direction:=text_direction;
-mmode: spec_direction:=math_direction;
-end;
-if k=hmode then
- if (box_context<box_flag)and(abs(mode)=vmode) then
- scan_spec(adjusted_hbox_group,true)
- else scan_spec(hbox_group,true)
-else begin if k=vmode then scan_spec(vbox_group,true)
- else begin scan_spec(vtop_group,true); k:=vmode;
- end;
- normal_paragraph;
- end;
-push_nest; mode:=-k;
-@z
-%-------------------------
-@x [47] m.1086
-procedure package(@!c:small_number);
-var h:scaled; {height of box}
-@!p:pointer; {first node in a box}
-@!d:scaled; {max depth}
-begin d:=box_max_depth; unsave; save_ptr:=save_ptr-3;
-if mode=-hmode then cur_box:=hpack(link(head),saved(2),saved(1))
-else begin cur_box:=vpackage(link(head),saved(2),saved(1),d);
- if c=vtop_code then @<Readjust the height and depth of |cur_box|,
- for \.{\\vtop}@>;
- end;
-pop_nest; box_end(saved(0));
-end;
-@y
-procedure package(@!c:small_number);
-var h:scaled; {height of box}
-@!p:pointer; {first node in a box}
-@!d:scaled; {max depth}
-begin d:=box_max_depth; unsave; save_ptr:=save_ptr-4;
-if mode=-hmode then cur_box:=hpack(link(head),saved(2),saved(1),saved(3))
-else begin cur_box:=vpackage(link(head),saved(2),saved(1),d,saved(3));
- if c=vtop_code then @<Readjust the height and depth of |cur_box|,
- for \.{\\vtop}@>;
- end;
-pop_nest; box_end(saved(0));
-end;
-@z
-%-------------------------
-@x [47] m.1091
-procedure new_graf(@!indented:boolean);
-begin prev_graf:=0;
-if (mode=vmode)or(head<>tail) then
- tail_append(new_param_glue(par_skip_code));
-push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-prev_graf:=(norm_min(left_hyphen_min)*@'100+norm_min(right_hyphen_min))
- *@'200000+cur_lang;
-if indented then
- begin tail:=new_null_box; link(head):=tail; width(tail):=par_indent;@+
- end;
-@y
-procedure new_graf(@!indented:boolean);
-begin prev_graf:=0;
-if (mode=vmode)or(head<>tail) then
- tail_append(new_param_glue(par_skip_code));
-push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-prev_graf:=(norm_min(left_hyphen_min)*@'100+norm_min(right_hyphen_min))
- *@'200000+cur_lang;
-tmp_dir_stack:=get_avail; info(tmp_dir_stack):=par_direction;
-link(tmp_dir_stack):=par_dir_stack;
-par_dir_stack:=tmp_dir_stack;
-if indented then
- begin tail:=new_null_box; link(head):=tail; width(tail):=par_indent;@+
- box_dir(tail):=info(par_dir_stack);
- change_dir(tail,info(par_dir_stack));
- end;
-@z
-%-------------------------
-@x [47] m.1093
-procedure indent_in_hmode;
-var p,@!q:pointer;
-begin if cur_chr>0 then {\.{\\indent}}
- begin p:=new_null_box; width(p):=par_indent;
-@y
-procedure indent_in_hmode;
-var p,@!q:pointer;
-begin if cur_chr>0 then {\.{\\indent}}
- begin p:=new_null_box; width(p):=par_indent;
- box_dir(p):=info(par_dir_stack);
- change_dir(p,info(par_dir_stack));
-@z
-%-------------------------
-@x [47] m.1096
-procedure end_graf;
-begin if mode=hmode then
- begin if head=tail then pop_nest {null paragraphs are ignored}
- else line_break(widow_penalty);
- normal_paragraph;
- error_count:=0;
- end;
-end;
-@y
-procedure end_graf;
-begin if mode=hmode then
- begin if head=tail then pop_nest {null paragraphs are ignored}
- else line_break(widow_penalty,info(par_dir_stack));
- tmp_dir_stack:=par_dir_stack;
- par_dir_stack:=link(par_dir_stack);
- free_avail(tmp_dir_stack);
- normal_paragraph;
- error_count:=0;
- end;
-end;
-@z
-%-------------------------
-@x [48] m.1100
-insert_group: begin end_graf; q:=split_top_skip; add_glue_ref(q);
- d:=split_max_depth; f:=floating_penalty; unsave; decr(save_ptr);
- {now |saved(0)| is the insertion number, or 255 for |vadjust|}
- p:=vpack(link(head),natural); pop_nest;
- if saved(0)<>255 then
- begin tail_append(get_node(ins_node_size));
- type(tail):=ins_node; subtype(tail):=qi(saved(0));
- height(tail):=height(p)+depth(p); ins_ptr(tail):=list_ptr(p);
- split_top_ptr(tail):=q; depth(tail):=d; float_cost(tail):=f;
- end
- else begin tail_append(get_node(small_node_size));
- type(tail):=adjust_node;@/
- subtype(tail):=0; {the |subtype| is not used}
- adjust_ptr(tail):=list_ptr(p); delete_glue_ref(q);
- end;
- free_node(p,box_node_size);
- if nest_ptr=0 then build_page;
- end;
-@y
-insert_group: begin end_graf; q:=split_top_skip; add_glue_ref(q);
- d:=split_max_depth; f:=floating_penalty; unsave; decr(save_ptr);
- {now |saved(0)| is the insertion number, or 255 for |vadjust|}
- p:=vpackage(link(head),natural,max_dimen,body_direction); pop_nest;
- if saved(0)<>255 then
- begin tail_append(get_node(ins_node_size));
- type(tail):=ins_node; subtype(tail):=qi(saved(0));
- height(tail):=height(p)+depth(p); ins_ptr(tail):=list_ptr(p);
- split_top_ptr(tail):=q; depth(tail):=d; float_cost(tail):=f;
- end
- else begin tail_append(get_node(small_node_size));
- type(tail):=adjust_node;@/
- subtype(tail):=0; {the |subtype| is not used}
- adjust_ptr(tail):=list_ptr(p); delete_glue_ref(q);
- end;
- free_node(p,box_node_size);
- if nest_ptr=0 then build_page;
- end;
-@z
-%-------------------------
-@x [48] m.1119
-procedure build_local_box;
-var p:pointer;
- kind:integer;
-begin
-unsave;
-kind:=saved(-1);
-decr(save_ptr);
-p:=link(head); pop_nest;
-p:=hpack(p,natural);
-@y
-procedure build_local_box;
-var p:pointer;
- kind:integer;
-begin
-unsave;
-kind:=saved(-1);
-decr(save_ptr);
-p:=link(head); pop_nest;
-p:=hpack(p,natural,text_direction);
-@z
-%-------------------------
-@x [48] m.1125
-@<Append the accent with appropriate kerns...@>=
-begin t:=slant(f)/float_constant(65536);
-@^real division@>
-i:=char_info(f)(character(q));
-w:=char_width(f)(i); h:=char_height(f)(height_depth(i));
-if h<>x then {the accent must be shifted up or down}
- begin p:=hpack(p,natural); shift_amount(p):=x-h;
- end;
-@y
-@<Append the accent with appropriate kerns...@>=
-begin t:=slant(f)/float_constant(65536);
-@^real division@>
-i:=char_info(f)(character(q));
-w:=char_width(f)(i); h:=char_height(f)(height_depth(i));
-if h<>x then {the accent must be shifted up or down}
- begin p:=hpack(p,natural,text_direction); shift_amount(p):=x-h;
- end;
-@z
-%-------------------------
-@x [48] m.1136
-procedure push_math(@!c:group_code);
-begin push_nest; mode:=-mmode; incompleat_noad:=null; new_save_level(c);
-end;
-@y
-procedure push_math(@!c:group_code);
-begin
-push_nest; mode:=-mmode; incompleat_noad:=null; new_save_level(c);
-make_local_direction(info(math_dir_stack),true);
-end;
-@z
-%-------------------------
-@x [48] m.1138
-procedure init_math;
-label reswitch,found,not_found,done;
-var w:scaled; {new or partial |pre_display_size|}
-@!l:scaled; {new |display_width|}
-@!s:scaled; {new |display_indent|}
-@!p:pointer; {current node when calculating |pre_display_size|}
-@!q:pointer; {glue specification when calculating |pre_display_size|}
-@!f:internal_font_number; {font in current |char_node|}
-@!n:integer; {scope of paragraph shape specification}
-@!v:scaled; {|w| plus possible glue amount}
-@!d:scaled; {increment to |v|}
-begin get_token; {|get_x_token| would fail on \.{\\ifmmode}\thinspace!}
-@y
-procedure init_math;
-label reswitch,found,not_found,done;
-var w:scaled; {new or partial |pre_display_size|}
-@!l:scaled; {new |display_width|}
-@!s:scaled; {new |display_indent|}
-@!p:pointer; {current node when calculating |pre_display_size|}
-@!q:pointer; {glue specification when calculating |pre_display_size|}
-@!f:internal_font_number; {font in current |char_node|}
-@!n:integer; {scope of paragraph shape specification}
-@!v:scaled; {|w| plus possible glue amount}
-@!d:scaled; {increment to |v|}
-begin get_token; {|get_x_token| would fail on \.{\\ifmmode}\thinspace!}
-tmp_dir_stack:=get_avail;
-if next_fake_math_flag=0 then
- info(tmp_dir_stack):=math_direction
-else begin
- info(tmp_dir_stack):=text_direction;
- next_fake_math_flag:=0;
- end;
-link(tmp_dir_stack):=math_dir_stack;
-math_dir_stack:=tmp_dir_stack;
-@z
-%-------------------------
-@x [48] m.1145
-@<Go into display math mode@>=
-begin if head=tail then {`\.{\\noindent\$\$}' or `\.{\$\${ }\$\$}'}
- begin pop_nest; w:=-max_dimen;
- end
-else begin line_break(display_widow_penalty);@/
-@y
-@<Go into display math mode@>=
-begin if head=tail then {`\.{\\noindent\$\$}' or `\.{\$\${ }\$\$}'}
- begin pop_nest; w:=-max_dimen;
- end
-else begin line_break(display_widow_penalty,info(par_dir_stack));@/
-@z
-%-------------------------
-@x [48] m.1168
-vcenter_group: begin end_graf; unsave; save_ptr:=save_ptr-2;
- p:=vpack(link(head),saved(1),saved(0)); pop_nest;
- tail_append(new_noad); type(tail):=vcenter_noad;
- math_type(nucleus(tail)):=sub_box; info(nucleus(tail)):=p;
- end;
-@y
-vcenter_group: begin end_graf; unsave; save_ptr:=save_ptr-3;
- p:=vpackage(link(head),saved(1),saved(0),max_dimen,saved(2)); pop_nest;
- tail_append(new_noad); type(tail):=vcenter_noad;
- math_type(nucleus(tail)):=sub_box; info(nucleus(tail)):=p;
- end;
-@z
-%-------------------------
-@x [48] m.1174
-begin unsave; p:=fin_mlist(null);
-@y
-begin unsave; p:=fin_mlist(null);
-@z
-%-------------------------
-@x [48] m.1186
-math_group: begin unsave; decr(save_ptr);@/
-@y
-math_group: begin unsave; decr(save_ptr);@/
-@z
-%-------------------------
-@x [48] m.1191
- else begin p:=fin_mlist(p); unsave; {end of |math_left_group|}
-@y
- else begin p:=fin_mlist(p); unsave; {end of |math_left_group|}
-@z
-%-------------------------
-@x [48] m.1194
-procedure after_math;
-var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'}
-@!danger:boolean; {not enough symbol fonts are present}
-@!m:integer; {|mmode| or |-mmode|}
-@!p:pointer; {the formula}
-@!a:pointer; {box containing equation number}
-@<Local variables for finishing a displayed formula@>@;
-begin danger:=false;
-@<Check that the necessary fonts for math symbols are present;
- if not, flush the current math lists and set |danger:=true|@>;
-m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest}
-if mode=-m then {end of equation number}
- begin @<Check that another \.\$ follows@>;
- cur_mlist:=p; cur_style:=text_style; mlist_penalties:=false;
- mlist_to_hlist; a:=hpack(link(temp_head),natural);
- unsave; decr(save_ptr); {now |cur_group=math_shift_group|}
- if saved(0)=1 then l:=true;
-@y
-procedure after_math;
-var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'}
-@!danger:boolean; {not enough symbol fonts are present}
-@!m:integer; {|mmode| or |-mmode|}
-@!p:pointer; {the formula}
-@!a:pointer; {box containing equation number}
-@<Local variables for finishing a displayed formula@>@;
-begin danger:=false;
-@<Check that the necessary fonts for math symbols are present;
- if not, flush the current math lists and set |danger:=true|@>;
-m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest}
-if mode=-m then {end of equation number}
- begin @<Check that another \.\$ follows@>;
- cur_mlist:=p; cur_style:=text_style; mlist_penalties:=false;
- mlist_to_hlist; a:=hpack(link(temp_head),natural,info(math_dir_stack));
- unsave; decr(save_ptr); {now |cur_group=math_shift_group|}
- if saved(0)=1 then l:=true;
-@z
-%-------------------------
-@x [48] m.1196
-@<Finish math in text@>=
-begin tail_append(new_math(math_surround,before));
-cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0); mlist_to_hlist;
-link(tail):=link(temp_head);
-while link(tail)<>null do tail:=link(tail);
-tail_append(new_math(math_surround,after));
-space_factor:=1000; unsave;
-end
-@y
-@<Finish math in text@> =
-begin tail_append(new_math(math_surround,before));
-cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0); mlist_to_hlist;
-link(tail):=link(temp_head);
-while link(tail)<>null do tail:=link(tail);
-tail_append(new_math(math_surround,after));
-space_factor:=1000; unsave;
-tmp_dir_stack:=math_dir_stack;
-math_dir_stack:=link(math_dir_stack);
-free_avail(tmp_dir_stack);
-end
-@z
-%-------------------------
-@x [48] m.1199
-@<Finish displayed math@>=
-cur_mlist:=p; cur_style:=display_style; mlist_penalties:=false;
-mlist_to_hlist; p:=link(temp_head);@/
-adjust_tail:=adjust_head; b:=hpack(p,natural); p:=list_ptr(b);
-t:=adjust_tail; adjust_tail:=null;@/
-w:=width(b); z:=display_width; s:=display_indent;
-@y
-@<Finish displayed math@>=
-cur_mlist:=p; cur_style:=display_style; mlist_penalties:=false;
-mlist_to_hlist; p:=link(temp_head);@/
-adjust_tail:=adjust_head; b:=hpack(p,natural,info(math_dir_stack));
-p:=list_ptr(b);
-t:=adjust_tail; adjust_tail:=null;@/
-w:=width(b); z:=display_width; s:=display_indent;
-@z
-%-------------------------
-@x [48] m.1200
-procedure resume_after_display;
-begin if cur_group<>math_shift_group then confusion("display");
-@:this can't happen display}{\quad display@>
-unsave; prev_graf:=prev_graf+3;
-@y
-procedure resume_after_display;
-begin if cur_group<>math_shift_group then confusion("display");
-@:this can't happen display}{\quad display@>
-unsave; prev_graf:=prev_graf+3;
-tmp_dir_stack:=math_dir_stack;
-math_dir_stack:=link(math_dir_stack);
-free_avail(tmp_dir_stack);
-@z
-%-------------------------
-@x [48] m.1201
-@<Squeeze the equation as much as possible...@>=
-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
- begin free_node(b,box_node_size);
- b:=hpack(p,z-q,exactly);
- end
-else begin e:=0;
- if w>z then
- begin free_node(b,box_node_size);
- b:=hpack(p,z,exactly);
- end;
- end;
-w:=width(b);
-end
-@y
-@<Squeeze the equation as much as possible...@>=
-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
- begin free_node(b,box_node_size);
- b:=hpack(p,z-q,exactly,info(math_dir_stack));
- end
-else begin e:=0;
- if w>z then
- begin free_node(b,box_node_size);
- b:=hpack(p,z,exactly,info(math_dir_stack));
- end;
- end;
-w:=width(b);
-end
-@z
-%-------------------------
-@x [49] m.1204
-@ @<Append the display and perhaps also the equation number@>=
-if e<>0 then
- begin r:=new_kern(z-w-e-d);
- if l then
- begin link(a):=r; link(r):=b; b:=a; d:=0;
- end
- else begin link(b):=r; link(r):=a;
- end;
- b:=hpack(b,natural);
- end;
-shift_amount(b):=s+d; append_to_vlist(b)
-@y
-@ @<Append the display and perhaps also the equation number@>=
-if e<>0 then
- begin r:=new_kern(z-w-e-d);
- if l then
- begin link(a):=r; link(r):=b; b:=a; d:=0;
- end
- else begin link(b):=r; link(r):=a;
- end;
- b:=hpack(b,natural,info(math_dir_stack));
- end;
-shift_amount(b):=s+d; append_to_vlist(b)
-@z
-%-------------------------
-@x [49] m.1210
-any_mode(assign_int),
-@y
-any_mode(assign_next_fake_math),
-any_mode(assign_int),
-any_mode(assign_dir),
-@z
-%-------------------------
-@x [49] m.1228
-assign_dimen: begin p:=cur_chr; scan_optional_equals;
- scan_normal_dimen; word_define(p,cur_val);
- end;
-@y
-assign_next_fake_math: next_fake_math_flag:=1;
-assign_dir: begin
- @<DIR: Assign direction codes@>
- end;
-assign_dimen: begin p:=cur_chr; scan_optional_equals;
- scan_normal_dimen; word_define(p,cur_val);
- end;
-@z
-%-------------------------
-@x [49] m.1257
-@!flushable_string:str_number; {string not yet referenced}
-@y
-@!natural_dir:integer;{the natural direction of the font}
-@!flushable_string:str_number; {string not yet referenced}
-@z
-%-------------------------
-@x [49] m.1257
-if scan_keyword("offset") then begin
- scan_int;
- offset:=cur_val;
- if (cur_val<0) then begin
- print_err("Illegal offset has been changed to 0");
- help1("The offset must be bigger than 0."); int_error(cur_val);
- offset:=0;
- end
- end
-else offset:=0;
-name_in_progress:=false;
-@<If this font has already been loaded, set |f| to the internal
- font number and |goto common_ending|@>;
-f:=read_font_info(u,cur_name,cur_area,s,offset);
-@y
-if scan_keyword("offset") then begin
- scan_int;
- offset:=cur_val;
- if (cur_val<0) then begin
- print_err("Illegal offset has been changed to 0");
- help1("The offset must be bigger than 0."); int_error(cur_val);
- offset:=0;
- end
- end
-else offset:=0;
-if scan_keyword("naturaldir") then begin
- scan_dir;
- natural_dir:=cur_val;
- end
-else natural_dir:=-1;
-name_in_progress:=false;
-@<If this font has already been loaded, set |f| to the internal
- font number and |goto common_ending|@>;
-f:=read_font_info(u,cur_name,cur_area,s,offset,natural_dir);
-@z
-%-------------------------
-@x [51] m.1337
-if (loc<limit)and(cat_code(buffer[loc])<>escape) then start_input;
- {\.{\\input} assumed}
-@y
-if (loc<limit)and(cat_code(buffer[loc])<>escape) then start_input;
- {\.{\\input} assumed}
-@<DIR: Initialize direction stacks@>;
-@z
-%-------------------------
-@x [53] m.1341
-@d language_node=4 {|subtype| in whatsits that change the current language}
-@y
-@d language_node=4 {|subtype| in whatsits that change the current language}
-@d dir_node_size=4 {number of words in change direction node}
-@d dir_dir(#)==info(#+1) {keep the direction to be taken}
-@d dir_dvi_ptr(#)==link(#+1) {for reflecting dvi output}
-@d dir_dvi_h(#)==info(#+2) {for reflecting dvi output}
-@z
-%-------------------------
-@x [53] m.1342
-@!write_open:array[0..17] of boolean;
-@y
-@!write_open:array[0..17] of boolean;
-@!neg_wd:scaled;
-@!pos_wd:scaled;
-@!neg_ht:scaled;
-@!dvi_direction:integer;
-@!dir_primary:array[0..31] of 0..31;
-@!dir_secondary:array[0..31] of 0..31;
-@!dir_tertiary:array[0..31] of 0..31;
-@!dir_rearrange:array[0..3] of 0..31;
-@!dir_names:array[0..3] of str_number;
-@z
-%-------------------------
-@x [53] m.1343
-for k:=0 to 17 do write_open[k]:=false;
-@y
-for k:=0 to 17 do write_open[k]:=false;
-set_new_eqtb_int(dir_base+page_direction_code,0);
-set_new_eqtb_int(dir_base+body_direction_code,0);
-set_new_eqtb_int(dir_base+par_direction_code,0);
-set_new_eqtb_int(dir_base+text_direction_code,0);
-set_new_eqtb_int(dir_base+math_direction_code,0);
-set_new_eqtb_sc(dimen_base+page_height_code,55380984); {29.7cm}
-set_new_eqtb_sc(dimen_base+page_width_code,39158276); {21cm}
-set_new_eqtb_sc(dimen_base+page_bottom_offset_code,page_height-9472573);
- {-2 inches}
-set_new_eqtb_sc(dimen_base+page_right_offset_code,page_width-9472573);
- {-2 inches}
-for k:= 0 to 7 do begin
- dir_primary [k ]:=dir_T;
- dir_primary [k+ 8]:=dir_L;
- dir_primary [k+16]:=dir_B;
- dir_primary [k+24]:=dir_R;
- end;
-for k:= 0 to 3 do begin
- dir_secondary[k ]:=dir_L;
- dir_secondary[k+ 4]:=dir_R;
- dir_secondary[k+ 8]:=dir_T;
- dir_secondary[k+12]:=dir_B;
-
- dir_secondary[k+16]:=dir_L;
- dir_secondary[k+20]:=dir_R;
- dir_secondary[k+24]:=dir_T;
- dir_secondary[k+28]:=dir_B;
- end;
-for k:=0 to 7 do begin
- dir_tertiary[k*4 ]:=dir_T;
- dir_tertiary[k*4+1]:=dir_L;
- dir_tertiary[k*4+2]:=dir_B;
- dir_tertiary[k*4+3]:=dir_R;
- end;
-dir_rearrange[0]:=0;
-dir_rearrange[1]:=0;
-dir_rearrange[2]:=1;
-dir_rearrange[3]:=1;
-dir_names[0]:="T";
-dir_names[1]:="L";
-dir_names[2]:="B";
-dir_names[3]:="R";
-@z
-%-------------------------
-@x [53] m.1344
-@d set_language_code=5 {command modifier for \.{\\setlanguage}}
-@y
-@d set_language_code=5 {command modifier for \.{\\setlanguage}}
-@d dir_whatsit_node=6 {|subtype| in whatsits for change direction node}
-@z
-%-------------------------
-@x [53] m.1344
-primitive("localinterlinepenalty",assign_int,
- int_base+local_inter_line_penalty_code);@/
-primitive("localbrokenpenalty",assign_int,
- int_base+local_broken_penalty_code);@/
-@y
-primitive("localinterlinepenalty",assign_int,
- int_base+local_inter_line_penalty_code);@/
-primitive("localbrokenpenalty",assign_int,
- int_base+local_broken_penalty_code);@/
-primitive("pagedir",assign_dir,dir_base+page_direction_code);@/
-primitive("bodydir",assign_dir,dir_base+body_direction_code);@/
-primitive("pardir",assign_dir,dir_base+par_direction_code);@/
-primitive("textdir",assign_dir,dir_base+text_direction_code);@/
-primitive("mathdir",assign_dir,dir_base+math_direction_code);@/
-primitive("pageheight",assign_dimen,dimen_base+page_height_code);@/
-primitive("pagewidth",assign_dimen,dimen_base+page_width_code);@/
-primitive("nextfakemath",assign_next_fake_math,0);@/
-{
-primitive("pagerightoffset",assign_dimen,dimen_base+page_right_offset_code);@/
-primitive("pagebottomoffset",assign_dimen,dimen_base+page_bottom_offset_code);@/
-}
-@z
-%-------------------------
-@x [53] m.1346
- set_language_code:print_esc("setlanguage");
- othercases print("[unknown extension!]")
- endcases;
-@y
- set_language_code:print_esc("setlanguage");
- othercases print("[unknown extension!]")
- endcases;
-@z
-%-------------------------
-@x [53] m.1348
-set_language_code:@<Implement \.{\\setlanguage}@>;
-@y
-set_language_code:@<Implement \.{\\setlanguage}@>;
-@z
-%-------------------------
-@x [53] m.1349
-procedure new_whatsit(@!s:small_number;@!w:small_number);
-var p:pointer; {the new node}
-begin p:=get_node(w); type(p):=whatsit_node; subtype(p):=s;
-link(tail):=p; tail:=p;
-end;
-@y
-procedure new_whatsit(@!s:small_number;@!w:small_number);
-var p:pointer; {the new node}
-begin p:=get_node(w); type(p):=whatsit_node; subtype(p):=s;
-@<LOCAL: Add info node pointer@>;
-link(tail):=p; tail:=p;
-end;
-@z
-%-------------------------
-@x [53] m.1356
-language_node:begin print_esc("setlanguage");
- print_int(what_lang(p)); print(" (hyphenmin ");
- print_int(what_lhm(p)); print_char(",");
- print_int(what_rhm(p)); print_char(")");
- end;
-@y
-language_node:begin print_esc("setlanguage");
- print_int(what_lang(p)); print(" (hyphenmin ");
- print_int(what_lhm(p)); print_char(",");
- print_int(what_rhm(p)); print_char(")");
- end;
-dir_whatsit_node:
- if dir_dir(p)<0 then begin
- print_esc("enddir"); print(" "); print_dir(dir_dir(p)+64);
- end
- else begin
- print_esc("begindir"); print(" "); print_dir(dir_dir(p));
- end;
-@z
-%-------------------------
-@x [53] m.1357
-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;
-dir_whatsit_node: begin r:=get_node(dir_node_size);
- words:=small_node_size;
- end;
-@z
-%-------------------------
-@x [53] m.1358
-close_node,language_node: free_node(p,small_node_size);
-@y
-close_node,language_node: free_node(p,small_node_size);
-dir_whatsit_node: free_node(p,dir_node_size);
-@z
-%-------------------------
-@x
-procedure make_info_node;
-{This function creates an |info_node|}
-var p:pointer;
-begin
-p:=get_node(info_size); type(p):=info_node;
-link(p):=null;
-info_ref_count(p):=1;
-info_pen_inter(p):=local_inter_line_penalty;
-info_pen_broken(p):=local_broken_penalty;
-if local_left_box=null then
- info_left_box(p):=null
-else
- info_left_box(p):=copy_node_list(local_left_box);
-if local_right_box=null then
- info_right_box(p):=null
-else
- info_right_box(p):=copy_node_list(local_right_box);
-if current_file_node=null then begin
- info_file(p):=null;
- end
-else begin
- info_file(p):=current_file_node;
- file_incr_ref_count(current_file_node);
- end;
-eq_define(local_par_info_base,data,p);
-end;
-@y
-procedure init_local_direction; forward;
-procedure make_info_node;
-{This function creates an |info_node|}
-var p:pointer;
-begin
-if local_dir=null then init_local_direction
-else begin
- p:=get_node(info_size); type(p):=info_node;
- link(p):=null;
- info_ref_count(p):=1;
- info_pen_inter(p):=local_inter_line_penalty;
- info_pen_broken(p):=local_broken_penalty;
- if local_left_box=null then
- info_left_box(p):=null
- else
- info_left_box(p):=copy_node_list(local_left_box);
- if local_right_box=null then
- info_right_box(p):=null
- else
- info_right_box(p):=copy_node_list(local_right_box);
- if current_file_node=null then begin
- info_file(p):=null;
- end
- else begin
- info_file(p):=current_file_node;
- file_incr_ref_count(current_file_node);
- end;
- info_dir(p):=local_dir;
- dir_incr_ref_count(local_dir);
- eq_define(local_par_info_base,data,p);
- end;
-end;
-
-procedure init_local_direction;
-var new_ptr:pointer;
- no_levels:integer;
-begin
-no_levels:=1;
-new_ptr:=get_node(dir_size+no_levels*2);
-type(new_ptr):=dir_node;
-dir_no(new_ptr):=no_levels;
-dir_ref_count(new_ptr):=1;
-mem[new_ptr+2*no_levels].int:=cur_level;
-mem[new_ptr+2*no_levels+1].int:=cur_val;
-eq_define(local_dir_base,data,new_ptr);
-make_info_node;
-end;
-
-procedure make_local_direction(new_val:integer;new_stack:boolean);
-var old_ptr,new_ptr:pointer;
- i,no_levels:integer;
-begin
-old_ptr:=local_dir;
-if new_stack then
- no_levels:=1
-else if mem[old_ptr+2*dir_no(old_ptr)].int=cur_level then
- no_levels:=dir_no(old_ptr)
-else
- no_levels:=dir_no(old_ptr)+1;
-new_ptr:=get_node(dir_size+no_levels*2);
-type(new_ptr):=dir_node;
-dir_no(new_ptr):=no_levels;
-dir_ref_count(new_ptr):=1;
-for i:=1 to no_levels-1 do begin
- mem[new_ptr+2*i].int:=mem[old_ptr+2*i].int;
- mem[new_ptr+2*i+1].int:=mem[old_ptr+2*i+1].int;
- end;
-mem[new_ptr+2*no_levels].int:=cur_level;
-mem[new_ptr+2*no_levels+1].int:=new_val;
-eq_define(local_dir_base,data,new_ptr);
-make_info_node;
-end;
-@z
-%-------------------------
-@x
-@ @<LOCAL: Change file node@>=
-begin
-make_file_node;
-end
-
-@y
-@ @<LOCAL: Change file node@>=
-begin
-make_file_node;
-end
-
-@ @<LOCAL: Delete direction node@>=
-begin
-dir_decr_ref_count(p);
-end
-
-@ @<DIR: Initialize direction stacks@>=
-begin
-par_dir_stack:=null;
-math_dir_stack:=null;
-align_dir_stack:=null;
-init_local_direction;
-end
-
-@ @<DIR: Assign direction codes@>=
-case cur_chr of
-dir_base+page_direction_code: begin
- if its_all_over then begin
- scan_dir;
- eq_word_define(dir_base+page_direction_code,cur_val);
- end;
- end;
-dir_base+body_direction_code: begin
- if its_all_over then begin
- scan_dir;
- eq_word_define(dir_base+body_direction_code,cur_val);
- end;
- end;
-dir_base+par_direction_code: begin
- scan_dir;
- eq_word_define(dir_base+par_direction_code,cur_val);
- end;
-dir_base+text_direction_code: begin scan_dir;
- eq_word_define(dir_base+text_direction_code,cur_val);
- make_local_direction(cur_val,false);
- end;
-dir_base+math_direction_code: begin scan_dir;
- eq_word_define(dir_base+math_direction_code,cur_val);
- end;
-end;
-
-@
-@d push_dir_node(#)==
-begin dir_tmp:=get_node(dir_node_size);
-type(dir_tmp):=whatsit_node; subtype(dir_tmp):=dir_whatsit_node;
-dir_dir(dir_tmp):=#;
-link(dir_tmp):=dir_ptr; dir_ptr:=dir_tmp;
-end
-
-@d pop_dir_node==
-begin dir_tmp:=dir_ptr;
-dir_ptr:=link(dir_tmp);
-free_node(dir_tmp,dir_node_size);
-end
-
-@ @<DIR: Declare |change_dir|@>=
-procedure change_dir(p:pointer;dir:integer);
-var new_info:pointer;
- old_info:pointer;
- new_dir_node:pointer;
-begin
-old_info:=ptr_info(p);
-if old_info=null then confusion("changedir");
-new_info:=get_node(info_size); type(new_info):=info_node;
-link(new_info):=null;
-info_ref_count(new_info):=1;
-info_pen_inter(new_info):=info_pen_inter(old_info);
-info_pen_broken(new_info):=info_pen_broken(old_info);
-if info_left_box(old_info)=null then
- info_left_box(new_info):=null
-else
- info_left_box(new_info):=copy_node_list(info_left_box(old_info));
-if info_right_box(old_info)=null then
- info_right_box(new_info):=null
-else
- info_right_box(new_info):=copy_node_list(info_right_box(old_info));
-info_file(new_info):=info_file(old_info);
-file_incr_ref_count(info_file(old_info));
-new_dir_node:=get_node(dir_size+2);
-type(new_dir_node):=dir_node;
-dir_no(new_dir_node):=1;
-dir_ref_count(new_dir_node):=2; {core dump if we put 1; why?}
-mem[new_dir_node+2].int:=0;
-mem[new_dir_node+3].int:=dir;
-info_dir(new_info):=new_dir_node;
-ptr_info(p):=new_info;
-info_decr_ref_count(old_info);
-end
-
-@ @<DIR: Initialize the text direction@>=
-begin
-dir_ptr:=null;
-cur_direction:=dvi_direction;
-new_dir_node:=info_dir(ptr_info(p));
-for i:=1 to dir_no(new_dir_node) do
- @<DIR: PUSH a new direction for mixed direction typesetting@>;
-prev_dir_node:=new_dir_node;
-end
-
-@ @<DIR: Finalize the text direction@>=
-begin
-for i:=dir_no(prev_dir_node) downto 1 do
- @<DIR: POP a new direction for mixed direction typesetting@>;
-end
-
-@ @<DIR: Check if the text direction has changed@>=
-begin
-if p<>null then
-if ptr_info(p)<>null then
-if info_dir(ptr_info(p))<>null then begin
- new_dir_node:=info_dir(ptr_info(p));
- if new_dir_node<>prev_dir_node then begin
- m:=dir_no(prev_dir_node);
- if dir_no(new_dir_node)<m then m:=dir_no(new_dir_node);
- i:=1; dir_level:=0; dir_found:=false;
- while not dir_found do begin
- if i>m then dir_found:=true
- else if mem[prev_dir_node+2*i+1].int = mem[new_dir_node+2*i+1].int then
- incr(dir_level)
- else dir_found:=true;
- incr(i);
- end;
- for i:=dir_no(prev_dir_node) downto dir_level+1 do
- @<DIR: POP a new direction for mixed direction typesetting@>;
- for i:=dir_level+1 to dir_no(new_dir_node) do
- @<DIR: PUSH a new direction for mixed direction typesetting@>;
- prev_dir_node:=new_dir_node;
- end
- end
-else begin print("No local node"); print_ln; end
-else begin print("No direction node"); print_ln; end
-end
-
-@ @<DIR: PUSH a new direction for mixed direction typesetting@>=begin
- synch_h; synch_v;
- d:=mem[new_dir_node+2*i+1].int;
- if not((i=1) and (cur_direction=d)) then begin
- push_dir_node(dvi_direction);
- if dir_opposite(dir_secondary[d])(dir_secondary[dvi_direction]) then begin
- if (dir_secondary[dvi_direction]=0) or
- (dir_secondary[dvi_direction]=2) then
- dvi_out(down4)
- else
- dvi_out(right4);
- dir_dvi_ptr(dir_ptr):=dvi_ptr;
- dir_dvi_h(dir_ptr):=dvi_h;
- dvi_four(0);
- cur_h:=0; dvi_h:=0;
- end
- else begin
- dir_dvi_ptr(dir_ptr):=dvi_ptr;
- dir_dvi_h(dir_ptr):=dvi_h;
- end;
- append_string("om:");
- append_string("startdir=");
- append_char(dir_names[dir_primary[d]]);
- append_char(dir_names[dir_secondary[d]]);
- append_char(dir_names[dir_tertiary[d]]);
- g:=make_string;
- if length(g)<256 then
- begin dvi_out(xxx1); dvi_out(length(g));
- end
- else begin dvi_out(xxx4); dvi_four(length(g));
- end;
- for newk:=str_start(g) to pool_ptr-1 do dvi_out(so(str_pool[newk]));
- flush_string; {erase the string}
- dvi_direction:=d;
- end
- end
-
-@ @<DIR: POP a new direction for mixed direction typesetting@>=begin
- synch_h; synch_v;
- d:=mem[prev_dir_node+2*i+1].int;
- if not((i=1) and (cur_direction=d)) then begin
- dvi_dir_h:=dir_dvi_h(dir_ptr);
- dvi_dir_ptr:=dir_dvi_ptr(dir_ptr);
- dvi_direction:=dir_dir(dir_ptr);
- pop_dir_node;
- if dir_opposite(dir_secondary[d])(dir_secondary[dvi_direction]) then begin
- dvi_temp_ptr:=dvi_ptr;
- dvi_ptr:=dvi_dir_ptr;
- if (dir_secondary[dvi_direction]=0) or
- (dir_secondary[dvi_direction]=1) then
- dvi_four(cur_h)
- else
- dvi_four(-cur_h);
- dvi_ptr:=dvi_temp_ptr;
- append_string("om:");
- append_string("enddir=");
- append_char(dir_names[dir_primary[d]]);
- append_char(dir_names[dir_secondary[d]]);
- append_char(dir_names[dir_tertiary[d]]);
- g:=make_string;
- if length(g)<256 then
- begin dvi_out(xxx1); dvi_out(length(g));
- end
- else begin dvi_out(xxx4); dvi_four(length(g));
- end;
- for newk:=str_start(g) to pool_ptr-1 do dvi_out(so(str_pool[newk]));
- flush_string; {erase the string}
- if (dir_secondary[dvi_direction]=0) or
- (dir_secondary[dvi_direction]=2) then
- dvi_out(down4)
- else
- dvi_out(right4);
- if (dir_secondary[dvi_direction]=0) or
- (dir_secondary[dvi_direction]=1) then
- dvi_four(cur_h)
- else
- dvi_four(-cur_h);
- cur_h:=dvi_dir_h+cur_h; dvi_h:=cur_h;
- end
- else begin
- append_string("om:");
- append_string("enddir=");
- append_char(dir_names[dir_primary[d]]);
- append_char(dir_names[dir_secondary[d]]);
- append_char(dir_names[dir_tertiary[d]]);
- g:=make_string;
- if length(g)<256 then
- begin dvi_out(xxx1); dvi_out(length(g));
- end
- else begin dvi_out(xxx4); dvi_four(length(g));
- end;
- for newk:=str_start(g) to pool_ptr-1 do dvi_out(so(str_pool[newk]));
- flush_string; {erase the string}
- end
- end
- end
-@z
diff --git a/Build/source/texk/web2c/omegadir/omega-pool.h b/Build/source/texk/web2c/omegadir/omega-pool.h
deleted file mode 100644
index 22824eb2682..00000000000
--- a/Build/source/texk/web2c/omegadir/omega-pool.h
+++ /dev/null
@@ -1,9 +0,0 @@
-#ifndef OMEGA_POOL_H
-#define OMEGA_POOL_H
-typedef int integer;
-typedef integer strnumber;
-typedef unsigned short packedASCIIcode;
-typedef integer poolpointer;
-extern packedASCIIcode * strpool;
-extern poolpointer poolptr;
-#endif
diff --git a/Build/source/texk/web2c/omegadir/omega.c b/Build/source/texk/web2c/omegadir/omega.c
deleted file mode 100644
index e96b1444ec3..00000000000
--- a/Build/source/texk/web2c/omegadir/omega.c
+++ /dev/null
@@ -1,624 +0,0 @@
-/* omega.c: C routines to support the Omega Pascal Web distribution
-
-This file is part of Omega,
-which is based on the web2c distribution of TeX,
-
-Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-
-Omega is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-Omega is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with Omega; if not, write to the Free Software Foundation, Inc.,
-59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-
-*/
-
-#define EXTERN extern
-#include "omegad.h"
-
-void
-btestin(void)
-{
- string fname =
- kpse_find_file (nameoffile + 1, kpse_program_binary_format, true);
-
- if (fname) {
- libcfree(nameoffile);
- nameoffile = (char *)xmalloc(2+strlen(fname));
- namelength = strlen(fname);
- strcpy(nameoffile+1, fname);
- }
- else {
- libcfree(nameoffile);
- nameoffile = (char *)xmalloc(2);
- namelength = 0;
- nameoffile[0] = 0;
- nameoffile[1] = 0;
- }
-}
-
-int
-getfilemode P2C(FILE *, f, int, def)
-{
- int c,m;
- if ((def==0)||(feof(f))) m=0;
- else {
- c = getc(f);
- if (c==EOF) m=0;
- else if (c==0x5c) {
- if (feof(f)) m=0;
- else {
- c = getc(f);
- if (c==EOF) m=0;
- else if (c==0) m=4;
- else m=1;
- ungetc(c,f);
- c=0x5c;
- }
- }
- else if (c==0x25) {
- if (feof(f)) m=0;
- else {
- c = getc(f);
- if (c==EOF) m=0;
- else if (c==0) m=4;
- else m=1;
- ungetc(c,f);
- c=0x25;
- }
- }
- else if (c==0xe0) m=2;
- else if (c==0x6c) m=2;
- else if (c==0) {
- if (feof(f)) m=0;
- else {
- c = getc(f);
- if (c==EOF) m=0;
- else if (c==0x5c) m=3;
- else if (c==0x25) m=3;
- else m=def;
- ungetc(c,f);
- c=0;
- }
- }
- else m=def;
- ungetc(c,f);
- }
- return m;
-}
-
-int
-getc_two_LE P1C(FILE *, f)
-{
- register int i,j;
- i = getc(f);
- if (i==EOF) { return i; }
- j = getc(f);
- if (j==EOF) { return j; }
- return ((j<<8)|i);
-}
-
-void
-ungetc_two_LE P2C(int, c, FILE *, f)
-{
- ungetc((c>>8), f);
- ungetc((c&0377), f);
-}
-
-int
-getc_two P1C(FILE *, f)
-{
- register int i,j;
- i = getc(f);
- if (i==EOF) { return i; }
- j = getc(f);
- if (j==EOF) { return j; }
- return ((i<<8)|j);
-}
-
-void
-ungetc_two P2C(int, c, FILE *, f)
-{
- ungetc((c&0377), f);
- ungetc((c>>8), f);
-}
-
-#define advance_cin if ((c_in = fgetc(f)) == EOF) return EOF
-
-int
-getc_UTF8 P1C(FILE *, f)
-{
- register int c_in,c_out;
-
- advance_cin;
- if (c_in<0x80) {
- c_out = c_in & 0x7f;
- } else if (c_in<0xe0) {
- c_out = (c_in & 0x1f) << 6;
- advance_cin;
- c_out |= c_in & 0x3f;
- } else if (c_in<=0xf0) {
- c_out = (c_in & 0xf) << 12;
- advance_cin;
- c_out |= (c_in & 0x3f) << 6;
- advance_cin;
- c_out |= c_in & 0x3f;
- } else if (c_in<0xf8) {
- c_out = (c_in & 0x7) << 18;
- advance_cin;
- c_out |= (c_in & 0x3f) << 12;
- advance_cin;
- c_out |= (c_in & 0x3f) << 6;
- advance_cin;
- c_out |= c_in & 0x3f;
- } else if (c_in<0xfc) {
- c_out = (c_in & 0x3) << 24;
- advance_cin;
- c_out |= (c_in & 0x3f) << 18;
- advance_cin;
- c_out |= (c_in & 0x3f) << 12;
- advance_cin;
- c_out |= (c_in & 0x3f) << 6;
- advance_cin;
- c_out |= c_in & 0x3f;
- } else { /* c>=0xfc */
- c_out = (c_in & 0x1) << 30;
- advance_cin;
- c_out |= (c_in & 0x3f) << 24;
- advance_cin;
- c_out |= (c_in & 0x3f) << 18;
- advance_cin;
- c_out |= (c_in & 0x3f) << 12;
- advance_cin;
- c_out |= (c_in & 0x3f) << 6;
- advance_cin;
- c_out |= c_in & 0x3f;
- }
- return c_out;
-}
-
-void
-ungetc_UTF8 P2C(int, c, FILE *, f)
-{
- /* Still to be done */
-}
-
-#define advance_two_cin advance_cin; \
- c_in_hi = c_in; \
- advance_cin; \
- c_in = (c_in_hi & 0xff) << 8
-
-int
-getc_UTF16 P1C(FILE *, f)
-{
- register int c_in,c_in_hi,c_out;
-
- advance_two_cin;
- if ((c_in>=0xd800) && (c_in<=0xdbff)) {
- c_out = (c_in - 0xd800) * 0x400;
- advance_two_cin;
- if ((c_in>=0xdc00) && (c_in<=0xdfff)) {
- c_out += (c_in - 0xdc00) + 0x10000;
- } else {
- return 0xfffd;
- }
- } else {
- c_out = c_in;
- }
- return c_out;
-}
-
-void
-ungetc_UTF16 P2C(int, c, FILE *, f)
-{
- /* Still to be done */
-}
-
-#define advance_twoLE_cin advance_cin; \
- c_in_lo = c_in; \
- advance_cin; \
- c_in = (c_in << 8) | (c_in_lo & 0xff)
-
-int
-getc_UTF16LE P1C(FILE *, f)
-{
- register int c_in,c_in_lo,c_out;
-
- advance_twoLE_cin;
- if ((c_in>=0xd800) && (c_in<=0xdbff)) {
- c_out = (c_in - 0xd800) * 0x400;
- advance_twoLE_cin;
- if ((c_in>=0xdc00) && (c_in<=0xdfff)) {
- c_out += (c_in - 0xdc00) + 0x10000;
- } else {
- return 0xfffd;
- }
- } else {
- c_out = c_in;
- }
- return c_out;
-}
-
-void
-ungetc_UTF16LE P2C(int, c, FILE *, f)
-{
- /* Still to be done */
-}
-
-
-extern boolean zpnewinputln ();
-
-boolean
-newinputln P4C(FILE *,f, halfword,themode, halfword,translation, boolean,bypass)
-{
- return zpnewinputln((alphafile)f,
- (halfword)themode,
- (halfword)translation,
- (boolean) bypass);
-}
-
-boolean
-new_input_line P2C(FILE *, f, halfword, themode)
-{
- register int i=EOF;
-
- last = first;
- otpinputend = 0;
-
- if (themode==1) {
- while ((otpinputend < ocpbufsize) && ((i = getc (f)) != EOF) &&
- ((i != '\r') && (i != '\n')))
- otpinputbuf[++otpinputend] = i;
- if (i=='\r') {
- i=getc(f); if (i != '\n') ungetc(i,f);
- }
- } else if (themode==2) {
- while ((otpinputend < ocpbufsize) && ((i = getc (f)) != EOF) &&
- (i != 0x25))
- otpinputbuf[++otpinputend] = i;
- } else if (themode==3) {
- while ((otpinputend < ocpbufsize) && ((i = getc_two (f)) != EOF) &&
- ((i != '\r') && (i != '\n')))
- otpinputbuf[++otpinputend] = i;
- if (i=='\r') {
- i=getc_two(f); if (i != '\n') ungetc_two(i,f);
- }
- } else if (themode==4) {
- while ((otpinputend < ocpbufsize) && ((i = getc_two_LE (f)) != EOF) &&
- ((i != '\r') && (i != '\n')))
- otpinputbuf[++otpinputend] = i;
- if (i=='\r') {
- i=getc_two_LE(f); if (i != '\n') ungetc_two_LE(i,f);
- }
- } else if (themode==5) {
- while ((otpinputend < ocpbufsize) && ((i = getc_UTF8 (f)) != EOF) &&
- ((i != '\r') && (i != '\n')))
- otpinputbuf[++otpinputend] = i;
- if (i=='\r') {
- i=getc_UTF8(f); if (i != '\n') ungetc_UTF8(i,f);
- }
- } else if (themode==6) {
- while ((otpinputend < ocpbufsize) && ((i = getc_UTF16 (f)) != EOF) &&
- ((i != '\r') && (i != '\n')))
- otpinputbuf[++otpinputend] = i;
- if (i=='\r') {
- i=getc_UTF16(f); if (i != '\n') ungetc_UTF16(i,f);
- }
- } else /* themode==7 */ {
- while ((otpinputend < ocpbufsize) && ((i = getc_UTF16LE (f)) != EOF) &&
- ((i != '\r') && (i != '\n')))
- otpinputbuf[++otpinputend] = i;
- if (i=='\r') {
- i=getc_UTF16LE(f); if (i != '\n') ungetc_UTF16LE(i,f);
- }
- }
-
- if (i == EOF && otpinputend == 0)
- return false;
-
- /* We didn't get the whole line because our buffer was too small.
-*/
- if (i != EOF && (((themode!=2) && (i != '\n')) || ((themode==2) && (i != 0x25))))
- {
- (void) fprintf (stderr,
- "! Unable to read an entire line---ocp_buf_size=%ld.\n",ocpbufsize);
- (void) fprintf (stderr, "Please increase ocp_buf_size in texmf.cnf.\n");
- uexit (1);
- }
-
- return true;
-}
-
-extern memoryword ziniteqtbentry () ;
-
-hashword hashtable[HASHTABLESIZE];
-
-void
-inithhashtable P1H(void)
-{
- int i;
- for (i=0; i<HASHTABLESIZE; i++) {
- hashtable[i].p = -1;
- }
-
-}
-
-hashword *
-createeqtbpos P1C(int, p)
-{
- hashword *runner= &(hashtable[p%HASHTABLESIZE]);
- if (runner->p==p) return runner;
- while (runner->p != -1) {
- runner = runner->ptr;
- if (runner->p == p) return runner;
- }
- runner->p = p;
- runner->mw = ziniteqtbentry(p);
- runner->ptr = (hashword *) xmalloc(sizeof(hashword));
- (runner->ptr)->p = -1;
- return runner;
-}
-
-memoryword *
-createeqtbptr P1C(int, p)
-{
- hashword *runner= &(hashtable[p%HASHTABLESIZE]);
- if (runner->p==p) return (&(runner->mw));
- while (runner->p != -1) {
- runner = runner->ptr;
- if (runner->p == p) return (&(runner->mw));
- }
- runner->p = p;
- runner->mw = ziniteqtbentry(p);
- runner->ptr = (hashword *) xmalloc(sizeof(hashword));
- (runner->ptr)->p = -1;
- return (&(runner->mw));
-}
-
-hashword *
-createxeqlevel P1C(int, p)
-{
- hashword *runner= &(hashtable[p%HASHTABLESIZE]);
- if (runner->p==p) return runner;
- while (runner->p != -1) {
- runner = runner->ptr;
- if (runner->p == p) return runner;
- }
- runner->p = p;
- runner->mw.cint = 1;
- runner->mw.cint1 = 0;
- runner->ptr = (hashword *) xmalloc(sizeof(hashword));
- (runner->ptr)->p = -1;
- return runner;
-}
-
-hashword *
-createhashpos P1C(int, p)
-{
- hashword *runner= &(hashtable[p%HASHTABLESIZE]);
- if (runner->p==p) return runner;
- while (runner->p != -1) {
- runner = runner->ptr;
- if (runner->p == p) return runner;
- }
- runner->p = p;
- runner->mw.cint = 0;
- runner->mw.cint1 = 0;
- runner->ptr = (hashword *) xmalloc(sizeof(hashword));
- (runner->ptr)->p = -1;
- return runner;
-}
-
-void
-dumphhashtable P1H(void)
-{
- int i;
- hashword *runner;
- for (i=0; i<HASHTABLESIZE; i++) {
- runner=&(hashtable[i]);
- if (runner->p != -1) {
- dumpint(-i);
- while (runner->p != -1) {
- dumpint(runner->p);
- dumpwd(runner->mw);
- runner=runner->ptr;
- }
- }
- }
- dumpint(-HASHTABLESIZE);
-}
-
-void
-undumphhashtable P1H(void)
-{
- int i,j;
- hashword *runner;
- j=0;
- undumpint(i);
- while (j<HASHTABLESIZE) {
- i = (-i);
- while (j<i) {
- hashtable[j].p = -1;
- j++;
- }
- if (i<HASHTABLESIZE) {
- runner = &(hashtable[j]);
- undumpint(i);
- while (i>=0) {
- runner->p = i;
- undumpwd(runner->mw);
- undumpint(i);
- runner->ptr = (hashword *) xmalloc(sizeof(hashword));
- runner = runner->ptr;
- }
- runner->p = -1;
- j++;
- }
- }
-}
-
-void
-odateandtime P4C(int,timecode, int,daycode, int,monthcode, int,yearcode)
-{
- integer tc,dc,mc,yc;
- dateandtime(tc,dc,mc,yc);
- setneweqtbint(timecode,tc);
- setneweqtbint(daycode,dc);
- setneweqtbint(monthcode,mc);
- setneweqtbint(yearcode,yc);
-}
-
-memoryword **fonttables;
-static int font_entries = 0;
-
-void
-allocatefonttable P2C(int, font_number, int, font_size)
-{
- int i;
- if (font_entries==0) {
- fonttables = (memoryword **) xmalloc(256*sizeof(memoryword**));
- font_entries=256;
- } else if ((font_number==256)&&(font_entries==256)) {
- fonttables = (memoryword **) xrealloc(fonttables, 65536);
- font_entries=65536;
- }
- fonttables[font_number] =
- (memoryword *) xmalloc((font_size+1)*sizeof(memoryword));
- fonttables[font_number][0].cint = font_size;
- fonttables[font_number][0].cint1 = 0;
- for (i=1; i<=font_size; i++) {
- fonttables[font_number][i].cint = 0;
- fonttables[font_number][i].cint1 = 0;
- }
-}
-
-void
-dumpfonttable P2C(int, font_number, int, words)
-{
- fonttables[font_number][0].cint=words;
- dumpthings(fonttables[font_number][0], fonttables[font_number][0].cint+1);
-}
-
-void
-undumpfonttable P1C(int, font_number)
-{
- memoryword sizeword;
- if (font_entries==0) {
- fonttables = (memoryword **) xmalloc(256*sizeof(memoryword**));
- font_entries=256;
- } else if ((font_number==256)&&(font_entries==256)) {
- fonttables = (memoryword **) xrealloc(fonttables, 65536);
- font_entries=65536;
- }
-
- undumpthings(sizeword,1);
- fonttables[font_number] =
- (memoryword *) xmalloc((sizeword.cint+1)*sizeof(memoryword));
- fonttables[font_number][0].cint = sizeword.cint;
- undumpthings(fonttables[font_number][1], sizeword.cint);
-}
-
-memoryword **fontsorttables;
-static int fontsort_entries = 0;
-
-void
-allocatefontsorttable P2C(int, fontsort_number, int, fontsort_size)
-{
- int i;
- if (fontsort_entries==0) {
- fontsorttables = (memoryword **) xmalloc(256*sizeof(memoryword**));
- fontsort_entries=256;
- } else if ((fontsort_number==256)&&(fontsort_entries==256)) {
- fontsorttables = (memoryword **) xrealloc(fontsorttables, 65536);
- fontsort_entries=65536;
- }
- fontsorttables[fontsort_number] =
- (memoryword *) xmalloc((fontsort_size+1)*sizeof(memoryword));
- fontsorttables[fontsort_number][0].cint = fontsort_size;
- fontsorttables[fontsort_number][0].cint1 = 0;
- for (i=1; i<=fontsort_size; i++) {
- fontsorttables[fontsort_number][i].cint = 0;
- fontsorttables[fontsort_number][i].cint1 = 0;
- }
-}
-
-void
-dumpfontsorttable P2C(int, fontsort_number, int, words)
-{
- fontsorttables[fontsort_number][0].cint=words;
- dumpthings(fontsorttables[fontsort_number][0],
- fontsorttables[fontsort_number][0].cint+1);
-}
-
-void
-undumpfontsorttable P1C(int, fontsort_number)
-{
- memoryword sizeword;
- if (fontsort_entries==0) {
- fontsorttables = (memoryword **) xmalloc(256*sizeof(memoryword**));
- fontsort_entries=256;
- } else if ((fontsort_number==256)&&(fontsort_entries==256)) {
- fontsorttables = (memoryword **) xrealloc(fontsorttables, 65536);
- fontsort_entries=65536;
- }
-
- undumpthings(sizeword,1);
- fontsorttables[fontsort_number] =
- (memoryword *) xmalloc((sizeword.cint+1)*sizeof(memoryword));
- fontsorttables[fontsort_number][0].cint = sizeword.cint;
- undumpthings(fontsorttables[fontsort_number][1], sizeword.cint);
-}
-
-int **ocptables;
-static int ocp_entries = 0;
-
-void
-allocateocptable P2C(int, ocp_number, int, ocp_size)
-{
- int i;
- if (ocp_entries==0) {
- ocptables = (int **) xmalloc(256*sizeof(int**));
- ocp_entries=256;
- } else if ((ocp_number==256)&&(ocp_entries==256)) {
- ocptables = (int **) xrealloc(ocptables, 65536);
- ocp_entries=65536;
- }
- ocptables[ocp_number] =
- (int *) xmalloc((1+ocp_size)*sizeof(int));
- ocptables[ocp_number][0] = ocp_size;
- for (i=1; i<=ocp_size; i++) {
- ocptables[ocp_number][i] = 0;
- }
-}
-
-void
-dumpocptable P1C(int, ocp_number)
-{
- dumpthings(ocptables[ocp_number][0], ocptables[ocp_number][0]+1);
-}
-
-void
-undumpocptable P1C(int, ocp_number)
-{
- int sizeword;
- if (ocp_entries==0) {
- ocptables = (int **) xmalloc(256*sizeof(int**));
- ocp_entries=256;
- } else if ((ocp_number==256)&&(ocp_entries==256)) {
- ocptables = (int **) xrealloc(ocptables, 65536);
- ocp_entries=65536;
- }
- undumpthings(sizeword,1);
- ocptables[ocp_number] =
- (int *) xmalloc((1+sizeword)*sizeof(int));
- ocptables[ocp_number][0] = sizeword;
- undumpthings(ocptables[ocp_number][1], sizeword);
-}
diff --git a/Build/source/texk/web2c/omegadir/omega.defines b/Build/source/texk/web2c/omegadir/omega.defines
deleted file mode 100644
index c47c515314f..00000000000
--- a/Build/source/texk/web2c/omegadir/omega.defines
+++ /dev/null
@@ -1,74 +0,0 @@
-{ omega.defines: Web declarations of Omega
-
-This file is part of Omega,
-which is based on the web2c distribution of TeX,
-
-Copyright (c) 1994--2001, 2008 John Plaice and Yannis Haralambous
-
-Omega is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-Omega is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with Omega; if not, write to the Free Software Foundation, Inc.,
-59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-
-}
-
-@define function newinputln ();
-@define function getfilemode ();
-@define function newinputline ();
-@define function neweqtb ();
-@define function neweqtbint ();
-@define function neweqtbsc ();
-@define function newequiv ();
-@define function newequiv1 ();
-@define function neweqlevel ();
-@define function neweqtype ();
-
-@define function newhashnext ();
-@define function newhashtext ();
-@define function newxeqlevel ();
-
-@define procedure odateandtime ();
-@define procedure allocatefonttable ();
-@define procedure dumpfonttable ();
-@define procedure undumpfonttable ();
-@define procedure allocatefontsorttable ();
-@define procedure dumpfontsorttable ();
-@define procedure undumpfontsorttable ();
-@define procedure allocateocptable ();
-@define procedure dumpocptable ();
-@define procedure undumpocptable ();
-@define procedure initeqtbtable;
-@define procedure dumpeqtbtable;
-@define procedure undumpeqtbtable;
-@define procedure setneweqtb ();
-@define procedure setneweqtbint ();
-@define procedure setneweqtbsc ();
-@define procedure setequiv ();
-@define procedure setequiv1 ();
-@define procedure seteqtype ();
-@define procedure seteqlevel ();
-@define procedure btestin ;
-@define procedure runexternalocp ();
-@define procedure changeomegafilename ();
-
-@define procedure sethashnext ();
-@define procedure sethashtext ();
-@define procedure setintzero ();
-@define procedure setintone ();
-
-@define var fonttables;
-@define var fontsorttables;
-@define var ocptables;
-
-@define var ocptemp;
-
-{ end of omega.defines }
diff --git a/Build/source/texk/web2c/omegadir/omega.mk b/Build/source/texk/web2c/omegadir/omega.mk
deleted file mode 100644
index f11b6783045..00000000000
--- a/Build/source/texk/web2c/omegadir/omega.mk
+++ /dev/null
@@ -1,225 +0,0 @@
-# Makefile fragment for Omega and web2c. --infovore@xs4all.nl. Public domain.
-# This fragment contains the parts of the makefile that are most likely to
-# differ between releases of Omega.
-
-Makefile: omegadir/omega.mk
-
-omegafonts_programs = @OMEGA@ omegafonts/omfonts
-otps_programs = @OMEGA@ otps/otp2ocp otps/outocp
-omegafonts = @OMEGA@ omegafonts
-otps = @OMEGA@ otps
-
-odvicopy = odvicopy
-odvitype = odvitype
-otangle = otangle
-omegaware_c = odvicopy.c odvitype.c otangle.c
-omegaware_programs = $(otangle) $(odvicopy) $(odvitype)
-
-omega_programs = $(omega) $(otangle) $(odvicopy) $(odvitype) \
- $(otps_programs) $(omegafonts_programs)
-
-# The otangle used in the build is not be the otangle we build if we are
-# cross-compiling.
-OTANGLE = @OTANGLE@
-
-# Omegaware
-
-odvicopy: odvicopy.o
- $(kpathsea_link) odvicopy.o $(LOADLIBES)
-odvicopy.c odvicopy.h: $(web2c_common) $(web2c_programs) odvicopy.p
- $(web2c) odvicopy
-odvicopy.p: tangle omegaware/odvicopy.web omegaware/odvicopy.ch
- WEBINPUTS=$(srcdir)/omegaware $(TANGLE) odvicopy odvicopy
-check: odvicopy-check
-odvicopy-check: odvicopy
-# ./odvicopy $(srcdir)/tests/story tests/xstory.dvi
-## Redirect stderr so the terminal output will end up in the log file.
-# (TFMFONTS=$(srcdir)/tests: ./odvicopy <$(srcdir)/tests/pplr.dvi \
-# >tests/xpplr.dvi) 2>&1
-clean:: odvicopy-clean
-odvicopy-clean:
- $(LIBTOOL) --mode=clean $(RM) odvicopy
- rm -f odvicopy.o odvicopy.c odvicopy.h odvicopy.p
-# rm -f tests/xstory.dvi tests/xpplr.dvi
-
-odvitype: odvitype.o
- $(kpathsea_link) odvitype.o $(LOADLIBES)
-odvitype.c odvitype.h: $(web2c_common) $(web2c_programs) odvitype.p
- $(web2c) odvitype
-odvitype.p: tangle omegaware/odvitype.web omegaware/odvitype.ch
- WEBINPUTS=$(srcdir)/omegaware $(TANGLE) odvitype odvitype
-check: odvitype-check
-odvitype-check: odvitype
-# ./odvitype -show-opcodes $(srcdir)/tests/story >tests/xstory.dvityp
-# ./odvitype --p=\*.\*.2 $(srcdir)/tests/pagenum.dvi >tests/xpagenum.typ
-clean:: odvitype-clean
-odvitype-clean:
- $(LIBTOOL) --mode=clean $(RM) odvitype
- rm -f odvitype.o odvitype.c odvitype.h odvitype.p
-# rm -f tests/xstory.dvityp tests/xpagenum.typ
-
-otangle: otangle.o
- $(kpathsea_link) otangle.o $(LOADLIBES)
-otangle.c otangle.h: $(web2c_common) $(web2c_programs) otangle.p
- $(web2c) otangle
-otangle.p: tangle omegaware/otangle.web omegaware/otangle.ch
- WEBINPUTS=$(srcdir)/omegaware $(TANGLE) otangle otangle
-check: otangle-check
-otangle-check: otangle
-# otangling omega is a good check already
-clean:: otangle-clean
-otangle-clean:
- $(LIBTOOL) --mode=clean $(RM) otangle
- rm -f otangle.o otangle.c otangle.h otangle.p
-
-#
-# Omega itself.
-
-# We build omega
-omega = @OMEGA@ omega
-
-# The C sources.
-omega_c = omegaini.c omega0.c omega1.c omega2.c omega3.c
-omega_o = omegaini.o omega0.o omega1.o omega2.o \
- omegaextra.o omega.o omegabis.o \
- omega3.o omega-pool.o
-
-# Linking
-omega: $(omega_o)
- $(kpathsea_link) $(omega_o) $(socketlibs) $(LOADLIBES)
-
-# The C files
-$(omega_c) omegacoerce.h omegad.h: omega.p $(web2c_texmf)
- $(web2c) omega
-omegaextra.c: lib/texmfmp.c
- sed s/TEX-OR-MF-OR-MP/omega/ $(srcdir)/lib/texmfmp.c >$@
-# Additional C files, just copy them.
-omega.c: omegadir/omega.c
- -rm -f $@
- cp $(srcdir)/omegadir/omega.c $@
-omegabis.c: omegadir/omegabis.c
- -rm -f $@
- cp $(srcdir)/omegadir/omegabis.c $@
-omegamem.h: omegadir/omegamem.h
- -rm -f $@
- cp $(srcdir)/omegadir/omegamem.h $@
-
-# The Pascal file
-omega.p omega.pool: otangle omega.web omega.ch
- $(OTANGLE) omega.web omega.ch
-
-# Generation of the web and ch files.
-omega.web: tie tex.web omegadir/omega.mk
-omega.web: omegadir/omnode.ch
-omega.web: omegadir/om16bit.ch
-omega.web: omegadir/omstr.ch
-omega.web: omegadir/omfont.ch
-omega.web: omegadir/omchar.ch
-omega.web: omegadir/omfi.ch
-omega.web: omegadir/ompar.ch
-omega.web: omegadir/omocp.ch
-omega.web: omegadir/omfilter.ch
-omega.web: omegadir/omtrans.ch
-omega.web: omegadir/omdir.ch
-omega.web: omegadir/omcprt.ch
-omega.web: omegadir/omxml.ch
- $(TIE) -m omega.web $(srcdir)/tex.web \
- $(srcdir)/omegadir/omnode.ch \
- $(srcdir)/omegadir/om16bit.ch \
- $(srcdir)/omegadir/omstr.ch \
- $(srcdir)/omegadir/omfont.ch \
- $(srcdir)/omegadir/omchar.ch \
- $(srcdir)/omegadir/omfi.ch \
- $(srcdir)/omegadir/ompar.ch \
- $(srcdir)/omegadir/omocp.ch \
- $(srcdir)/omegadir/omfilter.ch \
- $(srcdir)/omegadir/omtrans.ch \
- $(srcdir)/omegadir/omdir.ch \
- $(srcdir)/omegadir/omcprt.ch \
- $(srcdir)/omegadir/omxml.ch
-omega.ch: tie omega.web omegadir/omega.mk
-omega.ch: omegadir/comnode.ch
-omega.ch: omegadir/com16bit.ch
-omega.ch: omegadir/comstr.ch
-omega.ch: omegadir/comfont.ch
-omega.ch: omegadir/comchar.ch
-omega.ch: omegadir/comfi.ch
-omega.ch: omegadir/compar.ch
-omega.ch: omegadir/comocp.ch
-omega.ch: omegadir/comfilter.ch
-omega.ch: omegadir/comtrans.ch
-omega.ch: omegadir/comdir.ch
-omega.ch: omegadir/comxml.ch
-omega.ch: omegadir/comsrcspec.ch
- $(TIE) -c omega.ch omega.web \
- $(srcdir)/omegadir/comnode.ch \
- $(srcdir)/omegadir/com16bit.ch \
- $(srcdir)/omegadir/comstr.ch \
- $(srcdir)/omegadir/comfont.ch \
- $(srcdir)/omegadir/comchar.ch \
- $(srcdir)/omegadir/comfi.ch \
- $(srcdir)/omegadir/compar.ch \
- $(srcdir)/omegadir/comocp.ch \
- $(srcdir)/omegadir/comfilter.ch \
- $(srcdir)/omegadir/comtrans.ch \
- $(srcdir)/omegadir/comdir.ch \
- $(srcdir)/omegadir/comxml.ch \
- $(srcdir)/omegadir/comsrcspec.ch
-
-omega-pool.c: omega.pool $(makecpool)
- $(makecpool) omega.pool omegadir/omega-pool.h >$@ || rm -f $@
-
-# Check: right now all we do is build the format.
-check: @OMEGA@ omega-check
-omega-check: omega omega.fmt
-# Cleaning up from building omega
-clean:: omega-clean
-omega-clean:
- $(LIBTOOL) --mode=clean $(RM) omega
- rm -f $(omega_c) omegaextra.c omegacoerce.h omegad.h
- rm -f omega.c omegabis.c omegamem.h
- rm -f omega.p omega.pool omega.web omega.ch
-
-#
-# Dumps.
-all_ofmts = @FMU@ omega.fmt $(ofmts)
-
-dumps: @OMEGA@ ofmts
-ofmts: $(all_ofmts)
-
-ofmtdir = $(web2cdir)/omega
-$(ofmtdir)::
- $(SHELL) $(top_srcdir)/../mkinstalldirs $(ofmtdir)
-
-omega.fmt: omega
- $(dumpenv) $(MAKE) progname=omega files="omega.tex" prereq-check
- $(dumpenv) ./omega --progname=omega --jobname=omega --ini \\input omega.tex \\dump </dev/null
-
-lambda.fmt: omega
- $(dumpenv) $(MAKE) progname=lambda files="lambda.tex" prereq-check
- $(dumpenv) ./omega --progname=lambda --jobname=lambda --ini \\input lambda.tex </dev/null
-
-
-#
-# Some additional programs for Omega: the programs themselves are named
-# in the variable otps_programs, defined above.
-otps/otp2ocp:
- cd otps && $(MAKE) $(common_makeargs) otp2ocp
-otps/outocp:
- cd otps && $(MAKE) $(common_makeargs) outocp
-omegafonts/omfonts:
- cd omegafonts && $(MAKE) $(common_makeargs) omfonts
-
-#
-# Installation.
-install-omega: install-omega-exec
-install-programs: @OMEGA@ install-omega-exec
-install-omega-exec: $(omega_programs) $(bindir) install-omega-links
- for p in omega; do $(INSTALL_LIBTOOL_PROG) $$p $(bindir); done
- cd otps && $(MAKE) $(install_makeargs) install-programs
- cd omegafonts && $(MAKE) $(install_makeargs) install-programs
-
-install-omega-links:
- cd omegafonts && $(MAKE) $(install_makeargs) install-links
-
-# end of omega.mk
diff --git a/Build/source/texk/web2c/omegadir/omega.version b/Build/source/texk/web2c/omegadir/omega.version
deleted file mode 100644
index 3dd98ba5c23..00000000000
--- a/Build/source/texk/web2c/omegadir/omega.version
+++ /dev/null
@@ -1 +0,0 @@
-1.23.2.3
diff --git a/Build/source/texk/web2c/omegadir/omegabis.c b/Build/source/texk/web2c/omegadir/omegabis.c
deleted file mode 100644
index c460f77148c..00000000000
--- a/Build/source/texk/web2c/omegadir/omegabis.c
+++ /dev/null
@@ -1,339 +0,0 @@
-/* omegabis.c: C routines to support external OCPs
-
-This file is part of Omega,
-which is based on the web2c distribution of TeX,
-
-Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-Copyright (c) 2002 Behdad Esfahbod
-Copyright (c) 2002 Roozbeh Pournader
-
-Omega is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-Omega is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with Omega; if not, write to the Free Software Foundation, Inc.,
-59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-
-*/
-#define EXTERN extern
-#include <stdlib.h>
-#include <stdio.h>
-#include <errno.h>
-#include <string.h>
-#ifndef WIN32
-#include <unistd.h>
-#endif /* not WIN32 */
-#include "omegad.h"
-
-#if 1
-
-void
-runexternalocp P1C(string, external_ocp_name)
-{
- char *in_file_name;
- char *out_file_name;
- FILE *in_file;
- FILE *out_file;
- int in_file_fd;
- int out_file_fd;
- char command_line[400];
- int i;
- unsigned c;
- int c_in;
-#ifdef WIN32
- char *tempenv;
-
-#define null_string(s) ((s == NULL) || (*s == '\0'))
-
- tempenv = getenv("TMPDIR");
- if (null_string(tempenv))
- tempenv = getenv("TEMP");
- if (null_string(tempenv))
- tempenv = getenv("TMP");
- if (null_string(tempenv))
- tempenv = "c:/tmp"; /* "/tmp" is not good if we are on a CD-ROM */
- in_file_name = concat(tempenv, "/__omega__in__XXXXXX");
- mktemp(in_file_name);
- in_file = fopen(in_file_name, FOPEN_WBIN_MODE);
-#else
-
-#if HAVE_MKSTEMP
- in_file_name = xstrdup("/tmp/__omega__in__XXXXXX");
- in_file_fd = mkstemp(in_file_name);
- in_file = fdopen(in_file_fd, FOPEN_WBIN_MODE);
-#else
-#if HAVE_MKTEMP
- in_file_name = xstrdup("/tmp/__omega__in__XXXXXX");
- mktemp(in_file_name);
-#else
- in_file_name = xstrdup(tmpnam(NULL));
-#endif /* HAVE_MKTEMP */
- in_file = fopen(in_file_name, FOPEN_WBIN_MODE);
-#endif /* HAVE_MKSTEMP */
-
-#endif /* WIN32 */
-
- if (in_file == NULL)
- fprintf(stderr, "omega: error opening file: %s\n", strerror(errno));
-
- for (i=1; i<=otpinputend; i++) {
- c = otpinputbuf[i];
- if (c>0xffff) {
- fprintf(stderr, "Omega does not currently support 31-bit chars\n");
- exit(1);
- }
- if (c<0x80) {
- fputc(c & 0x7f, in_file);
- } else if (c<0x800) {
- fputc(0xc0 | ((c>>6) & 0x1f), in_file);
- fputc(0x80 | (c & 0x3f), in_file);
- } else if (c<0x10000) {
- fputc(0xe0 | ((c>>12) & 0xf), in_file);
- fputc(0x80 | ((c>>6) & 0x3f), in_file);
- fputc(0x80 | (c & 0x3f), in_file);
- } else if (c<0x200000) {
- fputc(0xf0 | ((c>>18) & 0x7), in_file);
- fputc(0x80 | ((c>>12) & 0x3f), in_file);
- fputc(0x80 | ((c>>6) & 0x3f), in_file);
- fputc(0x80 | (c & 0x3f), in_file);
- } else if (c<0x4000000) {
- fputc(0xf8 | ((c>>24) & 0x3), in_file);
- fputc(0x80 | ((c>>18) & 0x3f), in_file);
- fputc(0x80 | ((c>>12) & 0x3f), in_file);
- fputc(0x80 | ((c>>6) & 0x3f), in_file);
- fputc(0x80 | (c & 0x3f), in_file);
- } else { /* c>=0x4000000 */
- fputc(0xfc | ((c>>30) & 0x1), in_file);
- fputc(0x80 | ((c>>24) & 0x3f), in_file);
- fputc(0x80 | ((c>>18) & 0x3f), in_file);
- fputc(0x80 | ((c>>12) & 0x3f), in_file);
- fputc(0x80 | ((c>>6) & 0x3f), in_file);
- fputc(0x80 | (c & 0x3f), in_file);
- }
- }
- fclose(in_file);
-
-#define advance_cin do { if ((c_in = fgetc(out_file)) == -1) { \
- fprintf(stderr, "File contains bad char\n"); \
- goto end_of_while; \
- } } while (0)
-
-#ifdef WIN32
- out_file_name = concat(tempenv, "/__omega__out__XXXXXX");
- mktemp(out_file_name);
- out_file = fopen(out_file_name, FOPEN_RBIN_MODE);
-#else
-
-#if HAVE_MKSTEMP
- out_file_name = xstrdup("/tmp/__omega__out__XXXXXX");
- out_file_fd = mkstemp(out_file_name);
- out_file = fdopen(out_file_fd, FOPEN_RBIN_MODE);
-#else
-#if HAVE_MKTEMP
- out_file_name = xstrdup("/tmp/__omega__out__XXXXXX");
- mktemp(out_file_name);
-#else
- out_file_name = xstrdup(tmpnam(NULL));
-#endif /* HAVE_MKTEMP */
- out_file = fopen(out_file_name, FOPEN_RBIN_MODE);
-#endif /* HAVE_MKSTEMP */
-
-#endif /* WIN32 */
-
- if (out_file == NULL)
- fprintf(stderr, "omega: error opening file: %s\n", strerror(errno));
-
- sprintf(command_line, "%s <%s >%s\n",
- external_ocp_name+1, in_file_name, out_file_name);
- system(command_line);
- otpoutputend = 0;
- otpoutputbuf[otpoutputend] = 0;
- while ((c_in = fgetc(out_file)) != -1) {
- if (c_in<0x80) {
- c = c_in & 0x7f;
- } else if (c_in<0xe0) {
- c = (c_in & 0x1f) << 6;
- advance_cin;
- c |= c_in & 0x3f;
- } else if (c_in<=0xf0) {
- c = (c_in & 0xf) << 12;
- advance_cin;
- c |= (c_in & 0x3f) << 6;
- advance_cin;
- c |= c_in & 0x3f;
- } else if (c_in<0xf8) {
- c = (c_in & 0x7) << 18;
- advance_cin;
- c |= (c_in & 0x3f) << 12;
- advance_cin;
- c |= (c_in & 0x3f) << 6;
- advance_cin;
- c |= c_in & 0x3f;
- } else if (c_in<0xfc) {
- c = (c_in & 0x3) << 24;
- advance_cin;
- c |= (c_in & 0x3f) << 18;
- advance_cin;
- c |= (c_in & 0x3f) << 12;
- advance_cin;
- c |= (c_in & 0x3f) << 6;
- advance_cin;
- c |= c_in & 0x3f;
- } else { /* c>=0xfc */
- c = (c_in & 0x1) << 30;
- advance_cin;
- c |= (c_in & 0x3f) << 24;
- advance_cin;
- c |= (c_in & 0x3f) << 18;
- advance_cin;
- c |= (c_in & 0x3f) << 12;
- advance_cin;
- c |= (c_in & 0x3f) << 6;
- advance_cin;
- c |= c_in & 0x3f;
- }
- otpoutputbuf[++otpoutputend] = c;
- }
-end_of_while:
- fclose(out_file);
-
- remove(in_file_name);
- remove(out_file_name);
- free(in_file_name);
- free(out_file_name);
-}
-
-#else
-
-void
-runexternalocp P1C(string, external_ocp_name)
-{
- int outpipes[2], inpipes[2];
- char *outbuf;
- char *inbuf;
- int n;
- int chars_read_in, chars_to_go_out;
- int myerrno;
-
-#ifdef WIN32
- STARTUPINFO si;
- PROCESS_INFORMATION pi;
- HANDLE hIn, hOut, hPipeIn, hPipeOut;
- SECURITY_ATTRIBUTES sa = { sizeof(SECURITY_ATTRIBUTES), NULL, TRUE };
- DWORD ret = 0;
-
- /* Make pipes to send data from the parent to the child. The parent
- writes to outpipes[0], and the child reads from outpipes[1]. */
- _pipe (outpipes, 0, _O_BINARY);
- /* Make pipes to send data from the child to the parent. The child
- writes to inpipes[0], and the parent reads from inpipes[1]. */
- _pipe (inpipes, 0, _O_BINARY);
-
- ZeroMemory( &si, sizeof(STARTUPINFO) );
- si.cb = sizeof(STARTUPINFO);
- si.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
- si.wShowWindow = SW_SHOW;
- si.hStdInput = _get_osfhandle(outpipes[0]);
- si.hStdOutput = _get_osfhandle(inpipes[1]);
- si.hStdError = _get_osfhandle(_fileno(stderr));
-
- /* Close unnecessary pipes. */
- close (outpipes[1]);
- close (inpipes[0]);
-
- if (CreateProcess(external_ocp_name+1,
- NULL, /* Use lpApplicationName */
- NULL,
- NULL,
- TRUE, /* bInheritHandles */
- 0,
- NULL,
- NULL,
- &si,
- &pi) == 0) {
- fprintf(stderr, "Failed to create process for %s (Error %d).\n", external_ocp_name+1, GetLastError());
- return;
- }
-
-#else /* ! WIN32 */
-
- /* Make pipes to send data from the parent to the child. The parent
- writes to outpipes[0], and the child reads from outpipes[1]. */
- pipe (outpipes);
- /* Make pipes to send data from the child to the parent. The child
- writes to inpipes[0], and the parent reads from inpipes[1]. */
- pipe (inpipes);
-
- /* For a child process. */
- if (fork () == 0)
- {
- /* This part is executed by the child process. It translates
- lower case letters to upper case. */
-
- char *prog = external_ocp_name+1;
- char *args[] = {external_ocp_name+1, NULL};
-
- /* Close unnecessary pipes. They are for the parent. */
- close (outpipes[1]);
- close (inpipes[0]);
-
- /* Connect pipes to stdin and stdout. */
- dup2 (outpipes[0], 0);
- dup2 (inpipes[1], 1);
-
- /* Overlays a new process image on an old process. */
- execv (prog, args);
-
- /* We should never reach here. */
- }
- else
- {
- /* Close unnecessary pipes. They are for the child. */
- close (outpipes[0]);
- close (inpipes[1]);
-
-#endif /* WIN32 */
-
-/* Here is the interesting part */
- outbuf = ((char *) otpinputbuf)+2;
- inbuf = ((char *) otpoutputbuf)+2;
- chars_to_go_out = 2*otpinputend;
- chars_read_in = 0;
- while ((n = write (outpipes[1], outbuf, chars_to_go_out))>0) {
-fprintf(stderr, "Wrote (1) %d characters\n", n);
- outbuf+=n;
- chars_to_go_out-=n;
- if (chars_to_go_out==0) goto done_writing;
-/*
- n = read (inpipes[0], inbuf, 1024);
-fprintf(stderr, "Read (1) %d characters\n", n);
- inbuf+=n;
- chars_read_in+=n;
-*/
- }
-fprintf(stderr, "Wrote (2) %d characters\n", n);
-
-done_writing:
- close (outpipes[1]);
- while ((n = read (inpipes[0], inbuf, 1024)) > 0) {
-fprintf(stderr, "Read (2) %d characters\n", n);
- inbuf+=n;
- chars_read_in+=n;
- }
-fprintf(stderr, "Read (3) %d characters\n", n);
- otpoutputend = chars_read_in / 2;
-
- close (inpipes[0]);
-#ifndef WIN32
- }
-#endif /* not WIN32 */
-}
-
-#endif
diff --git a/Build/source/texk/web2c/omegadir/omegaextra.h b/Build/source/texk/web2c/omegadir/omegaextra.h
deleted file mode 100644
index 87c80f3a74e..00000000000
--- a/Build/source/texk/web2c/omegadir/omegaextra.h
+++ /dev/null
@@ -1,38 +0,0 @@
-/* omegaextra.h: banner etc. for Omega.
-
- This is included by Omega, from ../omegaextra.c
- (generated from ../lib/texmfmp.c).
-
-This file is part of Omega,
-which is based on the web2c distribution of TeX,
-
-Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-
-Omega is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-Omega is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with Omega; if not, write to the Free Software Foundation, Inc.,
-59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-
-*/
-
-#define BANNER "This is Omega, Version 3.1415926-1.23.2.3"
-#define COPYRIGHT_HOLDER "J. Plaice and Y. Haralambous"
-#define AUTHOR NULL
-#define PROGRAM_HELP OMEGAHELP
-#define BUG_ADDRESS "tex-k@tug.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 "iniomega"
-#define VIR_PROGRAM "viromega"
diff --git a/Build/source/texk/web2c/omegadir/omegamem.h b/Build/source/texk/web2c/omegadir/omegamem.h
deleted file mode 100644
index 9084d96147b..00000000000
--- a/Build/source/texk/web2c/omegadir/omegamem.h
+++ /dev/null
@@ -1,145 +0,0 @@
-/* omegamem.h: C declarations for types and accessing routines in omega.c
-
-This file is part of the Omega project, which
-is based on the web2c distribution of TeX.
-
-Copyright (c) 1994--2000 John Plaice and Yannis Haralambous
-
-This library is free software; you can redistribute it and/or
-modify it under the terms of the GNU Library General Public
-License as published by the Free Software Foundation; either
-version 2 of the License, or (at your option) any later version.
-
-This library is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-Library General Public License for more details.
-
-You should have received a copy of the GNU Library General Public
-License along with this library; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-
-/* argument(s) added to function, by team 18 */
-extern boolean new_input_line (FILE *, halfword);
-/* argument(s) added to function, by team 18 */
-extern boolean newinputln (FILE*, halfword, halfword, boolean);
-extern int getc_two ();
-/* argument(s) added to function, by team 18 */
-extern int getfilemode (FILE*, int);
-extern void ungetc_two ();
-extern int ocptemp;
-
-#define newinputline(stream, mode, flag) new_input_line (stream, mode)
-
-extern memoryword **fonttables;
-extern memoryword **fontsorttables;
-extern int **ocptables;
-
-typedef struct hashw
-{
- integer p;
- struct hashw *ptr;
- memoryword mw;
-} hashword;
-
-extern hashword hashtable[];
-/* argument(s) added to function, by team 18 */
-extern hashword *createhashpos(int);
-/* argument(s) added to function, by team 18 */
-extern hashword *createeqtbpos(int);
-/* argument(s) added to function, by team 18 */
-extern hashword *createxeqlevel(int);
-extern void inithhashtable();
-extern void dumphhashtable();
-extern void undumphhashtable();
-/* argument(s) added to function, by team 18 */
-extern void allocatefonttable(int,int);
-/* argument(s) added to function, by team 18 */
-extern void dumpfonttable(int,int);
-/* argument(s) added to function, by team 18 */
-extern void undumpfonttable(int);
-/* argument(s) added to function, by team 18 */
-extern void allocatefontsorttable(int,int);
-/* argument(s) added to function, by team 18 */
-extern void dumpfontsorttable(int , int);
-/* argument(s) added to function, by team 18 */
-extern void undumpfontsorttable(int);
-/* argument(s) added to function, by team 18 */
-extern void allocateocptable(int,int);
-/* argument(s) added to function, by team 18 */
-extern void dumpocptable(int);
-/* argument(s) added to function, by team 18 */
-extern void undumpocptable(int);
-/* argument(s) added to function, by team 18 */
-extern void odateandtime(int, int, int, int );
-extern void btestin();
-extern void runexternalocp(char *);
-
-#define initeqtbtable() inithhashtable();
-#define dumpeqtbtable() dumphhashtable();
-#define undumpeqtbtable() undumphhashtable();
-
-#define HASHTABLESIZE 23123
-#define neweqtb(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw) : \
- (createeqtbpos(a)->mw))
-#define neweqtbint(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.cint) : \
- (createeqtbpos(a)->mw.cint))
-#define neweqtbsc(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.cint) : \
- (createeqtbpos(a)->mw.cint))
-#define newequiv(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.rh) : \
- (createeqtbpos(a)->mw.hh.rh))
-#define newequiv1(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.cint1) : \
- (createeqtbpos(a)->mw.cint1))
-#define neweqlevel(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.b1) : \
- (createeqtbpos(a)->mw.hh.b1))
-#define neweqtype(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.b0) : \
- (createeqtbpos(a)->mw.hh.b0))
-#define setneweqtb(a,v) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw=v) : \
- (createeqtbpos(a)->mw=v))
-#define setneweqtbint(a,v) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.cint=v) : \
- (createeqtbpos(a)->mw.cint=v))
-#define setneweqtbsc(a,v) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.cint=v) : \
- (createeqtbpos(a)->mw.cint=v))
-#define setequiv(a,v) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.rh=v) : \
- (createeqtbpos(a)->mw.hh.rh=v))
-#define setequiv1(a,v) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.cint1=v) : \
- (createeqtbpos(a)->mw.cint1=v))
-#define seteqlevel(a,v) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.b1=v) : \
- (createeqtbpos(a)->mw.hh.b1=v))
-#define seteqtype(a,v) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.b0=v) : \
- (createeqtbpos(a)->mw.hh.b0=v))
-
-#define newhashnext(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.v.LH) : \
- (createhashpos(a)->mw.hh.v.LH))
-#define newhashtext(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.v.RH) : \
- (createhashpos(a)->mw.hh.v.RH))
-#define sethashnext(a,d) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.v.LH=d) : \
- (createhashpos(a)->mw.hh.v.LH=d))
-#define sethashtext(a,d) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.hh.v.RH=d) : \
- (createhashpos(a)->mw.hh.v.RH=d))
-
-#define newxeqlevel(a) (((a)==hashtable[(a)%HASHTABLESIZE].p) ? \
- (hashtable[(a)%HASHTABLESIZE].mw.cint) : \
- (createxeqlevel(a)->mw.cint))
-
-#define setintzero(w,a) ((w).cint=(a))
-#define setintone(w,a) ((w).cint1=(a))
diff --git a/Build/source/texk/web2c/omegadir/omfi.ch b/Build/source/texk/web2c/omegadir/omfi.ch
deleted file mode 100644
index d7f4bbe959f..00000000000
--- a/Build/source/texk/web2c/omegadir/omfi.ch
+++ /dev/null
@@ -1,246 +0,0 @@
-% omfi.ch: Primitives for extra level of infinity.
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x [10] m.135 l.2878 - Omega fi order of infinity
-specifies the order of infinity to which glue setting applies (|normal|,
-|fil|, |fill|, or |filll|). The |subtype| field is not used.
-@y
-specifies the order of infinity to which glue setting applies (|normal|,
-|sfi|, |fil|, |fill|, or |filll|). The |subtype| field is not used.
-@z
-%---------------------------------------
-@x [10] m.150 l.3136 - Omega fi order of infinity
-orders of infinity (|normal|, |fil|, |fill|, or |filll|)
-@y
-orders of infinity (|normal|, |sfi|, |fil|, |fill|, or |filll|)
-@z
-%---------------------------------------
-@x [10] m.150 l.3145 - Omega fi order of infinity
-@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 [10] m.150 l.3150 - Omega fi order of infinity
-@!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 [11] m.162 l.3296 - Omega fi order of infinity
-@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 [11] m.164 l.3296 - Omega fi order of infinity
-stretch(fil_glue):=unity; stretch_order(fil_glue):=fil;@/
-@y
-stretch(sfi_glue):=unity; stretch_order(sfi_glue):=sfi;@/
-stretch(fil_glue):=unity; stretch_order(fil_glue):=fil;@/
-@z
-%---------------------------------------
-@x [12] m.177 l.3591 - Omega fi order of infinity
- begin print("fil");
- while order>fil do
-@y
- begin print("fi");
- while order>sfi do
-@z
-%---------------------------------------
-@x [26] m.454 l.8924 - Omega fi order of infinity
-if scan_keyword("fil") then
-@.fil@>
- begin cur_order:=fil;
-@y
-if scan_keyword("fi") then
-@.fil@>
- begin cur_order:=sfi;
-@z
-%---------------------------------------
-@x [33] m.650 l.12877 - Omega fi order of infinity
-total_stretch[fil]:=0; total_shrink[fil]:=0;
-@y
-total_stretch[sfi]:=0; total_shrink[sfi]:=0;
-total_stretch[fil]:=0; total_shrink[fil]:=0;
-@z
-%---------------------------------------
-@x [33] m.659 l.12996 - Omega fi order of infinity
-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 [33] m.665 l.13061 - Omega fi order of infinity
-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 [38] m.822 l.16135 - Omega fi order of infinity
-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 [38] m.823 l.16144 - Omega fi order of infinity
-@ 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 [38] m.823 l.16154 - Omega fi order of infinity
-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)
-
-@<Glob...@>=
-@!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
-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 six-tuples convenient.
-
-@d do_all_six(#)==#(1);#(2);#(3);#(4);#(5);#(6);#(7)
-
-@<Glo...@>=
-@!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 [38] m.827 l.16242 - Omega fi order of infinity
-background[2]:=0; background[3]:=0; background[4]:=0; background[5]:=0;@/
-@y
-background[2]:=0; background[3]:=0; background[4]:=0; background[5]:=0;@/
-background[6]:=0;@/
-@z
-%---------------------------------------
-@x [38] m.827 l.16260 - Omega fi order of infinity
-background[6]:=shrink(q)+shrink(r);
-@y
-background[7]:=shrink(q)+shrink(r);
-@z
-%---------------------------------------
-@x [38] m.838 l.16470 - Omega fi order of infinity
-break_width[6]:=break_width[6]-shrink(v);
-@y
-break_width[7]:=break_width[7]-shrink(v);
-@z
-%---------------------------------------
-@x [38] m.852 l.16713 - Omega fi order of infinity
-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 [38] m.852 l.16722 - Omega fi order of infinity
-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 [38] m.853 l.16738 - Omega fi order of infinity
-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
-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 [39] m.868 l.17054 - Omega fi order of infinity
-active_width[6]:=active_width[6]+shrink(q)
-@y
-active_width[7]:=active_width[7]+shrink(q)
-@z
-%---------------------------------------
-@x [44] m.975 l.18932 - Omega fi order of infinity
- 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 [44] m.976 l.18947 - Omega fi order of infinity
- active_height[6]:=active_height[6]+shrink(q);
-@y
- active_height[7]:=active_height[7]+shrink(q);
-@z
-%---------------------------------------
-@x [48] m.1201 l.22454 - Omega fi order of infinity
- (total_shrink[fil]<>0)or(total_shrink[fill]<>0)or
- (total_shrink[filll]<>0)) then
-@y
- (total_shrink[sfi]<>0)or(total_shrink[fil]<>0)or
- (total_shrink[fill]<>0)or(total_shrink[filll]<>0)) then
-@z
-
diff --git a/Build/source/texk/web2c/omegadir/omfilter.ch b/Build/source/texk/web2c/omegadir/omfilter.ch
deleted file mode 100644
index 7a739d66d51..00000000000
--- a/Build/source/texk/web2c/omegadir/omfilter.ch
+++ /dev/null
@@ -1,925 +0,0 @@
-% omfilter.ch: Running OCP programs
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x [1] m.11 l.412 - Omega Filtering
- {string of length |file_name_size|; tells where the string pool appears}
-@.TeXformats@>
-@y
- {string of length |file_name_size|; tells where the string pool appears}
-@.TeXformats@>
-@!active_mem_size=2000; {number of words of |active_info| for active ocps}
-@z
-%---------------------------------------
-@x [5] - Omega Translation
-procedure overflow(@!s:str_number;@!n:integer); {stop due to finiteness}
-begin normalize_selector;
-print_err("Omega capacity exceeded, sorry [");
-@.TeX capacity exceeded ...@>
-print(s); print_char("="); print_int(n); print_char("]");
-help2("If you really absolutely need more capacity,")@/
- ("you can ask a wizard to enlarge me.");
-succumb;
-end;
-@y
-procedure overflow(@!s:str_number;@!n:integer); {stop due to finiteness}
-begin normalize_selector;
-print_err("Omega capacity exceeded, sorry [");
-@.TeX capacity exceeded ...@>
-print(s); print_char("="); print_int(n); print_char("]");
-help2("If you really absolutely need more capacity,")@/
- ("you can ask a wizard to enlarge me.");
-succumb;
-end;
-
-procedure overflow_ocp_buf_size;
-begin
-overflow("ocp_buf_size",ocp_buf_size);
-end;
-
-procedure overflow_ocp_stack_size;
-begin
-overflow("ocp_stack_size",ocp_stack_size);
-end;
-@z
-%---------------------------------------
-@x [22] m.300 l.6425 - Omega Filtering
-@!in_state_record = record
- @!state_field, @!index_field: quarterword;
- @!start_field,@!loc_field, @!limit_field, @!name_field: halfword;
- end;
-@y
-@!in_state_record = record
- @!state_field, @!index_field: quarterword;
- @!start_field,@!loc_field, @!limit_field, @!name_field,
- @!ocp_lstack_field: halfword; {used for omega translation processes}
- @!ocp_no_field: halfword; {used for omega translation processes}
- end;
-@z
-%---------------------------------------
-@x [22] m.300 l.6444 - Omega Filtering
-@d limit==cur_input.limit_field {end of current line in |buffer|}
-@d name==cur_input.name_field {name of the current file}
-@y
-@d limit==cur_input.limit_field {end of current line in |buffer|}
-@d name==cur_input.name_field {name of the current file}
-@d current_ocp_lstack==cur_input.ocp_lstack_field {name of the current ocp}
-@d current_ocp_no==cur_input.ocp_no_field {name of the current ocp}
-@z
-%---------------------------------------
-@x [22] m.312 l.6766 - Omega Filtering
- if state<>token_list then
- begin @<Print location of current line@>;
- @<Pseudoprint the line@>;
-@y
- if current_ocp_lstack>0 then
- begin print_nl("OCP stack "); print_scaled(current_ocp_lstack);
- print(" entry "); print_int(current_ocp_no); print(":");
- @<Pseudoprint the line@>;
- end
- else if state<>token_list then
- begin @<Print location of current line@>;
- @<Pseudoprint the line@>;
-@z
-%---------------------------------------
-@x [23] m.331 l.7069 - Omega Filtering
-state:=new_line; start:=1; index:=0; line:=0; name:=0;
-@y
-state:=new_line; start:=1; index:=0; line:=0; name:=0;
-current_ocp_lstack:=0; current_ocp_no:=0;
-@z
-%---------------------------------------
-@x [24] m.343 l.7248 - Omega Filtering
-else begin state:=new_line;@/
- @<Move to next line of file,
-@y
-else begin
- if current_ocp_lstack>0 then
- begin
- pop_input; goto restart;
- end;
- state:=new_line;
- @<Move to next line of file,
-@z
-%---------------------------------------
-@x [30] m.582 l.11283 - Omega Filtering
-char_warning(f,c);
-new_character:=null;
-exit:end;
-@y
-char_warning(f,c);
-new_character:=null;
-exit:end;
-
-@
-@<Types...@>=
-@!active_index=0..active_mem_size;
-
-@
-@d active_ocp(#)==active_info[#].hh.b0
-@d active_counter(#)==active_info[#].hh.b1
-@d active_lstack_no(#)==active_info[#+1].sc
-
-@<Glob...@>=
-@!active_info:array[active_index] of memory_word;
-@!active_min_ptr:active_index; {first unused word of |active_info|}
-@!active_max_ptr:active_index; {last unused word of |active_info|}
-@!active_real:active_index;
-@!holding:array[active_index] of ocp_list_index;
-
-@
-@<Initialize table...@>=
-active_min_ptr:=0;
-active_real:=0;
-
-@
-@p
-function is_last_ocp(llstack_no:scaled; counter:integer):integer;
-begin
-active_min_ptr:=equiv(ocp_active_min_ptr_base);
-active_max_ptr:=equiv(ocp_active_max_ptr_base);
-active_real:=active_min_ptr;
-while (active_real < active_max_ptr) and
- (active_lstack_no(active_real) < llstack_no) do begin
- active_real:=active_real+2;
- end;
-while (active_real < active_max_ptr) and
- (active_lstack_no(active_real) = llstack_no) and
- (active_counter(active_real) <= counter) do begin
- active_real:=active_real+2;
- end;
-is_last_ocp := (active_real=active_max_ptr);
-end;
-
-procedure print_active_ocps;
-var i:integer;
-begin
-print_nl("Active ocps: [");
-i:=active_min_ptr;
-while i<active_max_ptr do begin
- print("(");
- print_scaled(active_lstack_no(i));
- print(",");
- print_int(active_counter(i));
- print(",");
- print_esc(ocp_id_text(active_ocp(i)));
- print(")");
- if i<>(active_max_ptr-2) then print(",");
- i:=i+2;
- end;
-print("]");
-end;
-
-procedure add_ocp_stack(min_index:integer; min_value:scaled);
-var p:ocp_lstack_index;
- llstack_no:scaled;
- counter:integer;
-begin
-p:=ocp_list_lstack(holding[min_index]);
-llstack_no:=ocp_list_lstack_no(holding[min_index]);
-counter:=0;
-while not (is_null_ocp_lstack(p)) do begin
- active_ocp(active_max_ptr):=ocp_lstack_ocp(p);
- active_counter(active_max_ptr):=counter;
- active_lstack_no(active_max_ptr):=llstack_no;
- p:=ocp_lstack_lnext(p);
- active_max_ptr:=active_max_ptr+2;
- incr(counter); {no overflow problem}
- end;
-end;
-
-procedure active_compile;
-var i:integer;
- min_index:integer;
- min_stack_ocp:scaled;
- old_min:scaled;
- max_active:integer;
- stack_value:scaled;
-begin
-active_min_ptr:=active_max_ptr;
-min_stack_ocp:=ocp_maxint;
-max_active:=equiv(ocp_active_number_base)-1;
-for i:=max_active downto 0 do begin
- holding[i]:=ocp_list_list[equiv(ocp_active_base+i)];
- stack_value:=ocp_list_lstack_no(holding[i]);
- if stack_value<min_stack_ocp then begin
- min_index:=i;
- min_stack_ocp:=stack_value;
- end;
- end;
-while min_stack_ocp<ocp_maxint do begin
- add_ocp_stack(min_index, min_stack_ocp);
- old_min:=min_stack_ocp;
- min_stack_ocp:=ocp_maxint;
- for i:=max_active downto 0 do begin
- stack_value:=ocp_list_lstack_no(holding[i]);
- while old_min=stack_value do begin
- holding[i]:=ocp_list_lnext(holding[i]);
- stack_value:=ocp_list_lstack_no(holding[i]);
- end;
- if stack_value<min_stack_ocp then begin
- min_index:=i;
- min_stack_ocp:=stack_value;
- end;
- end;
- end;
-end;
-
-@z
-%---------------------------------------
-@x [46] m.1030 l.19984 - Omega Filtering
-main_loop:@<Append character |cur_chr| and the following characters (if~any)
- to the current hlist in the current font; |goto reswitch| when
- a non-character has been fetched@>;
-@y
-main_loop:
-if is_last_ocp(current_ocp_lstack,current_ocp_no) then begin
- @<Append character |cur_chr| and the following characters (if~any)
- to the current hlist in the current font; |goto reswitch| when
- a non-character has been fetched@>;
- end
-else begin
- @<Create a buffer with character |cur_chr| and the following
- characters (if~any) and then apply the current active OCP filter
- to this buffer@>;
- end;
-@z
-%---------------------------------------
-@x [50] m.1302 l.23862 - Omega Filtering
-@<Dump the font information@>;
-@y
-@<Dump the font information@>;
-@<Dump the active ocp information@>;
-@z
-%---------------------------------------
-@x [50] m.1303 l.23711 - Omega Filtering
-@<Undump the font information@>;
-@y
-@<Undump the font information@>;
-@<Undump the active ocp information@>;
-@z
-%---------------------------------------
-@x [50] m.1323 l.24907 - Omega Filtering
-begin undump_font_table(k);@/
-end
-@y
-begin undump_font_table(k);@/
-end
-
-@ @<Dump the active ocp information@>=
-dump_int(active_min_ptr);
-dump_int(active_max_ptr);
-for k:=0 to active_max_ptr-1 do dump_wd(active_info[k]);
-print_ln; print_int(active_max_ptr); print(" words of active ocps");
-
-@ @<Undump the active ocp information@>=
-undump_size(0)(active_mem_size)('active start point')(active_min_ptr);
-undump_size(0)(active_mem_size)('active mem size')(active_max_ptr);
-for k:=0 to active_max_ptr-1 do undump_wd(active_info[k]);
-
-@z
-%---------------------------------------
-@x [54] m.1379 l.24883 - Omega Filtering
-@ Here we do the main work required for reading and interpreting
- $\Omega$ Compiled Translation Processes.
-@y
-@ Here we do the main work required for reading and interpreting
- $\Omega$ Compiled Translation Processes.
-
-@
-@<Types...@>=
-
-@ Here are all the instructions in our mini-assembler.
-@d otp_right_output=1
-@d otp_right_num=2
-@d otp_right_char=3
-@d otp_right_lchar=4
-@d otp_right_some=5
-
-@d otp_pback_output=6
-@d otp_pback_num=7
-@d otp_pback_char=8
-@d otp_pback_lchar=9
-@d otp_pback_some=10
-
-@d otp_add=11
-@d otp_sub=12
-@d otp_mult=13
-@d otp_div=14
-@d otp_mod=15
-@d otp_lookup=16
-@d otp_push_num=17
-@d otp_push_char=18
-@d otp_push_lchar=19
-
-@d otp_state_change=20
-@d otp_state_push=21
-@d otp_state_pop=22
-
-@d otp_left_start=23
-@d otp_left_return=24
-@d otp_left_backup=25
-
-@d otp_goto=26
-@d otp_goto_ne=27
-@d otp_goto_eq=28
-@d otp_goto_lt=29
-@d otp_goto_le=30
-@d otp_goto_gt=31
-@d otp_goto_ge=32
-@d otp_goto_no_advance=33
-@d otp_goto_beg=34
-@d otp_goto_end=35
-
-@d otp_stop=36
-
-@
-@<Glob...@>=
-@!otp_init_input_start:halfword;
-@!otp_init_input_last:halfword;
-@!otp_init_input_end:halfword;
-@!otp_i:halfword;
-@!otp_init_input_buf:array[0..20000] of quarterword;
-
-@!otp_input_start:halfword;
-@!otp_input_last:halfword;
-@!otp_input_end:halfword;
-@!otp_input_buf:array[0..20000] of quarterword;
-
-@!otp_output_end:halfword;
-@!otp_output_buf:array[0..20000] of quarterword;
-
-@!otp_stack_used:halfword;
-@!otp_stack_last:halfword;
-@!otp_stack_new:halfword;
-@!otp_stack_buf:array[0..1000] of quarterword;
-
-@!otp_pc:halfword;
-
-@!otp_calc_ptr:halfword;
-@!otp_calcs:array[0..1000] of halfword;
-@!otp_state_ptr:halfword;
-@!otp_states:array[0..1000] of halfword;
-
-@!otp_input_char:halfword;
-@!otp_calculated_char:halfword;
-@!otp_no_input_chars:halfword;
-
-@!otp_instruction:halfword;
-@!otp_instr:halfword;
-@!otp_arg:halfword;
-@!otp_first_arg:halfword;
-@!otp_second_arg:halfword;
-
-@!otp_input_ocp:halfword;
-@!otp_counter:halfword;
-
-@!otp_finished:boolean;
-@!otp_ext_str:integer;
-@!otp_ext_str_arg:integer;
-@!otp_ext_i:integer;
-
-@
-@<Initialize table...@>=
-
-@
-@<Create a buffer with character |cur_chr| and the following
- characters (if~any) and then apply the current active OCP filter
- to this buffer@>=
-begin
-@<Read in the buffer for treatment@>;
-@<Apply the OCP to the input buffer@>;
-@<Place the output buffer back on the stream@>;
-goto big_switch;
-end;
-
-@
-@<Read in the buffer for treatment@>=
-begin
-otp_init_input_end:=0;
-while (cur_cmd=letter) or (cur_cmd=other_char) or
- (cur_cmd=char_given) or (cur_cmd=spacer) do begin
- incr(otp_init_input_end);
- if otp_init_input_end >ocp_buf_size then
- overflow_ocp_buf_size;
- otp_init_input_buf[otp_init_input_end]:=cur_chr;
- get_token;
- if (cur_cmd<>letter) and (cur_cmd<>other_char) and
- (cur_cmd<>char_given) then begin
- x_token;
- if (cur_cmd=char_num) then begin
- scan_char_num; cur_cmd:=other_char; cur_chr:=cur_val;
- end;
- end;
- end;
-back_input;
-otp_input_end:=otp_init_input_end;
-for otp_i:=0 to otp_init_input_end do begin
- otp_input_buf[otp_i]:=otp_init_input_buf[otp_i];
- end;
-end
-
-@
-@<Apply the OCP to the input buffer@>=
-begin
-otp_input_ocp:=active_ocp(active_real);
-if otp_input_ocp=0 then begin
- print_nl("Null ocp being used: all input lost");
- otp_output_end:=0;
- end
-else if ocp_external(otp_input_ocp)=0 then begin
- otp_input_start:=0;
- otp_input_last:=0;
- otp_stack_used:=0;
- otp_stack_last:=0;
- otp_stack_new:=0;
- otp_output_end:=0;
- otp_pc:=0;
- otp_finished:=false;
- otp_calc_ptr:=0;
- otp_calcs[otp_calc_ptr]:=0;
- otp_state_ptr:=0;
- otp_states[otp_state_ptr]:=0;
- while not otp_finished do
- @<Run the OTP program@>;
- end
-else begin
- k:=0;
- if name_of_file then libc_free (name_of_file);
- otp_ext_str:=ocp_external(otp_input_ocp);
- otp_ext_str_arg:=ocp_external_arg(otp_input_ocp);
- name_of_file :=
- xmalloc_array (char, 3 + length(otp_ext_str) + length(otp_ext_str_arg));
- for otp_ext_i:=str_start(otp_ext_str) to
- str_start(otp_ext_str)+length(otp_ext_str)-1 do
- append_to_name(str_pool[otp_ext_i]);
- append_to_name(" ");
- for otp_ext_i:=str_start(otp_ext_str_arg) to
- str_start(otp_ext_str_arg)+length(otp_ext_str_arg)-1 do
- append_to_name(str_pool[otp_ext_i]);
- name_of_file[length(otp_ext_str)+length(otp_ext_str_arg)+2]:=0;
- run_external_ocp(name_of_file);
- end
-end
-
-@
-@<Place the output buffer back on the stream@>=
-begin
-if (first+otp_output_end)>=ocp_buf_size then
- overflow_ocp_buf_size;
-push_input;
-current_ocp_lstack:=active_lstack_no(active_real);
-current_ocp_no:=active_counter(active_real);
-state:=mid_line;
-start:=first;
-last:=start;
-loc:=start;
-for otp_counter:=1 to otp_output_end do begin
- buffer[last]:=otp_output_buf[otp_counter];
- incr(last); {no overflow problem}
- end;
-limit:=last-1;
-first:=last;
-end
-
-@
-@d otp_cur_state==otp_states[otp_state_ptr]
-@d otp_set_instruction==begin
-if otp_pc>=ocp_state_no(otp_input_ocp)(otp_cur_state) then begin
- print_err("bad OCP program -- PC not valid");
- succumb;
- end;
-otp_instruction:=ocp_state_entry(otp_input_ocp)(otp_cur_state)(otp_pc);
-otp_instr:=otp_instruction div @"1000000;
-otp_arg:=otp_instruction mod @"1000000;
-end
-
-@<Run the OTP program@>=
-begin
-otp_set_instruction;
-case otp_instr of
- @<Run the |otp_right| instructions@>;
- @<Run the |otp_pback| instructions@>;
- @<Run the arithmetic instructions@>;
- @<Run the |otp_state| instructions@>;
- @<Run the |otp_left| instructions@>;
- @<Run the |otp_goto| instructions@>;
- @<Run the |otp_stop| instruction@>;
- othercases begin
- print_err("bad OCP program -- unknown instruction");
- succumb;
- end
- endcases;
-end
-
-@
-
-@d otp_check_char(#)==
-if (1>#) or (#>otp_no_input_chars) then begin
- print_err("right hand side of OCP expression is bad");
- succumb;
- end
-
-@d otp_get_char(#)==begin
-otp_check_char(#);
-if #>otp_stack_last then begin
- otp_calculated_char:=otp_input_buf[otp_input_start+#-otp_stack_last];
- end
-else begin
- otp_calculated_char:=otp_stack_buf[#];
- end;
-end
-
-@d decr(#)==#:=#-1
-
-@<Run the |otp_right| instructions@>=
- otp_right_output: begin
- incr(otp_output_end);
- if otp_output_end >ocp_buf_size then
- overflow_ocp_buf_size;
- otp_output_buf[otp_output_end]:=otp_calcs[otp_calc_ptr];
- decr(otp_calc_ptr);
- incr(otp_pc);
- end;
- otp_right_num: begin
- incr(otp_output_end);
- if otp_output_end >ocp_buf_size then
- overflow_ocp_buf_size;
- otp_output_buf[otp_output_end]:=otp_arg;
- incr(otp_pc);
- end;
- otp_right_char: begin
- otp_get_char(otp_arg);
- incr(otp_output_end);
- if otp_output_end >ocp_buf_size then
- overflow_ocp_buf_size;
- otp_output_buf[otp_output_end]:=otp_calculated_char;
- incr(otp_pc);
- end;
- otp_right_lchar: begin
- otp_get_char(otp_no_input_chars-otp_arg);
- incr(otp_output_end);
- if otp_output_end >ocp_buf_size then
- overflow_ocp_buf_size;
- otp_output_buf[otp_output_end]:=otp_calculated_char;
- incr(otp_pc);
- end;
- otp_right_some: begin
- otp_first_arg:=otp_arg+1;
- incr(otp_pc);
- otp_set_instruction;
- otp_second_arg:=otp_no_input_chars-otp_arg;
- for otp_counter:=otp_first_arg to otp_second_arg do begin
- otp_get_char(otp_counter);
- incr(otp_output_end);
- if otp_output_end >ocp_buf_size then
- overflow_ocp_buf_size;
- otp_output_buf[otp_output_end]:=otp_calculated_char;
- end;
- incr(otp_pc);
- end
-
-@
-@<Run the |otp_pback| instructions@>=
- otp_pback_output: begin
- incr(otp_stack_new);
- if otp_stack_new >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_stack_buf[otp_stack_new]:=otp_calcs[otp_calc_ptr];
- decr(otp_calc_ptr);
- incr(otp_pc);
- end;
- otp_pback_num: begin
- incr(otp_stack_new);
- if otp_stack_new >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_stack_buf[otp_stack_new]:=otp_arg;
- incr(otp_pc);
- end;
- otp_pback_char: begin
- otp_get_char(otp_arg);
- incr(otp_stack_new);
- if otp_stack_new >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_stack_buf[otp_stack_new]:=otp_calculated_char;
- incr(otp_pc);
- end;
- otp_pback_lchar: begin
- otp_get_char(otp_no_input_chars-otp_arg);
- incr(otp_stack_new);
- if otp_stack_new >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_stack_buf[otp_stack_new]:=otp_calculated_char;
- incr(otp_pc);
- end;
- otp_pback_some: begin
- otp_first_arg:=otp_arg+1;
- incr(otp_pc);
- otp_set_instruction;
- otp_second_arg:=otp_no_input_chars-otp_arg;
- for otp_counter:=otp_first_arg to otp_second_arg do begin
- otp_get_char(otp_counter);
- incr(otp_stack_new);
- if otp_stack_new >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_stack_buf[otp_stack_new]:=otp_calculated_char;
- end;
- incr(otp_pc);
- end
-
-@
-@<Run the arithmetic instructions@>=
- otp_add: begin
- otp_calcs[otp_calc_ptr-1] :=
- otp_calcs[otp_calc_ptr-1] + otp_calcs[otp_calc_ptr];
- incr(otp_pc);
- decr(otp_calc_ptr);
- end;
- otp_sub: begin
- otp_calcs[otp_calc_ptr-1] :=
- otp_calcs[otp_calc_ptr-1] - otp_calcs[otp_calc_ptr];
- incr(otp_pc);
- decr(otp_calc_ptr);
- end;
- otp_mult: begin
- otp_calcs[otp_calc_ptr-1] :=
- otp_calcs[otp_calc_ptr-1] * otp_calcs[otp_calc_ptr];
- incr(otp_pc);
- decr(otp_calc_ptr);
- end;
- otp_div: begin
- otp_calcs[otp_calc_ptr-1] :=
- otp_calcs[otp_calc_ptr-1] div otp_calcs[otp_calc_ptr];
- incr(otp_pc);
- decr(otp_calc_ptr);
- end;
- otp_mod: begin
- otp_calcs[otp_calc_ptr-1] :=
- otp_calcs[otp_calc_ptr-1] mod otp_calcs[otp_calc_ptr];
- incr(otp_pc);
- decr(otp_calc_ptr);
- end;
- otp_lookup: begin
- if otp_calcs[otp_calc_ptr]>=
- ocp_table_no(otp_input_ocp)(otp_calcs[otp_calc_ptr-1]) then begin
- print_err("bad OCP program -- table index not valid");
- succumb;
- end;
- otp_calcs[otp_calc_ptr-1]:=
- ocp_table_entry(otp_input_ocp)(otp_calcs[otp_calc_ptr-1])
- (otp_calcs[otp_calc_ptr]);
- incr(otp_pc);
- decr(otp_calc_ptr);
- end;
- otp_push_num: begin
- incr(otp_calc_ptr);
- if otp_calc_ptr >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_calcs[otp_calc_ptr]:=otp_arg;
- incr(otp_pc);
- end;
- otp_push_char: begin
- otp_get_char(otp_arg);
- incr(otp_calc_ptr);
- if otp_calc_ptr >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_calcs[otp_calc_ptr]:=otp_calculated_char;
- incr(otp_pc);
- end;
- otp_push_lchar: begin
- otp_get_char(otp_no_input_chars-otp_arg);
- incr(otp_calc_ptr);
- if otp_calc_ptr >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_calcs[otp_calc_ptr]:=otp_calculated_char;
- incr(otp_pc);
- end
-
-@
-@<Run the |otp_state| instructions@>=
- otp_state_change: begin
- otp_input_start:=otp_input_last;
- for otp_counter:=1 to (otp_stack_new-otp_stack_used) do begin
- otp_stack_buf[otp_counter] :=
- otp_stack_buf[otp_counter+otp_stack_used];
- end;
- otp_stack_new:=otp_stack_new-otp_stack_used;
- otp_stack_last:=otp_stack_new;
- otp_stack_used:=0;
- otp_states[otp_state_ptr]:=otp_arg;
- otp_pc:=0;
- end;
- otp_state_push: begin
- otp_input_start:=otp_input_last;
- for otp_counter:=1 to (otp_stack_new-otp_stack_used) do begin
- otp_stack_buf[otp_counter] :=
- otp_stack_buf[otp_counter+otp_stack_used];
- end;
- otp_stack_new:=otp_stack_new-otp_stack_used;
- otp_stack_last:=otp_stack_new;
- otp_stack_used:=0;
- incr(otp_state_ptr);
- if otp_state_ptr >= ocp_stack_size then
- overflow_ocp_stack_size;
- otp_states[otp_state_ptr]:=otp_arg;
- otp_pc:=0;
- end;
- otp_state_pop: begin
- otp_input_start:=otp_input_last;
- for otp_counter:=1 to (otp_stack_new-otp_stack_used) do begin
- otp_stack_buf[otp_counter] :=
- otp_stack_buf[otp_counter+otp_stack_used];
- end;
- otp_stack_new:=otp_stack_new-otp_stack_used;
- otp_stack_last:=otp_stack_new;
- otp_stack_used:=0;
- if otp_state_ptr>0 then decr(otp_state_ptr);
- otp_pc:=0;
- end
-
-@
-@<Run the |otp_left| instructions@>=
- otp_left_start: begin
- otp_input_start:=otp_input_last;
- otp_input_last:=otp_input_start;
- otp_stack_used:=0;
- if (otp_stack_last=0) and (otp_input_last>=otp_input_end) then
- otp_finished:=true
- else if (otp_stack_used < otp_stack_last) then begin
- incr(otp_stack_used); {no overflow problem}
- otp_input_char:=otp_stack_buf[otp_stack_used];
- otp_no_input_chars:=1;
- incr(otp_pc);
- end
- else begin
- incr(otp_input_last); {no overflow problem}
- otp_input_char:=otp_input_buf[otp_input_last];
- otp_no_input_chars:=1;
- incr(otp_pc);
- end;
- end;
- otp_left_return: begin
- otp_input_last:=otp_input_start;
- otp_stack_used:=0;
- if (otp_stack_used < otp_stack_last) then begin
- incr(otp_stack_used); {no overflow problem}
- otp_input_char:=otp_stack_buf[otp_stack_used];
- otp_no_input_chars:=1;
- incr(otp_pc);
- end
- else begin
- incr(otp_input_last); {no overflow problem}
- otp_input_char:=otp_input_buf[otp_input_last];
- otp_no_input_chars:=1;
- incr(otp_pc);
- end;
- end;
- otp_left_backup: begin
- if otp_input_start < otp_input_last then begin
- decr(otp_input_last); otp_input_char:=otp_input_buf[otp_input_last];
- end
- else begin
- decr(otp_stack_used); otp_input_char:=otp_stack_buf[otp_stack_used];
- end;
- decr(otp_no_input_chars);
- incr(otp_pc);
- end
-
-@
-@<Run the |otp_goto| instructions@>=
- otp_goto: begin
- otp_pc:=otp_arg;
- end;
- otp_goto_ne: begin
- otp_first_arg:=otp_arg;
- incr(otp_pc);
- otp_set_instruction;
- if otp_input_char <> otp_first_arg then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end;
- otp_goto_eq: begin
- otp_first_arg:=otp_arg;
- incr(otp_pc);
- otp_set_instruction;
- if otp_input_char = otp_first_arg then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end;
- otp_goto_lt: begin
- otp_first_arg:=otp_arg;
- incr(otp_pc);
- otp_set_instruction;
- if otp_input_char < otp_first_arg then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end;
- otp_goto_le: begin
- otp_first_arg:=otp_arg;
- incr(otp_pc);
- otp_set_instruction;
- if otp_input_char <= otp_first_arg then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end;
- otp_goto_gt: begin
- otp_first_arg:=otp_arg;
- incr(otp_pc);
- otp_set_instruction;
- if otp_input_char > otp_first_arg then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end;
- otp_goto_ge: begin
- otp_first_arg:=otp_arg;
- incr(otp_pc);
- otp_set_instruction;
- if otp_input_char >= otp_first_arg then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end;
- otp_goto_no_advance: begin
- if (otp_stack_used < otp_stack_last) then begin
- incr(otp_stack_used); {no overflow problem}
- otp_input_char:=otp_stack_buf[otp_stack_used];
- incr(otp_no_input_chars); {no overflow problem}
- incr(otp_pc);
- end
- else if otp_input_last>=otp_input_end then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_input_last); {no overflow problem}
- otp_input_char:=otp_input_buf[otp_input_last];
- incr(otp_no_input_chars); {no overflow problem}
- incr(otp_pc);
- end;
- end;
- otp_goto_beg: begin
- if otp_input_last=0 then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end;
- otp_goto_end: begin
- if otp_input_last>=otp_input_end then begin
- otp_pc:=otp_arg;
- end
- else begin
- incr(otp_pc);
- end;
- end
-
-@
-@<Run the |otp_stop| instruction@>=
- otp_stop: begin
- otp_input_start:=otp_input_last;
- for otp_counter:=1 to (otp_stack_new-otp_stack_used) do begin
- otp_stack_buf[otp_counter] :=
- otp_stack_buf[otp_counter+otp_stack_used];
- end;
- otp_stack_new:=otp_stack_new-otp_stack_used;
- otp_stack_last:=otp_stack_new;
- otp_stack_used:=0;
- otp_pc:=0;
- end
-
-@z
diff --git a/Build/source/texk/web2c/omegadir/omfont.ch b/Build/source/texk/web2c/omegadir/omfont.ch
deleted file mode 100644
index e70d4c47dcd..00000000000
--- a/Build/source/texk/web2c/omegadir/omfont.ch
+++ /dev/null
@@ -1,2377 +0,0 @@
-% omfont.ch: Reading and storing font metric information
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%%---------------------------------------
-@x [15] m.208 l.
-@d min_internal=end_cs_name+1 {the smallest code that can follow \.{\\the}}
-@y
-@d char_ghost=end_cs_name+1
- {\.{\\ghostleft}, \.{\\ghostright} character for kerning}
-@d min_internal=char_ghost+1 {the smallest code that can follow \.{\\the}}
-@z
-%---------------------------------------
-@x [17] m.222 l.4530 - Omega
- {begins table of 257 permanent font identifiers}
-@d undefined_control_sequence=frozen_null_font+257 {dummy location}
-@y
- {begins table of |number_fonts| permanent font identifiers}
-@d undefined_control_sequence=frozen_null_font+number_fonts
- {dummy location}
-@z
-%---------------------------------------
-@x [18] m.265 l.5648 - Omega
-primitive("insert",insert,0);@/
-@!@:insert_}{\.{\\insert} primitive@>
-@y
-primitive("insert",insert,0);@/
-@!@:insert_}{\.{\\insert} primitive@>
-primitive("leftghost",char_ghost,0);@/
-@!@:leftghost_}{\.{\\leftghost} primitive@>
-@z
-%---------------------------------------
-@x [18] m.265 l.5648 - Omega
-primitive("setbox",set_box,0);@/
-@!@:set_box_}{\.{\\setbox} primitive@>
-@y
-primitive("rightghost",char_ghost,1);@/
-@!@:rightghost_}{\.{\\rightghost} primitive@>
-primitive("setbox",set_box,0);@/
-@!@:set_box_}{\.{\\setbox} primitive@>
-@z
-%---------------------------------------
-@x [18] m.266 l.5648 - Omega
-char_num: print_esc("char");
-@y
-char_num: print_esc("char");
-char_ghost: if cur_chr=0 then print_esc("leftghost")
- else print_esc("rightghost");
-@z
-%---------------------------------------
-@x [26] m.425 l.8524 - font parameters
-begin find_font_dimen(false); font_info[fmem_ptr].sc:=0;
-scanned_result(font_info[cur_val].sc)(dimen_val);
-@y
-begin find_font_dimen(false);
-font_info(dimen_font)(font_file_size(dimen_font)).sc:=0;
-scanned_result(font_info(dimen_font)(cur_val).sc)(dimen_val);
-@z
-%---------------------------------------
-@x [26] m.426 l.8530 - font parameters
-if m=0 then scanned_result(hyphen_char[cur_val])(int_val)
-else scanned_result(skew_char[cur_val])(int_val);
-@y
-if m=0 then scanned_result(hyphen_char(cur_val))(int_val)
-else scanned_result(skew_char(cur_val))(int_val);
-@z
-%---------------------------------------
-@x [27] m.472 l.9258 - font parameters
-font_name_code: begin print(font_name[cur_val]);
- if font_size[cur_val]<>font_dsize[cur_val] then
- begin print(" at "); print_scaled(font_size[cur_val]);
-@y
-font_name_code: begin print(font_name(cur_val));
- if font_size(cur_val)<>font_dsize(cur_val) then
- begin print(" at "); print_scaled(font_size(cur_val));
-@z
-%---------------------------------------
-@x [30] m.539 l.10392 - Omega
-@^Ramshaw, Lyle Harold@>
-of information in a compact but useful form.
-
-@y
-@^Ramshaw, Lyle Harold@>
-of information in a compact but useful form.
-
-$\Omega$ is capable of reading not only \.{TFM} files, but also
-\.{OFM} files, which can describe fonts with up to 65536 characters
-and with huge lig/kern tables. These fonts will often be virtual
-fonts built up from real fonts with 256 characters, but $\Omega$
-is not aware of this.
-
-The documentation below describes \.{TFM} files, with slight additions
-to show where \.{OFM} files differ.
-
-@z
-%---------------------------------------
-@x [30] m.540 l.10417 - Omega
-Note that a font may contain as many as 256 characters (if |bc=0| and |ec=255|),
-and as few as 0 characters (if |bc=ec+1|).
-
-Incidentally, when two or more 8-bit bytes are combined to form an integer of
-16 or more bits, the most significant bytes appear first in the file.
-This is called BigEndian order.
-@!@^BigEndian order@>
-
-@y
-Note that a \.{TFM} font may contain as many as 256 characters
-(if |bc=0| and |ec=255|), and as few as 0 characters (if |bc=ec+1|).
-
-Incidentally, when two or more 8-bit bytes are combined to form an integer of
-16 or more bits, the most significant bytes appear first in the file.
-This is called BigEndian order.
-@!@^BigEndian order@>
-
-The first 52 bytes (13 words) of an \.{OFM} file contains thirteen
-32-bit integers that give the lengths of the various subsequent
-portions of the file. The first word is 0 (future versions of
-\.{OFM} files could have different values; what is important is that
-the first two bytes be 0 to differentiate \.{TFM} and \.{OFM} files).
-The next twelve integers are as above, all nonegative and less
-than~$2^{31}$. We must have |bc-1<=ec<=65535|, and
-$$\hbox{|lf=13+lh+2*(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np|.}$$
-Note that an \.{OFM} font may contain as many as 65536 characters
-(if |bc=0| and |ec=65535|), and as few as 0 characters (if |bc=ec+1|).
-
-@z
-%---------------------------------------
-@x [30] m.543 l.10492 - Omega
-per character. Each word in this part of the file contains six fields
-@y
-per character. Each word in this part of a \.{TFM} file contains six fields
-@z
-%---------------------------------------
-@x [30] m.543 l.10506 - Omega
-imposes a limit of 16 different heights, 16 different depths, and
-64 different italic corrections.
-
-@y
-imposes a limit of 16 different heights, 16 different depths, and
-64 different italic corrections.
-
-For \.{OFM} files, two words (eight bytes) are used.
-The arrangement is as follows.
-
-\yskip\hang first and second bytes: |@!width_index| (16 bits)\par
-\hang third byte: |@!height_index| (8 bits)\par
-\hang fourth byte: |@!depth_index| (8~bits)\par
-\hang fifth and sixth bytes:
-|@!italic_index| (14 bits) times 4, plus |@!tag| (2~bits)\par
-\hang seventh and eighth bytes: |@!remainder| (16 bits)\par
-\yskip\noindent
-Therefore the \.{OFM} format imposes a limit of 256 different heights,
-256 different depths, and 16384 different italic corrections.
-
-@z
-%---------------------------------------
-@x [30] m.545 l.10547 - Omega
-that explains what to do for special letter pairs. Each word in this array is a
-|@!lig_kern_command| of four bytes.
-@y
-that explains what to do for special letter pairs. Each word in this array,
-in a \.{TFM} file, is a |@!lig_kern_command| of four bytes.
-@z
-%---------------------------------------
-@x [30] m.545 l.10557 - Omega
-\hang fourth byte: |remainder|.\par
-\yskip\noindent
-@y
-\hang fourth byte: |remainder|.\par
-\yskip\noindent
-In an \.{OFM} file, eight bytes are used, two bytes for each field.
-
-@z
-%---------------------------------------
-@x [30] m.545 l.10587 - Omega
-appear in a location |<=255|.
-@y
-appear in a location |<=255| in a \.{TFM} file, |<=65535| in an \.{OFM} file.
-@z
-%---------------------------------------
-@x [30] m.545 l.10599 - Omega
-@d skip_byte(#)==#.b0
-@d next_char(#)==#.b1
-@d op_byte(#)==#.b2
-@d rem_byte(#)==#.b3
-@y
-@d top_skip_byte(#)==(#.b0 div 256)
-@d skip_byte(#)==(#.b0 mod 256)
-@d next_char_end(#)==#.b1
-@d next_char(#)==font_offset(#)+next_char_end
-@d op_byte(#)==#.b2
-@d rem_byte(#)==#.b3
-@d rem_char_byte_end(#)==#.b3
-@d rem_char_byte(#)==font_offset(#)+rem_char_byte_end
-@d rem_top_byte(#)==(#.b3 div 256)
-@d rem_bot_byte(#)==(#.b3 mod 256)
-@z
-%---------------------------------------
-@x [30] m.546 l.10604 - Omega
-consists of four bytes called |@!top|, |@!mid|, |@!bot|, and |@!rep| (in this
-order). These bytes are the character codes of individual pieces used to
-@y
-consists of four bytes in a \.{TFM} file,
-called |@!top|, |@!mid|, |@!bot|, and |@!rep| (in this order).
-In an \.{OFM} file, each field takes two bytes, for eight in total.
-These bytes are the character codes of individual pieces used to
-@z
-%---------------------------------------
-@x [30] m.546 l.10618 - Omega
-@d ext_top(#)==#.b0 {|top| piece in a recipe}
-@d ext_mid(#)==#.b1 {|mid| piece in a recipe}
-@d ext_bot(#)==#.b2 {|bot| piece in a recipe}
-@d ext_rep(#)==#.b3 {|rep| piece in a recipe}
-@y
-@d ext_top_end(#)==#.b0 {|top| piece in a recipe}
-@d ext_top(#)==font_offset(#)+ext_top_end
-@d ext_mid_end(#)==#.b1 {|mid| piece in a recipe}
-@d ext_mid(#)==font_offset(#)+ext_mid_end
-@d ext_bot_end(#)==#.b2 {|bot| piece in a recipe}
-@d ext_bot(#)==font_offset(#)+ext_bot_end
-@d ext_rep_end(#)==#.b3 {|rep| piece in a recipe}
-@d ext_rep(#)==font_offset(#)+ext_rep_end
-@z
-%---------------------------------------
-@x [30] m.548 l.10674 - Omega
-@!font_index=0..font_mem_size; {index into |font_info|}
-@y
-@!font_index=integer; {index into |font_info|}
-@z
-%---------------------------------------
-@x [30] m.549 l.10678 - Omega
-@d non_char==qi(256) {a |halfword| code that can't match a real character}
-@y
-@d non_char==qi(too_big_char) {a code that can't match a real character}
-@z
-%---------------------------------------
-@x [30] m.549 l.10686 - Omega
-@!font_info:array[font_index] of memory_word;
- {the big collection of font data}
-@!fmem_ptr:font_index; {first unused word of |font_info|}
-@!font_ptr:internal_font_number; {largest internal font number in use}
-@!font_check:array[internal_font_number] of four_quarters; {check sum}
-@!font_size:array[internal_font_number] of scaled; {``at'' size}
-@!font_dsize:array[internal_font_number] of scaled; {``design'' size}
-@!font_params:array[internal_font_number] of font_index; {how many font
- parameters are present}
-@!font_name:array[internal_font_number] of str_number; {name of the font}
-@!font_area:array[internal_font_number] of str_number; {area of the font}
-@!font_bc:array[internal_font_number] of eight_bits;
- {beginning (smallest) character code}
-@!font_ec:array[internal_font_number] of eight_bits;
- {ending (largest) character code}
-@!font_glue:array[internal_font_number] of pointer;
- {glue specification for interword space, |null| if not allocated}
-@!font_used:array[internal_font_number] of boolean;
- {has a character from this font actually appeared in the output?}
-@!hyphen_char:array[internal_font_number] of integer;
- {current \.{\\hyphenchar} values}
-@!skew_char:array[internal_font_number] of integer;
- {current \.{\\skewchar} values}
-@!bchar_label:array[internal_font_number] of font_index;
- {start of |lig_kern| program for left boundary character,
- |non_address| if there is none}
-@!font_bchar:array[internal_font_number] of min_quarterword..non_char;
- {right boundary character, |non_char| if there is none}
-@!font_false_bchar:array[internal_font_number] of min_quarterword..non_char;
- {|font_bchar| if it doesn't exist in the font, otherwise |non_char|}
-@y
-@!font_ptr:internal_font_number; {largest internal font number in use}
-@z
-%---------------------------------------
-@x [30] m.550 l.10723 - Omega
-|font_info[char_base[f]+c].qqqq|; and if |w| is the |width_index|
-part of this word (the |b0| field), the width of the character is
-|font_info[width_base[f]+w].sc|. (These formulas assume that
-|min_quarterword| has already been added to |c| and to |w|, since \TeX\
-stores its quarterwords that way.)
-
-@<Glob...@>=
-@!char_base:array[internal_font_number] of integer;
- {base addresses for |char_info|}
-@!width_base:array[internal_font_number] of integer;
- {base addresses for widths}
-@!height_base:array[internal_font_number] of integer;
- {base addresses for heights}
-@!depth_base:array[internal_font_number] of integer;
- {base addresses for depths}
-@!italic_base:array[internal_font_number] of integer;
- {base addresses for italic corrections}
-@!lig_kern_base:array[internal_font_number] of integer;
- {base addresses for ligature/kerning programs}
-@!kern_base:array[internal_font_number] of integer;
- {base addresses for kerns}
-@!exten_base:array[internal_font_number] of integer;
- {base addresses for extensible recipes}
-@!param_base:array[internal_font_number] of integer;
- {base addresses for font parameters}
-@y
-|font_info(f)(char_base(f)+c).qqqq|; and if |w| is the |width_index|
-part of this word (the |b0| field), the width of the character is
-|font_info(f)(width_base(f)+w).sc|. (These formulas assume that
-|min_quarterword| has already been added to |c| and to |w|, since \TeX\
-stores its quarterwords that way.)
-
-@d font_info_end(#)==#]
-@d font_info(#)==font_tables[#,font_info_end
-@d offset_file_size=0
-@d offset_check=1
-@d offset_offset=offset_check+4
-@d offset_size=offset_offset+1
-@d offset_dsize=offset_size+1
-@d offset_params=offset_dsize+1
-@d offset_name_sort=offset_params+1
-@d offset_name=offset_name_sort+1
-@d offset_area=offset_name+1
-@d offset_bc=offset_area+1
-@d offset_ec=offset_bc+1
-@d offset_glue=offset_ec+1
-@d offset_used=offset_glue+1
-@d offset_hyphen=offset_used+1
-@d offset_skew=offset_hyphen+1
-@d offset_bchar_label=offset_skew+1
-@d offset_bchar=offset_bchar_label+1
-@d offset_false_bchar=offset_bchar+1
-@d offset_ivalues_start=offset_false_bchar+1
-@d offset_fvalues_start=offset_ivalues_start+1
-@d offset_mvalues_start=offset_fvalues_start+1
-@d offset_rules_start=offset_mvalues_start+1
-@d offset_glues_start=offset_rules_start+1
-@d offset_penalties_start=offset_glues_start+1
-@d offset_ivalues_base=offset_penalties_start+1
-@d offset_fvalues_base=offset_ivalues_base+1
-@d offset_mvalues_base=offset_fvalues_base+1
-@d offset_rules_base=offset_mvalues_base+1
-@d offset_glues_base=offset_rules_base+1
-@d offset_penalties_base=offset_glues_base+1
-@d offset_char_base=offset_penalties_base+1
-@d offset_char_attr_base=offset_char_base+1
-@d offset_width_base=offset_char_attr_base+1
-@d offset_height_base=offset_width_base+1
-@d offset_depth_base=offset_height_base+1
-@d offset_italic_base=offset_depth_base+1
-@d offset_lig_kern_base=offset_italic_base+1
-@d offset_kern_base=offset_lig_kern_base+1
-@d offset_exten_base=offset_kern_base+1
-@d offset_param_base=offset_exten_base+1
-@d offset_charinfo_base=offset_param_base+1
-@d font_file_size(#)==font_info(#)(offset_file_size).int
-@d font_check_0(#)==font_info(#)(offset_check).int
-@d font_check_1(#)==font_info(#)(offset_check+1).int
-@d font_check_2(#)==font_info(#)(offset_check+2).int
-@d font_check_3(#)==font_info(#)(offset_check+3).int
-@d font_offset(#)==font_info(#)(offset_offset).int
-@d font_size(#)==font_info(#)(offset_size).int
-@d font_dsize(#)==font_info(#)(offset_dsize).int
-@d font_params(#)==font_info(#)(offset_params).int
-@d font_name_sort(#)==font_info(#)(offset_name_sort).int
-@d font_name(#)==font_info(#)(offset_name).int
-@d font_area(#)==font_info(#)(offset_area).int
-@d font_bc(#)==font_info(#)(offset_bc).int
-@d font_ec(#)==font_info(#)(offset_ec).int
-@d font_glue(#)==font_info(#)(offset_glue).int
-@d font_used(#)==font_info(#)(offset_used).int
-@d hyphen_char(#)==font_info(#)(offset_hyphen).int
-@d skew_char(#)==font_info(#)(offset_skew).int
-@d bchar_label(#)==font_info(#)(offset_bchar_label).int
-@d font_bchar(#)==font_info(#)(offset_bchar).int
-@d font_false_bchar(#)==font_info(#)(offset_false_bchar).int
-@d ivalues_start(#)==font_info(#)(offset_ivalues_start).int
-@d fvalues_start(#)==font_info(#)(offset_fvalues_start).int
-@d mvalues_start(#)==font_info(#)(offset_mvalues_start).int
-@d rules_start(#)==font_info(#)(offset_rules_start).int
-@d glues_start(#)==font_info(#)(offset_glues_start).int
-@d penalties_start(#)==font_info(#)(offset_penalties_start).int
-@d ivalues_base(#)==font_info(#)(offset_ivalues_base).int
-@d fvalues_base(#)==font_info(#)(offset_fvalues_base).int
-@d mvalues_base(#)==font_info(#)(offset_mvalues_base).int
-@d rules_base(#)==font_info(#)(offset_rules_base).int
-@d glues_base(#)==font_info(#)(offset_glues_base).int
-@d penalties_base(#)==font_info(#)(offset_penalties_base).int
-@d char_attr_base(#)==font_info(#)(offset_char_attr_base).int
-@d char_base(#)==font_info(#)(offset_char_base).int
-@d width_base(#)==font_info(#)(offset_width_base).int
-@d height_base(#)==font_info(#)(offset_height_base).int
-@d depth_base(#)==font_info(#)(offset_depth_base).int
-@d italic_base(#)==font_info(#)(offset_italic_base).int
-@d lig_kern_base(#)==font_info(#)(offset_lig_kern_base).int
-@d kern_base(#)==font_info(#)(offset_kern_base).int
-@d exten_base(#)==font_info(#)(offset_exten_base).int
-@d param_base(#)==font_info(#)(offset_param_base).int
-
-@<Glob...@>=
-@!dimen_font:integer;
-@z
-%---------------------------------------
-@x [30] m.551 l.10743 - Omega
-for k:=font_base to font_max do font_used[k]:=false;
-@y
-@z
-%---------------------------------------
-@x [30] m.552 l.10749 - Omega
-font_ptr:=null_font; fmem_ptr:=7;
-font_name[null_font]:="nullfont"; font_area[null_font]:="";
-hyphen_char[null_font]:="-"; skew_char[null_font]:=-1;
-bchar_label[null_font]:=non_address;
-font_bchar[null_font]:=non_char; font_false_bchar[null_font]:=non_char;
-font_bc[null_font]:=1; font_ec[null_font]:=0;
-font_size[null_font]:=0; font_dsize[null_font]:=0;
-char_base[null_font]:=0; width_base[null_font]:=0;
-height_base[null_font]:=0; depth_base[null_font]:=0;
-italic_base[null_font]:=0; lig_kern_base[null_font]:=0;
-kern_base[null_font]:=0; exten_base[null_font]:=0;
-font_glue[null_font]:=null; font_params[null_font]:=7;
-param_base[null_font]:=-1;
-for k:=0 to 6 do font_info[k].sc:=0;
-@y
-font_ptr:=null_font;
-allocate_font_table(null_font,offset_charinfo_base+108);
-font_file_size(null_font):=offset_charinfo_base+108;
-font_used(null_font):=false;
-font_name(null_font):="nullfont"; font_area(null_font):="";
-hyphen_char(null_font):="-"; skew_char(null_font):=-1;
-bchar_label(null_font):=non_address;
-font_bchar(null_font):=non_char; font_false_bchar(null_font):=non_char;
-font_bc(null_font):=1; font_ec(null_font):=0;
-font_size(null_font):=0; font_dsize(null_font):=0;
-char_base(null_font):=offset_charinfo_base;
-char_attr_base(null_font):=offset_charinfo_base;
-ivalues_start(null_font):=offset_charinfo_base;
-fvalues_start(null_font):=offset_charinfo_base;
-mvalues_start(null_font):=offset_charinfo_base;
-rules_start(null_font):=offset_charinfo_base;
-glues_start(null_font):=offset_charinfo_base;
-penalties_start(null_font):=offset_charinfo_base;
-ivalues_base(null_font):=offset_charinfo_base;
-fvalues_base(null_font):=offset_charinfo_base;
-mvalues_base(null_font):=offset_charinfo_base;
-rules_base(null_font):=offset_charinfo_base;
-glues_base(null_font):=offset_charinfo_base;
-penalties_base(null_font):=offset_charinfo_base;
-width_base(null_font):=offset_charinfo_base;
-height_base(null_font):=offset_charinfo_base;
-depth_base(null_font):=offset_charinfo_base;
-italic_base(null_font):=offset_charinfo_base;
-lig_kern_base(null_font):=offset_charinfo_base;
-kern_base(null_font):=offset_charinfo_base;
-exten_base(null_font):=offset_charinfo_base;
-font_glue(null_font):=null;
-font_params(null_font):=7;
-param_base(null_font):=offset_charinfo_base-1;
-font_offset(null_font):=0;
-for k:=1 to 7 do font_info(null_font)(param_base(null_font)+k).sc:=0;
-@z
-%---------------------------------------
-@x [30] m.553 l.10767 - Omega
-text(frozen_null_font):="nullfont"; eqtb[frozen_null_font]:=eqtb[cur_val];
-@y
-settext(frozen_null_font,"nullfont");
-set_new_eqtb(frozen_null_font,new_eqtb(cur_val));
-@z
-%---------------------------------------
-@x [30] m.554 l.10771 - Omega
-$$\hbox{|font_info[width_base[f]+font_info[char_base[f]+c].qqqq.b0].sc|}$$
-@y
-$$\hbox{|font_info(f)(width_base(f)+font_info(f)(char_base(f)+c).qqqq.b0).sc|}$$
-@z
-%---------------------------------------
-@x [30] m.554 l.10785 - Omega
-|height_depth(q)| will be the 8-bit quantity
-$$b=|height_index|\times16+|depth_index|,$$ and if |b| is such a byte we
-@y
-|height_depth(q)| will be the 16-bit quantity
-$$b=|height_index|\times256+|depth_index|,$$ and if |b| is such a byte we
-@z
-%---------------------------------------
-@x [30] m.554 l.10798 - Omega
-@d char_info_end(#)==#].qqqq
-@d char_info(#)==font_info[char_base[#]+char_info_end
-@d char_width_end(#)==#.b0].sc
-@d char_width(#)==font_info[width_base[#]+char_width_end
-@d char_exists(#)==(#.b0>min_quarterword)
-@d char_italic_end(#)==(qo(#.b2)) div 4].sc
-@d char_italic(#)==font_info[italic_base[#]+char_italic_end
-@d height_depth(#)==qo(#.b1)
-@d char_height_end(#)==(#) div 16].sc
-@d char_height(#)==font_info[height_base[#]+char_height_end
-@d char_depth_end(#)==(#) mod 16].sc
-@d char_depth(#)==font_info[depth_base[#]+char_depth_end
-@d char_tag(#)==((qo(#.b2)) mod 4)
-@y
-@d char_info_end(#)==#].qqqq
-@d char_info(#)==font_tables[#,char_base(#)-font_offset(#)+char_info_end
-@d char_width_end(#)==#.b0].sc
-@d char_width(#)==font_tables[#,width_base(#)+char_width_end
-@d char_exists(#)==(#.b0>min_quarterword)
-@d char_italic_end(#)==(qo(#.b2)) div 256].sc
-@d char_italic(#)==font_tables[#,italic_base(#)+char_italic_end
-@d height_depth(#)==qo(#.b1)
-@d char_height_end(#)==(#) div 256].sc
-@d char_height(#)==font_tables[#,height_base(#)+char_height_end
-@d char_depth_end(#)==(#) mod 256].sc
-@d char_depth(#)==font_tables[#,depth_base(#)+char_depth_end
-@d char_tag(#)==((qo(#.b2)) mod 4)
-@z
-%---------------------------------------
-@x [30] m.557 l.10834 - Omega
-|i=font_info[lig_kern_start(f)(j)]| or |font_info[lig_kern_restart(f)(i)]|,
-depending on whether or not |skip_byte(i)<=stop_flag|.
-
-The constant |kern_base_offset| should be simplified, for \PASCAL\ compilers
-that do not do local optimization.
-@^system dependencies@>
-
-@d char_kern_end(#)==256*op_byte(#)+rem_byte(#)].sc
-@d char_kern(#)==font_info[kern_base[#]+char_kern_end
-@d kern_base_offset==256*(128+min_quarterword)
-@d lig_kern_start(#)==lig_kern_base[#]+rem_byte {beginning of lig/kern program}
-@d lig_kern_restart_end(#)==256*op_byte(#)+rem_byte(#)+32768-kern_base_offset
-@d lig_kern_restart(#)==lig_kern_base[#]+lig_kern_restart_end
-@y
-|i=font_info(f)(lig_kern_start(f)(j))| or
-|font_info(f)(lig_kern_restart(f)(i))|,
-depending on whether or not |skip_byte(i)<=stop_flag|.
-
-The constant |kern_base_offset| should be simplified, for \PASCAL\ compilers
-that do not do local optimization.
-@^system dependencies@>
-
-@d char_kern_end(#)==256*op_byte(#)+rem_byte(#)].sc
-@d char_kern(#)==font_tables[#,kern_base(#)+char_kern_end
-@d kern_base_offset==256*(128+min_quarterword)
-@d lig_kern_start(#)==lig_kern_base(#)+rem_byte {beginning of lig/kern program}
-@d lig_kern_restart_end(#)==256*op_byte(#)+rem_byte(#)+32768-kern_base_offset
-@d lig_kern_restart(#)==lig_kern_base(#)+lig_kern_restart_end
-
-@d attr_zero_char_ivalue_end(#)==#].int].int
-@d attr_zero_char_ivalue(#)==
- font_tables[#,font_tables[#,char_attr_base(#)+attr_zero_char_ivalue_end
-@d attr_zero_ivalue_end(#)==#].int
-@d attr_zero_ivalue(#)==font_tables[#,ivalues_base(#)+attr_zero_ivalue_end
-@d attr_zero_penalty_end(#)==#].int
-@d attr_zero_penalty(#)==font_tables[#,penalties_base(#)+attr_zero_penalty_end
-@d attr_zero_kern_end(#)==#].int
-@d attr_zero_kern(#)==font_tables[#,mvalues_base(#)+attr_zero_kern_end
-
-@z
-%---------------------------------------
-@x [30] m.558 l.10843 - Omega
-@d param_end(#)==param_base[#]].sc
-@d param(#)==font_info[#+param_end
-@d slant==param(slant_code) {slant to the right, per unit distance upward}
-@d space==param(space_code) {normal space between words}
-@d space_stretch==param(space_stretch_code) {stretch between words}
-@d space_shrink==param(space_shrink_code) {shrink between words}
-@d x_height==param(x_height_code) {one ex}
-@d quad==param(quad_code) {one em}
-@d extra_space==param(extra_space_code) {additional space at end of sentence}
-@y
-@d slant(#)==font_info(#)(param_base(#)+slant_code).sc
- {slant to the right, per unit distance upward}
-@d space(#)==font_info(#)(param_base(#)+space_code).sc
- {normal space between words}
-@d space_stretch(#)==font_info(#)(param_base(#)+space_stretch_code).sc
- {stretch between words}
-@d space_shrink(#)==font_info(#)(param_base(#)+space_shrink_code).sc
- {shrink between words}
-@d x_height(#)==font_info(#)(param_base(#)+x_height_code).sc
- {one ex}
-@d quad(#)==font_info(#)(param_base(#)+quad_code).sc
- {one em}
-@d extra_space(#)==font_info(#)(param_base(#)+extra_space_code).sc
- {additional space at end of sentence}
-@z
-%---------------------------------------
-@x [30] m.560 l.10876 - Omega
-@p function read_font_info(@!u:pointer;@!nom,@!aire:str_number;
- @!s:scaled):internal_font_number; {input a \.{TFM} file}
-@y
-@p function read_font_info(@!u:pointer;@!nom,@!aire:str_number;
- @!s:scaled;offset:quarterword):internal_font_number; {input a \.{TFM} file}
-@z
-%---------------------------------------
-@x [30] m.560 l.10882 - Omega
- {sizes of subfiles}
-@!f:internal_font_number; {the new font's number}
-@!g:internal_font_number; {the number to return}
-@!a,@!b,@!c,@!d:eight_bits; {byte variables}
-@y
-@!font_dir:halfword;
- {sizes of subfiles}
-@!f:internal_font_number; {the new font's number}
-@!g:internal_font_number; {the number to return}
-@!a,@!b,@!c,@!d:integer; {byte variables}
-@!i,@!k_param,@!param,@!font_counter:integer; {counters}
-@!font_level,@!header_length:integer;
-@!nco,@!ncw,@!npc,@!nlw,@!neew:integer;
-@!nki,@!nwi,@!nkf,@!nwf,@!nkm,@!nwm:integer;
-@!nkr,@!nwr,@!nkg,@!nwg,@!nkp,@!nwp:integer;
-@!table_size:array [0..31] of integer;
-@!bytes_per_entry,@!extra_char_bytes:integer;
-@!repeat_no,@!table_counter:integer;
-@z
-%---------------------------------------
-@x [30] m.560 l.10888 - Omega
-@!bchar:0..256; {right boundary character, or 256}
-@y
-@!bchar:0..too_big_char; {right boundary character, or |too_big_char|}
-@!first_two:integer;
-@z
-%---------------------------------------
-@x [30] m.563 l.10943 - Omega
-if file_opened then print(" not loadable: Bad metric (TFM) file")
-else print(" not loadable: Metric (TFM) file not found");
-@y
-if file_opened then print(" not loadable: Bad metric (TFM/OFM) file")
-else print(" not loadable: Metric (TFM/OFM) file not found");
-@z
-%---------------------------------------
-@x [30] m.563 l.10943 - Omega
-if aire="" then pack_file_name(nom,TEX_font_area,".tfm")
-else pack_file_name(nom,aire,".tfm");
-if not b_open_in(tfm_file) then abort;
-@y
-if aire="" then pack_file_name(nom,TEX_font_area,".ofm")
-else pack_file_name(nom,aire,".ofm");
-if not b_open_in(tfm_file) then abort;
-@z
-%---------------------------------------
-@x [30] m.564 l.10962 - Omega
-@d store_four_quarters(#)==begin fget; a:=fbyte; qw.b0:=qi(a);
- fget; b:=fbyte; qw.b1:=qi(b);
- fget; c:=fbyte; qw.b2:=qi(c);
- fget; d:=fbyte; qw.b3:=qi(d);
- #:=qw;
- end
-@y
-@d read_sixteen_unsigned(#)==begin #:=fbyte;
- fget; #:=#*@'400+fbyte;
- end
-@d read_thirtytwo(#)==begin #:=fbyte;
- if #>127 then abort;
- fget; #:=#*@'400+fbyte;
- fget; #:=#*@'400+fbyte;
- fget; #:=#*@'400+fbyte;
- end
-@d store_four_bytes(#)==begin fget; a:=fbyte; qw.b0:=a;
- fget; b:=fbyte; qw.b1:=b;
- fget; c:=fbyte; qw.b2:=c;
- fget; d:=fbyte; qw.b3:=d;
- #:=qw;
- end
-@d store_char_info(#)==begin if (font_level<>-1) then
- begin fget; read_sixteen_unsigned(a); qw.b0:=a;
- fget; read_sixteen_unsigned(b); qw.b1:=b;
- fget; read_sixteen_unsigned(c); qw.b2:=c;
- fget; read_sixteen_unsigned(d); qw.b3:=d;
- #:=qw
- end
-else
- begin fget; a:=fbyte; qw.b0:=a;
- fget; b:=fbyte; b:=((b div 16)*256)+(b mod 16); qw.b1:=b;
- fget; c:=fbyte; c:=((c div 4)*256)+(c mod 4); qw.b2:=c;
- fget; d:=fbyte; qw.b3:=d;
- #:=qw
- end
-end
-@d store_four_quarters(#)==begin if (font_level<>-1) then
- begin fget; read_sixteen_unsigned(a); qw.b0:=a;
- fget; read_sixteen_unsigned(b); qw.b1:=b;
- fget; read_sixteen_unsigned(c); qw.b2:=c;
- fget; read_sixteen_unsigned(d); qw.b3:=d;
- #:=qw
- end
-else
- begin fget; a:=fbyte; qw.b0:=a;
- fget; b:=fbyte; qw.b1:=b;
- fget; c:=fbyte; qw.b2:=c;
- fget; d:=fbyte; qw.b3:=d;
- #:=qw
- end
-end
-@z
-%---------------------------------------
-@x [30] m.565 l.10970 - Omega
-begin read_sixteen(lf);
-fget; read_sixteen(lh);
-fget; read_sixteen(bc);
-fget; read_sixteen(ec);
-if (bc>ec+1)or(ec>255) then abort;
-if bc>255 then {|bc=256| and |ec=255|}
- begin bc:=1; ec:=0;
- end;
-fget; read_sixteen(nw);
-fget; read_sixteen(nh);
-fget; read_sixteen(nd);
-fget; read_sixteen(ni);
-fget; read_sixteen(nl);
-fget; read_sixteen(nk);
-fget; read_sixteen(ne);
-fget; read_sixteen(np);
-if lf<>6+lh+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np then abort;
-if (nw=0)or(nh=0)or(nd=0)or(ni=0) then abort;
-end
-@y
-nco:=0; ncw:=0; npc:=0;
-nki:=0; nwi:=0; nkf:=0; nwf:=0; nkm:=0; nwm:=0;
-nkr:=0; nwr:=0; nkg:=0; nwg:=0; nkp:=0; nwp:=0;
-read_sixteen(first_two);
-if first_two<>0 then begin
- font_level:=-1;
- lf:=first_two;
- fget; read_sixteen(lh);
- fget; read_sixteen(bc);
- fget; read_sixteen(ec);
- if (bc>ec+1)or(ec>255) then abort;
- if bc>255 then {|bc=256| and |ec=255|}
- begin bc:=1; ec:=0;
- end;
- fget; read_sixteen(nw);
- fget; read_sixteen(nh);
- fget; read_sixteen(nd);
- fget; read_sixteen(ni);
- fget; read_sixteen(nl);
- fget; read_sixteen(nk);
- fget; read_sixteen(ne);
- fget; read_sixteen(np);
- header_length:=6;
- ncw:=(ec-bc+1);
- nlw:=nl;
- neew:=ne;
- end
-else begin
- fget; read_sixteen(font_level);
- if (font_level<>0) and (font_level<>1) then abort;
- fget; read_thirtytwo(lf);
- fget; read_thirtytwo(lh);
- fget; read_thirtytwo(bc);
- fget; read_thirtytwo(ec);
- if (bc>ec+1)or(ec>biggest_char) then abort;
- if bc>65535 then {|bc=65536| and |ec=65535|}
- begin bc:=1; ec:=0;
- end;
- fget; read_thirtytwo(nw);
- fget; read_thirtytwo(nh);
- fget; read_thirtytwo(nd);
- fget; read_thirtytwo(ni);
- fget; read_thirtytwo(nl);
- fget; read_thirtytwo(nk);
- fget; read_thirtytwo(ne);
- fget; read_thirtytwo(np);
- fget; read_thirtytwo(font_dir);
- nlw:=2*nl;
- neew:=2*ne;
- if font_level=0 then begin
- header_length:=14;
- ncw:=2*(ec-bc+1);
- end
- else begin
- header_length:=29;
- fget; read_thirtytwo(nco);
- fget; read_thirtytwo(ncw);
- fget; read_thirtytwo(npc);
- fget; read_thirtytwo(nki); {Kinds of font ivalues}
- fget; read_thirtytwo(nwi); {Words of font ivalues}
- fget; read_thirtytwo(nkf); {Kinds of font fvalues}
- fget; read_thirtytwo(nwf); {Words of font fvalues}
- fget; read_thirtytwo(nkm); {Kinds of font mvalues}
- fget; read_thirtytwo(nwm); {Words of font mvalues}
- fget; read_thirtytwo(nkr); {Kinds of font rules}
- fget; read_thirtytwo(nwr); {Words of font rules}
- fget; read_thirtytwo(nkg); {Kinds of font glues}
- fget; read_thirtytwo(nwg); {Words of font glues}
- fget; read_thirtytwo(nkp); {Kinds of font penalties}
- fget; read_thirtytwo(nwp); {Words of font penalties}
- end
- end;
-if lf<>(header_length+lh+ncw+nw+nh+nd+ni+nlw+nk+neew+np+
- nki+nwi+nkf+nwf+nkm+nwm+nkr+nwr+nkg+nwg+nkp+nwp) then abort;
-@z
-%---------------------------------------
-@x [30] m.566 l.10996 - Omega
-lf:=lf-6-lh; {|lf| words should be loaded into |font_info|}
-if np<7 then lf:=lf+7-np; {at least seven parameters will appear}
-if (font_ptr=font_max)or(fmem_ptr+lf>font_mem_size) then
- @<Apologize for not loading the font, |goto done|@>;
-f:=font_ptr+1;
-char_base[f]:=fmem_ptr-bc;
-width_base[f]:=char_base[f]+ec+1;
-height_base[f]:=width_base[f]+nw;
-depth_base[f]:=height_base[f]+nh;
-italic_base[f]:=depth_base[f]+nd;
-lig_kern_base[f]:=italic_base[f]+ni;
-kern_base[f]:=lig_kern_base[f]+nl-kern_base_offset;
-exten_base[f]:=kern_base[f]+kern_base_offset+nk;
-param_base[f]:=exten_base[f]+ne
-@y
-case font_level of
--1: lf:=lf-6-lh; {|lf| words should be loaded into |font_info|}
- 0: lf:=lf-14-lh-(ec-bc+1)-nl-ne;
- {some of the sections contain pairs of
- words that become single |memory_word|s}
- 1: lf:=lf-29-lh-ncw+(1+npc)*(ec-bc+1)-nl-ne;
- {We explode the characters}
-end;
-if np<7 then lf:=lf+7-np; {at least seven parameters will appear}
-if (font_ptr=font_max) then
- @<Apologize for not loading the font, |goto done|@>;
-f:=font_ptr+1;
-allocate_font_table(f,offset_charinfo_base+lf+100);
- {leave room for 100 extra parameters -- potential bug}
-font_file_size(f):=offset_charinfo_base+lf+100;
-font_used(f):=false;
-font_offset(f):=offset;
-char_base(f):=offset_charinfo_base-bc;
-char_attr_base(f):=char_base(f)+ec+1;
-ivalues_start(f):=char_attr_base(f)+npc*(ec-bc+1);
-fvalues_start(f):=ivalues_start(f)+nki;
-mvalues_start(f):=fvalues_start(f)+nkf;
-rules_start(f):=mvalues_start(f)+nkm;
-glues_start(f):=rules_start(f)+nkr;
-penalties_start(f):=glues_start(f)+nkg;
-ivalues_base(f):=penalties_start(f)+nkp;
-fvalues_base(f):=ivalues_base(f)+nwi;
-mvalues_base(f):=fvalues_base(f)+nwf;
-rules_base(f):=mvalues_base(f)+nwm;
-glues_base(f):=rules_base(f)+nwr;
-penalties_base(f):=glues_base(f)+nwg;
-width_base(f):=penalties_base(f)+nwp;
-height_base(f):=width_base(f)+nw;
-depth_base(f):=height_base(f)+nh;
-italic_base(f):=depth_base(f)+nd;
-lig_kern_base(f):=italic_base(f)+ni;
-kern_base(f):=lig_kern_base(f)+nl-kern_base_offset;
-exten_base(f):=kern_base(f)+kern_base_offset+nk;
-param_base(f):=exten_base(f)+ne;
-@z
-%---------------------------------------
-@x [30] m.568 l.11026 - Omega
-store_four_quarters(font_check[f]);
-@y
-fget; font_check_0(f):=fbyte;
-fget; font_check_1(f):=fbyte;
-fget; font_check_2(f):=fbyte;
-fget; font_check_3(f):=fbyte;
-@z
-%---------------------------------------
-@x [30] m.568 l.11033 - Omega
-font_dsize[f]:=z;
-if s<>-1000 then
- if s>=0 then z:=s
- else z:=xn_over_d(z,-s,1000);
-font_size[f]:=z;
-@y
-font_dsize(f):=z;
-if s<>-1000 then
- if s>=0 then z:=s
- else z:=xn_over_d(z,-s,1000);
-font_size(f):=z;
-@z
-%---------------------------------------
-@x [30] m.569 l.11041 - Omega
-for k:=fmem_ptr to width_base[f]-1 do
- begin store_four_quarters(font_info[k].qqqq);
- if (a>=nw)or(b div @'20>=nh)or(b mod @'20>=nd)or
- (c div 4>=ni) then abort;
- case c mod 4 of
- lig_tag: if d>=nl then abort;
- ext_tag: if d>=ne then abort;
- list_tag: @<Check for charlist cycle@>;
- othercases do_nothing {|no_tag|}
- endcases;
- end
-@y
-if font_level=1 then begin
- i:=0;
- k:=ivalues_start(f);
- font_counter:=ivalues_base(f);
- while k<fvalues_start(f) do {IVALUE starts}
- begin
- read_thirtytwo(param);
- font_info(f)(k).int := font_counter;
- font_counter:=font_counter+param;
- table_size[i]:=1;
- incr(i); incr(k);
- end;
- while k<mvalues_start(f) do {FVALUE starts}
- begin
- read_thirtytwo(param);
- font_info(f)(k).int := font_counter;
- font_counter:=font_counter+param;
- table_size[i]:=1;
- incr(i); incr(k);
- end;
- while k<rules_start(f) do {MVALUE starts}
- begin
- read_thirtytwo(param);
- font_info(f)(k).int := font_counter;
- font_counter:=font_counter+param;
- table_size[i]:=1;
- incr(i); incr(k);
- end;
- while k<glues_start(f) do {RULE starts}
- begin
- read_thirtytwo(param);
- font_info(f)(k).int := font_counter;
- font_counter:=font_counter+param*3;
- table_size[i]:=3;
- incr(i); incr(k);
- end;
- while k<penalties_start(f) do {GLUE starts}
- begin
- read_thirtytwo(param);
- font_info(f)(k).int := font_counter;
- font_counter:=font_counter+param*4;
- table_size[i]:=4;
- incr(i); incr(k);
- end;
- while k<ivalues_base(f) do {PENALTY starts}
- begin
- read_thirtytwo(param);
- font_info(f)(k).int := font_counter;
- font_counter:=font_counter+param*1;
- table_size[i]:=1;
- incr(i); incr(k);
- end;
- while k<fvalues_base(f) do {IVALUE entries}
- begin
- read_thirtytwo(font_info(f)(k).int);
- incr(k);
- end;
- while k<mvalues_base(f) do {FVALUE entries}
- begin
- read_thirtytwo(font_info(f)(k).sc);
- incr(k);
- end;
- while k<rules_base(f) do {MVALUE entries}
- begin
- read_thirtytwo(font_info(f)(k).int);
- incr(k);
- end;
- while k<glues_base(f) do {RULE entries}
- begin
- store_scaled(font_info(f)(k).sc);
- store_scaled(font_info(f)(k+1).sc);
- store_scaled(font_info(f)(k+2).sc);
- k:=k+3;
- end;
- while k<penalties_base(f) do {GLUE entries}
- begin
- fget; read_sixteen(font_info(f)(k).hh.lhfield);
- fget; read_sixteen(font_info(f)(k).hh.rh);
- store_scaled(font_info(f)(k+1).sc);
- store_scaled(font_info(f)(k+2).sc);
- store_scaled(font_info(f)(k+3).sc);
- k:=k+4;
- end;
- while k<offset_charinfo_base do {PENALTY entries}
- begin
- read_thirtytwo(font_info(f)(k).int);
- incr(k);
- end;
- end;
-k:=char_base(f)+bc;
-k_param:=char_attr_base(f);
-bytes_per_entry:=(12 + 2*npc) div 4 * 4;
-extra_char_bytes:=bytes_per_entry - (10 + 2*npc);
-while k<char_attr_base(f) do begin
- store_char_info(font_info(f)(k).qqqq);
- if (a>=nw)or((b div @"100)>=nh)or((b mod @"100)>=nd)or
- ((c div @"100)>=ni) then abort;
- case c mod 4 of
- lig_tag: if d>=nl then abort;
- ext_tag: if d>=ne then abort;
- list_tag: @<Check for charlist cycle@>;
- othercases do_nothing {|no_tag|}
- endcases;
- incr(k);
- if font_level=1 then begin
- fget; read_sixteen_unsigned(repeat_no);
- for i:=0 to npc-1 do begin
- fget; read_sixteen(param);
- font_info(f)(k_param).int :=
- font_info(f)(ivalues_start(f)+i).int + param*table_size[i];
- incr(k_param);
- end;
- for i:=1 to extra_char_bytes do fget;
- for i:=1 to repeat_no do begin
- font_info(f)(k):=font_info(f)(k-1);
- incr(k);
- for table_counter:=0 to npc-1 do begin
- font_info(f)(k_param).int := font_info(f)(k_param-npc).int;
- incr(k_param);
- end;
- end;
- end;
- end
-@z
-%---------------------------------------
-@x [30] m.570 l.11059 - Omega
-@d current_character_being_worked_on==k+bc-fmem_ptr
-@y
-@d current_character_being_worked_on==k-char_base(f)
-@z
-%---------------------------------------
-@x [30] m.570 l.11065 - Omega
- begin qw:=char_info(f)(d);
- {N.B.: not |qi(d)|, since |char_base[f]| hasn't been adjusted yet}
-@y
- begin qw:=char_info(f)(d);
- {N.B.: not |qi(d)|, since |char_base(f)| hasn't been adjusted yet}
-@z
-%---------------------------------------
-@x [30] m.571 l.11098 - Omega
-for k:=width_base[f] to lig_kern_base[f]-1 do
- store_scaled(font_info[k].sc);
-if font_info[width_base[f]].sc<>0 then abort; {\\{width}[0] must be zero}
-if font_info[height_base[f]].sc<>0 then abort; {\\{height}[0] must be zero}
-if font_info[depth_base[f]].sc<>0 then abort; {\\{depth}[0] must be zero}
-if font_info[italic_base[f]].sc<>0 then abort; {\\{italic}[0] must be zero}
-@y
-for k:=width_base(f) to lig_kern_base(f)-1 do
- store_scaled(font_info(f)(k).sc);
-if font_info(f)(width_base(f)).sc<>0 then abort; {\\{width}[0] must be zero}
-if font_info(f)(height_base(f)).sc<>0 then abort; {\\{height}[0] must be zero}
-if font_info(f)(depth_base(f)).sc<>0 then abort; {\\{depth}[0] must be zero}
-if font_info(f)(italic_base(f)).sc<>0 then abort; {\\{italic}[0] must be zero}
-@z
-%---------------------------------------
-@x [30] m.573 l.11114 - Omega
-@ @d check_existence(#)==@t@>@;@/
- begin check_byte_range(#);
- qw:=char_info(f)(#); {N.B.: not |qi(#)|}
- if not char_exists(qw) then abort;
- end
-
-@<Read ligature/kern program@>=
-bch_label:=@'77777; bchar:=256;
-if nl>0 then
- begin for k:=lig_kern_base[f] to kern_base[f]+kern_base_offset-1 do
- begin store_four_quarters(font_info[k].qqqq);
- if a>128 then
- begin if 256*c+d>=nl then abort;
- if a=255 then if k=lig_kern_base[f] then bchar:=b;
- end
- else begin if b<>bchar then check_existence(b);
- if c<128 then check_existence(d) {check ligature}
- else if 256*(c-128)+d>=nk then abort; {check kern}
- if a<128 then if k-lig_kern_base[f]+a+1>=nl then abort;
- end;
- end;
- if a=255 then bch_label:=256*c+d;
- end;
-for k:=kern_base[f]+kern_base_offset to exten_base[f]-1 do
- store_scaled(font_info[k].sc);
-@y
-@ @d check_existence(#)==@t@>@;@/
- begin check_byte_range(#);
- qw:=char_info(f)(#+font_offset(f)); {N.B.: not |qi(#)|}
- if not char_exists(qw) then abort;
- end
-
-@<Read ligature/kern program@>=
-bch_label:=nl {infinity}; bchar:=too_big_char;
-if nl>0 then
- begin for k:=lig_kern_base(f) to kern_base(f)+kern_base_offset-1 do
- begin store_four_quarters(font_info(f)(k).qqqq);
- if a>128 then
- begin if 256*c+d>=nl then abort;
- if a=255 then if k=lig_kern_base(f) then bchar:=b;
- end
- else begin if b<>bchar then check_existence(b);
- if c<128 then check_existence(d) {check ligature}
- else if 256*(c-128)+d>=nk then abort; {check kern}
- if a<128 then if k-lig_kern_base(f)+a+1>=nl then abort;
- end;
- end;
- if a=255 then bch_label:=256*c+d;
- end;
-for k:=kern_base(f)+kern_base_offset to exten_base(f)-1 do
- store_scaled(font_info(f)(k).sc);
-@z
-%---------------------------------------
-@x [30] m.574 l.11141 - Omega
-for k:=exten_base[f] to param_base[f]-1 do
- begin store_four_quarters(font_info[k].qqqq);
-@y
-for k:=exten_base(f) to param_base(f)-1 do
- begin store_four_quarters(font_info(f)(k).qqqq);
-@z
-%---------------------------------------
-@x [30] m.575 l.11157 - Omega
- fget; font_info[param_base[f]].sc:=
- (sw*@'20)+(fbyte div@'20);
- end
- else store_scaled(font_info[param_base[f]+k-1].sc);
-if eof(tfm_file) then abort;
-for k:=np+1 to 7 do font_info[param_base[f]+k-1].sc:=0;
-@y
- fget; font_info(f)(param_base(f)).sc:=
- (sw*@'20)+(fbyte div@'20);
- end
- else store_scaled(font_info(f)(param_base(f)+k-1).sc);
-if eof(tfm_file) then abort;
-for k:=np+1 to 7 do font_info(f)(param_base(f)+k-1).sc:=0;
-@z
-%---------------------------------------
-@x [30] m.576 l.11169 - Omega
-@d adjust(#)==#[f]:=qo(#[f])
- {correct for the excess |min_quarterword| that was added}
-
-@<Make final adjustments...@>=
-if np>=7 then font_params[f]:=np@+else font_params[f]:=7;
-hyphen_char[f]:=default_hyphen_char; skew_char[f]:=default_skew_char;
-if bch_label<nl then bchar_label[f]:=bch_label+lig_kern_base[f]
-else bchar_label[f]:=non_address;
-font_bchar[f]:=qi(bchar);
-font_false_bchar[f]:=qi(bchar);
-if bchar<=ec then if bchar>=bc then
- begin qw:=char_info(f)(bchar); {N.B.: not |qi(bchar)|}
- if char_exists(qw) then font_false_bchar[f]:=non_char;
- end;
-font_name[f]:=nom;
-font_area[f]:=aire;
-font_bc[f]:=bc; font_ec[f]:=ec; font_glue[f]:=null;
-adjust(char_base); adjust(width_base); adjust(lig_kern_base);
-adjust(kern_base); adjust(exten_base);
-decr(param_base[f]);
-fmem_ptr:=fmem_ptr+lf; font_ptr:=f; g:=f; goto done
-@y
-@d adjust(#)==#(f):=qo(#(f))
- {correct for the excess |min_quarterword| that was added}
-
-@<Make final adjustments...@>=
-if np>=7 then font_params(f):=np@+else font_params(f):=7;
-font_offset(f):=offset;
-hyphen_char(f):=default_hyphen_char+offset;
-skew_char(f):=default_skew_char+offset;
-bchar:=bchar+offset;
-if bch_label<nl then bchar_label(f):=bch_label+lig_kern_base(f)
-else bchar_label(f):=non_address;
-font_bchar(f):=qi(bchar);
-font_false_bchar(f):=qi(bchar);
-if bchar<=ec then if bchar>=bc then
- begin qw:=char_info(f)(bchar); {N.B.: not |qi(bchar)|}
- if char_exists(qw) then font_false_bchar(f):=non_char;
- end;
-font_name(f):=nom;
-font_area(f):=aire;
-font_bc(f):=bc; font_ec(f):=ec; font_glue(f):=null;
-font_bc(f):=bc+offset; font_ec(f):=ec+offset; font_glue(f):=null;
-adjust(char_base); adjust(width_base); adjust(lig_kern_base);
-adjust(kern_base); adjust(exten_base);
-decr(param_base(f));
-font_ptr:=f; g:=f; goto done
-@z
-%---------------------------------------
-@x [30] m.577 l.11202 - Omega
- begin m:=cur_chr; scan_four_bit_int; f:=equiv(m+cur_val);
-@y
- begin m:=cur_chr; scan_big_four_bit_int; f:=equiv(m+cur_val);
-@z
-%---------------------------------------
-@x [30] m.578 l.11223 - Omega
-if n<=0 then cur_val:=fmem_ptr
-else begin if writing and(n<=space_shrink_code)and@|
- (n>=space_code)and(font_glue[f]<>null) then
- begin delete_glue_ref(font_glue[f]);
- font_glue[f]:=null;
- end;
- if n>font_params[f] then
- if f<font_ptr then cur_val:=fmem_ptr
- else @<Increase the number of parameters in the last font@>
- else cur_val:=n+param_base[f];
- end;
-@<Issue an error message if |cur_val=fmem_ptr|@>;
-end;
-@y
-dimen_font:=f;
-if n<=0 then cur_val:=font_file_size(f)
-else begin if writing and(n<=space_shrink_code)and@|
- (n>=space_code)and(font_glue(f)<>null) then
- begin delete_glue_ref(font_glue(f));
- font_glue(f):=null;
- end;
- if n>font_params(f) then
- if f<font_ptr then cur_val:=font_file_size(f)
- else @<Increase the number of parameters in the last font@>
- else cur_val:=n+param_base(f);
- end;
-@<Issue an error message if |cur_val=font_file_size(f)|@>;
-end;
-@z
-%---------------------------------------
-@x [30] m.579 l.11240 - Omega
-@ @<Issue an error message if |cur_val=fmem_ptr|@>=
-if cur_val=fmem_ptr then
- begin print_err("Font "); print_esc(font_id_text(f));
- print(" has only "); print_int(font_params[f]);
- print(" fontdimen parameters");
-@.Font x has only...@>
- help2("To increase the number of font parameters, you must")@/
- ("use \fontdimen immediately after the \font is loaded.");
- error;
- end
-@y
-@ @<Issue an error message if |cur_val=font_file_size(f)|@>=
-if cur_val=font_file_size(f) then
- begin print_err("Font "); print_esc(font_id_text(f));
- print(" has only "); print_int(font_params(f));
- print(" fontdimen parameters");
-@.Font x has only...@>
- help2("To increase the number of font parameters, you must")@/
- ("use \fontdimen immediately after the \font is loaded.");
- error;
- end
-@z
-%---------------------------------------
-@x [30] m.580 l.11252 - font parameters
-@ @<Increase the number of parameters...@>=
-begin repeat if fmem_ptr=font_mem_size then
- overflow("font memory",font_mem_size);
-@:TeX capacity exceeded font memory}{\quad font memory@>
-font_info[fmem_ptr].sc:=0; incr(fmem_ptr); incr(font_params[f]);
-until n=font_params[f];
-cur_val:=fmem_ptr-1; {this equals |param_base[f]+font_params[f]|}
-@y
-@ @<Increase the number of parameters...@>=
-begin if n+font_params(f)>font_file_size(f) then
- begin print_nl("Out of font parameter space"); succumb; end;
-repeat
-font_info(f)(param_base(f)+font_params(f)).sc:=0; incr(font_params(f));
-until n=font_params(f);
-cur_val:=param_base(f)+font_params(f);
-@z
-%---------------------------------------
-@x [30] m.581 l.11268 - font parameters
- slow_print(font_name[f]); print_char("!"); end_diagnostic(false);
-@y
- slow_print(font_name(f)); print_char("!"); end_diagnostic(false);
-@z
-%---------------------------------------
-@x [30] m.582 l.11276 - font parameters
-begin if font_bc[f]<=c then if font_ec[f]>=c then
-@y
-begin if font_bc(f)<=c then if font_ec(f)>=c then
-@z
-%---------------------------------------
-@x [32] m.592 l.11820 - Omega
-@!c,@!f:quarterword; {character and font in current |char_node|}
-@y
-@!c,@!f:quarterword; {character and font in current |char_node|}
-@!oval,@!ocmd:integer; {used by |out_cmd| for generating
- |set|, |fnt| and |fnt_def| commands}
-@z
-%---------------------------------------
-@x [32] m.602 l.11939 - Omega
-@ Here's a procedure that outputs a font definition. Since \TeX82 uses at
-most 256 different fonts per job, |fnt_def1| is always used as the command code.
-@y
-@ Here's a procedure that outputs a font definition. $\Omega$ allows
-more than 256 different fonts per job, so the right font definition
-command must be selected.
-
-@d Incr_Decr(#) == #
-@d Incr(#) == #:=#+Incr_Decr {increase a variable}
-@d Decr(#) == #:=#-Incr_Decr {decrease a variable}
-
-@d dvi_debug_out(#)==begin
-dvi_out(#);
-end
-
-@d out_cmd ==
-begin
-if (oval<@"100)and(oval>=0) then begin
- if (ocmd<>set1)or(oval>127) then
- if (ocmd=fnt1)and(oval<64) then Incr(oval)(fnt_num_0) @+ else dvi_debug_out(ocmd);
- end
-else
- begin if (oval<@"10000)and(oval>=0) then dvi_debug_out(ocmd+1) @+ else @;
- begin if (oval<@"1000000)and(oval>=0) then dvi_debug_out(ocmd+2) @+ else @;
- begin dvi_debug_out(ocmd+3);
- if oval>=0 then dvi_debug_out(oval div @"1000000)
- else begin Incr(oval)(@"40000000); Incr(oval)(@"40000000);
- dvi_debug_out((oval div @"1000000) + 128); oval:=oval mod @"1000000;
- end;
- dvi_debug_out(oval div @"10000); oval:=oval mod @"10000;
- end;
- dvi_debug_out(oval div @"10000); oval:=oval mod @"10000;
- end;
- dvi_debug_out(oval div @"100); oval:=oval mod @"100;
- end;
-dvi_debug_out(oval)
-end
-
-@z
-%---------------------------------------
-@x [32] m.602 l.11944 - Omega
-begin dvi_out(fnt_def1);
-dvi_out(f-font_base-1);@/
-dvi_out(qo(font_check[f].b0));
-dvi_out(qo(font_check[f].b1));
-dvi_out(qo(font_check[f].b2));
-dvi_out(qo(font_check[f].b3));@/
-dvi_four(font_size[f]);
-dvi_four(font_dsize[f]);@/
-dvi_out(length(font_area[f]));
-dvi_out(length(font_name[f]));
-@y
-begin
-oval:=f-font_base-1; ocmd:= fnt_def1; out_cmd;@/
-dvi_out(qo(font_check_0(f)));
-dvi_out(qo(font_check_1(f)));
-dvi_out(qo(font_check_2(f)));
-dvi_out(qo(font_check_3(f)));@/
-dvi_four(font_size(f));
-dvi_four(font_dsize(f));@/
-dvi_out(length(font_area(f)));
-dvi_out(length(font_name(f)));
-@z
-%---------------------------------------
-@x [32] m.603 l.11958 - Omega
-for k:=str_start[font_area[f]] to str_start[font_area[f]+1]-1 do
- dvi_out(so(str_pool[k]));
-for k:=str_start[font_name[f]] to str_start[font_name[f]+1]-1 do
- dvi_out(so(str_pool[k]))
-@y
-for k:=str_start(font_area(f)) to str_start(font_area(f)+1)-1 do
- dvi_out(so(str_pool[k]));
-for k:=str_start(font_name(f)) to str_start(font_name(f)+1)-1 do
- dvi_out(so(str_pool[k]))
-@z
-%---------------------------------------
-@x [32] m.620 l.12334 - Omega
- if c>=qi(128) then dvi_out(set1);
- dvi_out(qo(c));@/
-@y
- oval:=c-font_offset(f); ocmd:=set1; out_cmd;@/
-@z
-%---------------------------------------
-@x [32] m.621 l.12345 - Omega
-begin if not font_used[f] then
- begin dvi_font_def(f); font_used[f]:=true;
- end;
-if f<=64+font_base then dvi_out(f-font_base-1+fnt_num_0)
-else begin dvi_out(fnt1); dvi_out(f-font_base-1);
- end;
-@y
-begin if not font_used(f) then
- begin dvi_font_def(f); font_used(f):=true;
- end;
-oval:=f-font_base-1; ocmd:=fnt1; out_cmd;@/
-@z
-%---------------------------------------
-@x [32] m.643 l.12757 - Omega
- begin if font_used[font_ptr] then dvi_font_def(font_ptr);
-@y
- begin if font_used(font_ptr) then dvi_font_def(font_ptr);
-@z
-%---------------------------------------
-@x [35] m.699 l.13742 - Omega
-@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
-@z
-%---------------------------------------
-@x [35] m.700 l.13762 - Omega
-@d mathsy_end(#)==fam_fnt(2+#)]].sc
-@d mathsy(#)==font_info[#+param_base[mathsy_end
-@y
-@d mathsy_end(#)==sc
-@d mathsy(#)==font_info(fam_fnt(2+cur_size))(#+param_base(fam_fnt(2+cur_size))).mathsy_end
-@z
-%---------------------------------------
-@x [35] m.701 l.13789 - Omega
-@d mathex(#)==font_info[#+param_base[fam_fnt(3+cur_size)]].sc
-@y
-@d mathex(#)==font_info(fam_fnt(3+cur_size))(#+param_base(fam_fnt(3+cur_size))).sc
-@z
-%---------------------------------------
-@x [35] m.703 l.13813 - Omega
-@<Set up the values of |cur_size| and |cur_mu|, based on |cur_style|@>=
-begin if cur_style<script_style then cur_size:=text_size
-else cur_size:=16*((cur_style-text_style) div 2);
-cur_mu:=x_over_n(math_quad(cur_size),18);
-end
-@y
-@<Set up the values of |cur_size| and |cur_mu|, based on |cur_style|@>=
-begin if cur_style<script_style then cur_size:=text_size
-else cur_size:=script_size*((cur_style-text_style) div 2);
-cur_mu:=x_over_n(math_quad(cur_size),18);
-end
-@z
-%---------------------------------------
-@x [35] m.706 l.13855 - Omega
-function var_delimiter(@!d:pointer;@!s:small_number;@!v:scaled):pointer;
-label found,continue;
-var b:pointer; {the box that will be constructed}
-@!f,@!g: internal_font_number; {best-so-far and tentative font codes}
-@!c,@!x,@!y: quarterword; {best-so-far and tentative character codes}
-@!m,@!n: integer; {the number of extensible pieces}
-@!u: scaled; {height-plus-depth of a tentative character}
-@!w: scaled; {largest height-plus-depth so far}
-@!q: four_quarters; {character info}
-@!hd: eight_bits; {height-depth byte}
-@!r: four_quarters; {extensible pieces}
-@!z: small_number; {runs through font family members}
-@y
-function var_delimiter(@!d:pointer;@!s:integer;@!v:scaled):pointer;
-label found,continue;
-var b:pointer; {the box that will be constructed}
-@!f,@!g: internal_font_number; {best-so-far and tentative font codes}
-@!c,@!x,@!y: quarterword; {best-so-far and tentative character codes}
-@!m,@!n: integer; {the number of extensible pieces}
-@!u: scaled; {height-plus-depth of a tentative character}
-@!w: scaled; {largest height-plus-depth so far}
-@!q: four_quarters; {character info}
-@!hd: eight_bits; {height-depth byte}
-@!r: four_quarters; {extensible pieces}
-@!z: integer; {runs through font family members}
-@z
-%---------------------------------------
-@x [35] m.706 l.13881 - Omega
-shift_amount(b):=half(height(b)-depth(b)) - axis_height(s);
-@y
-z:=cur_size; cur_size:=s;
-shift_amount(b):=half(height(b)-depth(b)) - axis_height(cur_size);
-cur_size:=z;
-@z
-%---------------------------------------
-@x [35] m.707 l.13889 - Omega
-@<Look at the variants of |(z,x)|; set |f| and |c|...@>=
-if (z<>0)or(x<>min_quarterword) then
- begin z:=z+s+16;
- repeat z:=z-16; g:=fam_fnt(z);
- if g<>null_font then
- @<Look at the list of characters starting with |x| in
- font |g|; set |f| and |c| whenever
- a better character is found; |goto found| as soon as a
- large enough variant is encountered@>;
- until z<16;
- end
-@y
-@<Look at the variants of |(z,x)|; set |f| and |c|...@>=
-if (z<>0)or(x<>min_quarterword) then
- begin z:=z+s+script_size;
- repeat z:=z-script_size; g:=fam_fnt(z);
- if g<>null_font then
- @<Look at the list of characters starting with |x| in
- font |g|; set |f| and |c| whenever
- a better character is found; |goto found| as soon as a
- large enough variant is encountered@>;
- until z<script_size;
- end
-@z
-%---------------------------------------
-@x [35] m.708 l.13903 - Omega
-if (qo(y)>=font_bc[g])and(qo(y)<=font_ec[g]) then
-@y
-if (qo(y)>=font_bc(g))and(qo(y)<=font_ec(g)) then
-@z
-%---------------------------------------
-@x [35] m.713 l.13974 - Omega
-r:=font_info[exten_base[f]+rem_byte(q)].qqqq;@/
-@<Compute the minimum suitable height, |w|, and the corresponding
- number of extension steps, |n|; also set |width(b)|@>;
-c:=ext_bot(r);
-if c<>min_quarterword then stack_into_box(b,f,c);
-c:=ext_rep(r);
-for m:=1 to n do stack_into_box(b,f,c);
-c:=ext_mid(r);
-if c<>min_quarterword then
- begin stack_into_box(b,f,c); c:=ext_rep(r);
- for m:=1 to n do stack_into_box(b,f,c);
- end;
-c:=ext_top(r);
-@y
-r:=font_info(f)(exten_base(f)+rem_byte(q)).qqqq;@/
-@<Compute the minimum suitable height, |w|, and the corresponding
- number of extension steps, |n|; also set |width(b)|@>;
-c:=ext_bot(f)(r);
-if c<>min_quarterword then stack_into_box(b,f,c);
-c:=ext_rep(f)(r);
-for m:=1 to n do stack_into_box(b,f,c);
-c:=ext_mid(f)(r);
-if c<>min_quarterword then
- begin stack_into_box(b,f,c); c:=ext_rep(f)(r);
- for m:=1 to n do stack_into_box(b,f,c);
- end;
-c:=ext_top(f)(r);
-@z
-%---------------------------------------
-@x [35] m.714 l.13997 - Omega
-c:=ext_rep(r); u:=height_plus_depth(f,c);
-w:=0; q:=char_info(f)(c); width(b):=char_width(f)(q)+char_italic(f)(q);@/
-c:=ext_bot(r);@+if c<>min_quarterword then w:=w+height_plus_depth(f,c);
-c:=ext_mid(r);@+if c<>min_quarterword then w:=w+height_plus_depth(f,c);
-c:=ext_top(r);@+if c<>min_quarterword then w:=w+height_plus_depth(f,c);
-n:=0;
-if u>0 then while w<v do
- begin w:=w+u; incr(n);
- if ext_mid(r)<>min_quarterword then w:=w+u;
- end
-@y
-c:=ext_rep(f)(r); u:=height_plus_depth(f,c);
-w:=0; q:=char_info(f)(c); width(b):=char_width(f)(q)+char_italic(f)(q);@/
-c:=ext_bot(f)(r);@+if c<>min_quarterword then w:=w+height_plus_depth(f,c);
-c:=ext_mid(f)(r);@+if c<>min_quarterword then w:=w+height_plus_depth(f,c);
-c:=ext_top(f)(r);@+if c<>min_quarterword then w:=w+height_plus_depth(f,c);
-n:=0;
-if u>0 then while w<v do
- begin w:=w+u; incr(n);
- if (ext_mid(f)(r))<>min_quarterword then w:=w+u;
- end
-@z
-%---------------------------------------
-@x [36] m.719 l.14107 - Omega
-@!cur_style:small_number; {style code at current place in the list}
-@!cur_size:small_number; {size code corresponding to |cur_style|}
-@y
-@!cur_style:integer; {style code at current place in the list}
-@!cur_size:integer; {size code corresponding to |cur_style|}
-@z
-%---------------------------------------
-@x [36] m.720 l.14122 - Omega
-function clean_box(@!p:pointer;@!s:small_number):pointer;
-label found;
-var q:pointer; {beginning of a list to be boxed}
-@!save_style:small_number; {|cur_style| to be restored}
-@y
-function clean_box(@!p:pointer;@!s:integer):pointer;
-label found;
-var q:pointer; {beginning of a list to be boxed}
-@!save_style:integer; {|cur_style| to be restored}
-@z
-%---------------------------------------
-@x [36] m.722 l.14172 - Omega
-else begin if (qo(cur_c)>=font_bc[cur_f])and(qo(cur_c)<=font_ec[cur_f]) then
-@y
-else begin if (qo(cur_c)>=font_bc(cur_f))and(qo(cur_c)<=font_ec(cur_f)) then
-@z
-%---------------------------------------
-@x [36] m.726 l.14228 - Omega
-procedure mlist_to_hlist;
-label reswitch, check_dimensions, done_with_noad, done_with_node, delete_q,
- done;
-var mlist:pointer; {beginning of the given list}
-@!penalties:boolean; {should penalty nodes be inserted?}
-@!style:small_number; {the given style}
-@!save_style:small_number; {holds |cur_style| during recursion}
-@!q:pointer; {runs through the mlist}
-@!r:pointer; {the most recent noad preceding |q|}
-@!r_type:small_number; {the |type| of noad |r|, or |op_noad| if |r=null|}
-@!t:small_number; {the effective |type| of noad |q| during the second pass}
-@!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
-procedure mlist_to_hlist;
-label reswitch, check_dimensions, done_with_noad, done_with_node, delete_q,
- done;
-var mlist:pointer; {beginning of the given list}
-@!penalties:boolean; {should penalty nodes be inserted?}
-@!style:integer; {the given style}
-@!save_style:integer; {holds |cur_style| during recursion}
-@!q:pointer; {runs through the mlist}
-@!r:pointer; {the most recent noad preceding |q|}
-@!r_type:integer; {the |type| of noad |r|, or |op_noad| if |r=null|}
-@!t:integer; {the effective |type| of noad |q| during the second pass}
-@!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 [36] m.741 l.14495 - Omega
-if math_type(nucleus(q))=math_char then
- begin fetch(nucleus(q));
- if char_tag(cur_i)=lig_tag then
- begin a:=lig_kern_start(cur_f)(cur_i);
- cur_i:=font_info[a].qqqq;
- if skip_byte(cur_i)>stop_flag then
- begin a:=lig_kern_restart(cur_f)(cur_i);
- cur_i:=font_info[a].qqqq;
- end;
- loop@+ begin if qo(next_char(cur_i))=skew_char[cur_f] then
- begin if op_byte(cur_i)>=kern_flag then
- if skip_byte(cur_i)<=stop_flag then s:=char_kern(cur_f)(cur_i);
- goto done1;
- end;
- if skip_byte(cur_i)>=stop_flag then goto done1;
- a:=a+qo(skip_byte(cur_i))+1;
- cur_i:=font_info[a].qqqq;
- end;
- end;
- end;
-done1:
-@y
-if math_type(nucleus(q))=math_char then
- begin fetch(nucleus(q));
- if char_tag(cur_i)=lig_tag then
- begin a:=lig_kern_start(cur_f)(cur_i);
- cur_i:=font_info(cur_f)(a).qqqq;
- if skip_byte(cur_i)>stop_flag then
- begin a:=lig_kern_restart(cur_f)(cur_i);
- cur_i:=font_info(cur_f)(a).qqqq;
- end;
- loop@+ begin if qo((next_char(cur_f)(cur_i)))=skew_char(cur_f) then
- begin if op_byte(cur_i)>=kern_flag then
- if skip_byte(cur_i)<=stop_flag then s:=char_kern(cur_f)(cur_i);
- goto done1;
- end;
- if skip_byte(cur_i)>=stop_flag then goto done1;
- a:=a+qo(skip_byte(cur_i))+1;
- cur_i:=font_info(cur_f)(a).qqqq;
- end;
- end;
- end;
-done1:
-@z
-%---------------------------------------
-@x [36] m.752 l.14722 - Omega
- cur_i:=font_info[a].qqqq;
- if skip_byte(cur_i)>stop_flag then
- begin a:=lig_kern_restart(cur_f)(cur_i);
- cur_i:=font_info[a].qqqq;
- end;
- loop@+ begin @<If instruction |cur_i| is a kern with |cur_c|, attach
- the kern after~|q|; or if it is a ligature with |cur_c|, combine
- noads |q| and~|p| appropriately; then |return| if the cursor has
- moved past a noad, or |goto restart|@>;
- if skip_byte(cur_i)>=stop_flag then return;
- a:=a+qo(skip_byte(cur_i))+1;
- cur_i:=font_info[a].qqqq;
-@y
- cur_i:=font_info(cur_f)(a).qqqq;
- if skip_byte(cur_i)>stop_flag then
- begin a:=lig_kern_restart(cur_f)(cur_i);
- cur_i:=font_info(cur_f)(a).qqqq;
- end;
- loop@+ begin @<If instruction |cur_i| is a kern with |cur_c|, attach
- the kern after~|q|; or if it is a ligature with |cur_c|, combine
- noads |q| and~|p| appropriately; then |return| if the cursor has
- moved past a noad, or |goto restart|@>;
- if skip_byte(cur_i)>=stop_flag then return;
- a:=a+qo(skip_byte(cur_i))+1;
- cur_i:=font_info(cur_f)(a).qqqq;
-@z
-%---------------------------------------
-@x [36] m.753 l.14751 - Omega
-if next_char(cur_i)=cur_c then if skip_byte(cur_i)<=stop_flag then
-@y
-if (next_char(cur_f)(cur_i))=cur_c then if skip_byte(cur_i)<=stop_flag then
-@z
-%---------------------------------------
-@x [36] m.756 l.14833 - Omega
-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}
-begin p:=new_hlist(q);
-if is_char_node(p) then
- begin shift_up:=0; shift_down:=0;
- end
-else begin z:=hpack(p,natural);
- if cur_style<script_style then t:=script_size@+else t:=script_script_size;
- shift_up:=height(z)-sup_drop(t);
- shift_down:=depth(z)+sub_drop(t);
-@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}
-begin p:=new_hlist(q);
-if is_char_node(p) then
- begin shift_up:=0; shift_down:=0;
- end
-else begin z:=hpack(p,natural);
- t:=cur_size;
- if cur_style<script_style
- then cur_size:=script_size@+else cur_size:=script_script_size;
- shift_up:=height(z)-sup_drop(cur_size);
- shift_down:=depth(z)+sub_drop(cur_size);
- cur_size:=t;
-@z
-%---------------------------------------
-@x [36] m.762 l.14967 - Omega
-function make_left_right(@!q:pointer;@!style:small_number;
- @!max_d,@!max_h:scaled):small_number;
-var delta,@!delta1,@!delta2:scaled; {dimensions used in the calculation}
-begin if style<script_style then cur_size:=text_size
-else cur_size:=16*((style-text_style) div 2);
-@y
-function make_left_right(@!q:pointer;@!style:integer;
- @!max_d,@!max_h:scaled):integer;
-var delta,@!delta1,@!delta2:scaled; {dimensions used in the calculation}
-begin if style<script_style then cur_size:=text_size
-else cur_size:=script_size*((style-text_style) div 2);
-@z
-%---------------------------------------
-@x [40] m.896 l.17534 - Omega
-done2: hyf_char:=hyphen_char[hf];
-@y
-done2: hyf_char:=hyphen_char(hf);
-@z
-%---------------------------------------
-@x [40] m.897 l.17555 - Omega
- hyf_bchar:=font_bchar[hf];
-@y
- hyf_bchar:=font_bchar(hf);
-@z
-%---------------------------------------
-@x [40] m.898 l.17578 - Omega
-if odd(subtype(s)) then hyf_bchar:=font_bchar[hf]@+else hyf_bchar:=non_char;
-@y
-if odd(subtype(s)) then hyf_bchar:=font_bchar(hf)@+else hyf_bchar:=non_char;
-@z
-%---------------------------------------
-@x [41] m.909 l.17800 - Omega
- begin k:=bchar_label[hf];
- if k=non_address then goto done@+else q:=font_info[k].qqqq;
- end
-else begin q:=char_info(hf)(cur_l);
- if char_tag(q)<>lig_tag then goto done;
- k:=lig_kern_start(hf)(q); q:=font_info[k].qqqq;
- if skip_byte(q)>stop_flag then
- begin k:=lig_kern_restart(hf)(q); q:=font_info[k].qqqq;
-@y
- begin k:=bchar_label(hf);
- if k=non_address then goto done@+else q:=font_info(hf)(k).qqqq;
- end
-else begin q:=char_info(hf)(cur_l);
- if char_tag(q)<>lig_tag then goto done;
- k:=lig_kern_start(hf)(q); q:=font_info(hf)(k).qqqq;
- if skip_byte(q)>stop_flag then
- begin k:=lig_kern_restart(hf)(q); q:=font_info(hf)(k).qqqq;
-@z
-%---------------------------------------
-@x [41] m.909 l.17811 - Omega
-loop@+begin if next_char(q)=test_char then if skip_byte(q)<=stop_flag then
-@y
-loop@+begin if (next_char(hf)(q))=test_char then if skip_byte(q)<=stop_flag then
-@z
-%---------------------------------------
-@x [41] m.909 l.17829 - Omega
- k:=k+qo(skip_byte(q))+1; q:=font_info[k].qqqq;
-@y
- k:=k+qo(skip_byte(q))+1; q:=font_info(hf)(k).qqqq;
-@z
-%---------------------------------------
-@x [41] m.915 l.17963 - Omega
- begin l:=reconstitute(l,i,font_bchar[hf],non_char)+1;
-@y
- begin l:=reconstitute(l,i,font_bchar(hf),non_char)+1;
-@z
-%---------------------------------------
-@x [41] m.916 l.17980 - Omega
-if bchar_label[hf]<>non_address then {put left boundary at beginning of new line}
-@y
-if bchar_label(hf)<>non_address then {put left boundary at beginning of new line}
-@z
-%---------------------------------------
-@x [46] m.1030 l.19987 - Omega
-hmode+no_boundary: begin get_x_token;
- if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given)or
- (cur_cmd=char_num) then cancel_boundary:=true;
- goto reswitch;
- end;
-@y
-hmode+no_boundary: begin get_x_token;
- if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given)or
- (cur_cmd=char_num) then cancel_boundary:=true;
- goto reswitch;
- end;
-hmode+char_ghost: begin t:=cur_chr; get_x_token;
- if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given)or
- (cur_cmd=char_num) then begin
- if t=0 then new_left_ghost:=true
- else new_right_ghost:=true;
- end;
- goto reswitch;
- end;
-@z
-%---------------------------------------
-@x [46] m.1032 l.20030 - Omega
- |font_bchar[cur_font]|,&otherwise;\cr}$$
-except when |character(lig_stack)=font_false_bchar[cur_font]|.
-@y
- |font_bchar(cur_font)|,&otherwise;\cr}$$
-except when |character(lig_stack)=font_false_bchar(cur_font)|.
-@z
-%---------------------------------------
-@x [46] m.1032
-@!cancel_boundary:boolean; {should the left boundary be ignored?}
-@!ins_disc:boolean; {should we insert a discretionary node?}
-@y
-@!cancel_boundary:boolean; {should the left boundary be ignored?}
-@!left_ghost:boolean; {character left of cursor is a left ghost}
-@!right_ghost:boolean; {character left of cursor is a right ghost}
-@!new_left_ghost:boolean; {character right of cursor is a left ghost}
-@!new_right_ghost:boolean; {character right of cursor is a right ghost}
-@!ins_disc:boolean; {should we insert a discretionary node?}
-@!k_glue:integer;
-@!font_glue_spec:pointer;
-@z
-%---------------------------------------
-@x [46] m.1033
-ligature_present:=false; cancel_boundary:=false; lft_hit:=false; rt_hit:=false;
-@y
-ligature_present:=false; cancel_boundary:=false; lft_hit:=false; rt_hit:=false;
-left_ghost:=false; right_ghost:=false;
-new_left_ghost:=false; new_right_ghost:=false;
-@z
-%---------------------------------------
-@x [46] m.1034 l.20075 - Omega
-adjust_space_factor;@/
-main_f:=cur_font;
-bchar:=font_bchar[main_f]; false_bchar:=font_false_bchar[main_f];
-if mode>0 then if language<>clang then fix_language;
-fast_get_avail(lig_stack); font(lig_stack):=main_f; cur_l:=qi(cur_chr);
-character(lig_stack):=cur_l;@/
-cur_q:=tail;
-if cancel_boundary then
- begin cancel_boundary:=false; main_k:=non_address;
- end
-else main_k:=bchar_label[main_f];
-if main_k=non_address then goto main_loop_move+2; {no left boundary processing}
-cur_r:=cur_l; cur_l:=non_char;
-goto main_lig_loop+1; {begin with cursor after left boundary}
-@y
-adjust_space_factor;@/
-main_f:=cur_font;
-bchar:=font_bchar(main_f); false_bchar:=font_false_bchar(main_f);
-if mode>0 then if language<>clang then fix_language;
-fast_get_avail(lig_stack); font(lig_stack):=main_f; cur_l:=qi(cur_chr);
-character(lig_stack):=cur_l;@/
-cur_q:=tail;
-if cancel_boundary then
- begin cancel_boundary:=false; main_k:=non_address;
- left_ghost:=new_left_ghost; right_ghost:=new_right_ghost;
- new_left_ghost:=false; new_right_ghost:=false;
- end
-else main_k:=bchar_label(main_f);
-if main_k=non_address then goto main_loop_move+2; {no left boundary processing}
-cur_r:=cur_l; cur_l:=non_char;
-if not new_right_ghost then
- goto main_lig_loop+1; {begin with cursor after left boundary}
-@z
-%---------------------------------------
-@x [46] m.1035 l.20122 - Omega
- begin if link(cur_q)>null then
- if character(tail)=qi(hyphen_char[main_f]) then ins_disc:=true;
-@y
- begin if link(cur_q)>null then
- if character(tail)=qi(hyphen_char(main_f)) then ins_disc:=true;
-@z
-%---------------------------------------
-@x [46] m.1036 l.20135 - Omega
-if lig_stack=null then goto reswitch;
-cur_q:=tail; cur_l:=character(lig_stack);
-main_loop_move+1:if not is_char_node(lig_stack) then goto main_loop_move_lig;
-main_loop_move+2:if(cur_chr<font_bc[main_f])or(cur_chr>font_ec[main_f]) then
- begin char_warning(main_f,cur_chr); free_avail(lig_stack); goto big_switch;
- end;
-main_i:=char_info(main_f)(cur_l);
-if not char_exists(main_i) then
- begin char_warning(main_f,cur_chr); free_avail(lig_stack); goto big_switch;
- end;
-link(tail):=lig_stack; tail:=lig_stack {|main_loop_lookahead| is next}
-@y
-if lig_stack=null then goto reswitch;
-cur_q:=tail; cur_l:=character(lig_stack);
-main_loop_move+1:if not is_char_node(lig_stack) then goto main_loop_move_lig;
-main_loop_move+2:
-left_ghost:=new_left_ghost; right_ghost:=new_right_ghost;
-new_left_ghost:=false; new_right_ghost:=false;
-if(cur_chr<font_bc(main_f))or(cur_chr>font_ec(main_f)) then
- begin char_warning(main_f,cur_chr); free_avail(lig_stack); goto big_switch;
- end;
-main_i:=char_info(main_f)(cur_l);
-if not char_exists(main_i) then
- begin char_warning(main_f,cur_chr); free_avail(lig_stack); goto big_switch;
- end;
-if not (left_ghost or right_ghost) then
- tail_append(lig_stack) {|main_loop_lookahead| is next}
-@z
-%---------------------------------------
-@x [46] m.1038 l.20177 - Omega
-if cur_cmd=no_boundary then bchar:=non_char;
-@y
-if cur_cmd=char_ghost then begin t:=cur_chr; get_x_token;
- if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given)or
- (cur_cmd=char_num) then begin
- if t=0 then new_left_ghost:=true
- else new_right_ghost:=true;
- back_input;
- goto main_loop_lookahead;
- end;
- end;
-if cur_cmd=no_boundary then bchar:=non_char;
-@z
-%---------------------------------------
-@x [46] m.1039 l.20193 - Omega
-@<If there's a ligature/kern command...@>=
-if char_tag(main_i)<>lig_tag then goto main_loop_wrapup;
-if cur_r=non_char then goto main_loop_wrapup;
-main_k:=lig_kern_start(main_f)(main_i); main_j:=font_info[main_k].qqqq;
-if skip_byte(main_j)<=stop_flag then goto main_lig_loop+2;
-main_k:=lig_kern_restart(main_f)(main_j);
-main_lig_loop+1:main_j:=font_info[main_k].qqqq;
-main_lig_loop+2:if next_char(main_j)=cur_r then
- if skip_byte(main_j)<=stop_flag then
- @<Do ligature or kern command, returning to |main_lig_loop|
- or |main_loop_wrapup| or |main_loop_move|@>;
-if skip_byte(main_j)=qi(0) then incr(main_k)
-else begin if skip_byte(main_j)>=stop_flag then goto main_loop_wrapup;
- main_k:=main_k+qo(skip_byte(main_j))+1;
- end;
-goto main_lig_loop+1
-@y
-@<If there's a ligature/kern command...@>=
-if new_right_ghost or left_ghost then goto main_loop_wrapup;
-if char_tag(main_i)<>lig_tag then goto main_loop_wrapup;
-main_k:=lig_kern_start(main_f)(main_i);
-main_j:=font_info(main_f)(main_k).qqqq;
-if skip_byte(main_j)<=stop_flag then goto main_lig_loop+2;
-main_k:=lig_kern_restart(main_f)(main_j);
-main_lig_loop+1: main_j:=font_info(main_f)(main_k).qqqq;
-main_lig_loop+2:if top_skip_byte(main_j)=0 then begin
- if next_char(main_f)(main_j)=cur_r then
- if skip_byte(main_j)<=stop_flag then
- @<Do ligature or kern command, returning to |main_lig_loop|
- or |main_loop_wrapup| or |main_loop_move|@>;
- end
- else begin
- if (font_bc(main_f)<=cur_r) then
- if (font_ec(main_f)>=cur_r) then
- if (char_exists(char_info(main_f)(cur_r))) then
- if cur_r<>bchar then
- if next_char(main_f)(main_j)=
- attr_zero_char_ivalue(main_f)(cur_r) then
- @<Do glue or penalty command@>;
- end;
-if skip_byte(main_j)=qi(0) then incr(main_k)
-else begin if skip_byte(main_j)>=stop_flag then goto main_loop_wrapup;
- main_k:=main_k+qo(skip_byte(main_j))+1;
- end;
-goto main_lig_loop+1
-
-@ There are currently three commands. Command 17 will add a penalty
-node between the two characters. Command 18 will add a glue
-node between the two characters. Command 19 will add a penalty node,
-then a glue node between the two characters. Command 20
-will add a kern nore between the two characters.
-
-@<Do glue or penalty command@>=
-begin
-if new_left_ghost or right_ghost then goto main_loop_wrapup;
-case op_byte(main_j) of
- qi(20): begin wrapup(rt_hit);
- tail_append(new_kern(attr_zero_kern(main_f)(rem_byte(main_j))));
- end;
- qi(18): begin wrapup(rt_hit);
- k_glue:=glues_base(main_f) + (rem_byte(main_j)*4);
- font_glue_spec:=new_spec(zero_glue);
- width(font_glue_spec):= font_info(main_f)(k_glue+1).sc;
- stretch(font_glue_spec):=font_info(main_f)(k_glue+2).sc;
- shrink(font_glue_spec):=font_info(main_f)(k_glue+3).sc;
- tail_append(new_glue(font_glue_spec));
- end;
- qi(19): begin wrapup(rt_hit);
- tail_append(new_penalty(attr_zero_penalty(main_f)(rem_top_byte(main_j))));
- k_glue:=glues_base(main_f) + (rem_bot_byte(main_j)*4);
- font_glue_spec:=new_spec(zero_glue);
- width(font_glue_spec):= font_info(main_f)(k_glue+1).sc;
- stretch(font_glue_spec):=font_info(main_f)(k_glue+2).sc;
- shrink(font_glue_spec):=font_info(main_f)(k_glue+3).sc;
- tail_append(new_glue(font_glue_spec));
- end;
- qi(17): begin wrapup(rt_hit);
- tail_append(new_penalty(attr_zero_penalty(main_f)(rem_byte(main_j))));
- end;
- end;
-goto main_loop_move;
-end
-@z
-%---------------------------------------
-@x [46] m.1040 l.20219 - Omega
-begin if op_byte(main_j)>=kern_flag then
- begin wrapup(rt_hit);
- tail_append(new_kern(char_kern(main_f)(main_j))); goto main_loop_move;
- end;
-if cur_l=non_char then lft_hit:=true
-else if lig_stack=null then rt_hit:=true;
-check_interrupt; {allow a way out in case there's an infinite ligature loop}
-case op_byte(main_j) of
-qi(1),qi(5):begin cur_l:=rem_byte(main_j); {\.{=:\?}, \.{=:\?>}}
- main_i:=char_info(main_f)(cur_l); ligature_present:=true;
- end;
-qi(2),qi(6):begin cur_r:=rem_byte(main_j); {\.{\?=:}, \.{\?=:>}}
- if lig_stack=null then {right boundary character is being consumed}
- begin lig_stack:=new_lig_item(cur_r); bchar:=non_char;
- end
- else if is_char_node(lig_stack) then {|link(lig_stack)=null|}
- begin main_p:=lig_stack; lig_stack:=new_lig_item(cur_r);
- lig_ptr(lig_stack):=main_p;
- end
- else character(lig_stack):=cur_r;
- end;
-qi(3):begin cur_r:=rem_byte(main_j); {\.{\?=:\?}}
- main_p:=lig_stack; lig_stack:=new_lig_item(cur_r);
- link(lig_stack):=main_p;
- end;
-qi(7),qi(11):begin wrapup(false); {\.{\?=:\?>}, \.{\?=:\?>>}}
- cur_q:=tail; cur_l:=rem_byte(main_j);
- main_i:=char_info(main_f)(cur_l); ligature_present:=true;
- end;
-othercases begin cur_l:=rem_byte(main_j); ligature_present:=true; {\.{=:}}
- if lig_stack=null then goto main_loop_wrapup
- else goto main_loop_move+1;
- end
-endcases;
-if op_byte(main_j)>qi(4) then
- if op_byte(main_j)<>qi(7) then goto main_loop_wrapup;
-if cur_l<non_char then goto main_lig_loop;
-main_k:=bchar_label[main_f]; goto main_lig_loop+1;
-end
-@y
-begin if op_byte(main_j)>=kern_flag then
- begin wrapup(rt_hit);
- tail_append(new_kern(char_kern(main_f)(main_j)));
- if new_left_ghost or right_ghost then begin
- subtype(tail):=explicit;
- end;
- goto main_loop_move;
- end;
-if new_left_ghost or right_ghost then goto main_loop_wrapup;
-if cur_l=non_char then lft_hit:=true
-else if lig_stack=null then rt_hit:=true;
-check_interrupt; {allow a way out in case there's an infinite ligature loop}
-case op_byte(main_j) of
-qi(1),qi(5):begin cur_l:=rem_char_byte(main_f)(main_j); {\.{=:\?}, \.{=:\?>}}
- main_i:=char_info(main_f)(cur_l); ligature_present:=true;
- end;
-qi(2),qi(6):begin cur_r:=rem_char_byte(main_f)(main_j); {\.{\?=:}, \.{\?=:>}}
- if lig_stack=null then {right boundary character is being consumed}
- begin lig_stack:=new_lig_item(cur_r); bchar:=non_char;
- end
- else if is_char_node(lig_stack) then {|link(lig_stack)=null|}
- begin main_p:=lig_stack; lig_stack:=new_lig_item(cur_r);
- lig_ptr(lig_stack):=main_p;
- end
- else character(lig_stack):=cur_r;
- end;
-qi(3):begin cur_r:=rem_char_byte(main_f)(main_j); {\.{\?=:\?}}
- main_p:=lig_stack; lig_stack:=new_lig_item(cur_r);
- link(lig_stack):=main_p;
- end;
-qi(7),qi(11):begin wrapup(false); {\.{\?=:\?>}, \.{\?=:\?>>}}
- cur_q:=tail; cur_l:=rem_char_byte(main_f)(main_j);
- main_i:=char_info(main_f)(cur_l); ligature_present:=true;
- end;
-othercases begin cur_l:=rem_char_byte(main_f)(main_j);
- ligature_present:=true; {\.{=:}}
- if lig_stack=null then goto main_loop_wrapup
- else goto main_loop_move+1;
- end
-endcases;
-if op_byte(main_j)>qi(4) then
- if op_byte(main_j)<>qi(7) then goto main_loop_wrapup;
-if cur_l<non_char then goto main_lig_loop;
-main_k:=bchar_label(main_f); goto main_lig_loop+1;
-end
-@z
-%---------------------------------------
-@x [46] m.1042 l.20285 - Omega
-begin main_p:=font_glue[cur_font];
-if main_p=null then
- begin main_p:=new_spec(zero_glue); main_k:=param_base[cur_font]+space_code;
- width(main_p):=font_info[main_k].sc; {that's |space(cur_font)|}
- stretch(main_p):=font_info[main_k+1].sc; {and |space_stretch(cur_font)|}
- shrink(main_p):=font_info[main_k+2].sc; {and |space_shrink(cur_font)|}
- font_glue[cur_font]:=main_p;
-@y
-begin main_p:=font_glue(cur_font);
-if main_p=null then
- begin main_p:=new_spec(zero_glue); main_k:=param_base(cur_font)+space_code;
- width(main_p):=font_info(cur_font)(main_k).sc; {that's |space(cur_font)|}
- stretch(main_p):=font_info(cur_font)(main_k+1).sc;
- {and |space_stretch(cur_font)|}
- shrink(main_p):=font_info(cur_font)(main_k+2).sc;
- {and |space_shrink(cur_font)|}
- font_glue(cur_font):=main_p;
-@z
-%---------------------------------------
-@x [47] m.1090
-vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given,
-@y
-vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given,
-vmode+char_ghost,
-@z
-%---------------------------------------
-@x [48] m.1117 l.21343 - Omega
- begin c:=hyphen_char[cur_font];
-@y
- begin c:=hyphen_char(cur_font);
-@z
-%---------------------------------------
-@x [49] m.1195 l.22361 - Omega
-if (font_params[fam_fnt(2+text_size)]<total_mathsy_params)or@|
- (font_params[fam_fnt(2+script_size)]<total_mathsy_params)or@|
- (font_params[fam_fnt(2+script_script_size)]<total_mathsy_params) then
- begin print_err("Math formula deleted: Insufficient symbol fonts");@/
-@.Math formula deleted...@>
- help3("Sorry, but I can't typeset math unless \textfont 2")@/
- ("and \scriptfont 2 and \scriptscriptfont 2 have all")@/
- ("the \fontdimen values needed in math symbol fonts.");
- error; flush_math; danger:=true;
- end
-else if (font_params[fam_fnt(3+text_size)]<total_mathex_params)or@|
- (font_params[fam_fnt(3+script_size)]<total_mathex_params)or@|
- (font_params[fam_fnt(3+script_script_size)]<total_mathex_params) then
-@y
-if (font_params(fam_fnt(2+text_size))<total_mathsy_params)or@|
- (font_params(fam_fnt(2+script_size))<total_mathsy_params)or@|
- (font_params(fam_fnt(2+script_script_size))<total_mathsy_params) then
- begin print_err("Math formula deleted: Insufficient symbol fonts");@/
-@.Math formula deleted...@>
- help3("Sorry, but I can't typeset math unless \textfont 2")@/
- ("and \scriptfont 2 and \scriptscriptfont 2 have all")@/
- ("the \fontdimen values needed in math symbol fonts.");
- error; flush_math; danger:=true;
- end
-else if (font_params(fam_fnt(3+text_size))<total_mathex_params)or@|
- (font_params(fam_fnt(3+script_size))<total_mathex_params)or@|
- (font_params(fam_fnt(3+script_script_size))<total_mathex_params) then
-@z
-%---------------------------------------
-@x [49] m.1253 l.23250 - Omega
-assign_font_dimen: begin find_font_dimen(true); k:=cur_val;
- scan_optional_equals; scan_normal_dimen; font_info[k].sc:=cur_val;
- end;
-assign_font_int: begin n:=cur_chr; scan_font_ident; f:=cur_val;
- scan_optional_equals; scan_int;
- if n=0 then hyphen_char[f]:=cur_val@+else skew_char[f]:=cur_val;
-@y
-assign_font_dimen: begin find_font_dimen(true); k:=cur_val;
- scan_optional_equals; scan_normal_dimen;
- font_info(dimen_font)(k).sc:=cur_val;
- end;
-assign_font_int: begin n:=cur_chr; scan_font_ident; f:=cur_val;
- scan_optional_equals; scan_int;
- if n=0 then hyphen_char(f):=cur_val@+else skew_char(f):=cur_val;
-@z
-%---------------------------------------
-@x [49] m.1257 l.23269 - Omega
-@!flushable_string:str_number; {string not yet referenced}
-begin if job_name=0 then open_log_file;
- {avoid confusing \.{texput} with the font name}
-@.texput@>
-get_r_token; u:=cur_cs;
-if u>=hash_base then t:=text(u)
-@y
-@!offset:integer;
-@!flushable_string:str_number; {string not yet referenced}
-begin if job_name=0 then open_log_file;
- {avoid confusing \.{texput} with the font name}
-@.texput@>
-get_r_token; u:=cur_cs;
-if u>=hash_base then t:=newtext(u)
-@z
-%---------------------------------------
-@x [49] m.1257 l.23290 - Omega
-@<Scan the font size specification@>;
-@<If this font has already been loaded, set |f| to the internal
- font number and |goto common_ending|@>;
-f:=read_font_info(u,cur_name,cur_area,s);
-common_ending: equiv(u):=f; eqtb[font_id_base+f]:=eqtb[u]; font_id_text(f):=t;
-@y
-@<Scan the font size specification@>;
-name_in_progress:=true;
-if scan_keyword("offset") then begin
- scan_int;
- offset:=cur_val;
- if (cur_val<0) then begin
- print_err("Illegal offset has been changed to 0");
- help1("The offset must be bigger than 0."); int_error(cur_val);
- offset:=0;
- end
- end
-else offset:=0;
-name_in_progress:=false;
-@<If this font has already been loaded, set |f| to the internal
- font number and |goto common_ending|@>;
-f:=read_font_info(u,cur_name,cur_area,s,offset);
-common_ending: set_equiv(u,f);
-set_new_eqtb(font_id_base+f,new_eqtb(u)); settext(font_id_base+f,t);
-@z
-%---------------------------------------
-@x [49] m.1260 l.23333 - Omega
-for f:=font_base+1 to font_ptr do
- if str_eq_str(font_name[f],cur_name)and str_eq_str(font_area[f],cur_area) then
- begin if cur_name=flushable_string then
- begin flush_string; cur_name:=font_name[f];
- end;
- if s>0 then
- begin if s=font_size[f] then goto common_ending;
- end
- else if font_size[f]=xn_over_d(font_dsize[f],-s,1000) then
- goto common_ending;
- end
-@y
-for f:=font_base+1 to font_ptr do begin
- if str_eq_str(font_name(f),cur_name) and
- str_eq_str(font_area(f),cur_area) then
- begin if cur_name=flushable_string then
- begin flush_string; cur_name:=font_name(f);
- end;
- if s>0 then
- begin if s=font_size(f) then goto common_ending;
- end
- else if font_size(f)=xn_over_d(font_dsize(f),-s,1000) then
- goto common_ending;
- end
- end
-@z
-%---------------------------------------
-@x [49] m.1261 l.23345 - Omega
-set_font:begin print("select font "); slow_print(font_name[chr_code]);
- if font_size[chr_code]<>font_dsize[chr_code] then
- begin print(" at "); print_scaled(font_size[chr_code]);
-@y
-set_font:begin print("select font "); slow_print(font_name(chr_code));
- if font_size(chr_code)<>font_dsize(chr_code) then
- begin print(" at "); print_scaled(font_size(chr_code));
-@z
-%---------------------------------------
-@x [50] m.1320 l.23983 - Omega
-@ @<Dump the font information@>=
-dump_int(fmem_ptr);
-for k:=0 to fmem_ptr-1 do dump_wd(font_info[k]);
-dump_int(font_ptr);
-for k:=null_font to font_ptr do
- @<Dump the array info for internal font number |k|@>;
-print_ln; print_int(fmem_ptr-7); print(" words of font info for ");
-print_int(font_ptr-font_base); print(" preloaded font");
-if font_ptr<>font_base+1 then print_char("s")
-@y
-@ @<Dump the font information@>=
-dump_int(font_ptr);
-for k:=null_font to font_ptr do
- @<Dump the array info for internal font number |k|@>;
-print_ln; print_int(font_ptr-font_base); print(" preloaded font");
-if font_ptr<>font_base+1 then print_char("s")
-@z
-%---------------------------------------
-@x [50] m.1321 l.23993 - Omega
-@ @<Undump the font information@>=
-undump_size(7)(font_mem_size)('font mem size')(fmem_ptr);
-for k:=0 to fmem_ptr-1 do undump_wd(font_info[k]);
-undump_size(font_base)(font_max)('font max')(font_ptr);
-for k:=null_font to font_ptr do
- @<Undump the array info for internal font number |k|@>
-@y
-@ @<Undump the font information@>=
-undump_size(font_base)(font_max)('font max')(font_ptr);
-for k:=null_font to font_ptr do
- @<Undump the array info for internal font number |k|@>
-@z
-%---------------------------------------
-@x [50] m.1322 l.24000 - Omega
-@ @<Dump the array info for internal font number |k|@>=
-begin dump_qqqq(font_check[k]);
-dump_int(font_size[k]);
-dump_int(font_dsize[k]);
-dump_int(font_params[k]);@/
-dump_int(hyphen_char[k]);
-dump_int(skew_char[k]);@/
-dump_int(font_name[k]);
-dump_int(font_area[k]);@/
-dump_int(font_bc[k]);
-dump_int(font_ec[k]);@/
-dump_int(char_base[k]);
-dump_int(width_base[k]);
-dump_int(height_base[k]);@/
-dump_int(depth_base[k]);
-dump_int(italic_base[k]);
-dump_int(lig_kern_base[k]);@/
-dump_int(kern_base[k]);
-dump_int(exten_base[k]);
-dump_int(param_base[k]);@/
-dump_int(font_glue[k]);@/
-dump_int(bchar_label[k]);
-dump_int(font_bchar[k]);
-dump_int(font_false_bchar[k]);@/
-print_nl("\font"); print_esc(font_id_text(k)); print_char("=");
-print_file_name(font_name[k],font_area[k],"");
-if font_size[k]<>font_dsize[k] then
- begin print(" at "); print_scaled(font_size[k]); print("pt");
- end;
-end
-@y
-@ @<Dump the array info for internal font number |k|@>=
-begin dump_font_table(k,param_base(k)+font_params(k)+1);
-print_nl("\font"); print_esc(font_id_text(k)); print_char("=");
-print_file_name(font_name(k),font_area(k),"");
-if font_size(k)<>font_dsize(k) then
- begin print(" at "); print_scaled(font_size(k)); print("pt");
- end;
-end
-@z
-%---------------------------------------
-@x [50] m.1323 l.24031 - Omega
-@ @<Undump the array info for internal font number |k|@>=
-begin undump_qqqq(font_check[k]);@/
-undump_int(font_size[k]);
-undump_int(font_dsize[k]);
-undump(min_halfword)(max_halfword)(font_params[k]);@/
-undump_int(hyphen_char[k]);
-undump_int(skew_char[k]);@/
-undump(0)(str_ptr)(font_name[k]);
-undump(0)(str_ptr)(font_area[k]);@/
-undump(0)(255)(font_bc[k]);
-undump(0)(255)(font_ec[k]);@/
-undump_int(char_base[k]);
-undump_int(width_base[k]);
-undump_int(height_base[k]);@/
-undump_int(depth_base[k]);
-undump_int(italic_base[k]);
-undump_int(lig_kern_base[k]);@/
-undump_int(kern_base[k]);
-undump_int(exten_base[k]);
-undump_int(param_base[k]);@/
-undump(min_halfword)(lo_mem_max)(font_glue[k]);@/
-undump(0)(fmem_ptr-1)(bchar_label[k]);
-undump(min_quarterword)(non_char)(font_bchar[k]);
-undump(min_quarterword)(non_char)(font_false_bchar[k]);
-end
-@y
-@ @<Undump the array info for internal font number |k|@>=
-begin undump_font_table(k);@/
-end
-@z
-%---------------------------------------
-@x [51] m.1334 l.24277 - Omega
- wlog(' ',fmem_ptr:1,' words of font info for ',
- font_ptr-font_base:1,' font');
- if font_ptr<>font_base+1 then wlog('s');
-@y
- wlog(font_ptr-font_base:1,' font');
- if font_ptr<>font_base+1 then wlog('s');
-@z
-%---------------------------------------
-@x [52] m.1339 l.24429 - Omega
-4: print_word(eqtb[n]);
-5: print_word(font_info[n]);
-@y
-4: print_word(new_eqtb(n));
-5: ;
-@z
-%---------------------------------------
diff --git a/Build/source/texk/web2c/omegadir/omnode.ch b/Build/source/texk/web2c/omegadir/omnode.ch
deleted file mode 100644
index bcbdbf1b9c3..00000000000
--- a/Build/source/texk/web2c/omegadir/omnode.ch
+++ /dev/null
@@ -1,20 +0,0 @@
-% omnode.ch: C++ - friendly Node access functions,
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
diff --git a/Build/source/texk/web2c/omegadir/omocp.ch b/Build/source/texk/web2c/omegadir/omocp.ch
deleted file mode 100644
index a99cab4c100..00000000000
--- a/Build/source/texk/web2c/omegadir/omocp.ch
+++ /dev/null
@@ -1,1068 +0,0 @@
-% omocp.ch: Reading an OCP file
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x [1] m.11 l.412 - Omega OCP
- {string of length |file_name_size|; tells where the string pool appears}
-@.TeXformats@>
-@y
- {string of length |file_name_size|; tells where the string pool appears}
-@.TeXformats@>
-@!ocp_maxint=@"10000000;
-@z
-%---------------------------------------
-@x [1] m.12 l.436 - Omega OCP
-@d hyph_size=307 {another prime; the number of \.{\\hyphenation} exceptions}
-@y
-@d hyph_size=307 {another prime; the number of \.{\\hyphenation} exceptions}
-@d ocp_base=0 {smallest internal ocp number; must not be less
- than |min_quarterword|}
-@d ocp_biggest=65535 {the real biggest ocp}
-@d number_ocps=ocp_biggest-ocp_base+1
-@d ocp_list_base=0 {smallest internal ocp list number; must not be less
- than |min_quarterword|}
-@d ocp_list_biggest=65535 {the real biggest ocp list}
-@d number_ocp_lists=ocp_list_biggest-ocp_list_base+1
-@d max_active_ocp_lists=65536
-@z
-%---------------------------------------
-@x [15] m.209 l.4170 - Omega OCP
-@d max_command=set_interaction
- {the largest command code seen at |big_switch|}
-@y
-@d set_ocp=set_interaction+1
- {Place a translation process in the stream}
-@d def_ocp=set_ocp+1
- {Define and load a translation process}
-@d set_ocp_list=def_ocp+1
- {Place a list of OCPs in the stream}
-@d def_ocp_list=set_ocp_list+1
- {Define a list of OCPs}
-@d clear_ocp_lists=def_ocp_list+1
- {Remove all active OCP lists}
-@d push_ocp_list=clear_ocp_lists+1
- {Add to the sequence of active OCP lists}
-@d pop_ocp_list=push_ocp_list+1
- {Remove from the sequence of active OCP lists}
-@d ocp_list_op=pop_ocp_list+1
- {Operations for building a list of OCPs}
-@d ocp_trace_level=ocp_list_op+1
- {Tracing of active OCPs, either 0 or 1}
-@d max_command=ocp_trace_level
- {the largest command code seen at |big_switch|}
-@z
-%---------------------------------------
-@x [17] m.222 l.4523 - Omega OCP
-@d font_id_base=frozen_null_font-font_base
- {begins table of |number_fonts| permanent font identifiers}
-@d undefined_control_sequence=frozen_null_font+number_fonts
-@y
-@d font_id_base=frozen_null_font-font_base
- {begins table of |number_fonts| permanent font identifiers}
-@d frozen_null_ocp=frozen_null_font+number_fonts
- {permanent `\.{\\nullocp}'}
-@d ocp_id_base=frozen_null_ocp-ocp_base
- {begins table of |number_ocps| permanent ocp identifiers}
-@d frozen_null_ocp_list=frozen_null_ocp+number_ocps
- {permanent `\.{\\nullocplist}'}
-@d ocp_list_id_base=frozen_null_ocp_list-ocp_list_base
- {begins table of |number_ocp_lists| permanent ocp list identifiers}
-@d undefined_control_sequence=frozen_null_ocp_list+number_ocp_lists
-@z
-%---------------------------------------
-@x
-@d toks_base=local_base+10 {table of |number_regs| token list registers}
-@y
-@d ocp_trace_level_base=local_base+10
-@d ocp_active_number_base=ocp_trace_level_base+1
-@d ocp_active_min_ptr_base = ocp_active_number_base+1
-@d ocp_active_max_ptr_base = ocp_active_min_ptr_base+1
-@d ocp_active_base = ocp_active_max_ptr_base+1
-@d toks_base=ocp_active_base+max_active_ocp_lists
- {table of |number_regs| token list registers}
-@z
-%---------------------------------------
-@x [17] m.232 l.4799 - Omega OCP
-@d null_font==font_base
-@y
-@d null_font==font_base
-@d null_ocp==ocp_base
-@d null_ocp_list==ocp_list_base
-@z
-%---------------------------------------
-@x [18] m.256 l.5479 - Omega OCP
-@d font_id_text(#) == newtext(font_id_base+#) {a frozen font identifier's name}
-@y
-@d font_id_text(#) == newtext(font_id_base+#) {a frozen font identifier's name}
-@d ocp_id_text(#) == newtext(ocp_id_base+#) {a frozen ocp identifier's name}
-@d ocp_list_id_text(#) == newtext(ocp_list_id_base+#)
- {a frozen ocp list identifier's name}
-@z
-%---------------------------------------
-@x [26] m.409 l.8254 - Omega OCP
-@t\4\4@>@<Declare procedures that scan font-related stuff@>
-@y
-@t\4\4@>@<Declare procedures that scan font-related stuff@>
-@t\4\4@>@<Declare procedures that scan ocp-related stuff@>
-@z
-%---------------------------------------
-@x [29] m.514 l.9968 - Omega OCP
-|TEX_font_area|. These system area names will, of course, vary from place
-to place.
-@y
-|TEX_font_area|. $\Omega$'s compiled translation process files whose areas
-are not given explicitly are assumed to appear in a standard system area
-called |OMEGA_ocp_area|. These system area names will, of course, vary
-from place to place.
-@z
-%---------------------------------------
-@x [29] m.514 l.9974 - Omega OCP
-@d TEX_font_area=="TeXfonts:"
-@.TeXfonts@>
-@y
-@d TEX_font_area=="TeXfonts:"
-@.TeXfonts@>
-@d OMEGA_ocp_area=="OmegaOCPs:"
-@.OmegaOCPs@>
-@z
-%---------------------------------------
-@x [30] m.582 l.10379 - Omega OCP
-@* \[30] Font metric data.
-@y
-@* \[30] Font metric data and OCPs.
-@z
-%---------------------------------------
-@x [30] m.??? l.10928 - Omega OCP
-@ @<Read and check...@>=
-@y
-@ @<Read and check the font data...@>=
-@z
-%---------------------------------------
-@x [30] m.??? l.11010 - Omega OCP
-@ @<Apologize for not loading...@>=
-@y
-@ @<Apologize for not loading the font...@>=
-@z
-%---------------------------------------
-@x [30] m.582 l.11283 - Omega OCP
-char_warning(f,c);
-new_character:=null;
-exit:end;
-@y
-char_warning(f,c);
-new_character:=null;
-exit:end;
-
-@ Here we begin the \.{OCP} file handling.
-
-@<Glob...@>=
-@!ocp_file:byte_file;
-
-@ So that is what \.{OCP} files hold.
-
-When the user defines \.{\\ocp\\f}, say, \TeX\ assigns an internal number
-to the user's ocp~\.{\\f}. Adding this number to |ocp_id_base| gives the
-|eqtb| location of a ``frozen'' control sequence that will always select
-the ocp.
-
-@<Types...@>=
-@!internal_ocp_number=ocp_base..ocp_biggest;
-@!ocp_index=integer;
-
-@ Here now is the array of ocp arrays.
-
-@<Glob...@>=
-@!ocp_ptr:internal_ocp_number; {largest internal ocp number in use}
-
-@ Besides the arrays just enumerated, we have two directory arrays that
-make it easy to get at the individual entries in |ocp_info|.
-The beginning of the info for the |j|-th state in the |i|-th ocp is at
-location |ocp_info[ocp_state_base[i]+j]| and the |k|-th entry is in
-location |ocp_info[ocp_info[ocp_state_base[i]+j]+k]|.
-(These formulas assume that |min_quarterword| has already been
-added to |i|, |j| and |k|, since $\Omega$ stores its quarterwords that way.)
-
-@d ocp_info_end(#)==#]
-@d ocp_info(#)==ocp_tables[#,ocp_info_end
-@d offset_ocp_file_size=0
-@d offset_ocp_name=1
-@d offset_ocp_area=offset_ocp_name+1
-@d offset_ocp_external=offset_ocp_area+1
-@d offset_ocp_external_arg=offset_ocp_external+1
-@d offset_ocp_input=offset_ocp_external_arg+1
-@d offset_ocp_output=offset_ocp_input+1
-@d offset_ocp_no_tables=offset_ocp_output+1
-@d offset_ocp_no_states=offset_ocp_no_tables+1
-@d offset_ocp_table_base=offset_ocp_no_states+1
-@d offset_ocp_state_base=offset_ocp_table_base+1
-@d offset_ocp_info=offset_ocp_state_base+1
-@d ocp_file_size(#)==ocp_info(#)(offset_ocp_file_size)
-@d ocp_name(#)==ocp_info(#)(offset_ocp_name)
-@d ocp_area(#)==ocp_info(#)(offset_ocp_area)
-@d ocp_external(#)==ocp_info(#)(offset_ocp_external)
-@d ocp_external_arg(#)==ocp_info(#)(offset_ocp_external_arg)
-@d ocp_input(#)==ocp_info(#)(offset_ocp_input)
-@d ocp_output(#)==ocp_info(#)(offset_ocp_output)
-@d ocp_no_tables(#)==ocp_info(#)(offset_ocp_no_tables)
-@d ocp_no_states(#)==ocp_info(#)(offset_ocp_no_states)
-@d ocp_table_base(#)==ocp_info(#)(offset_ocp_table_base)
-@d ocp_state_base(#)==ocp_info(#)(offset_ocp_state_base)
-
-@ $\Omega$ always knows at least one ocp, namely the null ocp.
-It does nothing.
-
-@<Initialize table...@>=
-ocp_ptr:=null_ocp;
-allocate_ocp_table(null_ocp,17);
-ocp_file_size(null_ocp):=17;
-ocp_name(null_ocp):="nullocp"; ocp_area(null_ocp):="";
-ocp_external(null_ocp):=0; ocp_external_arg(null_ocp):=0;
-ocp_input(null_ocp):=1; ocp_output(null_ocp):=1;
-ocp_no_tables(null_ocp):=0;
-ocp_no_states(null_ocp):=1;
-ocp_table_base(f):=offset_ocp_info;
-ocp_state_base(f):=offset_ocp_info;
-ocp_info(null_ocp)(offset_ocp_info) := offset_ocp_info+2; {number of entries}
-ocp_info(null_ocp)(offset_ocp_info+1) := offset_ocp_info+5; {number of entries}
-ocp_info(null_ocp)(offset_ocp_info+2) := 23; {|OTP_LEFT_START|}
-ocp_info(null_ocp)(offset_ocp_info+3) := 3; {|OTP_RIGHT_CHAR|}
-ocp_info(null_ocp)(offset_ocp_info+4) := 36; {|OTP_STOP|}
-
-
-@ @<Put each...@>=
-primitive("nullocp", set_ocp, null_ocp);
-settext(frozen_null_ocp,"nullocp");
-set_new_eqtb(frozen_null_ocp,new_eqtb(cur_val));
-geq_define(ocp_active_number_base, data, 0);
-geq_define(ocp_active_min_ptr_base, data, 0);
-geq_define(ocp_active_max_ptr_base, data, 0);
-
-@ Of course we want to define macros that suppress the detail of how ocp
-information is actually packed, so that we don't have to write things like
-$$\hbox{|ocp_info[k+ocp_info[j+ocp_state_base[i]]]|}$$
-too often. The \.{WEB} definitions here make |ocp_state_entry(i)(j)(k)|
-(|ocp_table_entry(i)(j)(k)|) the |k|-th word in the |j|-th state (table)
-of the |i|-th ocp.
-@^inner loop@>
-
-@d ocp_state_end(#)==#]
-@d ocp_state_one(#)==#*2]+ocp_state_end
-@d ocp_state_entry(#)==ocp_tables[#,ocp_tables[#,ocp_state_base(#)+ocp_state_one
-
-@d ocp_state_no_end(#)==#*2+1]
-@d ocp_state_no(#)==ocp_tables[#,ocp_state_base(#)+ocp_state_no_end
-
-@d ocp_table_end(#)==#]
-@d ocp_table_one(#)==#*2]+ocp_table_end
-@d ocp_table_entry(#)==ocp_tables[#,ocp_tables[#,ocp_table_base(#)+ocp_table_one
-
-@d ocp_table_no_end(#)==#*2+1]
-@d ocp_table_no(#)==ocp_tables[#,ocp_table_base(#)+ocp_table_no_end
-
-@ $\Omega$ checks the information of a \.{OCP} file for validity as the
-file is being read in, so that no further checks will be needed when
-typesetting is going on. The somewhat tedious subroutine that does this
-is called |read_ocp_info|. It has three parameters: the user ocp
-identifier~|u|, and the file name and area strings |nom| and |aire|.
-
-The subroutine opens and closes a global file variable called |ocp_file|.
-It returns the value of the internal ocp number that was just loaded.
-If an error is detected, an error message is issued and no ocp
-information is stored; |null_ocp| is returned in this case.
-
-@d bad_ocp=11 {label for |read_ocp_info|}
-@d ocp_abort(#)==begin print("OCP file error (");
- print(#); print(")"); print_ln; goto bad_ocp end
- {do this when the \.{OCP} data is wrong}
-
-@p function read_ocp_info(@!u:pointer;@!nom,@!aire,@!ext:str_number;
- @!external_ocp:boolean)
- :internal_ocp_number; {input a \.{OCP} file}
-label done,bad_ocp,not_found;
-var
-@!file_opened:boolean; {was |ocp_file| successfully opened?}
-@!f:internal_ocp_number; {the new ocp's number}
-@!g:internal_ocp_number; {the number to return}
-@!ocpword:integer;
-@!ocpmem_run_ptr:ocp_index;
-@!ocp_length,real_ocp_length:integer; {length of ocp file}
-@!previous_address:ocp_index;
-@!temp_ocp_input:integer;
-@!temp_ocp_output:integer;
-@!temp_ocp_no_tables:integer;
-@!temp_ocp_no_states:integer;
-@!i,new_offset,room_for_tables,room_for_states:integer;
-begin g:=null_ocp;@/
-@<Read and check the ocp data; |ocp_abort| if the \.{OCP} file is
- malformed; if there's no room for this ocp, say so and |goto
- done|; otherwise |incr(ocp_ptr)| and |goto done|@>;
-bad_ocp: @<Report that the ocp won't be loaded@>;
-done: if file_opened then b_close(ocp_file);
-ocp_name(f):=nom; ocp_area(f):=aire;
-read_ocp_info:=g;
-end;
-
-@ $\Omega$ does not give precise details about why it
-rejects a particular \.{OCP} file.
-
-@d start_ocp_error_message==print_err("Translation process ");
- sprint_cs(u); print_char("="); print_file_name(nom,aire,"");
-
-@<Report that the ocp won't be loaded@>=
-start_ocp_error_message;
-@.Translation process x=xx not loadable...@>
-if file_opened then print(" not loadable: Bad ocp file")
-else print(" not loadable: ocp file not found");
-help2("I wasn't able to read the data for this ocp,")@/
-("so I will ignore the ocp specification.");
-error
-
-@ @<Read and check the ocp data...@>=
-if external_ocp then
- @<Check |ocp_file| exists@>
-else begin
- @<Open |ocp_file| for input@>;
- @<Read the {\.{OCP}} file@>;
- end;
-
-@ @<Check |ocp_file| exists@>=
-begin
-file_opened:=false;
-pack_file_name(nom,aire,ext);
-b_test_in;
-if name_length=0 then ocp_abort("opening file");
-f :=ocp_ptr+1;
-allocate_ocp_table(f,13);
-ocp_file_size(f):=13;
-for i:=1 to name_length do begin
- append_char(name_of_file[i]);
- end;
-ocp_external(f):=make_string;
-scan_string_argument;
-ocp_external_arg(f):=cur_val;
-ocp_name(f):=""; ocp_area(f):="";
-ocp_state_base(f):=0; ocp_table_base(f):=0;
-ocp_input(f):=1; ocp_output(f):=1;
-ocp_info(f)(offset_ocp_info):=0;
-ocp_ptr:=f; g:=f;
-goto done;
-end
-
-@ @<Open |ocp_file| for input@>=
-file_opened:=false;
-pack_file_name(nom,aire,".ocp");
-if not b_open_in(ocp_file) then ocp_abort("opening file");
-file_opened:=true
-
-@ Note: A malformed \.{OCP} file might be shorter than it claims to be;
-thus |eof(ocp_file)| might be true when |read_ocp_info| refers to
-|ocp_file^| or when it says |get(ocp_file)|. If such circumstances
-cause system error messages, you will have to defeat them somehow,
-for example by defining |ocpget| to be `\ignorespaces|begin get(ocp_file);|
-|if eof(ocp_file) then ocp_abort; end|\unskip'.
-@^system dependencies@>
-
-@d add_to_ocp_info(#)==begin ocp_tables[f,ocpmem_run_ptr]:=#;
- incr(ocpmem_run_ptr);
- end
-@d ocpget==get(ocp_file)
-@d ocpbyte==ocp_file^
-@d ocp_read(#)==begin ocpword:=ocpbyte;
- if ocpword>127 then ocp_abort("checking first octet");
- ocpget; ocpword:=ocpword*@'400+ocpbyte;
- ocpget; ocpword:=ocpword*@'400+ocpbyte;
- ocpget; ocpword:=ocpword*@'400+ocpbyte;
- #:=ocpword;
- end
-@d ocp_read_all(#)==begin ocpget; ocp_read(#); end
-@d ocp_read_info==begin ocp_read_all(ocpword);
- add_to_ocp_info(ocpword);
- end
-
-@ @<Read the {\.{OCP}} file@>=
-begin
-f :=ocp_ptr+1;
-ocpmem_run_ptr:=offset_ocp_info;
-ocp_read(ocp_length);
-real_ocp_length:=ocp_length-7;
-ocp_read_all(temp_ocp_input);
-ocp_read_all(temp_ocp_output);
-ocp_read_all(temp_ocp_no_tables);
-ocp_read_all(room_for_tables);
-ocp_read_all(temp_ocp_no_states);
-ocp_read_all(room_for_states);
-if real_ocp_length <>
- (temp_ocp_no_tables + room_for_tables +
- temp_ocp_no_states + room_for_states) then
- ocp_abort("checking size");
-real_ocp_length:=real_ocp_length+12+
- temp_ocp_no_states+temp_ocp_no_tables;
-allocate_ocp_table(f,real_ocp_length);
-ocp_external(f):=0;
-ocp_external_arg(f):=0;
-ocp_file_size(f):=real_ocp_length;
-ocp_input(f):=temp_ocp_input;
-ocp_output(f):=temp_ocp_output;
-ocp_no_tables(f):=temp_ocp_no_tables;
-ocp_no_states(f):=temp_ocp_no_states;
-ocp_table_base(f):=ocpmem_run_ptr;
-if ocp_no_tables(f) <> 0 then begin
- previous_address:=ocpmem_run_ptr+2*(ocp_no_tables(f));
- for i:=1 to ocp_no_tables(f) do begin
- add_to_ocp_info(previous_address);
- ocp_read_all(new_offset);
- add_to_ocp_info(new_offset);
- previous_address:=previous_address+new_offset;
- end
- end;
-if room_for_tables <> 0 then begin
- for i:=1 to room_for_tables do begin
- ocp_read_info;
- end
- end;
-ocp_state_base(f):=ocpmem_run_ptr;
-if ocp_no_states(f) <> 0 then begin
- previous_address:=ocpmem_run_ptr+2*(ocp_no_states(f));
- for i:=1 to ocp_no_states(f) do begin
- add_to_ocp_info(previous_address);
- ocp_read_all(new_offset);
- add_to_ocp_info(new_offset);
- previous_address:=previous_address+new_offset;
- end;
- end;
-if room_for_states <> 0 then begin
- for i:=1 to room_for_states do begin
- ocp_read_info;
- end
- end;
-ocp_ptr:=f; g:=f;
-goto done;
-end
-
-@ Before we forget about the format of these tables, let's deal with
-$\Omega$'s basic scanning routine related to ocp information.
-
-@<Declare procedures that scan ocp-related stuff@>=
-procedure scan_ocp_ident;
-var f:internal_ocp_number;
-begin @<Get the next non-blank non-call...@>;
-if cur_cmd=set_ocp then f:=cur_chr
-else begin print_err("Missing ocp identifier");
-@.Missing ocp identifier@>
- help2("I was looking for a control sequence whose")@/
- ("current meaning has been defined by \ocp.");
- back_error; f:=null_ocp;
- end;
-cur_val:=f;
-end;
-
-
-@ Here we begin the \.{OCP} list handling.
-
-
-@<Types...@>=
-@!internal_ocp_list_number=ocp_list_base..ocp_list_biggest;
-@!ocp_list_index=integer; {index into |ocp_list_info|}
-@!ocp_lstack_index=integer; {index into |ocp_lstack_info|}
-
-@ Here now is the array of ocp arrays.
-@d ocp_list_lnext(#)==ocp_list_info[#].hh.b0
-@d ocp_list_lstack(#)==ocp_list_info[#].hh.b1
-@d ocp_list_lstack_no(#)==ocp_list_info[#+1].sc
-@d ocp_lstack_lnext(#)==ocp_lstack_info[#].hh.b0
-@d ocp_lstack_ocp(#)==ocp_lstack_info[#].hh.b1
-@d make_null_ocp_list==make_ocp_list_node(0,ocp_maxint,0)
-@d is_null_ocp_list(#)==ocp_list_lstack_no(#)=ocp_maxint
-@d make_null_ocp_lstack==0
-@d is_null_ocp_lstack(#)==#=0
-@d add_before_op=1
-@d add_after_op=2
-@d remove_before_op=3
-@d remove_after_op=4
-
-@<Glob...@>=
-@!ocp_list_info:array[ocp_list_index] of memory_word;
- {the big collection of ocp list data}
-@!ocp_listmem_ptr:ocp_list_index; {first unused word of |ocp_list_info|}
-@!ocp_listmem_run_ptr:ocp_list_index; {temp unused word of |ocp_list_info|}
-@!ocp_lstack_info:array[ocp_lstack_index] of memory_word;
- {the big collection of ocp lstack data}
-@!ocp_lstackmem_ptr:ocp_lstack_index; {first unused word of |ocp_lstack_info|}
-@!ocp_lstackmem_run_ptr:ocp_lstack_index; {temp unused word of |ocp_lstack_info|}
-@!ocp_list_ptr:internal_ocp_list_number; {largest internal ocp list number in use}
-@!ocp_list_list:array[internal_ocp_list_number] of ocp_list_index;
-
-@
-@<Initialize table...@>=
-ocp_listmem_ptr:=2;
-ocp_list_lstack(0):=0;
-ocp_list_lstack_no(0):=ocp_maxint;
-ocp_list_lnext(0):=0;
-ocp_list_ptr:=null_ocp_list;
-ocp_list_list[null_ocp_list]:=0;
-ocp_lstackmem_ptr:=1;
-
-@ $\Omega$ always knows at least one ocp list, namely the null ocp list.
-
-@ @<Put each...@>=
-primitive("nullocplist", set_ocp_list, null_ocp_list);
-settext(frozen_null_ocp_list,"nullocplist");
-set_new_eqtb(frozen_null_ocp_list,new_eqtb(cur_val));
-
-@ @p function make_ocp_list_node(llstack:ocp_lstack_index;
- llstack_no:scaled;
- llnext:ocp_list_index):ocp_list_index;
-var p:ocp_list_index;
-begin
-p:=ocp_listmem_run_ptr;
-ocp_list_lstack(p):=llstack;
-ocp_list_lstack_no(p):=llstack_no;
-ocp_list_lnext(p):=llnext;
-ocp_listmem_run_ptr:=ocp_listmem_run_ptr+2;
-make_ocp_list_node:=p;
-end;
-
-function make_ocp_lstack_node(locp:internal_ocp_number;
- llnext:ocp_lstack_index) : ocp_lstack_index;
-var p:ocp_lstack_index;
-begin
-p:=ocp_lstackmem_run_ptr;
-ocp_lstack_ocp(p):=locp;
-ocp_lstack_lnext(p):=llnext;
-incr(ocp_lstackmem_run_ptr);
-make_ocp_lstack_node:=p;
-end;
-
-function copy_ocp_lstack(llstack:ocp_lstack_index):ocp_lstack_index;
-var result:ocp_lstack_index;
-begin
-if is_null_ocp_lstack(llstack) then
- result:=make_null_ocp_lstack
-else
- result:=make_ocp_lstack_node(ocp_lstack_ocp(llstack),
- copy_ocp_lstack(ocp_lstack_lnext(llstack)));
-copy_ocp_lstack:=result;
-end;
-
-function copy_ocp_list(list:ocp_list_index):ocp_list_index;
-var result:ocp_list_index;
-begin
-if is_null_ocp_list(list) then
- result:=make_null_ocp_list
-else
- result:=make_ocp_list_node(copy_ocp_lstack(ocp_list_lstack(list)),
- ocp_list_lstack_no(list),
- copy_ocp_list(ocp_list_lnext(list)));
-copy_ocp_list:=result;
-end;
-
-function ocp_ensure_lstack(list:ocp_list_index; llstack_no:scaled):
- ocp_list_index;
-var p:ocp_list_index;
- q:ocp_list_index;
-begin
-p:=list;
-if is_null_ocp_list(p) then begin
- ocp_list_lstack_no(p) := llstack_no;
- ocp_list_lnext(p) := make_null_ocp_list;
- end
-else if ocp_list_lstack_no(p) > llstack_no then begin
- ocp_list_lnext(p):=
- make_ocp_list_node(ocp_list_lstack(p),
- ocp_list_lstack_no(p),
- ocp_list_lnext(p));
- ocp_list_lstack(p):=0;
- ocp_list_lstack_no(p):=llstack_no;
- end
-else begin
- q:=ocp_list_lnext(p);
- while (not (is_null_ocp_list(q))) and
- ocp_list_lstack_no(q) <= llstack_no do begin
- p:=q; q:=ocp_list_lnext(q);
- end;
- if ocp_list_lstack_no(p) < llstack_no then begin
- ocp_list_lnext(p) := make_ocp_list_node(0, llstack_no, q);
- p := ocp_list_lnext(p);
- end;
- end;
-ocp_ensure_lstack := p;
-end;
-
-procedure ocp_apply_add(list_entry:ocp_list_index;
- lbefore:boolean;
- locp:internal_ocp_number);
-var p:ocp_lstack_index;
- q:ocp_lstack_index;
-begin
-p := ocp_list_lstack(list_entry);
-if lbefore or (p=0) then begin
- ocp_list_lstack(list_entry) := make_ocp_lstack_node(locp, p);
- end
-else begin
- q:=ocp_lstack_lnext(p);
- while q<>0 do begin
- p:=q; q:=ocp_lstack_lnext(q);
- end;
- ocp_lstack_lnext(p):=make_ocp_lstack_node(locp, null);
- end;
-end;
-
-procedure ocp_apply_remove(list_entry:ocp_list_index;
- lbefore:boolean);
-var p:ocp_lstack_index;
- q:ocp_lstack_index;
- r:ocp_lstack_index;
-begin
-p := ocp_list_lstack(list_entry);
-if p=0 then begin
- print_err("warning: stack entry already empty"); print_ln
- end
-else begin
- q := ocp_lstack_lnext(p);
- if lbefore or (q=0) then
- ocp_list_lstack(list_entry) := q
- else begin
- r:=ocp_lstack_lnext(q);
- while r <> 0 do begin
- p:=q; q:=r; r:=ocp_lstack_lnext(r);
- end;
- ocp_lstack_lnext(p) := null;
- end
- end;
-end;
-
-procedure scan_scaled; {sets |cur_val| to a scaled value}
-label done, done1, done2, found, not_found, attach_fraction;
-var negative:boolean; {should the answer be negated?}
-@!f:integer; {numerator of a fraction whose denominator is $2^{16}$}
-@!k,@!kk:small_number; {number of digits in a decimal fraction}
-@!p,@!q:pointer; {top of decimal digit stack}
-begin f:=0; arith_error:=false; negative:=false;
-@<Get the next non-blank non-sign...@>;
-back_input;
-if cur_tok=continental_point_token then cur_tok:=point_token;
-if cur_tok<>point_token then scan_int
-else begin radix:=10; cur_val:=0;
- end;
-if cur_tok=continental_point_token then cur_tok:=point_token;
-if (radix=10)and(cur_tok=point_token) then @<Scan decimal fraction@>;
-if cur_val<0 then {in this case |f=0|}
- begin negative := not negative; negate(cur_val);
- end;
-if cur_val>@'40000 then arith_error:=true
-else cur_val := cur_val*unity +f;
-if arith_error or(abs(cur_val)>=@'10000000000) then
-begin print_err("Stack number too large");
-end;
-if negative then negate(cur_val);
-end;
-
-procedure print_ocp_lstack(lstack_entry:ocp_lstack_index);
-var p:ocp_lstack_index;
-begin
-p:=lstack_entry;
-while (p<>0) do begin
- print_esc(ocp_id_text(ocp_lstack_ocp(p)));
- p:=ocp_lstack_lnext(p);
- if (p<>0) then print(",");
- end;
-end;
-
-procedure print_ocp_list(list_entry:ocp_list_index);
-var p:ocp_list_index;
-begin
-print("["); p:=list_entry;
-while not (is_null_ocp_list(p)) do begin
- print("(");
- print_scaled(ocp_list_lstack_no(p));
- print(" : ");
- print_ocp_lstack(ocp_list_lstack(p));
- print(")");
- p:=ocp_list_lnext(p);
- if not (is_null_ocp_list(p)) then print(", ");
- end;
-print("]");
-end;
-
-function scan_ocp_list: ocp_list_index;
-var llstack_no:scaled;
- lop:quarterword;
- lstack_entry:ocp_list_index;
- other_list:ocp_list_index;
- ocp_ident:internal_ocp_number;
- result:ocp_list_index;
-begin
-get_r_token;
-if cur_cmd = set_ocp_list then
- result := copy_ocp_list(ocp_list_list[cur_chr])
-else if cur_cmd <> ocp_list_op then begin
- print_err("Bad ocp list specification");
-@.Bad ocp list specification@>
- help1("I was looking for a ocp list specification.");
- result := make_null_ocp_list;
- end
-else begin
- lop:=cur_chr;
- scan_scaled; llstack_no:=cur_val;
- if (llstack_no<=0) or (llstack_no>=ocp_maxint) then begin
- print_err("Stack numbers must be between 0 and 4096 (exclusive)");
- result := make_null_ocp_list;
- end
- else begin
- if lop <= add_after_op then begin
- scan_ocp_ident; ocp_ident:=cur_val;
- end;
- other_list:=scan_ocp_list;
- lstack_entry:=ocp_ensure_lstack(other_list, llstack_no);
- if lop <= add_after_op then
- ocp_apply_add(lstack_entry, (lop=add_before_op), ocp_ident)
- else
- ocp_apply_remove(lstack_entry, (lop=remove_before_op));
- result:=other_list;
- end;
- end;
-scan_ocp_list:=result;
-end;
-
-function read_ocp_list: internal_ocp_list_number;
-var f:internal_ocp_list_number;
- g:internal_ocp_list_number;
-begin
-g:=null_ocp_list;
-f:=ocp_list_ptr+1;
-ocp_listmem_run_ptr:=ocp_listmem_ptr;
-ocp_lstackmem_run_ptr:=ocp_lstackmem_ptr;
-ocp_list_list[f]:=scan_ocp_list;
-ocp_list_ptr:=f;
-ocp_listmem_ptr:=ocp_listmem_run_ptr;
-ocp_lstackmem_ptr:=ocp_lstackmem_run_ptr;
-g:=f;
-read_ocp_list:=g;
-end;
-
-procedure scan_ocp_list_ident;
-var f:internal_ocp_list_number;
-begin @<Get the next non-blank non-call...@>;
-if cur_cmd=set_ocp_list then f:=cur_chr
-else begin print_err("Missing ocp list identifier");
-@.Missing ocp list identifier@>
- help2("I was looking for a control sequence whose")@/
- ("current meaning has been defined by \ocplist.");
- back_error; f:=null_ocp_list;
- end;
-cur_val:=f;
-end;
-
-
-@z
-%---------------------------------------
-@x [49] m.1210 l.22629 - Omega OCP
-any_mode(set_interaction):prefixed_command;
-@y
-any_mode(set_interaction),
-any_mode(set_ocp),
-any_mode(def_ocp),
-any_mode(set_ocp_list),
-any_mode(def_ocp_list),
-any_mode(clear_ocp_lists),
-any_mode(push_ocp_list),
-any_mode(pop_ocp_list),
-any_mode(ocp_list_op),
-any_mode(ocp_trace_level) : prefixed_command;
-@z
-%---------------------------------------
-@x [50] m.1302 l.23682 - Omega OCP
-@<Dump the font information@>;
-@y
-@<Dump the font information@>;
-@<Dump the ocp information@>;
-@<Dump the ocp list information@>;
-@z
-%---------------------------------------
-@x [50] m.1303 l.23711 - Omega OCP
-@<Undump the font information@>;
-@y
-@<Undump the font information@>;
-@<Undump the ocp information@>;
-@<Undump the ocp list information@>;
-@z
-%---------------------------------------
-@x [50] m.1323 l.24907 - Omega OCP
-begin undump_font_table(k);@/
-end
-@y
-begin undump_font_table(k);@/
-end
-
-@ @<Dump the ocp information@>=
-dump_int(ocp_ptr);
-for k:=null_ocp to ocp_ptr do
- @<Dump the array info for internal ocp number |k|@>;
-print_ln; print_int(ocp_ptr-ocp_base); print(" preloaded ocp");
-if ocp_ptr<>ocp_base+1 then print_char("s")
-
-@ @<Undump the ocp information@>=
-undump_size(ocp_base)(ocp_biggest)('ocp max')(ocp_ptr);
-for k:=null_ocp to ocp_ptr do
- @<Undump the array info for internal ocp number |k|@>
-
-@ @<Dump the array info for internal ocp number |k|@>=
-begin dump_ocp_table(k);
-print_nl("\ocp"); print_esc(ocp_id_text(k)); print_char("=");
-print_file_name(ocp_name(k),ocp_area(k),"");
-end
-
-@ @<Undump the array info for internal ocp number |k|@>=
-begin undump_ocp_table(k);
-end
-
-@ @<Dump the ocp list information@>=
-dump_int(ocp_listmem_ptr);
-for k:=0 to ocp_listmem_ptr-1 do dump_wd(ocp_list_info[k]);
-dump_int(ocp_list_ptr);
-for k:=null_ocp_list to ocp_list_ptr do begin
- dump_int(ocp_list_list[k]);
- print_nl("\ocplist");
- print_esc(ocp_list_id_text(k));
- print_char("=");
- print_ocp_list(ocp_list_list[k]);
- end;
-dump_int(ocp_lstackmem_ptr);
-for k:=0 to ocp_lstackmem_ptr-1 do dump_wd(ocp_lstack_info[k])
-
-@ @<Undump the ocp list information@>=
-undump_size(1)(1000000)('ocp list mem size')(ocp_listmem_ptr);
-for k:=0 to ocp_listmem_ptr-1 do undump_wd(ocp_list_info[k]);
-undump_size(ocp_list_base)(ocp_list_biggest)('ocp list max')(ocp_list_ptr);
-for k:=null_ocp_list to ocp_list_ptr do
- undump_int(ocp_list_list[k]);
-undump_size(1)(1000000)('ocp lstack mem size')(ocp_lstackmem_ptr);
-for k:=0 to ocp_lstackmem_ptr-1 do undump_wd(ocp_lstack_info[k])
-
-@z
-%---------------------------------------
-@x
-@* \[54] $\Omega$ changes.
-
-@y
-@* \[54] $\Omega$ changes.
-
-@ Here we do the main work required for reading and interpreting
- $\Omega$ Compiled Translation Processes.
-
-@ @<Put each...@>=
-primitive("ocp", def_ocp, 0);
-primitive("externalocp", def_ocp, 1);
-primitive("ocplist", def_ocp_list, 0);
-primitive("pushocplist", push_ocp_list, 0);
-primitive("popocplist", pop_ocp_list, 0);
-primitive("clearocplists", clear_ocp_lists, 0);
-primitive("addbeforeocplist", ocp_list_op, add_before_op);
-primitive("addafterocplist", ocp_list_op, add_after_op);
-primitive("removebeforeocplist", ocp_list_op, remove_before_op);
-primitive("removeafterocplist", ocp_list_op, remove_after_op);
-primitive("ocptracelevel", ocp_trace_level, 0);
-set_equiv(ocp_trace_level_base,0);
-
-@ @<Cases of |print_cmd_chr|...@>=
-set_ocp: begin
- print("select ocp ");
- slow_print(ocp_name(chr_code));
- end;
-def_ocp: if cur_chr=0 then print_esc("ocp")
- else print_esc("externalocp");
-set_ocp_list: print("select ocp list ");
-def_ocp_list: print_esc("ocplist");
-push_ocp_list: print_esc("pushocplist");
-pop_ocp_list: print_esc("popocplist");
-clear_ocp_lists: print_esc("clearocplists");
-ocp_list_op:
- if chr_code=add_before_op then print_esc("addbeforeocplist")
- else if chr_code=add_after_op then print_esc("addafterocplist")
- else if chr_code=remove_before_op then print_esc("removebeforeocplist")
- else {|chr_code|=|remove_after_op|} print_esc("removeafterocplist");
-ocp_trace_level: print_esc("ocptracelevel");
-
-@ @<Assignments@>=
-set_ocp: begin
- print_err("To use ocps, use the "); print_esc("pushocplist");
- print(" primitive");print_ln
- end;
-def_ocp: new_ocp(a);
-set_ocp_list: begin
- print_err("To use ocp lists, use the ");
- print_esc("pushocplist"); print(" primitive");print_ln
- end;
-def_ocp_list: new_ocp_list(a);
-push_ocp_list: do_push_ocp_list(a);
-pop_ocp_list: do_pop_ocp_list(a);
-clear_ocp_lists: do_clear_ocp_lists(a);
-ocp_list_op: begin
- print_err("To build ocp lists, use the ");
- print_esc("ocplist"); print(" primitive"); print_ln
- end;
-ocp_trace_level: begin scan_optional_equals; scan_int;
- if cur_val<>0 then cur_val:=1;
- define(ocp_trace_level_base, data, cur_val);
- end;
-
-@ @<Declare subprocedures for |prefixed_command|@>=
-procedure new_ocp(@!a:small_number);
-label common_ending;
-var u:pointer; {user's ocp identifier}
-@!f:internal_ocp_number; {runs through existing ocps}
-@!t:str_number; {name for the frozen ocp identifier}
-@!old_setting:0..max_selector; {holds |selector| setting}
-@!flushable_string:str_number; {string not yet referenced}
-@!external_ocp:boolean; {external binary file}
-begin if job_name=0 then open_log_file;
- {avoid confusing \.{texput} with the ocp name}
-@.texput@>
-if cur_chr=1 then external_ocp:=true
-else external_ocp:=false;
-get_r_token; u:=cur_cs;
-if u>=hash_base then t:=newtext(u)
-else if u>=single_base then
- if u=null_cs then t:="OCP"@+else t:=u-single_base
-else begin old_setting:=selector; selector:=new_string;
- print("OCP"); print(u-active_base); selector:=old_setting;
-@.OCPx@>
- str_room(1); t:=make_string;
- end;
-define(u,set_ocp,null_ocp); scan_optional_equals; scan_file_name;
-@<If this ocp has already been loaded, set |f| to the internal
- ocp number and |goto common_ending|@>;
-f:=read_ocp_info(u,cur_name,cur_area,cur_ext,external_ocp);
-common_ending:
-set_equiv(u,f); set_new_eqtb(ocp_id_base+f,new_eqtb(u));
-settext(ocp_id_base+f,t);
-if equiv(ocp_trace_level_base)=1 then begin
- print_nl(""); print_esc("ocp"); print_esc(t); print("="); print(cur_name);
- end;
-end;
-
-@ When the user gives a new identifier to a ocp that was previously loaded,
-the new name becomes the ocp identifier of record. OCP names `\.{xyz}' and
-`\.{XYZ}' are considered to be different.
-
-@<If this ocp has already been loaded...@>=
-flushable_string:=str_ptr-1;
-for f:=ocp_base+1 to ocp_ptr do
- if str_eq_str(ocp_name(f),cur_name)and str_eq_str(ocp_area(f),cur_area) then
- begin
- if cur_name=flushable_string then begin
- flush_string; cur_name:=ocp_name(f);
- end;
- goto common_ending
- end
-
-@ @<Declare subprocedures for |prefixed_command|@>=
-procedure new_ocp_list(@!a:small_number);
-var u:pointer; {user's ocp list identifier}
-@!f:internal_ocp_list_number; {runs through existing ocp lists}
-@!t:str_number; {name for the frozen ocp list identifier}
-@!old_setting:0..max_selector; {holds |selector| setting}
-begin if job_name=0 then open_log_file;
- {avoid confusing \.{texput} with the ocp list name}
-@.texput@>
-get_r_token; u:=cur_cs;
-if u>=hash_base then t:=newtext(u)
-else if u>=single_base then
- if u=null_cs then t:="OCPLIST"@+else t:=u-single_base
-else begin old_setting:=selector; selector:=new_string;
- print("OCPLIST"); print(u-active_base); selector:=old_setting;
-@.OCPx@>
- str_room(1); t:=make_string;
- end;
-define(u,set_ocp_list,null_ocp_list); scan_optional_equals;
-f:=read_ocp_list;
- set_equiv(u,f); set_new_eqtb(ocp_list_id_base+f,new_eqtb(u));
- settext(ocp_list_id_base+f,t);
-if equiv(ocp_trace_level_base)=1 then begin
- print_nl(""); print_esc("ocplist"); print_esc(t); print("=");
- print_ocp_list(ocp_list_list[f]);
- end;
-end;
-
-@ @<Declare subprocedures for |prefixed_command|@>=
-procedure do_push_ocp_list(@!a:small_number);
-var ocp_list_no:halfword;
- old_number:halfword;
- i:integer;
-begin
-scan_ocp_list_ident; ocp_list_no:=cur_val;
-old_number:=equiv(ocp_active_number_base);
-define(ocp_active_base+old_number, data, ocp_list_no);
-define(ocp_active_number_base, data, (old_number+1));
-
-if equiv(ocp_trace_level_base)=1 then begin
- print_nl("New active ocp list: {");
- for i:=old_number downto 0 do begin
- print_esc(ocp_list_id_text(equiv(ocp_active_base+i)));
- print("="); print_ocp_list(ocp_list_list[equiv(ocp_active_base+i)]);
- if i<>0 then print(",");
- end;
- print("}");
- end;
-
-active_compile;
-define(ocp_active_min_ptr_base, data, active_min_ptr);
-define(ocp_active_max_ptr_base, data, active_max_ptr);
-end;
-
-@ @<Declare subprocedures for |prefixed_command|@>=
-procedure do_pop_ocp_list(@!a:small_number);
-var old_number:halfword;
- i:integer;
-begin
-old_number:=equiv(ocp_active_number_base);
-if old_number=0 then begin
- print_err("No active ocp lists to be popped");
- end
-else
- define(ocp_active_number_base, data, (old_number-1));
-
-if equiv(ocp_trace_level_base)=1 then begin
- print_nl("New active ocp list: {");
- for i:=(old_number-2) downto 0 do begin
- print_esc(ocp_list_id_text(equiv(ocp_active_base+i)));
- print("="); print_ocp_list(ocp_list_list[equiv(ocp_active_base+i)]);
- if i<>0 then print(",");
- end;
- print("}");
- end;
-
-active_compile;
-define(ocp_active_min_ptr_base, data, active_min_ptr);
-define(ocp_active_max_ptr_base, data, active_max_ptr);
-end;
-
-@ @<Declare subprocedures for |prefixed_command|@>=
-procedure do_clear_ocp_lists(@!a:small_number);
-begin
-define(ocp_active_number_base, data, 0);
-active_compile;
-define(ocp_active_min_ptr_base, data, active_min_ptr);
-define(ocp_active_max_ptr_base, data, active_max_ptr);
-end;
-
-@z
-%---------------------------------------
diff --git a/Build/source/texk/web2c/omegadir/ompar.ch b/Build/source/texk/web2c/omegadir/ompar.ch
deleted file mode 100644
index 26b421ac2be..00000000000
--- a/Build/source/texk/web2c/omegadir/ompar.ch
+++ /dev/null
@@ -1,1629 +0,0 @@
-% ompar.ch: Local paragraph information
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%-------------------------
-@x [10] m.134
-@d is_char_node(#) == (#>=hi_mem_min)
- {does the argument point to a |char_node|?}
-@d font == type {the font code in a |char_node|}
-@d character == subtype {the character code in a |char_node|}
-@y
-@d is_char_node(#) == (#>=hi_mem_min)
- {does the argument point to a |char_node|?}
-@d font==type {the font code in a |char_node|}
-@d character==subtype {the character code in a |char_node|}
-@d file_col(#)==mem[#-1].hh.b1 {the column in which this character appeared}
-@z
-%-------------------------
-@x [10] m.136
-@p function new_null_box:pointer; {creates a new box node}
-var p:pointer; {the new node}
-begin p:=get_node(box_node_size); type(p):=hlist_node;
-subtype(p):=min_quarterword;
-width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null;
-glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p));
-new_null_box:=p;
-end;
-@y
-@p function new_null_box:pointer; {creates a new box node}
-var p:pointer; {the new node}
-begin p:=get_node(box_node_size); type(p):=hlist_node;
-subtype(p):=min_quarterword;
-width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null;
-glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p));
-@<LOCAL: Add info node pointer@>;
-new_null_box:=p;
-end;
-@z
-%-------------------------
-@x [10] m.139
-@p function new_rule:pointer;
-var p:pointer; {the new node}
-begin p:=get_node(rule_node_size); type(p):=rule_node;
-subtype(p):=0; {the |subtype| is not used}
-width(p):=null_flag; depth(p):=null_flag; height(p):=null_flag;
-new_rule:=p;
-end;
-@y
-@p function new_rule:pointer;
-var p:pointer; {the new node}
-begin p:=get_node(rule_node_size); type(p):=rule_node;
-subtype(p):=0; {the |subtype| is not used}
-width(p):=null_flag; depth(p):=null_flag; height(p):=null_flag;
-@<LOCAL: Add info node pointer@>;
-new_rule:=p;
-end;
-@z
-%-------------------------
-@x [10] m.144
-@p function new_ligature(@!f,@!c:quarterword; @!q:pointer):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=ligature_node;
-font(lig_char(p)):=f; character(lig_char(p)):=c; lig_ptr(p):=q;
-subtype(p):=0; new_ligature:=p;
-end;
-@#
-function new_lig_item(@!c:quarterword):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); character(p):=c; lig_ptr(p):=null;
-new_lig_item:=p;
-end;
-@y
-@d add_file_col(#)==if state>0 then file_col(#):=loc-start
- else file_col(#):=stack_col
-
-@p
-function stack_col:integer;
-label done;
-var i:integer;
- col:integer;
-begin
-col:=0;
-i:=input_ptr;
-while (i>=0) do begin
- if input_stack[i].state_field>0 then begin
- col:=input_stack[i].loc_field-input_stack[i].start_field;
- goto done;
- end;
- decr(i);
- end;
-done: stack_col:=col;
-end;
-
-function new_ligature(@!f,@!c:quarterword; @!q:pointer):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=ligature_node;
-font(lig_char(p)):=f; character(lig_char(p)):=c; lig_ptr(p):=q;
-@<LOCAL: Add info node pointer@>;
-add_file_col(p);
-subtype(p):=0; new_ligature:=p;
-end;
-@#
-function new_lig_item(@!c:quarterword):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); character(p):=c; lig_ptr(p):=null;
-@<LOCAL: Add info node pointer@>;
-new_lig_item:=p;
-end;
-@z
-%-------------------------
-@x [10] m.145
-@p function new_disc:pointer; {creates an empty |disc_node|}
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=disc_node;
-replace_count(p):=0; pre_break(p):=null; post_break(p):=null;
-new_disc:=p;
-end;
-@y
-@p function new_disc:pointer; {creates an empty |disc_node|}
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=disc_node;
-replace_count(p):=0; pre_break(p):=null; post_break(p):=null;
-@<LOCAL: Add info node pointer@>;
-new_disc:=p;
-end;
-@z
-%-------------------------
-@x [10] m.147
-@p function new_math(@!w:scaled;@!s:small_number):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=math_node;
-subtype(p):=s; width(p):=w; new_math:=p;
-end;
-@y
-@p function new_math(@!w:scaled;@!s:small_number):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=math_node;
-@<LOCAL: Add info node pointer@>;
-subtype(p):=s; width(p):=w; new_math:=p;
-end;
-@z
-%-------------------------
-@x [10] m.151
-@p function new_spec(@!p:pointer):pointer; {duplicates a glue specification}
-var q:pointer; {the new spec}
-begin q:=get_node(glue_spec_size);@/
-mem[q]:=mem[p]; glue_ref_count(q):=null;@/
-width(q):=width(p); stretch(q):=stretch(p); shrink(q):=shrink(p);
-new_spec:=q;
-end;
-@y
-@p function new_spec(@!p:pointer):pointer; {duplicates a glue specification}
-var q:pointer; {the new spec}
-begin q:=get_node(glue_spec_size);@/
-mem[q]:=mem[p]; glue_ref_count(q):=null;@/
-width(q):=width(p); stretch(q):=stretch(p); shrink(q):=shrink(p);
-new_spec:=q;
-end;
-@z
-%-------------------------
-@x [10] m.152
-@p function new_param_glue(@!n:small_number):pointer;
-var p:pointer; {the new node}
-@!q:pointer; {the glue specification}
-begin p:=get_node(small_node_size); type(p):=glue_node; subtype(p):=n+1;
-leader_ptr(p):=null;@/
-q:=@<Current |mem| equivalent of glue parameter number |n|@>@t@>;
-glue_ptr(p):=q; incr(glue_ref_count(q));
-new_param_glue:=p;
-end;
-@y
-@p function new_param_glue(@!n:small_number):pointer;
-var p:pointer; {the new node}
-@!q:pointer; {the glue specification}
-begin p:=get_node(small_node_size); type(p):=glue_node; subtype(p):=n+1;
-leader_ptr(p):=null;@/
-q:=@<Current |mem| equivalent of glue parameter number |n|@>@t@>;
-glue_ptr(p):=q; incr(glue_ref_count(q));
-@<LOCAL: Add info node pointer@>;
-new_param_glue:=p;
-end;
-@z
-%-------------------------
-@x [10] m.153
-@p function new_glue(@!q:pointer):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=glue_node; subtype(p):=normal;
-leader_ptr(p):=null; glue_ptr(p):=q; incr(glue_ref_count(q));
-new_glue:=p;
-end;
-@y
-@p function new_glue(@!q:pointer):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=glue_node; subtype(p):=normal;
-leader_ptr(p):=null; glue_ptr(p):=q; incr(glue_ref_count(q));
-@<LOCAL: Add info node pointer@>;
-new_glue:=p;
-end;
-@z
-%-------------------------
-@x [10] m.154
-@p function new_skip_param(@!n:small_number):pointer;
-var p:pointer; {the new node}
-begin temp_ptr:=new_spec(@<Current |mem| equivalent of glue parameter...@>);
-p:=new_glue(temp_ptr); glue_ref_count(temp_ptr):=null; subtype(p):=n+1;
-new_skip_param:=p;
-end;
-@y
-@p function new_skip_param(@!n:small_number):pointer;
-var p:pointer; {the new node}
-begin temp_ptr:=new_spec(@<Current |mem| equivalent of glue parameter...@>);
-p:=new_glue(temp_ptr); glue_ref_count(temp_ptr):=null; subtype(p):=n+1;
-@<LOCAL: Add info node pointer@>;
-new_skip_param:=p;
-end;
-@z
-%-------------------------
-@x [10] m.156
-@p function new_kern(@!w:scaled):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=kern_node;
-subtype(p):=normal;
-width(p):=w;
-new_kern:=p;
-end;
-@y
-@p function new_kern(@!w:scaled):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=kern_node;
-subtype(p):=normal;
-width(p):=w;
-@<LOCAL: Add info node pointer@>;
-new_kern:=p;
-end;
-@z
-%-------------------------
-@x [10] m.158
-@p function new_penalty(@!m:integer):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=penalty_node;
-subtype(p):=0; {the |subtype| is not used}
-penalty(p):=m; new_penalty:=p;
-end;
-@y
-@p function new_penalty(@!m:integer):pointer;
-var p:pointer; {the new node}
-begin p:=get_node(small_node_size); type(p):=penalty_node;
-subtype(p):=0; {the |subtype| is not used}
-@<LOCAL: Add info node pointer@>;
-penalty(p):=m; new_penalty:=p;
-end;
-@z
-%-------------------------
-@x [10] m.160 l.3270
-@ In fact, there are still more types coming. When we get to math formula
-processing we will see that a |style_node| has |type=14|; and a number
-of larger type codes will also be defined, for use in math mode only.
-@y
-@ In fact, there are still more types coming. When we get to math formula
-processing we will see that a |style_node| has |type=14|; and a number
-of larger type codes will also be defined, for use in math mode only.
-
-@d file_node=unset_node+1 {|type| to hold file names and line numbers}
-
-@d file_size=3
-@d file_no(#) == info(#+1) {number of open files}
-@d file_ref_count(#) == link(#+1) {reference count to this node}
-
-@d file_incr_ref_count(#)==begin
- if (#)<>null then incr(file_ref_count(#));
- end
-@d file_decr_ref_count(#)==begin
- if (#)<>null then begin
- decr(file_ref_count(#));
- if file_ref_count(#) = 0 then begin
- free_node(#,file_size+2*file_no(#));
- end;
- end;
- end
-
-@d info_node=unset_node+2 {|type| to hold local information}
-
-@d ptr_info(#) == link(#-1) {pointer to the local info node}
-
-@d info_size=5
-@d info_ref_count(#) == link(#+1) {reference count to this node}
-@d info_pen_inter(#) == info(#+2) {\.{\\localinterlinepenalty}}
-@d info_pen_broken(#) == link(#+2) {\.{\\localbrokenpenalty}}
-@d info_left_box(#) == info(#+3) {\.{\\localleftbox}}
-@d info_right_box(#) == link(#+3) {\.{\\localrightbox}}
-@d info_file(#) == info(#+4) {file names and line numbers}
-
-@d info_incr_ref_count(#)==begin
- if (#)<>null then incr(info_ref_count(#));
- end
-@d info_decr_ref_count(#)==begin
- if (#)<>null then begin
- decr(info_ref_count(#));
- if info_ref_count(#) = 0 then begin
- if info_left_box(#)<>null then
- flush_node_list(info_left_box(#));
- if info_right_box(#)<>null then
- flush_node_list(info_right_box(#));
- if info_file(#)<>null then
- file_decr_ref_count(info_file(#));
- free_node(#,info_size);
- #:=null;
- end;
- end;
- end
-
-@d biggest_ordinary_node=info_node
-
-@z
-%-------------------------
-@x [10] m.162
-@d zero_glue==mem_bot {specification for \.{0pt plus 0pt minus 0pt}}
-@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}}
-@d fill_glue==fil_glue+glue_spec_size {\.{0pt plus 1fill minus 0pt}}
-@d ss_glue==fill_glue+glue_spec_size {\.{0pt plus 1fil minus 1fil}}
-@d fil_neg_glue==ss_glue+glue_spec_size {\.{0pt plus -1fil minus 0pt}}
-@d lo_mem_stat_max==fil_neg_glue+glue_spec_size-1 {largest statically
- allocated word in the variable-size |mem|}
-@#
-@d page_ins_head==mem_top {list of insertion data for current page}
-@d contrib_head==mem_top-1 {vlist of items not yet on current page}
-@d page_head==mem_top-2 {vlist for current page}
-@d temp_head==mem_top-3 {head of a temporary list of some kind}
-@d hold_head==mem_top-4 {head of a temporary list of another kind}
-@d adjust_head==mem_top-5 {head of adjustment list returned by |hpack|}
-@d active==mem_top-7 {head of active list in |line_break|, needs two words}
-@d align_head==mem_top-8 {head of preamble list for alignments}
-@d end_span==mem_top-9 {tail of spanned-width lists}
-@d omit_template==mem_top-10 {a constant token list}
-@d null_list==mem_top-11 {permanently empty list}
-@d lig_trick==mem_top-12 {a ligature masquerading as a |char_node|}
-@d garbage==mem_top-12 {used for scrap information}
-@d backup_head==mem_top-13 {head of token list built by |scan_keyword|}
-@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 zero_glue==mem_bot+1 {specification for \.{0pt plus 0pt minus 0pt}}
-@d sfi_glue==zero_glue+glue_spec_size+1 {\.{0pt plus 1fi minus 0pt}}
-@d fil_glue==sfi_glue+glue_spec_size+1 {\.{0pt plus 1fil minus 0pt}}
-@d fill_glue==fil_glue+glue_spec_size+1 {\.{0pt plus 1fill minus 0pt}}
-@d ss_glue==fill_glue+glue_spec_size+1 {\.{0pt plus 1fil minus 1fil}}
-@d fil_neg_glue==ss_glue+glue_spec_size+1 {\.{0pt plus -1fil minus 0pt}}
-@d lo_mem_stat_max==fil_neg_glue+glue_spec_size+1 {largest statically
- allocated word in the variable-size |mem|}
-@#
-@d page_ins_head==mem_top {list of insertion data for current page}
-@d contrib_head==mem_top-2 {vlist of items not yet on current page}
-@d page_head==mem_top-4 {vlist for current page}
-@d temp_head==mem_top-6 {head of a temporary list of some kind}
-@d hold_head==mem_top-8 {head of a temporary list of another kind}
-@d adjust_head==mem_top-10 {head of adjustment list returned by |hpack|}
-@d active==mem_top-14 {head of active list in |line_break|, needs two words}
-@d align_head==mem_top-16 {head of preamble list for alignments}
-@d end_span==mem_top-18 {tail of spanned-width lists}
-@d omit_template==mem_top-20 {a constant token list}
-@d null_list==mem_top-22 {permanently empty list}
-@d lig_trick==mem_top-24 {a ligature masquerading as a |char_node|}
-@d garbage==mem_top-24 {used for scrap information}
-@d backup_head==mem_top-26 {head of token list built by |scan_keyword|}
-@d hi_mem_stat_min==mem_top-28 {smallest statically allocated word in
- the one-word |mem|}
-@d hi_mem_stat_usage=14 {the number of one-word nodes always present}
-@z
-%-------------------------
-@x [13] m.202
-@p procedure flush_node_list(@!p:pointer); {erase list of nodes starting at |p|}
-label done; {go here when node |p| has been freed}
-var q:pointer; {successor to node |p|}
-begin while p<>null do
-@^inner loop@>
- begin q:=link(p);
-@y
-@p procedure flush_node_list(@!p:pointer); {erase list of nodes starting at |p|}
-label done; {go here when node |p| has been freed}
-var q:pointer; {successor to node |p|}
-begin while p<>null do
-@^inner loop@>
- begin q:=link(p); @<LOCAL: Remove info node pointer@>;
-@z
-%-------------------------
-@x [13] m.202
- othercases confusion("flushing")
-@:this can't happen flushing}{\quad flushing@>
- endcases;@/
-@y
- info_node: begin
- @<LOCAL: Delete info node@>;
- goto done; end; {do not delete node at this time}
- othercases confusion("flushing")
-@:this can't happen flushing}{\quad flushing@>
- endcases;@/
-@z
-%-------------------------
-@x [15] m.205
-@ @<Make a copy of node |p|...@>=
-words:=1; {this setting occurs in more branches than any other}
-if is_char_node(p) then r:=get_avail
-else @<Case statement to copy different types and set |words| to the number
- of initial words not yet copied@>;
-while words>0 do
- begin decr(words); mem[r+words]:=mem[p+words];
- end
-@y
-@ @<Make a copy of node |p|...@>=
-words:=1; {this setting occurs in more branches than any other}
-if is_char_node(p) then r:=get_avail
-else @<Case statement to copy different types and set |words| to the number
- of initial words not yet copied@>;
-@<LOCAL: Copy info node pointer@>;
-file_col(r):=file_col(p);
-while words>0 do
- begin decr(words); mem[r+words]:=mem[p+words];
- end
-@z
-%-------------------------
-@x [15] m.208 l.4170
-@d min_internal=char_ghost+1 {the smallest code that can follow \.{\\the}}
-@y
-@d assign_local_box=char_ghost+1
- {box for guillemets \.{\\localleftbox} or \.{\\localrightbox}}
-@d min_internal=assign_local_box+1 {the smallest code that can follow \.{\\the}}
-@z
-%-------------------------
-@x [17] m.230 l.4860
-@d box_base=toks_base+number_regs {table of |number_regs| box registers}
-@y
-@d local_left_box_base=toks_base+number_regs
-@d local_right_box_base=local_left_box_base+1
-@d local_par_info_base=local_right_box_base+1
-@d box_base=local_par_info_base+1 {table of |number_regs| box registers}
-@z
-%-------------------------
-@x [17] m.230 l.4888
-@d box(#)==equiv(box_base+#)
-@y
-@d local_left_box==equiv(local_left_box_base)
-@d local_right_box==equiv(local_right_box_base)
-@d local_par_info==equiv(local_par_info_base)
-@d box(#)==equiv(box_base+#)
-@z
-%-------------------------
-@x [17] m.236 l.4954
-@d int_pars=55 {total number of integer parameters}
-@y
-@d local_inter_line_penalty_code=55 {local \.{\\interlinepenalty}}
-@d local_broken_penalty_code=56 {local \.{\\brokenpenalty}}
-@d char_specials_code=57
- {number of characters between column marker specials in dvi file}
-@d int_pars=58 {total number of integer parameters}
-@z
-%-------------------------
-@x [17] m.236 l.5011
-@d new_line_char==int_par(new_line_char_code)
-@y
-@d new_line_char==int_par(new_line_char_code)
-@d local_inter_line_penalty==int_par(local_inter_line_penalty_code)
-@d local_broken_penalty==int_par(local_broken_penalty_code)
-@d char_specials==int_par(char_specials_code)
-@z
-%-------------------------
-@x [19] m.269 l.5860
-@d max_group_code=16
-@y
-@d local_box_group=17 {code for `\.{\\localleftbox...\\localrightbox}'}
-@d max_group_code=17
-@z
-%-------------------------
-@x [22] m.304
-@!line : integer; {current line number in the current source file}
-@!line_stack : array[1..max_in_open] of integer;
-@y
-@!line : integer; {current line number in the current source file}
-@!line_stack : array[1..max_in_open] of integer;
-@!line_numbers : array[1..max_in_open] of integer;
-@!file_names : array[1..max_in_open] of integer;
-@!no_of_files : integer; {number of currently open files}
-
-@ @<Set init...@>=
-no_of_files:=0;
-@z
-%-------------------------
-@x [23] m.327
-@p procedure begin_file_reading;
-begin if in_open=max_in_open then overflow("text input levels",max_in_open);
-@:TeX capacity exceeded text input levels}{\quad text input levels@>
-if first=buf_size then overflow("buffer size",buf_size);
-@:TeX capacity exceeded buffer size}{\quad buffer size@>
-incr(in_open); push_input; index:=in_open;
-line_stack[index]:=line; start:=first; state:=mid_line;
-name:=0; {|terminal_input| is now |true|}
-end;
-@y
-@p procedure begin_file_reading;
-begin if in_open=max_in_open then overflow("text input levels",max_in_open);
-@:TeX capacity exceeded text input levels}{\quad text input levels@>
-if first=buf_size then overflow("buffer size",buf_size);
-@:TeX capacity exceeded buffer size}{\quad buffer size@>
-incr(in_open); push_input; index:=in_open;
-line_stack[index]:=line; start:=first; state:=mid_line;
-name:=0; {|terminal_input| is now |true|}
-@<LOCAL: Change file node@>;
-end;
-@z
-%-------------------------
-@x [24] m.362
-@ @<Read next line of file into |buffer|, or
- |goto restart| if the file has ended@>=
-begin incr(line); first:=start;
-if not force_eof then
- begin if input_ln(cur_file,true) then {not end of file}
- firm_up_the_line {this sets |limit|}
- else force_eof:=true;
- end;
-if force_eof then
- begin print_char(")"); decr(open_parens);
- update_terminal; {show user that file has been read}
- force_eof:=false;
- end_file_reading; {resume previous level}
- check_outer_validity; goto restart;
- end;
-if end_line_char_inactive then decr(limit)
-else buffer[limit]:=end_line_char;
-first:=limit+1; loc:=start; {ready to read}
-end
-@y
-@ @<Read next line of file into |buffer|, or
- |goto restart| if the file has ended@>=
-begin incr(line); first:=start;
-if not force_eof then
- begin if input_ln(cur_file,true) then {not end of file}
- firm_up_the_line {this sets |limit|}
- else force_eof:=true;
- end;
-if force_eof then
- begin print_char(")"); decr(open_parens);
- update_terminal; {show user that file has been read}
- force_eof:=false;
- end_file_reading; {resume previous level}
- check_outer_validity;
- if no_of_files>0 then decr(no_of_files);
- @<LOCAL: Change file node@>;
- goto restart;
- end;
-if end_line_char_inactive then decr(limit)
-else buffer[limit]:=end_line_char;
-first:=limit+1; loc:=start; {ready to read}
-line_numbers[no_of_files]:=line;
-@<LOCAL: Change file node@>;
-end
-@z
-%-------------------------
-@x [29] m.537
-done: name:=a_make_name_string(cur_file);
-if job_name=0 then
- begin job_name:=cur_name; open_log_file;
- end; {|open_log_file| doesn't |show_context|, so |limit|
- and |loc| needn't be set to meaningful values yet}
-if term_offset+length(name)>max_print_line-2 then print_ln
-else if (term_offset>0)or(file_offset>0) then print_char(" ");
-print_char("("); incr(open_parens); slow_print(name); update_terminal;
-state:=new_line;
-if name=str_ptr-1 then {we can conserve string pool space now}
- begin flush_string; name:=cur_name;
- end;
-@<Read the first line of the new file@>;
-@y
-done: name:=a_make_name_string(cur_file);
-if job_name=0 then
- begin job_name:=cur_name; open_log_file;
- end; {|open_log_file| doesn't |show_context|, so |limit|
- and |loc| needn't be set to meaningful values yet}
-if term_offset+length(name)>max_print_line-2 then print_ln
-else if (term_offset>0)or(file_offset>0) then print_char(" ");
-print_char("("); incr(open_parens); slow_print(name); update_terminal;
-state:=new_line;
-if name=str_ptr-1 then {we can conserve string pool space now}
- begin flush_string; name:=cur_name;
- end;
-incr(no_of_files);
-file_names[no_of_files]:=name; {keep track of file names for output specials}
-line_numbers[no_of_files]:=0; {keep track of file names for output specials}
-@<Read the first line of the new file@>;
-@z
-%-------------------------
-@x [29] m.538
-@<Read the first line...@>=
-begin line:=1;
-if input_ln(cur_file,false) then do_nothing;
-firm_up_the_line;
-if end_line_char_inactive then decr(limit)
-else buffer[limit]:=end_line_char;
-first:=limit+1; loc:=start;
-end
-@y
-@<Read the first line...@>=
-begin line:=1;
-if input_ln(cur_file,false) then do_nothing;
-firm_up_the_line;
-if end_line_char_inactive then decr(limit)
-else buffer[limit]:=end_line_char;
-first:=limit+1; loc:=start;
-line_numbers[no_of_files]:=1; {keep track of file names for output specials}
-@<LOCAL: Change file node@>;
-end
-@z
-%-------------------------
-@x [30] m.582
-@p function new_character(@!f:internal_font_number;@!c:eight_bits):pointer;
-label exit;
-var p:pointer; {newly allocated node}
-begin if font_bc(f)<=c then if font_ec(f)>=c then
- if char_exists(char_info(f)(qi(c))) then
- begin p:=get_avail; font(p):=f; character(p):=qi(c);
- new_character:=p; return;
- end;
-char_warning(f,c);
-new_character:=null;
-exit:end;
-@y
-@p function new_character(@!f:internal_font_number;@!c:eight_bits):pointer;
-label exit;
-var p:pointer; {newly allocated node}
-begin if font_bc(f)<=c then if font_ec(f)>=c then
- if char_exists(char_info(f)(qi(c))) then
- begin p:=get_avail; font(p):=f; character(p):=qi(c);
- ptr_info(p):=local_par_info; info_incr_ref_count(local_par_info);
- new_character:=p; return;
- end;
-char_warning(f,c);
-new_character:=null;
-exit:end;
-@z
-%-------------------------
-@x [32] m.617
-@ @<Initialize variables as |ship_out| begins@>=
-dvi_h:=0; dvi_v:=0; cur_h:=h_offset; dvi_f:=null_font;
-ensure_dvi_open;
-if total_pages=0 then
- begin dvi_out(pre); dvi_out(id_byte); {output the preamble}
-@^preamble of \.{DVI} file@>
-@y
-@ @<Initialize variables as |ship_out| begins@>=
-dvi_h:=0; dvi_v:=0; cur_h:=h_offset; dvi_f:=null_font;
-ensure_dvi_open;
-if total_pages=0 then
- begin dvi_out(pre); dvi_out(id_byte); {output the preamble}
-@^preamble of \.{DVI} file@>
- ptr_info(lig_trick):=null;
-@z
-%-------------------------
-@x [32] m.619
-@!p:pointer; {current position in the hlist}
-@y
-@!p:pointer; {current position in the hlist}
-@!fff:pointer; {current file position}
-@!ffi:integer; {for iterations}
-@!g:integer; {new string}
-@!newk:integer;
-@!should_create_special:boolean;
-@!chars_since_last_special:integer;
-@z
-%-------------------------
-@x [32] m.619
-while p<>null do @<Output node |p| for |hlist_out| and move to the next node,
- maintaining the condition |cur_v=base_line|@>;
-@y
-if char_specials>0 then begin
- should_create_special:=true;
- chars_since_last_special:=char_specials;
- end
-else begin
- should_create_special:=false;
- chars_since_last_special:=-1000000;
- end;
-while p<>null do @<Output node |p| for |hlist_out| and move to the next node,
- maintaining the condition |cur_v=base_line|@>;
-@z
-%-------------------------
-@x [32] m.620
-@<Output node |p| for |hlist_out|...@>=
-reswitch: if is_char_node(p) then
- begin synch_h; synch_v;
- repeat f:=font(p); c:=character(p);
-@y
-@<Output node |p| for |hlist_out|...@>=
-reswitch: if is_char_node(p) then
- begin synch_h; synch_v;
- if should_create_special then begin
- should_create_special:=false;
- if chars_since_last_special>=char_specials then
- if ptr_info(p)<>null then
- if info_file(ptr_info(p))<>null then begin
- @<LOCAL: Create special node@>;
- chars_since_last_special:=0;
- end;
- end;
- repeat f:=font(p); c:=character(p);
- incr(chars_since_last_special);
-@z
-%-------------------------
-@x [32] m.622
-move_past: cur_h:=cur_h+rule_wd;
-next_p:p:=link(p);
-end
-@y
-move_past: cur_h:=cur_h+rule_wd;
-next_p:
-if type(p)<>kern_node then should_create_special:=true;
-p:=link(p);
-end
-@z
-%-------------------------
-@x [33] m.645
-@p procedure scan_spec(@!c:group_code;@!three_codes:boolean);
-@y
-@p
-@<LOCAL: Declare |make_info_node|@>;
-procedure scan_spec(@!c:group_code;@!three_codes:boolean);
-@z
-%-------------------------
-@x [34] m.652
-@ @<Make node |p| look like a |char_node| and |goto reswitch|@>=
-begin mem[lig_trick]:=mem[lig_char(p)]; link(lig_trick):=link(p);
-p:=lig_trick; goto reswitch;
-end
-@y
-@ @<Make node |p| look like a |char_node| and |goto reswitch|@>=
-begin
-info_decr_ref_count(ptr_info(lig_trick));
-mem[lig_trick]:=mem[lig_char(p)];
-ptr_info(lig_trick):=ptr_info(p);
-info_incr_ref_count(ptr_info(p));
-file_col(lig_trick):=file_col(p);
-link(lig_trick):=link(p);
-p:=lig_trick; goto reswitch;
-end
-@z
-%-------------------------
-@x [34] m.682 l.13395 - Omega
-@d ord_noad=unset_node+3 {|type| of a noad classified Ord}
-@y
-@d ord_noad=biggest_ordinary_node+3 {|type| of a noad classified Ord}
-@z
-%-------------------------
-@x [34] m.686
-@p function new_noad:pointer;
-var p:pointer;
-begin p:=get_node(noad_size);
-type(p):=ord_noad; subtype(p):=normal;
-mem[nucleus(p)].hh:=empty_field;
-mem[subscr(p)].hh:=empty_field;
-mem[supscr(p)].hh:=empty_field;
-new_noad:=p;
-end;
-@y
-@p function new_noad:pointer;
-var p:pointer;
-begin p:=get_node(noad_size);
-type(p):=ord_noad; subtype(p):=normal;
-mem[nucleus(p)].hh:=empty_field;
-mem[subscr(p)].hh:=empty_field;
-mem[supscr(p)].hh:=empty_field;
-@<LOCAL: Add info node pointer@>;
-add_file_col(p);
-new_noad:=p;
-end;
-@z
-%---------------------------------------
-@x [34] m.688
-@d style_node=unset_node+1 {|type| of a style node}
-@y
-@d style_node=biggest_ordinary_node+1 {|type| of a style node}
-@z
-%---------------------------------------
-@x [34] m.688
-@p function new_style(@!s:small_number):pointer; {create a style node}
-var p:pointer; {the new node}
-begin p:=get_node(style_node_size); type(p):=style_node;
-subtype(p):=s; width(p):=0; depth(p):=0; {the |width| and |depth| are not used}
-new_style:=p;
-end;
-@y
-@p function new_style(@!s:small_number):pointer; {create a style node}
-var p:pointer; {the new node}
-begin p:=get_node(style_node_size); type(p):=style_node;
-subtype(p):=s; width(p):=0; depth(p):=0; {the |width| and |depth| are not used}
-@<LOCAL: Add info node pointer@>;
-add_file_col(p);
-new_style:=p;
-end;
-@z
-%---------------------------------------
-@x [34] m.689
-@d choice_node=unset_node+2 {|type| of a choice node}
-@y
-@d choice_node=biggest_ordinary_node+2 {|type| of a choice node}
-@z
-%---------------------------------------
-@x [34] m.689
-@p function new_choice:pointer; {create a choice node}
-var p:pointer; {the new node}
-begin p:=get_node(style_node_size); type(p):=choice_node;
-subtype(p):=0; {the |subtype| is not used}
-display_mlist(p):=null; text_mlist(p):=null; script_mlist(p):=null;
-script_script_mlist(p):=null;
-new_choice:=p;
-end;
-@y
-@p function new_choice:pointer; {create a choice node}
-var p:pointer; {the new node}
-begin p:=get_node(style_node_size); type(p):=choice_node;
-subtype(p):=0; {the |subtype| is not used}
-display_mlist(p):=null; text_mlist(p):=null; script_mlist(p):=null;
-script_script_mlist(p):=null;
-@<LOCAL: Add info node pointer@>;
-add_file_col(p);
-new_choice:=p;
-end;
-@z
-%---------------------------------------
-@x [36] m.755
-@ @<Create a character node |p| for |nucleus(q)|...@>=
-begin fetch(nucleus(q));
-if char_exists(cur_i) then
- begin delta:=char_italic(cur_f)(cur_i); p:=new_character(cur_f,qo(cur_c));
- if (math_type(nucleus(q))=math_text_char)and(space(cur_f)<>0) then
- delta:=0; {no italic correction in mid-word of text font}
- if (math_type(subscr(q))=empty)and(delta<>0) then
- begin link(p):=new_kern(delta); delta:=0;
- end;
- end
-else p:=null;
-end
-@y
-@ @<Create a character node |p| for |nucleus(q)|...@>=
-begin fetch(nucleus(q));
-if char_exists(cur_i) then
- begin delta:=char_italic(cur_f)(cur_i); p:=new_character(cur_f,qo(cur_c));
- info_decr_ref_count(ptr_info(p));
- ptr_info(p):=ptr_info(q);
- info_incr_ref_count(ptr_info(q));
- file_col(p):=file_col(q);
- if (math_type(nucleus(q))=math_text_char)and(space(cur_f)<>0) then
- delta:=0; {no italic correction in mid-word of text font}
- if (math_type(subscr(q))=empty)and(delta<>0) then
- begin link(p):=new_kern(delta); delta:=0;
- end;
- end
-else p:=null;
-end
-@z
-%---------------------------------------
-@x [38] m.814 l.15994
-@!just_box:pointer; {the |hlist_node| for the last line of the new paragraph}
-@y
-@!just_box:pointer; {the |hlist_node| for the last line of the new paragraph}
-@!init_local_par_info:pointer;
-@!last_local_par_info:pointer;
-@!current_file_node:pointer;
-
-@ @<Set initial...@>=
-init_local_par_info:=null;
-last_local_par_info:=null;
-current_file_node:=null;
-
-@z
-%-------------------------
-@x [38] m.821 l.16110
-@ The passive node for a given breakpoint contains only four fields:
-
-\yskip\hang|link| points to the passive node created just before this one,
-if any, otherwise it is |null|.
-
-\yskip\hang|cur_break| points to the position of this breakpoint in the
-horizontal list for the paragraph being broken.
-
-\yskip\hang|prev_break| points to the passive node that should precede this
-one in an optimal path to this breakpoint.
-
-\yskip\hang|serial| is equal to |n| if this passive node is the |n|th
-one created during the current pass. (This field is used only when
-printing out detailed statistics about the line-breaking calculations.)
-
-\yskip\noindent
-There is a global variable called |passive| that points to the most
-recently created passive node. Another global variable, |printed_node|,
-is used to help print out the paragraph when detailed information about
-the line-breaking computation is being displayed.
-
-@d passive_node_size=2 {number of words in passive nodes}
-@d cur_break==rlink {in passive node, points to position of this breakpoint}
-@d prev_break==llink {points to passive node that should precede this one}
-@d serial==info {serial number for symbolic identification}
-@y
-@ The passive node for a given breakpoint contains EIGHT fields:
-
-\yskip\hang|link| points to the passive node created just before this one,
-if any, otherwise it is |null|.
-
-\yskip\hang|cur_break| points to the position of this breakpoint in the
-horizontal list for the paragraph being broken.
-
-\yskip\hang|prev_break| points to the passive node that should precede this
-one in an optimal path to this breakpoint.
-
-\yskip\hang|serial| is equal to |n| if this passive node is the |n|th
-one created during the current pass. (This field is used only when
-printing out detailed statistics about the line-breaking calculations.)
-
-\yskip\hang|passive_pen_inter| holds the current \.{\\localinterlinepenalty}
-
-\yskip\hang|passive_pen_broken| holds the current \.{\\localbrokenpenalty}
-
-\yskip\noindent
-There is a global variable called |passive| that points to the most
-recently created passive node. Another global variable, |printed_node|,
-is used to help print out the paragraph when detailed information about
-the line-breaking computation is being displayed.
-
-@d passive_node_size=4 {number of words in passive nodes}
-@d cur_break==rlink {in passive node, points to position of this breakpoint}
-@d prev_break==llink {points to passive node that should precede this one}
-@d serial==info {serial number for symbolic identification}
-@d passive_local(#)==mem[#+2].int
-@d passive_prev_local(#)==mem[#+3].int
-@z
-%-------------------------
-@x [38] m.844 l.16595
-@<Insert a new active node from |best_place[fit_class]| to |cur_p|@>=
-begin q:=get_node(passive_node_size);
-link(q):=passive; passive:=q; cur_break(q):=cur_p;
-@!stat incr(pass_number); serial(q):=pass_number;@+tats@;@/
-prev_break(q):=best_place[fit_class];@/
-@y
-@<Insert a new active node from |best_place[fit_class]| to |cur_p|@>=
-begin q:=get_node(passive_node_size);
-link(q):=passive; passive:=q; cur_break(q):=cur_p;
-@!stat incr(pass_number); serial(q):=pass_number;@+tats@;@/
-prev_break(q):=best_place[fit_class];@/
-{Here we keep track of the subparagraph penalties in the break nodes}
-passive_local(q):=last_local_par_info;
-info_incr_ref_count(last_local_par_info);
-if prev_break(q)=null then
- passive_prev_local(q):=init_local_par_info
-else
- passive_prev_local(q):=passive_local(prev_break(q));
-info_incr_ref_count(passive_prev_local(q));
-@z
-%-------------------------
-@x [38] m.851 l.16706
-@<Consider the demerits for a line from |r| to |cur_p|...@>=
-begin artificial_demerits:=false;@/
-@^inner loop@>
-shortfall:=line_width-cur_active_width[1]; {we're this much too short}
-@y
-@<Consider the demerits for a line from |r| to |cur_p|...@>=
-begin artificial_demerits:=false;@/
-@^inner loop@>
-shortfall:=line_width-cur_active_width[1]; {we're this much too short}
-if break_node(r)=null then begin
- if init_local_par_info<>null then
- if info_left_box(init_local_par_info)<>null then
- shortfall:=shortfall-width(info_left_box(init_local_par_info));
- end
-else if passive_local(break_node(r))<>null then
- if info_left_box(passive_local(break_node(r)))<>null then
- shortfall:=shortfall-width(info_left_box(passive_local(break_node(r))));
-if last_local_par_info<>null then
- if info_right_box(last_local_par_info)<>null then
- shortfall:=shortfall-width(info_right_box(last_local_par_info));
-@z
-%-------------------------
-@x [39] m.863 l.16932
-loop@+ begin if threshold>inf_bad then threshold:=inf_bad;
- if second_pass then @<Initialize for hyphenating a paragraph@>;
- @<Create an active breakpoint representing the beginning of the paragraph@>;
- cur_p:=link(temp_head); auto_breaking:=true;@/
- prev_p:=cur_p; {glue at beginning is not a legal breakpoint}
-@y
-loop@+ begin if threshold>inf_bad then threshold:=inf_bad;
- if second_pass then @<Initialize for hyphenating a paragraph@>;
- @<Create an active breakpoint representing the beginning of the paragraph@>;
- cur_p:=link(temp_head); auto_breaking:=true;@/
- prev_p:=cur_p; {glue at beginning is not a legal breakpoint}
- @<LOCAL: Initialize local paragraph information@>;
-@z
-%-------------------------
-@x [39] m.865
-@ @<Clean...@>=
-q:=link(active);
-while q<>last_active do
- begin cur_p:=link(q);
- if type(q)=delta_node then free_node(q,delta_node_size)
- else free_node(q,active_node_size);
- q:=cur_p;
- end;
-q:=passive;
-while q<>null do
- begin cur_p:=link(q);
- free_node(q,passive_node_size);
- q:=cur_p;
- end
-@y
-@ @<Clean...@>=
-q:=link(active);
-while q<>last_active do
- begin cur_p:=link(q);
- if type(q)=delta_node then free_node(q,delta_node_size)
- else free_node(q,active_node_size);
- q:=cur_p;
- end;
-q:=passive;
-while q<>null do
- begin cur_p:=link(q);
- info_decr_ref_count(passive_local(q));
- info_decr_ref_count(passive_prev_local(q));
- free_node(q,passive_node_size);
- q:=cur_p;
- end
-@z
-%-------------------------
-@x [39] m.866
-@<Call |try_break| if |cur_p| is a legal breakpoint...@>=
-begin if is_char_node(cur_p) then
- @<Advance \(c)|cur_p| to the node following the present
- string of characters@>;
-@y
-@<Call |try_break| if |cur_p| is a legal breakpoint...@>=
-begin
-@<LOCAL: Update local paragraph information@>;
-if is_char_node(cur_p) then
- @<Advance \(c)|cur_p| to the node following the present
- string of characters@>;
-@<LOCAL: Update local paragraph information@>;
-@z
-%-------------------------
-@x [39] m.881 l.17289
-q:=cur_break(cur_p); disc_break:=false; post_disc_break:=false;
-if q<>null then {|q| cannot be a |char_node|}
- if type(q)=glue_node then
- begin delete_glue_ref(glue_ptr(q));
- glue_ptr(q):=right_skip;
- subtype(q):=right_skip_code+1; add_glue_ref(right_skip);
- goto done;
- end
- else begin if type(q)=disc_node then
- @<Change discretionary to compulsory and set
- |disc_break:=true|@>
- else if (type(q)=math_node)or(type(q)=kern_node) then width(q):=0;
- end
-else begin q:=temp_head;
- while link(q)<>null do q:=link(q);
- end;
-@<Put the \(r)\.{\\rightskip} glue after node |q|@>;
-@y
-q:=cur_break(cur_p); disc_break:=false; post_disc_break:=false;
-if q<>null then {|q| cannot be a |char_node|}
- if type(q)=glue_node then begin
- if passive_local(cur_p)<>null then
- if info_right_box(passive_local(cur_p))<>null then begin
- r:=temp_head;
- while link(r)<>q do r:=link(r);
- s:=copy_node_list(info_right_box(passive_local(cur_p)));
- link(r):=s;
- link(s):=q;
- end;
- delete_glue_ref(glue_ptr(q));
- glue_ptr(q):=right_skip;
- subtype(q):=right_skip_code+1; add_glue_ref(right_skip);
- goto done;
- end
- else begin if type(q)=disc_node then
- @<Change discretionary to compulsory and set
- |disc_break:=true|@>
- else if (type(q)=math_node)or(type(q)=kern_node) then width(q):=0;
- end
-else begin q:=temp_head;
- while link(q)<>null do q:=link(q);
- end;
-if passive_local(cur_p)<>null then
- if info_right_box(passive_local(cur_p))<>null then begin
- r:=copy_node_list(info_right_box(passive_local(cur_p)));
- link(r):=link(q);
- link(q):=r;
- q:=r;
- end;
-@<Put the \(r)\.{\\rightskip} glue after node |q|@>;
-@z
-%-------------------------
-@x [39] m.887 l.17352
-@<Put the \(l)\.{\\leftskip} glue at the left...@>=
-r:=link(q); link(q):=null; q:=link(temp_head); link(temp_head):=r;
-if left_skip<>zero_glue then
- begin r:=new_param_glue(left_skip_code);
- link(r):=q; q:=r;
- end
-@y
-@<Put the \(l)\.{\\leftskip} glue at the left...@>=
-r:=link(q); link(q):=null; q:=link(temp_head); link(temp_head):=r;
-if passive_prev_local(cur_p)<>null then
- if info_left_box(passive_prev_local(cur_p))<>null then begin
- r:=copy_node_list(info_left_box(passive_prev_local(cur_p)));
- s:=link(q);
- link(r):=q;
- q:=r;
- {adjustment for the indent node}
- if (cur_line=prev_graf+1) and (s<>null) then
- if type(s)=hlist_node then
- if list_ptr(s)=null then begin
- q:=link(q);
- link(r):=link(s);
- link(s):=r;
- end;
- end;
-if left_skip<>zero_glue then
- begin r:=new_param_glue(left_skip_code);
- link(r):=q; q:=r;
- end
-@z
-%-------------------------
-@x [39] m.890 l.17391
-@<Append a penalty node, if a nonzero penalty is appropriate@>=
-if cur_line+1<>best_line then
- begin pen:=inter_line_penalty;
- if cur_line=prev_graf+1 then pen:=pen+club_penalty;
- if cur_line+2=best_line then pen:=pen+final_widow_penalty;
- if disc_break then pen:=pen+broken_penalty;
-@y
-@<Append a penalty node, if a nonzero penalty is appropriate@>=
-if cur_line+1<>best_line then begin
- if passive_local(cur_p)<>null then begin
- if info_pen_inter(passive_local(cur_p))<>0 then
- pen:=info_pen_inter(passive_local(cur_p))
- else pen:=inter_line_penalty;
- end
- else pen:=inter_line_penalty;
- if cur_line=prev_graf+1 then pen:=pen+club_penalty;
- if cur_line+2=best_line then pen:=pen+final_widow_penalty;
- if disc_break then
- if passive_local(cur_p)<>null then begin
- if info_pen_broken(passive_local(cur_p))<>0 then
- pen:=pen+info_pen_broken(passive_local(cur_p))
- else pen:=pen+broken_penalty;
- end
- else pen:=pen+broken_penalty;
-@z
-%-------------------------
-@x [46] m.1034
-fast_get_avail(lig_stack); font(lig_stack):=main_f; cur_l:=qi(cur_chr);
-character(lig_stack):=cur_l;@/
-@y
-fast_get_avail(lig_stack); font(lig_stack):=main_f; cur_l:=qi(cur_chr);
-ptr_info(lig_stack):=local_par_info; info_incr_ref_count(local_par_info);
-add_file_col(lig_stack);
-character(lig_stack):=cur_l;@/
-@z
-%-------------------------
-@x [46] m.1038
-fast_get_avail(lig_stack); font(lig_stack):=main_f;
-cur_r:=qi(cur_chr); character(lig_stack):=cur_r;
-@y
-fast_get_avail(lig_stack); font(lig_stack):=main_f;
-ptr_info(lig_stack):=local_par_info; info_incr_ref_count(local_par_info);
-add_file_col(lig_stack);
-cur_r:=qi(cur_chr); character(lig_stack):=cur_r;
-@z
-%-------------------------
-@x [47] m.1114 l.21322
-primitive("-",discretionary,1);
-@!@:Single-character primitives -}{\quad\.{\\-}@>
-primitive("discretionary",discretionary,0);
-@!@:discretionary_}{\.{\\discretionary} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-discretionary: if chr_code=1 then
- print_esc("-")@+else print_esc("discretionary");
-
-@ @<Cases of |main_control| that build...@>=
-hmode+discretionary,mmode+discretionary: append_discretionary;
-@y
-primitive("-",discretionary,1);
-@!@:Single-character primitives -}{\quad\.{\\-}@>
-primitive("discretionary",discretionary,0);
-@!@:discretionary_}{\.{\\discretionary} primitive@>
-primitive("localleftbox",assign_local_box,0);
-@!@:assign_local_box}{\.{\\localleftbox} primitive@>
-primitive("localrightbox",assign_local_box,1);
-@!@:assign_local_box}{\.{\\localrightbox} primitive@>
-
-@ @<Cases of |print_cmd_chr|...@>=
-discretionary: if chr_code=1 then
- print_esc("-")@+else print_esc("discretionary");
-assign_local_box: if chr_code=0 then print_esc("localleftbox")
- else print_esc("localrightbox");
-
-@ @<Cases of |main_control| that build...@>=
-hmode+discretionary,mmode+discretionary: append_discretionary;
-any_mode(assign_local_box): append_local_box(cur_chr);
-@z
-%-------------------------
-@x [47] m.1117 l.21338
-procedure append_discretionary;
-var c:integer; {hyphen character}
-begin tail_append(new_disc);
-if cur_chr=1 then
- begin c:=hyphen_char(cur_font);
- if c>=0 then if c<=biggest_char then
- pre_break(tail):=new_character(cur_font,c);
- end
-else begin incr(save_ptr); saved(-1):=0; new_save_level(disc_group);
- scan_left_brace; push_nest; mode:=-hmode; space_factor:=1000;
- end;
-end;
-@y
-procedure append_local_box(kind:integer);
-begin
-incr(save_ptr); saved(-1):=kind; new_save_level(local_box_group);
-scan_left_brace; push_nest; mode:=-hmode; space_factor:=1000;
-end;
-
-procedure append_discretionary;
-var c:integer; {hyphen character}
-begin tail_append(new_disc);
-if cur_chr=1 then
- begin c:=hyphen_char(cur_font);
- if c>=0 then if c<=biggest_char then begin
- pre_break(tail):=new_character(cur_font,c);
- info_decr_ref_count(ptr_info(pre_break(tail)));
- ptr_info(pre_break(tail)):=local_par_info;
- info_incr_ref_count(local_par_info);
- add_file_col(pre_break(tail));
- end
- end
-else begin incr(save_ptr); saved(-1):=0; new_save_level(disc_group);
- scan_left_brace; push_nest; mode:=-hmode; space_factor:=1000;
- end;
-end;
-@z
-%-------------------------
-@x [47] m.1118 l.21355
-disc_group: build_discretionary;
-@y
-disc_group: build_discretionary;
-local_box_group: build_local_box;
-@z
-%-------------------------
-@x [47] m.1119 l.21358
-procedure build_discretionary;
-@y
-procedure build_local_box;
-var p:pointer;
- kind:integer;
-begin
-unsave;
-kind:=saved(-1);
-decr(save_ptr);
-p:=link(head); pop_nest;
-p:=hpack(p,natural);
-if kind=0 then
- eq_define(local_left_box_base,box_ref,p)
-else
- eq_define(local_right_box_base,box_ref,p);
-@<LOCAL: Change info node@>;
-end;
-
-procedure build_discretionary;
-@z
-%-------------------------
-@x [47] m.1123
-procedure make_accent;
-var s,@!t: real; {amount of slant}
-@!p,@!q,@!r:pointer; {character, box, and kern nodes}
-@!f:internal_font_number; {relevant font}
-@!a,@!h,@!x,@!w,@!delta:scaled; {heights and widths, as explained above}
-@!i:four_quarters; {character information}
-begin scan_char_num; f:=cur_font; p:=new_character(f,cur_val);
-if p<>null then
- begin x:=x_height(f); s:=slant(f)/float_constant(65536);
-@^real division@>
- a:=char_width(f)(char_info(f)(character(p)));@/
- do_assignments;@/
- @<Create a character node |q| for the next character,
- but set |q:=null| if problems arise@>;
- if q<>null then @<Append the accent with appropriate kerns,
- then set |p:=q|@>;
- link(tail):=p; tail:=p; space_factor:=1000;
- end;
-end;
-@y
-procedure make_accent;
-var s,@!t: real; {amount of slant}
-@!p,@!q,@!r:pointer; {character, box, and kern nodes}
-@!f:internal_font_number; {relevant font}
-@!a,@!h,@!x,@!w,@!delta:scaled; {heights and widths, as explained above}
-@!i:four_quarters; {character information}
-begin scan_char_num; f:=cur_font; p:=new_character(f,cur_val);
-@<LOCAL: Add info node pointer@>;
-add_file_col(p);
-if p<>null then
- begin x:=x_height(f); s:=slant(f)/float_constant(65536);
-@^real division@>
- a:=char_width(f)(char_info(f)(character(p)));@/
- do_assignments;@/
- @<Create a character node |q| for the next character,
- but set |q:=null| if problems arise@>;
- if q<>null then @<Append the accent with appropriate kerns,
- then set |p:=q|@>;
- link(tail):=p; tail:=p; space_factor:=1000;
- end;
-end;
-@z
-%-------------------------
-@x [47] m.1124
-@ @<Create a character node |q| for the next...@>=
-q:=null; f:=cur_font;
-if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given) then
- q:=new_character(f,cur_chr)
-else if cur_cmd=char_num then
- begin scan_char_num; q:=new_character(f,cur_val);
- end
-else back_input
-@y
-@ @<Create a character node |q| for the next...@>=
-q:=null; f:=cur_font;
-if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given) then begin
- q:=new_character(f,cur_chr);
- info_decr_ref_count(ptr_info(q));
- ptr_info(q):=local_par_info;
- info_incr_ref_count(local_par_info);
- add_file_col(q);
- end
-else if cur_cmd=char_num then
- begin scan_char_num; q:=new_character(f,cur_val);
- info_decr_ref_count(ptr_info(q));
- ptr_info(q):=local_par_info;
- info_incr_ref_count(local_par_info);
- add_file_col(q);
- end
-else back_input
-@z
-%-------------------------
-@x [49] m.1228 l.22908
-assign_int: begin p:=cur_chr; scan_optional_equals; scan_int;
- word_define(p,cur_val);
-@y
-assign_int: begin p:=cur_chr; scan_optional_equals; scan_int;
- word_define(p,cur_val);
-{If we are defining subparagraph penalty levels, then we
- must change the local paragraph node.}
- if ((p=(int_base+local_inter_line_penalty_code)) or
- (p=(int_base+local_broken_penalty_code))) then
- @<LOCAL: Change info node@>;
-@z
-%-------------------------
-@x [53] m.1344 l.24546
-primitive("setlanguage",extension,set_language_code);@/
-@!@:set_language_}{\.{\\setlanguage} primitive@>
-@y
-primitive("setlanguage",extension,set_language_code);@/
-@!@:set_language_}{\.{\\setlanguage} primitive@>
-primitive("localinterlinepenalty",assign_int,
- int_base+local_inter_line_penalty_code);@/
-primitive("localbrokenpenalty",assign_int,
- int_base+local_broken_penalty_code);@/
-primitive("charspecials",assign_int,
- int_base+char_specials_code);@/
-@z
-%-------------------------
-@x [53] m.1354
-@<Implement \.{\\special}@>=
-begin new_whatsit(special_node,write_node_size); write_stream(tail):=null;
-p:=scan_toks(false,true); write_tokens(tail):=def_ref;
-end
-@y
-@<Implement \.{\\special}@>=
-begin new_whatsit(special_node,write_node_size); write_stream(tail):=null;
-ptr_info(tail):=local_par_info;
-info_incr_ref_count(local_par_info);
-add_file_col(tail);
-p:=scan_toks(false,true); write_tokens(tail):=def_ref;
-end
-@z
-%-------------------------
-@x [53] m.1368
-@<Declare procedures needed in |hlist_out|, |vlist_out|@>=
-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;@/
-@y
-@<Declare procedures needed in |hlist_out|, |vlist_out|@>=
-procedure append_string(s:integer);
-var p:pointer;
- i:integer;
-begin
-if (s<@"10000) then append_char(s)
-else begin
- i:=str_start(s);
- while i<str_start(s+1) do begin
- append_char(str_pool[i]);
- incr(i);
- end;
- end;
-end;
-
-procedure append_int(n:integer);
-var p:pointer;
- k:integer;
-begin
-k:=0;
-repeat
- dig[k] := n mod 10;
- n := n div 10;
- incr(k);
-until n=0;
-while k>0 do begin
- decr(k);
- append_char("0"+dig[k]);
- end;
-end;
-
-procedure special_out(@!p:pointer);
-var old_setting:0..max_selector; {holds print |selector|}
-@!k:pool_pointer; {index into |str_pool|}
-@!fff:pointer; {current file position}
-@!ffi:integer; {for iterations}
-@!g:integer; {new string}
-@!newk:integer;
-begin synch_h; synch_v;@/
-if ptr_info(p)<>null then
- if info_file(ptr_info(p))<>null then
- @<LOCAL: Create special node@>;
-@z
-%-------------------------
-@x [53] m.1378 l.24900
-@ @<Finish the extensions@>=
-for k:=0 to 15 do if write_open[k] then a_close(write_file[k])
-@y
-@ @<Finish the extensions@>=
-for k:=0 to 15 do if write_open[k] then a_close(write_file[k])
-
-@ @<LOCAL: Declare |make_info_node|@>=
-procedure make_info_node;
-{This function creates an |info_node|}
-var p:pointer;
-begin
-p:=get_node(info_size); type(p):=info_node;
-link(p):=null;
-info_ref_count(p):=1;
-info_pen_inter(p):=local_inter_line_penalty;
-info_pen_broken(p):=local_broken_penalty;
-if local_left_box=null then
- info_left_box(p):=null
-else
- info_left_box(p):=copy_node_list(local_left_box);
-if local_right_box=null then
- info_right_box(p):=null
-else
- info_right_box(p):=copy_node_list(local_right_box);
-if current_file_node=null then begin
- info_file(p):=null;
- end
-else begin
- info_file(p):=current_file_node;
- file_incr_ref_count(current_file_node);
- end;
-eq_define(local_par_info_base,data,p);
-end;
-
-procedure make_file_node;
-var p:pointer;
- i:integer;
-begin
-p:=get_node(file_size+2*no_of_files); type(p):=file_node;
-file_no(p):=no_of_files;
-file_ref_count(p):=1;
-for i := 1 to no_of_files do begin
- mem[p+(i*2)].int := file_names[i];
- mem[p+(i*2)+1].int := line_numbers[i];
- end;
-file_decr_ref_count(current_file_node);
-current_file_node:=p;
-make_info_node;
-end
-
-@ @<LOCAL: Initialize local paragraph information@>=
-begin
-info_decr_ref_count(init_local_par_info);
-init_local_par_info:=ptr_info(cur_p);
-info_incr_ref_count(init_local_par_info);
-info_decr_ref_count(last_local_par_info);
-last_local_par_info:=ptr_info(cur_p);
-info_incr_ref_count(last_local_par_info);
-end
-
-@ @<LOCAL: Update local paragraph information@>=
-begin
-if last_local_par_info<>ptr_info(cur_p) then begin
- info_decr_ref_count(last_local_par_info);
- last_local_par_info:=ptr_info(cur_p);
- info_incr_ref_count(last_local_par_info);
- end;
-end
-
-@ @<LOCAL: print out |local_paragraph| node@>=
-info_node: begin
- print_esc("info");
- append_char(".");
- print_ln; print_current_string;
- print_esc("localinterlinepenalty"); print("=");
- print_int(info_pen_inter(p));
- print_ln; print_current_string;
- print_esc("localbrokenpenalty"); print("=");
- print_int(info_pen_broken(p));
- print_ln; print_current_string;
- print_esc("localleftbox");
- if info_left_box(p)=null then print("=null")
- else begin
- append_char(".");
- show_node_list(info_left_box(p));
- decr(pool_ptr);
- end;
- print_ln; print_current_string;
- print_esc("localrightbox");
- if info_right_box(p)=null then print("=null")
- else begin
- append_char(".");
- show_node_list(info_right_box(p));
- decr(pool_ptr);
- end;
- decr(pool_ptr);
- end
-
-@ @<LOCAL: Change file node@>=
-begin
-make_file_node;
-end
-
-@ @<LOCAL: Change info node@>=
-begin
-make_info_node;
-end
-
-@ @<LOCAL: Delete info node@>=
-begin
-info_decr_ref_count(p);
-end
-
-@ @<LOCAL: Add info node pointer@>=
-begin
-ptr_info(p):=local_par_info;
-info_incr_ref_count(local_par_info);
-end
-
-@ @<LOCAL: Copy info node pointer@>=
-begin
-ptr_info(r):=ptr_info(p);
-info_incr_ref_count(ptr_info(p));
-end
-
-@ @<LOCAL: Remove info node pointer@>=
-begin
-info_decr_ref_count(ptr_info(p));
-ptr_info(p):=null;
-end
-
-@ @<LOCAL: Create special node@>=
-begin
-fff:=info_file(ptr_info(p));
-append_string("om:");
-append_string("lines=");
-for ffi:=1 to file_no(fff) do begin
- if mem[fff+ffi*2].int <> 0 then begin
- append_char("""");
- append_string(mem[fff+ffi*2].int);
- append_char("""");
- append_char(",");
- append_int(mem[fff+ffi*2+1].int);
- append_char(";");
- end;
- end;
-g:=make_string;
-if length(g)<256 then
- begin dvi_out(xxx1); dvi_out(length(g));
- end
-else begin dvi_out(xxx4); dvi_four(length(g));
- end;
-for newk:=str_start(g) to pool_ptr-1 do dvi_out(so(str_pool[newk]));
-flush_string; {erase the string}
-append_string("om:");
-append_string("col=");
-append_int(file_col(p));
-append_char(";");
-g:=make_string;
-if length(g)<256 then
- begin dvi_out(xxx1); dvi_out(length(g));
- end
-else begin dvi_out(xxx4); dvi_four(length(g));
- end;
-for newk:=str_start(g) to pool_ptr-1 do dvi_out(so(str_pool[newk]));
-flush_string; {erase the string}
-end
-
-@z
-%-------------------------
diff --git a/Build/source/texk/web2c/omegadir/omstr.ch b/Build/source/texk/web2c/omegadir/omstr.ch
deleted file mode 100644
index f100266b90f..00000000000
--- a/Build/source/texk/web2c/omegadir/omstr.ch
+++ /dev/null
@@ -1,875 +0,0 @@
-% omstr.ch: String manipulation
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x [2] m.17 l.510 - Omega
-In order to make \TeX\ readily portable to a wide variety of
-computers, all of its input text is converted to an internal eight-bit
-@y
-In order to make $\Omega$ readily portable to a wide variety of
-computers, all of its input text is converted to an internal 31-bit
-@z
-%---------------------------------------
-@x [2] m.18 l.537 - Omega
-@!ASCII_code=0..255; {eight-bit numbers}
-@y
-@!ASCII_code=0..biggest_char;
-@z
-%---------------------------------------
-@x [2] m.19 l.567 - Omega
-@d last_text_char=255 {ordinal number of the largest element of |text_char|}
-@y
-@d last_text_char=biggest_char
- {ordinal number of the largest element of |text_char|}
-@z
-%---------------------------------------
-@x [2] m.20 l.577 - Omega
-@!xord: array [text_char] of ASCII_code;
- {specifies conversion of input characters}
-@!xchr: array [ASCII_code] of text_char;
- {specifies conversion of output characters}
-@y
-@!xchr: array [0..255] of text_char;
- {specifies conversion of output characters}
-@z
-%---------------------------------------
-@x [2] m.23 l.724 - Omega
-for i:=0 to @'37 do xchr[i]:=' ';
-for i:=@'177 to @'377 do xchr[i]:=' ';
-@y
-for i:=0 to @'37 do xchr[i]:=chr(i);
-for i:=@'177 to @'377 do xchr[i]:=chr(i);
-init_eqtb_table;
-@z
-%---------------------------------------
-@x [2] m.24 l.734 - Omega
-for i:=first_text_char to last_text_char do xord[chr(i)]:=invalid_code;
-for i:=@'200 to @'377 do xord[xchr[i]]:=i;
-for i:=0 to @'176 do xord[xchr[i]]:=i;
-@y
-@z
-%---------------------------------------
-@x [3] m.25 l.772 - Omega
-@!eight_bits=0..255; {unsigned one-byte quantity}
-@!alpha_file=packed file of text_char; {files that contain textual data}
-@!byte_file=packed file of eight_bits; {files that contain binary data}
-@y
-@!eight_bits=0..biggest_char; {unsigned two-byte quantity}
-@!real_eight_bits=0..255; {dvi output uses exactly 8 bits}
-@!alpha_file=packed file of text_char; {files that contain textual data}
-@!byte_file=packed file of real_eight_bits; {files that contain binary data}
-@z
-%---------------------------------------
-@x [3] m.31 l.947 - Omega
- buffer[last]:=xord[f^]; get(f); incr(last);
-@y
- buffer[last]:=f^; get(f); incr(last);
-@z
-%---------------------------------------
-@x [4] m.38 l.1099 - Omega
-String numbers 0 to 255 are reserved for strings that correspond to single
-ASCII characters. This is in accordance with the conventions of \.{WEB},
-@y
-String numbers 0 to |biggest_char| are reserved for strings that correspond to
-single ASCII characters. This is in accordance with the conventions of \.{WEB},
-@z
-%---------------------------------------
-@x [4] m.38 l.1109 - Omega
-ASCII character, so the first 256 strings are used to specify exactly what
-should be printed for each of the 256 possibilities.
-@y
-ASCII character, so the first |biggest_char+1| strings are used to specify
-exactly what should be printed for each of the |biggest_char+1| possibilities.
-@z
-%---------------------------------------
-@x [4] m.38-9 l.1122 - Omega
-@d si(#) == # {convert from |ASCII_code| to |packed_ASCII_code|}
-@d so(#) == # {convert from |packed_ASCII_code| to |ASCII_code|}
-
-@<Types...@>=
-@!pool_pointer = 0..pool_size; {for variables that point into |str_pool|}
-@!str_number = 0..max_strings; {for variables that point into |str_start|}
-@!packed_ASCII_code = 0..255; {elements of |str_pool| array}
-
-@ @<Glob...@>=
-@!str_pool:packed array[pool_pointer] of packed_ASCII_code; {the characters}
-@!str_start : array[str_number] of pool_pointer; {the starting pointers}
-@y
-@d si(#) == # {convert from |ASCII_code| to |packed_ASCII_code|}
-@d so(#) == # {convert from |packed_ASCII_code| to |ASCII_code|}
-@d str_start(#) == str_start_ar[#-too_big_char]
-
-@<Types...@>=
-@!pool_pointer = 0..pool_size; {for variables that point into |str_pool|}
-@!str_number = 0..max_strings; {for variables that point into |str_start|}
-@!packed_ASCII_code = 0..65535; {elements of |str_pool| array}
-
-@ @<Glob...@>=
-@!str_pool:packed array[pool_pointer] of packed_ASCII_code; {the characters}
-@!str_start_ar : array[str_number] of pool_pointer; {the starting pointers}
-@z
-%---------------------------------------
-@x [4] m.40 l.1145 - Omega
-@d length(#)==(str_start[#+1]-str_start[#]) {the number of characters
- in string number \#}
-@y
-@p function length(s:str_number):integer;
- {the number of characters in string number |s|}
-begin if (s>=@"10000) then length:=str_start(s+1)-str_start(s)
-else if (s>=@"20) and (s<@"7F) then length:=1
-else if (s<=@"7F) then length:=3
-else if (s<@"100) then length:=4
-else length:=8
-end;
-@z
-%---------------------------------------
-@x [4] m.41 l.1150 - Omega
-@d cur_length == (pool_ptr - str_start[str_ptr])
-@y
-@d cur_length == (pool_ptr - str_start(str_ptr))
-@z
-%---------------------------------------
-@x [4] m.43 l.1181 - Omega
-incr(str_ptr); str_start[str_ptr]:=pool_ptr;
-@y
-incr(str_ptr); str_start(str_ptr):=pool_ptr;
-@z
-%---------------------------------------
-@x [4] m.44 l.1187 - Omega
-@d flush_string==begin decr(str_ptr); pool_ptr:=str_start[str_ptr];
-@y
-@d flush_string==begin decr(str_ptr); pool_ptr:=str_start(str_ptr);
-@z
-%---------------------------------------
-@x [4] m.45 l.1201 - Omega
-begin j:=str_start[s];
-while j<str_start[s+1] do
-@y
-begin j:=str_start(s);
-while j<str_start(s+1) do
-@z
-%---------------------------------------
-@x [4] m.46 l.1222 - Omega
-@p function str_eq_str(@!s,@!t:str_number):boolean;
- {test equality of strings}
-label not_found; {loop exit}
-var j,@!k: pool_pointer; {running indices}
-@!result: boolean; {result of comparison}
-begin result:=false;
-if length(s)<>length(t) then goto not_found;
-j:=str_start[s]; k:=str_start[t];
-while j<str_start[s+1] do
- begin if str_pool[j]<>str_pool[k] then goto not_found;
- incr(j); incr(k);
- end;
-result:=true;
-not_found: str_eq_str:=result;
-end;
-@y
-@p function str_eq_str(@!s,@!t:str_number):boolean;
- {test equality of strings}
-label not_found; {loop exit}
-var j,@!k: pool_pointer; {running indices}
-@!result: boolean; {result of comparison}
-begin result:=false;
-if length(s)<>length(t) then goto not_found;
-if (length(s)=1) then begin
- if s<65536 then begin
- if t<65536 then begin
- if s<>t then goto not_found;
- end
- else begin
- if s<>str_pool[str_start(t)] then goto not_found;
- end;
- end
- else begin
- if t<65536 then begin
- if str_pool[str_start(s)]<>t then goto not_found;
- end
- else begin
- if str_pool[str_start(s)]<>str_pool[str_start(t)] then
- goto not_found;
- end;
- end;
- end
-else begin
- j:=str_start(s); k:=str_start(t);
- while j<str_start(s+1) do
- begin if str_pool[j]<>str_pool[k] then goto not_found;
- incr(j); incr(k);
- end;
- end;
-result:=true;
-not_found: str_eq_str:=result;
-end;
-@z
-%---------------------------------------
-@x [4] m.47 l.1240 - Omega
-var k,@!l:0..255; {small indices or counters}
-@y
-var k,@!l:0..biggest_char; {small indices or counters}
-@z
-%---------------------------------------
-@x [4] m.47 l.1245 - Omega
-begin pool_ptr:=0; str_ptr:=0; str_start[0]:=0;
-@<Make the first 256 strings@>;
-@<Read the other strings from the \.{TEX.POOL} file and return |true|,
-@y
-begin pool_ptr:=0; str_ptr:=0; str_start_ar[0]:=0; str_start_ar[1]:=0;
-@<Make the first strings@>;
-@<Read the other strings from the \.{OMEGA.POOL} file and return |true|,
-@z
-%---------------------------------------
-% A hack is made for strings 256 through to 65535.
-% String 256 becomes "^^^^????". All the strings
-% from 256 to 65535 are made to point at this string,
-% which will never be printed: it's just a placeholder.
-
-@x [4] m.48 l.1255 - Omega
-@<Make the first 256...@>=
-for k:=0 to 255 do
- begin if (@<Character |k| cannot be printed@>) then
- begin append_char("^"); append_char("^");
- if k<@'100 then append_char(k+@'100)
- else if k<@'200 then append_char(k-@'100)
- else begin app_lc_hex(k div 16); app_lc_hex(k mod 16);
- end;
- end
- else append_char(k);
- g:=make_string;
- end
-@y
-@<Make the first ...@>=
-begin
-str_ptr:=too_big_char;
-end
-@z
-%---------------------------------------
-@x [4] m.49 l.1279 - Omega
-Unprintable characters of codes 128--255 are, similarly, rendered
-\.{\^\^80}--\.{\^\^ff}.
-@y
-Unprintable characters of codes 128--255 are, similarly, rendered
-\.{\^\^80}--\.{\^\^ff}.
-
-Unprintable characters of codes 256--|biggest_char| are, similarly, rendered
-\.{\^\^\^\^0100}--\.{\^\^\^\^ffff}.
-
-@z
-%---------------------------------------
-@x [4] m.49 l.1295 - Omega
-@<Character |k| cannot be printed@>=
- (k<" ")or(k>"~")
-@y
-@z
-%---------------------------------------
-@x [4] m.50 l.1298 - Omega
-@ When the \.{WEB} system program called \.{TANGLE} processes the \.{TEX.WEB}
-description that you are now reading, it outputs the \PASCAL\ program
-\.{TEX.PAS} and also a string pool file called \.{TEX.POOL}. The \.{INITEX}
-@y
-@ When the \.{WEB} system program called \.{OTANGLE} processes the \.{OMEGA.WEB}
-description that you are now reading, it outputs the \PASCAL\ program
-\.{OMEGA.PAS} and also a string pool file called \.{OMEGA.POOL}. The \.{INITEX}
-@z
-%---------------------------------------
-@x [4] m.51 l.1322 - Omega
-else bad_pool('! I can''t read TEX.POOL.')
-@.I can't read TEX.POOL@>
-@y
-else bad_pool('! I can''t read OMEGA.POOL.')
-@.I can't read OMEGA.POOL@>
-@z
-%---------------------------------------
-@x [4] m.52 l.1326 - Omega
-begin if eof(pool_file) then bad_pool('! TEX.POOL has no check sum.');
-@.TEX.POOL has no check sum@>
-@y
-begin if eof(pool_file) then bad_pool('! OMEGA.POOL has no check sum.');
-@.OMEGA.POOL has no check sum@>
-@z
-%---------------------------------------
-@x [4] m.52 l.1332 - Omega
-else begin if (xord[m]<"0")or(xord[m]>"9")or@|
- (xord[n]<"0")or(xord[n]>"9") then
- bad_pool('! TEX.POOL line doesn''t begin with two digits.');
-@.TEX.POOL line doesn't...@>
- l:=xord[m]*10+xord[n]-"0"*11; {compute the length}
- if pool_ptr+l+string_vacancies>pool_size then
- bad_pool('! You have to increase POOLSIZE.');
-@.You have to increase POOLSIZE@>
- for k:=1 to l do
- begin if eoln(pool_file) then m:=' '@+else read(pool_file,m);
- append_char(xord[m]);
-@y
-else begin if (m<"0")or(m>"9")or@|
- (n<"0")or(n>"9") then
- bad_pool('! OMEGA.POOL line doesn''t begin with two digits.');
-@.OMEGA.POOL line doesn't...@>
- l:=m*10+n-"0"*11; {compute the length}
- if pool_ptr+l+string_vacancies>pool_size then
- bad_pool('! You have to increase POOLSIZE.');
-@.You have to increase POOLSIZE@>
- for k:=1 to l do
- begin if eoln(pool_file) then m:=' '@+else read(pool_file,m);
- append_char(m);
-@z
-%---------------------------------------
-@x [4] m.53 l.1347 - Omega
-end of this \.{TEX.POOL} file; any other value means that the wrong pool
-@y
-end of this \.{OMEGA.POOL} file; any other value means that the wrong pool
-@z
-%---------------------------------------
-@x [4] m.53 l.1354 - Omega
-loop@+ begin if (xord[n]<"0")or(xord[n]>"9") then
- bad_pool('! TEX.POOL check sum doesn''t have nine digits.');
-@.TEX.POOL check sum...@>
- a:=10*a+xord[n]-"0";
-@y
-loop@+ begin if (n<"0")or(n>"9") then
- bad_pool('! OMEGA.POOL check sum doesn''t have nine digits.');
-@.OMEGA.POOL check sum...@>
- a:=10*a+n-"0";
-@z
-%---------------------------------------
-@x [4] m.53 l.1360 - Omega
-done: if a<>@$ then bad_pool('! TEX.POOL doesn''t match; TANGLE me again.');
-@.TEX.POOL doesn't match@>
-@y
-done: if a<>@$ then bad_pool('! OMEGA.POOL doesn''t match; OTANGLE me again.');
-@.OMEGA.POOL doesn't match@>
-@z
-%---------------------------------------
-% When we print a string, we must make sure we do the appropriate
-% thing for strings 256 through to 65535. We must generate the
-% strings on the fly.
-
-@x [5] m.59 l.1496 - Omega
-@ An entire string is output by calling |print|. Note that if we are outputting
-the single standard ASCII character \.c, we could call |print("c")|, since
-|"c"=99| is the number of a single-character string, as explained above. But
-|print_char("c")| is quicker, so \TeX\ goes directly to the |print_char|
-routine when it knows that this is safe. (The present implementation
-assumes that it is always safe to print a visible ASCII character.)
-@^system dependencies@>
-
-@<Basic print...@>=
-procedure print(@!s:integer); {prints string |s|}
-label exit;
-var j:pool_pointer; {current character code position}
-@!nl:integer; {new-line character to restore}
-begin if s>=str_ptr then s:="???" {this can't happen}
-@.???@>
-else if s<256 then
- if s<0 then s:="???" {can't happen}
- else begin if selector>pseudo then
- begin print_char(s); return; {internal strings are not expanded}
- end;
- if (@<Character |s| is the current new-line character@>) then
- if selector<pseudo then
- begin print_ln; return;
- end;
- nl:=new_line_char; new_line_char:=-1;
- {temporarily disable new-line character}
- j:=str_start[s];
- while j<str_start[s+1] do
- begin print_char(so(str_pool[j])); incr(j);
- end;
- new_line_char:=nl; return;
- end;
-j:=str_start[s];
-while j<str_start[s+1] do
-@y
-@ An entire string is output by calling |print|. Note that if we are outputting
-the single standard ASCII character \.c, we could call |print("c")|, since
-|"c"=99| is the number of a single-character string, as explained above. But
-|print_char("c")| is quicker, so \TeX\ goes directly to the |print_char|
-routine when it knows that this is safe. (The present implementation
-assumes that it is always safe to print a visible ASCII character.)
-@^system dependencies@>
-
-@d print_lc_hex(#)==l:=#;
- if l<10 then print_char(l+"0") else print_char(l-10+"a");
-
-@<Basic print...@>=
-procedure print(@!s:integer); {prints string |s|}
-label exit;
-var j:pool_pointer; {current character code position}
-@!nl:integer; {new-line character to restore}
-@!l:integer; {for printing 16-bit characters}
-begin if s>=str_ptr then s:="???" {this can't happen}
-@.???@>
-else if s<biggest_char then
- if s<0 then s:="???" {can't happen}
- else begin if selector>pseudo then
- begin print_char(s); return; {internal strings are not expanded}
- end;
- if (@<Character |s| is the current new-line character@>) then
- if selector<pseudo then
- begin print_ln; return;
- end;
- nl:=new_line_char;
- @<Set newline character to -1@>;
- if s<@"20 then begin
- print_char(@"5E); print_char(@"5E); print_char(s+@'100);
- end
- else if s<@"7F then
- print_char(s)
- else if s=@"7F then begin
- print_char(@"5E); print_char(@"5E); print_char(s-@'100);
- end
- else if s<@"100 then begin
- print_char(@"5E); print_char(@"5E);
- print_lc_hex((s mod @"100) div @"10); print_lc_hex(s mod @"10);
- end
- else begin {Here is where we generate the strings on the fly.}
- print_char(@"5E); print_char(@"5E);
- print_char(@"5E); print_char(@"5E);
- print_lc_hex(s div @"1000); print_lc_hex((s mod @"1000) div @"100);
- print_lc_hex((s mod @"100) div @"10); print_lc_hex(s mod @"10);
- end;
- @<Set newline character to nl@>;
- return;
- end;
-j:=str_start(s);
-while j<str_start(s+1) do
-@z
-%---------------------------------------
-@x [5] m.60 l.1539 - Omega
-procedure slow_print(@!s:integer); {prints string |s|}
-var j:pool_pointer; {current character code position}
-begin if (s>=str_ptr) or (s<256) then print(s)
-else begin j:=str_start[s];
- while j<str_start[s+1] do
-@y
-procedure slow_print(@!s:integer); {prints string |s|}
-var j:pool_pointer; {current character code position}
-begin if (s>=str_ptr) or (s<=biggest_char) then print(s)
-else begin j:=str_start(s);
- while j<str_start(s+1) do
-@z
-%---------------------------------------
-@x [5] m.61 l.1556 - Omega
-wterm(banner);
-if format_ident=0 then wterm_ln(' (no format preloaded)')
-else begin slow_print(format_ident); print_ln;
- end;
-update_terminal;
-@y
-wterm(banner);
-if format_ident=0 then wterm_ln(' (no format preloaded)')
-else begin slow_print(format_ident); print_ln;
- end;
-wterm_ln('Copyright (c) 1994--2000 John Plaice and Yannis Haralambous');
-update_terminal;
-@z
-%---------------------------------------
-@x [5] m.63 l.1576 - Omega
-procedure print_esc(@!s:str_number); {prints escape character, then |s|}
-var c:integer; {the escape character code}
-begin @<Set variable |c| to the current escape character@>;
-if c>=0 then if c<256 then print(c);
-@y
-procedure print_esc(@!s:str_number); {prints escape character, then |s|}
-var c:integer; {the escape character code}
-begin @<Set variable |c| to the current escape character@>;
-if c>=0 then if c<=biggest_char then print(c);
-@z
-%---------------------------------------
-@x [5] m.69 l.1654 - Omega
-@p procedure print_roman_int(@!n:integer);
-label exit;
-var j,@!k: pool_pointer; {mysterious indices into |str_pool|}
-@!u,@!v: nonnegative_integer; {mysterious numbers}
-begin j:=str_start["m2d5c2l5x2v5i"]; v:=1000;
-@y
-@p procedure print_roman_int(@!n:integer);
-label exit;
-var j,@!k: pool_pointer; {mysterious indices into |str_pool|}
-@!u,@!v: nonnegative_integer; {mysterious numbers}
-begin j:=str_start("m2d5c2l5x2v5i"); v:=1000;
-@z
-%---------------------------------------
-@x [5] m.70 l.1674 - Omega
-@p procedure print_current_string; {prints a yet-unmade string}
-var j:pool_pointer; {points to current character code}
-begin j:=str_start[str_ptr];
-@y
-@p procedure print_current_string; {prints a yet-unmade string}
-var j:pool_pointer; {points to current character code}
-begin j:=str_start(str_ptr);
-@z
-%---------------------------------------
-@x [6] m.94 l.2052 - Omega
-print_err("TeX capacity exceeded, sorry [");
-@y
-print_err("Omega capacity exceeded, sorry [");
-@z
-%---------------------------------------
-@x [18] m.260 l.5532 - Omega
-while pool_ptr>str_start[str_ptr] do
-@y
-while pool_ptr>str_start(str_ptr) do
-@z
-%---------------------------------------
-@x [18] m.264 l.5610 - Omega
-else begin k:=str_start[s]; l:=str_start[s+1]-k;
-@y
-else begin k:=str_start(s); l:=str_start(s+1)-k;
-@z
-%---------------------------------------
-@x [24] m.341 l.7219 - Omega
-@!c,@!cc:ASCII_code; {constituents of a possible expanded code}
-@!d:2..3; {number of excess characters in an expanded code}
-@y
-@!c,@!cc,@!ccc,@!cccc:ASCII_code; {constituents of a possible expanded code}
-@!d:2..7; {number of excess characters in an expanded code}
-@z
-%---------------------------------------
-@x [24] m.352 l.7349 - Omega
- else cur_chr:=16*cur_chr+cc-"a"+10
-@y
- else cur_chr:=16*cur_chr+cc-"a"+10
-@d long_hex_to_cur_chr==
- if c<="9" then cur_chr:=c-"0" @+else cur_chr:=c-"a"+10;
- if cc<="9" then cur_chr:=16*cur_chr+cc-"0"
- else cur_chr:=16*cur_chr+cc-"a"+10;
- if ccc<="9" then cur_chr:=16*cur_chr+ccc-"0"
- else cur_chr:=16*cur_chr+ccc-"a"+10;
- if cccc<="9" then cur_chr:=16*cur_chr+cccc-"0"
- else cur_chr:=16*cur_chr+cccc-"a"+10
-
-@z
-%---------------------------------------
-@x [24] m.352 l.7353 - Omega
- begin c:=buffer[loc+1]; @+if c<@'200 then {yes we have an expanded char}
-@y
- begin if (cur_chr=buffer[loc+1]) and (cur_chr=buffer[loc+2]) and
- ((loc+6)<=limit) then
- begin c:=buffer[loc+3]; cc:=buffer[loc+4];
- ccc:=buffer[loc+5]; cccc:=buffer[loc+6];
- if is_hex(c) and is_hex(cc) and is_hex(ccc) and is_hex(cccc) then
- begin loc:=loc+7; long_hex_to_cur_chr; goto reswitch;
- end;
- end;
- c:=buffer[loc+1]; @+if c<@'200 then {yes we have an expanded char}
-@z
-%---------------------------------------
-@x [24] m.355 l.7416 - Omega
-begin if buffer[k]=cur_chr then @+if cat=sup_mark then @+if k<limit then
- begin c:=buffer[k+1]; @+if c<@'200 then {yes, one is indeed present}
- begin d:=2;
- if is_hex(c) then @+if k+2<=limit then
- begin cc:=buffer[k+2]; @+if is_hex(cc) then incr(d);
- end;
- if d>2 then
- begin hex_to_cur_chr; buffer[k-1]:=cur_chr;
- end
- else if c<@'100 then buffer[k-1]:=c+@'100
- else buffer[k-1]:=c-@'100;
- limit:=limit-d; first:=first-d;
- while k<=limit do
- begin buffer[k]:=buffer[k+d]; incr(k);
- end;
- goto start_cs;
- end;
- end;
-end
-
-@y
-begin if buffer[k]=cur_chr then @+if cat=sup_mark then @+if k<limit then
- begin if (cur_chr=buffer[k+1]) and (cur_chr=buffer[k+2]) and
- ((k+6)<=limit) then
- begin c:=buffer[k+3]; cc:=buffer[k+4];
- ccc:=buffer[k+5]; cccc:=buffer[k+6];
- if is_hex(c) and is_hex(cc) and is_hex(ccc) and is_hex(cccc) then
- begin d:=7; long_hex_to_cur_chr; buffer[k-1]:=cur_chr;
- while k<=limit do
- begin buffer[k]:=buffer[k+d]; incr(k);
- end;
- goto start_cs;
- end
- end
- else begin
- c:=buffer[k+1]; @+if c<@'200 then {yes, one is indeed present}
- begin
- d:=2;
- if is_hex(c) then @+if k+2<=limit then
- begin cc:=buffer[k+2]; @+if is_hex(cc) then incr(d);
- end;
- if d>2 then
- begin hex_to_cur_chr; buffer[k-1]:=cur_chr;
- end
- else if c<@'100 then buffer[k-1]:=c+@'100
- else buffer[k-1]:=c-@'100;
- limit:=limit-d; first:=first-d;
- while k<=limit do
- begin buffer[k]:=buffer[k+d]; incr(k);
- end;
- goto start_cs;
- end
- end
- end
-end
-@z
-%---------------------------------------
-@x [26] m.407 l.8216 - Omega
-begin p:=backup_head; link(p):=null; k:=str_start[s];
-while k<str_start[s+1] do
- begin get_x_token; {recursion is possible here}
-@^recursion@>
- if (cur_cs=0)and@|
- ((cur_chr=so(str_pool[k]))or(cur_chr=so(str_pool[k])-"a"+"A")) then
- begin store_new_token(cur_tok); incr(k);
- end
- else if (cur_cmd<>spacer)or(p<>backup_head) then
- begin back_input;
- if p<>backup_head then back_list(link(backup_head));
- scan_keyword:=false; return;
- end;
- end;
-@y
-begin p:=backup_head; link(p):=null;
-if s<too_big_char then begin
- while true do
- begin get_x_token; {recursion is possible here}
-@^recursion@>
- if (cur_cs=0)and@|
- ((cur_chr=s)or(cur_chr=s-"a"+"A")) then
- begin store_new_token(cur_tok);
- flush_list(link(backup_head)); scan_keyword:=true; return;
- end
- else if (cur_cmd<>spacer)or(p<>backup_head) then
- begin back_input;
- if p<>backup_head then back_list(link(backup_head));
- scan_keyword:=false; return;
- end;
- end;
- end;
-k:=str_start(s);
-while k<str_start(s+1) do
- begin get_x_token; {recursion is possible here}
-@^recursion@>
- if (cur_cs=0)and@|
- ((cur_chr=so(str_pool[k]))or(cur_chr=so(str_pool[k])-"a"+"A")) then
- begin store_new_token(cur_tok); incr(k);
- end
- else if (cur_cmd<>spacer)or(p<>backup_head) then
- begin back_input;
- if p<>backup_head then back_list(link(backup_head));
- scan_keyword:=false; return;
- end;
- end;
-@z
-%---------------------------------------
-@x [29] m.517 l.10005 - Omega
-@p procedure end_name;
-begin if str_ptr+3>max_strings then
- overflow("number of strings",max_strings-init_str_ptr);
-@:TeX capacity exceeded number of strings}{\quad number of strings@>
-if area_delimiter=0 then cur_area:=""
-else begin cur_area:=str_ptr;
- str_start[str_ptr+1]:=str_start[str_ptr]+area_delimiter; incr(str_ptr);
- end;
-if ext_delimiter=0 then
- begin cur_ext:=""; cur_name:=make_string;
- end
-else begin cur_name:=str_ptr;
- str_start[str_ptr+1]:=str_start[str_ptr]+ext_delimiter-area_delimiter-1;
-@y
-@p procedure end_name;
-begin if str_ptr+3>max_strings then
- overflow("number of strings",max_strings-init_str_ptr);
-@:TeX capacity exceeded number of strings}{\quad number of strings@>
-if area_delimiter=0 then cur_area:=""
-else begin cur_area:=str_ptr;
- str_start(str_ptr+1):=str_start(str_ptr)+area_delimiter; incr(str_ptr);
- end;
-if ext_delimiter=0 then
- begin cur_ext:=""; cur_name:=make_string;
- end
-else begin cur_name:=str_ptr;
- str_start(str_ptr+1):=str_start(str_ptr)+ext_delimiter-area_delimiter-1;
-@z
-%---------------------------------------
-@x [29] m.519 l.10039 - Omega
- if k<=file_name_size then name_of_file[k]:=xchr[c];
- end
-
-@p procedure pack_file_name(@!n,@!a,@!e:str_number);
-var k:integer; {number of positions filled in |name_of_file|}
-@!c: ASCII_code; {character being packed}
-@!j:pool_pointer; {index into |str_pool|}
-begin k:=0;
-for j:=str_start[a] to str_start[a+1]-1 do append_to_name(so(str_pool[j]));
-for j:=str_start[n] to str_start[n+1]-1 do append_to_name(so(str_pool[j]));
-for j:=str_start[e] to str_start[e+1]-1 do append_to_name(so(str_pool[j]));
-@y
- if k<=file_name_size then name_of_file[k]:=xchr[c];
- end
-
-@p procedure pack_file_name(@!n,@!a,@!e:str_number);
-var k:integer; {number of positions filled in |name_of_file|}
-@!c: ASCII_code; {character being packed}
-@!j:pool_pointer; {index into |str_pool|}
-begin k:=0;
-for j:=str_start(a) to str_start(a+1)-1 do append_to_name(so(str_pool[j]));
-for j:=str_start(n) to str_start(n+1)-1 do append_to_name(so(str_pool[j]));
-for j:=str_start(e) to str_start(e+1)-1 do append_to_name(so(str_pool[j]));
-@z
-%---------------------------------------
-@x [29] m.523 l.10095 - Omega
-for j:=1 to n do append_to_name(xord[TEX_format_default[j]]);
-for j:=a to b do append_to_name(buffer[j]);
-for j:=format_default_length-format_ext_length+1 to format_default_length do
- append_to_name(xord[TEX_format_default[j]]);
-@y
-for j:=1 to n do append_to_name(TEX_format_default[j]);
-for j:=a to b do append_to_name(buffer[j]);
-for j:=format_default_length-format_ext_length+1 to format_default_length do
- append_to_name(TEX_format_default[j]);
-@z
-%---------------------------------------
-@x [29] m.524 l.10155 - Omega
-else begin for k:=1 to name_length do append_char(xord[name_of_file[k]]);
-@y
-else begin for k:=1 to name_length do append_char(name_of_file[k]);
-@z
-%---------------------------------------
-@x [29] m.536 l.10324 - Omega
-begin wlog(banner);
-slow_print(format_ident); print(" ");
-print_int(day); print_char(" ");
-months:='JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC';
-for k:=3*month-2 to 3*month do wlog(months[k]);
-print_char(" "); print_int(year); print_char(" ");
-print_two(time div 60); print_char(":"); print_two(time mod 60);
-end
-@y
-begin wlog(banner);
-slow_print(format_ident); print_nl("");
-print_int(day); print_char(" ");
-months:='JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC';
-for k:=3*month-2 to 3*month do wlog(months[k]);
-print_char(" "); print_int(year); print_char(" ");
-print_two(time div 60); print_char(":"); print_two(time mod 60);
-print_nl("Copyright (c) 1994--2000 John Plaice and Yannis Haralambous");
-end
-@z
-%---------------------------------------
-@x [32] m.595 l.11860 - Omega
-@!dvi_buf:array[dvi_index] of eight_bits; {buffer for \.{DVI} output}
-@y
-@!dvi_buf:array[dvi_index] of real_eight_bits; {buffer for \.{DVI} output}
-@z
-%---------------------------------------
-@x [32] m.617 l.12262 - Omega
- print(" TeX output "); print_int(year); print_char(".");
-@y
- print("Omega output, Version 3.1415926-1.23.2.3, ");
- print_int(year); print_char(".");
-@z
-%---------------------------------------
-@x [32] m.617 l.12267 - Omega
- for s:=str_start[str_ptr] to pool_ptr-1 do dvi_out(so(str_pool[s]));
- pool_ptr:=str_start[str_ptr]; {flush the current string}
-@y
- for s:=str_start(str_ptr) to pool_ptr-1 do dvi_out(so(str_pool[s]));
- pool_ptr:=str_start(str_ptr); {flush the current string}
-@z
-%---------------------------------------
-@x [36] m.765 l.15021 - Omega
-magic_offset:=str_start[math_spacing]-9*ord_noad
-@y
-magic_offset:=str_start(math_spacing)-9*ord_noad
-@z
-%---------------------------------------
-@x [42] m.931 l.18172 - Omega
- begin j:=1; u:=str_start[k];
-@y
- begin j:=1; u:=str_start(k);
-@z
-%---------------------------------------
-@x [42] m.940 l.18296 - Omega
-u:=str_start[k]; v:=str_start[s];
-repeat if str_pool[u]<str_pool[v] then goto found;
-if str_pool[u]>str_pool[v] then goto not_found;
-incr(u); incr(v);
-until u=str_start[k+1];
-@y
-u:=str_start(k); v:=str_start(s);
-repeat if str_pool[u]<str_pool[v] then goto found;
-if str_pool[u]>str_pool[v] then goto not_found;
-incr(u); incr(v);
-until u=str_start(k+1);
-@z
-%---------------------------------------
-@x [49] m.1252 l.23232 - Omega
- print_err("Patterns can be loaded only by INITEX");
-@y
- print_err("Patterns can be loaded only by INIOMEGA");
-@z
-%---------------------------------------
-@x [50] m.1301 l.23682 - Omega
-format_ident:=" (INITEX)";
-@y
-format_ident:=" (INIOMEGA)";
-@z
-%---------------------------------------
-% We do not store any information for strings between 257 and 65535.
-
-@x [50] m.1309 l.23814 - Omega
-for k:=0 to str_ptr do dump_int(str_start[k]);
-@y
-for k:=too_big_char to str_ptr do dump_int(str_start(k));
-@z
-%---------------------------------------
-% We recreate the information for strings between 257 and 65535.
-
-@x [50] m.1310 l.23831 - Omega
-for k:=0 to str_ptr do undump(0)(pool_ptr)(str_start[k]);
-@y
-for k:=too_big_char to str_ptr do undump(0)(pool_ptr)(str_start(k));
-@z
-%---------------------------------------
-@x [51] m.1334 l.24266 - Omega
- wlog_ln('Here is how much of TeX''s memory',' you used:');
-@y
- wlog_ln('Here is how much of Omega''s memory',' you used:');
-@z
-%---------------------------------------
-@x [51] m.1335 l.24338 - Omega
- print_nl("(\dump is performed only by INITEX)"); return;
-@:dump_}{\.{\\dump...only by INITEX}@>
-@y
- print_nl("(\dump is performed only by INIOMEGA)"); return;
-@:dump_}{\.{\\dump...only by INIOMEGA}@>
-@z
-%---------------------------------------
-@x [53] m.1368 l.24747 - Omega
-for k:=str_start[str_ptr] to pool_ptr-1 do dvi_out(so(str_pool[k]));
-pool_ptr:=str_start[str_ptr]; {erase the string}
-@y
-for k:=str_start(str_ptr) to pool_ptr-1 do dvi_out(so(str_pool[k]));
-pool_ptr:=str_start(str_ptr); {erase the string}
-@z
-%---------------------------------------
diff --git a/Build/source/texk/web2c/omegadir/omtrans.ch b/Build/source/texk/web2c/omegadir/omtrans.ch
deleted file mode 100644
index 7d62b23d6b2..00000000000
--- a/Build/source/texk/web2c/omegadir/omtrans.ch
+++ /dev/null
@@ -1,822 +0,0 @@
-% omtrans.ch: Characters sets for input and output
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x [3] m.25 l.767 - Omega Translation
-initialization. We shall define a word file later; but it will be possible
-for us to specify simple operations on word files before they are defined.
-@y
-initialization. We shall define a word file later; but it will be possible
-for us to specify simple operations on word files before they are defined.
-
-@d no_mode=0
-@d onebyte_mode=1
-@d ebcdic_mode=2
-@d twobyte_mode=3
-@d twobyteLE_mode=4
-@d UTF8_mode=5
-@d UTF16_mode=6
-@d UTF16LE_mode=7
-
-@d trans_input=0
-@d trans_output=1
-@d trans_default_input=2
-@d trans_default_output=3
-@d trans_no_input=4
-@d trans_no_output=5
-@d trans_no_default_input=6
-@d trans_no_default_output=7
-
-@d mode_input=0
-@d mode_output=1
-@d mode_default_input=2
-@d mode_default_output=3
-@d mode_no_input=4
-@d mode_no_output=5
-@d mode_no_default_input=6
-@d mode_no_default_output=7
-@z
-%---------------------------------------
-@x [3] m.30 l.890 - Omega Translation
-@!max_buf_stack:0..buf_size; {largest index used in |buffer|}
-@y
-@!max_buf_stack:0..buf_size; {largest index used in |buffer|}
-@!term_in_mode:halfword;
-@!term_in_translation:halfword;
-@z
-%---------------------------------------
-@x [3] m.37 l.1065 - Omega Translation
- if not input_ln(term_in,true) then {this shouldn't happen}
-@y
- if not new_input_ln(term_in,term_in_mode,term_in_translation,true)
-then {this shouldn't happen}
-@z
-%---------------------------------------
-@x [5] m.54 l. - Omega Translation
-@!log_file : alpha_file; {transcript of \TeX\ session}
-@y
-@!log_file : alpha_file; {transcript of \TeX\ session}
-@!term_out_mode:halfword;
-@!term_out_translation:halfword;
-@z
-%---------------------------------------
-@x [5] m.59 l. - Omega Translation
-@<Basic printing...@>=
-procedure print_char(@!s:ASCII_code); {prints a single character}
-label exit;
-begin if @<Character |s| is the current new-line character@> then
- if selector<pseudo then
- begin print_ln; return;
- end;
-case selector of
-term_and_log: begin wterm(xchr[s]); wlog(xchr[s]);
- incr(term_offset); incr(file_offset);
- if term_offset=max_print_line then
- begin wterm_cr; term_offset:=0;
- end;
- if file_offset=max_print_line then
- begin wlog_cr; file_offset:=0;
- end;
- end;
-log_only: begin wlog(xchr[s]); incr(file_offset);
- if file_offset=max_print_line then print_ln;
- end;
-term_only: begin wterm(xchr[s]); incr(term_offset);
- if term_offset=max_print_line then print_ln;
- end;
-no_print: do_nothing;
-pseudo: if tally<trick_count then trick_buf[tally mod error_line]:=s;
-new_string: begin if pool_ptr<pool_size then append_char(s);
- end; {we drop characters if the string space is full}
-othercases write(write_file[selector],xchr[s])
-endcases;@/
-incr(tally);
-exit:end;
-@y
-@d omega_write(#)==case term_out_mode of
- no_mode: write(#,xchr[s]);
- onebyte_mode,ebcdic_mode: write(#,xchr[s]);
- twobyte_mode: begin write(#,xchr[s div @"100]);
- write(#,xchr[s mod @"100]);
- end;
- twobyteLE_mode: begin write(#,xchr[s mod @"100]);
- write(#,xchr[s div @"100]);
- end;
- UTF8_mode: begin
- if s<@"80 then write(#, xchr[s])
- else if s<@"800 then begin
- write(#, xchr[@"C0 + s div @"40]);
- write(#, xchr[@"80 + s mod @"40]);
- end
- else begin
- write(#, xchr[@"E0 + s div @"1000]);
- write(#, xchr[@"80 + (s mod @"1000) div @"40]);
- write(#, xchr[@"80 + (s mod @"1000) mod @"40]);
- end
- end;
- UTF16_mode: begin
- end;
- UTF16LE_mode: begin
- end;
- end
-
-@d omega_file_write(#)==case write_file_mode[#] of
- no_mode: write(write_file[#],xchr[s]);
- onebyte_mode,ebcdic_mode: write(write_file[#],xchr[s]);
- twobyte_mode: begin write(write_file[#],xchr[s div @"100]);
- write(write_file[#],xchr[s mod @"100]);
- end;
- twobyteLE_mode: begin write(write_file[#],xchr[s mod @"100]);
- write(write_file[#],xchr[s div @"100]);
- end;
- UTF8_mode: begin
- end;
- UTF16_mode: begin
- end;
- UTF16LE_mode: begin
- end;
- end
-
-@<Basic printing...@>=
-procedure print_char(@!s:ASCII_code); {prints a single character}
-label exit;
-begin if @<Character |s| is the current new-line character@> then
- if selector<pseudo then
- begin print_ln; return;
- end;
-case selector of
-term_and_log: begin omega_write(term_out); omega_write(log_file);
- incr(term_offset); incr(file_offset);
- if term_offset=max_print_line then
- begin wterm_cr; term_offset:=0;
- end;
- if file_offset=max_print_line then
- begin wlog_cr; file_offset:=0;
- end;
- end;
-log_only: begin omega_write(log_file); incr(file_offset);
- if file_offset=max_print_line then print_ln;
- end;
-term_only: begin omega_write(term_out); incr(term_offset);
- if term_offset=max_print_line then print_ln;
- end;
-no_print: do_nothing;
-pseudo: if tally<trick_count then trick_buf[tally mod error_line]:=s;
-new_string: begin if pool_ptr<pool_size then append_char(s);
- end; {we drop characters if the string space is full}
-othercases omega_file_write(selector)
-endcases;@/
-incr(tally);
-exit:end;
-@z
-%---------------------------------------
-@x [5] m.59 l. - Omega Translation
-procedure print(@!s:integer); {prints string |s|}
-label exit;
-var j:pool_pointer; {current character code position}
-@!nl:integer; {new-line character to restore}
-@!l:integer; {for printing 16-bit characters}
-begin if s>=str_ptr then s:="???" {this can't happen}
-@.???@>
-else if s<biggest_char then
- if s<0 then s:="???" {can't happen}
- else begin if selector>pseudo then
- begin print_char(s); return; {internal strings are not expanded}
- end;
- if (@<Character |s| is the current new-line character@>) then
- if selector<pseudo then
- begin print_ln; return;
- end;
- nl:=new_line_char;
- @<Set newline character to -1@>;
- if s<@"20 then begin
- print_char(@"5E); print_char(@"5E); print_char(s+@'100);
- end
- else if s<@"7F then
- print_char(s)
- else if s=@"7F then begin
- print_char(@"5E); print_char(@"5E); print_char(s-@'100);
- end
- else if s<@"100 then begin
- print_char(@"5E); print_char(@"5E);
- print_lc_hex((s mod @"100) div @"10); print_lc_hex(s mod @"10);
- end
- else begin {Here is where we generate the strings on the fly.}
- print_char(@"5E); print_char(@"5E);
- print_char(@"5E); print_char(@"5E);
- print_lc_hex(s div @"1000); print_lc_hex((s mod @"1000) div @"100);
- print_lc_hex((s mod @"100) div @"10); print_lc_hex(s mod @"10);
- end;
- @<Set newline character to nl@>;
- return;
- end;
-j:=str_start(s);
-while j<str_start(s+1) do
- begin print_char(so(str_pool[j])); incr(j);
- end;
-exit:end;
-
-@ Control sequence names, file names, and strings constructed with
-\.{\\string} might contain |ASCII_code| values that can't
-be printed using |print_char|. Therefore we use |slow_print| for them:
-
-@<Basic print...@>=
-procedure slow_print(@!s:integer); {prints string |s|}
-var j:pool_pointer; {current character code position}
-begin if (s>=str_ptr) or (s<=biggest_char) then print(s)
-else begin j:=str_start(s);
- while j<str_start(s+1) do
- begin print(so(str_pool[j])); incr(j);
- end;
- end;
-end;
-@y
-procedure print(@!s:integer); {prints string |s|}
-label exit;
-var j:pool_pointer; {current character code position}
-@!nl:integer; {new-line character to restore}
-@!l:integer; {for printing 16-bit characters}
-begin if s>=str_ptr then s:="???" {this can't happen}
-@.???@>
-else if s<biggest_char then
- if s<0 then s:="???" {can't happen}
- else begin if selector>pseudo then
- begin print_char(s); return; {internal strings are not expanded}
- end;
- if (@<Character |s| is the current new-line character@>) then
- if selector<pseudo then
- begin print_ln; return;
- end;
- nl:=new_line_char;
- @<Set newline character to -1@>;
- if s<@"20 then begin
- print_char(@"5E); print_char(@"5E); print_char(s+@'100);
- end
- else if s<@"7F then
- print_char(s)
- else if s=@"7F then begin
- print_char(@"5E); print_char(@"5E); print_char(s-@'100);
- end
- else if s<@"100 then begin
- print_char(@"5E); print_char(@"5E);
- print_lc_hex((s mod @"100) div @"10); print_lc_hex(s mod @"10);
- end
- else begin {Here is where we generate the strings on the fly.}
- print_char(@"5E); print_char(@"5E);
- print_char(@"5E); print_char(@"5E);
- print_lc_hex(s div @"1000); print_lc_hex((s mod @"1000) div @"100);
- print_lc_hex((s mod @"100) div @"10); print_lc_hex(s mod @"10);
- end;
- @<Set newline character to nl@>;
- return;
- end;
-j:=str_start(s);
-while j<str_start(s+1) do
- begin print_char(so(str_pool[j])); incr(j);
- end;
-exit:end;
-
-procedure print_nl(@!s:str_number); {prints string |s| at beginning of line}
-begin if ((term_offset>0)and(odd(selector)))or@|
- ((file_offset>0)and(selector>=log_only)) then print_ln;
-print(s);
-end;
-
-procedure overflow_ocp_buf_size; forward;
-procedure overflow_ocp_stack_size; forward;
-
-procedure omega_print(s:str_number);
-var new_s:str_number;
- om_mode,om_translation:integer;
- j:integer;
-begin
-om_mode:=no_mode;
-om_translation:=0;
-case selector of
-term_and_log,log_only,term_only: begin
- om_mode:=term_out_mode;
- if om_mode<>no_mode then om_translation:=term_out_translation;
- end;
-no_print,pseudo,new_string: do_nothing;
-othercases begin
- om_mode:=write_file_mode[selector];
- if om_mode<>no_mode then om_translation:=write_file_translation[selector];
- end
-endcases;
-
-if (om_mode=no_mode) or
- ((om_mode=onebyte_mode) and (om_translation=0)) then
- begin
- j:=str_start(s);
- while j<str_start(s+1) do begin
- new_s:=so(str_pool[j]);
- if new_s<@"20 then begin
- print_char(@"5E); print_char(@"5E); print_char(new_s+@'100);
- end
- else if new_s<@"7F then
- print_char(new_s)
- else if new_s=@"7F then begin
- print_char(@"5E); print_char(@"5E); print_char(new_s-@'100);
- end
- else if new_s<@"100 then begin
- print_char(@"5E); print_char(@"5E);
- print_lc_hex((new_s mod @"100) div @"10); print_lc_hex(new_s mod @"10);
- end
- else begin {Here is where we generate the strings on the fly.}
- print_char(@"5E); print_char(@"5E);
- print_char(@"5E); print_char(@"5E);
- print_lc_hex(new_s div @"1000);
- print_lc_hex((new_s mod @"1000) div @"100);
- print_lc_hex((new_s mod @"100) div @"10);
- print_lc_hex(new_s mod @"10);
- end;
- incr(j);
- end;
- end
-else begin
- if om_translation=0 then begin
- j:=str_start(s);
- otp_counter:=1;
- while j<str_start(s+1) do begin
- otp_output_buf[otp_counter]:=so(str_pool[j]);
- incr(otp_counter);
- incr(j);
- end;
- otp_output_end:=otp_counter;
- end
- else begin
- otp_input_start:=0;
- otp_input_last:=0;
- otp_stack_used:=0;
- otp_stack_last:=0;
- otp_stack_new:=0;
- otp_output_end:=0;
- otp_pc:=0;
- otp_finished:=false;
- otp_calc_ptr:=0;
- otp_calcs[otp_calc_ptr]:=0;
- otp_state_ptr:=0;
- otp_states[otp_state_ptr]:=0;
- otp_input_ocp:=om_translation;
- j:=str_start(s);
- otp_counter:=1;
- while j<str_start(s+1) do begin
- otp_input_buf[otp_counter]:=so(str_pool[j]);
- incr(otp_counter);
- incr(j);
- end;
- otp_input_end:=otp_counter;
- while not otp_finished do
- @<Run the OTP program@>;
- end;
- for otp_counter:=1 to (otp_output_end-1) do begin
- new_s:=otp_output_buf[otp_counter];
- if (om_mode<twobyte_mode) and (new_s>255) then
- begin
- print_char(@"5E); print_char(@"5E);
- print_char(@"5E); print_char(@"5E);
- print_lc_hex(new_s div @"1000);
- print_lc_hex((new_s mod @"1000) div @"100);
- print_lc_hex((new_s mod @"100) div @"10);
- print_lc_hex(new_s mod @"10);
- end
- else
- print_char(new_s);
- end;
- end;
-end;
-
-@ Control sequence names, file names, and strings constructed with
-\.{\\string} might contain |ASCII_code| values that can't
-be printed using |print_char|. Therefore we use |slow_print| for them:
-
-@<Basic print...@>=
-procedure slow_print(@!s:integer); {prints string |s|}
-begin if (s>=str_ptr) or (s<=biggest_char) then print(s)
-else omega_print(s);
-end;
-@z
-%---------------------------------------
-@x [5] - Omega Translation
-procedure print_nl(@!s:str_number); {prints string |s| at beginning of line}
-begin if ((term_offset>0)and(odd(selector)))or@|
- ((file_offset>0)and(selector>=log_only)) then print_ln;
-print(s);
-end;
-@y
-@z
-%---------------------------------------
-@x [5] m.71 l.1694 - Omega Translation
-if not input_ln(term_in,true) then fatal_error("End of file on the terminal!");
-@y
-if not new_input_ln(term_in,term_in_mode,term_in_translation,true)
-then fatal_error("End of file on the terminal!");
-@z
-%---------------------------------------
-@x [15] m.209 l.4170 - Omega Translation
-@d max_command=ocp_trace_level
- {the largest command code seen at |big_switch|}
-@y
-@d char_trans=ocp_trace_level+1
-@d char_mode=char_trans+1
-@d max_command=char_mode
- {the largest command code seen at |big_switch|}
-@z
-%---------------------------------------
-@x [17] m.230 l.4722 - Omega Translation
-@d toks_base=ocp_active_base+max_active_ocp_lists
- {table of |number_regs| token list registers}
-@y
-@d ocp_input_mode_base=ocp_active_base+max_active_ocp_lists
-@d ocp_input_onebyte_translation_base =ocp_input_mode_base+ 1
-@d ocp_input_ebcdic_translation_base =ocp_input_mode_base+ 2
-@d ocp_input_twobyte_translation_base =ocp_input_mode_base+ 3
-@d ocp_input_twobyteLE_translation_base =ocp_input_mode_base+ 4
-@d ocp_input_UTF8_translation_base =ocp_input_mode_base+ 5
-@d ocp_input_UTF16_translation_base =ocp_input_mode_base+ 6
-@d ocp_input_UTF16LE_translation_base =ocp_input_mode_base+ 7
-
-@d ocp_output_mode_base =ocp_input_mode_base+ 8
-@d ocp_output_onebyte_translation_base =ocp_input_mode_base+ 9
-@d ocp_output_ebcdic_translation_base =ocp_input_mode_base+ 10
-@d ocp_output_twobyte_translation_base =ocp_input_mode_base+ 11
-@d ocp_output_twobyteLE_translation_base =ocp_input_mode_base+ 12
-@d ocp_output_UTF8_translation_base =ocp_input_mode_base+ 13
-@d ocp_output_UTF16_translation_base =ocp_input_mode_base+ 14
-@d ocp_output_UTF16LE_translation_base =ocp_input_mode_base+ 15
-
-@d toks_base =ocp_input_mode_base+16
-@z
-%---------------------------------------
-@x [22] m.304 l.6535 - Omega Translation
-@!input_file : array[1..max_in_open] of alpha_file;
-@y
-@!input_file : array[1..max_in_open] of alpha_file;
-@!input_file_mode : array[1..max_in_open] of halfword;
-@!input_file_translation : array[1..max_in_open] of halfword;
-@z
-%---------------------------------------
-@x [23] m.331 l.7066 - Omega Translation
-param_ptr:=0; max_param_stack:=0;
-@y
-param_ptr:=0; max_param_stack:=0;
-geq_define(ocp_input_mode_base,data,1);
-term_in_mode:=equiv(ocp_input_mode_base);
-term_out_mode:=equiv(ocp_input_mode_base);
-if term_in_mode>0
-then term_in_translation:=
- equiv(ocp_input_onebyte_translation_base+term_in_mode-1);
-if term_out_mode>0
-then term_out_translation:=
- equiv(ocp_output_onebyte_translation_base+term_in_mode-1);
-@z
-%---------------------------------------
-@x [24] m.362 l.7066 - Omega Translation
- begin if input_ln(cur_file,true) then {not end of file}
-@y
- begin if new_input_ln(cur_file,input_file_mode[index],
- input_file_translation[index],true) then {not end of file}
-@z
-%---------------------------------------
-@x [27] m.480 l.9411 - Omega Translation
-@!read_file:array[0..15] of alpha_file; {used for \.{\\read}}
-@y
-@!read_file:array[0..15] of alpha_file; {used for \.{\\read}}
-@!read_file_mode:array[0..15] of halfword;
-@!read_file_translation:array[0..15] of halfword;
-@z
-%---------------------------------------
-@x [27] m.485 l.9475 - Omega Translation
-@<Input the first line of |read_file[m]|@>=
-if input_ln(read_file[m],false) then read_open[m]:=normal
-else begin a_close(read_file[m]); read_open[m]:=closed;
- end
-@y
-@<Input the first line of |read_file[m]|@>=
-begin read_file_mode[m]:=
- get_file_mode(read_file[m], equiv(ocp_input_mode_base));
-if read_file_mode[m]>0
-then read_file_translation[m]:=
- equiv(ocp_input_onebyte_translation_base+read_file_mode[m]-1);
-if new_input_ln(read_file[m],read_file_mode[m],
- read_file_translation[m],false) then read_open[m]:=normal
-else begin a_close(read_file[m]); read_open[m]:=closed;
- end
-end
-@z
-%---------------------------------------
-@x [27] m.486 l.9484 - Omega Translation
-begin if not input_ln(read_file[m],true) then
- begin a_close(read_file[m]); read_open[m]:=closed;
-@y
-begin if not new_input_ln(read_file[m],
-read_file_mode[m],read_file_translation[m],true) then
- begin a_close(read_file[m]); read_open[m]:=closed;
-@z
-%---------------------------------------
-@x [29] m.538 l.10371 - Omega Translation
-begin line:=1;
-if input_ln(cur_file,false) then do_nothing;
-@y
-begin line:=1;
-input_file_mode[index]:=
- get_file_mode(cur_file, equiv(ocp_input_mode_base));
-if input_file_mode[index]>0
-then input_file_translation[index]:=
- equiv(ocp_input_onebyte_translation_base+input_file_mode[index]-1);
-if new_input_ln(cur_file,input_file_mode[index],
- input_file_translation[index],false) then do_nothing;
-@z
-%---------------------------------------
-@x [49] m.1210 l.22629 - Omega Translation
-any_mode(ocp_trace_level) : prefixed_command;
-@y
-any_mode(ocp_trace_level) : prefixed_command;
-any_mode(char_mode) : do_char_mode;
-any_mode(char_trans) : do_char_translation;
-@z
-%---------------------------------------
-@x [49] m.1343 l.24928 - Omega Translation
-@!write_file:array[0..15] of alpha_file;
-@y
-@!write_file:array[0..15] of alpha_file;
-@!write_file_mode:array[0..15] of halfword;
-@!write_file_translation:array[0..15] of halfword;
-@z
-%---------------------------------------
-@x
-@* \[54] $\Omega$ changes.
-
-@y
-@* \[54] $\Omega$ changes.
-
-@ Here we do the main work required for reading and interpreting
- $\Omega$ Input Translation Processes.
-
-@ @<Put each...@>=
-primitive("InputTranslation", char_trans, trans_input);
-primitive("OutputTranslation", char_trans, trans_output);
-primitive("DefaultInputTranslation", char_trans, trans_default_input);
-primitive("DefaultOutputTranslation", char_trans, trans_default_output);
-primitive("noInputTranslation", char_trans, trans_no_input);
-primitive("noOutputTranslation", char_trans, trans_no_output);
-primitive("noDefaultInputTranslation", char_trans, trans_no_default_input);
-primitive("noDefaultOutputTranslation", char_trans, trans_no_default_output);
-primitive("InputMode", char_mode, mode_input);
-primitive("OutputMode", char_mode, mode_output);
-primitive("DefaultInputMode", char_mode, mode_default_input);
-primitive("DefaultOutputMode", char_mode, mode_default_output);
-primitive("noInputMode", char_mode, mode_no_input);
-primitive("noOutputMode", char_mode, mode_no_output);
-primitive("noDefaultInputMode", char_mode, mode_no_default_input);
-primitive("noDefaultOutputMode", char_mode, mode_no_default_output);
-
-geq_define(ocp_input_onebyte_translation_base, data, 0);
-geq_define(ocp_input_ebcdic_translation_base, data, 0);
-geq_define(ocp_input_twobyte_translation_base, data, 0);
-geq_define(ocp_input_twobyteLE_translation_base, data, 0);
-geq_define(ocp_input_UTF8_translation_base, data, 0);
-geq_define(ocp_input_UTF16_translation_base, data, 0);
-geq_define(ocp_input_UTF16LE_translation_base, data, 0);
-geq_define(ocp_input_mode_base, data, 0);
-
-geq_define(ocp_output_onebyte_translation_base, data, 0);
-geq_define(ocp_output_ebcdic_translation_base, data, 0);
-geq_define(ocp_output_twobyte_translation_base, data, 0);
-geq_define(ocp_output_twobyteLE_translation_base, data, 0);
-geq_define(ocp_output_UTF8_translation_base, data, 0);
-geq_define(ocp_output_UTF16_translation_base, data, 0);
-geq_define(ocp_output_UTF16LE_translation_base, data, 0);
-geq_define(ocp_output_mode_base, data, 0);
-
-@ @<Cases of |print_cmd_chr|...@>=
-char_trans:
- case chr_code of
- trans_input: print_esc("InputTranslation");
- trans_output: print_esc("OutputTranslation");
- trans_default_input: print_esc("DefaultInputTranslation");
- trans_default_output: print_esc("DefaultOutputTranslation");
- trans_no_input: print_esc("noInputTranslation");
- trans_no_output: print_esc("noOutputTranslation");
- trans_no_default_input: print_esc("noDefaultInputTranslation");
- trans_no_default_output: print_esc("noDefaultOutputTranslation");
- end;
-char_mode:
- case chr_code of
- mode_input: print_esc("InputMode");
- mode_output: print_esc("OutputMode");
- mode_default_input: print_esc("DefaultInputMode");
- mode_default_output: print_esc("DefaultOutputMode");
- mode_no_input: print_esc("noInputMode");
- mode_no_output: print_esc("noOutputMode");
- mode_no_default_input: print_esc("noDefaultInputMode");
- mode_no_default_output: print_esc("noDefaultOutputMode");
- end;
-
-@ @<Declare subprocedures for |prefixed_command|@>=
-procedure scan_file_referrent;
-begin
-if scan_keyword("currentfile") then cur_val:=max_halfword
-else scan_int;
-end;
-
-procedure scan_mode;
-begin
-if scan_keyword("onebyte") then cur_val:=onebyte_mode
-else if scan_keyword("ebcdic") then cur_val:=ebcdic_mode
-else if scan_keyword("twobyteLE") then cur_val:=twobyteLE_mode
-else if scan_keyword("twobyte") then cur_val:=twobyte_mode
-else if scan_keyword("UTF8") then cur_val:=UTF8_mode
-else if scan_keyword("UTF16LE") then cur_val:=UTF16LE_mode
-else if scan_keyword("UTF16") then cur_val:=UTF16_mode
-else begin print_err("Invalid input mode"); cur_val:=0; end;
-end;
-
-procedure do_char_translation;
-var kind:halfword;
- fileref:halfword;
- moderef:halfword;
- ocpref:halfword;
-begin
-fileref:=0;
-moderef:=0;
-ocpref:=0;
-kind:=cur_chr;
-if (kind mod 4) <= 1 then begin
- scan_file_referrent;
- fileref:=cur_val;
- end
-else begin
- scan_mode;
- moderef:=cur_val;
- end;
-if kind < 4 then begin
- scan_ocp_ident;
- ocpref:=cur_val;
- end;
-case (kind mod 4) of
- trans_input: begin
- if (fileref>=0) and (fileref<=15) then begin
- read_file_translation[fileref]:=ocpref;
- end
- else if fileref<>max_halfword then begin
- term_in_translation:=ocpref;
- end
- else begin
- base_ptr:=input_ptr; input_stack[base_ptr]:=cur_input;
- while state = token_list do
- begin
- decr(base_ptr);
- cur_input:=input_stack[base_ptr];
- end;
- if name>17 then input_file_translation[index]:=ocpref;
- cur_input:=input_stack[input_ptr];
- end;
- end;
- trans_output: begin
- if (fileref>=0) and (fileref<=15) then begin
- write_file_translation[fileref]:=ocpref;
- end
- else begin
- term_out_translation:=ocpref;
- end;
- end;
- trans_default_input: begin
- geq_define(ocp_input_mode_base+moderef,data,ocpref);
- end;
- trans_default_output: begin
- geq_define(ocp_output_mode_base+moderef,data,ocpref);
- end;
- end;
-end;
-
-procedure do_char_mode;
-var kind:halfword;
- fileref:halfword;
- moderef:halfword;
-begin
-fileref:=0;
-moderef:=0;
-kind:=cur_chr;
-if (kind mod 4) <= 1 then begin
- scan_file_referrent;
- fileref:=cur_val;
- end;
-if kind < 4 then begin
- scan_mode;
- moderef:=cur_val;
- end;
-case (kind mod 4) of
- trans_input: begin
- if (fileref>=0) and (fileref<=15) then begin
- read_file_mode[fileref]:=moderef;
- end
- else if fileref<>max_halfword then begin
- term_in_mode:=moderef;
- end
- else begin
- base_ptr:=input_ptr; input_stack[base_ptr]:=cur_input;
- while state = token_list do
- begin
- decr(base_ptr);
- cur_input:=input_stack[base_ptr];
- end;
- if name>17 then input_file_mode[index]:=moderef;
- cur_input:=input_stack[input_ptr];
- end;
- end;
- trans_output: begin
- if (fileref>=0) and (fileref<=15) then begin
- write_file_mode[fileref]:=moderef;
- end
- else begin
- term_out_mode:=moderef;
- end;
- end;
- trans_default_input: begin
- geq_define(ocp_input_mode_base,data,moderef);
- end;
- trans_default_output: begin
- geq_define(ocp_output_mode_base,data,moderef);
- end;
- end;
-end;
-
-function p_new_input_ln(f:alpha_file;
-the_mode,translation:halfword;
-bypass_eoln:boolean):boolean;
-begin
-if (the_mode=no_mode) or ((the_mode=onebyte_mode) and (translation=0))
-then p_new_input_ln:=input_ln(f,bypass_eoln)
-else if not newinputline(f,the_mode,bypass_eoln)
-then p_new_input_ln:=false
-else if translation=0 then
-begin
- if (first+otp_input_end)>=buf_size then overflow("buffer size", buf_size);
- state:=new_line;
- start:=first;
- last:=start;
- loc:=start;
- for otp_counter:=1 to otp_input_end do
- begin
- buffer[last]:=otp_input_buf[otp_counter];
- incr(last);
- end;
- while buffer[last-1]=' ' do decr(last);
- limit:=last-1;
- p_new_input_ln:=true
-end
-else
-begin
- otp_input_start:=0;
- otp_input_last:=0;
- otp_stack_used:=0;
- otp_stack_last:=0;
- otp_stack_new:=0;
- otp_output_end:=0;
- otp_pc:=0;
- otp_finished:=false;
- otp_calc_ptr:=0;
- otp_calcs[otp_calc_ptr]:=0;
- otp_state_ptr:=0;
- otp_states[otp_state_ptr]:=0;
- otp_input_ocp:=translation;
- while not otp_finished do
- @<Run the OTP program@>;
- if (first+otp_output_end)>=buf_size then overflow("buffer size", buf_size);
- state:=new_line;
- start:=first;
- last:=start;
- loc:=start;
- for otp_counter:=1 to otp_output_end do
- begin
- buffer[last]:=otp_output_buf[otp_counter];
- incr(last);
- end;
- while buffer[last-1]=' ' do decr(last);
- limit:=last-1;
- p_new_input_ln:=true
-end
-end;
-
-
-@z
-%---------------------------------------
diff --git a/Build/source/texk/web2c/omegadir/omxml.ch b/Build/source/texk/web2c/omegadir/omxml.ch
deleted file mode 100644
index db743bc06ad..00000000000
--- a/Build/source/texk/web2c/omegadir/omxml.ch
+++ /dev/null
@@ -1,2099 +0,0 @@
-% omxml.ch: Generate XML, MathML, HTML, etc.
-%
-% This file is part of Omega,
-% which is based on the web2c distribution of TeX,
-%
-% Copyright (c) 1994--2001 John Plaice and Yannis Haralambous
-%
-% Omega is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published by
-% the Free Software Foundation; either version 2 of the License, or
-% (at your option) any later version.
-%
-% Omega is distributed in the hope that it will be useful,
-% but WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with Omega; if not, write to the Free Software Foundation, Inc.,
-% 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-%
-%---------------------------------------
-@x [1] m.11 l.392 - Omega
-@!font_max=65535; {maximum internal font number; must be at most |font_biggest|}
-@y
-@!font_sort_max=65535; {maximum internal font sort number}
-@!font_max=65535; {maximum internal font number; must be at most |font_biggest|}
-@z
-%---------------------------------------
-@x [1] m.12 l.437 - Omega
-@d number_fonts=font_biggest-font_base+2
-@y
-@d number_fonts=font_biggest-font_base+2
-@d font_sort_base=0
-@d font_sort_biggest=65535 {the biggest font sort}
-@d number_font_sorts=font_sort_biggest-font_sort_base+2
-@z
-%---------------------------------------
-@x [5] m.57 l.1446 - Omega
-othercases write_ln(write_file[selector])
-@y
-othercases if selector>max_selector then
- write_ln(output_files[selector-max_selector])
- else
- write_ln(write_file[selector])
-@z
-%---------------------------------------
-@x [5] m.58 l.1465 - Omega
-othercases omega_file_write(selector)
-@y
-othercases if selector>max_selector then
- write(output_files[selector-max_selector],xchr[s])
- else
- omega_file_write(selector)
-@z
-%---------------------------------------
-@x [10] m.160 l.3270 - Omega
-@d biggest_ordinary_node=info_node
-@y
-
-@d sgml_text_node=0
-@d sgml_math_node=1
-@d sgml_vert_node=2
-
-@d sgml_node=info_node+1 {|type| for an SGML node}
-@d sgml_node_size=5
-@d sgml_tag(#)==mem[#+1].int
-@d sgml_attrs(#)==mem[#+2].int
-@d sgml_singleton(#)==info(#+3)
-@d sgml_info(#)==link(#+3)
-@d sgml_kind(#)==mem[#+4].int
-
-@d sgml_attr_node=info_node+2 {|type| for an SGML attribute node}
-@d sgml_attr_node_size=4
-
-@d sgml_entity_node=info_node+3 {|type| for an SGML entity node}
-@d sgml_entity_node_size=2
-@d sgml_entity_string(#)==mem[#+1].int
-
-@d biggest_ordinary_node=sgml_entity_node
-
-@p
-function new_sgml_node:pointer;
-var p:pointer;
-begin p:=get_node(sgml_node_size);
-type(p):=sgml_node;
-sgml_tag(p):=0;
-sgml_attrs(p):=0;
-sgml_info(p):=0;
-sgml_singleton(p):=0;
-sgml_kind(p):=0;
-new_sgml_node:=p;
-end;
-
-function new_sgml_attr_node:pointer;
-var p:pointer;
-begin p:=get_node(sgml_attr_node_size);
-type(p):=sgml_attr_node;
-sgml_tag(p):=0;
-sgml_attrs(p):=0;
-sgml_info(p):=0;
-sgml_singleton(p):=0;
-new_sgml_attr_node:=p;
-end;
-
-function new_sgml_entity_node:pointer;
-var p:pointer;
-begin p:=get_node(sgml_entity_node_size);
-type(p):=sgml_entity_node;
-sgml_entity_string(p):=0;
-new_sgml_entity_node:=p;
-end;
-@z
-%---------------------------------------
-@x [12] m.174 l.3520 - Omega
-@p procedure short_display(@!p:integer); {prints highlights of list |p|}
-var n:integer; {for replacement counts}
-begin while p>mem_min do
- begin if is_char_node(p) then
- begin if p<=mem_end then
- begin if font(p)<>font_in_short_display then
- begin if (font(p)<font_base)or(font(p)>font_max) then
- print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
- print_char(" "); font_in_short_display:=font(p);
- end;
- print_ASCII(qo(character(p)));
-@y
-@p procedure short_display(@!p:integer); {prints highlights of list |p|}
-var n:integer; {for replacement counts}
- fsort:integer;
-begin while p>mem_min do
- begin if is_char_node(p) then
- begin if p<=mem_end then
- begin if font(p)<>font_in_short_display then
- begin if (font(p)<font_base)or(font(p)>font_max) then
- print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
- print_char(" "); font_in_short_display:=font(p);
- end;
- if not SGML_show_entities then
- print_ASCII(qo(character(p)))
- else begin
- fsort:=font_name_sort(font(p));
- if fsort<>0 then begin
- if (font_sort_char_entity(fsort)(character(p))<>0) then
- slow_print(font_sort_char_entity(fsort)(character(p)))
- else
- print_ASCII(qo(character(p)));
- end
- else
- print_ASCII(qo(character(p)));
- end;
-@z
-%---------------------------------------
-@x [12] m.176 l.3563 - Omega
-procedure print_font_and_char(@!p:integer); {prints |char_node| data}
-begin if p>mem_end then print_esc("CLOBBERED.")
-else begin if (font(p)<font_base)or(font(p)>font_max) then print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
- print_char(" "); print_ASCII(qo(character(p)));
- end;
-end;
-@y
-procedure print_font_and_char(@!p:integer); {prints |char_node| data}
-var fsort:integer;
-begin if p>mem_end then print_esc("CLOBBERED.")
-else begin if (font(p)<font_base)or(font(p)>font_max) then print_char("*")
-@.*\relax@>
- else @<Print the font identifier for |font(p)|@>;
- print_char(" ");
- if not SGML_show_entities then
- print_ASCII(qo(character(p)))
- else begin
- fsort:=font_name_sort(font(p));
- if fsort<>0 then begin
- if (font_sort_char_entity(fsort)(character(p))<>0) then
- print(font_sort_char_entity(fsort)(character(p)))
- else
- print_ASCII(qo(character(p)));
- end
- else
- print_ASCII(qo(character(p)));
- end;
- end;
-end;
-@z
-%---------------------------------------
-@x [13] m.202 l.3928 - Omega
- adjust_node: flush_node_list(adjust_ptr(p));
-@y
- adjust_node: flush_node_list(adjust_ptr(p));
- sgml_node: begin
- if sgml_tag(p)<>0 then flush_node_list(sgml_attrs(p));
- free_node(p,sgml_node_size); goto done;
- end;
- sgml_attr_node: begin
- free_node(p,sgml_attr_node_size); goto done;
- end;
- sgml_entity_node: begin
- free_node(p,sgml_entity_node_size); goto done;
- end;
-@z
-%---------------------------------------
-@x [15] m.209 l.4138 - Omega
-@d max_command=char_mode
- {the largest command code seen at |big_switch|}
-@y
-@d set_show_sgml_entities=char_mode+1
- {printing hex code or SGML-like entity during \.{\\showbox}}
-@d set_mml_mode=set_show_sgml_entities+1
- {for entering or leaving MML mode ( \.{\\mmlmode}~)}
-@d sgml_command=set_mml_mode+1
- {for various SGML tags}
-@d max_command=sgml_command
- {the largest command code seen at |big_switch|}
-@z
-%---------------------------------------
-@x [16] m.212--217 l.4303 - Omega
- @!pg_field,@!ml_field: integer;@+
-@y
- @!pg_field,@!ml_field: integer;@+
- @!sgml_field: integer;
- @!sgml_attr_field: pointer;
-@z
-%---------------------------------------
-@x [16] m.212--217 l.4303 - Omega
-@d mode_line==cur_list.ml_field {source file line number at beginning of list}
-@y
-@d mode_line==cur_list.ml_field {source file line number at beginning of list}
-@d current_sgml_tag==cur_list.sgml_field {current SGML tag}
-@d current_sgml_attrs==cur_list.sgml_attr_field {current SGML tag}
-@z
-%---------------------------------------
-@x [16] m.212--217 l.4303 - Omega
-prev_graf:=0; shown_mode:=0;
-@y
-prev_graf:=0; shown_mode:=0;
-current_sgml_tag:=0; current_sgml_attrs:=null;
-@z
-%---------------------------------------
-@x [16] m.212--217 l.4303 - Omega
-incr(nest_ptr); head:=get_avail; tail:=head; prev_graf:=0; mode_line:=line;
-@y
-incr(nest_ptr); head:=get_avail; tail:=head; prev_graf:=0; mode_line:=line;
-current_sgml_tag:=0; current_sgml_attrs:=null;
-@z
-%---------------------------------------
-@x [16] m.212--217 l.4303 - Omega
-@p procedure pop_nest; {leave a semantic level, re-enter the old}
-begin free_avail(head); decr(nest_ptr); cur_list:=nest[nest_ptr];
-end;
-@y
-@p procedure pop_nest; {leave a semantic level, re-enter the old}
-var attrs:pointer;
- {p:pointer;}
-begin attrs:=null;
-{
-if current_sgml_attrs<>null then
- if current_sgml_tag=null then
- attrs:=current_sgml_attrs
- else
- free_avail(current_sgml_attrs);
-}
-free_avail(head); decr(nest_ptr); cur_list:=nest[nest_ptr];
-{
-if attrs<>null then begin
- p:=attrs;
- while link(p)<>null do
- begin
- p:=link(p);
- end;
- link(p):=current_sgml_attrs;
- current_sgml_attrs:=attrs;
- end;
-}
-end;
-@z
-%---------------------------------------
-@x [17] m.222 l.4525 - Omega
-@d frozen_null_ocp=frozen_null_font+number_fonts
-@y
-@d frozen_null_font_sort=frozen_null_font+number_font_sorts {permanent null sort}
-@d frozen_null_ocp=frozen_null_font_sort+number_font_sorts
-@z
-%---------------------------------------
-@x [17] m.232 l.4802 - Omega
-@d var_code==@"7000000 {math code meaning ``use the current family''}
-@y
-@d null_font_sort==font_sort_base
-@d var_code==@"7000000 {math code meaning ``use the current family''}
-@z
-%---------------------------------------
-@x [19] m.269 l.5859 - Omega
-@d math_left_group=16 {code for `\.{\\left...\\right}'}
-@d local_box_group=17 {code for `\.{\\localleftbox...\\localrightbox}'}
-@d max_group_code=17
-@y
-@d math_left_group=16 {code for `\.{\\left...\\right}'}
-@d math_mml_group=17 {code for automatic `\.{\\left...\\right}'}
-@d text_mml_group=18 {code for `\.{\\text...}'}
-@d text_sgml_group=19 {code for horizontal SGML tags}
-@d vert_sgml_group=20 {code for vertical SGML tags}
-@d par_sgml_group=21 {code for paragraph SGML tags}
-@d font_entity_group=22
-@d empty_tag_group=23
-@d local_box_group=24 {code for `\.{\\localleftbox...\\localrightbox}'}
-@d max_group_code=24
-@z
-%---------------------------------------
-@x [29] m.532 l.10260 - Omega
-@ Here's an example of how these conventions are used. Whenever it is time to
-ship out a box of stuff, we shall use the macro |ensure_dvi_open|.
-
-@d ensure_dvi_open==if output_file_name=0 then
- begin if job_name=0 then open_log_file;
- pack_job_name(".dvi");
- while not b_open_out(dvi_file) do
- prompt_file_name("file name for output",".dvi");
- output_file_name:=b_make_name_string(dvi_file);
- end
-
-@<Glob...@>=
-@!dvi_file: byte_file; {the device-independent output goes here}
-@!output_file_name: str_number; {full name of the output file}
-@!log_name:str_number; {full name of the log file}
-@y
-@ Here's an example of how these conventions are used. Whenever it is time to
-ship out a box of stuff, we shall use the macro |ensure_dvi_open|.
-
-@d ensure_output_open_end(#)==while not b_open_out(#) do
- prompt_file_name("file name for output",output_m_suffix);
- output_m_name:=b_make_name_string(#);
- end end
-
-@d ensure_output_open_middle(#)==output_m_name:=#; if #=0 then
- begin if job_name=0 then open_log_file;
- pack_job_name(output_m_suffix);
- ensure_output_open_end
-
-@d ensure_output_open(#)==begin output_m_suffix:=#; ensure_output_open_middle
-
-@d ensure_dvi_open==begin
- ensure_output_open(".dvi")(output_file_name)(dvi_file);
- output_file_name:=output_m_name end
-
-@<Glob...@>=
-@!dvi_file: byte_file; {the device-independent output goes here}
-@!output_file_name: str_number; {full name of the dvi output file}
-@!output_m_suffix: str_number; {suffix for the current output file}
-@!output_m_name: str_number; {suffix for the current output file}
-@!output_file_names:array[1..10] of str_number;
-@!output_files:array[1..10] of byte_file;
-@!output_file_no:integer; {number of open output files}
-@!log_name:str_number; {full name of the log file}
-@!sgml_file_suffix:str_number; {suffix for the output file}
-@!sgml_attribute_quote:str_number; {string for quoting attribute values}
-@!sgml_empty_tag_marker:str_number; {string for marking empty tags}
-@!sgml_paragraph_tag:str_number; {tag to designate paragraphs}
-@z
-%---------------------------------------
-@x [29] m.533 l.10260 - Omega
-@ @<Initialize the output...@>=output_file_name:=0;
-@y
-@ @<Initialize the output...@>=output_file_name:=0;
-for output_file_no:=1 to 10 do output_file_names[output_file_no]:=0;
-sgml_file_suffix:=".xml";
-sgml_attribute_quote:="""";
-sgml_empty_tag_marker:="/";
-output_file_no:=0;
-@z
-%---------------------------------------
-@x [30] m.549 l.10686 - Omega
-@!font_ptr:internal_font_number; {largest internal font number in use}
-@y
-@!font_ptr:internal_font_number; {largest internal font number in use}
-@!font_sort_ptr:integer; {largest internal font sort number in use}
-@z
-%---------------------------------------
-@x [30] m.550 l.10723 - Omega
-@d param_base(#)==font_info(#)(offset_param_base).int
-@y
-@d param_base(#)==font_info(#)(offset_param_base).int
-
-@d font_sort_info_end(#)==#]
-@d font_sort_info(#)==font_sort_tables[#,font_sort_info_end
-@d font_sort_offset_file_size=0
-@d font_sort_offset_name=font_sort_offset_file_size+1
-@d font_sort_offset_bc=font_sort_offset_name+1
-@d font_sort_offset_ec=font_sort_offset_bc+1
-@d font_sort_offset_char_base=font_sort_offset_bc+1
-@d font_sort_file_size(#)==font_sort_info(#)(font_sort_offset_file_size).int
-@d font_sort_name(#)==font_sort_info(#)(font_sort_offset_name).int
-@d font_sort_bc(#)==font_sort_info(#)(font_sort_offset_bc).int
-@d font_sort_ec(#)==font_sort_info(#)(font_sort_offset_ec).int
-@d font_sort_char_base(#)==font_sort_info(#)(font_sort_offset_char_base).int
-@d font_sort_char_entity_end(#)==#*3].int
-@d font_sort_char_entity(#)==
- font_sort_tables[#,font_sort_offset_char_base+font_sort_char_entity_end
-@d font_sort_char_tag_end(#)==#*3+1].int
-@d font_sort_char_tag(#)==
- font_sort_tables[#,font_sort_offset_char_base+font_sort_char_tag_end
-@d font_sort_char_attr_end(#)==#*3+2].int
-@d font_sort_char_attr(#)==
- font_sort_tables[#,font_sort_offset_char_base+font_sort_char_attr_end
-@z
-%---------------------------------------
-@x [30] m.550 l.10723 - Omega
-@!dimen_font:integer;
-@y
-@!dimen_font:integer;
-@!font_sorts:integer; {to run through font sorts}
-@!font_sort_c:integer; {character used to define font entities}
-@!font_sort_number:integer; {this particular font sort number}
-@z
-%---------------------------------------
-@x [30] m.552 l.10749 - Omega
-for k:=1 to 7 do font_info(null_font)(param_base(null_font)+k).sc:=0;
-@y
-for k:=1 to 7 do font_info(null_font)(param_base(null_font)+k).sc:=0;
-font_sort_ptr:=null_font_sort;
-allocate_font_sort_table(null_font_sort,font_sort_offset_char_base);
-font_sort_file_size(null_font_sort):=font_sort_offset_char_base;
-font_sort_name(null_font_sort):="nullfontsort";
-@z
-%---------------------------------------
-@x [32] m.638 l.12656 - Omega
-@<Ship box |p| out@>;
-@y
-if not SGML_mode then begin @<Ship box |p| out@>; end;
-@z
-%---------------------------------------
-@x [46] m.1030
-hmode+spacer: if space_factor=1000 then goto append_normal_space
- else app_space;
-hmode+ex_space,mmode+ex_space: goto append_normal_space;
-@y
-hmode+spacer:
- if SGML_mode then begin
- make_sgml_entity(" ");
- goto big_switch;
- end
- else if space_factor=1000 then goto append_normal_space
- else app_space;
-hmode+ex_space,mmode+ex_space: goto append_normal_space;
-@z
-%---------------------------------------
-@x [47] m.1060 l.20533 - Omega
-procedure append_glue;
-var s:small_number; {modifier of skip command}
-begin s:=cur_chr;
-case s of
-fil_code: cur_val:=fil_glue;
-fill_code: cur_val:=fill_glue;
-ss_code: cur_val:=ss_glue;
-fil_neg_code: cur_val:=fil_neg_glue;
-skip_code: scan_glue(glue_val);
-mskip_code: scan_glue(mu_val);
-end; {now |cur_val| points to the glue specification}
-tail_append(new_glue(cur_val));
-if s>=skip_code then
- begin decr(glue_ref_count(cur_val));
- if s>skip_code then subtype(tail):=mu_glue;
- end;
-end;
-@y
-procedure append_glue;
-var s:small_number; {modifier of skip command}
-begin s:=cur_chr;
-case s of
-fil_code: cur_val:=fil_glue;
-fill_code: cur_val:=fill_glue;
-ss_code: cur_val:=ss_glue;
-fil_neg_code: cur_val:=fil_neg_glue;
-skip_code: scan_glue(glue_val);
-mskip_code: scan_glue(mu_val);
-end; {now |cur_val| points to the glue specification}
-if (abs(mode)=mmode) and SGML_mode then begin
- end
-else begin
- tail_append(new_glue(cur_val));
- if s>=skip_code then
- begin decr(glue_ref_count(cur_val));
- if s>skip_code then subtype(tail):=mu_glue;
- end;
- end;
-end;
-@z
-%---------------------------------------
-@x [47] m.1061 l.20339 - Omega
-procedure append_kern;
-var s:quarterword; {|subtype| of the kern node}
-begin s:=cur_chr; scan_dimen(s=mu_glue,false,false);
-tail_append(new_kern(cur_val)); subtype(tail):=s;
-end;
-@y
-procedure append_kern;
-var s:quarterword; {|subtype| of the kern node}
-begin s:=cur_chr; scan_dimen(s=mu_glue,false,false);
-if (abs(mode)=mmode) and SGML_mode then begin
- end
-else begin
- tail_append(new_kern(cur_val)); subtype(tail):=s;
- end;
-end;
-@z
-%---------------------------------------
-@x [47] m.1073 l.20795 - Omega
-vmode+hmove,hmode+vmove,mmode+vmove: begin t:=cur_chr;
- scan_normal_dimen;
- if t=0 then scan_box(cur_val)@+else scan_box(-cur_val);
- end;
-any_mode(leader_ship): scan_box(leader_flag-a_leaders+cur_chr);
-any_mode(make_box): begin_box(0);
-@y
-vmode+hmove,hmode+vmove,mmode+vmove: begin
- if abs(mode)=mmode and SGML_mode then begin
- print_err("Unauthorized entry in math expression: ");
- print_cmd_chr(cur_cmd,cur_chr); print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end
- else begin
- t:=cur_chr; scan_normal_dimen;
- if t=0 then scan_box(cur_val)@+else scan_box(-cur_val);
- end;
- end;
-any_mode(leader_ship): begin
- if abs(mode)=mmode and SGML_mode then begin
- print_err("Unauthorized entry in math expression: ");
- print_cmd_chr(cur_cmd,cur_chr); print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end
- else
- scan_box(leader_flag-a_leaders+cur_chr);
- end;
-any_mode(make_box): begin
- if abs(mode)=mmode and SGML_mode then begin
- print_err("Unauthorized entry in math expression: ");
- print_cmd_chr(cur_cmd,cur_chr); print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end
- else
- begin_box(0);
- end;
-@z
-%---------------------------------------
-@x [47] m. l.21055 - Omega
-procedure new_graf(@!indented:boolean);
-begin prev_graf:=0;
-if (mode=vmode)or(head<>tail) then
- tail_append(new_param_glue(par_skip_code));
-push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-prev_graf:=(norm_min(left_hyphen_min)*@'100+norm_min(right_hyphen_min))
- *@'200000+cur_lang;
-tmp_dir_stack:=get_avail; info(tmp_dir_stack):=par_direction;
-link(tmp_dir_stack):=par_dir_stack;
-par_dir_stack:=tmp_dir_stack;
-if indented then
- begin tail:=new_null_box; link(head):=tail; width(tail):=par_indent;@+
- box_dir(tail):=info(par_dir_stack);
- change_dir(tail,info(par_dir_stack));
- end;
-if every_par<>null then begin_token_list(every_par,every_par_text);
-if nest_ptr=1 then build_page; {put |par_skip| glue on current page}
-end;
-@y
-procedure sgml_start_graf; forward;
-
-procedure new_graf(@!indented:boolean);
-begin prev_graf:=0;
-if SGML_mode then begin
- sgml_start_graf
- end
-else begin
-if (mode=vmode)or(head<>tail) then
- tail_append(new_param_glue(par_skip_code));
-push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang;
-prev_graf:=(norm_min(left_hyphen_min)*@'100+norm_min(right_hyphen_min))
- *@'200000+cur_lang;
-tmp_dir_stack:=get_avail; info(tmp_dir_stack):=par_direction;
-link(tmp_dir_stack):=par_dir_stack;
-par_dir_stack:=tmp_dir_stack;
-if indented then
- begin tail:=new_null_box; link(head):=tail; width(tail):=par_indent;@+
- box_dir(tail):=info(par_dir_stack);
- change_dir(tail,info(par_dir_stack));
- end;
-if every_par<>null then begin_token_list(every_par,every_par_text);
-if nest_ptr=1 then build_page; {put |par_skip| glue on current page}
-end;
-end;
-@z
-%---------------------------------------
-@x [47] m.1100 l.21156 - Omega
-procedure end_graf;
-begin if mode=hmode then
- begin if head=tail then pop_nest {null paragraphs are ignored}
- else line_break(widow_penalty,info(par_dir_stack));
- tmp_dir_stack:=par_dir_stack;
- par_dir_stack:=link(par_dir_stack);
- free_avail(tmp_dir_stack);
- normal_paragraph;
- error_count:=0;
- end;
-end;
-@y
-procedure sgml_end_graf; forward;
-
-procedure end_graf;
-begin if mode=hmode then
- begin if head=tail then pop_nest {null paragraphs are ignored}
- else if SGML_mode then begin sgml_end_graf end
- else line_break(widow_penalty,info(par_dir_stack));
- tmp_dir_stack:=par_dir_stack;
- par_dir_stack:=link(par_dir_stack);
- free_avail(tmp_dir_stack);
- normal_paragraph;
- error_count:=0;
- end;
-end;
-@z
-%---------------------------------------
-@x [47] m.1130 l.21562 - Omega
-vmode+halign,hmode+valign:init_align;
-mmode+halign: if privileged then
- if cur_group=math_shift_group then init_align
- else off_save;
-vmode+endv,hmode+endv: do_endv;
-@y
-vmode+halign,hmode+valign:init_align;
-mmode+halign: if SGML_mode then begin
- print_err("Unauthorized entry in math expression: ");
- print_esc("halign"); print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end
- else begin
- if privileged then
- if cur_group=math_shift_group then init_align
- else off_save;
- end;
-vmode+endv,hmode+endv: do_endv;
-@z
-%---------------------------------------
-@x [48] m.1136 l.21605 - Omega
-@* \[48] Building math lists.
-The routines that \TeX\ uses to create mlists are similar to those we have
-just seen for the generation of hlists and vlists. But it is necessary to
-make ``noads'' as well as nodes, so the reader should review the
-discussion of math mode data structures before trying to make sense out of
-the following program.
-
-Here is a little routine that needs to be done whenever a subformula
-is about to be processed. The parameter is a code like |math_group|.
-
-@<Declare act...@>=
-procedure push_math(@!c:group_code);
-begin
-push_nest; mode:=-mmode; incompleat_noad:=null; new_save_level(c);
-make_local_direction(info(math_dir_stack),true);
-end;
-@y
-@* \[48] Building math lists.
-The routines that \TeX\ uses to create mlists are similar to those we have
-just seen for the generation of hlists and vlists. But it is necessary to
-make ``noads'' as well as nodes, so the reader should review the
-discussion of math mode data structures before trying to make sense out of
-the following program.
-
-Here is a little routine that needs to be done whenever a subformula
-is about to be processed. The parameter is a code like |math_group|.
-
-@<Glob...@>=
-@!SGML_mode:boolean;
-@!SGML_show_entities:boolean;
-@!MML_level:integer;
-@!mml_file_no:integer; {the \.{MML} output file}
-@!mml_indent:integer;
-@!mml_depth_level:integer;
-@!tmp_back_at_bol:boolean;
-
-@ @<Set init...@>=
-SGML_mode:=false;
-SGML_show_entities:=true;
-MML_level:=0;
-mml_indent:=0;
-mml_file_no:=0;
-mml_depth_level:=0;
-
-@
-
-@d sgml_out_pointer(#)==
- case math_type(#(p)) of
- math_char: begin
- fetch(#(p));
- fsort:=font_name_sort(cur_f);
- if char_exists(cur_i) then begin
- if (font_sort_char_tag(fsort)(cur_c)<>0) then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- print("<"); print(font_sort_char_tag(fsort)(cur_c));
- if (font_sort_char_attr(fsort)(cur_c)<>null) then begin
- sgml_attrs_out(font_sort_char_attr(fsort)(cur_c));
- end;
- print(">");
- if (font_sort_char_entity(fsort)(cur_c)<>0) then begin
- print(font_sort_char_entity(fsort)(cur_c));
- end;
- print("</"); print(font_sort_char_tag(fsort)(cur_c));
- print(">");
- print(new_line_char);
- back_at_bol:=true;
- end;
- end;
- end;
- sub_mlist: begin
- case type(p) of
- op_noad,bin_noad,rel_noad,
- open_noad,close_noad,punct_noad,inner_noad: begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- print("<mo");
- if (type(p)=op_noad) and (subtype(p)=limits) then begin
- print(" limits=""true""");
- end
- else if (type(p)=op_noad) and (subtype(p)=no_limits) then begin
- print(" limits=""false""");
- end;
- print(">");
- mml_indent:=mml_indent+1;
- print(new_line_char);
- back_at_bol:=true;
- q:=p; cur_mlist:=info(#(p));
- if link(cur_mlist)=null then
- if type(cur_mlist)=sgml_node then
- if str_eq_str(sgml_tag(cur_mlist),"mrow") then
- cur_mlist:=sgml_info(cur_mlist);
- back_at_bol:=sgml_out_mlist(false,back_at_bol,false); p:=q;
- mml_indent:=mml_indent-1;
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- print("</mo>");
- print(new_line_char);
- back_at_bol:=true;
- end;
- othercases begin
- q:=p; cur_mlist:=info(#(p));
- back_at_bol:=sgml_out_mlist(false,back_at_bol,false); p:=q;
- end
- endcases;
- end;
- othercases begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- print("<merror> Unrecognized math stuff </merror>");
- print(new_line_char);
- back_at_bol:=true;
- end
- endcases;
-
-@<Declare act...@>=
-procedure push_math(@!c:group_code);
-begin
-push_nest; mode:=-mmode; incompleat_noad:=null; new_save_level(c);
-make_local_direction(info(math_dir_stack),true);
-end;
-
-function sgml_out_on_one_line(p:pointer):boolean;
-begin
-if (sgml_tag(p)="mi") or (sgml_tag(p)="mo") or (sgml_tag(p)="mn") then
- sgml_out_on_one_line:=true
-else sgml_out_on_one_line:=false;
-end;
-
-procedure sgml_attrs_out(p:pointer);
-var q:pointer;
-begin
-q:=p;
-while q<>null do begin
- print(" ");
- print(sgml_tag(q)); print("=");
- print(sgml_attribute_quote);
- print(sgml_attrs(q));
- print(sgml_attribute_quote);
- q:=link(q);
- end;
-end;
-
-function sgml_out_mlist(break_line,back_at_bol,inside_vert:boolean):boolean;
-var p,q:pointer;
- old_selector:integer;
- i,fsort:integer;
- beg_of_vert:boolean;
- doing_vert_node:boolean;
- save_mml_indent:integer;
-begin
-if inside_vert then begin
- if is_char_node(cur_mlist) then beg_of_vert:=false
- else if type(cur_mlist)=sgml_entity_node then beg_of_vert:=true
- else beg_of_vert:=false;
- end
-else beg_of_vert:=false;
-old_selector:=selector;
-selector:=max_selector+mml_file_no;
-p:=cur_mlist;
-while p<>null do begin
- if is_char_node(p) then begin
- doing_vert_node:=false;
- fsort:=font_name_sort(font(p));
- if (font_sort_char_entity(fsort)(character(p))<>0) then begin
- if back_at_bol then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- end;
- print(font_sort_char_entity(fsort)(character(p)));
- end;
- end
- else begin
- case type(p) of
- hlist_node,vlist_node,rule_node,
- ins_node,mark_node,adjust_node: do_nothing;
- ligature_node: begin
- doing_vert_node:=false;
- fsort:=font_name_sort(font(lig_char(p)));
- if (font_sort_char_entity(fsort)(character(lig_char(p)))<>0) then begin
- if back_at_bol then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- end;
- print(font_sort_char_entity(fsort)(character(lig_char(p))));
- end;
- end;
- disc_node,whatsit_node,math_node,glue_node,
- kern_node,penalty_node,unset_node: do_nothing;
- sgml_node: begin
- doing_vert_node:=false;
- if sgml_tag(p)=0 then begin
- print(sgml_attrs(p));
- end
- else if sgml_singleton(p)>=1 then begin
- if sgml_kind(p)<>sgml_text_node then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- end;
- print("<"); print(sgml_tag(p));
- sgml_attrs_out(sgml_attrs(p));
- if sgml_singleton(p)=1 then print(sgml_empty_tag_marker);
- print(">");
- if sgml_kind(p)<>sgml_text_node then begin
- print(new_line_char); back_at_bol:=true;
- end;
- end
- else begin
- if sgml_kind(p)=sgml_vert_node then
- doing_vert_node:=true;
- if str_eq_str(sgml_tag(p),"math") then begin
- print(new_line_char);
- back_at_bol:=true;
- end;
- if back_at_bol then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- end;
- print("<"); print(sgml_tag(p));
- sgml_attrs_out(sgml_attrs(p)); print(">");
- if (sgml_kind(p)<>sgml_text_node) and
- (sgml_tag(p)<>"mtext") then begin
- if not(sgml_out_on_one_line(p)) then begin
- mml_indent:=mml_indent+1;
- print(new_line_char);
- back_at_bol:=true;
- end;
- end;
- cur_mlist:=sgml_info(p);
- if cur_mlist<>null then begin
- if (sgml_kind(p)=sgml_vert_node) then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- end;
- back_at_bol:=
- sgml_out_mlist(false,back_at_bol,sgml_kind(p)=sgml_vert_node);
- if (sgml_kind(p)=sgml_vert_node) then
- if not back_at_bol then begin
- print(new_line_char);
- back_at_bol:=true;
- end;
- end;
- if (sgml_kind(p)<>sgml_text_node) and
- (sgml_tag(p)<>"mtext") then begin
- if not(sgml_out_on_one_line(p)) then begin
- mml_indent:=mml_indent-1;
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- end;
- end;
- print("</"); print(sgml_tag(p)); print(">");
- if sgml_kind(p)<>sgml_text_node then begin
- print(new_line_char);
- back_at_bol:=true;
- end;
- if sgml_kind(p)=sgml_vert_node then
- beg_of_vert:=true;
- if str_eq_str(sgml_tag(p),"math") then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- end;
- end;
- end;
- sgml_entity_node: begin
- if not(doing_vert_node and (sgml_entity_string(p)=" ")) then begin
- print(sgml_entity_string(p));
- doing_vert_node:=false;
- beg_of_vert:=false;
- back_at_bol:=false;
- end;
- end;
- fraction_noad: begin
- doing_vert_node:=false;
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- print("<mfrac>Arguments</mfrac>");
- print(new_line_char); back_at_bol:=true;
- end;
- othercases begin
- doing_vert_node:=false;
- if (info(subscr(p))<>null) or
- (info(supscr(p))<>null) then begin
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- print("<m");
- if info(subscr(p))<>empty then print("sub");
- if info(supscr(p))<>empty then print("sup");
- print(">");
- mml_indent:=mml_indent+1;
- print(new_line_char);
- back_at_bol:=true;
- end;
- sgml_out_pointer(nucleus);
- if (info(subscr(p))<>null) or
- (info(supscr(p))<>null) then begin
- if info(subscr(p))<>null then begin
- sgml_out_pointer(subscr);
- end;
- if info(supscr(p))<>null then begin
- sgml_out_pointer(supscr);
- end;
- mml_indent:=mml_indent-1;
- for i:=1 to mml_indent do print(" ");
- back_at_bol:=false;
- print("</m");
- if info(subscr(p))<>null then print("sub");
- if info(supscr(p))<>null then print("sup");
- print(">");
- print(new_line_char);
- back_at_bol:=true;
- end;
- end;
- endcases;
- end;
- p:=link(p);
- if not(doing_vert_node) then
- if p<>null then
- if not(is_char_node(p)) then
- if type(p)=sgml_node then
- if sgml_kind(p)=sgml_vert_node then begin
- print(new_line_char);
- back_at_bol:=true;
- end;
- end;
-selector:=old_selector;
-sgml_out_mlist:=back_at_bol;
-end;
-
-procedure make_sgml_entity(s:str_number);
-begin
-link(tail):=new_sgml_entity_node;
-tail:=link(tail);
-sgml_entity_string(tail):=s;
-end;
-
-procedure scan_font_entity;
-var cv1,cv2,cv3,cv4:integer;
-begin
-scan_string_argument; cv1:=cur_val;
-scan_left_brace; scan_int; cv2:=cur_val; scan_right_brace;
-scan_string_argument; cv3:=cur_val;
-scan_string_argument; cv4:=cur_val;
-save_ptr:=save_ptr+4;
-saved(-1):=cv1; saved(-2):=cv2; saved(-3):=cv3; saved(-4):=cv4;
-new_save_level(font_entity_group); scan_left_brace; push_nest;
-end;
-
-procedure scan_empty_tag;
-begin
-scan_string_argument;
-link(tail):=new_sgml_node;
-tail:=link(tail);
-sgml_tag(tail):=cur_val;
-sgml_kind(tail):=sgml_text_node;
-sgml_singleton(tail):=1;
-incr(save_ptr); saved(-1):=tail;
-new_save_level(empty_tag_group); scan_left_brace; push_nest;
-end;
-
-procedure scan_math_empty_tag;
-begin
-scan_string_argument;
-link(tail):=new_sgml_node;
-tail:=link(tail);
-sgml_tag(tail):=cur_val;
-sgml_kind(tail):=sgml_math_node;
-sgml_singleton(tail):=1;
-incr(save_ptr); saved(-1):=tail;
-new_save_level(empty_tag_group); scan_left_brace; push_nest;
-end;
-
-procedure sgml_startmathtag(s:str_number);
-begin
-push_math(math_group); current_sgml_tag:=s;
-end;
-
-
-procedure sgml_startverttag(s:str_number);
-begin
-push_nest; new_save_level(vert_sgml_group);
-current_sgml_tag:=s;
-mode:=-hmode;
-end;
-
-procedure sgml_startpartag(s:str_number);
-begin
-push_nest; new_save_level(par_sgml_group);
-current_sgml_tag:=s;
-mode:=-hmode;
-end;
-
-procedure sgml_starttexttag(s:str_number);
-begin
-push_nest; new_save_level(text_sgml_group);
-current_sgml_tag:=s;
-mode:=-hmode;
-end;
-
-
-procedure sgml_tag_attribute(tag,s,s1:str_number);
-var p:pointer;
- nest_level:integer;
- found_tag:boolean;
-begin
-p:=new_sgml_attr_node;
-sgml_tag(p):=s;
-sgml_attrs(p):=s1;
-sgml_singleton(p):=0;
-if str_eq_str(tag,current_sgml_tag) then begin
- link(p):=current_sgml_attrs;
- current_sgml_attrs:=p;
- end
-else begin
- nest_level:= nest_ptr - 1;
- found_tag:=false;
- while (nest_level>0) and
- (not str_eq_str(nest[nest_level].sgml_field,tag)) do
- decr(nest_level);
- if nest_level<>0 then begin
- link(p):=nest[nest_level].sgml_attr_field;
- nest[nest_level].sgml_attr_field:=p;
- end
- else begin
- print("Tag not found in call to SGMLtagattribute"); print_ln;
- end;
- end;
-end;
-
-procedure sgml_attribute(s,s1:str_number);
-var p,q:pointer;
-begin
-p:=new_sgml_attr_node;
-sgml_tag(p):=s;
-sgml_attrs(p):=s1;
-sgml_singleton(p):=0;
-link(p):=null;
-if current_sgml_attrs=null then
- current_sgml_attrs:=p
-else begin
- q:=current_sgml_attrs;
- while link(q)<>null do q:=link(q);
- link(q):=p;
- end;
-end;
-
-procedure sgml_endtexttag(s:str_number);
-var q:pointer;
-begin
-if not str_eq_str(s,current_sgml_tag) then begin
- print_err("Tags do not match: ");
- print(current_sgml_tag); print(","); print(s);
- print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end;
-q:=new_sgml_node;
-sgml_tag(q):=s;
-sgml_kind(q):=sgml_text_node;
-sgml_info(q):=link(head);
-sgml_attrs(q):=current_sgml_attrs;
-pop_nest;
-unsave;
-if mode=vmode then begin
- ensure_sgml_open;
- cur_mlist:=q;
- tmp_back_at_bol:=sgml_out_mlist(false,true,false);
- end
-else begin
- link(tail):=q;
- tail:=q;
- end;
-end;
-
-procedure sgml_endverttag(s:str_number);
-var q:pointer;
-begin
-if not str_eq_str(s,current_sgml_tag) then begin
- print_err("Tags do not match: ");
- print(current_sgml_tag); print(","); print(s);
- print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end;
-q:=new_sgml_node;
-sgml_tag(q):=s;
-sgml_kind(q):=sgml_vert_node;
-sgml_info(q):=link(head);
-sgml_attrs(q):=current_sgml_attrs;
-pop_nest;
-unsave;
-if mode=vmode then begin
- ensure_sgml_open;
- cur_mlist:=q;
- tmp_back_at_bol:=sgml_out_mlist(false,true,false);
- end
-else begin
- link(tail):=q;
- tail:=q;
- end;
-end;
-
-procedure sgml_endpartag(s:str_number);
-var q:pointer;
-begin
-if not str_eq_str(s,current_sgml_tag) then begin
- print_err("Tags do not match: ");
- print(current_sgml_tag); print(","); print(s);
- print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end;
-q:=new_sgml_node;
-sgml_tag(q):=s;
-sgml_kind(q):=sgml_vert_node;
-sgml_info(q):=link(head);
-sgml_attrs(q):=current_sgml_attrs;
-pop_nest;
-unsave;
-if sgml_info(q)=null then begin
- flush_node_list(q);
- end
-else if mode=vmode then begin
- ensure_sgml_open;
- cur_mlist:=q;
- tmp_back_at_bol:=sgml_out_mlist(false,true,false);
- end
-else begin
- link(tail):=q;
- tail:=q;
- end;
-end;
-
-procedure sgml_write(s:str_number);
-var old_selector:integer;
-begin
-ensure_sgml_open;
-old_selector:=selector;
-selector:=max_selector+mml_file_no;
-print(s);
-selector:=old_selector;
-end;
-
-procedure sgml_endmathtag(s:str_number);
-var q:pointer;
-begin
-if not str_eq_str(s,current_sgml_tag) then begin
- print_err("Tags do not match: ");
- print(current_sgml_tag); print(","); print(s);
- print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end;
-q:=new_sgml_node;
-sgml_tag(q):=s;
-sgml_kind(q):=sgml_math_node;
-if s<>"mtext" then sgml_attrs(q):=current_sgml_attrs;
-sgml_info(q):=link(head);
-if current_sgml_attrs=null then
- if (link(head)<>null) then
- if (str_eq_str(s,"mtr") or str_eq_str(s,"mtd")) and
- (link(link(head))=null) then begin
- q:=sgml_info(q);
- end;
-pop_nest;
-unsave;
-link(tail):=q;
-tail:=q;
-end;
-
-procedure sgml_start_graf;
-begin
-print("Executing sgml_start_graf"); print_ln;
-sgml_starttexttag(sgml_paragraph_tag);
-end;
-
-procedure sgml_end_graf;
-begin
-sgml_endtexttag(sgml_paragraph_tag);
-print("Executing sgml_end_graf"); print_ln;
-end;
-
-@ Entering or leaving MML mode
-by using the routine called |primitive|, defined below. Let us enter them
-now, so that we don't have to list all those parameter names anywhere else.
-
-@<Put each of \TeX's primitives into the hash table@>=
-primitive("showSGMLentities",set_show_sgml_entities,1);
-primitive("noshowSGMLentities",set_show_sgml_entities,0);
-primitive("SGMLmode",set_mml_mode,1);
-@!@:SGML_mode_}{\.{\\SGMLmode} primitive@>
-primitive("noSGMLmode",set_mml_mode,0);
-@!@:noSGML_mode_}{\.{\\noSGMLmode} primitive@>
-primitive("SGMLstartmathtag",sgml_command,0);
-primitive("SGMLendmathtag",sgml_command,1);
-primitive("SGMLstarttexttag",sgml_command,2);
-primitive("SGMLendtexttag",sgml_command,3);
-primitive("SGMLattribute",sgml_command,4);
-primitive("MMLstarttext",sgml_command,5);
-primitive("MMLendtext",sgml_command,6);
-
-primitive("SGMLampersand",other_char,"&");
-primitive("SGMLbackslash",other_char,"\");
-primitive("SGMLcarret",other_char,"^");
-primitive("SGMLdollar",other_char,"$");
-primitive("SGMLhash",other_char,"#");
-primitive("SGMLleftbrace",other_char,"{");
-primitive("SGMLpercent",other_char,"%");
-primitive("SGMLrightbrace",other_char,"}");
-primitive("SGMLunderscore",other_char,"_");
-primitive("SGMLquote",other_char,"'");
-primitive("SGMLbackquote",other_char,"");
-primitive("SGMLdoublequote",other_char,"""");
-primitive("SGMLtilde",other_char,"~");
-primitive("SGMLexclamationmark",other_char,"!");
-primitive("SGMLquestionmark",other_char,"?");
-primitive("SGMLequals",other_char,"=");
-primitive("SGMLcolon",other_char,":");
-primitive("SGMLsemicolon",other_char,";");
-
-primitive("SGMLentity",sgml_command,7);
-primitive("SGMLemptytag",sgml_command,8);
-primitive("SGMLFontEntity",sgml_command,9);
-primitive("SGMLwrite",sgml_command,10);
-primitive("SGMLwriteln",sgml_command,11);
-primitive("SGMLfilesuffix",sgml_command,12);
-primitive("SGMLattributequote",sgml_command,13);
-primitive("SGMLemptytagmarker",sgml_command,14);
-primitive("SGMLtagattribute",sgml_command,15);
-primitive("SGMLstartverttag",sgml_command,16);
-primitive("SGMLendverttag",sgml_command,17);
-primitive("SGMLmathemptytag",sgml_command,18);
-primitive("SGMLstartpartag",sgml_command,19);
-primitive("SGMLendpartag",sgml_command,20);
-
-@ @<Cases of |main_control| that build boxes and lists@>=
-mmode+set_mml_mode: report_illegal_case;
-non_math(set_mml_mode):
- if cur_chr=0 then SGML_mode:=false else SGML_mode:=true;
-any_mode(set_show_sgml_entities):
- if cur_chr=0 then SGML_show_entities:=false
- else SGML_show_entities:=true;
-any_mode(sgml_command): begin
- case cur_chr of
- 0: begin scan_string_argument; sgml_startmathtag(cur_val); end;
- 1: begin scan_string_argument; sgml_endmathtag(cur_val); end;
- 2: begin scan_string_argument; sgml_starttexttag(cur_val); end;
- 3: begin scan_string_argument; sgml_endtexttag(cur_val); end;
- 4: begin scan_string_argument; cur_val1:=cur_val;
- scan_string_argument; sgml_attribute(cur_val1,cur_val); end;
- 5: begin
- push_nest; new_save_level(text_mml_group);
- current_sgml_tag:="mtext"; mode:=-hmode;
- end;
- 6: begin sgml_endmathtag("mtext"); end;
- 7: begin scan_string_argument; make_sgml_entity(cur_val); end;
- 8: begin scan_empty_tag; end;
- 9: begin scan_font_entity; end;
- 10: begin scan_string_argument; sgml_write(cur_val); end;
- 11: begin sgml_write(new_line_char); end;
- 12: begin scan_string_argument; sgml_file_suffix:=cur_val; end;
- 13: begin scan_string_argument; sgml_attribute_quote:=cur_val; end;
- 14: begin scan_string_argument; sgml_empty_tag_marker:=cur_val; end;
- 15: begin scan_string_argument; cur_val2:=cur_val;
- scan_string_argument; cur_val1:=cur_val;
- scan_string_argument;
- sgml_tag_attribute(cur_val2,cur_val1,cur_val);
- end;
- 16: begin scan_string_argument; sgml_startverttag(cur_val); end;
- 17: begin scan_string_argument; sgml_endverttag(cur_val); end;
- 18: begin scan_math_empty_tag; end;
- 19: begin scan_string_argument; sgml_startpartag(cur_val); end;
- 20: begin scan_string_argument; sgml_endpartag(cur_val); end;
- end;
- end;
-
-@ The following code opens \.{MML} output file if neccesary.
-@p procedure ensure_sgml_open;
-begin
- if mml_file_no=0 then begin
- incr(output_file_no);
- mml_file_no:=output_file_no;
- ensure_output_open(sgml_file_suffix)
- (output_file_names[mml_file_no])
- (output_files[mml_file_no]);
- output_file_names[mml_file_no]:=output_m_name;
- end;
-end;
-
-@ @<Declare act...@>=
-
-@z
-%---------------------------------------
-@x [48] m.1137 l.21620 - Omega
-@ We get into math mode from horizontal mode when a `\.\$' (i.e., a
-|math_shift| character) is scanned. We must check to see whether this
-`\.\$' is immediately followed by another, in case display math mode is
-called for.
-
-@<Cases of |main_control| that build...@>=
-hmode+math_shift:init_math;
-@y
-@ We get into math mode from horizontal mode when a `\.\$' (i.e., a
-|math_shift| character) is scanned. We must check to see whether this
-`\.\$' is immediately followed by another, in case display math mode is
-called for.
-
-@<Cases of |main_control| that build...@>=
-hmode+math_shift: begin
- if SGML_mode then begin
- ensure_sgml_open;
- incr(MML_level);
- end;
- init_math;
- end;
-
-@z
-%---------------------------------------
-@x [48] m.1139 l.21648 - Omega
-if every_math<>null then begin_token_list(every_math,every_math_text);
-@y
-current_sgml_tag:="mrow";
-sgml_attribute("displaystyle","false");
-if every_math<>null then begin_token_list(every_math,every_math_text);
-@z
-%---------------------------------------
-@x [48] m.1145 l.21703 - Omega
-if every_display<>null then begin_token_list(every_display,every_display_text);
-@y
-current_sgml_tag:="mrow";
-sgml_attribute("displaystyle","true");
-if every_display<>null then begin_token_list(every_display,every_display_text);
-@z
-%---------------------------------------
-@x [48] m.1155 l.21878 - Omega
- else type(p):=ord_noad+(c div @"1000000);
- link(tail):=p; tail:=p;
-@y
- else type(p):=ord_noad+(c div @"1000000);
- if not SGML_mode then
- tail_append(p)
- else if (c div @"1000000)=4 then begin
- saved(0):=p;
- incr(save_ptr);
- push_math(math_mml_group);
- end
- else if (cur_group=math_mml_group) and
- ((c div @"1000000)=5) then begin
- unsave;
- decr(save_ptr);
- q:=saved(0);
- r:=fin_mlist(null);
- push_math(math_group);
- tail_append(q); tail_append(r); tail_append(p);
- unsave;
- p:=fin_mlist(null);
- tail_append(p);
- end
- else tail_append(p);
-@z
-%---------------------------------------
-@x [48] m.1176--1177 l.22109 - Omega
-procedure sub_sup;
-var t:small_number; {type of previous sub/superscript}
-@!p:pointer; {field to be filled by |scan_math|}
-begin t:=empty; p:=null;
-if tail<>head then if scripts_allowed(tail) then
- begin p:=supscr(tail)+cur_cmd-sup_mark; {|supscr| or |subscr|}
- t:=math_type(p);
- end;
-if (p=null)or(t<>empty) then @<Insert a dummy noad to be sub/superscripted@>;
-scan_math(p);
-end;
-@y
-procedure sub_sup;
-var t:small_number; {type of previous sub/superscript}
-@!p,q,r:pointer; {field to be filled by |scan_math|}
-begin t:=empty; p:=null;
-if tail<>head then begin
- if SGML_mode then
- if type(tail)=sgml_node then begin
- q:=head;
- while link(q)<>tail do q:=link(q);
- r:=new_noad;
- info(nucleus(r)):=tail;
- math_type(nucleus(r)):=sub_mlist;
- link(q):=r;
- tail:=r;
- end;
- if scripts_allowed(tail) then
- begin p:=supscr(tail)+cur_cmd-sup_mark; {|supscr| or |subscr|}
- t:=math_type(p);
- end;
- end;
-if (p=null)or(t<>empty) then @<Insert a dummy noad to be sub/superscripted@>;
-scan_math(p);
-end;
-@z
-%---------------------------------------
-@x [48] m.1181 l.22199 - Omega
-procedure math_fraction;
-var c:small_number; {the type of generalized fraction we are scanning}
-begin c:=cur_chr;
-if incompleat_noad<>null then
- @<Ignore the fraction operation and complain about this ambiguous case@>
-else begin incompleat_noad:=get_node(fraction_noad_size);
- type(incompleat_noad):=fraction_noad;
- subtype(incompleat_noad):=normal;
- math_type(numerator(incompleat_noad)):=sub_mlist;
- info(numerator(incompleat_noad)):=link(head);
- mem[denominator(incompleat_noad)].hh:=empty_field;
- mem[left_delimiter(incompleat_noad)].qqqq:=null_delimiter;
- mem[right_delimiter(incompleat_noad)].qqqq:=null_delimiter;@/
- link(head):=null; tail:=head;
- @<Use code |c| to distinguish between generalized fractions@>;
- end;
-end;
-@y
-procedure math_fraction;
-var c:small_number; {the type of generalized fraction we are scanning}
-begin c:=cur_chr;
-if incompleat_noad<>null then
- @<Ignore the fraction operation and complain about this ambiguous case@>
-else begin incompleat_noad:=get_node(fraction_noad_size);
- type(incompleat_noad):=fraction_noad;
- subtype(incompleat_noad):=normal;
- math_type(numerator(incompleat_noad)):=sub_mlist;
- info(numerator(incompleat_noad)):=link(head);
- mem[denominator(incompleat_noad)].hh:=empty_field;
- if SGML_mode then begin
- mem[left_delimiter(incompleat_noad)].int:=0;
- mem[right_delimiter(incompleat_noad)].int:=0;@/
- end
- else begin
- mem[left_delimiter(incompleat_noad)].qqqq:=null_delimiter;
- mem[right_delimiter(incompleat_noad)].qqqq:=null_delimiter;@/
- end;
- link(head):=null; tail:=head;
- @<Use code |c| to distinguish between generalized fractions@>;
- end;
-end;
-@z
-%---------------------------------------
-@x [48] m.1182 l.22199 - Omega
- begin scan_delimiter(left_delimiter(incompleat_noad),false);
- scan_delimiter(right_delimiter(incompleat_noad),false);
-@y
- begin if SGML_mode then begin
- mem[left_delimiter(incompleat_noad)].int:=new_noad;
- scan_math(nucleus(mem[left_delimiter(incompleat_noad)].int));
- mem[right_delimiter(incompleat_noad)].int:=new_noad;
- scan_math(nucleus(mem[right_delimiter(incompleat_noad)].int));
- end
- else begin
- scan_delimiter(left_delimiter(incompleat_noad),0);
- scan_delimiter(right_delimiter(incompleat_noad),0);
- end;
-@z
-%---------------------------------------
-@x [48] m.1183 l.22212 - Omega
- begin scan_delimiter(garbage,false); scan_delimiter(garbage,false);
-@y
- begin if SGML_mode then begin
- scan_math(garbage); scan_math(garbage);
- end
- else begin
- scan_delimiter(garbage,0); scan_delimiter(garbage,0);
- end;
-@z
-%---------------------------------------
-@x [48] m.1184 l.22230 - Omega
-function fin_mlist(@!p:pointer):pointer;
-var q:pointer; {the mlist to return}
-begin if incompleat_noad<>null then @<Compleat the incompleat noad@>
-else begin link(tail):=p; q:=link(head);
- end;
-pop_nest; fin_mlist:=q;
-end;
-@y
-function fin_mlist(@!p:pointer):pointer;
-var q,q1,q2:pointer; {the mlist to return}
- tag:integer;
-begin if incompleat_noad<>null then @<Compleat the incompleat noad@>
-else begin link(tail):=p; q:=link(head);
- end;
-if current_sgml_tag=0 then
- tag:="mrow"
-else tag:=current_sgml_tag;
-pop_nest;
-if SGML_mode then
- if q<>null then
- if link(q)<>null then begin
- q1:=new_sgml_node;
- sgml_tag(q1):=tag;
- sgml_info(q1):=q;
- sgml_kind(q1):=sgml_math_node;
- fin_mlist:=q1
- end
- else fin_mlist:=q
- else fin_mlist:=q
-else
- fin_mlist:=q;
-end;
-@z
-%---------------------------------------
-@x [48] m.1185 l.22256 - Omega
-@ @<Compleat...@>=
-begin math_type(denominator(incompleat_noad)):=sub_mlist;
-info(denominator(incompleat_noad)):=link(head);
-if p=null then q:=incompleat_noad
-else begin q:=info(numerator(incompleat_noad));
- if type(q)<>left_noad then confusion("right");
-@:this can't happen right}{\quad right@>
- info(numerator(incompleat_noad)):=link(q);
- link(q):=incompleat_noad; link(incompleat_noad):=p;
- end;
-end
-@y
-@ @<Compleat...@>=
-begin math_type(denominator(incompleat_noad)):=sub_mlist;
-info(denominator(incompleat_noad)):=link(head);
-if p=null then
- if not SGML_mode then
- q:=incompleat_noad
- else begin
- if link(info(numerator(incompleat_noad)))<>null then begin
- q1:=new_sgml_node;
- sgml_tag(q1):="mrow";
- sgml_kind(q1):=sgml_math_node;
- sgml_info(q1):=info(numerator(incompleat_noad));
- end
- else q1:=info(numerator(incompleat_noad));
- if link(info(denominator(incompleat_noad)))<>null then begin
- q2:=new_sgml_node;
- sgml_tag(q2):="mrow";
- sgml_kind(q2):=sgml_math_node;
- sgml_info(q2):=info(denominator(incompleat_noad));
- end
- else q2:=info(denominator(incompleat_noad));
- q:=new_sgml_node;
- sgml_tag(q):="mfrac";
- sgml_kind(q):=sgml_math_node;
- sgml_info(q):=q1;
- link(q1):=q2;
- current_sgml_attrs:=null;
- if thickness(incompleat_noad)<>default_code then
- if thickness(incompleat_noad)=0 then
- sgml_attribute("linethickness","0ex")
- else if thickness(incompleat_noad)<default_rule_thickness then
- sgml_attribute("linethickness","thin")
- else if thickness(incompleat_noad)>default_rule_thickness then
- sgml_attribute("linethickness","thick");
- sgml_attrs(q):=current_sgml_attrs;
- if (mem[left_delimiter(incompleat_noad)].int<>0) or
- (mem[right_delimiter(incompleat_noad)].int<>0) then begin
- q1:=q;
- q:=new_sgml_node;
- sgml_tag(q):="mrow";
- sgml_kind(q):=sgml_math_node;
- sgml_info(q):=mem[left_delimiter(incompleat_noad)].int;
- link(mem[left_delimiter(incompleat_noad)].int):=q1;
- link(q1):=mem[right_delimiter(incompleat_noad)].int;
- end
- end
-else begin q:=info(numerator(incompleat_noad));
- if type(q)<>left_noad then confusion("right");
-@:this can't happen right}{\quad right@>
- info(numerator(incompleat_noad)):=link(q);
- link(q):=incompleat_noad; link(incompleat_noad):=p;
- end;
-end
-@z
-%---------------------------------------
-@x [48] m.1186 l.22256 - Omega
-math_group: begin unsave; decr(save_ptr);@/
- math_type(saved(0)):=sub_mlist; p:=fin_mlist(null); info(saved(0)):=p;
- if p<>null then if link(p)=null then
- if type(p)=ord_noad then
- begin if math_type(subscr(p))=empty then
- if math_type(supscr(p))=empty then
- begin mem[saved(0)].hh:=mem[nucleus(p)].hh;
- free_node(p,noad_size);
- end;
- end
- else if type(p)=accent_noad then if saved(0)=nucleus(tail) then
- if type(tail)=ord_noad then @<Replace the tail of the list by |p|@>;
- end;
-@y
-text_mml_group: begin
- unsave; decr(save_ptr);
- p:=saved(0);
- sgml_info(p):=link(head);
- pop_nest;
- tail_append(p);
- end;
-text_sgml_group: begin
- print_err("Expecting closing tag </");
- print(current_sgml_tag); print(">.");
- print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end;
-vert_sgml_group: begin
- print_err("Expecting closing tag </");
- print(current_sgml_tag); print(">.");
- print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end;
-par_sgml_group: begin
- print_err("Expecting closing tag </");
- print(current_sgml_tag); print(">.");
- print_ln;
- print_nl("The SGML translator cannot continue");
- succumb;
- end;
-math_mml_group: begin
- unsave;
- decr(save_ptr);
- link(saved(0)):=link(head);
- p:=saved(0);
- pop_nest;
- if type(p)=sgml_node then
- if str_eq_str(sgml_tag(p),"mrow") then
- if sgml_attrs(p)=null then begin
- if link(sgml_info(p))=null then
- p:=sgml_info(p);
- end;
- tail_append(p);
- back_input;
- end;
-math_group: begin unsave; decr(save_ptr);@/
- if SGML_mode then
- math_type(saved(0)):=sub_mlist
- else
- math_type(saved(0)):=sub_mlist;
- p:=fin_mlist(null); info(saved(0)):=p;
- if p<>null then if link(p)=null then
- if type(p)=ord_noad then
- begin if math_type(subscr(p))=empty then
- if math_type(supscr(p))=empty then
- begin mem[saved(0)].hh:=mem[nucleus(p)].hh;
- free_node(p,noad_size);
- end;
- end
- else if type(p)=accent_noad then if saved(0)=nucleus(tail) then
- if type(tail)=ord_noad then @<Replace the tail of the list by |p|@>;
- end;
-font_entity_group: begin
- unsave;
- font_sort_number:=font_sort_ptr+1;
- for font_sorts:=font_sort_base+1 to font_sort_ptr do
- if str_eq_str(font_sort_name(font_sorts),saved(-1)) then begin
- font_sort_number:=font_sorts;
- break;
- end;
- font_sort_c:=saved(-2);
- font_sort_char_entity(font_sort_number)(font_sort_c):=saved(-3);
- font_sort_char_tag(font_sort_number)(font_sort_c):=saved(-4);
- font_sort_char_attr(font_sort_number)(font_sort_c):=current_sgml_attrs;
- current_sgml_attrs:=null;
- save_ptr:=save_ptr-4; pop_nest;
- end;
-empty_tag_group: begin
- unsave; sgml_attrs(saved(-1)):=current_sgml_attrs;
- decr(save_ptr); pop_nest;
- end;
-@z
-%---------------------------------------
-@x [48] m.1191 l.22301 - Omega
-procedure math_left_right;
-var t:small_number; {|left_noad| or |right_noad|}
-@!p:pointer; {new noad}
-begin t:=cur_chr;
-if (t=right_noad)and(cur_group<>math_left_group) then
- @<Try to recover from mismatched \.{\\right}@>
-else begin p:=new_noad; type(p):=t;
- scan_delimiter(delimiter(p),false);
- if t=left_noad then
- begin push_math(math_left_group); link(head):=p; tail:=p;
- end
- else begin p:=fin_mlist(p); unsave; {end of |math_left_group|}
- tail_append(new_noad); type(tail):=inner_noad;
- math_type(nucleus(tail)):=sub_mlist;
- info(nucleus(tail)):=p;
- end;
- end;
-end;
-@y
-procedure math_left_right;
-var t:small_number; {|left_noad| or |right_noad|}
-@!p,q,r:pointer; {new noad}
-begin t:=cur_chr;
-if (t=right_noad)and(cur_group<>math_left_group) then
- @<Try to recover from mismatched \.{\\right}@>
-else begin p:=new_noad;
- if SGML_mode then begin
- scan_math(nucleus(p));
- if t=left_noad then begin
- saved(0):=p; incr(save_ptr);
- push_math(math_left_group);
- end
- else begin
- unsave;
- decr(save_ptr);
- q:=saved(0); r:=fin_mlist(null);
- push_math(math_group);
- tail_append(q); tail_append(r);
- tail_append(p);
- unsave;
- p:=fin_mlist(null);
- tail_append(p);
- end
- end
- else begin
- type(p):=t;
- scan_delimiter(delimiter(p),false);
- if t=left_noad then
- begin push_math(math_left_group); link(head):=p; tail:=p;
- end
- else begin p:=fin_mlist(p); unsave; {end of |math_left_group|}
- tail_append(new_noad); type(tail):=inner_noad;
- math_type(nucleus(tail)):=sub_mlist;
- info(nucleus(tail)):=p;
- end;
- end;
- end;
-end;
-@z
-%---------------------------------------
-@x [48] m.1192 l.22284 - Omega
-begin if cur_group=math_shift_group then
- begin scan_delimiter(garbage,false);
- print_err("Extra "); print_esc("right");
-@.Extra \\right.@>
- help1("I'm ignoring a \right that had no matching \left.");
- error;
- end
-else off_save;
-end
-@y
-begin if cur_group=math_shift_group then
- begin if SGML_mode then scan_math(garbage)
- else scan_delimiter(garbage,0);
- print_err("Extra "); print_esc("right");
-@.Extra \\right.@>
- help1("I'm ignoring a \right that had no matching \left.");
- error;
- end
-else off_save;
-end
-@z
-%---------------------------------------
-@x [48] m.1193 l.22327 - Omega
-mmode+math_shift: if cur_group=math_shift_group then after_math
- else off_save;
-@y
-mmode+math_shift: if cur_group=math_mml_group then after_mml
- else if cur_group=math_shift_group then after_math
- else off_save;
-@z
-%---------------------------------------
-@x [48] m.1194 l.22284 - Omega
-procedure after_math;
-var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'}
-@!danger:boolean; {not enough symbol fonts are present}
-@!m:integer; {|mmode| or |-mmode|}
-@!p:pointer; {the formula}
-@!a:pointer; {box containing equation number}
-@<Local variables for finishing a displayed formula@>@;
-begin danger:=false;
-@<Check that the necessary fonts for math symbols are present;
- if not, flush the current math lists and set |danger:=true|@>;
-m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest}
-if mode=-m then {end of equation number}
- begin @<Check that another \.\$ follows@>;
- cur_mlist:=p; cur_style:=text_style; mlist_penalties:=false;
- mlist_to_hlist; a:=hpack(link(temp_head),natural,info(math_dir_stack));
- unsave; decr(save_ptr); {now |cur_group=math_shift_group|}
- if saved(0)=1 then l:=true;
- danger:=false;
- @<Check that the necessary fonts for math symbols are present;
- if not, flush the current math lists and set |danger:=true|@>;
- m:=mode; p:=fin_mlist(null);
- end
-else a:=null;
-if m<0 then @<Finish math in text@>
-else begin if a=null then @<Check that another \.\$ follows@>;
- @<Finish displayed math@>;
- end;
-end;
-@y
-procedure after_mml;
-var p:pointer;
-begin
-unsave;
-decr(save_ptr);
-link(saved(0)):=link(head);
-p:=saved(0);
-pop_nest;
-tail_append(p);
-back_input;
-end;
-
-procedure after_math;
-var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'}
-@!danger:boolean; {not enough symbol fonts are present}
-@!m:integer; {|mmode| or |-mmode|}
-@!p:pointer; {the formula}
-@!a:pointer; {box containing equation number}
-@<Local variables for finishing a displayed formula@>@;
-begin danger:=false;
-@<Check that the necessary fonts for math symbols are present;
- if not, flush the current math lists and set |danger:=true|@>;
-m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest}
-if SGML_mode then decr(MML_level);
-if mode=-m then {end of equation number}
- begin @<Check that another \.\$ follows@>;
- cur_mlist:=p; cur_style:=text_style; mlist_penalties:=false;
- if SGML_mode then begin
- tmp_back_at_bol:=sgml_out_mlist(true,true,false)
- end
- else begin
- mlist_to_hlist; a:=hpack(link(temp_head),natural,info(math_dir_stack));
- end;
- unsave; decr(save_ptr); {now |cur_group=math_shift_group|}
- if saved(0)=1 then l:=true;
- danger:=false;
- @<Check that the necessary fonts for math symbols are present;
- if not, flush the current math lists and set |danger:=true|@>;
- m:=mode; p:=fin_mlist(null);
- end
-else a:=null;
-if m<0 then @<Finish math in text@>
-else begin if a=null then @<Check that another \.\$ follows@>;
- @<Finish displayed math@>;
- end;
-end;
-@z
-%---------------------------------------
-@x [49] m.1196 l.22388 - Omega
-@<Finish math in text@> =
-begin tail_append(new_math(math_surround,before));
-cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0); mlist_to_hlist;
-link(tail):=link(temp_head);
-while link(tail)<>null do tail:=link(tail);
-tail_append(new_math(math_surround,after));
-space_factor:=1000; unsave;
-tmp_dir_stack:=math_dir_stack;
-math_dir_stack:=link(math_dir_stack);
-free_avail(tmp_dir_stack);
-end
-@y
-@<Finish math in text@>=
-begin
-if not SGML_mode then begin
- tail_append(new_math(math_surround,before));
- end;
-cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0);
-if SGML_mode then begin
-{
- if MML_level=0 then tmp_back_at_bol:=sgml_out_mlist(true,true,false)
- else tail_append(cur_mlist);
-}
- sgml_starttexttag("inlinemath");
- sgml_startmathtag("math");
- tail_append(cur_mlist);
- sgml_endmathtag("math");
- sgml_endtexttag("inlinemath");
- end
-else begin
- mlist_to_hlist;
- link(tail):=link(temp_head);
- while link(tail)<>null do tail:=link(tail);
- tail_append(new_math(math_surround,after));
- end;
-space_factor:=1000; unsave;
-tmp_dir_stack:=math_dir_stack;
-math_dir_stack:=link(math_dir_stack);
-free_avail(tmp_dir_stack);
-end
-@z
-%---------------------------------------
-@x [49] m.1197 l.22430 - Omega
-@<Finish displayed math@>=
-cur_mlist:=p; cur_style:=display_style; mlist_penalties:=false;
-mlist_to_hlist; p:=link(temp_head);@/
-adjust_tail:=adjust_head; b:=hpack(p,natural,info(math_dir_stack));
-p:=list_ptr(b);
-t:=adjust_tail; adjust_tail:=null;@/
-w:=width(b); z:=display_width; s:=display_indent;
-if (a=null)or danger then
- begin e:=0; q:=0;
- end
-else begin e:=width(a); q:=e+math_quad(text_size);
- end;
-if w+q>z then
- @<Squeeze the equation as much as possible; if there is an equation
- number that should go on a separate line by itself,
- set~|e:=0|@>;
-@<Determine the displacement, |d|, of the left edge of the equation, with
- respect to the line size |z|, assuming that |l=false|@>;
-@<Append the glue or equation number preceding the display@>;
-@<Append the display and perhaps also the equation number@>;
-@<Append the glue or equation number following the display@>;
-resume_after_display
-@y
-@<Finish displayed math@>=
-cur_mlist:=p; cur_style:=display_style; mlist_penalties:=false;
-if SGML_mode then begin
-{
- if MML_level=0 then tmp_back_at_bol:=sgml_out_mlist(true,true,false)
- else tail_append(cur_mlist);
-}
- sgml_starttexttag("displaymath");
- sgml_startmathtag("math");
- tail_append(cur_mlist);
- sgml_endmathtag("math");
- sgml_endtexttag("displaymath");
- end
-else begin
- mlist_to_hlist; p:=link(temp_head);@/
- adjust_tail:=adjust_head; b:=hpack(p,natural,info(math_dir_stack));
- p:=list_ptr(b);
- t:=adjust_tail; adjust_tail:=null;@/
- w:=width(b); z:=display_width; s:=display_indent;
- if (a=null)or danger then
- begin e:=0; q:=0;
- end
- else begin e:=width(a); q:=e+math_quad(text_size);
- end;
- if w+q>z then
- @<Squeeze the equation as much as possible; if there is an equation
- number that should go on a separate line by itself,
- set~|e:=0|@>;
- @<Determine the displacement, |d|, of the left edge of the equation, with
- respect to the line size |z|, assuming that |l=false|@>;
- @<Append the glue or equation number preceding the display@>;
- @<Append the display and perhaps also the equation number@>;
- @<Append the glue or equation number following the display@>;
- end;
-resume_after_display
-@z
-%---------------------------------------
-@x [49] m.1257 l.23269 - Omega
-@!flushable_string:str_number; {string not yet referenced}
-begin if job_name=0 then open_log_file;
- {avoid confusing \.{texput} with the font name}
-@.texput@>
-get_r_token; u:=cur_cs;
-@y
-@!flushable_string:str_number; {string not yet referenced}
-@!cur_font_sort_name:str_number; {the name without the digits at the end}
-@!new_length:integer; {length of font name, to become font sort name}
-@!last_character:integer; {last character in font name}
-@!i:integer; {to run through characters of name}
-@!this_is_a_new_font:boolean;
-begin if job_name=0 then open_log_file;
- {avoid confusing \.{texput} with the font name}
-@.texput@>
-get_r_token; u:=cur_cs;
-this_is_a_new_font:=false;
-@z
-%---------------------------------------
-@x [49] m.1257 l.23290 - Omega
-common_ending: set_equiv(u,f);
-set_new_eqtb(font_id_base+f,new_eqtb(u)); settext(font_id_base+f,t);
-@y
-this_is_a_new_font:=true;
-common_ending: set_equiv(u,f);
-set_new_eqtb(font_id_base+f,new_eqtb(u)); settext(font_id_base+f,t);
-if this_is_a_new_font then
- begin
- if cur_name>=@"10000 then begin
- new_length:=length(cur_name);
- last_character:=str_pool[str_start(cur_name)+new_length-1];
- while (last_character>="0") and (last_character<="9") do begin
- decr(new_length);
- last_character:=str_pool[str_start(cur_name)+new_length-1];
- end;
- for i:=1 to new_length do begin
- append_char(str_pool[str_start(cur_name)+i-1]);
- end;
- cur_font_sort_name:=make_string;
- font_sort_number:=font_sort_ptr+1;
- for font_sorts:=font_sort_base+1 to font_sort_ptr do
- if str_eq_str(font_sort_name(font_sorts),cur_font_sort_name) then begin
- font_sort_number:=font_sorts;
- break;
- end;
- font_name_sort(f):=font_sort_number;
- if font_sort_number=(font_sort_ptr+1) then begin
- incr(font_sort_ptr);
- allocate_font_sort_table
- (font_sort_ptr,
- font_sort_offset_char_base+3*(font_ec(f)-font_bc(f)+1));
- font_sort_file_size(font_sort_ptr):=
- font_sort_offset_char_base+3*(font_ec(f)-font_bc(f)+1);
- font_sort_name(font_sort_ptr):=cur_font_sort_name;
- font_sort_ec(font_sort_ptr):=font_ec(f);
- font_sort_bc(font_sort_ptr):=font_bc(f);
- cur_name:=cur_font_sort_name;
- cur_ext:=".onm";
- pack_cur_name;
- begin_file_reading;
- if a_open_in(cur_file,kpse_tex_format) then begin
- name:=a_make_name_string(cur_file);
- print_ln; print("("); print(name);
- @<Read the first line of the new file@>;
- end
- else end_file_reading;
- end;
- end;
- end;
-@z
-%---------------------------------------
-@x [50] m.1320 l.23983 - Omega
-@ @<Dump the font information@>=
-@y
-@ @<Dump the font information@>=
-dump_int(font_sort_ptr);
-for k:=null_font_sort to font_sort_ptr do
- dump_font_sort_table(k,font_sort_file_size(k));
-@z
-%---------------------------------------
-@x [50] m.1321 l.23993 - Omega
-@ @<Undump the font information@>=
-@y
-@ @<Undump the font information@>=
-undump_size(font_base)(font_max)('font sort max')(font_sort_ptr);
-for k:=null_font_sort to font_sort_ptr do
- undump_font_sort_table(k);
-@z
-%---------------------------------------
-@x [51] m.1333 l.24244 - Omega
-procedure close_files_and_terminate;
-var k:integer; {all-purpose index}
-begin @<Finish the extensions@>;
-@!stat if tracing_stats>0 then @<Output statistics about this job@>;@;@+tats@/
-wake_up_terminal; @<Finish the \.{DVI} file@>;
-@y
-procedure close_files_and_terminate;
-var k:integer; {all-purpose index}
-begin @<Finish the extensions@>;
-@!stat if tracing_stats>0 then @<Output statistics about this job@>;@;@+tats@/
-wake_up_terminal;
-if not SGML_mode then begin @<Finish the \.{DVI} file@>; end;
-@z
-%---------------------------------------
diff --git a/Build/source/texk/web2c/synctexdir/am/synctex.am b/Build/source/texk/web2c/synctexdir/am/synctex.am
index 03d793eac69..4e26a01fe5d 100644
--- a/Build/source/texk/web2c/synctexdir/am/synctex.am
+++ b/Build/source/texk/web2c/synctexdir/am/synctex.am
@@ -168,5 +168,5 @@ EXTRA_DIST += \
## Eventually delete these files
##
-EXTRA_DIST += synctexdir/am/synctex.mk synctexdir/synctex.mk
+EXTRA_DIST += synctexdir/synctex.mk
diff --git a/Build/source/texk/web2c/synctexdir/am/synctex.mk b/Build/source/texk/web2c/synctexdir/am/synctex.mk
deleted file mode 100644
index 3f3c4a0293a..00000000000
--- a/Build/source/texk/web2c/synctexdir/am/synctex.mk
+++ /dev/null
@@ -1,42 +0,0 @@
-
-### SyncTeX support in xetex
-# Actually, xetex cannot build without SyncTeX because the tex.web
-# code does not provide proper entry points
-# list of change files
-xetex_ch_srcs-with_synctex-mem_only = \
- $(synctex_dir)/synctex-mem.ch0 \
- $(synctex_dir)/synctex-e-mem.ch0 \
- $(synctex_dir)/synctex-e-mem.ch1 \
- $(synctex_dir)/synctex-xe-mem.ch2
-xetex_ch_srcs-with_synctex = \
- $(xetex_ch_srcs-with_synctex-mem_only) \
- $(synctex_dir)/synctex-rec.ch0 \
- $(synctex_dir)/synctex-e-rec.ch0 \
- $(synctex_dir)/synctex-xe-rec.ch2
-xetex_ch_srcs-without_synctex =
-xetex_post_ch_srcs-with_synctex = \
- $(synctex_dir)/synctex-xe-rec.ch3
-xetex_post_ch_srcs-without_synctex =
-# The C sources and headers
-xetex_o-with_synctex = synctex-xe.o
-xetex_o-without_synctex =
-synctex-xe.h: $(synctex_dir)/synctex.h
- cat $(synctex_dir)/synctex.h >$@
-synctex-xetex.h: $(synctex_dir)/$@
- cat $(synctex_dir)/$@ >$@
-synctex-xe.c: xetexd.h $(synctex_dir)/synctex.c synctex-xetex.h
- sed s/TEX-OR-MF-OR-MP/xetex/ $(synctex_dir)/synctex.c >$@
-xetexd.h-with_synctex = if test -z "`grep __SyncTeX__ xetexd.h`";\
- then\
- $(synctex_common_texd);\
- sed -f synctex_sed_command.txt xetexd.h > synctex_xetexd.h;\
- mv synctex_xetexd.h xetexd.h;\
- if test -z "`grep __SyncTeX__ xetexd.h`";\
- then\
- echo "warning: SyncTeX activation FAILED";\
- exit 1;\
- fi;\
- echo "warning: SyncTeX is enabled";\
- fi
-xetexd.h-without_synctex = echo "warning: SyncTeX is NOT enabled"
-
diff --git a/Build/source/texk/web2c/tex.ch b/Build/source/texk/web2c/tex.ch
index 765bab70e96..2343f1e3c63 100644
--- a/Build/source/texk/web2c/tex.ch
+++ b/Build/source/texk/web2c/tex.ch
@@ -2,8 +2,8 @@
% By Tim Morgan, UC Irvine ICS Department, and many others.
%
% Be very careful when making changes to this file, as it is used to
-% generate TeX, e-TeX, and pdf[ex]TeX, and most changes require similar
-% changes to be made to the Omega sources.
+% generate TeX, e-TeX, and pdfTeX, and most changes require similar
+% changes to be made to the Aleph sources.
%
% (05/28/86) ETM Started with TeX 2.0
% (06/03/87) ETM Brought up to TeX 2.2
diff --git a/Build/source/texk/web2c/texmfmem.h b/Build/source/texk/web2c/texmfmem.h
index 0596376013e..30497f417ab 100644
--- a/Build/source/texk/web2c/texmfmem.h
+++ b/Build/source/texk/web2c/texmfmem.h
@@ -43,7 +43,7 @@
twohalves.u: B1 B0 JNK1 JNK2
fourquarters: B3 B2 B1 B0
- In Omega, quarterwords are two octets, so the picture becomes simpler:
+ In Aleph, quarterwords are two octets, so the picture becomes simpler:
BigEndian:
twohalves.v: RH_MM RH_ML RH_LM RH_LL LH_MM LH_ML LH_LM LH_LL
@@ -62,8 +62,8 @@
include it from the change file instead.
*/
-/* Omega is sufficiently different to separate the definition. */
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph) && !defined(luaTeX)
+/* Aleph is sufficiently different to separate the definition. */
+#if !defined(Aleph) && !defined(luaTeX)
typedef union
{
@@ -181,7 +181,7 @@ typedef union
#define qqqq v.QQQQ
#endif
-#else /* Omega || eOmega || Aleph */
+#else /* Aleph || luaTeX */
typedef union
{
@@ -257,7 +257,7 @@ typedef union
#define gr gg.GLUE
-#endif /* Omega || eOmega || Aleph || luaTeX */
+#endif /* Aleph || luaTeX */
#if defined(luaTeX)
#define memory_word memoryword
diff --git a/Build/source/texk/web2c/texmfmp-help.h b/Build/source/texk/web2c/texmfmp-help.h
index 207c51c01ac..de6b6b1296f 100644
--- a/Build/source/texk/web2c/texmfmp-help.h
+++ b/Build/source/texk/web2c/texmfmp-help.h
@@ -75,19 +75,19 @@ const_string ALEPHHELP[] = {
};
#endif /* Aleph */
-#ifdef luaTeX
-const_string LUATEXHELP[] = {
- "Usage: luatex [OPTION]... [TEXNAME[.tex]] [COMMANDS]",
- " or: luatex [OPTION]... \\FIRST-LINE",
- " or: luatex [OPTION]... &FMT ARGS",
- " Run luaTeX on TEXNAME, usually creating TEXNAME.pdf.",
- " Any remaining COMMANDS are processed as luaTeX input, after TEXNAME is read.",
+#ifdef eTeX
+const_string ETEXHELP[] = {
+ "Usage: etex [OPTION]... [TEXNAME[.tex]] [COMMANDS]",
+ " or: etex [OPTION]... \\FIRST-LINE",
+ " or: etex [OPTION]... &FMT ARGS",
+ " Run e-TeX on TEXNAME, usually creating TEXNAME.dvi.",
+ " Any remaining COMMANDS are processed as e-TeX input, after TEXNAME is read.",
" If the first line of TEXNAME is %&FMT, and FMT is an existing .fmt file,",
" use it. Else use `NAME.fmt', where NAME is the program invocation name,",
- " most commonly `luatex'.",
+ " most commonly `etex'.",
"",
" Alternatively, if the first non-option argument begins with a backslash,",
- " interpret all non-option arguments as a line of luaTeX input.",
+ " interpret all non-option arguments as a line of e-TeX input.",
"",
" Alternatively, if the first non-option argument begins with a &, the",
" next word is taken as the FMT to read, overriding all else. Any",
@@ -100,8 +100,8 @@ const_string LUATEXHELP[] = {
"[-no]-file-line-error disable/enable file:line:error style messages",
"-fmt=FMTNAME use FMTNAME instead of program name or a %& line",
"-halt-on-error stop processing at the first error",
- "-ini be luainitex, for dumping formats; this is implicitly",
- " true if the program name is `luainitex'",
+ "-ini be einitex, for dumping formats; this is implicitly",
+ " true if the program name is `einitex'",
"-interaction=STRING set interaction mode (STRING=batchmode/nonstopmode/",
" scrollmode/errorstopmode)",
#ifdef IPC
@@ -115,9 +115,7 @@ const_string LUATEXHELP[] = {
"[-no]-mktex=FMT disable/enable mktexFMT generation (FMT=tex/tfm)",
"-mltex enable MLTeX extensions such as \\charsubdef",
"-output-comment=STRING use STRING for DVI file comment instead of date",
- " (no effect for PDF)",
"-output-directory=DIR use DIR as the directory to write files to",
- "-output-format=FORMAT use FORMAT for job output; FORMAT is `dvi' or `pdf'",
"[-no]-parse-first-line disable/enable parsing of the first line of the",
" input file",
"-progname=STRING set program (and fmt) name to STRING",
@@ -128,27 +126,30 @@ const_string LUATEXHELP[] = {
"-src-specials=WHERE insert source specials in certain places of",
" the DVI file. WHERE is a comma-separated value",
" list: cr display hbox math par parend vbox",
+#if defined(__SyncTeX__)
+ "-synctex=NUMBER generate SyncTeX data for previewers if nonzero",
+#endif
"-translate-file=TCXNAME use the TCX file TCXNAME",
"-8bit make all characters printable by default",
"-help display this help and exit",
"-version output version information and exit",
NULL
};
-#endif /* luaTeX */
-
-#ifdef eTeX
-const_string ETEXHELP[] = {
- "Usage: etex [OPTION]... [TEXNAME[.tex]] [COMMANDS]",
- " or: etex [OPTION]... \\FIRST-LINE",
- " or: etex [OPTION]... &FMT ARGS",
- " Run e-TeX on TEXNAME, usually creating TEXNAME.dvi.",
- " Any remaining COMMANDS are processed as e-TeX input, after TEXNAME is read.",
+#endif /* eTeX */
+
+#ifdef luaTeX
+const_string LUATEXHELP[] = {
+ "Usage: luatex [OPTION]... [TEXNAME[.tex]] [COMMANDS]",
+ " or: luatex [OPTION]... \\FIRST-LINE",
+ " or: luatex [OPTION]... &FMT ARGS",
+ " Run luaTeX on TEXNAME, usually creating TEXNAME.pdf.",
+ " Any remaining COMMANDS are processed as luaTeX input, after TEXNAME is read.",
" If the first line of TEXNAME is %&FMT, and FMT is an existing .fmt file,",
" use it. Else use `NAME.fmt', where NAME is the program invocation name,",
- " most commonly `etex'.",
+ " most commonly `luatex'.",
"",
" Alternatively, if the first non-option argument begins with a backslash,",
- " interpret all non-option arguments as a line of e-TeX input.",
+ " interpret all non-option arguments as a line of luaTeX input.",
"",
" Alternatively, if the first non-option argument begins with a &, the",
" next word is taken as the FMT to read, overriding all else. Any",
@@ -161,8 +162,8 @@ const_string ETEXHELP[] = {
"[-no]-file-line-error disable/enable file:line:error style messages",
"-fmt=FMTNAME use FMTNAME instead of program name or a %& line",
"-halt-on-error stop processing at the first error",
- "-ini be einitex, for dumping formats; this is implicitly",
- " true if the program name is `einitex'",
+ "-ini be luainitex, for dumping formats; this is implicitly",
+ " true if the program name is `luainitex'",
"-interaction=STRING set interaction mode (STRING=batchmode/nonstopmode/",
" scrollmode/errorstopmode)",
#ifdef IPC
@@ -176,7 +177,9 @@ const_string ETEXHELP[] = {
"[-no]-mktex=FMT disable/enable mktexFMT generation (FMT=tex/tfm)",
"-mltex enable MLTeX extensions such as \\charsubdef",
"-output-comment=STRING use STRING for DVI file comment instead of date",
+ " (no effect for PDF)",
"-output-directory=DIR use DIR as the directory to write files to",
+ "-output-format=FORMAT use FORMAT for job output; FORMAT is `dvi' or `pdf'",
"[-no]-parse-first-line disable/enable parsing of the first line of the",
" input file",
"-progname=STRING set program (and fmt) name to STRING",
@@ -187,17 +190,14 @@ const_string ETEXHELP[] = {
"-src-specials=WHERE insert source specials in certain places of",
" the DVI file. WHERE is a comma-separated value",
" list: cr display hbox math par parend vbox",
-#if defined(__SyncTeX__)
- "-synctex=NUMBER generate SyncTeX data for previewers if nonzero",
-#endif
"-translate-file=TCXNAME use the TCX file TCXNAME",
"-8bit make all characters printable by default",
"-help display this help and exit",
"-version output version information and exit",
NULL
};
-#endif /* eTeX */
-
+#endif /* luaTeX */
+
#ifdef MF
const_string MFHELP[] = {
"Usage: mf [OPTION]... [MFNAME[.mf]] [COMMANDS]",
@@ -291,114 +291,6 @@ const_string MPHELP[] = {
};
#endif /* MP */
-#ifdef Omega
-const_string OMEGAHELP[] = {
- "Usage: omega [OPTION]... [TEXNAME[.tex]] [COMMANDS]",
- " or: omega [OPTION]... \\FIRST-LINE",
- " or: omega [OPTION]... &FMT ARGS",
- " Run Omega on TEXNAME, usually creating TEXNAME.dvi.",
- " Any remaining COMMANDS are processed as Omega input, after TEXNAME is read.",
- " If the first line of TEXNAME is %&FMT, and FMT is an existing .fmt file,",
- " use it. Else use `NAME.fmt', where NAME is the program invocation name,",
- " most commonly `omega'.",
- "",
- " Alternatively, if the first non-option argument begins with a backslash,",
- " interpret all non-option arguments as a line of Omega input.",
- "",
- " Alternatively, if the first non-option argument begins with a &, the",
- " next word is taken as the FMT to read, overriding all else. Any",
- " remaining arguments are processed as above.",
- "",
- " If no arguments or options are specified, prompt for input.",
- "",
- "[-no]-file-line-error disable/enable file:line:error style messages",
- "-fmt=FMTNAME use FMTNAME instead of program name or a %& line",
- "-halt-on-error stop processing at the first error",
- "-ini be iniomega, for dumping formats; this is implicitly",
- " true if the program name is `iniomega'",
- "-interaction=STRING set interaction mode (STRING=batchmode/nonstopmode/",
- " scrollmode/errorstopmode)",
-#ifdef IPC
- "-ipc send DVI output to a socket as well as the usual",
- " output file",
- "-ipc-start as -ipc, and also start the server at the other end",
-#endif /* IPC */
- "-jobname=STRING set the job name to STRING",
- "-kpathsea-debug=NUMBER set path searching debugging flags according to",
- " the bits of NUMBER",
- "[-no]-mktex=FMT disable/enable mktexFMT generation (FMT=tex/tfm)",
- "-output-comment=STRING use STRING for DVI file comment instead of date",
- "-output-directory=DIR use DIR as the directory to write files to",
- "[-no]-parse-first-line disable/enable parsing of the first line of the",
- " input file",
- "-progname=STRING set program (and fmt) name to STRING",
- "-recorder enable filename recorder (always on)",
- "[-no]-shell-escape disable/enable \\write18{SHELL COMMAND}",
- "-shell-restricted enable restricted \\write18",
- "-src-specials insert source specials into the DVI file",
- "-src-specials=WHERE insert source specials in certain places of",
- " the DVI file. WHERE is a comma-separated value",
- " list: cr display hbox math par parend vbox",
- "-help display this help and exit",
- "-version output version information and exit",
- NULL
-};
-#endif /* Omega */
-
-#ifdef eOmega
-const_string EOMEGAHELP[] = {
- "Usage: eomega [OPTION]... [TEXNAME[.tex]] [COMMANDS]",
- " or: eomega [OPTION]... \\FIRST-LINE",
- " or: eomega [OPTION]... &FMT ARGS",
- " Run e-Omega on TEXNAME, usually creating TEXNAME.dvi.",
- " Any remaining COMMANDS are processed as e-Omega input, after TEXNAME is read.",
- " If the first line of TEXNAME is %&FMT, and FMT is an existing .fmt file,",
- " use it. Else use `NAME.fmt', where NAME is the program invocation name,",
- " most commonly `eomega'.",
- "",
- " Alternatively, if the first non-option argument begins with a backslash,",
- " interpret all non-option arguments as a line of e-Omega input.",
- "",
- " Alternatively, if the first non-option argument begins with a &, the",
- " next word is taken as the FMT to read, overriding all else. Any",
- " remaining arguments are processed as above.",
- "",
- " If no arguments or options are specified, prompt for input.",
- "",
- "[-no]-file-line-error disable/enable file:line:error style messages",
- "-fmt=FMTNAME use FMTNAME instead of program name or a %& line",
- "-halt-on-error stop processing at the first error",
- "-ini be inieomega, for dumping formats; this is implicitly",
- " true if the program name is `inieomega'",
- "-interaction=STRING set interaction mode (STRING=batchmode/nonstopmode/",
- " scrollmode/errorstopmode)",
-#ifdef IPC
- "-ipc send DVI output to a socket as well as the usual",
- " output file",
- "-ipc-start as -ipc, and also start the server at the other end",
-#endif /* IPC */
- "-jobname=STRING set the job name to STRING",
- "-kpathsea-debug=NUMBER set path searching debugging flags according to",
- " the bits of NUMBER",
- "[-no]-mktex=FMT disable/enable mktexFMT generation (FMT=tex/tfm)",
- "-output-comment=STRING use STRING for DVI file comment instead of date",
- "-output-directory=DIR use DIR as the directory to write files to",
- "[-no]-parse-first-line disable/enable parsing of the first line of the",
- " input file",
- "-progname=STRING set program (and fmt) name to STRING",
- "-recorder enable filename recorder (always on)",
- "[-no]-shell-escape disable/enable \\write18{SHELL COMMAND}",
- "-shell-restricted enable restricted \\write18",
- "-src-specials insert source specials into the DVI file",
- "-src-specials=WHERE insert source specials in certain places of",
- " the DVI file. WHERE is a comma-separated value",
- " list: cr display hbox math par parend vbox",
- "-help display this help and exit",
- "-version output version information and exit",
- NULL
-};
-#endif /* eOmega */
-
#ifdef pdfTeX
const_string PDFTEXHELP[] = {
"Usage: pdftex [OPTION]... [TEXNAME[.tex]] [COMMANDS]",
diff --git a/Build/source/texk/web2c/texmfmp.h b/Build/source/texk/web2c/texmfmp.h
index f7aa303ef55..e4a091bd1da 100644
--- a/Build/source/texk/web2c/texmfmp.h
+++ b/Build/source/texk/web2c/texmfmp.h
@@ -58,12 +58,6 @@ typedef void* voidpointer;
#elif defined (XeTeX)
#define TEXMFPOOLNAME "xetex.pool"
#define TEXMFENGINENAME "xetex"
-#elif defined (Omega)
-#define TEXMFPOOLNAME "omega.pool"
-#define TEXMFENGINENAME "omega"
-#elif defined (eOmega)
-#define TEXMFPOOLNAME "eomega.pool"
-#define TEXMFENGINENAME "eomega"
#elif defined (Aleph)
#define TEXMFPOOLNAME "aleph.pool"
#define TEXMFENGINENAME "aleph"
@@ -123,7 +117,7 @@ void init_shell_escape (void);
int shell_cmd_is_allowed (char **cmd, char **safecmd, char **cmdname);
/* All but the Omega family use this. */
-#if !defined(Omega) && !defined(eOmega) && !defined(Aleph)
+#if !defined(Aleph)
extern void readtcxfile P1H(void);
extern string translate_filename;
#define translatefilename translate_filename
diff --git a/Build/source/texk/web2c/web2c/ChangeLog b/Build/source/texk/web2c/web2c/ChangeLog
index 567ea750bce..f7d72f90706 100644
--- a/Build/source/texk/web2c/web2c/ChangeLog
+++ b/Build/source/texk/web2c/web2c/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-29 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * common.defines, convert, fixwrites.c, splitup.c: remove all
+ references to Omega, eOmega, and pdfeTeX.
+
2009-03-27 Peter Breitenlohner <peb@mppmu.mpg.de>
* convert (splitup_options for luatex)): avoid to split the C
diff --git a/Build/source/texk/web2c/web2c/README b/Build/source/texk/web2c/web2c/README
index 3471cac9798..8ad3b0eff39 100644
--- a/Build/source/texk/web2c/web2c/README
+++ b/Build/source/texk/web2c/web2c/README
@@ -11,7 +11,7 @@ compilers.
To define a new symbol (e.g., a function) to be used in the change
files, it's necessary to add it to texmf.defines (if it's only used in
TeX/MF/MP) or common.defines (otherwise) here, as well as making the
-actual definition. New functions in the libraryshould be declared
+actual definition. New functions in the library should be declared
somewhere, probably cpascal.h. Of course no underscores are allowed,
since tangle removes them.
diff --git a/Build/source/texk/web2c/web2c/common.defines b/Build/source/texk/web2c/web2c/common.defines
index 59389314e5f..32a8ab6016a 100644
--- a/Build/source/texk/web2c/web2c/common.defines
+++ b/Build/source/texk/web2c/web2c/common.defines
@@ -64,7 +64,6 @@
@define const DVICOPYHELP;
@define const DVITOMPHELP;
@define const DVITYPEHELP;
-@define const EOMEGAHELP;
@define const ETEXHELP;
@define const GFTODVIHELP;
@define const GFTOPKHELP;
@@ -75,14 +74,12 @@
@define const ODVICOPYHELP;
@define const ODVITYPEHELP;
@define const OFM2OPLHELP;
-@define const OMEGAHELP;
@define const OPL2OFMHELP;
@define const OTANGLEHELP;
@define const OVP2OVFHELP;
@define const OVF2OVPHELP;
@define const PATGENHELP;
@define const PDFTEXHELP;
-@define const PDFETEXHELP;
@define const PKTOGFHELP;
@define const PKTYPEHELP;
@define const PLTOTFHELP;
diff --git a/Build/source/texk/web2c/web2c/convert b/Build/source/texk/web2c/web2c/convert
index 2f722d233fd..82f2cd3fe83 100755
--- a/Build/source/texk/web2c/web2c/convert
+++ b/Build/source/texk/web2c/web2c/convert
@@ -83,7 +83,7 @@ ${basefile}coerce.h"
${basefile}coerce.h"
;;
- tex|eomega|etex|pdftex|pdfetex|omega|aleph|xetex)
+ tex|etex|pdftex|aleph|xetex)
more_defines="$srcdir/web2c/texmf.defines $srcdir/synctexdir/synctex.defines"
prog_defines="$srcdir/${basefile}dir/$basefile.defines"
if test -f $prog_defines; then
@@ -146,7 +146,7 @@ case $basefile in
sed -e 's/(buftype)//g' -e 's/(pdstype)//g' <bibtex.h >xbibtex.h
mv xbibtex.h bibtex.h
;;
- tex|eomega|etex|luatex|pdftex|pdfetex|omega|aleph|mf|mp|xetex)
+ tex|etex|luatex|pdftex|aleph|mf|mp|xetex)
sleep 2 # so timestamps are definitely later, to avoid make weirdness
cat ${basefile}coerce.h $srcdir/web2c/coerce.h >x${basefile}coerce.h
mv x${basefile}coerce.h ${basefile}coerce.h
diff --git a/Build/source/texk/web2c/web2c/fixwrites.c b/Build/source/texk/web2c/web2c/fixwrites.c
index 7a7e6a2aa1e..11b111258ad 100644
--- a/Build/source/texk/web2c/web2c/fixwrites.c
+++ b/Build/source/texk/web2c/web2c/fixwrites.c
@@ -163,7 +163,7 @@ bare P2C(string, cp, char, c)
/* xchr[...] is supposed to be replaced by Xchr(...) when characters
- take more than a single octet each, as is the case in Omega. Now
+ take more than a single octet each, as is the case in Aleph. Now
there are several occurrences of xchr[...[...]...], which are
translated into Xchr(...[...)...], and the compiler dies on syntax
errors. Ensures that it is the matching bracket that is replaced,
diff --git a/Build/source/texk/web2c/web2c/splitup.c b/Build/source/texk/web2c/web2c/splitup.c
index 3d0dbee6929..1f9670f002d 100644
--- a/Build/source/texk/web2c/web2c/splitup.c
+++ b/Build/source/texk/web2c/web2c/splitup.c
@@ -117,24 +117,15 @@ main P2C(int, argc, string *, argv)
} else if (STREQ (output_name, "aleph")) {
fputs ("#define INITEX\n#define TeX\n#define Aleph\n", out);
coerce = "alephcoerce.h";
- } else if (STREQ (output_name, "eomega")) {
- fputs ("#define INITEX\n#define TeX\n#define eOmega\n", out);
- coerce = "eomegacoerce.h";
} else if (STREQ (output_name, "etex")) {
fputs ("#define INITEX\n#define TeX\n#define eTeX\n", out);
coerce = "etexcoerce.h";
- } else if (STREQ (output_name, "omega")) {
- fputs ("#define INITEX\n#define TeX\n#define Omega\n", out);
- coerce = "omegacoerce.h";
} else if (STREQ (output_name, "pdftex")) {
fputs ("#define INITEX\n#define TeX\n#define pdfTeX\n", out);
coerce = "pdftexcoerce.h";
} else if (STREQ (output_name, "luatex")) {
fputs ("#define INITEX\n#define TeX\n#define luaTeX\n", out);
coerce = "luatexcoerce.h";
- } else if (STREQ (output_name, "pdfetex")) {
- fputs ("#define INITEX\n#define TeX\n#define pdfeTeX\n", out);
- coerce = "pdfetexcoerce.h";
} else if (STREQ (output_name, "xetex")) {
fputs ("#define INITEX\n#define TeX\n#define XeTeX\n", out);
coerce = "xetexcoerce.h";
@@ -142,7 +133,7 @@ main P2C(int, argc, string *, argv)
fputs ("#define INIMP\n#define MP\n", out);
coerce = "mpcoerce.h";
} else
- FATAL1 ("Can only split mf, mp, tex, etex, omega, eomega, aleph, luatex, pdf[e]tex, or xetex,\n not %s", output_name);
+ FATAL1 ("Can only split mf, mp, tex, etex, aleph, luatex, pdftex, or xetex,\n not %s", output_name);
coerce_len = strlen (coerce);