diff options
author | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2024-05-18 11:06:27 +0000 |
---|---|---|
committer | Takuji Tanaka <ttk@t-lab.opal.ne.jp> | 2024-05-18 11:06:27 +0000 |
commit | 71290de5282847767e1f034f6a21f1271af704e3 (patch) | |
tree | 88c82e1d65af8c072ea5ebbd8d00058333f707b8 /Build/source/texk/web2c/euptexdir | |
parent | d43637285f100d5099a29d199a3f10ea27b92857 (diff) |
{,e}{,u}ptex: Enable to get charcode from control symbol by back quote
git-svn-id: svn://tug.org/texlive/trunk@71289 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir')
-rw-r--r-- | Build/source/texk/web2c/euptexdir/ChangeLog | 7 | ||||
-rw-r--r-- | Build/source/texk/web2c/euptexdir/am/euptex.am | 8 | ||||
-rwxr-xr-x | Build/source/texk/web2c/euptexdir/euptex-ctrlsym.test | 28 | ||||
-rw-r--r-- | Build/source/texk/web2c/euptexdir/tests/ctrlsym.log | 20 | ||||
-rw-r--r-- | Build/source/texk/web2c/euptexdir/tests/ctrlsym.tex | 34 |
5 files changed, 96 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog index 5d39c9205c8..34397d189d0 100644 --- a/Build/source/texk/web2c/euptexdir/ChangeLog +++ b/Build/source/texk/web2c/euptexdir/ChangeLog @@ -1,3 +1,10 @@ +2024-05-18 TANAKA Takuji <ttk@t-lab.opal.ne.jp> + + * euptex-ctrlsym.test, tests/ctrlsym.{tex,log}, + am/euptex.am: Add tests for getting character codes + from control symbols by using backquote "`". + https://github.com/texjporg/tex-jp-build/issues/167 + 2024-05-01 TANAKA Takuji <ttk@t-lab.opal.ne.jp> * pdfutils.ch: Revert some patches. diff --git a/Build/source/texk/web2c/euptexdir/am/euptex.am b/Build/source/texk/web2c/euptexdir/am/euptex.am index 1103cc70d83..f961b447fcc 100644 --- a/Build/source/texk/web2c/euptexdir/am/euptex.am +++ b/Build/source/texk/web2c/euptexdir/am/euptex.am @@ -98,13 +98,15 @@ EXTRA_DIST += \ euptex_tests = \ euptexdir/euptriptest.test euptexdir/eptriptest.test \ euptexdir/pdfprimitive.test \ + euptexdir/euptex-ctrlsym.test \ euptexdir/eupver.test \ euptexdir/upkcat.test \ euptexdir/wcfname.test euptexdir/wcfname0.test euptexdir/euptriptest.log euptexdir/eptriptest.log: \ euptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT) euptexdir/pdfprimitive.log: euptex$(EXEEXT) -euptexdir/eupver.log euptexdir/upkcat.log \ +euptexdir/euptex-ctrlsym.log \ + euptexdir/eupver.log euptexdir/upkcat.log \ euptexdir/wcfname.log euptexdir/wcfname0.log: euptex$(EXEEXT) EXTRA_DIST += $(euptex_tests) @@ -136,4 +138,8 @@ EXTRA_DIST += \ euptexdir/tests/pdfprimitive-euptex.log DISTCLEANFILES += pdfprimitive-euptex.* +## euptex-ctrlsym.test +EXTRA_DIST += euptexdir/tests/ctrlsym.log euptexdir/tests/ctrlsym.tex +DISTCLEANFILES += eup-ctrlsym.fmt eup-ctrlsym.log eup-ctrlsym.out eup-ctrlsym.tex + # (end of euptex.am) diff --git a/Build/source/texk/web2c/euptexdir/euptex-ctrlsym.test b/Build/source/texk/web2c/euptexdir/euptex-ctrlsym.test new file mode 100755 index 00000000000..294e0cf0bf1 --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/euptex-ctrlsym.test @@ -0,0 +1,28 @@ +#! /bin/sh -vx +# Copyright 2024 Japanese TeX Development Community <issue@texjp.org> +# You may freely use, modify and/or distribute this file. + +BinDir=${BinDir:-.} +ExeExt=${ExeExt:-} +_euptex=$BinDir/euptex$ExeExt + +LC_ALL=C; export LC_ALL; LANGUAGE=C; export LANGUAGE + +TEXMFCNF=$srcdir/../kpathsea;export TEXMFCNF +TEXINPUTS=".;$srcdir/tests"; export TEXINPUTS +TEXFORMATS=.; export TEXFORMATS + +# get same filename in log +rm -f eup-ctrlsym.tex +$LN_S $srcdir/euptexdir/tests/ctrlsym.tex ./eup-ctrlsym.tex + +#exit 77 + +$_euptex -ini -etex eup-ctrlsym || exit 1 + +$_euptex -etex -fmt=eup-ctrlsym eup-ctrlsym || exit 2 + +sed 1d eup-ctrlsym.log >eup-ctrlsym.out + +diff $srcdir/euptexdir/tests/ctrlsym.log eup-ctrlsym.out || exit 3 + diff --git a/Build/source/texk/web2c/euptexdir/tests/ctrlsym.log b/Build/source/texk/web2c/euptexdir/tests/ctrlsym.log new file mode 100644 index 00000000000..1d0eae0c92b --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/tests/ctrlsym.log @@ -0,0 +1,20 @@ +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**eup-ctrlsym +(./eup-ctrlsym.tex +A: 38634 + +\雪 ->snow +B: 38634. 雪\雪snow +macro:->snow. +macro:->snow. + +C: 127820 + +\🍌->banana +D: 127820. 🍌\🍌 banana +macro:->banana. +macro:->banana. + ) +No pages of output. diff --git a/Build/source/texk/web2c/euptexdir/tests/ctrlsym.tex b/Build/source/texk/web2c/euptexdir/tests/ctrlsym.tex new file mode 100644 index 00000000000..f007708a2bc --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/tests/ctrlsym.tex @@ -0,0 +1,34 @@ +% Copyright 2024 Japanese TeX Development Community <issue@texjp.org> +% You may freely use, modify and/or distribute this file. +% +\ifx\fmtname\undefined + \input basic + \def\fmtname{basic} + \expandafter\dump +\fi +%================== +\begingroup % Just there to minimize tracing output + \tracingmacros=2 + \tracingonline=1 +%-- + \newlinechar=10 + \count255=0 + \count255=`雪 \relax + \message{^^JA: \the\count255^^J} + \def\雪{snow} + \count255=`\雪 \relax + \message{B: \the\count255. 雪\string\雪 \雪^^J} + \message{\expandafter\meaning\csname 雪\endcsname.^^J} + \message{\expandafter\meaning\csname \Uchar"96EA\endcsname.^^J}% + \count4095=0 + \count4095=`🍌 \relax + \message{^^JC: \the\count4095^^J} + \def\🍌{banana} + \count4095=`\🍌 \relax + \message{D: \the\count4095. 🍌\string\🍌 \🍌^^J} + \message{\expandafter\meaning\csname 🍌\endcsname.^^J} + \message{\expandafter\meaning\csname \Uchar"1F34C\endcsname.^^J}% +%-- + \setbox0=\vbox{} % no dvi/xdv/pdf output +\endgroup +\end |