summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2023-08-21 16:28:03 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2023-08-21 16:28:03 +0000
commit2d241a1f6f4b383f93ece62130490bd8baaf894d (patch)
treee99dfa8e61bfd3a40d33a05f4335dde09a18ad9a
parent5ad47fbabf30ad109962e1ea169fca44a62e5df1 (diff)
ptexdir: clean up
git-svn-id: svn://tug.org/texlive/trunk@67998 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/eptexdir/eptex.ech4
-rw-r--r--Build/source/texk/web2c/eptexdir/etex.ch112
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch52
-rw-r--r--Build/source/texk/web2c/synctexdir/synctex-e-rec.ch02
-rw-r--r--Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch06
-rw-r--r--Build/source/texk/web2c/synctexdir/synctex-ep-mem.ch16
-rw-r--r--Build/source/texk/web2c/synctexdir/synctex-p-mem.ch06
-rw-r--r--Build/source/texk/web2c/synctexdir/synctex-p-mem.ch16
-rw-r--r--Build/source/texk/web2c/synctexdir/synctex-p-rec.ch08
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@>