summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/eoext.ch
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/alephdir/eoext.ch
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 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, 0 insertions, 114 deletions
diff --git a/Build/source/texk/web2c/alephdir/eoext.ch b/Build/source/texk/web2c/alephdir/eoext.ch
deleted file mode 100644
index 4fd45003f22..00000000000
--- a/Build/source/texk/web2c/alephdir/eoext.ch
+++ /dev/null
@@ -1,114 +0,0 @@
-% 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.141592653--1.15, ");
-@y
- print("Aleph output, Version 3.141592653--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