summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/tests/catcd.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/alephdir/tests/catcd.tex')
-rw-r--r--Build/source/texk/web2c/alephdir/tests/catcd.tex147
1 files changed, 147 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/alephdir/tests/catcd.tex b/Build/source/texk/web2c/alephdir/tests/catcd.tex
new file mode 100644
index 00000000000..9cd8b42c880
--- /dev/null
+++ b/Build/source/texk/web2c/alephdir/tests/catcd.tex
@@ -0,0 +1,147 @@
+%% (e)uptex or aleph
+
+% Copyright 2025 Japanese TeX Development Community <issue@texjp.org>
+% You may freely use, modify and/or distribute this file.
+
+\ifx\kcatcode\undefined\else
+% for (e)upTeX
+ \kcatcode"C0=14 % Latin-1 Supplement
+ \kcatcode"100=14 % Latin Extended-A
+ \kcatcode"1E00=14 % Latin Extended Additional
+ \kcatcode"2010=14 % General Punctuation
+\fi
+\ifx\ocp\undefined\else
+% for aleph
+ \ocp\ORGin=inutf8
+ \InputTranslation currentfile \ORGin
+\fi
+\font\x=eu3-lmr10 \x
+\parindent0pt
+
+% Latin-1 Supplement
+\catcode"C1=1
+\catcode"C2=2
+\catcode"C3=3
+\catcode"C4=4
+\catcode"C5=6
+\catcode"C6=7
+\catcode"C7=8
+\catcode"C8=11
+\catcode"C9=12
+\immediate\write16{\meaning Á; % begin-group character
+ \meaning Â.}% end-group character
+\immediate\write16{\meaning Ã.}% math shift character
+\immediate\write16{\meaning Ä.}% alignment tab character
+\immediate\write16{\meaning Å.}% macro parameter character
+\immediate\write16{\meaning Æ.}% superscript character
+\immediate\write16{\meaning Ç.}% subscript character
+\immediate\write16{\meaning È.}% the letter
+\immediate\write16{\meaning É.}% the characer
+
+% Latin Extended-A
+\catcode"101=1
+\catcode"102=2
+\catcode"103=3
+\catcode"104=4
+\catcode"105=6
+\catcode"106=7
+\catcode"107=8
+\catcode"108=11
+\catcode"109=12
+\immediate\write16{\meaning ā; % begin-group character
+ \meaning Ă.}% end-group character
+\immediate\write16{\meaning ă.}% math shift character
+\immediate\write16{\meaning Ą.}% alignment tab character
+\immediate\write16{\meaning ą.}% macro parameter character
+\immediate\write16{\meaning Ć.}% superscript character
+\immediate\write16{\meaning ć.}% subscript character
+\immediate\write16{\meaning Ĉ.}% the letter
+\immediate\write16{\meaning ĉ.}% the characer
+
+% Latin Extended Additional
+\catcode"1E01=1
+\catcode"1E02=2
+\catcode"1E03=3
+\catcode"1E04=4
+\catcode"1E05=6
+\catcode"1E06=7
+\catcode"1E07=8
+\catcode"1E08=11
+\catcode"1E09=12
+\immediate\write16{\meaning ḁ; % begin-group character
+ \meaning Ḃ.}% end-group character
+\immediate\write16{\meaning ḃ.}% math shift character
+\immediate\write16{\meaning Ḅ.}% alignment tab character
+\immediate\write16{\meaning ḅ.}% macro parameter character
+\immediate\write16{\meaning Ḇ.}% superscript character
+\immediate\write16{\meaning ḇ.}% subscript character
+\immediate\write16{\meaning Ḉ.}% the letter
+\immediate\write16{\meaning ḉ.}% the characer
+
+
+% catcode 1,2 : begin-group, end-group character
+\catcode"F2=1 % ò
+\catcode"F3=2 % ó
+\catcode"102=1 % Ă
+\catcode"103=2 % ă
+\catcode"2039=1 % ‹
+\catcode"203A=2 % ›
+òabcó Ădefă {ghió òjkl} {mnoă Ăpqr} {stu› ‹vwx}
+
+% catcode 11,12 : the letter, the characer
+\catcode"F2=11
+\catcode"F3=12
+\catcode"102=11
+\catcode"103=12
+\catcode"2039=11 % ‹
+\catcode"203A=12 % ›
+òabcó Ădefă {ghió òjkl} {mnoă Ăpqr} {stu› ‹vwx}
+
+% catcode 3 : math shift character
+\catcode"FC=3 % ü
+\catcode"10C=3 % Č
+\catcode"1E0C=3 % Ḍ
+\immediate\write16{\meaning ü.}% math shift character
+\immediate\write16{\meaning Č.}% math shift character
+\immediate\write16{\meaning Ḍ.}% math shift character
+% Setting for math fonts is required.
+%$d^nx/dt^n$ $d^nx/dt^nü Čd^nx/dt^n$ üd^nx/dt^nČ Ḍd^nx/dt^nḌ
+
+% catcode 7,8 : superscript, subscript character
+\catcode"FE=7 % þ
+\catcode"FF=8 % ÿ
+\catcode"10E=7 % Ď
+\catcode"10F=8 % ď
+\catcode"1E0E=7 % Ḏ
+\catcode"1E0F=8 % ḏ
+\immediate\write16{\meaning þ; \meaning ÿ.}% superscript, subscript character
+\immediate\write16{\meaning Ď; \meaning ď.}% superscript, subscript character
+\immediate\write16{\meaning Ḏ; \meaning ḏ.}% superscript, subscript character
+% Setting for math fonts is required.
+%$a_nx^m$ $aÿnxþm$ $aďnxĎm$ $aḏnxḎm$
+
+% catcode 4 : alignment tab character
+\catcode"F4=4 % ô
+\catcode"104=4 % Ą
+\catcode"1E04=4 % Ḅ
+\halign{# & # & # \cr
+ aaa & bbb & ccc \cr
+ ddd ô eee ô fff \cr
+ ggg Ą hhh Ą iii \cr
+ jjj Ḅ kkk Ḅ lll \cr}
+
+% catcode 6 : macro parameter character
+\catcode"F5=6 % õ
+\catcode"105=6 % ą
+\catcode"1E05=6 % ḅ
+\def\oWz#1{o{#1}z}\relax
+\oWz{r}
+\def\oXzõ1{o{õ1}z}\relax
+\oXz{r}
+\def\oYzą1{o{ą1}z}\relax
+\oYz{r}
+\def\oZzḅ1{o{ḅ1}z}\relax
+\oZz{r}
+
+\end
+