texlive[55026] Build/source/texk/web2c: [e][u]ptex: inhibit_glue_flag

commits+hironobu at tug.org commits+hironobu at tug.org
Tue May 5 14:37:43 CEST 2020 

Revision: 55026
          http://tug.org/svn/texlive?view=revision&revision=55026
Author:   hironobu
Date:     2020-05-05 14:37:43 +0200 (Tue, 05 May 2020)
Log Message:
-----------
[e][u]ptex: inhibit_glue_flag in extensions (H. Kitagawa)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/eptexdir/ChangeLog
    trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch

Added Paths:
-----------
    trunk/Build/source/texk/web2c/ptexdir/tests/inhibitglue_extensions.tex

Modified: trunk/Build/source/texk/web2c/eptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2020-05-05 10:25:49 UTC (rev 55025)
+++ trunk/Build/source/texk/web2c/eptexdir/ChangeLog	2020-05-05 12:37:43 UTC (rev 55026)
@@ -1,3 +1,8 @@
+2020-05-05  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* pdfutils.ch: Sync with inhibit_glue_flag improvement.
+	https://github.com/texjporg/tex-jp-build/pull/102
+
 2019-12-10  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
 
 	* am/eptex.am (eptex_CPPFLAGS): append $(ZLIB_INCLUDES).

Modified: trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch
===================================================================
--- trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch	2020-05-05 10:25:49 UTC (rev 55025)
+++ trunk/Build/source/texk/web2c/eptexdir/pdfutils.ch	2020-05-05 12:37:43 UTC (rev 55026)
@@ -1572,6 +1572,7 @@
 @ @<Implement \.{\\pdfsavepos}@>=
 begin
     new_whatsit(pdf_save_pos_node, small_node_size);
+    inhibit_glue_flag:=false;
 end
 
 @ @<Save current position in DVI mode@>=

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-05-05 10:25:49 UTC (rev 55025)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2020-05-05 12:37:43 UTC (rev 55026)
@@ -1,3 +1,8 @@
+2020-05-05  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* ptex-base.ch: Improved resetting inhibit_glue_flag in extensions.
+	https://github.com/texjporg/tex-jp-build/pull/102
+
 2020-02-09  Phelype Oleinik  <phe.h.o1 at gmail.com>
 
 	* ptexdir/ptex-base.ch: extra end; needed for the scan_file_name

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2020-05-05 10:25:49 UTC (rev 55025)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2020-05-05 12:37:43 UTC (rev 55026)
@@ -6323,15 +6323,61 @@
   ctype_base[null_font]:=0; char_base[null_font]:=0; width_base[null_font]:=0;
 @z
 
- at x [53.????] do_extension, inhibit_glue_flag
-begin case cur_chr of
-open_node:@<Implement \.{\\openout}@>;
+ at 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
 
+ at 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
+ at 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
+ at z
+
+ at 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
+ at 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
+ at z
+
+ at x [53.????] fix_language, inhibit_glue_flag
+if l<>clang then
+  begin new_whatsit(language_node,small_node_size);
+ at y
+if l<>clang then
+  begin inhibit_glue_flag:=false;
+  new_whatsit(language_node,small_node_size);
+ at z
+
+ at x [53.????] set_language, inhibit_glue_flag
+if abs(mode)<>hmode then report_illegal_case
+else begin new_whatsit(language_node,small_node_size);
+ at y
+if abs(mode)<>hmode then report_illegal_case
+else begin inhibit_glue_flag:=false;
+  new_whatsit(language_node,small_node_size);
+ at z
+
+
 @x [53.1376] l.26309 - pTeX:
 @<Glob...@> =
 @!debug_format_file: boolean;

Added: trunk/Build/source/texk/web2c/ptexdir/tests/inhibitglue_extensions.tex
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/tests/inhibitglue_extensions.tex	                        (rev 0)
+++ trunk/Build/source/texk/web2c/ptexdir/tests/inhibitglue_extensions.tex	2020-05-05 12:37:43 UTC (rev 55026)
@@ -0,0 +1,50 @@
+\documentclass{jsarticle}
+\usepackage[deluxe]{otf}
+\begin{document}
+\def\cs#1{\texttt{\textbackslash #1}}
+\immediate\openout15="\jobname.hoge"\immediate\closeout15
+
+\tracingonline1\showboxdepth100\showboxbreadth10000
+あい\inhibitglue（あ）
+
+あい\inhibitglue\openout14="\jobname-P.out"
+（あ\cs{openout}←whatsit作る
+
+あい\inhibitglue\write14{う}（あ\cs{write}←whatsit作る
+
+あい\inhibitglue\closeout14（あ\cs{closeout}←whatsit作る
+
+あい\inhibitglue\special{A}（あ\cs{special}←whatsit作る
+
+あい\inhibitglue\immediate（あ\cs{immediate}
+
+あい\inhibitglue\immediate\openout14="\jobname-I.out"
+（あ\cs{immediate}\cs{openout}
+
+あい\inhibitglue\immediate\write14{え}（あ\cs{immediate}\cs{write}
+
+あい\inhibitglue\immediate\closeout14（あ\cs{immediate}\cs{closeout}
+
+あい\inhibitglue\immediate\special{A}（あ\cs{immediate}\cs{special}$^*$
+
+あい\inhibitglue\pdfsavepos（あ\cs{pdfsavepos}←whatsit作る
+
+あい\inhibitglue\immediate\pdfsavepos（あ\cs{immediate}\cs{pdfsavepos}$^*$
+
+あい\inhibitglue\read16to\CS （あ\cs{read}
+
+あい\inhibitglue\openin1="\jobname.aux"
+（あ\cs{openin}\closein1
+
+あい\inhibitglue\setlanguage1（あ\cs{setlanguage}←whatsit作る
+
+
+あい\inhibitglue\textbf{（う）}
+
+あい\inhibitglue\textsf{（う）}
+
+あい\inhibitglue\textsf{（う）}
+
+$^*$: \cs{immediate}は効力なし
+\end{document}
+


Property changes on: trunk/Build/source/texk/web2c/ptexdir/tests/inhibitglue_extensions.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property

More information about the tex-live-commits mailing list.