diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex')
-rw-r--r-- | Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex | 66 |
1 files changed, 66 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex b/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex index 2ec2d2c64ab..60221d3580a 100644 --- a/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex +++ b/Master/texmf-dist/doc/latex/oberdiek/test/catchfile-test3.tex @@ -36,6 +36,7 @@ %% \def\msg#{\immediate\write16} \newlinechar=10 % +\tracingnesting=2 % \input catchfile.sty\relax \def\mysetup{% @@ -44,9 +45,63 @@ }% \dospecials } +\def\CheckContents{% + \begingroup + \expandafter\ifx\csname contents\endcsname\relax + \def\space{ }% + \errmessage{\string\contents\space is not defined.}% + \fi + \endgroup +} +\catcode`\@=11 % +\def\CheckCleanup{% + \begingroup + \edef\x{\the\toks0}% + \def\y{ABC}% + \ifx\x\y + \else + \errmessage{\string\toks0 has changed}% + \fi + \ifx\CatchFile@gtemp\@undefined + \else + \errmessage{Left over \string\CatchFile@gtemp}% + \fi + \endgroup +} +\def\Check{% + \CheckContents + \CheckCleanup +} +\def\StartDisableUnexpanded{% + \begingroup + \let\etex@unexpanded\@undefined +} +\def\StopDisableUnexpanded{% + \endgroup +} +\catcode`\@=12 % + +\toks0{ABC} + +\CatchFileDef\contents{catchfile.sty}\mysetup +\msg{\meaning\contents} +\Check +\msg{***********************************************************}% +\CatchFileDef\contents{catchfile.sty}{} +\msg{\meaning\contents} +\Check +\msg{***********************************************************}% +\StartDisableUnexpanded \CatchFileDef\contents{catchfile.sty}\mysetup \msg{\meaning\contents} +\Check +\msg{***********************************************************}% +\CatchFileDef\contents{catchfile.sty}{} +\msg{\meaning\contents} +\Check +\msg{***********************************************************}% +\StopDisableUnexpanded \CatchFileEdef\contents{catchfile.sty}{% \mysetup @@ -54,6 +109,17 @@ \obeylines } \msg{\contents} +\Check +\msg{***********************************************************}% +\CatchFileEdef\contents{catchfile.sty}{% + \catcode`\\=12 % + \catcode`\#=12 % + \def\par{^^J}% + \obeylines +} +\msg{\contents} +\Check +\msg{***********************************************************}% \csname @@end\endcsname \end |