ptexdir: clean up

git-svn-id: svn://tug.org/texlive/trunk/Build/source@67998 c570f23f-e606-0410-a88d-b1316a301751
TeX-Live · Aug 21, 2023 · 910f036 · 910f036
1 parent aab0a57
commit 910f036
Show file tree

Hide file tree

Showing 10 changed files with 20 additions and 86 deletions.
diff --git a/texk/web2c/eptexdir/eptex.ech b/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/texk/web2c/eptexdir/etex.ch1 b/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/texk/web2c/ptexdir/ChangeLog b/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/texk/web2c/ptexdir/ptex-base.ch b/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/texk/web2c/synctexdir/synctex-e-rec.ch0 b/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/texk/web2c/synctexdir/synctex-ep-mem.ch0 b/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/texk/web2c/synctexdir/synctex-ep-mem.ch1 b/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/texk/web2c/synctexdir/synctex-p-mem.ch0 b/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/texk/web2c/synctexdir/synctex-p-mem.ch1 b/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/texk/web2c/synctexdir/synctex-p-rec.ch0 b/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@>