texlive[59751] Build/source/texk/web2c/ptexdir/tests:

[commits+hironobu at tug.org]

Revision: 59751
          http://tug.org/svn/texlive?view=revision&revision=59751
Author:   hironobu
Date:     2021-06-29 14:17:23 +0200 (Tue, 29 Jun 2021)
Log Message:
-----------
ptexdir/tests/ucs*.tex: test files

Added Paths:
-----------
    trunk/Build/source/texk/web2c/ptexdir/tests/ucs.tex
    trunk/Build/source/texk/web2c/ptexdir/tests/ucs_toucs.tex

Added: trunk/Build/source/texk/web2c/ptexdir/tests/ucs.tex
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/tests/ucs.tex	                        (rev 0)
+++ trunk/Build/source/texk/web2c/ptexdir/tests/ucs.tex	2021-06-29 12:17:23 UTC (rev 59751)
@@ -0,0 +1,29 @@
+%#!eptex
+
+\def\typeout{\immediate\write17}
+
+\ifnum`あ="A4A2 \typeout{<EUC>}
+\else\ifnum`ア="8341 \typeout{<SJIS>}
+\else\typeout{<uptex>}\fi\fi
+
+\typeout{\string\ucs.}
+\newcount\cntA
+\loop\ifnum\cntA<256
+  \ifnum0=\ucs\cntA\else\typeout{\the\cntA: \ucs\cntA (\Uchar\ucs\cntA)}\fi
+  \advance\cntA1
+\repeat
+
+
+\typeout{\string\toucs.}
+\cntA=0
+\loop\ifnum\cntA<256
+  \ifnum0=\toucs\cntA\else\typeout{\the\cntA: \toucs\cntA}\fi
+  \advance\cntA1
+\repeat
+\typeout{\toucs"0, \toucs"80, \toucs"D7, \toucs"A7, \toucs"10000}
+\typeout{\toucs"8341, \toucs"EAA4, \toucs"EAA5}
+\typeout{\toucs"A4A2, \toucs"F4A6, \toucs"F4A7}
+
+
+\bye
+


Property changes on: trunk/Build/source/texk/web2c/ptexdir/tests/ucs.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Build/source/texk/web2c/ptexdir/tests/ucs_toucs.tex
===================================================================
--- trunk/Build/source/texk/web2c/ptexdir/tests/ucs_toucs.tex	                        (rev 0)
+++ trunk/Build/source/texk/web2c/ptexdir/tests/ucs_toucs.tex	2021-06-29 12:17:23 UTC (rev 59751)
@@ -0,0 +1,52 @@
+%#!eptex -ini -etex
+\let\dump\relax
+\input plain
+\newlinechar=`^^J
+
+\newcount\tempcnta
+\newcount\CharCount
+
+\xdef\KINTERNAL{%
+  \ifnum\ucs"3000="3000 \string\ucs
+  \else\ifnum\euc"A1A1="A1A1 \string\euc
+  \else\ifnum\sjis"8140="8140 \string\sjis
+  \fi\fi\fi}
+
+{\escapechar-1 \xdef\CHAR{\string\char}\xdef\OMCHAR{\string\omathchar}}
+\def\CC#1{\expandafter\StripChar#1}
+\expandafter\def\expandafter\StripChar\expandafter#\expandafter1\CHAR#2{#2}
+\def\OC#1{\expandafter\StripOChar#1}
+\expandafter\def\expandafter\StripOChar\expandafter#\expandafter1\OMCHAR#2{#2}
+
+\CharCount=0\relax
+\tempcnta=0\relax
+%\ifnum\ucs"3000="3000 \else \tempcnta=256\relax \fi
+\loop\ifnum\tempcnta<"110000\relax
+ %\iffontchar\jfont\tempcnta\relax
+  \ifnum\ucs\toucs\tempcnta=\tempcnta\relax
+    \advance\CharCount by 1\relax
+\ifnum\ucs"3000="3000 \else % boring for upTeX -> omitted
+    \ifx\omathchardef\undefined      %%%%%
+      \message{^^J\KINTERNAL\the\tempcnta\space
+        = \string\ucs\toucs\tempcnta}
+    \else                            %%%%%
+      \chardef\KnjInternal=\tempcnta\relax
+      \omathchardef\KnjUCS=\toucs\tempcnta\relax
+      \message{^^J\KINTERNAL\CC{\meaning\KnjInternal}
+        = \string\ucs\OC{\meaning\KnjUCS} (\Uchar\tempcnta)}
+    \fi                              %%%%%
+\fi
+  \else
+\ifnum\ucs"3000="3000 % should not happen for upTeX
+    \errhelp{}\errmessage{Should not happen: char \the\tempcnta}
+\fi
+  \fi
+ %\fi
+  \advance\tempcnta by 1\relax
+\repeat
+
+\message{^^JNumber of valid characters: \the\CharCount^^J}
+% => for pTeX, should be 6879 (JIS X 0208)
+% => for upTeX, should be 1114112 (0..0x10FFFF)
+
+\end


Property changes on: trunk/Build/source/texk/web2c/ptexdir/tests/ucs_toucs.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property