summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2019-09-08 09:39:10 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2019-09-08 09:39:10 +0000
commit3dbf4f3fa11c18e4342033a7e86a01f9c4ac2a3c (patch)
tree2b8c40e1500228c2d0696c626fac3609e3f28e1b /Build/source/texk/web2c/euptexdir
parente5ef3b9eb4e0063551aa9322e886071964127459 (diff)
e-pTeX 190908: \readline correctly handles Japanese characters.
git-svn-id: svn://tug.org/texlive/trunk@52053 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir')
-rw-r--r--Build/source/texk/web2c/euptexdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/euptexdir/euptex.ch128
2 files changed, 32 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog
index cd0d73d57c6..e9f74c7e328 100644
--- a/Build/source/texk/web2c/euptexdir/ChangeLog
+++ b/Build/source/texk/web2c/euptexdir/ChangeLog
@@ -1,3 +1,7 @@
+2019-09-08 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
+
+ * euptex.ch1: Adapt to changes in eptexdir/.
+
2019-05-28 Hironobu Yamashita <h.y.acetaminophen@gmail.com>
* am/euptex.am: Add a new test.
diff --git a/Build/source/texk/web2c/euptexdir/euptex.ch1 b/Build/source/texk/web2c/euptexdir/euptex.ch1
index 69a520d901c..d33a3df7552 100644
--- a/Build/source/texk/web2c/euptexdir/euptex.ch1
+++ b/Build/source/texk/web2c/euptexdir/euptex.ch1
@@ -32,6 +32,34 @@ if font_dir[font(tx)]<>dir_default then cur_val:=KANJI(info(link(tx))) mod max_c
uptex_version_code: cur_val:=upTeX_version;
@z
+@x
+@ @<Handle \.{\\readline} and |goto done|@>=
+if j=1 then
+ begin while loc<=limit do {current line not yet finished}
+ begin cur_chr:=buffer[loc]; incr(loc);
+ if multistrlen(ustringcast(buffer), limit+1, loc-1)=2 then
+ begin cur_tok:=fromBUFF(ustringcast(buffer), limit+1, loc-1); incr(loc);
+ end
+ else if cur_chr=" " then cur_tok:=space_token
+ @+else cur_tok:=cur_chr+other_token;
+@y
+@ @<Handle \.{\\readline} and |goto done|@>=
+if j=1 then
+ begin while loc<=limit do {current line not yet finished}
+ begin cur_chr:=fromBUFF(ustringcast(buffer), limit+1, loc);
+ cur_tok:=kcat_code(kcatcodekey(cur_chr));
+ if (multistrlen(ustringcast(buffer), limit+1,loc)>1)and
+ check_kcat_code(cur_tok) then
+ begin if (cur_tok=not_cjk) then cur_tok:=other_kchar;
+ cur_tok:=cur_chr+cur_tok*max_cjk_val;
+ loc:=loc+multistrlen(ustringcast(buffer), limit+1,loc);
+ end
+ else begin cur_chr:=buffer[loc]; incr(loc);
+ if cur_chr=" " then cur_tok:=space_token
+ else cur_tok:=cur_chr+other_token;
+ end;
+@z
+
@x e-pTeX: ifcsname l.28620
begin buffer[m]:=Hi(info(p)); incr(m);
end;