summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/eoext.ch
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/alephdir/eoext.ch
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/alephdir/eoext.ch')
-rw-r--r--Build/source/texk/web2c/alephdir/eoext.ch114
1 files changed, 114 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/alephdir/eoext.ch b/Build/source/texk/web2c/alephdir/eoext.ch
new file mode 100644
index 00000000000..f9afaa8db2c
--- /dev/null
+++ b/Build/source/texk/web2c/alephdir/eoext.ch
@@ -0,0 +1,114 @@
+% vim ft=ch
+% Dealing with extended formats
+% and changing the last Omega references to Aleph
+@x
+@<Read the other strings from the \.{OMEGA.POOL} file and return |true|,
+@y
+@<Read the other strings from the \.{ALEPH.POOL} file and return |true|,
+@z
+%----------------------------------------
+@x
+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...@>
+@y
+else bad_pool('! I can''t read ALEPH.POOL.')
+@.I can't read ALEPH.POOL@>
+
+@ @<Read one string...@>=
+begin if eof(pool_file) then bad_pool('! ALEPH.POOL has no check sum.');
+@.ALEPH.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('! ALEPH.POOL line doesn''t begin with two digits.');
+@.ALEPH.POOL line doesn't...@>
+@z
+%----------------------------------------
+@x
+ 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@>
+@y
+ bad_pool('! ALEPH.POOL check sum doesn''t have nine digits.');
+@.ALEPH.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('! ALEPH.POOL doesn''t match; OTANGLE me again.');
+@.ALEPH.POOL doesn't match@>
+@z
+%----------------------------------------
+@x
+print_err("Omega capacity exceeded, sorry [");
+@y
+print_err("Aleph capacity exceeded, sorry [");
+@z
+%----------------------------------------
+@x
+ print("Omega output, Version 3.141592--1.15, ");
+@y
+ print("Aleph output, Version 3.141592--1.15--2.1, ");
+@z
+%----------------------------------------
+@x
+ print_err("Patterns can be loaded only by INIOMEGA");
+@y
+ print_err("Patterns can be loaded only by INIALEPH");
+@z
+%----------------------------------------
+@x
+format_ident:=" (INIOMEGA)";
+@y
+format_ident:=" (INIALEPH)";
+@z
+%----------------------------------------
+@x
+ print_nl("(\dump is performed only by INIOMEGA)"); return;
+@:dump_}{\.{\\dump...only by INIOMEGA}@>
+@y
+ print_nl("(\dump is performed only by INIALEPH)"); return;
+@:dump_}{\.{\\dump...only by INIALEPH}@>
+@z
+%----------------------------------------
+@x
+@!init if (buffer[loc]="*")and(format_ident=" (INITEX)") then
+@y
+@!init if (buffer[loc]="*")and(format_ident=" (INIALEPH)") then
+@z
+%%% The following lines would let Aleph start in enhanced mode
+% %----------------------------------------
+% @x
+% incr(loc); eTeX_mode:=1; {enter extended mode}
+% @y
+% if (buffer[loc]="*") then incr(loc);
+% eTeX_mode:=1; {enter extended mode}
+% @z
+% %----------------------------------------
+% @x
+% eTeX_mode:=0; {initially we are in compatibility mode}
+% @y
+% eTeX_mode:=1; {initially we are in extended mode}
+% @z
+% %----------------------------------------
+% @x
+% for j:=0 to eTeX_states-1 do set_new_eqtb_int(eTeX_state_base+j,0); {disable all enhancements}
+% @y
+% for j:=0 to eTeX_states-1 do set_new_eqtb_int(eTeX_state_base+j,1); {enable all enhancements}
+% @z