summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/eptex.ech
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/eptex.ech')
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.ech42
1 files changed, 6 insertions, 36 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech
index 882003613ec..ada966d46f8 100644
--- a/Build/source/texk/web2c/eptexdir/eptex.ech
+++ b/Build/source/texk/web2c/eptexdir/eptex.ech
@@ -43,16 +43,10 @@
else cur_val:=unset_node;
@z
-@x e-pTeX: if primitives l.27294
-current_if_type_code: if cond_ptr=null then cur_val:=0
- else if cur_if<unless_code then cur_val:=cur_if+1
- else cur_val:=-(cur_if-unless_code+1);
+@x e-pTeX: if primitives - leave room for three e-TeX codes
+@d if_tdir_code=if_case_code+1 { `\.{\\iftdir}' }
@y
-current_if_type_code: begin if cond_ptr=null then cur_val:=0
- else if cur_if<unless_code then cur_val:=cur_if+1
- else cur_val:=cur_if-unless_code+1;
- @<Fix |if_type_code| @>;
- end;
+@d if_tdir_code=if_case_code+4 { `\.{\\iftdir}' }
@z
@x e-pTeX: font_char_{wd,ht,dp,ic}_code l.27306
@@ -83,11 +77,10 @@ disp:=revdisp; disped:=false;
@x e-pTeX: reverse nodes of an hlist l.28010
done:reverse:=l;
@y
-done:
-{if the beginning node of the new list isn't |disp_node|, }
-{we insert |disp_node| to fix.}
+done: {if the beginning node of the new list isn't |disp_node|,
+ we insert |disp_node| to fix.}
if (l<>null)and(type(l)<>disp_node) then begin
- p:=get_node(small_node_size);type(p):=disp_node;
+ p:=get_node(small_node_size); type(p):=disp_node;
disp_dimen(p):=disp; link(p):=l; reverse:=p;
end
else reverse:=l;
@@ -112,16 +105,6 @@ disp_node: begin
othercases goto next_p
@z
-@x e-pTeX: if primitives l.28545
-@d if_def_code=17 { `\.{\\ifdefined}' }
-@d if_cs_code=18 { `\.{\\ifcsname}' }
-@d if_font_char_code=19 { `\.{\\iffontchar}' }
-@y
-@d if_def_code=22 { `\.{\\ifdefined}' }
-@d if_cs_code=23 { `\.{\\ifcsname}' }
-@d if_font_char_code=24 { `\.{\\iffontchar}' }
-@z
-
@x e-pTeX: ifcsname l.28620
buffer[m]:=info(p) mod @'400; incr(m); p:=link(p);
@y
@@ -137,19 +120,6 @@ othercases goto next_p
b:=char_exists(orig_char_info(n)(qi(cur_val)))
@z
-@x e-pTeX: fix if_type l.28637
-@ The |protected| feature of \eTeX\ defines the \.{\\protected} prefix
-@y
-@ @<Fix |if_type_code| @>=
- if (cur_val>=if_def_code+1)and(cur_val<=if_font_char_code+1) then
- cur_val:=cur_val-5
- else if (cur_val<if_def_code+1)and(cur_val>if_case_code+1) then
- cur_val:=cur_val+3;
- if cur_if>=unless_code then cur_val:=-cur_val;
-
-@ The |protected| feature of \eTeX\ defines the \.{\\protected} prefix
-@z
-
@x
procedure print_direction(@!d:integer); {print the direction represented by d}
@y