summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-07-25 16:07:35 +0000
committerKarl Berry <karl@freefriends.org>2021-07-25 16:07:35 +0000
commitfdd1cdfaad879053afd699ff95858bd349a8ceb5 (patch)
treeacc2cda217c6efb950dff3db7775c053836ff413 /Build/source/texk/web2c/ptexdir
parent58f97acc491936eb759faf84558cb30df19cd953 (diff)
new cross-engine primitives \partokenname and \partokencontext, from Petr Olsak
git-svn-id: svn://tug.org/texlive/trunk@60054 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
-rw-r--r--Build/source/texk/web2c/ptexdir/am/ptex.am2
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch10
2 files changed, 5 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/ptexdir/am/ptex.am b/Build/source/texk/web2c/ptexdir/am/ptex.am
index 800af466b91..2714e21449b 100644
--- a/Build/source/texk/web2c/ptexdir/am/ptex.am
+++ b/Build/source/texk/web2c/ptexdir/am/ptex.am
@@ -1,3 +1,4 @@
+## $Id$
## texk/web2c/ptexdir/am/ptex.am: Makefile fragment for pTeX.
##
## Copyright 2015-2021 Karl Berry <tex-live@tug.org>
@@ -75,6 +76,7 @@ ptex_web_srcs = \
tex.web \
tex.ch \
tracingstacklevels.ch \
+ partoken.ch \
zlib-fmt.ch
# Generate ptex.ch
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index 6613cb295dc..4825c40fb6d 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -1,3 +1,4 @@
+% $Id$
% This is a change file for pTeX
% By Sadayuki Tanaka and ASCII MEDIA WORKS.
%
@@ -1009,7 +1010,8 @@ kern_node,math_node,penalty_node: begin r:=get_node(small_node_size);
@d set_interaction=hyph_data+1 {define level of interaction ( \.{\\batchmode}, etc.~)}
@d set_auto_spacing=set_interaction+1 {set auto spacing mode
( \.{\\autospacing}, \.{\\noautospacing}, \.{\\autoxspacing}, \.{\\noautoxspacing} )}
-@d max_command=set_auto_spacing {the largest command code seen at |big_switch|}
+@d partoken_name=set_auto_spacing+1 {set |par_token| name}
+@d max_command=partoken_name {the largest command code seen at |big_switch|}
@z
@x [16.212] l.4437 - pTeX: last_jchr, direction, adjust direction
@@ -5340,8 +5342,6 @@ 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
@@ -5359,8 +5359,6 @@ insert_group: begin end_graf; q:=split_top_skip; add_glue_ref(q);
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)(direction); pop_nest;
if saved(0)<255 then
@@ -5938,13 +5936,11 @@ 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)(direction); pop_nest;
if abs(box_dir(p))<>abs(direction) then p:=new_dir_node(p,abs(direction));