% still more web2c stuff for the e-TeX part of Aleph % this will be merged into the others soon @x [16.215] - e-TeX last_node_type last_glue:=max_halfword; last_penalty:=0; last_kern:=0; @y last_glue:=max_halfword; last_penalty:=0; last_kern:=0; last_node_type:=-1; @z @x [51.1332] l.24203 (ca.) texarray line_stack:=xmalloc_array (integer, max_in_open); @y line_stack:=xmalloc_array (integer, max_in_open); eof_seen:=xmalloc_array (boolean, max_in_open); grp_stack:=xmalloc_array (save_pointer, max_in_open); if_stack:=xmalloc_array (pointer, max_in_open); @z @x [51.1337] l.24371 (ca.) texarray trie_root:=0; trie_c[0]:=si(0); trie_ptr:=0; @y trie_root:=0; trie_c[0]:=si(0); trie_ptr:=0; hyph_root:=0; hyph_start:=0; @z @x [53a.1379] l.??? -etex command line switch @!init if (buffer[loc]="*")and(format_ident=" (INIALEPH)") then @y @!init if (etex_p or(buffer[loc]="*"))and(format_ident=" (INIALEPH)") then @z @x [53a.1379] l.??? -etex command line switch incr(loc); eTeX_mode:=1; {enter extended mode} @y if (buffer[loc]="*") then incr(loc); eTeX_mode:=1; {enter extended mode} @z @x [53a.1383] l.??? -etex command line switch @!eTeX_mode: 0..1; {identifies compatibility and extended mode} @y @!eTeX_mode: 0..1; {identifies compatibility and extended mode} @!etex_p: boolean; {was the -etex option specified} @z @x [53a.???] l.??? texarray @!eof_seen : array[1..max_in_open] of boolean; {has eof been seen?} @y @!eof_seen : ^boolean; {has eof been seen?} @z @x [53a.???] l.??? texarray @!grp_stack : array[0..max_in_open] of save_pointer; {initial |cur_boundary|} @!if_stack : array[0..max_in_open] of pointer; {initial |cond_ptr|} @y @!grp_stack : ^save_pointer; {initial |cur_boundary|} @!if_stack : ^pointer; {initial |cond_ptr|} @z @x [53a.???] l.??? texarray hyph_root:=0; hyph_start:=0; @y @z % @x [54/web2c.???] l.??? needed earlier % replacement, but always existing character |font_bc[f]|. % @^inner loop@> % % @= % function effective_char(@!err_p:boolean; % @y % replacement, but always existing character |font_bc[f]|. % @^inner loop@> % % @= % function effective_char(@!err_p:boolean; % @z