diff options
Diffstat (limited to 'Build/source/texk/web2c/ptexdir')
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ChangeLog | 5 | ||||
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 17 | ||||
| -rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex_version.h | 2 |
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" |