diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/web2c/alephdir/eoext.ch | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (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.ch | 114 |
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 |