% This is a change file for pTeX 3.2 % By Sadayuki Tanaka and ASCII MEDIA WORKS. % % Thanks for : % Ryoichi Kurasawa (us009185@interramp.com), % Hisato Hamano, % Hiroto Kagotani (kagotani@in.it.okayama-u.ac.jp), % Takashi Kakiuchi (kakiuchi@sy6.isl.mei.co.jp), % Yoichi Kawabata (kawabata@canon.co.jp), % Makoto Kobayashi (makoto@lloem.fujidenki.co.jp), % Yoshihiro Aoki (aoki@tokyo-shoseki-ptg.co.jp), % Akira Kakuto (kakuto@fsci.fuk.kindai.ac.jp). % Koich Inoue (inoue@ma.ns.musashi-tech.ac.jp). % % (??/??/87) RKS jTeX 2.9 -- j1.0 % (??/??/89) RKS jTeX 2.93 -- j1.3 % (12/ 9/89) H_2 pTeX 2.93 j1.3 p1.0.1 % (12/??/89) RKS jTeX 2.95 -- j1.5 % (12/??/89) RKS jTeX 2.99 -- j1.5 % (02/02/90) RKS jTeX 2.99 -- j1.6 % (04/16/90) H_2 pTeX 2.99 j1.6 p1.0.3 % (09/14/90) H_2 pTeX 2.99 j1.6 p1.0.9 -- pre-release % (10/29/90) H_2 Bug fix (p1.0.9a) % (01/21/92) H_2 jTeX 2.99 - j1.7 % (01/21/92) H_2 pTeX 2.99 j1.7 p1.0.9F % (03/09/92) H_2 pTeX 2.99 j1.7 p1.0.9G jflag BUG % (03/20/95) KN pTeX p2.0 (based on 3.1415) % (09/08/95) KN pTeX p2.1 % (09/20/95) KN pTeX p2.1.1 % (11/21/95) KN pTeX p2.1.4 % (08/27/97) KN pTeX p2.1.5 (based on 3.14159) % (02/26/98) KN pTeX p2.1.6 % (03/19/98) KN pTeX p2.1.7 % (03/26/98) KN pTeX p2.1.8 (Web2c 7.2) % (02/21/2000) KN pTeX p2.1.9 (Web2c 7.3.1) % (11/13/2000) KN pTeX p2.1.10 % (05/22/2001) KN pTeX p2.1.11 % (03/10/2001) KN pTeX p3.0 (modified BSD licence) % (09/02/2004) ST pTeX p3.1.4 % (11/29/2004) KN pTeX p3.1.5 % (12/13/2004) KN pTeX p3.1.8 % (10/17/2005) ST pTeX p3.1.9 % (07/18/2006) ST pTeX p3.1.10 % (08/17/2009) ST pTeX p3.1.11 % (05/23/2010) AK Bug fix by Hironori Kitagawa. % (31/12/2010) AK Bug fix and accent Kanji by Hironori Kitagawa. % (19/01/2011) PB Let \lastkern etc act through disp node. % (15/04/2011) PB pTeX p3.2 Add \ifdbox and \ifddir % @x [1.2] l.200 - pTeX: @d banner==TeX_banner @d banner_k==TeX_banner_k @y @d pTeX_version_string=='-p3.2' {current p\TeX\ version} @# @d pTeX_banner=='This is pTeX, Version 3.1415926',pTeX_version_string @d pTeX_banner_k==pTeX_banner {printed when p\TeX\ starts} @# @d banner==pTeX_banner @d banner_k==pTeX_banner_k @z @x [2.??] l.586 - pTeX: @!ASCII_code=0..255; {eight-bit numbers} @y @!ASCII_code=0..255; {eight-bit numbers} @!KANJI_code=0..65535; {sixteen-bit numbers} @z @x [3.??] l.870 - pTeX: @!eight_bits=0..255; {unsigned one-byte quantity} @y @!eight_bits=0..255; {unsigned one-byte quantity} @!sixteen_bits=0..65535; {unsigned two-bytes quantity} @z @x [3.??] l.891 - pTeX: @ All of the file opening functions are defined in C. @y @ All of the file opening functions are defined in C. @ Kanji code handling. @z @x [4.47] l.1325 - pTeX: @!init function get_strings_started:boolean; {initializes the string pool, but returns |false| if something goes wrong} label done,exit; var k,@!l:0..255; {small indices or counters} @y @!init function get_strings_started:boolean; {initializes the string pool, but returns |false| if something goes wrong} label done,exit; var k,@!l:KANJI_code; {small indices or counters} @z @x [4.49] l.1384 - pTeX: @= (k<" ")or(k>"~") @y @= not (ismultiprn(k) or xprn[k]) @z @x [5.54] l.1514 - pTeX: Global variables @!trick_buf:array[0..ssup_error_line] of ASCII_code; {circular buffer for pseudoprinting} @y @!trick_buf:array[0..ssup_error_line] of ASCII_code; {circular buffer for pseudoprinting} @!trick_buf2:array[0..ssup_error_line] of 0..2; {pTeX: buffer for KANJI} @!kcode_pos: 0..2; {pTeX: denotes whether first byte or second byte of KANJI} @z @x [5.55] l.1519 - pTeX: Initialize the kcode_pos @ @= selector:=term_only; tally:=0; term_offset:=0; file_offset:=0; @y @ @= selector:=term_only; tally:=0; term_offset:=0; file_offset:=0; kcode_pos:=0; @z @x [5.57] l.1538 - pTeX: kcode_pos procedure print_ln; {prints an end-of-line} begin case selector of term_and_log: begin wterm_cr; wlog_cr; term_offset:=0; file_offset:=0; end; log_only: begin wlog_cr; file_offset:=0; end; term_only: begin wterm_cr; term_offset:=0; end; no_print,pseudo,new_string: do_nothing; othercases write_ln(write_file[selector]) endcases;@/ @y procedure print_ln; {prints an end-of-line} begin case selector of term_and_log: begin if kcode_pos=1 then begin wterm(' '); wlog(' '); end; wterm_cr; wlog_cr; term_offset:=0; file_offset:=0; end; log_only: begin if kcode_pos=1 then wlog(' '); wlog_cr; file_offset:=0; end; term_only: begin if kcode_pos=1 then wterm(' '); wterm_cr; term_offset:=0; end; no_print,pseudo,new_string: do_nothing; othercases write_ln(write_file[selector]) endcases;@/ kcode_pos:=0; @z @x [5.58] l.1557 - pTeX: kcode_pos, trick_buf2 procedure print_char(@!s:ASCII_code); {prints a single character} label exit; begin if @ then if selector then if selector=max_print_line-1 then begin wlog_cr; file_offset:=0; end; if (selector=term_and_log)or(selector=term_only) then if term_offset>=max_print_line-1 then begin wterm_cr; term_offset:=0; end; end else kcode_pos:=0; case selector of term_and_log: begin wterm(xchr[s]); incr(term_offset); if term_offset=max_print_line then begin wterm_cr; term_offset:=0; end; wlog(xchr[s]); incr(file_offset); if file_offset=max_print_line then begin wlog_cr; file_offset:=0; end; end; log_only: begin wlog(xchr[s]); incr(file_offset); if file_offset=max_print_line then print_ln; end; term_only: begin wterm(xchr[s]); incr(term_offset); if term_offset=max_print_line then print_ln; end; no_print: do_nothing; pseudo: if tally=str_ptr then s:="???" {this can't happen} @.???@> else if s<256 then if s<0 then s:="???" {can't happen} else begin if selector>pseudo then begin print_char(s); return; {internal strings are not expanded} end; if (@) then if selector=str_ptr then s:="???" {this can't happen} @.???@> else if s<256 then if s<0 then s:="???" {can't happen} else begin if selector>pseudo then begin print_char(s); return; {internal strings are not expanded} end; if (@) then if selector= if src_specials_p or file_line_error_style_p or parse_first_line_p then wterm(banner_k) else wterm(banner); @y @= if src_specials_p or file_line_error_style_p or parse_first_line_p then wterm(banner_k) else wterm(banner); wterm(' ('); wterm(conststringcast(get_enc_string)); wterm(')'); @z @x l.1820 - pTeX k:=first; while k < last do begin print_buffer(k) end; @y if last<>first then for k:=first to last-1 do print(buffer[k]); @z @x [8.112] l.2588 - pTeX: @d ho(#)==# {to take a sixteen-bit item from a halfword} @y @d ho(#)==# {to take a sixteen-bit item from a halfword} @d KANJI(#)==# {pTeX: to output an KANJI code into a halfword} @d tokanji(#)==# {pTeX: to take an KANJI code into a halfword} @d tonum(#)==# {pTeX: to put an KANJI code into a halfword} @z @x [10.135] l.2895 - pTeX: box_dir |fil|, |fill|, or |filll|). The |subtype| field is not used. @y |fil|, |fill|, or |filll|). The |subtype| field is not used in \TeX. In p\TeX\ the |subtype| field records the box direction |box_dir|. @z @x [10.135] l.2897 - pTeX: box_dir, space_ptr, xspace_ptr @d hlist_node=0 {|type| of hlist nodes} @d box_node_size=7 {number of words to allocate for a box node} @d width_offset=1 {position of |width| field in a box node} @d depth_offset=2 {position of |depth| field in a box node} @d height_offset=3 {position of |height| field in a box node} @d width(#) == mem[#+width_offset].sc {width of the box, in sp} @d depth(#) == mem[#+depth_offset].sc {depth of the box, in sp} @d height(#) == mem[#+height_offset].sc {height of the box, in sp} @d shift_amount(#) == mem[#+4].sc {repositioning distance, in sp} @d list_offset=5 {position of |list_ptr| field in a box node} @d list_ptr(#) == link(#+list_offset) {beginning of the list inside the box} @d glue_order(#) == subtype(#+list_offset) {applicable order of infinity} @d glue_sign(#) == type(#+list_offset) {stretching or shrinking} @d normal=0 {the most common case when several cases are named} @d stretching = 1 {glue setting applies to the stretch components} @d shrinking = 2 {glue setting applies to the shrink components} @d glue_offset = 6 {position of |glue_set| in a box node} @d glue_set(#) == mem[#+glue_offset].gr {a word of type |glue_ratio| for glue setting} @y @d hlist_node=0 {|type| of hlist nodes} @d box_node_size=8 {number of words to allocate for a box node} @# @d box_dir(#) == (qo(subtype(#))) {direction of a box} @d set_box_dir(#) == subtype(#):=set_box_dir_end @d set_box_dir_end(#) == qi(#) @# @d dir_default = 0 {direction of the box, default Left to Right} @d dir_dtou = 1 {direction of the box, Bottom to Top} @d dir_tate = 3 {direction of the box, Top to Bottom} @d dir_yoko = 4 {direction of the box, equal default} @d any_dir == dir_yoko,dir_tate,dir_dtou @# @d width_offset=1 {position of |width| field in a box node} @d depth_offset=2 {position of |depth| field in a box node} @d height_offset=3 {position of |height| field in a box node} @d width(#) == mem[#+width_offset].sc {width of the box, in sp} @d depth(#) == mem[#+depth_offset].sc {depth of the box, in sp} @d height(#) == mem[#+height_offset].sc {height of the box, in sp} @d shift_amount(#) == mem[#+4].sc {repositioning distance, in sp} @d list_offset=5 {position of |list_ptr| field in a box node} @d list_ptr(#) == link(#+list_offset) {beginning of the list inside the box} @d glue_order(#) == subtype(#+list_offset) {applicable order of infinity} @d glue_sign(#) == type(#+list_offset) {stretching or shrinking} @d normal=0 {the most common case when several cases are named} @d stretching = 1 {glue setting applies to the stretch components} @d shrinking = 2 {glue setting applies to the shrink components} @d glue_offset = 6 {position of |glue_set| in a box node} @d glue_set(#) == mem[#+glue_offset].gr {a word of type |glue_ratio| for glue setting} @d space_offset = 7 {position of |glue_set| in a box node} @d space_ptr(#) == link(#+space_offset) @d xspace_ptr(#) == info(#+space_offset) @z @x [10.136] l.3037 - pTeX: space_ptr, xspace_ptr width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null; glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p)); @y width(p):=0; depth(p):=0; height(p):=0; shift_amount(p):=0; list_ptr(p):=null; glue_sign(p):=normal; glue_order(p):=normal; set_glue_ratio_zero(glue_set(p)); space_ptr(p):=zero_glue; xspace_ptr(p):=zero_glue; add_glue_ref(zero_glue); add_glue_ref(zero_glue); @z @x [10.137] l.3045 - pTeX: direction change node @d vlist_node=1 {|type| of vlist nodes} @y @d vlist_node=1 {|type| of vlist nodes} @ A |dir_node| stands for direction change. @d dir_node=2 {|type| of dir nodes} @p function new_dir_node(b:pointer; dir:eight_bits):pointer; var p:pointer; {the new node} begin if type(b)>vlist_node then confusion("new_dir_node:not box"); p:=new_null_box; type(p):=dir_node; set_box_dir(p)(dir); case box_dir(b) of dir_yoko: @; dir_tate: @; dir_dtou: @; othercases confusion("new_dir_node:illegal dir"); endcases; link(b):=null; list_ptr(p):=b; new_dir_node:=p; end; @ @= case dir of dir_tate: begin width(p):=height(b)+depth(b); depth(p):=width(b)/2; height(p):=width(b)-depth(p); end; dir_dtou: begin width(p):=height(b)+depth(b); depth(p):=0; height(p):=width(b); end; othercases confusion("new_dir_node:y->?"); endcases @ @= case dir of dir_yoko: begin width(p):=height(b)+depth(b); depth(p):=0; height(p):=width(b); end; dir_dtou: begin width(p):=width(b); depth(p):=height(b); height(p):=depth(b); end; othercases confusion("new_dir_node:t->?"); endcases @ @= case dir of dir_yoko: begin width(p):=height(b)+depth(b); depth(p):=0; height(p):=width(b); end; dir_tate: begin width(p):=width(b); depth(p):=height(b); height(p):=depth(b); end; othercases confusion("new_dir_node:d->?"); endcases @z @x [10.138] l.3054 - pTeX: renumber rule_node @d rule_node=2 {|type| of rule nodes} @y @d rule_node=3 {|type| of rule nodes} @z @x [10.140] l.3083 - pTeX: renumber ins_node, add ins_dir field @d ins_node=3 {|type| of insertion nodes} @d ins_node_size=5 {number of words to allocate for an insertion} @d float_cost(#)==mem[#+1].int {the |floating_penalty| to be used} @d ins_ptr(#)==info(#+4) {the vertical list to be inserted} @d split_top_ptr(#)==link(#+4) {the |split_top_skip| to be used} @y @d ins_node=4 {|type| of insertion nodes} @d ins_node_size=6 {number of words to allocate for an insertion} @d float_cost(#)==mem[#+1].int {the |floating_penalty| to be used} @d ins_ptr(#)==info(#+4) {the vertical list to be inserted} @d split_top_ptr(#)==link(#+4) {the |split_top_skip| to be used} @d ins_dir(#)==subtype(#+5) {direction of |ins_node|} @z @x [10.141] l.3089 - pTeX: disp_node @ A |mark_node| has a |mark_ptr| field that points to the reference count @y @ A |disp_node| has a |disp_dimen| field that points to the displacement distance of the baselineshift between Latin characters and Kanji chatacters. @d disp_node=5 {|type| of a displace node} @d disp_dimen(#)==mem[#+1].sc @ A |mark_node| has a |mark_ptr| field that points to the reference count @z @x [10.140] l.3095 - pTeX: renumber nodes @d mark_node=4 {|type| of a mark node} @y @d mark_node=6 {|type| of a mark node} @z @x [10.141] l.3105 - pTeX: renumber nodes @d adjust_node=5 {|type| of an adjust node} @y @d adjust_node=7 {|type| of an adjust node} @z @x [10.142] l.3122 - pTeX: renumber nodes @d ligature_node=6 {|type| of a ligature node} @y @d ligature_node=8 {|type| of a ligature node} @z @x [10.145] l.3163 - pTeX: renumber nodes @d disc_node=7 {|type| of a discretionary node} @y @d disc_node=9 {|type| of a discretionary node} @z @x [10.146] l.3191 - pTeX: renumber nodes @d whatsit_node=8 {|type| of special extension nodes} @y @d whatsit_node=10 {|type| of special extension nodes} @z @x [10.147] l.3198 - pTeX: renumber nodes @d math_node=9 {|type| of a math node} @y @d math_node=11 {|type| of a math node} @z @x [10.150] l.3244 - pTeX: renumber nodes @d glue_node=10 {|type| of node that points to a glue specification} @y @d glue_node=12 {|type| of node that points to a glue specification} @z @x [10.155] l.3342 - pTeX: renumber nodes @d kern_node=11 {|type| of a kern node} @d explicit=1 {|subtype| of kern nodes from \.{\\kern} and \.{\\/}} @d acc_kern=2 {|subtype| of kern nodes from accents} @y @d kern_node=13 {|type| of a kern node} @d explicit=1 {|subtype| of kern nodes from \.{\\kern}} @d acc_kern=2 {|subtype| of kern nodes from accents} @d ita_kern=3 {|subtype| of kern nodes from \.{\\/}} @z @x [10.157] l.3363 - pTeX: renumber nodes @d penalty_node=12 {|type| of a penalty node} @y @d penalty_node=14 {|type| of a penalty node} @d widow_pena=1 {|subtype| of penalty nodes from \.{\\jchrwidowpenalty}} @d kinsoku_pena=2 {|subtype| of penalty nodes from kinsoku} @z @x [10.159] l.3392 - pTeX: renumber nodes @d unset_node=13 {|type| for an unset node} @y @d unset_node=15 {|type| for an unset node} @z @x [10.160] l.3397 - pTeX: renumber nodes @ In fact, there are still more types coming. When we get to math formula processing we will see that a |style_node| has |type=14|; and a number of larger type codes will also be defined, for use in math mode only. @y @ In fact, there are still more types coming. When we get to math formula processing we will see that a |style_node| has |type=16|; and a number of larger type codes will also be defined, for use in math mode only. @z @x [12.174] l.3662 - pTeX: print KANJI print_ASCII(qo(character(p))); @y if font_dir[font(p)]<>dir_default then begin p:=link(p); print_kanji(info(p)); end else print_ASCII(qo(character(p))); @z @x [12.175] l.3672 - pTeX: Print a short indication of dir_nodes. hlist_node,vlist_node,ins_node,whatsit_node,mark_node,adjust_node, unset_node: print("[]"); @y hlist_node,vlist_node,dir_node,ins_node,whatsit_node, mark_node,adjust_node,unset_node: print("[]"); @z @x [12.176] l.3698 - pTeX: print KANJI. print_char(" "); print_ASCII(qo(character(p))); @y print_char(" "); if font_dir[font(p)]<>dir_default then begin p:=link(p); print_kanji(info(p)); end else print_ASCII(qo(character(p))); @z @x [12.183] l.3815 - pTeX: display char_node and disp_node. if is_char_node(p) then print_font_and_char(p) else case type(p) of hlist_node,vlist_node,unset_node: @; rule_node: @; ins_node: @; whatsit_node: @; @y if is_char_node(p) then begin print_font_and_char(p); if font_dir[font(p)]<>dir_default then p:=link(p) end else case type(p) of hlist_node,vlist_node,dir_node,unset_node: @; rule_node: @; ins_node: @; whatsit_node: @; disp_node: begin print_esc("displace "); print_scaled(disp_dimen(p)); end; @z @x [12.184] l.3833 - pTeX: display dir_node. @ @= begin if type(p)=hlist_node then print_esc("h") else if type(p)=vlist_node then print_esc("v") else print_esc("unset"); @y @ @= begin case type(p) of hlist_node: print_esc("h"); vlist_node: print_esc("v"); dir_node: print_esc("dir"); othercases print_esc("unset") endcases@/; @z @x [12.184] l.3842 - pTeX: display dir_node. if shift_amount(p)<>0 then begin print(", shifted "); print_scaled(shift_amount(p)); end; @y if shift_amount(p)<>0 then begin print(", shifted "); print_scaled(shift_amount(p)); end; @z @x [12.184] l.3845 - pTeX: display dir_node. end; @y if box_dir(p)<>dir_default then begin print(", "); print_direction(box_dir(p)); end; end; @z @x [12.188] l.3896 - pTeX: Display insertion and ins_dir. @ @= begin print_esc("insert"); print_int(qo(subtype(p))); print(", natural size "); print_scaled(height(p)); @y @ @= begin print_esc("insert"); print_int(qo(subtype(p))); print_dir(ins_dir(p)); print(", natural size "); print_scaled(height(p)); @z @x [12.194] l.3961 - pTeX: Display penalty usage @ @= begin print_esc("penalty "); print_int(penalty(p)); end @y @ @= begin print_esc("penalty "); print_int(penalty(p)); if subtype(p)=widow_pena then print("(for \jchrwidowpenalty)") else if subtype(p)=kinsoku_pena then print("(for kinsoku)"); end @z @x [13.202] l.4043 - pTeX: dir_node, disp_node hlist_node,vlist_node,unset_node: begin flush_node_list(list_ptr(p)); free_node(p,box_node_size); goto done; end; @y hlist_node,vlist_node,dir_node,unset_node: begin flush_node_list(list_ptr(p)); fast_delete_glue_ref(space_ptr(p)); fast_delete_glue_ref(xspace_ptr(p)); free_node(p,box_node_size); goto done; end; @z @x [13.202] l.4056 - pTeX: kern_node,math_node,penalty_node: do_nothing; @y kern_node,disp_node,math_node,penalty_node: do_nothing; @z @x [14.206] l.4121 - pTeX: space_ptr, xspace_ptr, dir_node, disp_node @ @= case type(p) of hlist_node,vlist_node,unset_node: begin r:=get_node(box_node_size); mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last two words} list_ptr(r):=copy_node_list(list_ptr(p)); {this affects |mem[r+5]|} words:=5; end; rule_node: begin r:=get_node(rule_node_size); words:=rule_node_size; end; ins_node: begin r:=get_node(ins_node_size); mem[r+4]:=mem[p+4]; add_glue_ref(split_top_ptr(p)); ins_ptr(r):=copy_node_list(ins_ptr(p)); {this affects |mem[r+4]|} words:=ins_node_size-1; end; @y @ @= case type(p) of hlist_node,vlist_node,dir_node,unset_node: begin r:=get_node(box_node_size); mem[r+7]:=mem[p+7]; mem[r+6]:=mem[p+6]; mem[r+5]:=mem[p+5]; {copy the last three words} add_glue_ref(space_ptr(r)); add_glue_ref(xspace_ptr(r)); list_ptr(r):=copy_node_list(list_ptr(p)); {this affects |mem[r+5]|} words:=5; end; rule_node: begin r:=get_node(rule_node_size); words:=rule_node_size; end; ins_node: begin r:=get_node(ins_node_size); mem[r+5]:=mem[p+5]; mem[r+4]:=mem[p+4]; add_glue_ref(split_top_ptr(p)); ins_ptr(r):=copy_node_list(ins_ptr(p)); {this affects |mem[r+4]|} words:=ins_node_size-2; end; @z @x [14.206] l.4140 - pTeX: disp_node kern_node,math_node,penalty_node: begin r:=get_node(small_node_size); words:=small_node_size; end; @y kern_node,disp_node,math_node,penalty_node: begin r:=get_node(small_node_size); words:=small_node_size; end; @z @x [15.207] l.4201 - pTeX: Add kanji, kana, other_kchar category codes. @d max_char_code=15 {largest catcode for individual characters} @y @d kanji=16 {kanji} @d kana=17 {hiragana, katakana, alphabet} @d other_kchar=18 {kanji codes} @d max_char_code=18 {largest catcode for individual characters} @z @x [15.208] l.4207 - pTeX: Add inhibit_glue, chg_dir. @d char_num=16 {character specified numerically ( \.{\\char} )} @d math_char_num=17 {explicit math code ( \.{\\mathchar} )} @d mark=18 {mark definition ( \.{\\mark} )} @d xray=19 {peek inside of \TeX\ ( \.{\\show}, \.{\\showbox}, etc.~)} @d make_box=20 {make a box ( \.{\\box}, \.{\\copy}, \.{\\hbox}, etc.~)} @d hmove=21 {horizontal motion ( \.{\\moveleft}, \.{\\moveright} )} @d vmove=22 {vertical motion ( \.{\\raise}, \.{\\lower} )} @d un_hbox=23 {unglue a box ( \.{\\unhbox}, \.{\\unhcopy} )} @d un_vbox=24 {unglue a box ( \.{\\unvbox}, \.{\\unvcopy} )} @y @d char_num=max_char_code+1 {character specified numerically ( \.{\\char} )} @d math_char_num=char_num+1 {explicit math code ( \.{\\mathchar} )} @d mark=math_char_num+1 {mark definition ( \.{\\mark} )} @d xray=mark+1 {peek inside of \TeX\ ( \.{\\show}, \.{\\showbox}, etc.~)} @d make_box=xray+1 {make a box ( \.{\\box}, \.{\\copy}, \.{\\hbox}, etc.~)} @d hmove=make_box+1 {horizontal motion ( \.{\\moveleft}, \.{\\moveright} )} @d vmove=hmove+1 {vertical motion ( \.{\\raise}, \.{\\lower} )} @d un_hbox=vmove+1 {unglue a box ( \.{\\unhbox}, \.{\\unhcopy} )} @d un_vbox=un_hbox+1 {unglue a box ( \.{\\unvbox}, \.{\\unvcopy} )} @z @x [15.208] l.4207 - pTeX: Add inhibit_glue, chg_dir. @d remove_item=25 {nullify last item ( \.{\\unpenalty}, \.{\\unkern}, \.{\\unskip} )} @d hskip=26 {horizontal glue ( \.{\\hskip}, \.{\\hfil}, etc.~)} @d vskip=27 {vertical glue ( \.{\\vskip}, \.{\\vfil}, etc.~)} @d mskip=28 {math glue ( \.{\\mskip} )} @d kern=29 {fixed space ( \.{\\kern})} @d mkern=30 {math kern ( \.{\\mkern} )} @d leader_ship=31 {use a box ( \.{\\shipout}, \.{\\leaders}, etc.~)} @d halign=32 {horizontal table alignment ( \.{\\halign} )} @d valign=33 {vertical table alignment ( \.{\\valign} )} @y @d remove_item=un_vbox+1 {nullify last item ( \.{\\unpenalty}, \.{\\unkern}, \.{\\unskip} )} @d hskip=remove_item+1 {horizontal glue ( \.{\\hskip}, \.{\\hfil}, etc.~)} @d vskip=hskip+1 {vertical glue ( \.{\\vskip}, \.{\\vfil}, etc.~)} @d mskip=vskip+1 {math glue ( \.{\\mskip} )} @d kern=mskip+1 {fixed space ( \.{\\kern})} @d mkern=kern+1 {math kern ( \.{\\mkern} )} @d leader_ship=mkern+1 {use a box ( \.{\\shipout}, \.{\\leaders}, etc.~)} @d halign=leader_ship+1 {horizontal table alignment ( \.{\\halign} )} @d valign=halign+1 {vertical table alignment ( \.{\\valign} )} @z @x [15.208] l.4207 - pTeX: Add inhibit_glue, chg_dir. @d no_align=34 {temporary escape from alignment ( \.{\\noalign} )} @d vrule=35 {vertical rule ( \.{\\vrule} )} @d hrule=36 {horizontal rule ( \.{\\hrule} )} @d insert=37 {vlist inserted in box ( \.{\\insert} )} @d vadjust=38 {vlist inserted in enclosing paragraph ( \.{\\vadjust} )} @d ignore_spaces=39 {gobble |spacer| tokens ( \.{\\ignorespaces} )} @d after_assignment=40 {save till assignment is done ( \.{\\afterassignment} )} @d after_group=41 {save till group is done ( \.{\\aftergroup} )} @d break_penalty=42 {additional badness ( \.{\\penalty} )} @d start_par=43 {begin paragraph ( \.{\\indent}, \.{\\noindent} )} @d ital_corr=44 {italic correction ( \.{\\/} )} @d accent=45 {attach accent in text ( \.{\\accent} )} @d math_accent=46 {attach accent in math ( \.{\\mathaccent} )} @d discretionary=47 {discretionary texts ( \.{\\-}, \.{\\discretionary} )} @d eq_no=48 {equation number ( \.{\\eqno}, \.{\\leqno} )} @d left_right=49 {variable delimiter ( \.{\\left}, \.{\\right} )} @y @d no_align=valign+1 {temporary escape from alignment ( \.{\\noalign} )} @d vrule=no_align+1 {vertical rule ( \.{\\vrule} )} @d hrule=vrule+1 {horizontal rule ( \.{\\hrule} )} @d insert=hrule+1 {vlist inserted in box ( \.{\\insert} )} @d vadjust=insert+1 {vlist inserted in enclosing paragraph ( \.{\\vadjust} )} @d ignore_spaces=vadjust+1 {gobble |spacer| tokens ( \.{\\ignorespaces} )} @d after_assignment=ignore_spaces+1 {save till assignment is done ( \.{\\afterassignment} )} @d after_group=after_assignment+1 {save till group is done ( \.{\\aftergroup} )} @d break_penalty=after_group+1 {additional badness ( \.{\\penalty} )} @d start_par=break_penalty+1 {begin paragraph ( \.{\\indent}, \.{\\noindent} )} @d ital_corr=start_par+1 {italic correction ( \.{\\/} )} @d accent=ital_corr+1 {attach accent in text ( \.{\\accent} )} @d math_accent=accent+1 {attach accent in math ( \.{\\mathaccent} )} @d discretionary=math_accent+1 {discretionary texts ( \.{\\-}, \.{\\discretionary} )} @d eq_no=discretionary+1 {equation number ( \.{\\eqno}, \.{\\leqno} )} @d left_right=eq_no+1 {variable delimiter ( \.{\\left}, \.{\\right} )} @z @x [15.208] l.4207 - pTeX: Add inhibit_glue, chg_dir. @d math_comp=50 {component of formula ( \.{\\mathbin}, etc.~)} @d limit_switch=51 {diddle limit conventions ( \.{\\displaylimits}, etc.~)} @d above=52 {generalized fraction ( \.{\\above}, \.{\\atop}, etc.~)} @d math_style=53 {style specification ( \.{\\displaystyle}, etc.~)} @d math_choice=54 {choice specification ( \.{\\mathchoice} )} @d non_script=55 {conditional math glue ( \.{\\nonscript} )} @d vcenter=56 {vertically center a vbox ( \.{\\vcenter} )} @d case_shift=57 {force specific case ( \.{\\lowercase}, \.{\\uppercase}~)} @d message=58 {send to user ( \.{\\message}, \.{\\errmessage} )} @d extension=59 {extensions to \TeX\ ( \.{\\write}, \.{\\special}, etc.~)} @d in_stream=60 {files for reading ( \.{\\openin}, \.{\\closein} )} @d begin_group=61 {begin local grouping ( \.{\\begingroup} )} @d end_group=62 {end local grouping ( \.{\\endgroup} )} @d omit=63 {omit alignment template ( \.{\\omit} )} @d ex_space=64 {explicit space ( \.{\\\ } )} @d no_boundary=65 {suppress boundary ligatures ( \.{\\noboundary} )} @d radical=66 {square root and similar signs ( \.{\\radical} )} @d end_cs_name=67 {end control sequence ( \.{\\endcsname} )} @d min_internal=68 {the smallest code that can follow \.{\\the}} @d char_given=68 {character code defined by \.{\\chardef}} @d math_given=69 {math code defined by \.{\\mathchardef}} @d last_item=70 {most recent item ( \.{\\lastpenalty}, \.{\\lastkern}, \.{\\lastskip} )} @d max_non_prefixed_command=70 {largest command code that can't be \.{\\global}} @y @d math_comp=left_right+1 {component of formula ( \.{\\mathbin}, etc.~)} @d limit_switch=math_comp+1 {diddle limit conventions ( \.{\\displaylimits}, etc.~)} @d above=limit_switch+1 {generalized fraction ( \.{\\above}, \.{\\atop}, etc.~)} @d math_style=above+1 {style specification ( \.{\\displaystyle}, etc.~)} @d math_choice=math_style+1 {choice specification ( \.{\\mathchoice} )} @d non_script=math_choice+1 {conditional math glue ( \.{\\nonscript} )} @d vcenter=non_script+1 {vertically center a vbox ( \.{\\vcenter} )} @d case_shift=vcenter+1 {force specific case ( \.{\\lowercase}, \.{\\uppercase}~)} @d message=case_shift+1 {send to user ( \.{\\message}, \.{\\errmessage} )} @d extension=message+1 {extensions to \TeX\ ( \.{\\write}, \.{\\special}, etc.~)} @d in_stream=extension+1 {files for reading ( \.{\\openin}, \.{\\closein} )} @d begin_group=in_stream+1 {begin local grouping ( \.{\\begingroup} )} @d end_group=begin_group+1 {end local grouping ( \.{\\endgroup} )} @d omit=end_group+1 {omit alignment template ( \.{\\omit} )} @d ex_space=omit+1 {explicit space ( \.{\\\ } )} @d no_boundary=ex_space+1 {suppress boundary ligatures ( \.{\\noboundary} )} @d radical=no_boundary+1 {square root and similar signs ( \.{\\radical} )} @d end_cs_name=radical+1 {end control sequence ( \.{\\endcsname} )} @d min_internal=end_cs_name+1 {the smallest code that can follow \.{\\the}} @d char_given=min_internal {character code defined by \.{\\chardef}} @d math_given=char_given+1 {math code defined by \.{\\mathchardef}} @d last_item=math_given+1 {most recent item ( \.{\\lastpenalty}, \.{\\lastkern}, \.{\\lastskip} )} @d inhibit_glue=last_item+1 {inhibit adjust glue ( \.{\\inhibitglue} )} @d chg_dir=inhibit_glue+1 {change dir mode by \.{\\tate}, \.{\\yoko}} @d max_non_prefixed_command=chg_dir {largest command code that can't be \.{\\global}} @z @x [15.209] l.4272 - pTeX: def_jfont, def_tfont, set_auto_spacing @d toks_register=71 {token list register ( \.{\\toks} )} @d assign_toks=72 {special token list ( \.{\\output}, \.{\\everypar}, etc.~)} @d assign_int=73 {user-defined integer ( \.{\\tolerance}, \.{\\day}, etc.~)} @d assign_dimen=74 {user-defined length ( \.{\\hsize}, etc.~)} @d assign_glue=75 {user-defined glue ( \.{\\baselineskip}, etc.~)} @d assign_mu_glue=76 {user-defined muglue ( \.{\\thinmuskip}, etc.~)} @d assign_font_dimen=77 {user-defined font dimension ( \.{\\fontdimen} )} @d assign_font_int=78 {user-defined font integer ( \.{\\hyphenchar}, \.{\\skewchar} )} @d set_aux=79 {specify state info ( \.{\\spacefactor}, \.{\\prevdepth} )} @d set_prev_graf=80 {specify state info ( \.{\\prevgraf} )} @d set_page_dimen=81 {specify state info ( \.{\\pagegoal}, etc.~)} @d set_page_int=82 {specify state info ( \.{\\deadcycles}, @y @d toks_register=max_non_prefixed_command+1 {token list register ( \.{\\toks} )} @d assign_toks=toks_register+1 {special token list ( \.{\\output}, \.{\\everypar}, etc.~)} @d assign_int=assign_toks+1 {user-defined integer ( \.{\\tolerance}, \.{\\day}, etc.~)} @d assign_dimen=assign_int+1 {user-defined length ( \.{\\hsize}, etc.~)} @d assign_glue=assign_dimen+1 {user-defined glue ( \.{\\baselineskip}, etc.~)} @d assign_mu_glue=assign_glue+1 {user-defined muglue ( \.{\\thinmuskip}, etc.~)} @d assign_font_dimen=assign_mu_glue+1 {user-defined font dimension ( \.{\\fontdimen} )} @d assign_font_int=assign_font_dimen+1 {user-defined font integer ( \.{\\hyphenchar}, \.{\\skewchar} )} @d assign_kinsoku=assign_font_int+1 {user-defined kinsoku character ( \.{\\prebreakpenalty}, \.{\\postbreakpenalty} )} @d assign_inhibit_xsp_code=assign_kinsoku+1 {user-defined inhibit xsp character ( \.{\\inhibitxspcode} )} @d set_kansuji_char=assign_inhibit_xsp_code+1 {user-defined kansuji character ( \.{\\kansujichar} )} @d set_aux=set_kansuji_char+1 {specify state info ( \.{\\spacefactor}, \.{\\prevdepth} )} @d set_prev_graf=set_aux+1 {specify state info ( \.{\\prevgraf} )} @d set_page_dimen=set_prev_graf+1 {specify state info ( \.{\\pagegoal}, etc.~)} @d set_page_int=set_page_dimen+1 {specify state info ( \.{\\deadcycles}, @z @x [15.209] l.4272 - pTeX: def_jfont, def_tfont, set_auto_spacing @d set_box_dimen=83 {change dimension of box ( \.{\\wd}, \.{\\ht}, \.{\\dp} )} @d set_shape=84 {specify fancy paragraph shape ( \.{\\parshape} )} @y @d set_box_dimen=set_page_int+1 {change dimension of box ( \.{\\wd}, \.{\\ht}, \.{\\dp} )} @d set_shape=set_box_dimen+1 {specify fancy paragraph shape ( \.{\\parshape} )} @z @x [15.209] l.4272 - pTeX: def_jfont, def_tfont, set_auto_spacing @d def_code=85 {define a character code ( \.{\\catcode}, etc.~)} @d def_family=86 {declare math fonts ( \.{\\textfont}, etc.~)} @d set_font=87 {set current font ( font identifiers )} @d def_font=88 {define a font file ( \.{\\font} )} @d register=89 {internal register ( \.{\\count}, \.{\\dimen}, etc.~)} @d max_internal=89 {the largest code that can follow \.{\\the}} @d advance=90 {advance a register or parameter ( \.{\\advance} )} @d multiply=91 {multiply a register or parameter ( \.{\\multiply} )} @d divide=92 {divide a register or parameter ( \.{\\divide} )} @d prefix=93 {qualify a definition ( \.{\\global}, \.{\\long}, \.{\\outer} )} @y @d def_code=set_shape+1 {define a character code ( \.{\\catcode}, etc.~)} @d def_family=def_code+1 {declare math fonts ( \.{\\textfont}, etc.~)} @d set_font=def_family+1 {set current font ( font identifiers )} @d def_font=set_font+1 {define a font file ( \.{\\font} )} @d def_jfont=def_font+1 {define a font file ( \.{\\jfont} )} @d def_tfont=def_jfont+1 {define a font file ( \.{\\tfont} )} @d register=def_tfont+1 {internal register ( \.{\\count}, \.{\\dimen}, etc.~)} @d max_internal=register {the largest code that can follow \.{\\the}} @d advance=max_internal+1 {advance a register or parameter ( \.{\\advance} )} @d multiply=advance+1 {multiply a register or parameter ( \.{\\multiply} )} @d divide=multiply+1 {divide a register or parameter ( \.{\\divide} )} @d prefix=divide+1 {qualify a definition ( \.{\\global}, \.{\\long}, \.{\\outer} )} @z @x [15.209] l.4272 - pTeX: def_jfont, def_tfont, set_auto_spacing @d let=94 {assign a command code ( \.{\\let}, \.{\\futurelet} )} @d shorthand_def=95 {code definition ( \.{\\chardef}, \.{\\countdef}, etc.~)} {or \.{\\charsubdef}} @d read_to_cs=96 {read into a control sequence ( \.{\\read} )} @y @d let=prefix+1 {assign a command code ( \.{\\let}, \.{\\futurelet} )} @d shorthand_def=let+1 {code definition ( \.{\\chardef}, \.{\\countdef}, etc.~)} {or \.{\\charsubdef}} @d read_to_cs=shorthand_def+1 {read into a control sequence ( \.{\\read} )} @z @x [15.209] l.4272 - pTeX: def_jfont, def_tfont, set_auto_spacing @d def=97 {macro definition ( \.{\\def}, \.{\\gdef}, \.{\\xdef}, \.{\\edef} )} @d set_box=98 {set a box ( \.{\\setbox} )} @d hyph_data=99 {hyphenation data ( \.{\\hyphenation}, \.{\\patterns} )} @d set_interaction=100 {define level of interaction ( \.{\\batchmode}, etc.~)} @d max_command=100 {the largest command code seen at |big_switch|} @y @d def=read_to_cs+1 {macro definition ( \.{\\def}, \.{\\gdef}, \.{\\xdef}, \.{\\edef} )} @d set_box=def+1 {set a box ( \.{\\setbox} )} @d hyph_data=set_box+1 {hyphenation data ( \.{\\hyphenation}, \.{\\patterns} )} @d set_interaction=hyph_data+1 {define level of interaction ( \.{\\batchmode}, etc.~)} @d set_auto_spacing=set_interaction+1 {set auto spaceing mode ( \.{\\autospacing}, \.{\\noautospacing}, ( \.{\\autoxspacing}, \.{\\noautoxspacing} )} @d max_command=set_auto_spacing {the largest command code seen at |big_switch|} @z @x [16.212] l.4437 - pTeX: last_jchr, direction, adjust direction @= @!list_state_record=record@!mode_field:-mmode..mmode;@+ @!head_field,@!tail_field: pointer; @y @= @!list_state_record=record@!mode_field:-mmode..mmode;@+ @!dir_field,@!adj_dir_field: -dir_yoko..dir_yoko; @!pdisp_field: scaled; @!head_field,@!tail_field,@!pnode_field,@!last_jchr_field: pointer; @z @x [16.213] l.4445 - pTeX: last_jchr, direction, adjust_dir, prev_{node,disp} @d head==cur_list.head_field {header node of current list} @d tail==cur_list.tail_field {final node on current list} @y @d direction==cur_list.dir_field {current direction} @d adjust_dir==cur_list.adj_dir_field {current adjust direction} @d head==cur_list.head_field {header node of current list} @d tail==cur_list.tail_field {final node on current list} @d prev_node==cur_list.pnode_field {previous to last |disp_node|} @d prev_disp==cur_list.pdisp_field {displacemant at |prev_node|} @d last_jchr==cur_list.last_jchr_field {final jchar node on current list} @z @x [16.214] l.4464 - pTeX: prev_append: disp_node @d tail_append(#)==begin link(tail):=#; tail:=link(tail); end @y @d tail_append(#)==begin link(tail):=#; tail:=link(tail); end @d prev_append(#)==begin link(prev_node):=#; link(link(prev_node)):=tail; prev_node:=link(prev_node); end @z @x [16.215] l.4477 - pTeX: last_jchar, direction, adjust_dir, prev_node mode:=vmode; head:=contrib_head; tail:=contrib_head; @y mode:=vmode; head:=contrib_head; tail:=contrib_head; prev_node:=tail; direction:=dir_yoko; adjust_dir:=direction; prev_disp:=0; last_jchr:=null; @z @x [16.216] l.4496 - pTeX: last_jchr, displacement. incr(nest_ptr); head:=get_avail; tail:=head; prev_graf:=0; mode_line:=line; @y incr(nest_ptr); head:=new_null_box; tail:=head; prev_node:=tail; prev_graf:=0; prev_disp:=0; last_jchr:=null; mode_line:=line; @z @x [16.217] l.4504 - pTeX: pop_nest last_jchr @p procedure pop_nest; {leave a semantic level, re-enter the old} begin free_avail(head); decr(nest_ptr); cur_list:=nest[nest_ptr]; end; @y @p procedure pop_nest; {leave a semantic level, re-enter the old} begin fast_delete_glue_ref(space_ptr(head)); fast_delete_glue_ref(xspace_ptr(head)); free_node(head,box_node_size); decr(nest_ptr); cur_list:=nest[nest_ptr]; end; @z @x [16.218] l.4521 - pTeX: show_activities : direction print_nl("### "); print_mode(m); @y print_nl("### "); print_direction(nest[p].dir_field); print(", "); print_mode(m); @z @x [17.224] l.4711 - pTeX: kanji_skip_code xkanji_skip_code, jfm_skip @d thin_mu_skip_code=15 {thin space in math formula} @d med_mu_skip_code=16 {medium space in math formula} @d thick_mu_skip_code=17 {thick space in math formula} @d glue_pars=18 {total number of glue parameters} @y @d kanji_skip_code=15 {between kanji-kanji space} @d xkanji_skip_code=16 {between latin-kanji or kanji-latin space} @d thin_mu_skip_code=17 {thin space in math formula} @d med_mu_skip_code=18 {medium space in math formula} @d thick_mu_skip_code=19 {thick space in math formula} @d jfm_skip=20 {space refer from JFM} @d glue_pars=21 {total number of glue parameters} @z @x [17.224] l.4739 - kanji_skip, xkanji_skip @d thick_mu_skip==glue_par(thick_mu_skip_code) @y @d thick_mu_skip==glue_par(thick_mu_skip_code) @d kanji_skip==glue_par(kanji_skip_code) @d xkanji_skip==glue_par(xkanji_skip_code) @z @x [17.225] l.4767 - pTeX: kanji_skip_code xkanji_skip_code thick_mu_skip_code: print_esc("thickmuskip"); othercases print("[unknown glue parameter!]") @y thick_mu_skip_code: print_esc("thickmuskip"); kanji_skip_code: print_esc("kanjiskip"); xkanji_skip_code: print_esc("xkanjiskip"); jfm_skip: print("refer from jfm"); othercases print("[unknown glue parameter!]") @z @x [17.226] l.4813 - pTeX: kanji_skip_code xkanji_skip_code primitive("thickmuskip",assign_mu_glue,glue_base+thick_mu_skip_code);@/ @!@:thick_mu_skip_}{\.{\\thickmuskip} primitive@> @y primitive("thickmuskip",assign_mu_glue,glue_base+thick_mu_skip_code);@/ @!@:thick_mu_skip_}{\.{\\thickmuskip} primitive@> primitive("kanjiskip",assign_glue,glue_base+kanji_skip_code);@/ @!@:kanji_skip_}{\.{\\kanjiskip} primitive@> primitive("xkanjiskip",assign_glue,glue_base+xkanji_skip_code);@/ @!@:xkanji_skip_}{\.{\\xkanjiskip} primitive@> @z @x [17.230] l.4867 - pTeX: cat_code_size, cur_jfont_loc, auto_spacing, auto_xspacing, inhibit_xsp_code, cur_tfont_loc @d math_font_base=cur_font_loc+1 {table of 48 math font numbers} @d cat_code_base=math_font_base+48 {table of 256 command codes (the ``catcodes'')} @d lc_code_base=cat_code_base+256 {table of 256 lowercase mappings} @y @d math_font_base=cur_font_loc+1 {table of 48 math font numbers} @d cur_jfont_loc=math_font_base+48 @d cur_tfont_loc=cur_jfont_loc+1 @d auto_spacing_code=cur_tfont_loc+1 @d auto_xspacing_code=auto_spacing_code+1 @d cat_code_base=auto_xspacing_code+1 {table of 256 command codes (the ``catcodes'')} @d kcat_code_base=cat_code_base+256 {table of 256 command codes for the wchar's catcodes } @d auto_xsp_code_base=kcat_code_base+256 {table of 256 auto spacer flag} @d inhibit_xsp_code_base=auto_xsp_code_base+256 @d kinsoku_base=inhibit_xsp_code_base+256 {table of 256 kinsoku mappings} @d kansuji_base=kinsoku_base+256 {table of 10 kansuji mappings} @d lc_code_base=kansuji_base+10 {table of 256 lowercase mappings} @z @x [17.230] l.4900 - pTeX: @d char_sub_code(#)==equiv(char_sub_code_base+#) {Note: |char_sub_code(c)| is the true substitution info plus |min_halfword|} @y @d char_sub_code(#)==equiv(char_sub_code_base+#) {Note: |char_sub_code(c)| is the true substitution info plus |min_halfword|} @# @d cur_jfont==equiv(cur_jfont_loc) {pTeX: } @d cur_tfont==equiv(cur_tfont_loc) @d auto_spacing==equiv(auto_spacing_code) @d auto_xspacing==equiv(auto_xspacing_code) @d kcat_code(#)==equiv(kcat_code_base+#) @d auto_xsp_code(#)==equiv(auto_xsp_code_base+#) @d inhibit_xsp_type(#)==eq_type(inhibit_xsp_code_base+#) @d inhibit_xsp_code(#)==equiv(inhibit_xsp_code_base+#) @d kinsoku_type(#)==eq_type(kinsoku_base+#) @d kinsoku_code(#)==equiv(kinsoku_base+#) @d kansuji_char(#)==equiv(kansuji_base+#) @z @x [17.232] l.4959 - pTeX: initialize cat_code, cur_jfont, cur_tfont cur_font:=null_font; eq_type(cur_font_loc):=data; eq_level(cur_font_loc):=level_one;@/ @y cur_font:=null_font; eq_type(cur_font_loc):=data; eq_level(cur_font_loc):=level_one;@/ cur_jfont:=null_font; eq_type(cur_jfont_loc):=data; eq_level(cur_jfont_loc):=level_one;@/ cur_tfont:=null_font; eq_type(cur_tfont_loc):=data; eq_level(cur_tfont_loc):=level_one;@/ @z @x [17.232] l.4965 - pTeX: initialize cat_code, cur_jfont, cur_tfont for k:=0 to 255 do begin cat_code(k):=other_char; math_code(k):=hi(k); sf_code(k):=1000; end; @y eqtb[auto_spacing_code]:=eqtb[cat_code_base]; eqtb[auto_xspacing_code]:=eqtb[cat_code_base]; for k:=0 to 255 do begin cat_code(k):=other_char; kcat_code(k):=other_kchar; math_code(k):=hi(k); sf_code(k):=1000; auto_xsp_code(k):=0; inhibit_xsp_code(k):=0; inhibit_xsp_type(k):=0; kinsoku_code(k):=0; kinsoku_type(k):=0; end; @z @x [17.232] l.4971 - pTeX: initialize cat_code, cur_jfont, cur_tfont for k:="0" to "9" do math_code(k):=hi(k+var_code); for k:="A" to "Z" do begin cat_code(k):=letter; cat_code(k+"a"-"A"):=letter;@/ math_code(k):=hi(k+var_code+@"100); math_code(k+"a"-"A"):=hi(k+"a"-"A"+var_code+@"100);@/ lc_code(k):=k+"a"-"A"; lc_code(k+"a"-"A"):=k+"a"-"A";@/ uc_code(k):=k; uc_code(k+"a"-"A"):=k;@/ sf_code(k):=999; end; @y for k:="0" to "9" do begin math_code(k):=hi(k+var_code); auto_xsp_code(k):=3; end; kansuji_char(0):=toDVI(fromJIS(@"213B)); kansuji_char(1):=toDVI(fromJIS(@"306C)); kansuji_char(2):=toDVI(fromJIS(@"4673)); kansuji_char(3):=toDVI(fromJIS(@"3B30)); kansuji_char(4):=toDVI(fromJIS(@"3B4D)); kansuji_char(5):=toDVI(fromJIS(@"385E)); kansuji_char(6):=toDVI(fromJIS(@"4F3B)); kansuji_char(7):=toDVI(fromJIS(@"3C37)); kansuji_char(8):=toDVI(fromJIS(@"482C)); kansuji_char(9):=toDVI(fromJIS(@"3665)); for k:="A" to "Z" do begin cat_code(k):=letter; cat_code(k+"a"-"A"):=letter;@/ math_code(k):=hi(k+var_code+@"100); math_code(k+"a"-"A"):=hi(k+"a"-"A"+var_code+@"100);@/ lc_code(k):=k+"a"-"A"; lc_code(k+"a"-"A"):=k+"a"-"A";@/ uc_code(k):=k; uc_code(k+"a"-"A"):=k;@/ auto_xsp_code(k):=3; auto_xsp_code(k+"a"-"A"):=3;@/ sf_code(k):=999; end; @t\hskip10pt@>kcat_code(@"20+1):=other_kchar; {1 ku} @t\hskip10pt@>kcat_code(@"20+2):=other_kchar; {2 ku} @+@t\1@>for k:=3 to 6 do kcat_code(@"20+k):=kana; {3 ku ... 6 ku} @+@t\1@>for k:=7 to 8 do kcat_code(@"20+k):=other_kchar; {7 ku ... 8 ku} @+@t\1@>for k:=16 to 84 do kcat_code(@"20+k):=kanji; {16 ku ... 84 ku} { $\.{@@"20}+|k| = |kcatcodekey|(|fromKUTEN|(|HILO|(k,1))$ } @z @x [17.236] l.5092 - pTeX: cur_jfam_code, jchr_widow_penalty @d cur_fam_code=44 {current family} @d escape_char_code=45 {escape character for token output} @d default_hyphen_char_code=46 {value of \.{\\hyphenchar} when a font is loaded} @d default_skew_char_code=47 {value of \.{\\skewchar} when a font is loaded} @d end_line_char_code=48 {character placed at the right end of the buffer} @d new_line_char_code=49 {character that prints as |print_ln|} @d language_code=50 {current hyphenation table} @d left_hyphen_min_code=51 {minimum left hyphenation fragment size} @d right_hyphen_min_code=52 {minimum right hyphenation fragment size} @d holding_inserts_code=53 {do not remove insertion nodes from \.{\\box255}} @d error_context_lines_code=54 {maximum intermediate line pairs shown} @d tex_int_pars=55 {total number of \TeX's integer parameters} @# @d web2c_int_base=tex_int_pars {base for web2c's integer parameters} @d char_sub_def_min_code=web2c_int_base {smallest value in the charsubdef list} @d char_sub_def_max_code=web2c_int_base+1 {largest value in the charsubdef list} @d tracing_char_sub_def_code=web2c_int_base+2 {traces changes to a charsubdef def} @d web2c_int_pars=web2c_int_base+3 {total number of web2c's integer parameters} @# @d int_pars=web2c_int_pars {total number of integer parameters} @d count_base=int_base+int_pars {256 user \.{\\count} registers} @y @d cur_fam_code=44 {current family} @d cur_jfam_code=45 {current kanji family} @d escape_char_code=46 {escape character for token output} @d default_hyphen_char_code=47 {value of \.{\\hyphenchar} when a font is loaded} @d default_skew_char_code=48 {value of \.{\\skewchar} when a font is loaded} @d end_line_char_code=49 {character placed at the right end of the buffer} @d new_line_char_code=50 {character that prints as |print_ln|} @d language_code=51 {current hyphenation table} @d left_hyphen_min_code=52 {minimum left hyphenation fragment size} @d right_hyphen_min_code=53 {minimum right hyphenation fragment size} @d holding_inserts_code=54 {do not remove insertion nodes from \.{\\box255}} @d error_context_lines_code=55 {maximum intermediate line pairs shown} @d jchr_widow_penalty_code=56 {penalty for creating a widow KANJI character line} @d char_sub_def_min_code=57 {smallest value in the charsubdef list} @d char_sub_def_max_code=58 {largest value in the charsubdef list} @d tracing_char_sub_def_code=59 {traces changes to a charsubdef def} @d int_pars=60 {total number of integer parameters} @d count_base=int_base+int_pars {256 user \.{\\count} registers} @z @x [17.236] l.5167 - pTeX: cur_jfam, |jchr_widow_penalty| @d cur_fam==int_par(cur_fam_code) @d escape_char==int_par(escape_char_code) @y @d cur_fam==int_par(cur_fam_code) @d cur_jfam==int_par(cur_jfam_code) @d escape_char==int_par(escape_char_code) @d jchr_widow_penalty==int_par(jchr_widow_penalty_code) @z @x [17.237] l.5244 - pTeX: cur_jfam_code, jchr_window_penalty_code new_line_char_code:print_esc("newlinechar"); @y new_line_char_code:print_esc("newlinechar"); cur_jfam_code:print_esc("jfam"); jchr_widow_penalty_code:print_esc("jcharwidowpenalty"); @z @x [17.238] l.5365 - pTeX: cur_jfam_code, jchr_window_penalty_code primitive("newlinechar",assign_int,int_base+new_line_char_code);@/ @!@:new_line_char_}{\.{\\newlinechar} primitive@> @y primitive("newlinechar",assign_int,int_base+new_line_char_code);@/ @!@:new_line_char_}{\.{\\newlinechar} primitive@> primitive("jfam",assign_int,int_base+cur_jfam_code);@/ @!@:cur_jfam_}{\.{\\jfam} primitive@> primitive("jcharwidowpenalty",assign_int,int_base+jchr_widow_penalty_code);@/ @!@:jchr_widow_penalty}{\.{\\jcharwidowpenalty} primitive@> @z @x [17.247] l.5490 - pTeX: kinsoku, t_baseline_shift, y_baseline_shift @d h_offset_code=18 {amount of horizontal offset when shipping pages out} @d v_offset_code=19 {amount of vertical offset when shipping pages out} @d emergency_stretch_code=20 {reduces badnesses on final pass of line-breaking} @d dimen_pars=21 {total number of dimension parameters} @d scaled_base=dimen_base+dimen_pars {table of 256 user-defined \.{\\dimen} registers} @d eqtb_size=scaled_base+255 {largest subscript of |eqtb|} @y @d h_offset_code=18 {amount of horizontal offset when shipping pages out} @d v_offset_code=19 {amount of vertical offset when shipping pages out} @d emergency_stretch_code=20 {reduces badnesses on final pass of line-breaking} @d t_baseline_shift_code=21 {shift amount when mixing TATE-kumi and Alphabet} @d y_baseline_shift_code=22 {shift amount when mixing YOKO-kumi and Alphabet} @d dimen_pars=23 {total number of dimension parameters} @d scaled_base=dimen_base+dimen_pars {table of 256 user-defined \.{\\dimen} registers} @d kinsoku_penalty_base=scaled_base+256 {table of 256 kinsoku registers} @d eqtb_size=kinsoku_penalty_base+255 {largest subscript of |eqtb|} @z @x l.5498 - pTeX: kinsoku, t_baseline_shift, y_baseline_shift @d dimen(#)==eqtb[scaled_base+#].sc @d dimen_par(#)==eqtb[dimen_base+#].sc {a scaled quantity} @y @d dimen(#)==eqtb[scaled_base+#].sc @d dimen_par(#)==eqtb[dimen_base+#].sc {a scaled quantity} @d kinsoku_penalty(#)==eqtb[kinsoku_penalty_base+#].int @z @x l.5518 - pTeX: @d h_offset==dimen_par(h_offset_code) @d v_offset==dimen_par(v_offset_code) @y @d h_offset==dimen_par(h_offset_code) @d v_offset==dimen_par(v_offset_code) @d t_baseline_shift==dimen_par(t_baseline_shift_code) @d y_baseline_shift==dimen_par(y_baseline_shift_code) @z @x l.5542 - pTeX: h_offset_code:print_esc("hoffset"); v_offset_code:print_esc("voffset"); emergency_stretch_code:print_esc("emergencystretch"); othercases print("[unknown dimen parameter!]") @y h_offset_code:print_esc("hoffset"); v_offset_code:print_esc("voffset"); t_baseline_shift_code:print_esc("tbaselineshift"); y_baseline_shift_code:print_esc("ybaselineshift"); emergency_stretch_code:print_esc("emergencystretch"); othercases print("[unknown dimen parameter!]") @z @x [17.248] l.5588 - pTeX: rotate offset primitive("hoffset",assign_dimen,dimen_base+h_offset_code);@/ @!@:h_offset_}{\.{\\hoffset} primitive@> primitive("voffset",assign_dimen,dimen_base+v_offset_code);@/ @!@:v_offset_}{\.{\\voffset} primitive@> @y primitive("hoffset",assign_dimen,dimen_base+h_offset_code);@/ @!@:h_offset_}{\.{\\hoffset} primitive@> primitive("voffset",assign_dimen,dimen_base+v_offset_code);@/ @!@:v_offset_}{\.{\\voffset} primitive@> primitive("tbaselineshift",assign_dimen,dimen_base+t_baseline_shift_code);@/ @!@:t_baseline_shift_}{\.{\\tbaselineshift} primitive@> primitive("ybaselineshift",assign_dimen,dimen_base+y_baseline_shift_code);@/ @!@:y_baseline_shift_}{\.{\\ybaselineshift} primitive@> @z @x [17.252] l.5622 - pTeX: show eqtb else if n<=eqtb_size then @ else print_char("?"); {this can't happen either} end; tats @y else if n else if n<=eqtb_size then print("kinsoku") else print_char("?"); {this can't happen either} end; tats @z @x [18.265] l.5903 - pTeX: \jfont \tfont primitive("font",def_font,0);@/ @!@:font_}{\.{\\font} primitive@> @y primitive("font",def_font,0);@/ @!@:font_}{\.{\\font} primitive@> primitive("jfont",def_jfont,0);@/ @!@:jfont_}{\.{\\jfont} primitive@> primitive("tfont",def_tfont,0);@/ @!@:tfont_}{\.{\\tfont} primitive@> @z @x [18.266] l.5979 - pTeX: \jfont, \tfont def_font: print_esc("font"); @y def_font: print_esc("font"); def_jfont: print_esc("jfont"); def_tfont: print_esc("tfont"); @z @x [20.289] l.6387 - pTeX: cs_token_flag @d cs_token_flag==@'7777 {amount added to the |eqtb| location in a token that stands for a control sequence; is a multiple of~256, less~1} @y @d cs_token_flag==@"FFFF {amount added to the |eqtb| location in a token that stands for a control sequence; is a multiple of~256, less~1} @z @x [20.293] l.6496 - pTeX: show_token_list @ @= if (pmem_end) then begin print_esc("CLOBBERED."); return; @.CLOBBERED@> end; if info(p)>=cs_token_flag then print_cs(info(p)-cs_token_flag) else begin m:=info(p) div @'400; c:=info(p) mod @'400; if info(p)<0 then print_esc("BAD.") @.BAD@> else @; end @y @ @= if (pmem_end) then begin print_esc("CLOBBERED."); return; @.CLOBBERED@> end; if info(p)>=cs_token_flag then print_cs(info(p)-cs_token_flag) {|wchar_token|} else begin if check_kanji(info(p)) then {|wchar_token|} begin m:=kcat_code(kcatcodekey(info(p))); c:=info(p); end else begin m:=Hi(info(p)); c:=Lo(info(p)); end; if (m256) then print_esc("BAD.") @.BAD@> else @; end @z @x [20.294] l.6512 - pTeX: show_token_list @= case m of left_brace,right_brace,math_shift,tab_mark,sup_mark,sub_mark,spacer, letter,other_char: print(c); @y @= case m of kanji,kana,other_kchar: print_kanji(KANJI(c)); left_brace,right_brace,math_shift,tab_mark,sup_mark,sub_mark,spacer, letter,other_char: print(c); @z @x [21.298] l.6632 - pTeX: print KANJI other_char: chr_cmd("the character "); @y other_char: chr_cmd("the character "); kanji,kana,other_kchar: begin print("kanji character "); print_kanji(KANJI(chr_code)); end; @z @x [22.303] l.6726 - pTeX: state mid_kanji 1) |state=mid_line| is the normal state.\cr 2) |state=skip_blanks| is like |mid_line|, but blanks are ignored.\cr 3) |state=new_line| is the state at the beginning of a line.\cr}}$$ @y 1) |state=mid_line| is the normal state.\cr 2) |state=mid_kanji| is like |mid_line|, and internal KANJI string.\cr 3) |state=skip_blanks| is like |mid_line|, but blanks are ignored.\cr 4) |state=new_line| is the state at the beginning of a line.\cr}}$$ @z @x [22.303] l.6736 - pTeX: state mid_kanji @d mid_line=1 {|state| code when scanning a line of characters} @d skip_blanks=2+max_char_code {|state| code when ignoring blanks} @d new_line=3+max_char_code+max_char_code {|state| code at start of line} @y @d mid_line=1 {|state| code when scanning a line of characters} @d mid_kanji=2+max_char_code {|state| code when scanning a line of characters} @d skip_blanks=3+max_char_code+max_char_code {|state| code when ignoring blanks} @d new_line=4+max_char_code+max_char_code+max_char_code {|state| code at start of line} @z @x [22.311] l.6986 - pTeX: label @p procedure show_context; {prints where the scanner is} label done; var old_setting:0..max_selector; {saved |selector| setting} @y @p procedure show_context; {prints where the scanner is} label done, done1; var old_setting:0..max_selector; {saved |selector| setting} @!s: pointer; {temporary pointer} @z @x [22.316] l.7110 - pTeX: init kcode_pos @d begin_pseudoprint== begin l:=tally; tally:=0; selector:=pseudo; trick_count:=1000000; end @y @d begin_pseudoprint== begin l:=tally; tally:=0; selector:=pseudo; kcode_pos:=0; trick_count:=1000000; end @z @x [22.316] l.7114 - pTeX: kcode_pos @d set_trick_count== begin first_count:=tally; trick_count:=tally+1+error_line-half_error_line; if trick_count0)and(trick_buf2[(first_count-1)mod error_line]=1) then incr(first_count); trick_count:=first_count+1+error_line-half_error_line; if trick_count= begin_pseudoprint; if token_type= begin_pseudoprint; if token_typenull) then begin if (link(start)=null)and(check_kanji(info(start))) then {|wchar_token|} begin cur_input:=input_stack[base_ptr-1]; s:=get_avail; info(s):=Lo(buffer[loc]); cur_input:=input_stack[base_ptr]; link(start):=s; show_token_list(start,loc,100000); free_avail(s);link(start):=null; goto done1; end; end; show_token_list(start,loc,100000); end else show_token_list(link(start),loc,100000); {avoid reference count} done1: @z @x [24.341] l.7479 - pTeX: set last_chr @!cat:0..max_char_code; {|cat_code(cur_chr)|, usually} @y @!cat:escape..max_char_code; {|cat_code(cur_chr)|, usually} @!l:0..buf_size; {temporary index into |buffer|} @z @x [24.343] l.7500 - pTeX: input external file @ @= @^inner loop@> begin switch: if loc<=limit then {current line not yet finished} begin cur_chr:=buffer[loc]; incr(loc); reswitch: cur_cmd:=cat_code(cur_chr); @y @ @= @^inner loop@> begin switch: if loc<=limit then {current line not yet finished} begin cur_chr:=buffer[loc]; incr(loc); if multistrlen(stringcast(buffer), limit+1, loc-1)=2 then begin cur_chr:=fromBUFF(stringcast(buffer), limit+1, loc-1); cur_cmd:=kcat_code(kcatcodekey(cur_chr)); incr(loc); end else reswitch: cur_cmd:=cat_code(cur_chr); @z @x [24.344] l.7535 - pTeX: ASCII-KANJI space handling @d any_state_plus(#) == mid_line+#,skip_blanks+#,new_line+# @y @d any_state_plus(#) == mid_line+#,mid_kanji+#,skip_blanks+#,new_line+# @z @x [24.347] l.7569 - pTeX: scaner @ @d add_delims_to(#)==#+math_shift,#+tab_mark,#+mac_param, #+sub_mark,#+letter,#+other_char @y @ @d add_delims_to(#)==#+math_shift,#+tab_mark,#+mac_param, #+sub_mark,#+letter,#+other_char @d all_jcode(#)==#+kanji,#+kana,#+other_kchar @z @x [24.347] l.7573 - pTeX: scaner mid_line+spacer:@; mid_line+car_ret:@; skip_blanks+car_ret,any_state_plus(comment): @; new_line+car_ret:@; mid_line+left_brace: incr(align_state); skip_blanks+left_brace,new_line+left_brace: begin state:=mid_line; incr(align_state); end; mid_line+right_brace: decr(align_state); skip_blanks+right_brace,new_line+right_brace: begin state:=mid_line; decr(align_state); end; add_delims_to(skip_blanks),add_delims_to(new_line): state:=mid_line; @y mid_kanji+spacer,mid_line+spacer:@; mid_line+car_ret:@; mid_kanji+car_ret: if skip_mode then @ else @; skip_blanks+car_ret,any_state_plus(comment): @; new_line+car_ret:@; mid_line+left_brace,mid_kanji+left_brace: incr(align_state); skip_blanks+left_brace,new_line+left_brace: begin state:=mid_line; incr(align_state); end; mid_line+right_brace,mid_kanji+right_brace: decr(align_state); skip_blanks+right_brace,new_line+right_brace: begin state:=mid_line; decr(align_state); end; add_delims_to(skip_blanks),add_delims_to(new_line),add_delims_to(mid_kanji): state:=mid_line; all_jcode(skip_blanks),all_jcode(new_line),all_jcode(mid_line): state:=mid_kanji; @ @= skip_mode:boolean; @ @= skip_mode:=true; @z @x [24.354] l.7659 - pTeX: scan control sequence @= begin if loc>limit then cur_cs:=null_cs {|state| is irrelevant in this case} else begin start_cs: k:=loc; cur_chr:=buffer[k]; cat:=cat_code(cur_chr); incr(k); if cat=letter then state:=skip_blanks else if cat=spacer then state:=skip_blanks else state:=mid_line; if (cat=letter)and(k<=limit) then @ else @; cur_cs:=single_base+buffer[loc]; incr(loc); end; found: cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs); if cur_cmd>=outer_call then check_outer_validity; end @y @= begin if loc>limit then cur_cs:=null_cs {|state| is irrelevant in this case} else begin k:=loc; cur_chr:=buffer[k]; incr(k); if multistrlen(stringcast(buffer), limit+1, k-1)=2 then begin cat:=kcat_code(kcatcodekey(fromBUFF(stringcast(buffer), limit+1, k-1))); incr(k); end else cat:=cat_code(cur_chr); start_cs: if (cat=letter)or(cat=kanji)or(cat=kana) then state:=skip_blanks else if cat=spacer then state:=skip_blanks else state:=mid_line; if cat=other_kchar then begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found; end else if ((cat=letter)or(cat=kanji)or(cat=kana))and(k<=limit) then @ else @; cur_cs:=single_base+buffer[loc]; incr(loc); end; found: cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs); if cur_cmd>=outer_call then check_outer_validity; end @z @x @= begin if buffer[k]=cur_chr then @+if cat=sup_mark then @+if k2 then begin hex_to_cur_chr; buffer[k-1]:=cur_chr; end else if c<@'100 then buffer[k-1]:=c+@'100 else buffer[k-1]:=c-@'100; limit:=limit-d; first:=first-d; while k<=limit do begin buffer[k]:=buffer[k+d]; incr(k); end; goto start_cs; end; end; end @y @= begin if buffer[k]=cur_chr then @+if cat=sup_mark then @+if k2 then begin hex_to_cur_chr; buffer[k-1]:=cur_chr; end else if c<@'100 then buffer[k-1]:=c+@'100 else buffer[k-1]:=c-@'100; limit:=limit-d; first:=first-d; l:=k; cur_chr:=buffer[k-1]; cat:=cat_code(cur_chr); while l<=limit do begin buffer[l]:=buffer[l+d]; incr(l); end; goto start_cs; end; end; end @z @x [24.356] l.7727 - pTeX: scan control sequence (cont) @ @= begin repeat cur_chr:=buffer[k]; cat:=cat_code(cur_chr); incr(k); until (cat<>letter)or(k>limit); @; if cat<>letter then decr(k); {now |k| points to first nonletter} if k>loc+1 then {multiletter control sequence has been scanned} begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found; end; end @y @ @= begin repeat cur_chr:=buffer[k]; incr(k); if multistrlen(stringcast(buffer), limit+1, k-1)=2 then begin cat:=kcat_code(kcatcodekey(fromBUFF(stringcast(buffer), limit+1, k-1))); incr(k); end else cat:=cat_code(cur_chr); while (buffer[k]=cur_chr)and(cat=sup_mark)and(k2 then begin hex_to_cur_chr; end else if c<@'100 then cur_chr:=c+@'100 else cur_chr:=c-@'100; cat:=cat_code(cur_chr); if (cat=letter)or(cat=sup_mark) then begin buffer[k-1]:=cur_chr; limit:=limit-d; first:=first-d; l:=k; while l<=limit do begin buffer[l]:=buffer[l+d]; incr(l); end; end; end; end; until not((cat=letter)or(cat=kanji)or(cat=kana))or(k>limit); {@@;} if not((cat=letter)or(cat=kanji)or(cat=kana)) then decr(k); if cat=other_kchar then decr(k); {now |k| points to first nonletter} if k>loc+1 then {multiletter control sequence has been scanned} begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found; end; end @z @x [24.357] l.7771 - pTeX: input from token list @= if loc<>null then {list not exhausted} @^inner loop@> begin t:=info(loc); loc:=link(loc); {move to next} if t>=cs_token_flag then {a control sequence token} begin cur_cs:=t-cs_token_flag; cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs); if cur_cmd>=outer_call then if cur_cmd=dont_expand then @ else check_outer_validity; end else begin cur_cmd:=t div @'400; cur_chr:=t mod @'400; case cur_cmd of left_brace: incr(align_state); right_brace: decr(align_state); out_param: @; othercases do_nothing endcases; end; end else begin {we are done with this token list} end_token_list; goto restart; {resume previous level} end @y @= if loc<>null then {list not exhausted} @^inner loop@> begin t:=info(loc); loc:=link(loc); {move to next} if t>=cs_token_flag then {a control sequence token} begin cur_cs:=t-cs_token_flag; cur_cmd:=eq_type(cur_cs); cur_chr:=equiv(cur_cs); if cur_cmd>=outer_call then if cur_cmd=dont_expand then @ else check_outer_validity; end else if check_kanji(t) then {|wchar_token|} begin cur_chr:=t; cur_cmd:=kcat_code(kcatcodekey(t)); end else begin cur_cmd:=Hi(t); cur_chr:=Lo(t); case cur_cmd of left_brace: incr(align_state); right_brace: decr(align_state); out_param: @; othercases do_nothing endcases; end; end else begin {we are done with this token list} end_token_list; goto restart; {resume previous level} end @z @x [24.365] l.7935 - pTeX: get_token @p procedure get_token; {sets |cur_cmd|, |cur_chr|, |cur_tok|} begin no_new_control_sequence:=false; get_next; no_new_control_sequence:=true; @^inner loop@> if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr else cur_tok:=cs_token_flag+cur_cs; end; @y @p procedure get_token; {sets |cur_cmd|, |cur_chr|, |cur_tok|} begin no_new_control_sequence:=false; get_next; no_new_control_sequence:=true; @^inner loop@> if cur_cs=0 then if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {|wchar_token|} cur_tok:=cur_chr else cur_tok:=(cur_cmd*@'400)+cur_chr else cur_tok:=cs_token_flag+cur_cs; end; @z @x [25.374] l.8073 - pTeX: get_chr @ @= j:=first; p:=link(r); while p<>null do begin if j>=max_buf_stack then begin max_buf_stack:=j+1; if max_buf_stack=buf_size then overflow("buffer size",buf_size); @:TeX capacity exceeded buffer size}{\quad buffer size@> end; buffer[j]:=info(p) mod @'400; incr(j); p:=link(p); end; @y @ @= j:=first; p:=link(r); while p<>null do begin if j>=max_buf_stack then begin max_buf_stack:=j+1; if max_buf_stack=buf_size then overflow("buffer size",buf_size); @:TeX capacity exceeded buffer size}{\quad buffer size@> end; if check_kanji(info(p)) then {|wchar_token|} begin buffer[j]:=Hi(info(p)); incr(j); end; buffer[j]:=Lo(info(p)); incr(j); p:=link(p); end; @z @x [25.380] l.8221 - pTeX: get_x_token @p procedure get_x_token; {sets |cur_cmd|, |cur_chr|, |cur_tok|, and expands macros} label restart,done; begin restart: get_next; @^inner loop@> if cur_cmd<=max_command then goto done; if cur_cmd>=call then if cur_cmd if cur_cmd<=max_command then goto done; if cur_cmd>=call then if cur_cmdmax_command do begin expand; get_next; end; if cur_cs=0 then cur_tok:=(cur_cmd*@'400)+cur_chr else cur_tok:=cs_token_flag+cur_cs; @y @p procedure x_token; {|get_x_token| without the initial |get_next|} begin while cur_cmd>max_command do begin expand; get_next; end; if cur_cs=0 then if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then cur_tok:=cur_chr else cur_tok:=(cur_cmd*@'400)+cur_chr else cur_tok:=cs_token_flag+cur_cs; @z @x [26.413] l.8341 - pTeX: scan_something_internal @p procedure scan_something_internal(@!level:small_number;@!negative:boolean); @y @p @t\4@>@@t@>@/ procedure scan_something_internal(@!level:small_number;@!negative:boolean); @z @x [26.413] l.8343 - pTeX: scan_something_internal var m:halfword; {|chr_code| part of the operand token} @y var m:halfword; {|chr_code| part of the operand token} @!tx:pointer; {effective tail node} @!qx:halfword; {general purpose index} @z @x [26.413] l.8345 - pTeX: scan_something_internal begin m:=cur_chr; case cur_cmd of def_code: @; toks_register,assign_toks,def_family,set_font,def_font: @; @y @!q,@!r:pointer; begin m:=cur_chr; case cur_cmd of assign_kinsoku: @; assign_inhibit_xsp_code: @; def_code: @; toks_register,assign_toks,def_family,set_font,def_font,def_jfont,def_tfont: @; @z @x [26.414] l.8373 - pTeX: if m=math_code_base then scanned_result(ho(math_code(cur_val)))(int_val) else if mnull)and(box_dir(q)<>abs(direction)) do q:=link(q); if q=null then begin r:=link(qx); link(qx):=null; q:=new_dir_node(qx,abs(direction)); link(qx):=r; cur_val:=mem[q+m].sc; delete_glue_ref(space_ptr(q)); delete_glue_ref(xspace_ptr(q)); free_node(q,box_node_size); end else cur_val:=mem[q+m].sc; end; @z @x [26.424] l.8508 - pTeX: disp_node legal in similar contexts. @y legal in similar contexts. The macro |find_effective_tail_pTeX| sets |tx| to the last non-|disp_node| of the current list. @z @x [26.424] l.8510 - pTeX: disp_node @= @y @d find_effective_tail_pTeX== tx:=tail; if not is_char_node(tx) then if type(tx)=disp_node then begin tx:=prev_node; if not is_char_node(tx) then if type(tx)=disp_node then {|disp_node| from a discretionary} begin tx:=head; q:=link(head); while q<>prev_node do begin if is_char_node(q) then tx:=q else if type(q)<>disp_node then tx:=q; end; q:=link(q); end; end @# @d find_effective_tail==find_effective_tail_pTeX @= @z @x [26.424] l.8516 - pTeX: Fetch an item ...: disp_node else begin if cur_chr=glue_val then cur_val:=zero_glue@+else cur_val:=0; @y else begin if cur_chr=glue_val then cur_val:=zero_glue@+else cur_val:=0; find_effective_tail; @z @x [26.424] l.8518 - pTeX: Fetch an item ...: disp_node if not is_char_node(tail)and(mode<>0) then case cur_chr of int_val: if type(tail)=penalty_node then cur_val:=penalty(tail); dimen_val: if type(tail)=kern_node then cur_val:=width(tail); glue_val: if type(tail)=glue_node then begin cur_val:=glue_ptr(tail); if subtype(tail)=mu_glue then cur_val_level:=mu_val; end; @y if not is_char_node(tx)and(tx<>head)and(mode<>0) then case cur_chr of int_val: if type(tx)=penalty_node then cur_val:=penalty(tx); dimen_val: if type(tx)=kern_node then cur_val:=width(tx); glue_val: if type(tx)=glue_node then begin cur_val:=glue_ptr(tx); if subtype(tx)=mu_glue then cur_val_level:=mu_val; end; @z @x [26.424] l.8527 - pTeX: Fetch an item ...: disp_node else if (mode=vmode)and(tail=head) then @y else if (mode=vmode)and(tx=head) then @z @x [26.435] l.8940 - pTeX: scan_char_num procedure scan_char_num; begin scan_int; if (cur_val<0)or(cur_val>255) then begin print_err("Bad character code"); @.Bad character code@> help2("A character number must be between 0 and 255.")@/ ("I changed this one to zero."); int_error(cur_val); cur_val:=0; end; end; @y procedure scan_char_num; begin scan_int; if not is_char_ascii(cur_val)and not check_kanji(cur_val) then {|wchar_token|} begin print_err("Bad character code"); @.Bad character code@> help2("A character number must be between 0 and 255, or KANJI code.")@/ ("I changed this one to zero."); int_error(cur_val); cur_val:=0; end; end; @z @x [26.442] l.9045 - pTeX: KANJI character scanning @= begin get_token; {suppress macro expansion} if cur_tok255 then begin print_err("Improper alphabetic constant"); @.Improper alphabetic constant@> help2("A one-character control sequence belongs after a ` mark.")@/ ("So I'm essentially inserting \0 here."); cur_val:="0"; back_error; end else @; end @y @= begin get_token; {suppress macro expansion} if cur_tok255)and(cur_cmd help2("A one-character control sequence belongs after a ` mark.")@/ ("So I'm essentially inserting \0 here."); cur_val:="0"; back_error; end else @; skip_mode:=true; end @z @x [26.455] l.9288 - pTeX: zw, zh: zenkaku width & height if scan_keyword("em") then v:=(@) @.em@> else if scan_keyword("ex") then v:=(@) @.ex@> else goto not_found; @y if scan_keyword("em") then v:=(@) @.em@> else if scan_keyword("ex") then v:=(@) @.ex@> else if scan_keyword("zw") then @ @.ze@> else if scan_keyword("zh") then @ @.zh@> else goto not_found; @z @x [26.458] l.9345 - pTeX: dimension unit: Q, H (1/4 mm) else if scan_keyword("sp") then goto done @.sp@> @y else if scan_keyword("H") then set_conversion(7227)(10160) @.H@> else if scan_keyword("Q") then set_conversion(7227)(10160) @.Q@> else if scan_keyword("sp") then goto done @.sp@> @z @x [27.464] l.9475 - pTeX: str_toks if t=" " then t:=space_token else t:=other_token+t; @y if multistrlen(stringcast(str_pool), pool_ptr, k)=2 then begin t:=fromBUFF(stringcast(str_pool), pool_ptr, k); incr(k); end else if t=" " then t:=space_token else t:=other_token+t; @z @x [27.468] l.9531 - pTeX: convert KANJI code @d number_code=0 {command code for \.{\\number}} @d roman_numeral_code=1 {command code for \.{\\romannumeral}} @d string_code=2 {command code for \.{\\string}} @d meaning_code=3 {command code for \.{\\meaning}} @d font_name_code=4 {command code for \.{\\fontname}} @d job_name_code=5 {command code for \.{\\jobname}} @y @d number_code=0 {command code for \.{\\number}} @d roman_numeral_code=1 {command code for \.{\\romannumeral}} @d kansuji_code=2 {command code for \.{\\kansuji}} @d string_code=3 {command code for \.{\\string}} @d meaning_code=4 {command code for \.{\\meaning}} @d font_name_code=5 {command code for \.{\\fontname}} @d euc_code=6 {command code for \.{\\euc}} @d sjis_code=7 {command code for \.{\\sjis}} @d jis_code=8 {command code for \.{\\jis}} @d kuten_code=9 {command code for \.{\\kuten}} @d job_name_code=10 {command code for \.{\\jobname}} @z @x [27.468] l.9547 - pTeX: primitive("fontname",convert,font_name_code);@/ @!@:font_name_}{\.{\\fontname} primitive@> @y primitive("fontname",convert,font_name_code);@/ @!@:font_name_}{\.{\\fontname} primitive@> primitive("kansuji",convert,kansuji_code); @!@:kansuji_}{\.{\\kansuji} primitive@> primitive("euc",convert,euc_code); @!@:euc_}{\.{\\euc} primitive@> primitive("sjis",convert,sjis_code); @!@:sjis_}{\.{\\sjis} primitive@> primitive("jis",convert,jis_code); @!@:jis_}{\.{\\jis} primitive@> primitive("kuten",convert,kuten_code); @!@:kuten_}{\.{\\kuten} primitive@> @z @x [27.469] l.9558 - pTeX: font_name_code: print_esc("fontname"); @y font_name_code: print_esc("fontname"); kansuji_code: print_esc("kansuji"); euc_code:print_esc("euc"); sjis_code:print_esc("sjis"); jis_code:print_esc("jis"); kuten_code:print_esc("kuten"); @z @x [27.470] l.9566 - pTeX: convert KANJI code continue @p procedure conv_toks; var old_setting:0..max_selector; {holds |selector| setting} @y @p procedure conv_toks; var old_setting:0..max_selector; {holds |selector| setting} @!cx:KANJI_code; {temporary register for KANJI} @z @x [27.471] l.9577 - pTeX: convert KANJI code continue @ @= case c of number_code,roman_numeral_code: scan_int; string_code, meaning_code: begin save_scanner_status:=scanner_status; scanner_status:=normal; get_token; scanner_status:=save_scanner_status; end; @y @ @= KANJI(cx):=0; case c of number_code,roman_numeral_code, kansuji_code,euc_code,sjis_code,jis_code,kuten_code: scan_int; string_code, meaning_code: begin save_scanner_status:=scanner_status; scanner_status:=normal; get_token; if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {|wchar_token|} KANJI(cx):=cur_tok; scanner_status:=save_scanner_status; end; @z @x [27.471] l.9587 - pTeX: convert KANJI code continue @ @= case c of number_code: print_int(cur_val); roman_numeral_code: print_roman_int(cur_val); string_code:if cur_cs<>0 then sprint_cs(cur_cs) else print_char(cur_chr); @y @ @= case c of number_code: print_int(cur_val); roman_numeral_code: print_roman_int(cur_val); jis_code: print_int(fromJIS(cur_val)); euc_code: print_int(fromEUC(cur_val)); sjis_code: print_int(fromSJIS(cur_val)); kuten_code: print_int(fromKUTEN(cur_val)); kansuji_code: print_kansuji(cur_val); string_code:if cur_cs<>0 then sprint_cs(cur_cs) else if KANJI(cx)=0 then print_char(cur_chr) else print_kanji(cx); @z @x [28.487] l.9852 - pTeX: iftdir, ifydir, ifddir, iftbox, ifybox, ifdbox @d if_case_code=16 { `\.{\\ifcase}' } @y @d if_case_code=16 { `\.{\\ifcase}' } @# @d if_tdir_code=if_case_code+1 { `\.{\\iftdir}' } @d if_ydir_code=if_tdir_code+1 { `\.{\\ifydir}' } @d if_ddir_code=if_ydir_code+1 { `\.{\\ifddir}' } @d if_mdir_code=if_ddir_code+1 { `\.{\\ifmdir}' } @d if_tbox_code=if_mdir_code+1 { `\.{\\iftbox}' } @d if_ybox_code=if_tbox_code+1 { `\.{\\ifybox}' } @d if_dbox_code=if_ybox_code+1 { `\.{\\ifdbox}' } @z @x [28.487] l.9887 - pTeX: iftdir, ifydir, ifddir, iftbox, ifybox, ifdbox primitive("ifcase",if_test,if_case_code); @!@:if_case_}{\.{\\ifcase} primitive@> @y primitive("ifcase",if_test,if_case_code); @!@:if_case_}{\.{\\ifcase} primitive@> primitive("iftdir",if_test,if_tdir_code); @!@:if_tdir_}{\.{\\iftdir} primitive@> primitive("ifydir",if_test,if_ydir_code); @!@:if_ydir_}{\.{\\ifydir} primitive@> primitive("ifddir",if_test,if_ddir_code); @!@:if_ddir_}{\.{\\ifddir} primitive@> primitive("ifmdir",if_test,if_mdir_code); @!@:if_mdir_}{\.{\\ifmdir} primitive@> primitive("iftbox",if_test,if_tbox_code); @!@:if_tbox_}{\.{\\iftbox} primitive@> primitive("ifybox",if_test,if_ybox_code); @!@:if_ybox_}{\.{\\ifybox} primitive@> primitive("ifdbox",if_test,if_dbox_code); @!@:if_dbox_}{\.{\\ifdbox} primitive@> @z @x [28.488] l.9907 - pTeX: iftdir, ifydir, ifddir, iftbox, ifybox, ifdbox if_case_code:print_esc("ifcase"); @y if_case_code:print_esc("ifcase"); if_tdir_code:print_esc("iftdir"); if_ydir_code:print_esc("ifydir"); if_ddir_code:print_esc("ifddir"); if_mdir_code:print_esc("ifmdir"); if_tbox_code:print_esc("iftbox"); if_ybox_code:print_esc("ifybox"); if_dbox_code:print_esc("ifdbox"); @z @x [28.501] l.10073 - pTeX: iftdir, ifydir, ifddir, iftbox, ifybox, ifdbox if_void_code, if_hbox_code, if_vbox_code: @; @y if_tdir_code: b:=(abs(direction)=dir_tate); if_ydir_code: b:=(abs(direction)=dir_yoko); if_ddir_code: b:=(abs(direction)=dir_dtou); if_mdir_code: b:=(direction<0); if_void_code, if_hbox_code, if_vbox_code, if_tbox_code, if_ybox_code, if_dbox_code: @; @z @x [28.505] l.10118 - pTeX: Test box register status : iftbox, ifybox, ifdbox if this_if=if_void_code then b:=(p=null) else if p=null then b:=false else if this_if=if_hbox_code then b:=(type(p)=hlist_node) else b:=(type(p)=vlist_node); @y if this_if=if_void_code then b:=(p=null) else if p=null then b:=false else begin if type(p)=dir_node then p:=list_ptr(p); if this_if=if_hbox_code then b:=(type(p)=hlist_node) else if this_if=if_vbox_code then b:=(type(p)=vlist_node) else if this_if=if_tbox_code then b:=(box_dir(p)=dir_tate) else if this_if=if_ybox_code then b:=(box_dir(p)=dir_yoko) else b:=(box_dir(p)=dir_dtou); end @z @x [28.502] l.10138 - pTeX: ifx : Test character : KANJI character if (cur_cmd>active_char)or(cur_chr>255) then {not a character} begin m:=relax; n:=256; end else begin m:=cur_cmd; n:=cur_chr; end; get_x_token_or_active_char; if (cur_cmd>active_char)or(cur_chr>255) then begin cur_cmd:=relax; cur_chr:=256; end; @y if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then begin m:=cur_cmd; n:=cur_chr; end else if (cur_cmd>active_char)or(cur_chr>255) then begin m:=relax; n:=256; end else begin m:=cur_cmd; n:=cur_chr; end; get_x_token_or_active_char; if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then begin cur_cmd:=cur_cmd; end {dummy} else if (cur_cmd>active_char)or(cur_chr>255) then begin cur_cmd:=relax; cur_chr:=256; end; @z @x [29.526] l.10668 - pTeX: scan file name loop@+begin if (cur_cmd>other_char)or(cur_chr>255) then {not a character} begin back_input; goto done; end; {If |cur_chr| is a space and we're not scanning a token list, check whether we're at the end of the buffer. Otherwise we end up adding spurious spaces to file names in some cases.} if (cur_chr=" ") and (state<>token_list) and (loc>limit) then goto done; if not more_name(cur_chr) then goto done; get_x_token; end; done: end_name; name_in_progress:=false; @y skip_mode:=false; loop@+begin if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then {is kanji} begin str_room(2); append_char(Hi(cur_chr)); {kanji upper byte} append_char(Lo(cur_chr)); {kanji lower byte} end else if (cur_cmd>other_char)or(cur_chr>255) then {not a alphabet} begin back_input; goto done; end {If |cur_chr| is a space and we're not scanning a token list, check whether we're at the end of the buffer. Otherwise we end up adding spurious spaces to file names in some cases.} else if ((cur_chr=" ") and (state<>token_list) and (loc>limit)) or not more_name(cur_chr) then goto done; get_x_token; end; done: end_name; name_in_progress:=false; skip_mode:=true; @z @x [29.536] l.10834 - pTeX: begin if src_specials_p or file_line_error_style_p or parse_first_line_p then wlog(banner_k) else wlog(banner); @y begin if src_specials_p or file_line_error_style_p or parse_first_line_p then wlog(banner_k) else wlog(banner); wlog(' ('); wlog(conststringcast(get_enc_string)); wlog(')'); @z @x [30.560] l.10968 - pTeX: This is called BigEndian order. @!@^BigEndian order@> @y This is called BigEndian order. @!@^BigEndian order@> We use to get \TeX\ knowledge about KANJI fonts from \.{JFM} files. The \.{JFM} format holds more two 16-bit integers ,|id| and |nt|, at the top of the file. $$\vbox{\halign{\hfil#&$\null=\null$#\hfil\cr |id|&identification code of the file;\cr |nt|&number of words in the |char_type| table;\cr}}$$ The identification byte, |id| equals~11 or~9. When \TeX read a font file, the |id| equals~11 or~9 then the font is the \.{JFM}, othercases it is the \.{TFM} file. The \.{TFM} holds |lf| at the same postion of |id|, usually it take a larger number than~9 or~11. The |nt| is nonngative and less than $2^{15}$. We must have |ec=0|, $$\hbox{|lf=7+lh+nt+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np|.}$$ @d yoko_jfm_id=11 {for `yoko-kumi' fonts} @d tate_jfm_id=9 {for `tate-kumi' fonts} @z @x [30.544] l.11085 - pTeX: gk_tag operation looks for both |list_tag| and |ext_tag|. @y operation looks for both |list_tag| and |ext_tag|. If the \.{JFM}, the |lig_tag| is called |gk_tag|. The |gk_tag| means that this character has a glue/kerning program starting at position |remainder| in the |glue_kern| array. And a \.{JFM} not used |tag=2| and |tag=3|. @z @x [30.544] l.11088 - pTeX: gk_tag @d lig_tag=1 {character has a ligature/kerning program} @y @d lig_tag=1 {character has a ligature/kerning program} @d gk_tag=1 {character has a glue/kerning program} @z @x [30.549] l.11228 - pTeX: @= @!font_info: ^fmemory_word; @y @= @!font_info: ^memory_word; {pTeX: use halfword for |char_type| table.} @!font_dir: ^eight_bits; {pTeX: direction of fonts, 0 is default, 1 is Yoko, 2 is Tate} @!font_num_ext: ^integer; {pTeX: number of the |char_type| table.} @z @x [30.550] l.11270 - pTeX: @!char_base: ^integer; {base addresses for |char_info|} @y @!char_base: ^integer; {base addresses for |char_info|} @!ctype_base: ^integer; {pTeX: base addresses for KANJI character type parameters} @z @x [30.554] l.11373 - pTeX: @d orig_char_info_end(#)==#].qqqq @d orig_char_info(#)==font_info[char_base[#]+orig_char_info_end @y @d orig_char_info_end(#)==#].qqqq @d orig_char_info(#)==font_info[char_base[#]+orig_char_info_end @# @d kchar_code_end(#)==#].hh.rh @d kchar_code(#)==font_info[ctype_base[#]+kchar_code_end @d kchar_type_end(#)==#].hh.lhfield @d kchar_type(#)==font_info[ctype_base[#]+kchar_type_end @z @x [30.557] l.11413 - pTeX: glue_kern_start @d lig_kern_start(#)==lig_kern_base[#]+rem_byte {beginning of lig/kern program} @y @d lig_kern_start(#)==lig_kern_base[#]+rem_byte {beginning of lig/kern program} @d glue_kern_start(#)==lig_kern_base[#]+rem_byte {beginning of glue/kern program} @z @x [30.560] l.11457 - pTeX: jfm_flag, jfm_id, nt, cx var k:font_index; {index into |font_info|} @y var k:font_index; {index into |font_info|} @!jfm_flag:dir_default..dir_tate; {direction of the \.{JFM}} @!nt:halfword; {number of the |char_type| tables} @!cx:KANJI_code; {kanji code} @z @x [30.565] l.11548 - pTeX: read tfm size @ @= begin read_sixteen(lf); fget; read_sixteen(lh); fget; read_sixteen(bc); fget; read_sixteen(ec); if (bc>ec+1)or(ec>255) then abort; if bc>255 then {|bc=256| and |ec=255|} begin bc:=1; ec:=0; end; fget; read_sixteen(nw); fget; read_sixteen(nh); fget; read_sixteen(nd); fget; read_sixteen(ni); fget; read_sixteen(nl); fget; read_sixteen(nk); fget; read_sixteen(ne); fget; read_sixteen(np); if lf<>6+lh+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np then abort; if (nw=0)or(nh=0)or(nd=0)or(ni=0) then abort; end @y @ @= begin read_sixteen(lf); fget; read_sixteen(lh); if lf=yoko_jfm_id then begin jfm_flag:=dir_yoko; nt:=lh; fget; read_sixteen(lf); fget; read_sixteen(lh); end else if lf=tate_jfm_id then begin jfm_flag:=dir_tate; nt:=lh; fget; read_sixteen(lf); fget; read_sixteen(lh); end else begin jfm_flag:=dir_default; nt:=0; end; fget; read_sixteen(bc); fget; read_sixteen(ec); if (bc>ec+1)or(ec>255) then abort; if bc>255 then {|bc=256| and |ec=255|} begin bc:=1; ec:=0; end; fget; read_sixteen(nw); fget; read_sixteen(nh); fget; read_sixteen(nd); fget; read_sixteen(ni); fget; read_sixteen(nl); fget; read_sixteen(nk); fget; read_sixteen(ne); fget; read_sixteen(np); if jfm_flag<>dir_default then begin if lf<>7+lh+nt+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np then abort end else begin if lf<>6+lh+(ec-bc+1)+nw+nh+nd+ni+nl+nk+ne+np then abort end; if (nw=0)or(nh=0)or(nd=0)or(ni=0) then abort; end @z @x [30.566] l.11574 - pTeX: set font_dir & font_num_ext @= lf:=lf-6-lh; {|lf| words should be loaded into |font_info|} if np<7 then lf:=lf+7-np; {at least seven parameters will appear} if (font_ptr=font_max)or(fmem_ptr+lf>font_mem_size) then @; f:=font_ptr+1; char_base[f]:=fmem_ptr-bc; width_base[f]:=char_base[f]+ec+1; height_base[f]:=width_base[f]+nw; depth_base[f]:=height_base[f]+nh; italic_base[f]:=depth_base[f]+nd; lig_kern_base[f]:=italic_base[f]+ni; kern_base[f]:=lig_kern_base[f]+nl-kern_base_offset; exten_base[f]:=kern_base[f]+kern_base_offset+nk; param_base[f]:=exten_base[f]+ne @y @= if jfm_flag<>dir_default then lf:=lf-7-lh {If \.{JFM}, |lf| holds more two-16bit records than \.{TFM}} else lf:=lf-6-lh; {|lf| words should be loaded into |font_info|} if np<7 then lf:=lf+7-np; {at least seven parameters will appear} if (font_ptr=font_max)or(fmem_ptr+lf>font_mem_size) then @; f:=font_ptr+1; font_dir[f]:=jfm_flag; font_num_ext[f]:=nt; ctype_base[f]:=fmem_ptr; char_base[f]:=ctype_base[f]+nt-bc; width_base[f]:=char_base[f]+ec+1; height_base[f]:=width_base[f]+nw; depth_base[f]:=height_base[f]+nh; italic_base[f]:=depth_base[f]+nd; lig_kern_base[f]:=italic_base[f]+ni; kern_base[f]:=lig_kern_base[f]+nl-kern_base_offset; exten_base[f]:=kern_base[f]+kern_base_offset+nk; param_base[f]:=exten_base[f]+ne; @z @x [30.569] l.11619 - pTeX: read char_type @ @= for k:=fmem_ptr to width_base[f]-1 do begin store_four_quarters(font_info[k].qqqq); @y @ @= if jfm_flag<>dir_default then for k:=ctype_base[f] to ctype_base[f]+nt-1 do begin fget; read_sixteen(cx); font_info[k].hh.rh:=tokanji(cx); {|kchar_code|} fget; read_sixteen(cx); font_info[k].hh.lhfield:=tonum(cx); {|kchar_type|} end; for k:=char_base[f]+bc to width_base[f]-1 do begin store_four_quarters(font_info[k].qqqq); @z @x [30.570] l.11638 - pTeX: @d current_character_being_worked_on==k+bc-fmem_ptr @y @d current_character_being_worked_on==k-char_base[f] @z @x [30.573] l.11704 - pTeX: jfm if a>128 then begin if 256*c+d>=nl then abort; if a=255 then if k=lig_kern_base[f] then bchar:=b; end else begin if b<>bchar then check_existence(b); if c<128 then check_existence(d) {check ligature} else if 256*(c-128)+d>=nk then abort; {check kern} if a<128 then if k-lig_kern_base[f]+a+1>=nl then abort; end; end; @y if a>128 then begin if 256*c+d>=nl then abort; if a=255 then if k=lig_kern_base[f] then bchar:=b; end else begin if b<>bchar then check_existence(b); if c<128 then begin if jfm_flag<>dir_default then begin if d>=ne then abort; end else check_existence(d); {check ligature} end else if 256*(c-128)+d>=nk then abort; {check kern} if a<128 then if k-lig_kern_base[f]+a+1>=nl then abort; end; end; @z @x [30.574] l.11720 - pTeX: read jfm exten for k:=exten_base[f] to param_base[f]-1 do begin store_four_quarters(font_info[k].qqqq); @y if jfm_flag<>dir_default then for k:=exten_base[f] to param_base[f]-1 do store_scaled(font_info[k].sc) {NOTE: this area subst for glue program} else for k:=exten_base[f] to param_base[f]-1 do begin store_four_quarters(font_info[k].qqqq); @z @x [30.576] l.11765 - pTeX: adjust ctype_base adjust(char_base); adjust(width_base); adjust(lig_kern_base); @y adjust(ctype_base); adjust(char_base); adjust(width_base); adjust(lig_kern_base); @z @x [30.577] l.11778 - pTeX: jfont, tfont if cur_cmd=def_font then f:=cur_font @y if cur_cmd=def_jfont then f:=cur_jfont else if cur_cmd=def_tfont then f:=cur_tfont else if cur_cmd=def_font then f:=cur_font @z @x [30.581] @p procedure char_warning(@!f:internal_font_number;@!c:eight_bits); @y @d print_lc_hex(#)==l:=#; if l<10 then print_char(l+"0")@+else print_char(l-10+"a") @p procedure char_warning(@!f:internal_font_number;@!c:eight_bits); var @!l:0..255; {small indices or counters} @z @x [30.581] print_ASCII(c); print(" in font "); @y if (c<" ")or(c>"~") then begin print_char("^"); print_char("^"); if c<64 then print_char(c+64) else if c<128 then print_char(c-64) else begin print_lc_hex(c div 16); print_lc_hex(c mod 16); end end else print_ASCII(c); print(" in font "); @z @x [31.586] l.12189 - pTeX: define set2 @d set1=128 {typeset a character and move right} @y @d set1=128 {typeset a character and move right} @d set2=129 {typeset a character and move right} @z @x [31.586] l.12214 - pTeX: define dirchg @d post_post=249 {postamble ending} @y @d post_post=249 {postamble ending} @d dirchg=255 {direction change} @z @x [31.587] l.12246 - pTeX: ex_id_byte @d id_byte=2 {identifies the kind of \.{DVI} files described here} @y @d id_byte=2 {identifies the kind of \.{DVI} files described here} @d ex_id_byte=3 {identifies the kind of extended \.{DVI} files} @z @x [32.590] l.12329 - pTeX: ex_id_byte: This dvi is extended! @ The last part of the postamble, following the |post_post| byte that signifies the end of the font definitions, contains |q|, a pointer to the |post| command that started the postamble. An identification byte, |i|, comes next; this currently equals~2, as in the preamble. @y @ The last part of the postamble, following the |post_post| byte that signifies the end of the font definitions, contains |q|, a pointer to the |post| command that started the postamble. An identification byte, |i|, comes next; this equals~2 or~3. If not used p\TeX primitives then the identification byte equals~2, othercase this is set to~3. @z @x [32.592] l.12405 - pTeX: {character and font in current |char_node|} @!c:quarterword; @!f:internal_font_number; @y {character and font in current |char_node|} @!c:quarterword; @!f:internal_font_number; @!dir_used:boolean; {Is this dvi extended?} @z @x [32.593] l.12414 - pTeX: dir_used: Is this dvi extended? doing_leaders:=false; dead_cycles:=0; cur_s:=-1; @y doing_leaders:=false; dead_cycles:=0; cur_s:=-1; dir_used:=false; @z @x [32.617] l.12846 - pTeX: Initialize dvi_dir as shipout begins dvi_h:=0; dvi_v:=0; cur_h:=h_offset; dvi_f:=null_font; @y dvi_h:=0; dvi_v:=0; cur_h:=h_offset; dvi_f:=null_font; dvi_dir:=dir_yoko; cur_dir_hv:=dvi_dir; @z @x [32.619] l.12892 - pTeX: hlist_out Kanji, disp_node procedure hlist_out; {output an |hlist_node| box} label reswitch, move_past, fin_rule, next_p, continue, found; var base_line: scaled; {the baseline coordinate for this box} @y procedure hlist_out; {output an |hlist_node| box} label reswitch, move_past, fin_rule, next_p, continue, found; var base_line: scaled; {the baseline coordinate for this box} @!disp: scaled; {displacement} @!save_dir:eight_bits; {what |dvi_dir| should pop to} @!jc:KANJI_code; {temporary register for KANJI codes} @!ksp_ptr:pointer; {position of |auto_spacing_glue| in the hlist} @z @x [32.619] l.12913 - pTeX: hlist_out Kanji, disp_node incr(cur_s); if cur_s>0 then dvi_out(push); if cur_s>max_push then max_push:=cur_s; save_loc:=dvi_offset+dvi_ptr; base_line:=cur_v; left_edge:=cur_h; @y ksp_ptr:=space_ptr(this_box); incr(cur_s); if cur_s>0 then dvi_out(push); if cur_s>max_push then max_push:=cur_s; save_loc:=dvi_offset+dvi_ptr; synch_dir; base_line:=cur_v; left_edge:=cur_h; disp:=0; @z @x [32.622] l.12945 - pTeX: chain @= reswitch: if is_char_node(p) then begin synch_h; synch_v; repeat f:=font(p); c:=character(p); if f<>dvi_f then @; if font_ec[f]>=qo(c) then if font_bc[f]<=qo(c) then if char_exists(orig_char_info(f)(c)) then {N.B.: not |char_info|} begin if c>=qi(128) then dvi_out(set1); dvi_out(qo(c));@/ cur_h:=cur_h+char_width(f)(orig_char_info(f)(c)); goto continue; end; if mltex_enabled_p then @; continue: p:=link(p); until not is_char_node(p); dvi_h:=cur_h; end else @ @y @= reswitch: if is_char_node(p) then begin synch_h; synch_v; chain:=false; repeat f:=font(p); c:=character(p); if f<>dvi_f then @; if font_dir[f]=dir_default then begin chain:=false; if font_ec[f]>=qo(c) then if font_bc[f]<=qo(c) then if char_exists(orig_char_info(f)(c)) then {N.B.: not |char_info|} begin if c>=qi(128) then dvi_out(set1); dvi_out(qo(c));@/ cur_h:=cur_h+char_width(f)(orig_char_info(f)(c)); goto continue; end; if mltex_enabled_p then @; continue: end else begin if chain=false then chain:=true else begin cur_h:=cur_h+width(ksp_ptr); if g_sign<>normal then begin if g_sign=stretching then begin if stretch_order(ksp_ptr)=g_order then cur_h:=cur_h+round(float(glue_set(this_box))*stretch(ksp_ptr)); @^real multiplication@> end else begin if shrink_order(ksp_ptr)=g_order then cur_h:=cur_h-round(float(glue_set(this_box))*shrink(ksp_ptr)); @^real multiplication@> end; end; synch_h; end; p:=link(p); jc:=toDVI(KANJI(info(p))); dvi_out(set2); dvi_out(Hi(jc)); dvi_out(Lo(jc)); cur_h:=cur_h+char_width(f)(orig_char_info(f)(c)); {not |jc|} end; dvi_h:=cur_h; p:=link(p); until not is_char_node(p); chain:=false; end else @ @z @x [32.623] l.12982 - pTeX: disp_node, dir_node @ @= begin case type(p) of hlist_node,vlist_node:@; rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p); goto fin_rule; end; whatsit_node: @; @y @ @= begin case type(p) of hlist_node,vlist_node,dir_node:@; rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p); goto fin_rule; end; whatsit_node: @; disp_node: begin disp:=disp_dimen(p); cur_v:=base_line+disp; end; @z @x [32.624] l.13000 - pTeX: output a box(and dir_node) with disp @ @= if list_ptr(p)=null then cur_h:=cur_h+width(p) else begin save_h:=dvi_h; save_v:=dvi_v; cur_v:=base_line+shift_amount(p); {shift the box down} @y @ @= if list_ptr(p)=null then cur_h:=cur_h+width(p) else begin save_h:=dvi_h; save_v:=dvi_v; save_dir:=dvi_dir; cur_v:=base_line+disp+shift_amount(p); {shift the box down} @z @x [32.624] l.13005 - pTeX: output a box(and dir_node) with disp if type(p)=vlist_node then vlist_out@+else hlist_out; dvi_h:=save_h; dvi_v:=save_v; cur_h:=edge+width(p); cur_v:=base_line; end @y case type(p) of hlist_node:hlist_out; vlist_node:vlist_out; dir_node:dir_out; endcases; dvi_h:=save_h; dvi_v:=save_v; dvi_dir:=save_dir; cur_h:=edge+width(p); cur_v:=base_line+disp; cur_dir_hv:=save_dir; end @z @x [32.625] l.13010 - pTeX: Output a rule with disp @ @= if is_running(rule_ht) then rule_ht:=height(this_box); if is_running(rule_dp) then rule_dp:=depth(this_box); @y @ @= if is_running(rule_ht) then rule_ht:=height(this_box)+disp; if is_running(rule_dp) then rule_dp:=depth(this_box)-disp; @z @x [32.629] l.13103 - pTeX: Output a leader box(and dir_node) with disp @= begin cur_v:=base_line+shift_amount(leader_box); synch_v; save_v:=dvi_v;@/ synch_h; save_h:=dvi_h; temp_ptr:=leader_box; @y @= begin cur_v:=base_line+disp+shift_amount(leader_box); synch_v; save_v:=dvi_v;@/ synch_h; save_h:=dvi_h; save_dir:=dvi_dir; temp_ptr:=leader_box; @z @x [32.629] l.13107 - pTeX: Output a leader box(and dir_node) with disp if type(leader_box)=vlist_node then vlist_out@+else hlist_out; doing_leaders:=outer_doing_leaders; dvi_v:=save_v; dvi_h:=save_h; cur_v:=base_line; cur_h:=save_h+leader_wd+lx; end @y case type(leader_box) of hlist_node:hlist_out; vlist_node:vlist_out; dir_node:dir_out; endcases; doing_leaders:=outer_doing_leaders; dvi_v:=save_v; dvi_h:=save_h; dvi_dir:=save_dir; cur_v:=base_line; cur_h:=save_h+leader_wd+lx; cur_dir_hv:=save_dir; end @z @x [32.630] l.13133 - pTeX: vlist_out begin cur_g:=0; cur_glue:=float_constant(0); this_box:=temp_ptr; g_order:=glue_order(this_box); g_sign:=glue_sign(this_box); p:=list_ptr(this_box); incr(cur_s); if cur_s>0 then dvi_out(push); if cur_s>max_push then max_push:=cur_s; save_loc:=dvi_offset+dvi_ptr; left_edge:=cur_h; cur_v:=cur_v-height(this_box); @y @!save_dir:integer; {what |dvi_dir| should pop to} begin cur_g:=0; cur_glue:=float_constant(0); this_box:=temp_ptr; g_order:=glue_order(this_box); g_sign:=glue_sign(this_box); p:=list_ptr(this_box); incr(cur_s); if cur_s>0 then dvi_out(push); if cur_s>max_push then max_push:=cur_s; save_loc:=dvi_offset+dvi_ptr; synch_dir; left_edge:=cur_h; cur_v:=cur_v-height(this_box); @z @x [32.632] l.13155 - pTeX: output non-char-node @ @= begin case type(p) of hlist_node,vlist_node:@; rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p); goto fin_rule; end; @y @ @= begin case type(p) of hlist_node,vlist_node,dir_node: @; rule_node: begin rule_ht:=height(p); rule_dp:=depth(p); rule_wd:=width(p); goto fin_rule; end; @z @x [32.633] l.13175 - pTeX: Output a box in a vlist @= if list_ptr(p)=null then cur_v:=cur_v+height(p)+depth(p) else begin cur_v:=cur_v+height(p); synch_v; save_h:=dvi_h; save_v:=dvi_v; @y @= if list_ptr(p)=null then cur_v:=cur_v+height(p)+depth(p) else begin cur_v:=cur_v+height(p); synch_v; save_h:=dvi_h; save_v:=dvi_v; save_dir:=dvi_dir; @z @x [32.633] l.13181 - pTeX: Output a box in a vlist if type(p)=vlist_node then vlist_out@+else hlist_out; dvi_h:=save_h; dvi_v:=save_v; cur_v:=save_v+depth(p); cur_h:=left_edge; end @y case type(p) of hlist_node:hlist_out; vlist_node:vlist_out; dir_node:dir_out; endcases; dvi_h:=save_h; dvi_v:=save_v; dvi_dir:=save_dir; cur_v:=save_v+depth(p); cur_h:=left_edge; cur_dir_hv:=save_dir; end @z @x [32.637] l.13256 - pTeX: Output a leader in a vlist @= @y @= @z @x [32.637] l.13258 - pTeX: Output a leader in a vlist cur_v:=cur_v+height(leader_box); synch_v; save_v:=dvi_v; temp_ptr:=leader_box; outer_doing_leaders:=doing_leaders; doing_leaders:=true; if type(leader_box)=vlist_node then vlist_out@+else hlist_out; doing_leaders:=outer_doing_leaders; dvi_v:=save_v; dvi_h:=save_h; cur_h:=left_edge; cur_v:=save_v-height(leader_box)+leader_ht+lx; end @y cur_v:=cur_v+height(leader_box); synch_v; save_v:=dvi_v; save_dir:=dvi_dir; temp_ptr:=leader_box; outer_doing_leaders:=doing_leaders; doing_leaders:=true; case type(leader_box) of hlist_node:hlist_out; vlist_node:vlist_out; dir_node:dir_out; endcases; doing_leaders:=outer_doing_leaders; dvi_v:=save_v; dvi_h:=save_h; dvi_dir:=save_dir; cur_h:=left_edge; cur_v:=save_v-height(leader_box)+leader_ht+lx; cur_dir_hv:=save_dir; end @z @x [32.638] l.13270 - pTeX: ship out @p procedure ship_out(@!p:pointer); {output the box |p|} label done; var page_loc:integer; {location of the current |bop|} @y @p procedure ship_out(@!p:pointer); {output the box |p|} label done; var page_loc:integer; {location of the current |bop|} @!del_node:pointer; {used when delete the |dir_node| continued box} @z @x [32.640] l.13294 - pTeX: ship out @; @y if type(p)=dir_node then begin del_node:=p; p:=list_ptr(p); delete_glue_ref(space_ptr(del_node)); delete_glue_ref(xspace_ptr(del_node)); free_node(del_node,box_node_size); end; flush_node_list(link(p)); link(p):=null; if box_dir(p)<>dir_yoko then p:=new_dir_node(p,dir_yoko); @; @z @x [32.641] l.13327 - pTeX: dir_node if type(p)=vlist_node then vlist_out@+else hlist_out; @y case type(p) of hlist_node:hlist_out; vlist_node:vlist_out; dir_node:dir_out; endcases; @z @x [33.642] l.13394 - pTeX: postamble's id_byte @; dvi_out(post_post); dvi_four(last_bop); dvi_out(id_byte);@/ @y @; dvi_out(post_post); dvi_four(last_bop); if dir_used then dvi_out(ex_id_byte) else dvi_out(id_byte);@/ @z @x [33.647] l.13515 - pTeX: cur_kanji_skip, cur_xkanji_skip, last_disp @< Glob...@>= @!adjust_tail:pointer; {tail of adjustment list} @y @< Glob...@>= @!adjust_tail:pointer; {tail of adjustment list} @!last_disp:scaled; {displacement at end of list} @!cur_kanji_skip:pointer; @!cur_xkanji_skip:pointer; @z @x [33.648] l.13518 - pTeX: cur_kanji_skip, cur_xkanji_skip @ @=adjust_tail:=null; last_badness:=0; @y @ @=adjust_tail:=null; last_badness:=0; cur_kanji_skip:=zero_glue; cur_xkanji_skip:=zero_glue; { koko |incr(glue_ref_count(cur_kanji_skip));| |incr(glue_ref_count(cur_xkanji_skip));| } @z @x [33.649] l.13522 - pTeX: hpack @p function hpack(@!p:pointer;@!w:scaled;@!m:small_number):pointer; label reswitch, common_ending, exit; var r:pointer; {the box node that will be returned} @y @p function hpack(@!p:pointer;@!w:scaled;@!m:small_number):pointer; label reswitch, common_ending, exit; var r:pointer; {the box node that will be returned} @!k:pointer; {points to a |kanji_space| specification} @!disp:scaled; {displacement} @z @x [33.649] l.13535 - pTeX: hpack q:=r+list_offset; link(q):=p;@/ h:=0; @; @y space_ptr(r):=cur_kanji_skip; xspace_ptr(r):=cur_xkanji_skip; add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); k:=cur_kanji_skip; q:=r+list_offset; link(q):=p;@/ h:=0; @; disp:=0; @z @x [33.649] l.13537 - pTeX: hpack while p<>null do @; if adjust_tail<>null then link(adjust_tail):=null; height(r):=h; depth(r):=d;@/ @; common_ending: @; exit: hpack:=r; end; @y while p<>null do @; if adjust_tail<>null then link(adjust_tail):=null; height(r):=h; depth(r):=d;@/ @; common_ending: @; exit: last_disp:=disp; hpack:=r; end; @z @x [33.651] l.13556 - pTeX: dir_node, disp_node, reset chain @ @= @^inner loop@> begin reswitch: while is_char_node(p) do @; if p<>null then begin case type(p) of hlist_node,vlist_node,rule_node,unset_node: @; ins_node,mark_node,adjust_node: if adjust_tail<>null then @; whatsit_node:@; @y @ @= @^inner loop@> begin reswitch: chain:=false; while is_char_node(p) do @; if p<>null then begin case type(p) of hlist_node,vlist_node,dir_node,rule_node,unset_node: @; ins_node,mark_node,adjust_node: if adjust_tail<>null then @; whatsit_node:@; disp_node:disp:=disp_dimen(p); @z @x [33.653] l.13589 - pTeX: displacement @= begin x:=x+width(p); if type(p)>=rule_node then s:=0 @+else s:=shift_amount(p); if height(p)-s>h then h:=height(p)-s; if depth(p)+s>d then d:=depth(p)+s; end @y @= begin x:=x+width(p); if type(p)>=rule_node then s:=disp @+else s:=shift_amount(p)+disp; if height(p)-s>h then h:=height(p)-s; if depth(p)+s>d then d:=depth(p)+s; end @z @x [33.654] l.13601 - pTeX: auto spacing, displacement @= begin f:=font(p); i:=char_info(f)(character(p)); hd:=height_depth(i); x:=x+char_width(f)(i);@/ s:=char_height(f)(hd);@+if s>h then h:=s; s:=char_depth(f)(hd);@+if s>d then d:=s; p:=link(p); end @y @= begin f:=font(p); i:=char_info(f)(character(p)); hd:=height_depth(i); x:=x+char_width(f)(i);@/ s:=char_height(f)(hd)-disp; if s>h then h:=s; s:=char_depth(f)(hd)+disp; if s>d then d:=s; if font_dir[f]<>dir_default then begin p:=link(p); if chain then begin x:=x+width(k);@/ o:=stretch_order(k); total_stretch[o]:=total_stretch[o]+stretch(k); o:=shrink_order(k); total_shrink[o]:=total_shrink[o]+shrink(k); end else chain:=true; end else chain:=false; p:=link(p); end @z @x [33.668] l.13779 - pTeX: vpackage begin last_badness:=0; r:=get_node(box_node_size); type(r):=vlist_node; subtype(r):=min_quarterword; shift_amount(r):=0; @y begin last_badness:=0; r:=get_node(box_node_size); type(r):=vlist_node; subtype(r):=min_quarterword; shift_amount(r):=0; space_ptr(r):=zero_glue; xspace_ptr(r):=zero_glue; add_glue_ref(zero_glue); add_glue_ref(zero_glue); @z @x [33.669] l.13797 - pTeX: dir_node @ @= begin if is_char_node(p) then confusion("vpack") @:this can't happen vpack}{\quad vpack@> else case type(p) of hlist_node,vlist_node,rule_node,unset_node: @; @y @ @= begin if is_char_node(p) then confusion("vpack") @:this can't happen vpack}{\quad vpack@> else case type(p) of hlist_node,vlist_node,dir_node,rule_node,unset_node: @; @z @x [34.681] l.14026 - pTeX: math noad @d noad_size=4 {number of words in a normal noad} @d nucleus(#)==#+1 {the |nucleus| field of a noad} @d supscr(#)==#+2 {the |supscr| field of a noad} @d subscr(#)==#+3 {the |subscr| field of a noad} @y \yskip\hang In Japanese, |math_type(q)=math_jchar| means that |fam(q)| refers to one of the sixteen kanji font families, and |KANJI(q)| is the internal kanji code number. @^Japanese extentions@> @d noad_size=5 {number of words in a normal noad} @d nucleus(#)==#+1 {the |nucleus| field of a noad} @d supscr(#)==#+2 {the |supscr| field of a noad} @d subscr(#)==#+3 {the |subscr| field of a noad} @d kcode_noad(#)==#+4 @d math_kcode(#)==info(#+4) {the |kanji character| field of a noad} @d kcode_noad_nucleus(#)==#+3 @d math_kcode_nucleus(#)==info(#+3) {the |kanji character| field offset from nucleus} @# @d math_jchar=5 @d math_text_jchar=6 @z @x [34.683] radical with japanese char @d left_delimiter(#)==#+4 {first delimiter field of a noad} @d right_delimiter(#)==#+5 {second delimiter field of a fraction noad} @d radical_noad=inner_noad+1 {|type| of a noad for square roots} @d radical_noad_size=5 {number of |mem| words in a radical noad} @y @d left_delimiter(#)==#+5 {first delimiter field of a noad} @d right_delimiter(#)==#+4 {second delimiter field of a fraction noad} @d radical_noad=inner_noad+1 {|type| of a noad for square roots} @d radical_noad_size=6 {number of |mem| words in a radical noad} @z @x [34.686] l.14129 - pTeX: new_noad mem[supscr(p)].hh:=empty_field; new_noad:=p; @y mem[supscr(p)].hh:=empty_field; mem[kcode_noad(p)].hh:=empty_field; new_noad:=p; @z @x [34.687] accent with japanese char @d accent_noad_size=5 {number of |mem| words in an accent noad} @d accent_chr(#)==#+4 {the |accent_chr| field of an accent noad} @y @d accent_noad_size=6 {number of |mem| words in an accent noad} @d accent_chr(#)==#+5 {the |accent_chr| field of an accent noad} @z @x [34.691] l.14236 - pTeX: print_fam_and_char procedure print_fam_and_char(@!p:pointer); {prints family and character} begin print_esc("fam"); print_int(fam(p)); print_char(" "); print_ASCII(qo(character(p))); @y procedure print_fam_and_char(@!p:pointer;@!t:small_number); {prints family and character} var @!cx:KANJI_code; {temporary register for KANJI} begin print_esc("fam"); print_int(fam(p)); print_char(" "); if t=math_char then print_ASCII(qo(character(p))) else begin KANJI(cx):=math_kcode_nucleus(p); print_kanji(cx); end; @z @x [34.692] l.14266 - pTeX: print_subsidiary_data math_char: begin print_ln; print_current_string; print_fam_and_char(p); @y math_char, math_jchar: begin print_ln; print_current_string; print_fam_and_char(p,math_type(p)); @z @x [34.696] l.14327 - pTeX: print_fam_and_char accent_noad: begin print_esc("accent"); print_fam_and_char(accent_chr(p)); @y accent_noad: begin print_esc("accent"); print_fam_and_char(accent_chr(p),math_char); @z @x [35.715] l.14687 - pTeX: rebox begin if type(b)=vlist_node then b:=hpack(b,natural); p:=list_ptr(b); if (is_char_node(p))and(link(p)=null) then begin f:=font(p); v:=char_width(f)(char_info(f)(character(p))); if v<>width(b) then link(p):=new_kern(width(b)-v); end; @y begin if type(b)<>hlist_node then b:=hpack(b,natural); p:=list_ptr(b); if is_char_node(p) then if font_dir[font(p)]<>dir_default then begin if link(link(p))=null then begin f:=font(p); v:=char_width(f)(orig_char_info(f)(character(p))); if v<>width(b) then link(link(p)):=new_kern(width(b)-v); end end else if link(p)=null then begin f:=font(p); v:=char_width(f)(orig_char_info(f)(character(p))); if v<>width(b) then link(p):=new_kern(width(b)-v); end; delete_glue_ref(space_ptr(b)); delete_glue_ref(xspace_ptr(b)); @z @x [36.720] l.14783 - pTeX: clean_box function clean_box(@!p:pointer;@!s:small_number):pointer; @y function clean_box(@!p:pointer;@!s:small_number;@!jc:halfword):pointer; @z @x [36.720] l.14790 - pTeX: clean_box math_char: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p]; end; @y math_char: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p]; end; math_jchar: begin cur_mlist:=new_noad; mem[nucleus(cur_mlist)]:=mem[p]; math_kcode(cur_mlist):=jc; end; @z @x [36.720] l.14802 - pTeX: clean_box found: if is_char_node(q)or(q=null) then x:=hpack(q,natural) else if (link(q)=null)and(type(q)<=vlist_node)and(shift_amount(q)=0) then x:=q {it's already clean} else x:=hpack(q,natural); @y found: if is_char_node(q)or(q=null) then x:=hpack(q,natural) else if (link(q)=null)and(type(q)<=dir_node)and(shift_amount(q)=0) then x:=q {it's already clean} else x:=hpack(q,natural); @z @x [36.721] l.14814 - pTeX: skip 2nd kanji node if is_char_node(q) then begin r:=link(q); @y if is_char_node(q) then begin if font_dir[font(q)]<>dir_default then q:=link(q); r:=link(q); @z @x [36.722] l.14833 - pTeX: fetch else begin if (qo(cur_c)>=font_bc[cur_f])and(qo(cur_c)<=font_ec[cur_f]) then cur_i:=orig_char_info(cur_f)(cur_c) else cur_i:=null_character; if not(char_exists(cur_i)) then begin char_warning(cur_f,qo(cur_c)); math_type(a):=empty; end; end; @y else begin if font_dir[cur_f]<>dir_default then cur_c:=qi(get_jfm_pos(KANJI(math_kcode_nucleus(a)),cur_f)); if (qo(cur_c)>=font_bc[cur_f])and(qo(cur_c)<=font_ec[cur_f]) then cur_i:=orig_char_info(cur_f)(cur_c) else cur_i:=null_character; if not(char_exists(cur_i)) then begin char_warning(cur_f,qo(cur_c)); math_type(a):=empty; end; end; @z @x [36.726] l.14892 - pTeX: mlist_to_hlist var mlist:pointer; {beginning of the given list} @!penalties:boolean; {should penalty nodes be inserted?} @!style:small_number; {the given style} @y var mlist:pointer; {beginning of the given list} @!penalties:boolean; {should penalty nodes be inserted?} @!style:small_number; {the given style} @!u:pointer; {temporary register} @z @x [36.726] l.14913 - pTeX: mlist_to_hlist @; end; @y @; p:=new_null_box; link(p):=link(temp_head); adjust_hlist(p,false); link(temp_head):=link(p); delete_glue_ref(space_ptr(p)); delete_glue_ref(xspace_ptr(p)); free_node(p,box_node_size); end; @z @x [36.727] l.14928 - pTeX: free box free_node(z,box_node_size); @y delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z)); free_node(z,box_node_size); @z @x [36.730] l.14976 - pTeX: free box: disp_node kern_node: begin math_kern(q,cur_mu); goto done_with_node; end; @y kern_node: begin math_kern(q,cur_mu); goto done_with_node; end; disp_node: goto done_with_node; @z @x [36.734] l.15046 - pTeX: make_over:clean_box overbar(clean_box(nucleus(q),cramped_style(cur_style)),@| @y overbar(clean_box(nucleus(q),cramped_style(cur_style),math_kcode(q)),@| @z @x [36.735] l.15055 - pTeX: make_under:clean_box begin x:=clean_box(nucleus(q),cur_style); @y begin x:=clean_box(nucleus(q),cur_style,math_kcode(q)); @z @x [36.736] l.15069 - pTeX: make_under:clean_box if type(v)<>vlist_node then confusion("vcenter"); @y if type(v)=dir_node then begin if type(list_ptr(v))<>vlist_node then confusion("dircenter") end else begin if type(v)<>vlist_node then confusion("vcenter") end; @z @x [36.737] l.15089 - pTeX: make_radical:clean_box begin x:=clean_box(nucleus(q),cramped_style(cur_style)); @y begin x:=clean_box(nucleus(q),cramped_style(cur_style),math_kcode(q)); @z @x [36.738] l.15123 - pTeX: make_math_accent:clean_box x:=clean_box(nucleus(q),cramped_style(cur_style)); w:=width(x); h:=height(x); @y x:=clean_box(nucleus(q),cramped_style(cur_style),math_kcode(q)); w:=width(x); h:=height(x); @z @x [36.742] l.15186 - pTeX: make_math_accent:clean_box x:=clean_box(nucleus(q),cur_style); delta:=delta+height(x)-h; h:=height(x); @y x:=clean_box(nucleus(q),cur_style,math_kcode(q)); delta:=delta+height(x)-h; h:=height(x); @z @x [36.744] l.15211 - pTeX: make_fraction:clean_box x:=clean_box(numerator(q),num_style(cur_style)); z:=clean_box(denominator(q),denom_style(cur_style)); @y x:=clean_box(numerator(q),num_style(cur_style),math_kcode(q)); z:=clean_box(denominator(q),denom_style(cur_style),math_kcode(q)); @z @x [36.749] l.15304 - pTeX: make_op:clean_box delta:=char_italic(cur_f)(cur_i); x:=clean_box(nucleus(q),cur_style); @y delta:=char_italic(cur_f)(cur_i); x:=clean_box(nucleus(q),cur_style,math_kcode(q)); @z @x [36.750] l.15321 - pTeX: make_op:clean_box begin x:=clean_box(supscr(q),sup_style(cur_style)); y:=clean_box(nucleus(q),cur_style); z:=clean_box(subscr(q),sub_style(cur_style)); @y begin x:=clean_box(supscr(q),sup_style(cur_style),math_kcode(q)); y:=clean_box(nucleus(q),cur_style,math_kcode(q)); z:=clean_box(subscr(q),sub_style(cur_style),math_kcode(q)); @z @x [36.751] l.15342 - pTeX: free box node begin free_node(x,box_node_size); list_ptr(v):=y; end @y begin delete_glue_ref(space_ptr(x)); delete_glue_ref(xspace_ptr(x)); free_node(x,box_node_size); list_ptr(v):=y; end @z @x [36.751] l.15350 - pTeX: free box node if math_type(subscr(q))=empty then free_node(z,box_node_size) @y if math_type(subscr(q))=empty then begin delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z)); free_node(z,box_node_size) end @z @x [36.752] l.15369 - pTeX: make_ord procedure make_ord(@!q:pointer); label restart,exit; var a:integer; {address of lig/kern instruction} @!p,@!r:pointer; {temporary registers for list manipulation} begin restart:@t@>@;@/ if math_type(subscr(q))=empty then if math_type(supscr(q))=empty then if math_type(nucleus(q))=math_char then begin p:=link(q); if p<>null then if (type(p)>=ord_noad)and(type(p)<=punct_noad) then if math_type(nucleus(p))=math_char then if fam(nucleus(p))=fam(nucleus(q)) then begin math_type(nucleus(q)):=math_text_char; fetch(nucleus(q)); if char_tag(cur_i)=lig_tag then begin a:=lig_kern_start(cur_f)(cur_i); cur_c:=character(nucleus(p)); cur_i:=font_info[a].qqqq; if skip_byte(cur_i)>stop_flag then begin a:=lig_kern_restart(cur_f)(cur_i); cur_i:=font_info[a].qqqq; end; loop@+ begin @; if skip_byte(cur_i)>=stop_flag then return; a:=a+qo(skip_byte(cur_i))+1; cur_i:=font_info[a].qqqq; end; end; end; end; exit:end; @y procedure make_ord(@!q:pointer); label restart,exit; var a:integer; {address of lig/kern instruction} @!gp,@!gq,@!p,@!r:pointer; {temporary registers for list manipulation} @!rr:halfword; begin restart:@t@>@;@/ if (math_type(subscr(q))=empty)and(math_type(supscr(q))=empty)and@| ((math_type(nucleus(q))=math_char)or(math_type(nucleus(q))=math_jchar)) then begin p:=link(q); if p<>null then if (type(p)>=ord_noad)and(type(p)<=punct_noad) then if fam(nucleus(p))=fam(nucleus(q)) then if math_type(nucleus(p))=math_char then begin math_type(nucleus(q)):=math_text_char; fetch(nucleus(q)); if char_tag(cur_i)=lig_tag then begin a:=lig_kern_start(cur_f)(cur_i); cur_c:=character(nucleus(p)); cur_i:=font_info[a].qqqq; if skip_byte(cur_i)>stop_flag then begin a:=lig_kern_restart(cur_f)(cur_i); cur_i:=font_info[a].qqqq; end; loop@+ begin @; if skip_byte(cur_i)>=stop_flag then return; a:=a+qo(skip_byte(cur_i))+1; cur_i:=font_info[a].qqqq; end; end; end else if math_type(nucleus(p))=math_jchar then begin math_type(nucleus(q)):=math_text_jchar; fetch(nucleus(p)); a:=cur_c; fetch(nucleus(q)); if char_tag(cur_i)=gk_tag then begin cur_c:=a; a:=glue_kern_start(cur_f)(cur_i); {|cur_c|:=qi(|get_jfm_pos|(|math_kcode|(p), |fam_fnt|(fam(nucleus(p))+|cur_size|)));} repeat cur_i:=font_info[a].qqqq; if next_char(cur_i)=cur_c then if op_byte(cur_i)null then begin while((type(gp)<>rr)and(link(gp)<>null)) do begin gp:=link(gp); end; gq:=glue_ptr(gp); end else begin gp:=get_node(small_node_size); font_glue[cur_f]:=gp; gq:=null; end; if gq=null then begin type(gp):=rr; gq:=new_spec(zero_glue); glue_ptr(gp):=gq; a:=exten_base[cur_f]+qi((qo(rr))*3); width(gq):=font_info[a].sc; stretch(gq):=font_info[a+1].sc; shrink(gq):=font_info[a+2].sc; add_glue_ref(gq); link(gp):=get_node(small_node_size); gp:=link(gp); glue_ptr(gp):=null; link(gp):=null; end; p:=new_glue(gq); link(p):=link(q); link(q):=p; return; end else begin p:=new_kern(char_kern(cur_f)(cur_i)); link(p):=link(q); link(q):=p; return; end; incr(a); until skip_byte(cur_i)>=stop_flag; end; end; end; exit:end; @z @x [36.754] l.15452 - pTeX: math_char, math_text_char: @y math_char, math_text_char, math_jchar, math_text_jchar: @z @x [36.755] l.15475 - pTeX: convert math text to KANJI char_node begin delta:=char_italic(cur_f)(cur_i); p:=new_character(cur_f,qo(cur_c)); if (math_type(nucleus(q))=math_text_char)and(space(cur_f)<>0) then delta:=0; {no italic correction in mid-word of text font} if (math_type(subscr(q))=empty)and(delta<>0) then begin link(p):=new_kern(delta); delta:=0; @y begin delta:=char_italic(cur_f)(cur_i); p:=new_character(cur_f,qo(cur_c)); u:=p; if font_dir[cur_f]<>dir_default then begin link(u):=get_avail; u:=link(u); info(u):=math_kcode(q); end; if ((math_type(nucleus(q))=math_text_char)or (math_type(nucleus(q))=math_text_jchar))and(space(cur_f)<>0) then delta:=0; {no italic correction in mid-word of text font} if (math_type(subscr(q))=empty)and(delta<>0) then begin link(u):=new_kern(delta); delta:=0; @z @x [36.756] l.15505 - pTeX: free box shift_down:=depth(z)+sub_drop(t); free_node(z,box_node_size); end; @y shift_down:=depth(z)+sub_drop(t); delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z)); free_node(z,box_node_size); end; @z @x [36.757] l.15526 - pTeX: make_scripts:clean_box begin x:=clean_box(subscr(q),sub_style(cur_style)); @y begin x:=clean_box(subscr(q),sub_style(cur_style),math_kcode(q)); @z @x [36.758] l.15538 - pTeX: make_scripts:clean_box begin x:=clean_box(supscr(q),sup_style(cur_style)); @y begin x:=clean_box(supscr(q),sup_style(cur_style),math_kcode(q)); @z @x [36.758] l.15555 - pTeX: make_scripts:clean_box begin y:=clean_box(subscr(q),sub_style(cur_style)); @y begin y:=clean_box(subscr(q),sub_style(cur_style),math_kcode(q)); @z @x [36.760] l.15616 - pTeX: disp_node othercases confusion("mlist3") @y disp_node: begin link(p):=q; p:=q; q:=link(q); link(p):=null; goto done; end; othercases confusion("mlist3") @z @x [37.796] l.16276 - pTeX: call adjust_hlist begin adjust_tail:=cur_tail; u:=hpack(link(head),natural); w:=width(u); @y begin adjust_tail:=cur_tail; adjust_hlist(head,false); delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip); cur_kanji_skip:=space_ptr(head); cur_xkanji_skip:=xspace_ptr(head); add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); u:=hpack(link(head),natural); w:=width(u); @z @x [37.799] l.16331 - pTeX: call adjust_hlist begin p:=hpack(link(head),natural); @y begin adjust_hlist(head,false); delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip); cur_kanji_skip:=space_ptr(head); cur_xkanji_skip:=xspace_ptr(head); add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); p:=hpack(link(head),natural); @z @x [37.800] l.16353 - pTeX: call adjust_hlist var @!p,@!q,@!r,@!s,@!u,@!v: pointer; {registers for the list operations} @y var @!p,@!q,@!r,@!s,@!u,@!v,@!z: pointer; {registers for the list operations} @z @x [37.804] l.16456 - pTeX: call adjust_hlist p:=hpack(preamble,saved(1),saved(0)); overfull_rule:=rule_save; @y z:=new_null_box; link(z):=preamble; adjust_hlist(z,false); delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip); cur_kanji_skip:=space_ptr(z); cur_xkanji_skip:=xspace_ptr(z); add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); p:=hpack(preamble,saved(1),saved(0)); overfull_rule:=rule_save; delete_glue_ref(space_ptr(z)); delete_glue_ref(xspace_ptr(z)); free_node(z,box_node_size); @z @x [37.807] l.16499 - pTeX: unset box -> BOX glue_order(q):=glue_order(p); glue_sign(q):=glue_sign(p); glue_set(q):=glue_set(p); shift_amount(q):=o; r:=link(list_ptr(q)); s:=link(list_ptr(p)); @y set_box_dir(q)(abs(direction)); glue_order(q):=glue_order(p); glue_sign(q):=glue_sign(p); glue_set(q):=glue_set(p); shift_amount(q):=o; r:=link(list_ptr(q)); s:=link(list_ptr(p)); @z @x [37.809] l.16541 - pTeX: unset box -> BOX s:=link(s); link(u):=new_null_box; u:=link(u); t:=t+width(s); if mode=-vmode then width(u):=width(s)@+else begin type(u):=vlist_node; height(u):=width(s); end @y s:=link(s); link(u):=new_null_box; u:=link(u); t:=t+width(s); if mode=-vmode then width(u):=width(s)@+else begin type(u):=vlist_node; height(u):=width(s); end; set_box_dir(u)(abs(direction)) @z @x [37.810] l.16564 - pTeX: unset box -> BOX width(r):=w; type(r):=hlist_node; end @y width(r):=w; type(r):=hlist_node; set_box_dir(r)(abs(direction)); end @z @x [37.811] l.16585 - pTeX: unset box -> BOX height(r):=w; type(r):=vlist_node; @y height(r):=w; type(r):=vlist_node; set_box_dir(r)(abs(direction)); @z @x [38.816] l.16687 - pTeX: init chain, delete disp_node link(temp_head):=link(head); if is_char_node(tail) then tail_append(new_penalty(inf_penalty)) else if type(tail)<>glue_node then tail_append(new_penalty(inf_penalty)) @y first_use:=true; chain:=false; delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip); cur_kanji_skip:=space_ptr(head); cur_xkanji_skip:=xspace_ptr(head); add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); link(temp_head):=link(head); if not is_char_node(tail)and(type(tail)=disp_node) then begin free_node(tail,small_node_size); tail:=prev_node; link(tail):=null end; if is_char_node(tail) then tail_append(new_penalty(inf_penalty)) else if type(tail)<>glue_node then tail_append(new_penalty(inf_penalty)) @z @x [38.828] l.16946 - pTeX: Global variable |chain| @!cur_p:pointer; {the current breakpoint under consideration} @y @!cur_p:pointer; {the current breakpoint under consideration} @!chain:boolean; {chain current line and next line?} @z % chain ¤¬¿¿¤Î¾ì¹ç¡¢¸å¤í¤Ë cur_kanji_skip ¤¬ÁÞÆþ¤µ¤ì¤ë¤Î¤Ç¡¢¤³¤³¤Ç % break_width ¤«¤é°ú¤¤¤Æ¤ª¤«¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£ @x [38.837] l.17125 - pTeX: add kanji_skip width, ita_kern begin no_break_yet:=false; do_all_six(set_break_width_to_background); s:=cur_p; if break_type>unhyphenated then if cur_p<>null then @; while s<>null do begin if is_char_node(s) then goto done; @y begin no_break_yet:=false; do_all_six(set_break_width_to_background); s:=cur_p; if break_type>unhyphenated then if cur_p<>null then @; while s<>null do begin if is_char_node(s) then begin if chain then begin break_width[1]:=break_width[1]-width(cur_kanji_skip); break_width[2+stretch_order(cur_kanji_skip)]:= break_width[2+stretch_order(cur_kanji_skip)]-stretch(cur_kanji_skip); break_width[6]:=break_width[6]-shrink(cur_kanji_skip); end; goto done end; @z @x [38.837] l.17135 - pTeX: kern_node: if subtype(s)<>explicit then goto done else break_width[1]:=break_width[1]-width(s); @y kern_node: if (subtype(s)<>explicit)and(subtype(s)<>ita_kern) then goto done else break_width[1]:=break_width[1]-width(s); @z @x [38.841] l.17186 - pTeX: if is_char_node(v) then begin f:=font(v); break_width[1]:=break_width[1]-char_width(f)(char_info(f)(character(v))); end else case type(v) of ligature_node: begin f:=font(lig_char(v));@/ break_width[1]:=@|break_width[1]- char_width(f)(char_info(f)(character(lig_char(v)))); end; hlist_node,vlist_node,rule_node,kern_node: break_width[1]:=break_width[1]-width(v); othercases confusion("disc1") @:this can't happen disc1}{\quad disc1@> endcases @y if is_char_node(v) then begin f:=font(v); break_width[1]:=break_width[1]-char_width(f)(orig_char_info(f)(character(v))); if font_dir[f]<>dir_default then v:=link(v); end else case type(v) of ligature_node: begin f:=font(lig_char(v));@/ break_width[1]:=@|break_width[1]- char_width(f)(orig_char_info(f)(character(lig_char(v)))); end; hlist_node,vlist_node,dir_node,rule_node,kern_node: break_width[1]:=break_width[1]-width(v); disp_node: do_nothing; othercases confusion("disc1") @:this can't happen disc1}{\quad disc1@> endcases @z @x [38.842] l.17204 - pTeX: break_width[1]:=@|break_width[1]+char_width(f)(char_info(f)(character(s))); end else case type(s) of ligature_node: begin f:=font(lig_char(s)); break_width[1]:=break_width[1]+ char_width(f)(char_info(f)(character(lig_char(s)))); end; hlist_node,vlist_node,rule_node,kern_node: break_width[1]:=break_width[1]+width(s); @y break_width[1]:=@|break_width[1]+char_width(f)(orig_char_info(f)(character(s))); if font_dir[f]<>dir_default then s:=link(s); end else case type(s) of ligature_node: begin f:=font(lig_char(s)); break_width[1]:=break_width[1]+ char_width(f)(orig_char_info(f)(character(lig_char(s)))); end; hlist_node,vlist_node,dir_node,rule_node,kern_node: break_width[1]:=break_width[1]+width(s); disp_node: do_nothing; @z @x [38.856] l.17467 - pTeX: print symbolic feasibe node if cur_p=null then print_esc("par") else if type(cur_p)<>glue_node then begin if type(cur_p)=penalty_node then print_esc("penalty") else if type(cur_p)=disc_node then print_esc("discretionary") @y if cur_p=null then print_esc("par") else if (type(cur_p)<>glue_node)and(not is_char_node(cur_p)) then begin if type(cur_p)=penalty_node then print_esc("penalty") else if type(cur_p)=disc_node then print_esc("discretionary") @z @x [39.862] l.17584 - pTeX: local valiable for line breaking @!auto_breaking:boolean; {is node |cur_p| outside a formula?} @!prev_p:pointer; {helps to determine when glue nodes are breakpoints} @!q,@!r,@!s,@!prev_s:pointer; {miscellaneous nodes of temporary interest} @!f:internal_font_number; {used when calculating character widths} @y @!auto_breaking:boolean; {is node |cur_p| outside a formula?} @!prev_p:pointer; {helps to determine when glue nodes are breakpoints} @!q,@!r,@!s,@!prev_s:pointer; {miscellaneous nodes of temporary interest} @!f,@!post_f:internal_font_number; {used when calculating character widths} @!post_p:pointer; @!cc:ASCII_code; @!first_use:boolean; @z @x [39.866] l.17677 - pTeX: dir_node, disp_node, ita_kern case type(cur_p) of hlist_node,vlist_node,rule_node: act_width:=act_width+width(cur_p); @y case type(cur_p) of hlist_node,vlist_node,dir_node,rule_node: act_width:=act_width+width(cur_p); @z @x [39.866] l.17685 - pTeX: kern_node: if subtype(cur_p)=explicit then kern_break else act_width:=act_width+width(cur_p); @y kern_node: if (subtype(cur_p)=explicit)or(subtype(cur_p)=ita_kern) then kern_break else act_width:=act_width+width(cur_p); @z @x [39.866] l.17694 - pTeX: mark_node,ins_node,adjust_node: do_nothing; @y disp_node,mark_node,ins_node,adjust_node: do_nothing; @z % ¤³¤³¤Ç¡¢Ï¢Â³¤¹¤ë´Á»ú¥³¡¼¥É´Ö¤Ë cur_kanji_skip ¤òÁÞÆþ¤¹¤ë¡£ % penalty_node ¤ä box_node ¤Ë¤Ï¡¢adjust_hlist ¥ë¡¼¥Á¥ó¤Ë¤è¤Ã¤Æ´û¤Ë¼ÂºÝ¤Î % glue_node ¤¬ÁÞÆþ¤µ¤ì¤Æ¤¤¤ë¤â¤Î¤È²¾Äꤷ¤Æ¤¤¤ë¡£ % chain ¤Ï¡¢try_break ¤Ç cur_kanji_skip ¤Î¥¢¥¸¥ã¥¹¥È¤Î¤¿¤á¤Ë»È¤ï¤ì¤ë¡£ @x [39.867] l.17708 - pTeX: add kanji char width @= begin prev_p:=cur_p; repeat f:=font(cur_p); act_width:=act_width+char_width(f)(char_info(f)(character(cur_p))); cur_p:=link(cur_p); until not is_char_node(cur_p); end @y @= begin chain:=false; if is_char_node(cur_p) then if font_dir[font(cur_p)]<>dir_default then begin case type(prev_p) of hlist_node,vlist_node,dir_node,rule_node, ligature_node,disc_node,math_node: begin cur_p:=prev_p; try_break(0,unhyphenated); cur_p:=link(cur_p); end; othercases do_nothing; endcases; end; prev_p:=cur_p; post_p:=cur_p; post_f:=font(post_p); repeat f:=post_f; cc:=character(cur_p); act_width:=act_width+char_width(f)(orig_char_info(f)(cc)); post_p:=link(cur_p); if font_dir[f]<>dir_default then begin prev_p:=cur_p; cur_p:=post_p; post_p:=link(post_p); if is_char_node(post_p) then begin post_f:=font(post_p); if font_dir[post_f]<>dir_default then chain:=true else chain:=false; try_break(0,unhyphenated); end else begin chain:=false; case type(post_p) of hlist_node,vlist_node,dir_node,rule_node,ligature_node, disc_node,math_node: try_break(0,unhyphenated); othercases do_nothing; endcases; end; if chain then begin if first_use then begin check_shrinkage(cur_kanji_skip); first_use:=false; end; act_width:=act_width+width(cur_kanji_skip);@| active_width[2+stretch_order(cur_kanji_skip)]:=@| active_width[2+stretch_order(cur_kanji_skip)] +stretch(cur_kanji_skip);@/ active_width[6]:=active_width[6]+shrink(cur_kanji_skip); end; prev_p:=cur_p; end else if is_char_node(post_p) then begin post_f:=font(post_p); chain:=false; if font_dir[post_f]<>dir_default then try_break(0,unhyphenated); end; cur_p:=post_p; until not is_char_node(cur_p); chain:=false; end @z @x [39.868] l.17723 - pTeX: ita_kern else if (type(prev_p)=kern_node)and(subtype(prev_p)<>explicit) then try_break(0,unhyphenated); @y else if type(prev_p)=kern_node then if (subtype(prev_p)<>explicit)and(subtype(prev_p)<>ita_kern) then try_break(0,unhyphenated); @z @x [39.871] l.17756 - pTeX: add kanji char width, dir_node width, disp_node disc_width:=disc_width+char_width(f)(char_info(f)(character(s))); end else case type(s) of ligature_node: begin f:=font(lig_char(s)); disc_width:=disc_width+ char_width(f)(char_info(f)(character(lig_char(s)))); end; hlist_node,vlist_node,rule_node,kern_node: disc_width:=disc_width+width(s); @y disc_width:=disc_width+char_width(f)(orig_char_info(f)(character(s))); if font_dir[f]<>dir_default then s:=link(s) end else case type(s) of ligature_node: begin f:=font(lig_char(s)); disc_width:=disc_width+ char_width(f)(orig_char_info(f)(character(lig_char(s)))); end; hlist_node,vlist_node,dir_node,rule_node,kern_node: disc_width:=disc_width+width(s); disp_node: do_nothing; @z @x [39.872] l.17772 - pTeX: add kanji char width, dir_node width, disp_node act_width:=act_width+char_width(f)(char_info(f)(character(s))); end else case type(s) of ligature_node: begin f:=font(lig_char(s)); act_width:=act_width+ char_width(f)(char_info(f)(character(lig_char(s)))); end; hlist_node,vlist_node,rule_node,kern_node: act_width:=act_width+width(s); @y act_width:=act_width+char_width(f)(orig_char_info(f)(character(s))); if font_dir[f]<>dir_default then s:=link(s) end else case type(s) of ligature_node: begin f:=font(lig_char(s)); act_width:=act_width+ char_width(f)(orig_char_info(f)(character(lig_char(s)))); end; hlist_node,vlist_node,dir_node,rule_node,kern_node: act_width:=act_width+width(s); disp_node: do_nothing; @z @x [39.877] l.17879 - pTeX: last_disp cur_line:=prev_graf+1; @y cur_line:=prev_graf+1; last_disp:=0; @z @x [39.879] l.17919 - pTeX: ita_kern if type(q)=kern_node then if subtype(q)<>explicit then goto done1; @y if type(q)=kern_node then if (subtype(q)<>explicit)and(subtype(q)<>ita_kern) then goto done1; @z @x [39.881] l.17950 - pTeX: |q| may be a |char_node| if q<>null then {|q| cannot be a |char_node|} if type(q)=glue_node then begin delete_glue_ref(glue_ptr(q)); glue_ptr(q):=right_skip; subtype(q):=right_skip_code+1; add_glue_ref(right_skip); goto done; end else begin if type(q)=disc_node then @ @y if q<>null then {|q| may be a |char_node|} begin if not is_char_node(q) then if type(q)=glue_node then begin delete_glue_ref(glue_ptr(q)); glue_ptr(q):=right_skip; subtype(q):=right_skip_code+1; add_glue_ref(right_skip); goto done; end else begin if type(q)=disc_node then @ @z @x [39.881] l.17961 - pTeX: |q| may be a |char_node| end @y end end @z @x [39.887] l.18014 - pTeX: disp_node at begin-of-line r:=link(q); link(q):=null; q:=link(temp_head); link(temp_head):=r; @y r:=link(q); link(q):=null; q:=link(temp_head); link(temp_head):=r; if last_disp<>0 then begin r:=get_node(small_node_size); type(r):=disp_node; disp_dimen(r):=last_disp; link(r):=q; q:=r; end; @z @x [40.896] l.18177 - pTeX: hyphenation loop@+ begin if is_char_node(s) then begin c:=qo(character(s)); hf:=font(s); end @y loop@+ begin if is_char_node(s) then begin hf:=font(s); if font_dir[hf]<>dir_default then begin prev_s:=s; s:=link(prev_s); c:=info(s); goto continue; end else c:=qo(character(s)); end else if type(s)=disp_node then goto continue else if (type(s)=penalty_node)and(not subtype(s)=normal) then goto continue @z @x [40.899] l.18248 - pTeX: disp_node whatsit_node,glue_node,penalty_node,ins_node,adjust_node,mark_node: goto done4; @y disp_node: do_nothing; whatsit_node,glue_node,penalty_node,ins_node,adjust_node,mark_node: goto done4; @z @x [44.968] l.19535 - pTeX: dir_node hlist_node,vlist_node,rule_node:@; @y hlist_node,vlist_node,dir_node,rule_node: @; @z @x [44.973] l.19626 - pTeX: dir_node hlist_node,vlist_node,rule_node: begin@t@>@;@/ cur_height:=cur_height+prev_dp+height(p); prev_dp:=depth(p); @y hlist_node,vlist_node,dir_node,rule_node: begin@t@>@;@/ cur_height:=cur_height+prev_dp+height(p); prev_dp:=depth(p); @z @x [44.977] l.19710 - pTeX: free box node var v:pointer; {the box to be split} @y var v:pointer; {the box to be split} w:pointer; {|dir_node|} @z @x [44.977] l.19722 - pTeX: free box node q:=prune_page_top(q); p:=list_ptr(v); free_node(v,box_node_size); if q=null then box(n):=null {the |eq_level| of the box stays the same} else box(n):=vpack(q,natural); vsplit:=vpackage(p,h,exactly,split_max_depth); @y q:=prune_page_top(q); p:=list_ptr(v); if q=null then box(n):=null {the |eq_level| of the box stays the same} else begin box(n):=vpack(q,natural); set_box_dir(box(n))(box_dir(v)); end; q:=vpackage(p,h,exactly,split_max_depth); set_box_dir(q)(box_dir(v)); delete_glue_ref(space_ptr(v)); delete_glue_ref(xspace_ptr(v)); free_node(v,box_node_size); vsplit:=q; @z @x [44.978] l.19732 - pTeX: bad box for vsplit if type(v)<>vlist_node then begin print_err(""); print_esc("vsplit"); print(" needs a "); print_esc("vbox"); @:vsplit_}{\.{\\vsplit needs a \\vbox}@> help2("The box you are trying to split is an \hbox.")@/ ("I can't split such a box, so I'll leave it alone."); error; vsplit:=null; return; end @y if type(v)=dir_node then begin w:=v; v:=list_ptr(v); delete_glue_ref(space_ptr(w)); delete_glue_ref(xspace_ptr(w)); free_node(w,box_node_size); end; if type(v)<>vlist_node then begin print_err(""); print_esc("vsplit"); print(" needs a "); print_esc("vbox"); @:vsplit_}{\.{\\vsplit needs a \\vbox}@> help2("The box you are trying to split is an \hbox.")@/ ("I can't split such a box, so I'll leave it alone."); error; vsplit:=null; return; end; flush_node_list(link(v)); link(v):=null @z @x [45.993] l.20053 - pTeX: ensure_vbox begin p:=box(n); if p<>null then if type(p)=hlist_node then begin print_err("Insertions can only be added to a vbox"); @y begin p:=box(n); if p<>null then if type(p)=dir_node then begin p:=list_ptr(p); delete_glue_ref(space_ptr(box(n))); delete_glue_ref(xspace_ptr(box(n))); free_node(box(n),box_node_size); box(n):=p end; if p<>null then if type(p)<>vlist_node then begin print_err("Insertions can only be added to a vbox"); @z @x [45.1000] l.20146 - pTeX: dir_node hlist_node,vlist_node,rule_node: if page_contents @y hlist_node,vlist_node,dir_node,rule_node: if page_contents @z @x [45.1009] l.20291 - pTeX: ins_dir if box(n)=null then height(r):=0 else height(r):=height(box(n))+depth(box(n)); @y if box(n)=null then height(r):=0 else begin if ins_dir(p)<>box_dir(box(n)) then begin print_err("Insertions can only be added to a same direction vbox"); @.Insertions can only...@> help3("Tut tut: You're trying to \insert into a")@/ ("\box register that now have a different direction.")@/ ("Proceed, and I'll discard its present contents."); box_error(n) end else height(r):=height(box(n))+depth(box(n)); end; @z @x [45.1017] l.20470 - pTeX: page dir box(255):=vpackage(link(page_head),best_size,exactly,page_max_depth); @y box(255):=vpackage(link(page_head),best_size,exactly,page_max_depth); set_box_dir(box(255))(page_dir); @z @x [45.1020] l.20513 - pTeX: check ins_dir if best_ins_ptr(r)=null then wait:=true else begin wait:=false; s:=last_ins_ptr(r); link(s):=ins_ptr(p); @y if best_ins_ptr(r)=null then wait:=true else begin wait:=false; n:=qo(subtype(p)); case box_dir(box(n)) of any_dir: if ins_dir(p)<>box_dir(box(n)) then begin print_err("Insertions can only be added to a same direction vbox"); @.Insertions can only...@> help3("Tut tut: You're trying to \insert into a")@/ ("\box register that now have a different direction.")@/ ("Proceed, and I'll discard its present contents."); box_error(n); box(n):=new_null_box; last_ins_ptr(r):=box(n)+list_offset; end; othercases set_box_dir(box(n))(ins_dir(p)); endcases; s:=last_ins_ptr(r); link(s):=ins_ptr(p); @z @x [45.1021] l.20537 - pTeX: free box node, ins_dir free_node(temp_ptr,box_node_size); wait:=true; @y delete_glue_ref(space_ptr(temp_ptr)); delete_glue_ref(xspace_ptr(temp_ptr)); free_node(temp_ptr,box_node_size); wait:=true; @z @x [45.1021] l.20543 - pTeX: free box node, ins_dir free_node(box(n),box_node_size); box(n):=vpack(temp_ptr,natural); @y delete_glue_ref(space_ptr(box(n))); delete_glue_ref(xspace_ptr(box(n))); flush_node_list(link(box(n))); free_node(box(n),box_node_size); box(n):=vpack(temp_ptr,natural); set_box_dir(box(n))(ins_dir(p)); @z @x [46.1030] l.20687 - pTeX:main_control @d append_normal_space=120 {go here to append a normal space between words} @y @d append_normal_space=120 {go here to append a normal space between words} @d main_loop_j=130 {like |main_loop|, but |cur_chr| holds a KANJI code} @d skip_loop=141 @d again_2=150 @z @x [46.1030] l.20691 - pTeX: main_control procedure main_control; {governs \TeX's activities} label big_switch,reswitch,main_loop,main_loop_wrapup, @y procedure main_control; {governs \TeX's activities} label big_switch,reswitch,main_loop,main_loop_wrapup, main_loop_j,main_loop_j+1,main_loop_j+3,skip_loop,again_2, @z @x [46.1030] l.20697 - pTeX: main_control var@!t:integer; {general-purpose temporary variable} @y var@!t:integer; {general-purpose temporary variable} @!cx:KANJI_code; {kanji character} @!kp:pointer; {kinsoku penalty register} @!gp,gq:pointer; {temporary registers for list manipulation} @!disp:scaled; {displacement register} @!ins_kp:boolean; {whether insert kinsoku penalty} @z @x [46.1030] l.20701 - pTeX: main_control case abs(mode)+cur_cmd of hmode+letter,hmode+other_char,hmode+char_given: goto main_loop; hmode+char_num: begin scan_char_num; cur_chr:=cur_val; goto main_loop;@+end; hmode+no_boundary: begin get_x_token; if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given)or (cur_cmd=char_num) then cancel_boundary:=true; goto reswitch; end; @y ins_kp:=false; case abs(mode)+cur_cmd of hmode+letter,hmode+other_char: goto main_loop; hmode+kanji,hmode+kana,hmode+other_kchar: goto main_loop_j; hmode+char_given: if is_char_ascii(cur_chr) then goto main_loop else goto main_loop_j; hmode+char_num: begin scan_char_num; cur_chr:=cur_val; if is_char_ascii(cur_chr) then goto main_loop else goto main_loop_j; end; hmode+no_boundary: begin get_x_token; if (cur_cmd=letter)or(cur_cmd=other_char)or (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar)or (cur_cmd=char_given)or(cur_cmd=char_num) then cancel_boundary:=true; goto reswitch; end; @z @x [46.1030] l.20715 - pTeX: main_control main_loop:@; @y main_loop_j:@; main_loop:@; @z @x [46.1034] l.20788 - pTeX: disp_node @= if ((head=tail) and (mode>0)) then begin if (insert_src_special_auto) then append_src_special; end; adjust_space_factor;@/ @y @= if ((head=tail) and (mode>0)) then begin if (insert_src_special_auto) then append_src_special; end; adjust_space_factor;@/ if direction=dir_tate then disp:=t_baseline_shift else disp:=y_baseline_shift; @; @z %@x [46.1035] l.20850 - pTeX: kinsoku penalty %@= %wrapup(rt_hit) %@y %@= %wrapup(rt_hit); %if ins_kp=true then % begin cx:=KANJI(cur_l); @; % ins_kp:=false; % end %@z @x [46.1036] l.20854 - pTeX: disp_node if lig_stack=null then goto reswitch; @y if lig_stack=null then begin @; goto reswitch; end; @z @x [46.1037] l.20886 - pTeX: Look ahead for another character @= get_next; {set only |cur_cmd| and |cur_chr|, for speed} if cur_cmd=letter then goto main_loop_lookahead+1; if cur_cmd=other_char then goto main_loop_lookahead+1; if cur_cmd=char_given then goto main_loop_lookahead+1; x_token; {now expand and set |cur_cmd|, |cur_chr|, |cur_tok|} if cur_cmd=letter then goto main_loop_lookahead+1; if cur_cmd=other_char then goto main_loop_lookahead+1; if cur_cmd=char_given then goto main_loop_lookahead+1; if cur_cmd=char_num then begin scan_char_num; cur_chr:=cur_val; goto main_loop_lookahead+1; end; if cur_cmd=no_boundary then bchar:=non_char; cur_r:=bchar; lig_stack:=null; goto main_lig_loop; main_loop_lookahead+1: adjust_space_factor; fast_get_avail(lig_stack); font(lig_stack):=main_f; cur_r:=qi(cur_chr); character(lig_stack):=cur_r; if cur_r=false_bchar then cur_r:=non_char {this prevents spurious ligatures} @y @= get_next; {set only |cur_cmd| and |cur_chr|, for speed} if cur_cmd=letter then goto main_loop_lookahead+1; if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then @; if cur_cmd=other_char then goto main_loop_lookahead+1; if cur_cmd=char_given then begin if is_char_ascii(cur_chr) then goto main_loop_lookahead+1 else @; end; x_token; {now expand and set |cur_cmd|, |cur_chr|, |cur_tok|} if cur_cmd=letter then goto main_loop_lookahead+1; if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then @; if cur_cmd=other_char then goto main_loop_lookahead+1; if cur_cmd=char_given then begin if is_char_ascii(cur_chr) then goto main_loop_lookahead+1 else @; end; if cur_cmd=char_num then begin scan_char_num; cur_chr:=cur_val; if is_char_ascii(cur_chr) then goto main_loop_lookahead+1 else @; end; if cur_cmd=inhibit_glue then begin inhibit_glue_flag:=true; goto main_loop_lookahead; end; if cur_cmd=no_boundary then bchar:=non_char; cur_r:=bchar; lig_stack:=null; goto main_lig_loop; main_loop_lookahead+1: adjust_space_factor; fast_get_avail(lig_stack); font(lig_stack):=main_f; cur_r:=qi(cur_chr); character(lig_stack):=cur_r; if cur_r=false_bchar then cur_r:=non_char {this prevents spurious ligatures} @ @= begin bchar:=non_char; cur_r:=bchar; lig_stack:=null; if ligature_present then pack_lig(rt_hit); if ins_kp=true then begin cx:=cur_l; @; end; ins_kp:=false; goto main_loop_j; end @z @x [46.1041] l.20999 - pTeX: disp_node link(tail):=temp_ptr; tail:=temp_ptr; @y if not is_char_node(tail)and(type(tail)=disp_node) then begin link(prev_node):=temp_ptr; link(temp_ptr):=tail; prev_node:=temp_ptr; end else begin link(tail):=temp_ptr; tail:=temp_ptr; end; @z @x [46.1043] l.21029 - pTeX: disp_node link(tail):=q; tail:=q; @y if not is_char_node(tail)and(type(tail)=disp_node) then begin link(prev_node):=q; link(q):=tail; prev_node:=q; end else begin link(tail):=q; tail:=q; end @z @x [47.1061] l.21277 - pTeX: append kern begin s:=cur_chr; scan_dimen(s=mu_glue,false,false); tail_append(new_kern(cur_val)); subtype(tail):=s; end; @y begin s:=cur_chr; scan_dimen(s=mu_glue,false,false); if not is_char_node(tail)and(type(tail)=disp_node) then begin prev_append(new_kern(cur_val)); subtype(prev_node):=s; end else begin tail_append(new_kern(cur_val)); subtype(tail):=s; end; end; @z @x [47.1068] l.21377 - pTeX: var p,@!q:pointer; {for short-term use} @y var p,@!q:pointer; {for short-term use} @!r:pointer; {temporaly} @z @x [47.1071] l.21485 - pTeX: \tate, \yoko, \dtou primitive("hbox",make_box,vtop_code+hmode);@/ @!@:hbox_}{\.{\\hbox} primitive@> @y primitive("hbox",make_box,vtop_code+hmode);@/ @!@:hbox_}{\.{\\hbox} primitive@> primitive("tate",chg_dir,dir_tate);@/ @!@:tate_}{\.{\\tate} primitive@> primitive("yoko",chg_dir,dir_yoko);@/ @!@:yoko_}{\.{\\yoko} primitive@> primitive("dtou",chg_dir,dir_dtou);@/ @!@:dtou_}{\.{\\dtou} primitive@> @z @x [47.1072] l.21506 - pTeX: \tate, \yoko, \dtou othercases print_esc("hbox") endcases; leader_ship: if chr_code=a_leaders then print_esc("leaders") @y othercases print_esc("hbox") endcases; chg_dir: case chr_code of dir_yoko: print_esc("yoko"); dir_tate: print_esc("tate"); dir_dtou: print_esc("dtou"); endcases; leader_ship: if chr_code=a_leaders then print_esc("leaders") @z @x [47.1073] l.21523 - pTeX: \tate, \yoko any_mode(make_box): begin_box(0); @y any_mode(make_box): begin_box(0); any_mode(chg_dir): begin if cur_group<>align_group then if head=tail then begin direction:=cur_chr; if mode=vmode then page_dir:=cur_chr; end else begin print_err("Use `"); print_cmd_chr(cur_cmd,cur_chr); print("' at top of list"); help2("Direction change command is available only while") ("current list is null."); error; end else begin print_err("You can't use `"); print_cmd_chr(cur_cmd,cur_chr); print("' in an align"); help2("To change direction in an align,") ("you shold use \hbox or \vbox with \tate or \yoko."); error; end end; @z @x [47.1075] l.21538 - pTeX: box_end var p:pointer; {|ord_noad| for new box in math mode} @y var p:pointer; {|ord_noad| for new box in math mode} q:pointer; @z @x [47.1076] l.21553 - pTeX: box_dir adjust begin shift_amount(cur_box):=box_context; @y begin p:=link(cur_box); link(cur_box):=null; while p<>null do begin q:=p; p:=link(p); if box_dir(q)=abs(direction) then begin list_ptr(q):=cur_box; cur_box:=q; link(cur_box):=null; end else begin delete_glue_ref(space_ptr(q)); delete_glue_ref(xspace_ptr(q)); free_node(q,box_node_size); end; end; if box_dir(cur_box)<>abs(direction) then cur_box:=new_dir_node(cur_box,abs(direction)); shift_amount(cur_box):=box_context; @z @x [47.1078] l.21585 - pTeX: box_dir adjust begin append_glue; subtype(tail):=box_context-(leader_flag-a_leaders); leader_ptr(tail):=cur_box; end @y begin append_glue; subtype(tail):=box_context-(leader_flag-a_leaders); if type(cur_box)<=dir_node then begin p:=link(cur_box); link(cur_box):=null; while p<>null do begin q:=p; p:=link(p); if box_dir(q)=abs(direction) then begin list_ptr(q):=cur_box; cur_box:=q; link(cur_box):=null; end else begin delete_glue_ref(space_ptr(q)); delete_glue_ref(xspace_ptr(q)); free_node(q,box_node_size); end; end; if box_dir(cur_box)<>abs(direction) then cur_box:=new_dir_node(cur_box,abs(direction)); end; leader_ptr(tail):=cur_box; end @z @x [47.1079] l.20920 - pTeX: disp_node, adjust direction @!m:quarterword; {the length of a replacement list} @y @!r:pointer; {running behind |p|} @!fd:boolean; {a final |disp_node| pair?} @!disp,@!pdisp:scaled; {displacement} @!a_dir:eight_bits; {adjust direction} @!tx:pointer; {effective tail node} @!m:quarterword; {the length of a replacement list} @z @x [47.1080] l.20937 - pTeX: disp_node, check head=tail @ Note that the condition |not is_char_node(tail)| implies that |head<>tail|, since |head| is a one-word node. @y @ Note that in \TeX\ the condition |not is_char_node(tail)| implies that |head<>tail|, since |head| is a one-word node; this is not so for p\TeX. @z @x [47.1080] l.20940 - pTeX: disp_node @= @y @d check_effective_tail_pTeX(#)== tx:=tail; if not is_char_node(tx) then if type(tx)=disp_node then begin tx:=prev_node; if not is_char_node(tx) then if type(tx)=disp_node then #; {|disp_node| from a discretionary} end @# @d fetch_effective_tail_pTeX(#)== {extract |tx|, merge |disp_node| pair} q:=head; p:=null; disp:=0; pdisp:=0; repeat r:=p; p:=q; fd:=false; if not is_char_node(q) then if type(q)=disc_node then begin for m:=1 to replace_count(q) do p:=link(p); if p=tx then #; end else if type(q)=disp_node then begin pdisp:=disp; disp:=disp_dimen(q); fd:=true;@+end; q:=link(p); until q=tx; {found |r|$\to$|p|$\to$|q=tx|} q:=link(tx); link(p):=q; link(tx):=null; if q=null then tail:=p else if fd then {|r|$\to$|p=disp_node|$\to$|q=disp_node|} begin prev_node:=r; prev_disp:=pdisp; link(p):=null; tail:=p; disp_dimen(p):=disp_dimen(q); free_node(q,small_node_size); end else prev_node:=p @# @d check_effective_tail==check_effective_tail_pTeX @d fetch_effective_tail==fetch_effective_tail_pTeX @= @z @x [47.1080] l.20950 - pTeX: disp_node, check head=tail else begin if not is_char_node(tail) then if (type(tail)=hlist_node)or(type(tail)=vlist_node) then @; end; @y else begin check_effective_tail(goto done); if not is_char_node(tx)and(head<>tx) then if (type(tx)=hlist_node)or(type(tx)=vlist_node) or(type(tx)=dir_node) then @; done:end; @z @x [47.1081] l.20957 - pTeX: disp_node begin q:=head; repeat p:=q; if not is_char_node(q) then if type(q)=disc_node then begin for m:=1 to replace_count(q) do p:=link(p); if p=tail then goto done; end; q:=link(p); until q=tail; cur_box:=tail; shift_amount(cur_box):=0; tail:=p; link(p):=null; done:end @y begin fetch_effective_tail(goto done); cur_box:=tx; shift_amount(cur_box):=0; if type(cur_box)=dir_node then begin link(list_ptr(cur_box)):=cur_box; cur_box:=list_ptr(cur_box); list_ptr(link(cur_box)):=null; end else if box_dir(cur_box)=dir_default then set_box_dir(cur_box)(abs(direction)); end @z @x [47.1083] l.20989 - pTeX: adjust_dir if k=hmode then if (box_context; end; pop_nest; box_end(saved(0)); end; @y begin d:=box_max_depth; delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip); if auto_spacing>0 then cur_kanji_skip:=kanji_skip else cur_kanji_skip:=zero_glue; if auto_xspacing>0 then cur_xkanji_skip:=xkanji_skip else cur_xkanji_skip:=zero_glue; add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); unsave; save_ptr:=save_ptr-3; if mode=-hmode then begin cur_box:=hpack(link(head),saved(2),saved(1)); set_box_dir(cur_box)(abs(direction)); pop_nest; end else begin cur_box:=vpackage(link(head),saved(2),saved(1),d); set_box_dir(cur_box)(abs(direction)); pop_nest; if c=vtop_code then @; end; box_end(saved(0)); end; @z @x [47.1090] l.21079 - pTeX: apend vmode case vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given, vmode+math_shift,vmode+un_hbox,vmode+vrule, vmode+accent,vmode+discretionary,vmode+hskip,vmode+valign, vmode+ex_space,vmode+no_boundary:@t@>@;@/ begin back_input; new_graf(true); end; @y vmode+letter,vmode+other_char,vmode+char_num,vmode+char_given, vmode+math_shift,vmode+un_hbox,vmode+vrule, vmode+accent,vmode+discretionary,vmode+hskip,vmode+valign, vmode+kanji,vmode+kana,vmode+other_kchar, vmode+ex_space,vmode+no_boundary:@t@>@;@/ begin back_input; new_graf(true); end; @z @x [47.1091] l.21096 - pTeX: new_graf, adjust direction push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang; @y push_nest; adjust_dir:=abs(direction); mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang; @z @x [47.1096] l.21155 - pTeX: end_graf, call adjust_hlist begin if head=tail then pop_nest {null paragraphs are ignored} else line_break(widow_penalty); @y begin if head=tail then pop_nest {null paragraphs are ignored} else begin adjust_hlist(head,true); line_break(widow_penalty) end; @z @x [47.1099] l.21184 - pTeX: insert and adjust new_save_level(insert_group); scan_left_brace; normal_paragraph; push_nest; mode:=-vmode; prev_depth:=ignore_depth; @y new_save_level(insert_group); scan_left_brace; normal_paragraph; push_nest; mode:=-vmode; direction:=adjust_dir; prev_depth:=ignore_depth; @z @x [47.1100] l.21189 - pTeX: free box node, ins_dir insert_group: begin end_graf; q:=split_top_skip; add_glue_ref(q); d:=split_max_depth; f:=floating_penalty; unsave; decr(save_ptr); {now |saved(0)| is the insertion number, or 255 for |vadjust|} p:=vpack(link(head),natural); pop_nest; if saved(0)<255 then begin tail_append(get_node(ins_node_size)); type(tail):=ins_node; subtype(tail):=qi(saved(0)); height(tail):=height(p)+depth(p); ins_ptr(tail):=list_ptr(p); split_top_ptr(tail):=q; depth(tail):=d; float_cost(tail):=f; end else begin tail_append(get_node(small_node_size)); type(tail):=adjust_node;@/ subtype(tail):=0; {the |subtype| is not used} adjust_ptr(tail):=list_ptr(p); delete_glue_ref(q); end; free_node(p,box_node_size); if nest_ptr=0 then build_page; end; @y insert_group: begin end_graf; q:=split_top_skip; add_glue_ref(q); d:=split_max_depth; f:=floating_penalty; unsave; decr(save_ptr); {now |saved(0)| is the insertion number, or 255 for |vadjust|} p:=vpack(link(head),natural); set_box_dir(p)(abs(direction)); pop_nest; if saved(0)<255 then begin r:=get_node(ins_node_size); type(r):=ins_node; subtype(r):=qi(saved(0)); height(r):=height(p)+depth(p); ins_ptr(r):=list_ptr(p); split_top_ptr(r):=q; depth(r):=d; float_cost(r):=f; ins_dir(r):=box_dir(p); if not is_char_node(tail)and(type(tail)=disp_node) then prev_append(r) else tail_append(r); end else begin if box_dir(p)<>adjust_dir then begin print_err("Direction Incompatible."); help1("\vadjust's argument and outer vlist must have same direction."); error; flush_node_list(list_ptr(p)); end else begin r:=get_node(small_node_size); type(r):=adjust_node;@/ adjust_ptr(r):=list_ptr(p); delete_glue_ref(q); if not is_char_node(tail)and(type(tail)=disp_node) then prev_append(r) else tail_append(r); end; end; delete_glue_ref(space_ptr(p)); delete_glue_ref(xspace_ptr(p)); free_node(p,box_node_size); if nest_ptr=0 then build_page; end; @z @x [47.1101] l.21214 - pTeX: mark_node, prev_append mark_ptr(p):=def_ref; link(tail):=p; tail:=p; @y mark_ptr(p):=def_ref; if not is_char_node(tail)and(type(tail)=disp_node) then prev_append(p) else tail_append(p); @z @x [47.1103] l.21224 - pTeX: penalty, prev_append procedure append_penalty; begin scan_int; tail_append(new_penalty(cur_val)); if mode=vmode then build_page; end; @y procedure append_penalty; begin scan_int; if not is_char_node(tail)and(type(tail)=disp_node) then prev_append(new_penalty(cur_val)) else tail_append(new_penalty(cur_val)); if mode=vmode then build_page; end; @z @x [47.1105] l.21246 - pTeX: delete_last: disp_node @!m:quarterword; {the length of a replacement list} @y @!r:pointer; {running behind |p|} @!fd:boolean; {a final |disp_node| pair?} @!disp,@!pdisp:scaled; {displacement} @!tx:pointer; {effective tail node} @!m:quarterword; {the length of a replacement list} @z @x [47.1105] l.21250 - pTeX: delete_last: disp_node else begin if not is_char_node(tail) then if type(tail)=cur_chr then begin q:=head; repeat p:=q; if not is_char_node(q) then if type(q)=disc_node then begin for m:=1 to replace_count(q) do p:=link(p); if p=tail then return; end; q:=link(p); until q=tail; link(p):=null; flush_node_list(tail); tail:=p; @y else begin check_effective_tail(return); if not is_char_node(tx) then if type(tx)=cur_chr then begin fetch_effective_tail(return); flush_node_list(tx); @z @x [47.1110] l.21310 -pTeX: free box node, delete kanji_skip var p:pointer; {the box} @!c:box_code..copy_code; {should we copy?} @y var p:pointer; {the box} @!c:box_code..copy_code; {should we copy?} @!disp:scaled; {displacement} @z @x [47.1110] l.21314 - pTeX: free box node, delete kanji_skip if (abs(mode)=mmode)or((abs(mode)=vmode)and(type(p)<>vlist_node))or@| ((abs(mode)=hmode)and(type(p)<>hlist_node)) then begin print_err("Incompatible list can't be unboxed"); @.Incompatible list...@> help3("Sorry, Pandora. (You sneaky devil.)")@/ ("I refuse to unbox an \hbox in vertical mode or vice versa.")@/ ("And I can't open any boxes in math mode.");@/ error; return; end; if c=copy_code then link(tail):=copy_node_list(list_ptr(p)) else begin link(tail):=list_ptr(p); box(cur_val):=null; free_node(p,box_node_size); end; @y if type(p)=dir_node then p:=list_ptr(p); if (abs(mode)=mmode)or((abs(mode)=vmode)and(type(p)<>vlist_node))or@| ((abs(mode)=hmode)and(type(p)<>hlist_node)) then begin print_err("Incompatible list can't be unboxed"); @.Incompatible list...@> help3("Sorry, Pandora. (You sneaky devil.)")@/ ("I refuse to unbox an \hbox in vertical mode or vice versa.")@/ ("And I can't open any boxes in math mode.");@/ error; return; end; case box_dir(p) of any_dir: if abs(direction)<>box_dir(p) then begin print_err("Incompatible direction list can't be unboxed"); help2("Sorry, Pandora. (You sneaky devil.)")@/ ("I refuse to unbox a box in differrent direction.");@/ error; return; end; endcases; disp:=0; if c=copy_code then link(tail):=copy_node_list(list_ptr(p)) else begin if type(box(cur_val))=dir_node then begin delete_glue_ref(space_ptr(box(cur_val))); delete_glue_ref(xspace_ptr(box(cur_val))); free_node(box(cur_val),box_node_size); end; flush_node_list(link(p)); link(tail):=list_ptr(p); box(cur_val):=null; delete_glue_ref(space_ptr(p)); delete_glue_ref(xspace_ptr(p)); free_node(p,box_node_size); end; @z @x [47.1110] l.22014 - pTeX: free box node, delete kanji_skip while link(tail)<>null do tail:=link(tail); @y while link(tail)<>null do begin p:=tail; tail:=link(tail); if not is_char_node(tail) then case type(tail) of glue_node : if (subtype(tail)=kanji_skip_code+1) or(subtype(tail)=xkanji_skip_code+1) then begin link(p):=link(tail); delete_glue_ref(glue_ptr(tail)); free_node(tail,small_node_size); tail:=p; end; penalty_node : if subtype(tail)=widow_pena then begin link(p):=link(tail); free_node(tail,small_node_size); tail:=p; end; disp_node : begin prev_disp:=disp; disp:=disp_dimen(tail); prev_node:=p; end; endcases; end; @z @x [47.1113] l.22028 - pTeX: italic correction, ita_kern procedure append_italic_correction; label exit; var p:pointer; {|char_node| at the tail of the current list} @!f:internal_font_number; {the font in the |char_node|} begin if tail<>head then begin if is_char_node(tail) then p:=tail else if type(tail)=ligature_node then p:=lig_char(tail) else return; f:=font(p); tail_append(new_kern(char_italic(f)(char_info(f)(character(p))))); subtype(tail):=explicit; end; @y procedure append_italic_correction; label exit; var p:pointer; {|char_node| at the tail of the current list} @!f:internal_font_number; {the font in the |char_node|} @!d:pointer; {|disp_node|} begin if tail<>head then begin if not is_char_node(tail)and(type(tail)=disp_node) then begin d:=tail; tail:=prev_node; end else d:=null; if (last_jchr<>null)and(link(last_jchr)=tail)and(is_char_node(tail)) then p:=last_jchr else if is_char_node(tail) then p:=tail else if type(tail)=ligature_node then p:=lig_char(tail) else return; f:=font(p); tail_append(new_kern(char_italic(f)(char_info(f)(character(p))))); subtype(tail):=ita_kern; if d<>null then begin prev_node:=tail; tail_append(d); end; end; @z @x [47.1120] l.22119 - pTeX: discretionary with disp_node decr(save_ptr); return; @y decr(save_ptr); prev_node:=tail; tail_append(get_node(small_node_size)); type(tail):=disp_node; disp_dimen(tail):=0; prev_disp:=0; return; @z @x [47.1121] l.22127 - pTeX: discretionary with disp_node begin if not is_char_node(p) then if type(p)>rule_node then if type(p)<>kern_node then if type(p)<>ligature_node then begin print_err("Improper discretionary list"); @y begin if not is_char_node(p) then if (type(p)>rule_node)and(type(p)<>kern_node)and (type(p)<>ligature_node)and(type(p)<>disp_node) then if (type(p)=penalty_node)and(subtype(p)<>normal) then begin link(q):=link(p); free_node(p,small_node_size); p:=q; end else begin print_err("Improper discretionary list"); @z @x [47.1123] l.22160 - pTeX: make_accent, Kanji, insert disp_node var s,@!t: real; {amount of slant} @y var s,@!t: real; {amount of slant} @!disp:scaled; {displacement} @!cx:KANJI_code; {temporary register for KANJI} @z @x [47.1123] l.22165 - pTeX: make_accent, Kanji, insert disp_node begin scan_char_num; f:=cur_font; p:=new_character(f,cur_val); @y begin scan_char_num; if not is_char_ascii(cur_val) then begin KANJI(cx):=cur_val; if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; p:=new_character(f,get_jfm_pos(KANJI(cx),f)); if p<>null then begin link(p):=get_avail; info(link(p)):=KANJI(cx); end; end else begin f:=cur_font; p:=new_character(f,cur_val); end; @z @x [47.1123] l.22175 - pTeX: make_accent, Kanji, insert disp_node link(tail):=p; tail:=p; space_factor:=1000; @y link(tail):=p; if link(p)<>null then tail:=link(p) else tail:=p; @; space_factor:=1000; @z @x [47.1124] l.22180 - pTeX: make_accent Kanji, insert disp_node q:=null; f:=cur_font; if (cur_cmd=letter)or(cur_cmd=other_char)or(cur_cmd=char_given) then q:=new_character(f,cur_chr) else if cur_cmd=char_num then begin scan_char_num; q:=new_character(f,cur_val); end else back_input @y q:=null; f:=cur_font; KANJI(cx):=empty; if (cur_cmd=letter)or(cur_cmd=other_char) then q:=new_character(f,cur_chr) else if (cur_cmd=kanji)or(cur_cmd=kana)or(cur_cmd=other_kchar) then begin if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; cx:=cur_chr; end else if cur_cmd=char_given then if is_char_ascii(cur_chr) then q:=new_character(f,cur_chr) else begin if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; KANJI(cx):=cur_chr end else if cur_cmd=char_num then begin scan_char_num; if is_char_ascii(cur_val) then q:=new_character(f,cur_val) else begin if direction=dir_tate then f:=cur_tfont else f:=cur_jfont; KANJI(cx):=cur_val end end else back_input; if direction=dir_tate then begin if font_dir[f]=dir_tate then disp:=0 else if font_dir[f]=dir_yoko then disp:=t_baseline_shift-y_baseline_shift else disp:=t_baseline_shift end else begin if font_dir[f]=dir_yoko then disp:=0 else if font_dir[f]=dir_tate then disp:=y_baseline_shift-t_baseline_shift else disp:=y_baseline_shift end; @; if KANJI(cx)<>empty then begin q:=new_character(f,get_jfm_pos(KANJI(cx),f)); link(q):=get_avail; info(link(q)):=KANJI(cx); last_jchr:=q; end; @z @x [47.1125] l.22200 - pTeX: make_accent Kanji if h<>x then {the accent must be shifted up or down} begin p:=hpack(p,natural); shift_amount(p):=x-h; end; @y if h<>x then {the accent must be shifted up or down} begin delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip); cur_kanji_skip:=zero_glue; cur_xkanji_skip:=zero_glue; add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); p:=hpack(p,natural); shift_amount(p):=x-h; end; @z @x [47.1125] pTeX: make accent Kanji tail:=new_kern(-a-delta); subtype(tail):=acc_kern; link(p):=tail; p:=q; @y tail:=new_kern(-a-delta); subtype(tail):=acc_kern; if h=x then begin if font_dir[font(p)]<>dir_default then link(link(p)):=tail else link(p):=tail; end else link(p):=tail; { bugfix: if |p| is KANJI char, |link(p)|:=|tail| collapses |p| and kern after accent. } p:=q; @z @x l.22334 - pTeX procedure cs_error; begin if cur_chr = 10 then begin print_err("Extra "); print_esc("endmubyte"); @.Extra \\endmubyte@> help1("I'm ignoring this, since I wasn't doing a \mubyte."); end else begin print_err("Extra "); print_esc("endcsname"); @.Extra \\endcsname@> help1("I'm ignoring this, since I wasn't doing a \csname."); end; @y procedure cs_error; begin print_err("Extra "); print_esc("endcsname"); @.Extra \\endcsname@> help1("I'm ignoring this, since I wasn't doing a \csname."); @z @x [48.1138] l.22385 - pTeX: init math : direction < 0 ... math direction if (cur_cmd=math_shift)and(mode>0) then @ else begin back_input; @; end; @y if (cur_cmd=math_shift)and(mode>0) then @ else begin back_input; @; end; direction:=-abs(direction); @z @x [48.1145] l.22435 - pTeX: Call adjust_hlist at begin of display else begin line_break(display_widow_penalty);@/ @y else begin adjust_hlist(head,true); line_break(display_widow_penalty);@/ @z @x [48.1147] l.22471 - pTeX: Skip kanji 2nd node, dir_node reswitch: if is_char_node(p) then begin f:=font(p); d:=char_width(f)(char_info(f)(character(p))); goto found; end; case type(p) of hlist_node,vlist_node,rule_node: begin d:=width(p); goto found; end; @y reswitch: if is_char_node(p) then begin f:=font(p); d:=char_width(f)(orig_char_info(f)(character(p))); if font_dir[f]<>dir_default then p:=link(p); goto found; end; case type(p) of hlist_node,vlist_node,dir_node,rule_node: begin d:=width(p); goto found; end; @z @x [48.1150] l.22541 - pTeX: scan_math mmode+left_brace: begin tail_append(new_noad); back_input; scan_math(nucleus(tail)); end; @y mmode+left_brace: begin tail_append(new_noad); back_input; scan_math(nucleus(tail),kcode_noad(tail)); end; @z @x [48.1151] l.22555 - pTeX: scan_math: use Kanji in math_mode procedure scan_math(@!p:pointer); label restart,reswitch,exit; var c:integer; {math character code} begin restart:@; reswitch:case cur_cmd of letter,other_char,char_given: begin c:=ho(math_code(cur_chr)); if c=@'100000 then begin @; goto restart; end; end; @y procedure scan_math(@!p,@!q:pointer); label restart,reswitch,exit; var c:integer; {math character code} cx:KANJI_code; {temporary register for KANJI} begin KANJI(cx):=0; restart: @; reswitch:case cur_cmd of letter,other_char,char_given: if (is_char_ascii(cur_chr) or (cur_chr=256)) then begin c:=ho(math_code(cur_chr)); if c=@'100000 then begin @; goto restart; end; end else KANJI(cx):=cur_chr; kanji,kana,other_kchar: cx:=cur_chr; @z @x [48.1151] l.22576 - pTeX: scan_math: use Kanji in math_mode math_type(p):=math_char; character(p):=qi(c mod 256); if (c>=var_code)and fam_in_range then fam(p):=cur_fam else fam(p):=(c div 256) mod 16; @y if KANJI(cx)=0 then begin math_type(p):=math_char; character(p):=qi(c mod 256); if (c>=var_code)and(fam_in_range) then fam(p):=cur_fam else fam(p):=(c div 256) mod 16; if font_dir[fam_fnt(fam(p)+cur_size)]<>dir_default then begin print_err("Not one-byte family"); help1("IGNORE.");@/ error; end end else begin if q=null then begin math_type(p):=sub_mlist; info(p):=new_noad; p:=nucleus(info(p)); q:=kcode_noad_nucleus(p); end; math_type(p):=math_jchar; fam(p):=cur_jfam; character(p):=qi(0); math_kcode(p-1):=KANJI(cx); if font_dir[fam_fnt(fam(p)+cur_size)]=dir_default then begin print_err("Not two-byte family"); help1("IGNORE.");@/ error; end end; @z @x [48.1154] l.22605 - pTeX: math mode mmode+letter,mmode+other_char,mmode+char_given: set_math_char(ho(math_code(cur_chr))); mmode+char_num: begin scan_char_num; cur_chr:=cur_val; set_math_char(ho(math_code(cur_chr))); end; @y mmode+letter,mmode+other_char,mmode+char_given: if is_char_ascii(cur_chr) then if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) else set_math_char(cur_chr) else set_math_kchar(cur_chr); mmode+kanji,mmode+kana,mmode+other_kchar: begin cx:=cur_chr; set_math_kchar(KANJI(cx)); end; mmode+char_num: begin scan_char_num; cur_chr:=cur_val; if is_char_ascii(cur_chr) then if cur_chr<128 then set_math_char(ho(math_code(cur_chr))) else set_math_char(cur_chr) else set_math_kchar(cur_chr); end; @z @x [48.1155] l.22635 - pTeX: set_math_char link(tail):=p; tail:=p; @y link(tail):=p; tail:=p; if font_dir[fam_fnt(fam(nucleus(p))+cur_size)]<>dir_default then begin print_err("Not one-byte family"); help1("IGNORE.");@/ error; end @z @x [48.1158] l.22690 - pTeX: scan_math type(tail):=cur_chr; scan_math(nucleus(tail)); @y type(tail):=cur_chr; scan_math(nucleus(tail),kcode_noad(tail)); @z @x [48.1163] l.22750 - pTeX: scan_math scan_delimiter(left_delimiter(tail),true); scan_math(nucleus(tail)); @y scan_delimiter(left_delimiter(tail),true); scan_math(nucleus(tail),kcode_noad(tail)); @z @x [48.1164] l.22770 - pTeX: scan_math scan_math(nucleus(tail)); @y scan_math(nucleus(tail),kcode_noad(tail)); @z @x [48.1164] l.22790 - pTeX: vcenter : dir vcenter_group: begin end_graf; unsave; save_ptr:=save_ptr-2; p:=vpack(link(head),saved(1),saved(0)); pop_nest; tail_append(new_noad); type(tail):=vcenter_noad; math_type(nucleus(tail)):=sub_box; info(nucleus(tail)):=p; end; @y vcenter_group: begin end_graf; unsave; save_ptr:=save_ptr-2; p:=vpack(link(head),saved(1),saved(0)); set_box_dir(p)(abs(direction)); pop_nest; if box_dir(p)<>abs(direction) then p:=new_dir_node(p,abs(direction)); tail_append(new_noad); type(tail):=vcenter_noad; math_type(nucleus(tail)):=sub_box; info(nucleus(tail)):=p; end; @z @x [48.1176] l.22864 - pTeX: scan_math scan_math(p); @y scan_math(p,null); @z @x [48.1186] l.23006 - pTeX: copy kanji code if math_type(supscr(p))=empty then begin mem[saved(0)].hh:=mem[nucleus(p)].hh; @y if ((math_type(supscr(p))=empty)and(math_kcode(p)=null)) then begin mem[saved(0)].hh:=mem[nucleus(p)].hh; @z @x [48.1194] l.23078 - pTeX: set cur_kanji_skip, cur_xkanji_skip var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'} @y var l:boolean; {`\.{\\leqno}' instead of `\.{\\eqno}'} @!disp:scaled; {displacement} @z @x [48.1194] l.23087 - pTeX: set cur_kanji_skip, cur_xkanji_skip m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest} @y delete_glue_ref(cur_kanji_skip); delete_glue_ref(cur_xkanji_skip); if auto_spacing>0 then cur_kanji_skip:=kanji_skip else cur_kanji_skip:=zero_glue; if auto_xspacing>0 then cur_xkanji_skip:=xkanji_skip else cur_xkanji_skip:=zero_glue; add_glue_ref(cur_kanji_skip); add_glue_ref(cur_xkanji_skip); m:=mode; l:=false; p:=fin_mlist(null); {this pops the nest} @z @x [48.1196] l.23134 - pTeX: insert disp_node begin tail_append(new_math(math_surround,before)); cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0); mlist_to_hlist; link(tail):=link(temp_head); while link(tail)<>null do tail:=link(tail); tail_append(new_math(math_surround,after)); space_factor:=1000; unsave; end @y begin if direction=dir_tate then disp:=t_baseline_shift else disp:=y_baseline_shift; @; tail_append(new_math(math_surround,before)); cur_mlist:=p; cur_style:=text_style; mlist_penalties:=(mode>0); mlist_to_hlist; link(tail):=link(temp_head); while link(tail)<>null do tail:=link(tail); tail_append(new_math(math_surround,after)); @; space_factor:=1000; unsave; end @z @x [48.1200] l.23203 - pTeX: adjust direction push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang; @y push_nest; adjust_dir:=abs(direction); mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang; @z @x [48.1201] l.23217 - pTeX: free box node begin free_node(b,box_node_size); @y begin delete_glue_ref(space_ptr(b)); delete_glue_ref(xspace_ptr(b)); free_node(b,box_node_size); @z @x [48.1201] l.23222 - pTeX: free box node begin free_node(b,box_node_size); @y begin delete_glue_ref(space_ptr(b)); delete_glue_ref(xspace_ptr(b)); free_node(b,box_node_size); @z @x [49.1210] l.23361 - pTeX: set_auto_spacing any_mode(toks_register), any_mode(assign_toks), any_mode(assign_int), @y any_mode(assign_kinsoku), any_mode(assign_inhibit_xsp_code), any_mode(set_auto_spacing), any_mode(set_kansuji_char), any_mode(toks_register), any_mode(assign_toks), any_mode(assign_int), any_mode(def_jfont), any_mode(def_tfont), @z @x [49.1211] l.23397 - pTeX: prefixed_command procedure prefixed_command; label done,exit; var a:small_number; {accumulated prefix codes so far} @y procedure prefixed_command; label done,exit; var a:small_number; {accumulated prefix codes so far} @!m:integer; {ditto} @z @x [49.1217] l.23487 - pTeX: select cur font set_font: define(cur_font_loc,data,cur_chr); @y set_font: begin if font_dir[cur_chr]=dir_yoko then define(cur_jfont_loc,data,cur_chr) else if font_dir[cur_chr]=dir_tate then define(cur_tfont_loc,data,cur_chr) else define(cur_font_loc,data,cur_chr) end; @z @x l.23504 - pTeX primitive("futurelet",let,normal+1);@/ @!@:future_let_}{\.{\\futurelet} primitive@> @ @= let: if chr_code<>normal then print_esc("futurelet")@+else print_esc("let"); @ @= let: begin n:=cur_chr; @y primitive("futurelet",let,normal+1);@/ @!@:future_let_}{\.{\\futurelet} primitive@> @ @= let: if chr_code<>normal then print_esc("futurelet")@+else print_esc("let"); @ @= let: begin n:=cur_chr; @z @x [49.1228] l.23785 - pTeX: assign jfam assign_int: begin p:=cur_chr; scan_optional_equals; scan_int; word_define(p,cur_val); end; @y assign_int: begin p:=cur_chr; scan_optional_equals; scan_int; if p=int_base+cur_fam_code then begin if font_dir[fam_fnt(cur_val)]<>dir_default then word_define(int_base+cur_jfam_code,cur_val) else word_define(p,cur_val); end else word_define(p,cur_val); end; @z @x [49.1230] l.23812 - pTeX: xspcode, kcatcode @= primitive("catcode",def_code,cat_code_base); @!@:cat_code_}{\.{\\catcode} primitive@> @y @= primitive("catcode",def_code,cat_code_base); @!@:cat_code_}{\.{\\catcode} primitive@> primitive("kcatcode",def_code,kcat_code_base); @!@:cat_code_}{\.{\\kcatcode} primitive@> primitive("xspcode",def_code,auto_xsp_code_base); @!@:auto_xsp_code_}{\.{\\xspcode} primitive@> @z @x [49.1231] l.23842 - pTeX: xspcode, kcatcode def_code: if chr_code=cat_code_base then print_esc("catcode") else if chr_code=math_code_base then print_esc("mathcode") @y def_code: if chr_code=cat_code_base then print_esc("catcode") else if chr_code=kcat_code_base then print_esc("kcatcode") else if chr_code=auto_xsp_code_base then print_esc("xspcode") else if chr_code=math_code_base then print_esc("mathcode") @z @x [49.1232] l.23857 - pTeX: kcatcode def_code: begin @; p:=cur_chr; scan_char_num; p:=p+cur_val; scan_optional_equals; scan_int; if ((cur_val<0)and(pn) then begin print_err("Invalid code ("); print_int(cur_val); @.Invalid code@> if p; @; p:=cur_chr; scan_char_num; if p=kcat_code_base then p:=p+kcatcodekey(cur_val) else p:=p+cur_val; scan_optional_equals; scan_int; if ((cur_valn) then begin print_err("Invalid code ("); print_int(cur_val); @.Invalid code@> if p= if cur_chr=cat_code_base then n:=max_char_code @y @ @= if cur_chr=kcat_code_base then m:=kanji else m:=0 @ @= if cur_chr=cat_code_base then n:=invalid_char {1byte |max_char_code|} else if cur_chr=kcat_code_base then n:=max_char_code @z @x [49.1247] l.24083 - pTeX: alter_box_dimen : box_dir procedure alter_box_dimen; var c:small_number; {|width_offset| or |height_offset| or |depth_offset|} @y procedure alter_box_dimen; var c:small_number; {|width_offset| or |height_offset| or |depth_offset|} @!p,q:pointer; {temporary registers} @z @x [49.1247] l.24087 - pTeX: alter_box_dimen : box_dir scan_normal_dimen; if box(b)<>null then mem[box(b)+c].sc:=cur_val; end; @y scan_normal_dimen; if box(b)<>null then begin q:=box(b); p:=link(q); while p<>null do begin if abs(direction)=box_dir(p) then q:=p; p:=link(p); end; if box_dir(q)<>abs(direction) then begin p:=link(box(b)); link(box(b)):=null; q:=new_dir_node(q,abs(direction)); list_ptr(q):=null; link(q):=p; link(box(b)):=q; end; mem[q+c].sc:=cur_val; end; end; @z @x [49.1256] l.24163 - pTeX: def_tfont def_font: new_font(a); @y def_tfont,def_jfont,def_font: new_font(a); @z @x [49.1292] l.24451 - pTeX: shift_case @= t:=info(p); if t0 then info(p):=t-c+equiv(b+c); end @y @= t:=info(p); if (t0 then info(p):=t-c+equiv(b+c); end @z @x [49.1291] l.24467 - pTeX: show_mode @d show_lists=3 { \.{\\showlists} } @y @d show_lists=3 { \.{\\showlists} } @d show_mode=4 { \.{\\showmode} } @z @x [49.1291] l.24476 - pTeX: show_mode primitive("showlists",xray,show_lists); @!@:show_lists_}{\.{\\showlists} primitive@> @y primitive("showlists",xray,show_lists); @!@:show_lists_}{\.{\\showlists} primitive@> primitive("showmode",xray,show_mode); @!@:show_mode_}{\.{\\showmode} primitive@> @z @x [49.1292] l.24483 - pTeX: show_mode othercases print_esc("show") @y show_mode:print_esc("showmode"); othercases print_esc("show") @z @x [49.1293] l.24495 - pTeX: show_mode show_code: @; @y show_code: @; show_mode: @; @z @x l.24982 font_info:=xmalloc_array(fmemory_word, font_mem_size); @y font_info:=xmalloc_array(memory_word, font_mem_size); @z @x [50.1320] l.24988 - pTeX: @ @= begin dump_things(font_check[null_font], font_ptr+1-null_font); @y @ @= begin dump_things(font_dir[null_font], font_ptr+1-null_font); dump_things(font_num_ext[null_font], font_ptr+1-null_font); dump_things(font_check[null_font], font_ptr+1-null_font); @z @x [50.1321] l.25000 - pTeX: dump_things(char_base[null_font], font_ptr+1-null_font); @y dump_things(ctype_base[null_font], font_ptr+1-null_font); dump_things(char_base[null_font], font_ptr+1-null_font); @z @x [50.1322] l.25024 - pTeX: @= begin {Allocate the font arrays} @y @= begin {Allocate the font arrays} font_dir:=xmalloc_array(eight_bits, font_max); font_num_ext:=xmalloc_array(integer, font_max); @z @x [50.1322] l.25040 - pTeX: char_base:=xmalloc_array(integer, font_max); @y ctype_base:=xmalloc_array(integer, font_max); char_base:=xmalloc_array(integer, font_max); @z @x [50.1322] l.25050 - pTeX: undump_things(font_check[null_font], font_ptr+1-null_font); @y undump_things(font_dir[null_font], font_ptr+1-null_font); undump_things(font_num_ext[null_font], font_ptr+1-null_font); undump_things(font_check[null_font], font_ptr+1-null_font); @z @x [50.1322] l.25064 - pTeX: undump_things(char_base[null_font], font_ptr+1-null_font); @y undump_things(ctype_base[null_font], font_ptr+1-null_font); undump_things(char_base[null_font], font_ptr+1-null_font); @z @x l.25363 - pTeX font_info:=xmalloc_array (fmemory_word, font_mem_size); @y font_info:=xmalloc_array (memory_word, font_mem_size); @z @x [51.1337] l.25563 - pTeX: font_check:=xmalloc_array(four_quarters, font_max); @y font_dir:=xmalloc_array(eight_bits, font_max); font_num_ext:=xmalloc_array(integer, font_max); font_check:=xmalloc_array(four_quarters, font_max); @z @x [51.1337] l.25577 - pTeX: char_base:=xmalloc_array(integer, font_max); @y ctype_base:=xmalloc_array(integer, font_max); char_base:=xmalloc_array(integer, font_max); @z @x [51.1337] l.25587 - pTeX: font_ptr:=null_font; fmem_ptr:=7; @y font_ptr:=null_font; fmem_ptr:=7; font_dir[null_font]:=dir_default; font_num_ext[null_font]:=0; @z @x [51.1337] l.25594 - pTeX: char_base[null_font]:=0; width_base[null_font]:=0; @y ctype_base[null_font]:=0; char_base[null_font]:=0; width_base[null_font]:=0; @z @x [53.1376] l.26309 - pTeX: @ = @!debug_format_file: boolean; @y @ = @!debug_format_file: boolean; @ @= @!debug debug_format_file:=true; @+gubed; @z @x l.26984 - pTeX @* \[54] System-dependent changes. @y @* \[55/p\TeX] System-dependent changes for p\TeX. This section described extended variables, procesures, functions and so on for pTeX. @= function get_jfm_pos(@!kcode:KANJI_code;@!f:internal_font_number):eight_bits; var @!jc:KANJI_code; {temporary register for KANJI} @!sp,@!mp,@!ep:pointer; begin@/ jc:=toDVI(kcode); sp:=1; { start position } ep:=font_num_ext[f]-1; { end position } if (ep>=1)and(kchar_code(f)(sp)<=jc)and(jc<=kchar_code(f)(ep)) then begin while (sp <= ep) do begin mp:=sp+((ep-sp) div 2); if jckchar_code(f)(mp) then sp:=mp+1 else begin get_jfm_pos:=kchar_type(f)(mp); return; end; end; end; get_jfm_pos:=kchar_type(f)(0); end; @ Following codes are used to calcutation a KANJI width and height. @= @!t: eight_bits; @ @= if direction=dir_tate then v:=char_width(cur_tfont)(orig_char_info(cur_tfont)(qi(0))) else v:=char_width(cur_jfont)(orig_char_info(cur_jfont)(qi(0))) @ @= if direction=dir_tate then begin t:=height_depth(orig_char_info(cur_tfont)(qi(0))); v:=char_height(cur_tfont)(t)+char_depth(cur_tfont)(t); end else begin t:=height_depth(orig_char_info(cur_jfont)(qi(0))); v:=char_height(cur_jfont)(t)+char_depth(cur_jfont)(t); end @ set a kansuji character. @ @= primitive("kansujichar",set_kansuji_char,0); @!@:kansujichar_}{\.{\\kansujichar} primitive@> @ @= set_kansuji_char: print_esc("kansujichar"); @ @= set_kansuji_char: begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int; if not check_kanji(cur_val) then begin print_err("Invalid KANSUJI char ("); print_hex(cur_val); print_char(")"); @.Invalid KANSUJI char@> help1("I'm skip this control sequences.");@/ error; return; end else if (n<0)or(n>9) then begin print_err("Invalid KANSUJI number ("); print_int(n); print_char(")"); @.Invalid KANSUJI number@> help1("I'm skip this control sequences.");@/ error; return; end else define(kansuji_base+n,n,tokanji(toDVI(cur_val))); end; @ |print_kansuji| procedure converts a number to KANJI number. @ @= procedure print_kansuji(@!n:integer); var @!k:0..23; {index to current digit; we assume that $|n|<10^{23}$} @!cx: KANJI_code; {temporary register for KANJI} begin k:=0; if n<0 then return; {nonpositive input produces no output} repeat dig[k]:=n mod 10; n:=n div 10; incr(k); until n=0; begin while k>0 do begin decr(k); cx:=kansuji_char(dig[k]); print_kanji(fromDVI(cx)); end; end; end; @ pTeX inserts a glue specified by \.{\\kanjiskip} between 2byte-characters, automatically, if \.{\\autospacing}. This glue is suppressed by \.{\\noautospacing}. \.{\\xkanjiskip}, \.{\\noautoxspacing}, \.{\\autoxspacing}, \.{\\xspcode} is used to control between 2byte and 1byte characters. @d reset_auto_spacing_code=0 @d set_auto_spacing_code=1 @d reset_auto_xspacing_code=2 @d set_auto_xspacing_code=3 @= primitive("autospacing",set_auto_spacing,set_auto_spacing_code); @!@:auto_spacing_}{\.{\\autospacing} primitive@> primitive("noautospacing",set_auto_spacing,reset_auto_spacing_code); @!@:no_auto_spacing_}{\.{\\noautospacing} primitive@> primitive("autoxspacing",set_auto_spacing,set_auto_xspacing_code); @!@:auto_xspacing_}{\.{\\autoxspacing} primitive@> primitive("noautoxspacing",set_auto_spacing,reset_auto_xspacing_code); @!@:no_auto_xspacing_}{\.{\\noautoxspacing} primitive@> @ @= set_auto_spacing:begin if (chr_code mod 2)=0 then print_esc("noauto") else print_esc("auto"); if chr_code<2 then print("spacing") else print("xspacing"); end; @ @= set_auto_spacing:begin if cur_chr<2 then p:=auto_spacing_code else begin p:=auto_xspacing_code; cur_chr:=(cur_chr mod 2); end; define(p,data,cur_chr); end; @ Following codes are used in section 49. @= begin print_nl("> "); if auto_spacing>0 then print("auto spacing mode; ") else print("no auto spacing mode; "); print_nl("> "); if auto_xspacing>0 then print("auto xspacing mode") else print("no auto xspacing mode"); goto common_ending; end @ The \.{\\inhibitglue} primitive control to insert a glue specified JFM (Japanese Font Metic) file. The \.{\\inhibitxspcode} is used to control inserting a space between 2byte-char and 1byte-char. @d inhibit_both=0 {disable to insert space before 2byte-char and after it} @d inhibit_previous=1 {disable to insert space before 2byte-char} @d inhibit_after=2 {disable to insert space after 2byte-char} @d no_entry=1000 @d new_pos=0 @d cur_pos=1 @= inhibit_glue_flag:boolean; @ @= inhibit_glue_flag:=false; @ @= any_mode(inhibit_glue): inhibit_glue_flag:=true; @ @= primitive("inhibitglue",inhibit_glue,0); @!@:inhibit_glue_}{\.{\\inhibitglue} primitive@> primitive("inhibitxspcode",assign_inhibit_xsp_code,inhibit_xsp_code_base); @!@:inhibit_xsp_code_}{\.{\\inhibitxspcode} primitive@> @ @= inhibit_glue: print_esc("inhibitglue"); assign_inhibit_xsp_code: print_esc("inhibitxspcode"); @ @= function get_inhibit_pos(c:KANJI_code; n:small_number):pointer; label done, done1; var p,s:pointer; begin s:=calc_pos(c); p:=s; if n=new_pos then begin repeat if (inhibit_xsp_code(p)=0)or(inhibit_xsp_code(p)=c) then goto done; incr(p); if p>255 then p:=0; until s=p; p:=no_entry; end else begin repeat if inhibit_xsp_code(p)=0 then goto done1; if inhibit_xsp_code(p)=c then goto done; incr(p); if p>255 then p:=0; until s=p; done1: p:=no_entry; end; done: get_inhibit_pos:=p; end; @ @= assign_inhibit_xsp_code: begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int; if check_kanji(n) then begin j:=get_inhibit_pos(tokanji(n),new_pos); if j=no_entry then begin print_err("Inhibit table is full!!"); help1("I'm skip this control sequences.");@/ error; return; end; define(inhibit_xsp_code_base+j,cur_val,n); end else begin print_err("Invalid KANJI code ("); print_hex(n); print_char(")"); @.Invalid KANJI code@> help1("I'm skip this control sequences.");@/ error; return; end; end; @ @= begin scan_int; q:=get_inhibit_pos(tokanji(cur_val),cur_pos); cur_val_level:=int_val; cur_val:=3; if q<>no_entry then cur_val:=inhibit_xsp_type(q); end @ The \.{\\prebreakpenalty} is used to specified amount of penalties inserted before the 2byte-char which is first argument of this primitive. The \.{\\postbreakpenalty} is inserted after the 2byte-char. @d pre_break_penalty_code=1 @d post_break_penalty_code=2 @= primitive("prebreakpenalty",assign_kinsoku,pre_break_penalty_code); @!@:pre_break_penalty_}{\.{\\prebreakpenalty} primitive@> primitive("postbreakpenalty",assign_kinsoku,post_break_penalty_code); @!@:post_break_penalty_}{\.{\\postbreakpenalty} primitive@> @ @= assign_kinsoku: case chr_code of pre_break_penalty_code: print_esc("prebreakpenalty"); post_break_penalty_code: print_esc("postbreakpenalty"); endcases; @ @= function get_kinsoku_pos(c:KANJI_code; n:small_number):pointer; label done, done1; var p,s:pointer; begin s:=calc_pos(c); p:=s; @!debug print_ln; print("c:="); print_int(c); print(", p:="); print_int(s); if p+kinsoku_base<0 then begin print("p is negative value"); print_ln; end; gubed if n=new_pos then begin repeat if (kinsoku_type(p)=0)or(kinsoku_code(p)=c) then goto done; incr(p); if p>255 then p:=0; until s=p; p:=no_entry; end else begin repeat if kinsoku_type(p)=0 then goto done1; if kinsoku_code(p)=c then goto done; incr(p); if p>255 then p:=0; until s=p; done1: p:=no_entry; end; done: get_kinsoku_pos:=p; end; @ @= assign_kinsoku: begin p:=cur_chr; scan_int; n:=cur_val; scan_optional_equals; scan_int; if is_char_ascii(n) or check_kanji(n) then begin j:=get_kinsoku_pos(tokanji(n),new_pos); if j=no_entry then begin print_err("KINSOKU table is full!!"); help1("I'm skip this control sequences.");@/ error; return; end; if (p=pre_break_penalty_code)or(p=post_break_penalty_code) then begin define(kinsoku_base+j,p,tokanji(n)); word_define(kinsoku_penalty_base+j,cur_val); end else confusion("kinsoku"); @:this can't happen kinsoku}{\quad kinsoku@> end else begin print_err("Invalid KANJI code for "); if p=pre_break_penalty_code then print("pre") else if p=post_break_penalty_code then print("post") else print_char("?"); print("breakpenalty ("); print_hex(n); print_char(")"); @.Invalid KANJI code@> help1("I'm skip this control sequences.");@/ error; return; end; end; @ @= begin scan_int; q:=get_kinsoku_pos(tokanji(cur_val),cur_pos); cur_val_level:=int_val; cur_val:=0; if (q<>no_entry)and(m=kinsoku_type(q)) then scanned_result(kinsoku_penalty(q))(int_val); end @ Following codes are used in |main_control|. @= begin kp:=get_kinsoku_pos(cx,cur_pos); if kp<>no_entry then begin if kinsoku_type(kp)=pre_break_penalty_code then begin if not is_char_node(cur_q)and(type(cur_q)=penalty_node) then penalty(cur_q):=penalty(cur_q)+kinsoku_penalty(kp) else begin main_p:=link(cur_q); link(cur_q):=new_penalty(kinsoku_penalty(kp)); subtype(link(cur_q)):=kinsoku_pena; link(link(cur_q)):=main_p; end; end else if kinsoku_type(kp)=post_break_penalty_code then begin tail_append(new_penalty(kinsoku_penalty(kp))); subtype(tail):=kinsoku_pena; end; end; end; @ @= begin kp:=get_kinsoku_pos(cur_chr,cur_pos); if kp<>no_entry then begin if kinsoku_type(kp)=pre_break_penalty_code then if not is_char_node(tail)and(type(tail)=penalty_node) then penalty(tail):=penalty(tail)+kinsoku_penalty(kp) else begin tail_append(new_penalty(kinsoku_penalty(kp))); subtype(tail):=kinsoku_pena; end; end; end; @ @= begin kp:=get_kinsoku_pos(cx,cur_pos); if kp<>no_entry then begin if kinsoku_type(kp)=post_break_penalty_code then begin tail_append(new_penalty(kinsoku_penalty(kp))); subtype(tail):=kinsoku_pena; end; end; end; @ This is a part of section 32. The procedure |synch_dir| is used in |hlist_out| and |vlist_out|. @d dvi_yoko=0 @d dvi_tate=1 @d dvi_dtou=3 @= @!dvi_dir:integer; {a \.{DVI} reader program thinks we direct to} @!cur_dir_hv:integer; {\TeX\ thinks we direct to} @!page_dir:eight_bits; @ @= page_dir:=dir_yoko; @ @= procedure synch_dir; var tmp:scaled; {temporary resister} begin case cur_dir_hv of dir_yoko: if dvi_dir<>cur_dir_hv then begin synch_h; synch_v; dvi_out(dirchg); dvi_out(dvi_yoko); dir_used:=true; case dvi_dir of dir_tate: begin tmp:=cur_h; cur_h:=-cur_v; cur_v:=tmp end; dir_dtou: begin tmp:=cur_h; cur_h:=cur_v; cur_v:=-tmp end; endcases; dvi_h:=cur_h; dvi_v:=cur_v; dvi_dir:=cur_dir_hv; end; dir_tate: if dvi_dir<>cur_dir_hv then begin synch_h; synch_v; dvi_out(dirchg); dvi_out(dvi_tate); dir_used:=true; case dvi_dir of dir_yoko: begin tmp:=cur_h; cur_h:=cur_v; cur_v:=-tmp end; dir_dtou: begin cur_v:=-cur_v; cur_h:=-cur_h; end; endcases; dvi_h:=cur_h; dvi_v:=cur_v; dvi_dir:=cur_dir_hv; end; dir_dtou: if dvi_dir<>cur_dir_hv then begin synch_h; synch_v; dvi_out(dirchg); dvi_out(dvi_dtou); dir_used:=true; case dvi_dir of dir_yoko: begin tmp:=cur_h; cur_h:=-cur_v; cur_v:=tmp end; dir_tate: begin cur_v:=-cur_v; cur_h:=-cur_h; end; endcases; dvi_h:=cur_h; dvi_v:=cur_v; dvi_dir:=cur_dir_hv; end; othercases confusion("synch_dir"); endcases end; @ This function is called from |adjust_hlist| to used to check, whether a list which pointed |box_p| contain a printing character. If the list contain such a character, then return `true', otherwise `false'. If the first matter is a character, |first_char| is stored it. |last_char| is stored a last character. If no printing characters exist in the list, |first_char| and |last_char| is null. @^recursion@> @= @!first_char:pointer; {first printable character} @!last_char:pointer; {last printable character} @!find_first_char:boolean; {find for a first printable character?} @ @= function check_box(box_p:pointer):boolean; label done; var @!p:pointer; {run through the current box} @!flag:boolean; {found any printable character?} begin flag:=false; p:=box_p; while p<>null do begin if is_char_node(p) then repeat if find_first_char then begin first_char:=p; find_first_char:=false end; last_char:=p; flag:=true; if font_dir[font(p)]<>dir_default then p:=link(p); p:=link(p); if p=null then goto done; until not is_char_node(p); case type(p) of hlist_node: begin flag:=true; if shift_amount(p)=0 then begin if check_box(list_ptr(p)) then flag:=true; end else if find_first_char then find_first_char:=false else last_char:=null; end; ligature_node: if check_box(lig_ptr(p)) then flag:=true; ins_node,disp_node,mark_node,adjust_node,whatsit_node,penalty_node: do_nothing; othercases begin flag:=true; if find_first_char then find_first_char:=false else last_char:=null; end; endcases; p:=link(p); end; done: check_box:=flag; end; @ Following procedure |adjust_hlist| inserts \.{\\xkanjiskip} between 2byte-char and 1byte-char in hlist which pointed |p|. Note that the skip is inserted into a place where too difficult to decide whether inserting or not (i.e, before penalty, after penalty). If |pf| is true then insert |jchr_widow_penalty| that is penalty for creating a widow KANJI character line. @d no_skip=0 @d after_schar=1 {denote after single byte character} @d after_wchar=2 {denote after double bytes character} @= procedure adjust_hlist(p:pointer;pf:boolean); label exit; var q,s,t,u,v,x,z:pointer; i,k:halfword; a: pointer; { temporary pointer for accent } insert_skip:no_skip..after_wchar; cx:KANJI_code; {temporaly register for KANJI character} ax:ASCII_code; {temporaly register for ASCII character} do_ins:boolean; {for inserting |xkanji_skip| into prevous (or after) KANJI} begin if link(p)=null then goto exit; if auto_spacing>0 then begin delete_glue_ref(space_ptr(p)); space_ptr(p):=kanji_skip; add_glue_ref(kanji_skip); end; if auto_xspacing>0 then begin delete_glue_ref(xspace_ptr(p)); xspace_ptr(p):=xkanji_skip; add_glue_ref(xkanji_skip); end; u:=space_ptr(p); add_glue_ref(u); s:=xspace_ptr(p); add_glue_ref(s); if not is_char_node(link(p)) {p1.0.9d} and(type(link(p))=glue_node)and(subtype(link(p))=jfm_skip+1) then begin v:=link(p); link(p):=link(v); fast_delete_glue_ref(glue_ptr(v)); free_node(v,small_node_size); end; i:=0; insert_skip:=no_skip; p:=link(p); v:=p; q:=p; while p<>null do begin if is_char_node(p) then begin repeat @; q:=p; p:=link(p); incr(i); if (i>5)and pf then begin if is_char_node(v) then if font_dir[font(v)]<>dir_default then v:=link(v); v:=link(v); end; until not is_char_node(p); end else begin case type(p) of hlist_node: @; ligature_node: @; penalty_node,disp_node: @; kern_node: if subtype(p)=explicit then insert_skip:=no_skip else if subtype(p)=acc_kern then begin { When we insert \.{\\xkanjiskip}, we first ignore accent (and kerns) and insert \.{\\xkanjiskip}, then we recover the accent. } if q=p then begin t:=link(p); { if p is beginning on the list, we have only to ignore nodes. } if is_char_node(t) then if font_dir[font(t)]<>dir_default then t:=link(t); p:=link(link(t)); if font_dir[font(p)]<>dir_default then begin p:=link(p); insert_skip:=after_wchar; end else insert_skip:=after_schar; end else begin a:=p; t:=link(p); if is_char_node(t) then if font_dir[font(t)]<>dir_default then t:=link(t); t:=link(link(t)); link(q):=t; p:=t; @; incr(i); if (i>5)and pf then begin if is_char_node(v) then if font_dir[font(v)]<>dir_default then v:=link(v); v:=link(v); end; if link(q)<>t then link(link(q)):=a else link(q):=a; end; end; math_node: @; mark_node,adjust_node,ins_node,whatsit_node: {These nodes are vanished when typeset is done} do_nothing; othercases insert_skip:=no_skip; endcases; q:=p; p:=link(p); end; end; if not is_char_node(q)and(type(q)=glue_node)and(subtype(q)=jfm_skip+1) then begin fast_delete_glue_ref(glue_ptr(q)); glue_ptr(q):=zero_glue; add_glue_ref(zero_glue); end; delete_glue_ref(u); delete_glue_ref(s); if (v<>null)and pf and(i>5) then @; exit: end; @ @= if font_dir[font(p)]<>dir_default then begin KANJI(cx):=info(link(p)); if insert_skip=after_schar then @; p:=link(p); insert_skip:=after_wchar; end else begin ax:=qo(character(p)); if insert_skip=after_wchar then @; if auto_xsp_code(ax)>=2 then insert_skip:=after_schar else insert_skip:=no_skip; end @ @= begin find_first_char:=true; first_char:=null; last_char:=null; if shift_amount(p)=0 then begin if check_box(list_ptr(p)) then begin if first_char<>null then @; if last_char<>null then begin @; end else insert_skip:=no_skip; end else insert_skip:=no_skip; end else insert_skip:=no_skip; end @ @= if font_dir[font(first_char)]<>dir_default then begin KANJI(cx):=info(link(first_char)); if insert_skip=after_schar then @ else if insert_skip=after_wchar then @; insert_skip:=after_wchar; end else begin ax:=qo(character(first_char)); if insert_skip=after_wchar then @; if auto_xsp_code(ax)>=2 then insert_skip:=after_schar else insert_skip:=no_skip; end; @ @= if font_dir[font(last_char)]<>dir_default then begin insert_skip:=after_wchar; if is_char_node(link(p))and(font_dir[font(link(p))]<>dir_default) then begin @; p:=link(p); end; end else begin ax:=qo(character(last_char)); if auto_xsp_code(ax)>=2 then insert_skip:=after_schar else insert_skip:=no_skip; end; @ @= begin if (subtype(p)=before)and(insert_skip=after_wchar) then begin ax:=qo("0"); @; insert_skip:=no_skip; end else if subtype(p)=after then begin ax:=qo("0"); insert_skip:=after_schar; end else insert_skip:=no_skip; end @ @= begin t:=lig_ptr(p); if is_char_node(t) then begin ax:=qo(character(t)); if insert_skip=after_wchar then @; while link(t)<>null do t:=link(t); if is_char_node(t) then begin ax:=qo(character(t)); if auto_xsp_code(ax)>=2 then insert_skip:=after_schar else insert_skip:=no_skip; end; end; end @ @= begin if is_char_node(link(p)) then begin q:=p; p:=link(p); if font_dir[font(p)]<>dir_default then begin KANJI(cx):=info(link(p)); if insert_skip=after_schar then @ else if insert_skip=after_wchar then @; p:=link(p); insert_skip:=after_wchar; end else begin ax:=qo(character(p)); if insert_skip=after_wchar then @; if auto_xsp_code(ax)>=2 then insert_skip:=after_schar else insert_skip:=no_skip; end; end end @ @= begin begin x:=get_inhibit_pos(cx,cur_pos); if x<>no_entry then if (inhibit_xsp_type(x)=inhibit_both)or (inhibit_xsp_type(x)=inhibit_previous) then do_ins:=false else do_ins:=true else do_ins:=true; end; if do_ins then begin z:=new_glue(s); subtype(z):=xkanji_skip_code+1; link(z):=link(q); link(q):=z; q:=z; end; end @ @= begin if (auto_xsp_code(ax) mod 2)=1 then begin x:=get_inhibit_pos(cx,cur_pos); if x<>no_entry then if (inhibit_xsp_type(x)=inhibit_both)or (inhibit_xsp_type(x)=inhibit_after) then do_ins:=false else do_ins:=true else do_ins:=true; end else do_ins:=false; if do_ins then begin z:=new_glue(s); subtype(z):=xkanji_skip_code+1; link(z):=link(q); link(q):=z; q:=z; end; end @ @= begin z:=new_glue(u); subtype(z):=kanji_skip_code+1; link(z):=link(q); link(q):=z; q:=z; end @ @= begin z:=new_glue(u); subtype(z):=kanji_skip_code+1; link(z):=link(p); link(p):=z; p:=link(z); q:=z; end @ @= begin q:=v; p:=link(v); if is_char_node(v)and(font_dir[font(v)]<>dir_default) then begin q:=p; p:=link(p); end; t:=q; s:=null; @; if s<>null then begin s:=link(t); if not is_char_node(s)and(type(s)=penalty_node) then penalty(s):=penalty(s)+jchr_widow_penalty else if jchr_widow_penalty<>0 then begin s:=new_penalty(jchr_widow_penalty); subtype(s):=widow_pena; link(s):=link(t); link(t):=s; t:=link(s); while(not is_char_node(t)) do begin if (type(t)=glue_node)or(type(t)=kern_node) then goto exit; t:=link(t); end; z:=new_glue(u); subtype(z):=kanji_skip_code+1; link(z):=link(s); link(s):=z; end; end; end; @ @= while(p<>null) do begin if is_char_node(p) then begin if font_dir[font(p)]<>dir_default then begin KANJI(cx):=info(link(p)); i:=kcat_code(kcatcodekey(cx)); k:=0; if (i=kanji)or(i=kana) then begin t:=q; s:=p; end; p:=link(p); q:=p; end else begin k:=k+1; if k>1 then begin q:=p; s:=null; end; end; end else begin case type(p) of penalty_node,mark_node,adjust_node,whatsit_node, glue_node,kern_node,math_node,disp_node: do_nothing; othercases begin q:=p; s:=null; end; endcases; end; p:=link(p); end @ @= procedure dir_out; var @!this_box: pointer; {pointer to containing box} begin this_box:=temp_ptr; temp_ptr:=list_ptr(this_box); if (type(temp_ptr)<>hlist_node)and(type(temp_ptr)<>vlist_node) then confusion("dir_out"); case box_dir(this_box) of dir_yoko: case box_dir(temp_ptr) of dir_tate: {Tate in Yoko} begin cur_v:=cur_v-height(this_box); cur_h:=cur_h+depth(temp_ptr) end; dir_dtou: {DtoU in Yoko} begin cur_v:=cur_v+depth(this_box); cur_h:=cur_h+height(temp_ptr) end; endcases; dir_tate: case box_dir(temp_ptr) of dir_yoko: {Yoko in Tate} begin cur_v:=cur_v+depth(this_box); cur_h:=cur_h+height(temp_ptr) end; dir_dtou: {DtoU in Tate} begin cur_v:=cur_v+depth(this_box)-height(temp_ptr); cur_h:=cur_h+width(temp_ptr) end; endcases; dir_dtou: case box_dir(temp_ptr) of dir_yoko: {Yoko in DtoU} begin cur_v:=cur_v-height(this_box); cur_h:=cur_h+depth(temp_ptr) end; dir_tate: {Tate in DtoU} begin cur_v:=cur_v+depth(this_box)-height(temp_ptr); cur_h:=cur_h+width(temp_ptr) end; endcases; endcases; cur_dir_hv:=box_dir(temp_ptr); if type(temp_ptr)=vlist_node then vlist_out@+else hlist_out; end; @ These routines are used to output diagnostic which related direction. @ @= procedure print_dir(@!dir:eight_bits); {prints |dir| data} begin if dir=dir_yoko then print_char("Y") else if dir=dir_tate then print_char("T") else if dir=dir_dtou then print_char("D") end; @# procedure print_direction(@!d:integer); {print the direction represented by d} begin case abs(d) of dir_yoko: print("yoko"); dir_tate: print("tate"); dir_dtou: print("dtou"); end; if d<0 then print("(math)"); print(" direction"); end; @ The procedure |set_math_kchar| is same as |set_math_char| which written in section 48. @= procedure set_math_kchar(@!c:integer); var p:pointer; {the new noad} begin p:=new_noad; math_type(nucleus(p)):=math_jchar; character(nucleus(p)):=qi(0); math_kcode(p):=c; fam(nucleus(p)):=cur_jfam; if font_dir[fam_fnt(fam(nucleus(p))+cur_size)]=dir_default then begin print_err("Not two-byte family"); help1("IGNORE.");@/ error; end; type(p):=ord_noad; link(tail):=p; tail:=p; end; @ This section is a part of |main_control|. @= if is_char_node(tail) then begin cx:=qo(character(tail)); @; end else if type(tail)=ligature_node then begin cx:=qo(character(lig_char(tail))); @; end; if direction=dir_tate then begin if font_dir[main_f]=dir_tate then disp:=0 else if font_dir[main_f]=dir_yoko then disp:=t_baseline_shift-y_baseline_shift else disp:=t_baseline_shift; main_f:=cur_tfont; end else begin if font_dir[main_f]=dir_yoko then disp:=0 else if font_dir[main_f]=dir_tate then disp:=y_baseline_shift-t_baseline_shift else disp:=y_baseline_shift; main_f:=cur_jfont; end; @; ins_kp:=false; ligature_present:=false; cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); main_i:=orig_char_info(main_f)(qi(0)); goto main_loop_j+3; @# main_loop_j+1: space_factor:=1000; fast_get_avail(main_p); font(main_p):=main_f; character(main_p):=cur_l; link(tail):=main_p; tail:=main_p; last_jchr:=tail; fast_get_avail(main_p); info(main_p):=KANJI(cur_chr); link(tail):=main_p; tail:=main_p; cx:=cur_chr; @; ins_kp:=false; again_2: get_next; main_i:=orig_char_info(main_f)(cur_l); case cur_cmd of kanji,kana,other_kchar: begin cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); goto main_loop_j+3; end; letter,other_char: begin ins_kp:=true; cur_l:=qi(0); goto main_loop_j+3; end; endcases; x_token; case cur_cmd of kanji,kana,other_kchar: cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); letter,other_char: begin ins_kp:=true; cur_l:=qi(0); end; char_given: begin if is_char_ascii(cur_chr) then begin ins_kp:=true; cur_l:=qi(0); end else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); end; char_num: begin scan_char_num; cur_chr:=cur_val; if is_char_ascii(cur_chr) then begin ins_kp:=true; cur_l:=qi(0); end else cur_l:=qi(get_jfm_pos(KANJI(cur_chr),main_f)); end; inhibit_glue: begin inhibit_glue_flag:=true; goto again_2; end; othercases begin ins_kp:=max_halfword; cur_l:=qi(0); cur_r:=non_char; lig_stack:=null; end; endcases; @# main_loop_j+3: if ins_kp=true then @; @; if ins_kp=false then begin { Kanji -> Kanji } goto main_loop_j+1; end else if ins_kp=true then begin { Kanji -> Ascii } {@@;} ins_kp:=false; goto main_loop; end else begin { Kanji -> cs } {@@;} goto reswitch; end; @ @= begin if not is_char_node(tail)and(type(tail)=disp_node) then begin if prev_disp=disp then begin free_node(tail,small_node_size); tail:=prev_node; link(tail):=null; end else disp_dimen(tail):=disp; end else if disp<>0 then begin prev_node:=tail; tail_append(get_node(small_node_size)); type(tail):=disp_node; disp_dimen(tail):=disp; prev_disp:=disp; end; end; @ @= if disp<>0 then begin if not is_char_node(tail)and(type(tail)=disp_node) then begin disp_dimen(tail):=0; end else begin prev_node:=tail; tail_append(get_node(small_node_size)); type(tail):=disp_node; disp_dimen(tail):=0; prev_disp:=disp; end; end; @ @= cur_q:=tail; if inhibit_glue_flag<>true then begin if char_tag(main_i)=gk_tag then begin main_k:=glue_kern_start(main_f)(main_i); repeat main_j:=font_info[main_k].qqqq; if next_char(main_j)=cur_l then begin if op_byte(main_j)null then begin while((type(gp)<>cur_r)and(link(gp)<>null)) do gp:=link(gp); gq:=glue_ptr(gp); end else begin gp:=get_node(small_node_size); font_glue[main_f]:=gp; gq:=null; end; if gq=null then begin type(gp):=cur_r; gq:=new_spec(zero_glue); glue_ptr(gp):=gq; main_k:=exten_base[main_f]+qi((qo(cur_r))*3); width(gq):=font_info[main_k].sc; stretch(gq):=font_info[main_k+1].sc; shrink(gq):=font_info[main_k+2].sc; add_glue_ref(gq); link(gp):=get_node(small_node_size); gp:=link(gp); glue_ptr(gp):=null; link(gp):=null; end; tail_append(new_glue(gq)); subtype(tail):=jfm_skip+1; goto skip_loop; end else begin tail_append(new_kern(char_kern(main_f)(main_j))); goto skip_loop; end; end; incr(main_k); until skip_byte(main_j)>=stop_flag; end; end; skip_loop: inhibit_glue_flag:=false; @ @= procedure print_kanji(@!s:KANJI_code); {prints a single character} begin if s>255 then begin print_char(Hi(s)); print_char(Lo(s)); end else print_char(s); end; @* \[56] System-dependent changes. @z