diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2021-06-25 09:14:15 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2021-06-25 09:14:15 +0000 |
commit | 8d8684458b9d43c49479394b5411f999bfc0f154 (patch) | |
tree | d12688c889f06c754541b257886f750830fe5e6b /Build/source/texk/web2c/uptexdir/tests | |
parent | 74be7c8354ce18fa150ae5096acb9b01ea56783e (diff) |
ptex: no re-eval of kcatcode for \ifcat
git-svn-id: svn://tug.org/texlive/trunk@59699 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/uptexdir/tests')
-rw-r--r-- | Build/source/texk/web2c/uptexdir/tests/test_if.tex | 55 |
1 files changed, 41 insertions, 14 deletions
diff --git a/Build/source/texk/web2c/uptexdir/tests/test_if.tex b/Build/source/texk/web2c/uptexdir/tests/test_if.tex index 35588f992c1..ddae745e7fb 100644 --- a/Build/source/texk/web2c/uptexdir/tests/test_if.tex +++ b/Build/source/texk/web2c/uptexdir/tests/test_if.tex @@ -1,29 +1,56 @@ +%#!ptex \kcatcode`あ=18 \def\xA{あ}\let\yA=あ \kcatcode`あ=17 \def\xB{あ}\let\yB=あ \kcatcode`あ=16 +\def\xC{あ}\let\yC=あ -\message{\ifcat あ\xA Y\else N\fi} -\message{\ifcat あ\yA Y\else N\fi} -\message{\ifcat あ\xB Y\else N\fi} -\message{\ifcat あ\yB Y\else N\fi} +%% for pTeX +% * x: macro -> re-eval kcatcode +% * y: let -> copy kcatcode +%% for upTeX +% * x: macro -> reserved kcatcode +% * y: let -> copy kcatcode -\message{\if あ\xA Y\else N\fi} -\message{\if あ\yA Y\else N\fi} -\message{\if い\xA Y\else N\fi} -\message{\if い\yA Y\else N\fi} +\message{ifcat} +\message{\ifcat あ\xA Y\else N\fi}% pY, uN +\message{\ifcat あ\yA Y\else N\fi}% pN, uN +\message{\ifcat あ\xB Y\else N\fi}% pY, uN +\message{\ifcat あ\yB Y\else N\fi}% pN, uN +\message{\ifcat あ\xC Y\else N\fi}% pY, uY +\message{\ifcat あ\yC Y\else N\fi}% pY, uY + +\message{if} +\message{\if あ\xA Y\else N\fi}% pY, uY +\message{\if あ\yA Y\else N\fi}% pY, uY +\message{\if あ\xB Y\else N\fi}% pY, uY +\message{\if あ\yB Y\else N\fi}% pY, uY +\message{\if あ\xC Y\else N\fi}% pY, uY +\message{\if あ\yC Y\else N\fi}% pY, uY +\message{\if い\xA Y\else N\fi}% pN, uN +\message{\if い\yA Y\else N\fi}% pN, uN + +\message{ifx} +\message{\ifx あ\xA Y\else N\fi}% pN, uN +\message{\ifx あ\yA Y\else N\fi}% pN, uN +\message{\ifx あ\xB Y\else N\fi}% pN, uN +\message{\ifx あ\yB Y\else N\fi}% pN, uN +\message{\ifx あ\xC Y\else N\fi}% pN, uN +\message{\ifx あ\yC Y\else N\fi}% pY, uY +\message{\ifx \xA\xB Y\else N\fi}% pY, uN +\message{\ifx \xA\xC Y\else N\fi}% pY, uN +\message{\ifx \yA\yB Y\else N\fi}% pN, uN +\message{\ifx \yA\yC Y\else N\fi}% pN, uN \ifx\ucs\undefined\else \kcatcode"100=16 \message{upTeX} \def\xA{Ā}% U+0100 \def\xB{ā}% U+0101 - \message{\if \xA\relax Y\else N\fi} - \message{\if \xB\relax Y\else N\fi} - \message{\ifcat\xA\relax Y\else N\fi} - \message{\ifcat\xB\relax Y\else N\fi} + \message{\if \xA\relax Y\else N\fi}% uN + \message{\if \xB\relax Y\else N\fi}% uN + \message{\ifcat\xA\relax Y\else N\fi}% uN + \message{\ifcat\xB\relax Y\else N\fi}% uN \fi \end - - |