1% eptexdir/etex.ch1: changefile used to build e-pTeX, see eptexdir/eptex-base.ch for details. 2% Public domain. Originally written by Peter Breitenlohner <tex-live@tug.org>. 3 4@x [12.184] 5 begin print(", "); print_direction(box_dir(p)); 6@y 7 begin print_direction_alt(box_dir(p)); 8@z 9 10@x [17.236] 11@d int_pars=60 {total number of integer parameters} 12@d count_base=int_base+int_pars {256 user \.{\\count} registers} 13@y 14@d tex_int_pars=60 {total number of \TeX's integer parameters} 15@# 16@d etex_int_base=tex_int_pars {base for \eTeX's integer parameters} 17@z 18 19@x [27.468] 20@d job_name_code=ptex_convert_codes {command code for \.{\\jobname}} 21@y 22@d etex_convert_base=ptex_convert_codes {base for \eTeX's command codes} 23@d eTeX_revision_code=etex_convert_base {command code for \.{\\eTeXrevision}} 24@d etex_convert_codes=etex_convert_base+1 {end of \eTeX's command codes} 25@d job_name_code=etex_convert_codes {command code for \.{\\jobname}} 26@z 27 28@x [30.581] 29var @!l:0..255; {small indices or counters} 30@y 31var @!l:0..255; {small indices or counters} 32old_setting: integer; {saved value of |tracing_online|} 33@z 34 35@x [32.619] 36base_line:=cur_v; left_edge:=cur_h; disp:=0; 37@y 38base_line:=cur_v; disp:=0; revdisp:=0; 39prev_p:=this_box+list_offset; 40@<Initialize |hlist_out| for mixed direction typesetting@>; 41left_edge:=cur_h; 42@z 43 44@x [32.622] 45@<Output node |p| for |hlist_out|...@>= 46@y 47@<Output node |p| for |hlist_out|...@>= 48@z 49@x [32.622] 50 p:=link(p); 51@y 52 prev_p:=link(prev_p); {N.B.: not |prev_p:=p|, |p| might be |lig_trick|} 53 p:=link(p); 54@z 55 56@x [32.623] 57disp_node: begin disp:=disp_dimen(p); cur_v:=base_line+disp; end; 58@y 59disp_node: begin disp:=disp_dimen(p); revdisp:=disp; cur_v:=base_line+disp; end; 60@z 61 62@x [32.624] 63 cur_h:=edge+width(p); cur_v:=base_line+disp; cur_dir_hv:=save_dir; 64@y 65 cur_h:=edge; cur_v:=base_line+disp; cur_dir_hv:=save_dir; 66@z 67 68@x [33.649] 69exit: last_disp:=disp; hpack:=r; 70@y 71exit: last_disp:=disp; 72if TeXXeT_en then @<Check for LR anomalies at the end of |hpack|@>; 73hpack:=r; 74@z 75 76@x [33.651] 77 disp_node:disp:=disp_dimen(p); 78@y 79 disp_node:begin disp:=disp_dimen(p); revdisp:=disp; end; 80@z 81 82@x [44.977] 83q:=prune_page_top(q); p:=list_ptr(v); 84if q=null then box(n):=null {the |eq_level| of the box stays the same} 85else begin 86 box(n):=vpack(q,natural); set_box_dir(box(n))(box_dir(v)); 87 end; 88@y 89q:=prune_page_top(q,saving_vdiscards>0); p:=list_ptr(v); 90if q<>null then begin 91 q:=vpack(q,natural); set_box_dir(q)(box_dir(v)); 92 end; 93change_box(q); 94@z 95 96@x [47.1096] 97 else begin adjust_hlist(head,true); line_break(widow_penalty) 98@y 99 else begin adjust_hlist(head,true); line_break(false) 100@z 101 102@x [47.1110] 103 begin if type(box(cur_val))=dir_node then 104 begin delete_glue_ref(space_ptr(box(cur_val))); 105 delete_glue_ref(xspace_ptr(box(cur_val))); 106 free_node(box(cur_val),box_node_size); 107@y 108 begin if type(p)=dir_node then 109 begin delete_glue_ref(space_ptr(p)); 110 delete_glue_ref(xspace_ptr(p)); 111 free_node(p,box_node_size); 112@z 113@x [47.1110] 114 link(tail):=list_ptr(p); box(cur_val):=null; 115@y 116 link(tail):=list_ptr(p); change_box(null); 117@z 118 119@x [48.1145] 120else begin adjust_hlist(head,true); line_break(display_widow_penalty);@/ 121@y 122else begin adjust_hlist(head,true); line_break(true);@/ 123@z 124 125@x [49.1247] 126if box(b)<>null then 127 begin q:=box(b); p:=link(q); 128@y 129if b<>null then 130 begin q:=b; p:=link(q); 131@z 132@x [49.1247] 133 begin p:=link(box(b)); link(box(b)):=null; 134@y 135 begin p:=link(b); link(b):=null; 136@z 137@x [49.1247] 138 link(q):=p; link(box(b)):=q; 139@y 140 link(q):=p; link(b):=q; 141@z 142 143@x [49.1291] 144@d show_mode=4 { \.{\\showmode} } 145@y 146@d show_mode=7 { \.{\\showmode} } 147@z 148 149@x 150@* \[55/p\TeX] System-dependent changes for p\TeX. 151@y 152@* \[54/p\TeX] System-dependent changes for p\TeX. 153@z 154 155@x 156@* \[56] System-dependent changes. 157@y 158@* \[54] System-dependent changes. 159@z 160 161