summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build/source/texk/web2c/ptexdir/ChangeLog5
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex-base.ch17
-rw-r--r--Build/source/texk/web2c/ptexdir/ptex_version.h2
3 files changed, 21 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ChangeLog b/Build/source/texk/web2c/ptexdir/ChangeLog
index f95f33d06f6..a45f7d7cfe9 100644
--- a/Build/source/texk/web2c/ptexdir/ChangeLog
+++ b/Build/source/texk/web2c/ptexdir/ChangeLog
@@ -1,3 +1,8 @@
+2019-10-14 Hironobu Yamashita <h.y.acetaminophen@gmail.com>
+
+ * ptex-base.ch: Allow getting \kansujichar.
+ * ptex_version.h: pTeX version p3.8.3.
+
2019-08-04 Hironobu Yamashita <h.y.acetaminophen@gmail.com>
* ppltotf.ch: 'This property name doesn't belong in a TYPE list'
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch
index 5b4ff551aff..1bc79fa3007 100644
--- a/Build/source/texk/web2c/ptexdir/ptex-base.ch
+++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch
@@ -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
-@d pTeX_revision==".2"
-@d pTeX_version_string=='-p3.8.2' {current \pTeX\ version}
+@d pTeX_revision==".3"
+@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 @@ begin m:=cur_chr;
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 @@ else
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|@>=
diff --git a/Build/source/texk/web2c/ptexdir/ptex_version.h b/Build/source/texk/web2c/ptexdir/ptex_version.h
index fd37c05e52e..ca56cd57f12 100644
--- a/Build/source/texk/web2c/ptexdir/ptex_version.h
+++ b/Build/source/texk/web2c/ptexdir/ptex_version.h
@@ -1 +1 @@
-#define PTEX_VERSION "p3.8.2"
+#define PTEX_VERSION "p3.8.3"