diff options
-rw-r--r-- | Build/source/texk/web2c/eptexdir/eptex.ech | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/etex.ch1 | 12 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 4 | ||||
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 52 | ||||
-rw-r--r-- | Build/source/texk/web2c/synctexdir/synctex-e-rec.ch0 | 2 | ||||
-rw-r--r-- | Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0 | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0 | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 | 6 | ||||
-rw-r--r-- | Build/source/texk/web2c/synctexdir/synctex-p-rec.ch0 | 8 |
10 files changed, 20 insertions, 86 deletions
diff --git a/Build/source/texk/web2c/eptexdir/eptex.ech b/Build/source/texk/web2c/eptexdir/eptex.ech index d1227796dab..bb4d31519f4 100644 --- a/Build/source/texk/web2c/eptexdir/eptex.ech +++ b/Build/source/texk/web2c/eptexdir/eptex.ech @@ -777,7 +777,7 @@ procedure print_direction(@!d:integer); {print the direction represented by d} @z @x e-pTeX: fetch \(no)auto(x)spacing status -@* \[56] System-dependent changes. +@* \[54] System-dependent changes. @y @ The \.{\\currentspacingmode} and \.{\\currentxspacingmode} commands return the current \pTeX's status of \.{\\(no)autospacing} and @@ -800,5 +800,5 @@ current_xspacing_mode_code: print_esc("currentxspacingmode"); current_spacing_mode_code: cur_val:=auto_spacing; current_xspacing_mode_code: cur_val:=auto_xspacing; -@* \[56] System-dependent changes. +@* \[54] System-dependent changes. @z diff --git a/Build/source/texk/web2c/eptexdir/etex.ch1 b/Build/source/texk/web2c/eptexdir/etex.ch1 index 8deb48fa031..5826dbcb4f8 100644 --- a/Build/source/texk/web2c/eptexdir/etex.ch1 +++ b/Build/source/texk/web2c/eptexdir/etex.ch1 @@ -212,15 +212,3 @@ if b<>null then @d show_mode=7 { \.{\\showmode} } @z -@x -@* \[55/\pTeX] System-dependent changes for \pTeX. -@y -@* \[54/\pTeX] System-dependent changes for \pTeX. -@z - -@x -@* \[56] System-dependent changes. -@y -@* \[54] System-dependent changes. -@z - diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog index 77e860e1f25..718d205d564 100644 --- a/Build/source/texk/web2c/ptexdir/ChangeLog +++ b/Build/source/texk/web2c/ptexdir/ChangeLog @@ -1,3 +1,7 @@ +2023-08-22 Hironobu Yamashita <h.y.acetaminophen@gmail.com> + + * ptex-base.ch: Clean up unnecessary lines. + 2023-08-20 TANAKA Takuji <ttk@t-lab.opal.ne.jp> * {ptriptest,pver,wcfname,zfmtcompress}.test: diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 6f214d5fba5..4a57d3eb17c 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -499,26 +499,9 @@ sufficiently large and this is required for \pTeX. In \pTeX\ the |subtype| field records the box direction |box_dir|. @z -@x [10.135] l.2897 - pTeX: box_dir, space_ptr, xspace_ptr +@x [10.135] l.2897 - pTeX: box_dir @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} @@ -534,20 +517,13 @@ In \pTeX\ the |subtype| field records the box direction |box_dir|. @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} +@z + +@x [10.135] l.2897 - pTeX: space_ptr, xspace_ptr +@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 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} @@ -754,8 +730,8 @@ procedure short_display(@!p:integer); {prints highlights of list |p|} 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("[]"); +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. @@ -1292,8 +1268,8 @@ primitive("xkanjiskip",assign_glue,glue_base+xkanji_skip_code);@/ @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 cur_jfont==equiv(cur_jfont_loc) { \pTeX } +@d cur_tfont==equiv(cur_tfont_loc) { \pTeX } @d auto_spacing==equiv(auto_spacing_code) @d auto_xspacing==equiv(auto_xspacing_code) @d kcat_code(#)==equiv(kcat_code_base+#) @@ -7028,7 +7004,7 @@ for k:=256 to 511 do xchr[k]:=k; @x l.26984 - pTeX @* \[54] System-dependent changes. @y -@* \[55/\pTeX] System-dependent changes for \pTeX. +@* \[53b/\pTeX] The extended features for \pTeX. This section described extended variables, procesures, functions and so on for \pTeX. @@ -8192,5 +8168,5 @@ begin end; end; -@* \[56] System-dependent changes. +@* \[54] System-dependent changes. @z diff --git a/Build/source/texk/web2c/synctexdir/synctex-e-rec.ch0 b/Build/source/texk/web2c/synctexdir/synctex-e-rec.ch0 index 1ff6f1ae953..1f88a4cb5d0 100644 --- a/Build/source/texk/web2c/synctexdir/synctex-e-rec.ch0 +++ b/Build/source/texk/web2c/synctexdir/synctex-e-rec.ch0 @@ -116,11 +116,9 @@ end @z @x synctex-mem.ch0 l.236 -@ @<Put each...@>= primitive("synctex",assign_int,int_base+synctex_code);@/ @!@:synctex_}{\.{\\synctex} primitive@> @y -@ @<Put each...@>= primitive("synctex",assign_int,int_base+synctex_code);@/ @!@:synctex_}{\.{\\synctex} primitive@> diff --git a/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0 b/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0 index aea5c142b85..5ac7b2bba03 100644 --- a/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0 +++ b/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch0 @@ -17,9 +17,3 @@ disp_node: begin r:=get_node(small_node_size); words:=small_node_size; end; @z - -@x tex.web l. 24956 -@* \[54/\pTeX] System-dependent changes for \pTeX. -@y -@* \[54] System-dependent changes. -@z diff --git a/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 b/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 index e05a29c5130..fdd1ebb55b7 100644 --- a/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 +++ b/Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch1 @@ -15,9 +15,3 @@ @d synctex_code=web2c_int_pars @d etex_int_base=synctex_code+1 {base for \eTeX's integer parameters} @z - -@x tex.web l. 24956 -@* \[54] System-dependent changes. -@y -@* \[54/\pTeX] System-dependent changes for \pTeX. -@z diff --git a/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0 b/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0 index ad7cfa5825c..5ac7b2bba03 100644 --- a/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0 +++ b/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch0 @@ -17,9 +17,3 @@ disp_node: begin r:=get_node(small_node_size); words:=small_node_size; end; @z - -@x tex.web l. 24956 -@* \[55/\pTeX] System-dependent changes for \pTeX. -@y -@* \[54] System-dependent changes. -@z diff --git a/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 b/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 index 33a1212bb1c..290bfcfe896 100644 --- a/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 +++ b/Build/source/texk/web2c/synctexdir/synctex-p-mem.ch1 @@ -15,9 +15,3 @@ @d synctex_code=web2c_int_pars @d int_pars=synctex_code+1 {total number of integer parameters} @z - -@x tex.web l. 24956 -@* \[54] System-dependent changes. -@y -@* \[55/\pTeX] System-dependent changes for \pTeX. -@z diff --git a/Build/source/texk/web2c/synctexdir/synctex-p-rec.ch0 b/Build/source/texk/web2c/synctexdir/synctex-p-rec.ch0 index 410d762428a..ce7e9918561 100644 --- a/Build/source/texk/web2c/synctexdir/synctex-p-rec.ch0 +++ b/Build/source/texk/web2c/synctexdir/synctex-p-rec.ch0 @@ -12,17 +12,9 @@ save_loc:=dvi_offset+dvi_ptr; left_edge:=cur_h; cur_v:=cur_v-height(this_box); @z @x synctex-mem.ch0 l.236 -It is initialized by the {\sl Sync\TeX} controller to the command-line option if given. -The controller may filter some reserved bits. - -@ @<Put each...@>= primitive("synctex",assign_int,int_base+synctex_code);@/ @!@:synctex_}{\.{\\synctex} primitive@> @y -It is initialized by the {\sl Sync\TeX} controller to the command-line option if given. -The controller may filter some reserved bits. - -@ @<Put each...@>= primitive("synctex",assign_int,int_base+synctex_code);@/ @!@:synctex_}{\.{\\synctex} primitive@> |