summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/uptexdir/tests
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2023-09-17 13:24:00 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2023-09-17 13:24:00 +0000
commitb6caed3f9e827e5801a3f27868d6597e2de15f6b (patch)
treec8f168e8bd68970d61ad66a3bfb04a4a29d32018 /Build/source/texk/web2c/uptexdir/tests
parent7853a1ad37caf3886afd4f8ad64aa7e30307e608 (diff)
ptex, makejvf: support more than 256 different glue/kern
git-svn-id: svn://tug.org/texlive/trunk@68305 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/tests')
-rw-r--r--Build/source/texk/web2c/uptexdir/tests/gk256.tex66
-rw-r--r--Build/source/texk/web2c/uptexdir/tests/gk256g.tfmbin0 -> 123868 bytes
-rw-r--r--Build/source/texk/web2c/uptexdir/tests/gk256k.tfmbin0 -> 127160 bytes
3 files changed, 66 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/uptexdir/tests/gk256.tex b/Build/source/texk/web2c/uptexdir/tests/gk256.tex
new file mode 100644
index 00000000000..b8a8628f0b6
--- /dev/null
+++ b/Build/source/texk/web2c/uptexdir/tests/gk256.tex
@@ -0,0 +1,66 @@
+%#!uptex
+
+%% まずは kern が 256 を超える時:
+% * (u)pPLtoTF はエラー発生しないが正常に格納できず→修正
+% * (u)pTFtoPL は元々読み出し OK
+% * (u)pTeX は元々読み出し OK
+% ※オリジナルの TeX は max_kerns=5000 まで許容
+
+\prebreakpenalty`…=0
+\prebreakpenalty`・=0
+\prebreakpenalty`。=0
+
+\tracingonline1
+\showboxdepth10000
+\showboxbreadth10000
+\ptextracingfonts2
+
+\font\x=upjisr-h\x
+\setbox0=\hbox{あ……あ}\showbox0
+\box0
+
+\font\y=gk-over256-kern\y
+\setbox2=\hbox{あ……あ}\showbox2
+\box2
+
+\newfam\mx
+\newfam\my
+\textfont\mx=\x \scriptfont\mx=\x \scriptscriptfont\mx=\x
+\textfont\my=\y \scriptfont\my=\y \scriptscriptfont\my=\y
+
+\jfam\mx
+\setbox4=\hbox{$あ……あ$}\showbox4
+\box4
+
+\jfam\my
+\setbox6=\hbox{$あ……あ$}\showbox6
+\box6
+
+%% 次に glue が 256 を超える時:
+% * (u)pPLtoTF は 256 を超えるとエラー→修正
+% * (u)pTFtoPL は読み出せず→修正
+% * (u)pTeX も正常に読み出せず→修正
+% →新しい (u)pTeX では max_kerns*3 = 15000 まで許容してみた
+
+\font\z=upjisg-h\z
+\setbox0=\hbox{あ・・あ。あ}\showbox0
+\box0
+
+\font\w=gk-over256-glue\w
+\setbox2=\hbox{あ・・あ。あ}\showbox2
+\box2
+
+\newfam\mz
+\newfam\mw
+\textfont\mz=\z \scriptfont\mz=\z \scriptscriptfont\mz=\z
+\textfont\mw=\w \scriptfont\mw=\w \scriptscriptfont\mw=\w
+
+\jfam\mz
+\setbox4=\hbox{$あ・・あ。あ$}\showbox4
+\box4
+
+\jfam\mw
+\setbox6=\hbox{$あ・・あ。あ$}\showbox6
+\box6
+
+\bye
diff --git a/Build/source/texk/web2c/uptexdir/tests/gk256g.tfm b/Build/source/texk/web2c/uptexdir/tests/gk256g.tfm
new file mode 100644
index 00000000000..fb1051b7a96
--- /dev/null
+++ b/Build/source/texk/web2c/uptexdir/tests/gk256g.tfm
Binary files differ
diff --git a/Build/source/texk/web2c/uptexdir/tests/gk256k.tfm b/Build/source/texk/web2c/uptexdir/tests/gk256k.tfm
new file mode 100644
index 00000000000..9a40b0f66ef
--- /dev/null
+++ b/Build/source/texk/web2c/uptexdir/tests/gk256k.tfm
Binary files differ