1% still more web2c stuff for the e-TeX part of Aleph
2% this will be merged into the others soon
3
4@x [51.1332] l.24203 (ca.) texarray
5  line_stack:=xmalloc_array (integer, max_in_open);
6@y
7  line_stack:=xmalloc_array (integer, max_in_open);
8  eof_seen:=xmalloc_array (boolean, max_in_open);
9  grp_stack:=xmalloc_array (save_pointer, max_in_open);
10  if_stack:=xmalloc_array (pointer, max_in_open);
11@z
12
13@x [51.1337] l.24371 (ca.) texarray
14  trie_root:=0; trie_c[0]:=si(0); trie_ptr:=0;
15@y
16  trie_root:=0; trie_c[0]:=si(0); trie_ptr:=0;
17  hyph_root:=0; hyph_start:=0;
18@z
19
20@x [53a.1379] l.??? -etex command line switch
21@!init if (buffer[loc]="*")and(format_ident=" (INIALEPH)") then
22@y
23@!init if (etex_p or(buffer[loc]="*"))and(format_ident=" (INIALEPH)") then
24@z
25
26@x [53a.1379] l.??? -etex command line switch
27  incr(loc); eTeX_mode:=1; {enter extended mode}
28@y
29  if (buffer[loc]="*") then incr(loc);
30  eTeX_mode:=1; {enter extended mode}
31@z
32
33@x [53a.1383] l.??? -etex command line switch
34@!eTeX_mode: 0..1; {identifies compatibility and extended mode}
35@y
36@!eTeX_mode: 0..1; {identifies compatibility and extended mode}
37@!etex_p: boolean; {was the -etex option specified}
38@z
39
40@x [53a.???] l.??? texarray
41@!eof_seen : array[1..max_in_open] of boolean; {has eof been seen?}
42@y
43@!eof_seen : ^boolean; {has eof been seen?}
44@z
45
46@x [53a.???] l.??? texarray
47@!grp_stack : array[0..max_in_open] of save_pointer; {initial |cur_boundary|}
48@!if_stack : array[0..max_in_open] of pointer; {initial |cond_ptr|}
49@y
50@!grp_stack : ^save_pointer; {initial |cur_boundary|}
51@!if_stack : ^pointer; {initial |cond_ptr|}
52@z
53
54@x [53a.???] l.??? texarray
55hyph_root:=0; hyph_start:=0;
56@y
57@z
58
59% @x [54/web2c.???] l.??? needed earlier
60% replacement, but always existing character |font_bc[f]|.
61% @^inner loop@>
62%
63% @<Declare additional functions for ML\TeX@>=
64% function effective_char(@!err_p:boolean;
65% @y
66% replacement, but always existing character |font_bc[f]|.
67% @^inner loop@>
68%
69% @<Declare \eTeX\ procedures for sc...@>=
70% function effective_char(@!err_p:boolean;
71% @z
72
73