% eptexdir/eptex.ech: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details. % Public domain. Originally written by Peter Breitenlohner . @x e-pTeX: logo \def\eTeX{$\varepsilon$-\TeX} @y \def\eTeX{$\varepsilon$-\TeX} \def\epTeX{$\varepsilon$-p\TeX} @z @x [1.2] l.200 - pTeX: @d pTeX_version_string=='-p3.1.11' {current p\TeX\ version} @y @d pTeX_version_string=='-p3.1.11-110102' {current \epTeX\ version} @z @x e-pTeX: banner {printed when p\TeX\ starts} @y {printed when p\TeX\ starts} @# @d epTeX_version==pTeX_version_string,eTeX_version_string @d epTeX_banner=='This is epTeX, Version 3.1415926',epTeX_version @d epTeX_banner_k==epTeX_banner {printed when \epTeX\ starts} @z @x @d max_quarterword=255 {largest allowable value in a |quarterword|} @y @d max_quarterword=@"FFFF {largest allowable value in a |quarterword|} @z @x [26.424] e-pTeX: node types last_node_type_code: if (type(tail)<>math_node)or(subtype(tail)<>end_M_code) then if type(tail)<=unset_node then cur_val:=type(tail)+1 else cur_val:=unset_node+2; end; {there are no other cases} end @y last_node_type_code: if ((type(q)<>math_node)or(subtype(q)<>end_M_code))and(head<>tail) then if type(q)<=unset_node then begin if type(q)=dir_node then q:=list_ptr(q); cur_val:=type(q); if cur_valdisp_node then cur_val:=cur_val-1; end else cur_val:=unset_node; {\epTeX's |unset_node| is \eTeX's |unset_node+2|} end; {there are no other cases} end; @z @x e-pTeX: if primitives - leave room for three e-TeX codes @d if_tdir_code=if_case_code+1 { `\.{\\iftdir}' } @y @d if_tdir_code=if_case_code+4 { `\.{\\iftdir}' } @z @x e-pTeX: font_char_{wd,ht,dp,ic}_code l.27306 begin i:=char_info(q)(qi(cur_val)); @y begin i:=orig_char_info(q)(qi(cur_val)); @z @x e-pTeX: displacement value when typesetting right-to-left l.27798 @!LR_temp:pointer; {holds a temporarily removed \.{\\endM} node} @y @!revdisp:scaled; {temporary value of displacement} @!LR_temp:pointer; {holds a temporarily removed \.{\\endM} node} @z @x e-pTeX: reverse nodes of an hlist l.28010 var l:pointer; {the new list} @y var l,la:pointer; {the new list} disp,disp2: scaled; { displacement } disped: boolean; @z @x e-pTeX: reverse nodes of an hlist l.28010 begin g_order:=glue_order(this_box); g_sign:=glue_sign(this_box); @y begin g_order:=glue_order(this_box); g_sign:=glue_sign(this_box); disp:=revdisp; disped:=false; @z @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.} if (l<>null)and(type(l)<>disp_node) then begin p:=get_node(small_node_size); type(p):=disp_node; disp_dimen(p):=disp; link(p):=l; reverse:=p; end else reverse:=l; @z @x e-pTeX: reverse nodes of an hlist l.28010 q:=link(p); link(p):=l; l:=p; p:=q; @y if font_dir[f]<>dir_default then begin q:=link(p); la:=l; l:=p; p:=link(q); link(q):=la; end else begin q:=link(p); link(p):=l; l:=p; p:=q; end; @z @x e-pTeX: reverse nodes of an hlist l.28010 othercases goto next_p @y disp_node: begin disp2:=disp_dimen(p); disp_dimen(p):=disp; disp:=disp2; { print_nl("ep TeXXeT:"); print_int(disp_dimen(p)); } { print(" -> "); print_int(disp); } { if not disped then begin disped:=true; print(" NL"); end; end; } if not disped then disped:=true; end; othercases goto next_p @z @x e-pTeX: ifcsname l.28620 buffer[m]:=info(p) mod @'400; incr(m); p:=link(p); @y if check_kanji(info(p)) then {wchar_token} begin buffer[m]:=Hi(info(p)); incr(m); end; buffer[m]:=Lo(info(p)); incr(m); p:=link(p); @z @x e-pTeX: if_font_char_code l.28633 b:=char_exists(char_info(n)(qi(cur_val))) @y b:=char_exists(orig_char_info(n)(qi(cur_val))) @z @x procedure print_direction(@!d:integer); {print the direction represented by d} @y procedure print_direction_alt(@!d:integer); var x: boolean; begin x:=false; case abs(d) of dir_yoko: begin print(", yoko"); x:=true; end; dir_tate: begin print(", tate"); x:=true; end; dir_dtou: begin print(", dtou"); x:=true; end; end; if x then begin if d<0 then print("(math)"); print(" direction"); end; end; @# procedure print_direction(@!d:integer); {print the direction represented by d} @z