texlive[48431] Build/source/texk/web2c/pmpostdir: pmpostdir: support

[commits+hironobu at tug.org]

Revision: 48431
          http://tug.org/svn/texlive?view=revision&revision=48431
Author:   hironobu
Date:     2018-08-18 14:36:44 +0200 (Sat, 18 Aug 2018)
Log Message:
-----------
pmpostdir: support new jfm spec (H. Kitagawa)

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/pmpostdir/ChangeLog
    trunk/Build/source/texk/web2c/pmpostdir/ptfmin.ch

Added Paths:
-----------
    trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.mp
    trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tex
    trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tfm

Modified: trunk/Build/source/texk/web2c/pmpostdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/ChangeLog	2018-08-18 11:45:50 UTC (rev 48430)
+++ trunk/Build/source/texk/web2c/pmpostdir/ChangeLog	2018-08-18 12:36:44 UTC (rev 48431)
@@ -1,3 +1,10 @@
+2018-08-16  Hironori Kitagawa  <h_kitagawa2001 at yahoo.co.jp>
+
+	* ptfmin.ch: Support new JFM spec, which allows 3-byte
+	characters in TYPE > 0.
+	* tests/testnewu.{mp,tex,tfm}: Added. (File testnewu.tfm
+	is the same as uptexdir/tests.)
+
 2018-03-26  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
 
 	* pmpost.ch: Use UTF-8 as a default encoding also on

Modified: trunk/Build/source/texk/web2c/pmpostdir/ptfmin.ch
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/ptfmin.ch	2018-08-18 11:45:50 UTC (rev 48430)
+++ trunk/Build/source/texk/web2c/pmpostdir/ptfmin.ch	2018-08-18 12:36:44 UTC (rev 48431)
@@ -36,6 +36,10 @@
 @d read_pair(A) { (A)=tfbyte;
   tfget; (A)=(A)*0400+tfbyte;
 }
+ at d read_triplekanji(A) { (A)=tfbyte;
+  tfget; (A)=(A)*0400+tfbyte;
+  tfget; (A)=(A)+tfbyte*0200000;
+}
 @d read_two(A) { (A)=tfbyte;
 @z
 
@@ -91,10 +95,9 @@
 ii=mp->ctype_base[n]+nt;
 i=mp->ctype_base[n];
 while ( i<ii ) {
-  tfget; read_pair(ct);  /* allow character codes up to 0xffff */
+  tfget; read_triplekanji(ct);  /* allow character codes up to 0xffffff */
   mp->font_info[i].hh.LH=ct;
-  tfget; read_two(ct);
-  mp->font_info[i].hh.RH=ct;
+  tfget; mp->font_info[i].hh.RH=tfbyte;
   incr(i);
 }
 @z

Added: trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.mp
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.mp	                        (rev 0)
+++ trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.mp	2018-08-18 12:36:44 UTC (rev 48431)
@@ -0,0 +1,36 @@
+prologues:=0;
+beginfig(1);
+  u:=.5cm; h:=0; v:=0;
+  picture pct; string FONT;
+  bboxmargin:=-0pt;
+  def TEST(expr a)=
+    pct:=(a if length(FONT)>0: infont FONT fi);
+    draw bbox pct shifted (h,v) withcolor (blue+green); 
+	draw pct shifted (h,v);
+	h:=h+xpart(urcorner pct-ulcorner pct); v:=v+0.1u;
+  enddef;
+  
+  FONT:="cmr10";
+  TEST("VAr10");
+  h:=0; v:=v+u; FONT:="cmss10";
+  TEST("VAss10");
+  h:=0; v:=v+u; FONT:="uprml-h";
+  TEST("あ，臼𦥑あ"); % upjisr-h: error
+  h:=0; v:=v+u;
+  TEST("あ" );
+  TEST("，" );
+  TEST("臼" );
+  TEST("𦥑" );
+  TEST("あ" );
+  h:=0; v:=v+u; FONT:="testnewu";
+  TEST("あ，臼𦥑あ");
+  h:=0; v:=v+u;
+  TEST("あ" );
+  TEST("，" );
+  TEST("臼" );
+  TEST("𦥑" );
+  TEST("あ" );
+  h:=0; v:=v+u; FONT:="";
+  TEST(btex あ，臼𦥑あ etex);
+endfig;
+end;


Property changes on: trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.mp
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tex
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tex	                        (rev 0)
+++ trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tex	2018-08-18 12:36:44 UTC (rev 48431)
@@ -0,0 +1,7 @@
+%#!uplatex
+\documentclass{ujarticle}
+\usepackage[dvipdfmx]{graphicx}
+\begin{document}
+\special{pdf:mapline testnewu UniJIS-UTF16-H ipaexg.ttf}%
+\fbox{\includegraphics{testnewu.1}}
+\end{document}
\ No newline at end of file


Property changes on: trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tfm
===================================================================
(Binary files differ)

Index: trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tfm
===================================================================
--- trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tfm	2018-08-18 11:45:50 UTC (rev 48430)
+++ trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tfm	2018-08-18 12:36:44 UTC (rev 48431)

Property changes on: trunk/Build/source/texk/web2c/pmpostdir/tests/testnewu.tfm
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property