summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/eoext.ch
blob: 4fd45003f222c9ee4bb6167b0244722b9fa2e163 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
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.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