texlive[49957] Build/source/texk/web2c/ptexdir: control-symbol (ptex

[commits+hironobu at tug.org]

Revision: 49957
          http://tug.org/svn/texlive?view=revision&revision=49957
Author:   hironobu
Date:     2019-02-06 12:00:04 +0100 (Wed, 06 Feb 2019)
Log Message:
-----------
control-symbol (ptex and friends 3 of 5)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/ptexdir/ChangeLog
    trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
    trunk/Build/source/texk/web2c/ptexdir/ptex_version.h
    trunk/Build/source/texk/web2c/ptexdir/tests/control-symbol.tex

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2019-02-06 10:59:29 UTC (rev 49956)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2019-02-06 11:00:04 UTC (rev 49957)
@@ -1,3 +1,10 @@
+2019-02-03  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* ptex-base.ch: Ignore newline char after Japanese control
+	symbol. https://github.com/texjporg/tex-jp-build/issues/37
+	* tests/control_symbol.tex: More test cases.
+	* ptex_version.h: pTeX version p3.8.2.
+
 2019-01-23  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* ptex-base.ch: Add dump_kanji and undump_kanji.

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2019-02-06 10:59:29 UTC (rev 49956)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2019-02-06 11:00:04 UTC (rev 49957)
@@ -74,8 +74,8 @@
 @y
 @d pTeX_version=3
 @d pTeX_minor_version=8
- at d pTeX_revision==".1"
- at d pTeX_version_string=='-p3.8.1' {current \pTeX\ version}
+ at d pTeX_revision==".2"
+ at d pTeX_version_string=='-p3.8.2' {current \pTeX\ version}
 @#
 @d pTeX_banner=='This is pTeX, Version 3.14159265',pTeX_version_string
 @d pTeX_banner_k==pTeX_banner
@@ -1741,6 +1741,7 @@
 start_cs:
   if (cat=letter)or(cat=kanji)or(cat=kana) then state:=skip_blanks
   else if cat=spacer then state:=skip_blanks
+  else if cat=other_kchar then state:=mid_kanji
   else state:=mid_line;
   if cat=other_kchar then
     begin cur_cs:=id_lookup(loc,k-loc); loc:=k; goto found;

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex_version.h
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex_version.h	2019-02-06 10:59:29 UTC (rev 49956)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex_version.h	2019-02-06 11:00:04 UTC (rev 49957)
@@ -1 +1 @@
-#define PTEX_VERSION "p3.8.1"
+#define PTEX_VERSION "p3.8.2"

Modified: trunk/Build/source/texk/web2c/ptexdir/tests/control-symbol.tex
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/tests/control-symbol.tex	2019-02-06 10:59:29 UTC (rev 49956)
+++ trunk/Build/source/texk/web2c/ptexdir/tests/control-symbol.tex	2019-02-06 11:00:04 UTC (rev 49957)
@@ -74,7 +74,28 @@
 \fi
 \fi
 
+\message{■行末の和文コントロールシンボル}
 
+
+\kcatcode`】=18
+
+\def\】{◆}
+\def\@{◆}
+
+1. \】◇，\@◇
+
+2. \】%
+◇, \@%
+◇
+
+3. \】
+◇, \@
+◇
+
+4. \】 ◇, \@ ◇
+
+
+
 \end