diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2020-05-05 12:37:43 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2020-05-05 12:37:43 +0000 |
commit | 9fac64baaa5e3e817cde6db5f350e739ccb78c7f (patch) | |
tree | 127bd8db54a2fa58436928813256912b454baa43 /Build/source/texk/web2c/ptexdir/ptex-base.ch | |
parent | b43b8205755406f22742ebf4c72125c6e5c9e8f6 (diff) |
[e][u]ptex: inhibit_glue_flag in extensions (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@55026 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 58 |
1 files changed, 52 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index fce669324f6..6d1e0f405d7 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -6323,15 +6323,61 @@ undump_things(char_base[null_font], font_ptr+1-null_font); ctype_base[null_font]:=0; char_base[null_font]:=0; width_base[null_font]:=0; @z -@x [53.????] do_extension, inhibit_glue_flag -begin case cur_chr of -open_node:@<Implement \.{\\openout}@>; +@x [53.????] new_write_whatsit, inhibit_glue_flag +write_stream(tail):=cur_val; +end; @y -begin inhibit_glue_flag:=false; -case cur_chr of -open_node:@<Implement \.{\\openout}@>; +write_stream(tail):=cur_val; +inhibit_glue_flag:=false; +end; @z +@x [53.????] Implement \special, inhibit_glue_flag +@<Implement \.{\\special}@>= +begin new_whatsit(special_node,write_node_size); write_stream(tail):=null; +p:=scan_toks(false,true); write_tokens(tail):=def_ref; +end +@y +@<Implement \.{\\special}@>= +begin new_whatsit(special_node,write_node_size); write_stream(tail):=null; +p:=scan_toks(false,true); write_tokens(tail):=def_ref; +inhibit_glue_flag:=false; +end +@z + +@x [53.????] Implement \immediate, inhibit_glue_flag + begin p:=tail; do_extension; {append a whatsit node} + out_what(tail); {do the action immediately} + flush_node_list(tail); tail:=p; link(p):=null; + end +@y + begin k:=inhibit_glue_flag; + p:=tail; do_extension; {append a whatsit node} + out_what(tail); {do the action immediately} + flush_node_list(tail); tail:=p; link(p):=null; + inhibit_glue_flag:=k; + end +@z + +@x [53.????] fix_language, inhibit_glue_flag +if l<>clang then + begin new_whatsit(language_node,small_node_size); +@y +if l<>clang then + begin inhibit_glue_flag:=false; + new_whatsit(language_node,small_node_size); +@z + +@x [53.????] set_language, inhibit_glue_flag +if abs(mode)<>hmode then report_illegal_case +else begin new_whatsit(language_node,small_node_size); +@y +if abs(mode)<>hmode then report_illegal_case +else begin inhibit_glue_flag:=false; + new_whatsit(language_node,small_node_size); +@z + + @x [53.1376] l.26309 - pTeX: @<Glob...@> = @!debug_format_file: boolean; |