texlive[52389] Build/source/texk/web2c/ptexdir: ptexdir: Allow

[commits+hironobu at tug.org]

Revision: 52389
          http://tug.org/svn/texlive?view=revision&revision=52389
Author:   hironobu
Date:     2019-10-15 14:59:44 +0200 (Tue, 15 Oct 2019)
Log Message:
-----------
ptexdir: Allow getting \kansujichar

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

Modified: trunk/Build/source/texk/web2c/ptexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2019-10-15 12:54:51 UTC (rev 52388)
+++ trunk/Build/source/texk/web2c/ptexdir/ChangeLog	2019-10-15 12:59:44 UTC (rev 52389)
@@ -1,3 +1,8 @@
+2019-10-14  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
+
+	* ptex-base.ch: Allow getting \kansujichar.
+	* ptex_version.h: pTeX version p3.8.3.
+
 2019-08-04  Hironobu Yamashita  <h.y.acetaminophen at gmail.com>
 
 	* ppltotf.ch: 'This property name doesn't belong in a TYPE list'

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2019-10-15 12:54:51 UTC (rev 52388)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex-base.ch	2019-10-15 12:59:44 UTC (rev 52389)
@@ -60,6 +60,7 @@
 % (2018-01-21) HK  Added \ptexversion primitive and co. pTeX p3.8.
 % (2018-04-14) HK  pTeX p3.8.1 Bug fix for discontinuous KINSOKU table.
 % (2019-02-03) HK  pTeX p3.8.2 Change \inhibitglue, add \disinhibitglue.
+% (2019-10-14) HY  pTeX p3.8.3 Allow getting \kansujichar.
 %
 
 @x
@@ -75,8 +76,8 @@
 @y
 @d pTeX_version=3
 @d pTeX_minor_version=8
- at d pTeX_revision==".2"
- at d pTeX_version_string=='-p3.8.2' {current \pTeX\ version}
+ at d pTeX_revision==".3"
+ at d pTeX_version_string=='-p3.8.3' {current \pTeX\ version}
 @#
 @d pTeX_banner=='This is pTeX, Version 3.14159265',pTeX_version_string
 @d pTeX_banner_k==pTeX_banner
@@ -2060,6 +2061,7 @@
 case cur_cmd of
 assign_kinsoku: @<Fetch breaking penalty from some table@>;
 assign_inhibit_xsp_code: @<Fetch inhibit type from some table@>;
+set_kansuji_char: @<Fetch kansuji char code from some table@>;
 def_code: @<Fetch a character code from some table@>;
 toks_register,assign_toks,def_family,set_font,def_font,def_jfont,def_tfont:
   @<Fetch a token list or font identifier, provided that |level=tok_val|@>;
@@ -6405,6 +6407,17 @@
   define(kansuji_base+n,n,tokanji(toDVI(cur_val)));
 end;
 
+@ @<Fetch kansuji char code from some table@>=
+begin scan_int;
+  if (cur_val<0)or(cur_val>9) then
+    begin print_err("Invalid KANSUJI number ("); print_int(cur_val); print_char(")");
+    help1("I'm skipping this control sequences.");@/
+    error; return;
+    end
+  else
+    cur_val:=fromDVI(kansuji_char(cur_val));
+end
+
 @ |print_kansuji| procedure converts a number to KANJI number.
 
 @ @<Declare procedures needed in |scan_something_internal|@>=

Modified: trunk/Build/source/texk/web2c/ptexdir/ptex_version.h
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/ptex_version.h	2019-10-15 12:54:51 UTC (rev 52388)
+++ trunk/Build/source/texk/web2c/ptexdir/ptex_version.h	2019-10-15 12:59:44 UTC (rev 52389)
@@ -1 +1 @@
-#define PTEX_VERSION "p3.8.2"
+#define PTEX_VERSION "p3.8.3"