summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/oberdiek/rotchiffre.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/oberdiek/rotchiffre.dtx')
-rw-r--r--macros/latex/contrib/oberdiek/rotchiffre.dtx430
1 files changed, 1 insertions, 429 deletions
diff --git a/macros/latex/contrib/oberdiek/rotchiffre.dtx b/macros/latex/contrib/oberdiek/rotchiffre.dtx
index 7e9a9e980d..3023347fe1 100644
--- a/macros/latex/contrib/oberdiek/rotchiffre.dtx
+++ b/macros/latex/contrib/oberdiek/rotchiffre.dtx
@@ -66,8 +66,6 @@
% Installation:
% TDS:tex/generic/oberdiek/rotchiffre.sty
% TDS:doc/latex/oberdiek/rotchiffre.pdf
-% TDS:doc/latex/oberdiek/test/rotchiffre-test1.tex
-% TDS:doc/latex/oberdiek/test/rotchiffre-test2.tex
% TDS:source/latex/oberdiek/rotchiffre.dtx
%
%<*ignore>
@@ -139,10 +137,6 @@ and the derived files
% \usedir{doc/latex/oberdiek/test}%
% \file{rotchiffre-test1.tex}{\from{rotchiffre.dtx}{test1}}%
% \file{rotchiffre-test2.tex}{\from{rotchiffre.dtx}{test2}}%
- \nopreamble
- \nopostamble
-% \usedir{source/latex/oberdiek/catalogue}%
-% \file{rotchiffre.xml}{\from{rotchiffre.dtx}{catalogue}}%
}
\catcode32=13\relax% active space
@@ -181,21 +175,6 @@ and the derived files
% \fi
%
%
-% \CharacterTable
-% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
-% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
-% Digits \0\1\2\3\4\5\6\7\8\9
-% Exclamation \! Double quote \" Hash (number) \#
-% Dollar \$ Percent \% Ampersand \&
-% Acute accent \' Left paren \( Right paren \)
-% Asterisk \* Plus \+ Comma \,
-% Minus \- Point \. Solidus \/
-% Colon \: Semicolon \; Less than \<
-% Equals \= Greater than \> Question mark \?
-% Commercial at \@ Left bracket \[ Backslash \\
-% Right bracket \] Circumflex \^ Underscore \_
-% Grave accent \` Left brace \{ Vertical bar \|
-% Right brace \} Tilde \~}
%
% \GetFileInfo{rotchiffre.drv}
%
@@ -719,412 +698,7 @@ and the derived files
\RotCh@AtEnd%
%</package>
% \end{macrocode}
-%
-% \section{Test}
-%
-% \subsection{Catcode checks for loading}
-%
-% \begin{macrocode}
-%<*test1>
-% \end{macrocode}
-% \begin{macrocode}
-\catcode`\{=1 %
-\catcode`\}=2 %
-\catcode`\#=6 %
-\catcode`\@=11 %
-\expandafter\ifx\csname count@\endcsname\relax
- \countdef\count@=255 %
-\fi
-\expandafter\ifx\csname @gobble\endcsname\relax
- \long\def\@gobble#1{}%
-\fi
-\expandafter\ifx\csname @firstofone\endcsname\relax
- \long\def\@firstofone#1{#1}%
-\fi
-\expandafter\ifx\csname loop\endcsname\relax
- \expandafter\@firstofone
-\else
- \expandafter\@gobble
-\fi
-{%
- \def\loop#1\repeat{%
- \def\body{#1}%
- \iterate
- }%
- \def\iterate{%
- \body
- \let\next\iterate
- \else
- \let\next\relax
- \fi
- \next
- }%
- \let\repeat=\fi
-}%
-\def\RestoreCatcodes{}
-\count@=0 %
-\loop
- \edef\RestoreCatcodes{%
- \RestoreCatcodes
- \catcode\the\count@=\the\catcode\count@\relax
- }%
-\ifnum\count@<255 %
- \advance\count@ 1 %
-\repeat
-
-\def\RangeCatcodeInvalid#1#2{%
- \count@=#1\relax
- \loop
- \catcode\count@=15 %
- \ifnum\count@<#2\relax
- \advance\count@ 1 %
- \repeat
-}
-\def\RangeCatcodeCheck#1#2#3{%
- \count@=#1\relax
- \loop
- \ifnum#3=\catcode\count@
- \else
- \errmessage{%
- Character \the\count@\space
- with wrong catcode \the\catcode\count@\space
- instead of \number#3%
- }%
- \fi
- \ifnum\count@<#2\relax
- \advance\count@ 1 %
- \repeat
-}
-\def\space{ }
-\expandafter\ifx\csname LoadCommand\endcsname\relax
- \def\LoadCommand{\input rotchiffre.sty\relax}%
-\fi
-\def\Test{%
- \RangeCatcodeInvalid{0}{47}%
- \RangeCatcodeInvalid{58}{64}%
- \RangeCatcodeInvalid{91}{96}%
- \RangeCatcodeInvalid{123}{255}%
- \catcode`\@=12 %
- \catcode`\\=0 %
- \catcode`\%=14 %
- \LoadCommand
- \RangeCatcodeCheck{0}{36}{15}%
- \RangeCatcodeCheck{37}{37}{14}%
- \RangeCatcodeCheck{38}{47}{15}%
- \RangeCatcodeCheck{48}{57}{12}%
- \RangeCatcodeCheck{58}{63}{15}%
- \RangeCatcodeCheck{64}{64}{12}%
- \RangeCatcodeCheck{65}{90}{11}%
- \RangeCatcodeCheck{91}{91}{15}%
- \RangeCatcodeCheck{92}{92}{0}%
- \RangeCatcodeCheck{93}{96}{15}%
- \RangeCatcodeCheck{97}{122}{11}%
- \RangeCatcodeCheck{123}{255}{15}%
- \RestoreCatcodes
-}
-\Test
-\csname @@end\endcsname
-\end
-% \end{macrocode}
-% \begin{macrocode}
-%</test1>
-% \end{macrocode}
-%
-% \subsection{Macro tests}
-%
-% \subsubsection{Preamble}
-%
-% \begin{macrocode}
-%<*test2>
-\catcode`\{=1 %
-\catcode`\}=2 %
-\catcode`\#=6 %
-\catcode`\^=7 %
-\font\rmfont=ec-lmtt10\relax
-\rmfont
-\showboxbreadth=10000 %
-\showboxdepth=10000 %
-\errorcontextlines=10000
-\begingroup\expandafter\expandafter\expandafter\endgroup
-\expandafter\ifx\csname RequirePackage\endcsname\relax
- \input rotchiffre.sty\relax
-\else
- \RequirePackage{rotchiffre}[2016/05/16]%
- \RequirePackage{ifluatex}[2010/03/01]%
- \RequirePackage{ifxetex}[2010/09/12]%
-\fi
-\catcode`\@=11 %
-\begingroup\expandafter\expandafter\expandafter\endgroup
-\expandafter\ifx\csname @onelevel@sanitize\endcsname\relax
- \begingroup\expandafter\expandafter\expandafter\endgroup
- \expandafter\ifx\csname detokenize\endcsname\relax
- \def\strip@prefix#1->{}%
- \def\@onelevel@sanitize#1{%
- \edef#1{%
- \expandafter\strip@prefix\meaning#1%
- }%
- }%
- \else
- \def\@onelevel@sanitize#1{%
- \edef#1{%
- \detokenize\expandafter{#1}%
- }%
- }%
- \fi
-\fi
-\def\msg#{\immediate\write16}
-\def\empty{}
-\begingroup
- \def\x#1{%
- \def\space{#1}%
- \def\spacesII{#1#1}%
- \def\spacesIII{#1#1#1}%
- \def\spacesIV{#1#1#1#1}%
- }%
-\expandafter\endgroup\x{ }
-% \end{macrocode}
-% \begin{macrocode}
-\def\PrintStr#1#2{%
- \begingroup
- \@onelevel@sanitize#2%
- \msg{#1: [#2]}% hash-ok
- \endgroup
-}
-\def\CheckResult{%
- \PrintStr{Result}\StrResult
- \ifx\StrExpect\StrResult
- \msg{==> Ok}%
- \else
- \begingroup
- \edef\x{\endgroup
- \errmessage{Test failed (\chiffre)!}%
- }\x
- \fi
-}
-\long\def\test#1#2{%
- \msg{}%
- \begingroup
- \setbox0=\hbox{%
- \edef\StrInput{#1}%
- \@onelevel@sanitize\StrInput
- \PrintStr{ Input}\StrInput
- \edef\StrExpect{#2}%
- \@onelevel@sanitize\StrExpect
- \PrintStr{Expect}\StrExpect
- \action{#1}%
- \CheckResult
- }%
- \ifdim\wd0=0pt %
- \else
- \showbox0 %
- \fi
- \endgroup
-}
-\def\cmd#1{%
- \msg{* CMD: ROT#1}%
- \def\chiffre{ROT#1}%
- \def\action{\EdefRot{#1}\StrResult}%
-}
-% \end{macrocode}
-% \begin{macrocode}
-\def\TestIgnore#1{%
- \test{#1}{#1}%
-}
-\begingroup
- \lccode`\P=`\%%
- \lccode`\B=`\\%
- \lccode`\H=`\#%
-\lowercase{\endgroup
- \def\PercentChar{P}%
- \def\BackslashChar{B}%
- \def\HashChar{H}%
-}
-\def\TestI{%
- \TestIgnore{%
- \space!"\HashChar$\PercentChar&'()*+,-./%
- :;<=>?@%
- [\BackslashChar]^_`%
- \string{|\string}\string~%
- }%
-}
-\begingroup
- \catcode0=12 %
- \lccode`A=1 %
- \lccode`B=2 %
- \lccode`C=3 %
- \lccode`D=4 %
- \lccode`E=5 %
- \lccode`F=6 %
- \lccode`G=7 %
- \lccode`H=8 %
- \lccode`I=9 %
- \lccode`J=10 %
- \lccode`K=11 %
- \lccode`L=12 %
- \lccode`M=13 %
- \lccode`N=14 %
- \lccode`O=15 %
- \lccode`P=16 %
- \lccode`Q=17 %
- \lccode`R=18 %
- \lccode`S=19 %
- \lccode`T=20 %
- \lccode`U=21 %
- \lccode`V=22 %
- \lccode`W=23 %
- \lccode`X=24 %
- \lccode`Y=25 %
- \lccode`Z=26 %
- \lccode`a=27 %
- \lccode`b=28 %
- \lccode`c=29 %
- \lccode`d=30 %
- \lccode`e=31 %
- \lccode`f=127 %
- \lccode`g=128 %
- \lccode`h=129 %
- \lccode`y=254 %
- \lccode`z=255 %
-\lowercase{\endgroup
- \def\TestC{%
- \TestIgnore{%
- ^^@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefhyz%
- }%
- }%
- \def\TestZ{%
- \TestIgnore{^^@}%
- }%
-}
-% \end{macrocode}
-%
-% \subsubsection{ROT13}
-%
-% \begin{macrocode}
-\cmd{13}
-\test{%
- 0123456789%
- ABCDEFGHIJKLMNOPQRSTUVWXYZ%
- abcdefghijklmnopqrstuvwxyz%
-}{%
- 0123456789%
- NOPQRSTUVWXYZABCDEFGHIJKLM%
- nopqrstuvwxyzabcdefghijklm%
-}
-\TestI
-\TestC
-\test{}{}
-\test{A}{N}
-\test{N}{A}
-\test{ }{ }
-\test{0a}{0n}
-\test{\spacesIV}{\spacesIV}
-\test{{}}{{}}
-\test{\par}{\noexpand\cne}
-% \end{macrocode}
-%
-% \subsubsection{ROT5}
-%
-% \begin{macrocode}
-\cmd{5}
-\test{%
- 0123456789%
- ABCDEFGHIJKLMNOPQRSTUVWXYZ%
- abcdefghijklmnopqrstuvwxyz%
-}{%
- 5678901234%
- ABCDEFGHIJKLMNOPQRSTUVWXYZ%
- abcdefghijklmnopqrstuvwxyz%
-}
-\TestI
-\TestC
-% \end{macrocode}
-%
-% \subsubsection{ROT18}
-%
-% \begin{macrocode}
-\cmd{18}
-\test{%
- ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789%
- abcdefghijklmnopqrstuvwxyz%
-}{%
- STUVWXYZ0123456789ABCDEFGHIJKLMNOPQR%
- nopqrstuvwxyzabcdefghijklm%
-}
-\TestI
-\TestC
-% \end{macrocode}
-%
-% \subsubsection{ROT47}
-%
-% \begin{macrocode}
-\cmd{47}
-\test{%
- !"\HashChar$\PercentChar&'()*+,-./%
- 0123456789%
- :;<=>?@%
- ABCDEFGHIJKLMNOPQRSTUVWXYZ%
- [\BackslashChar]^_`%
- abcdefghijklmnopqrstuvwxyz%
- \string{|\string}\string~%
-}{%
- PQRSTUVWXYZ%
- [\BackslashChar]^_`%
- abcdefghijklmnopqrstuvwxyz%
- \string{|\string}\string~%
- !"\HashChar$\PercentChar&'()*+,-./%
- 0123456789%
- :;<=>?@%
- ABCDEFGHIJKLMNO%
-}
-\TestZ
-\TestC
-% \end{macrocode}
-%
-% \subsubsection{Big chars}
-%
-% \begin{macrocode}
-\chardef\temp=0 %
-\begingroup\expandafter\expandafter\expandafter\endgroup
-\expandafter\ifx\csname XeTeXrevision\endcsname\relax
- \begingroup\expandafter\expandafter\expandafter\endgroup
- \expandafter\ifx\csname RequirePackage\endcsname\relax
- \input ifluatex.sty\relax
- \else
- \RequirePackage{ifluatex}[2010/03/01]%
- \fi
- \begingroup\expandafter\expandafter\expandafter\endgroup
- \expandafter\ifx\csname luatexversion\endcsname\relax
- \else
- \chardef\temp=1 %
- \fi
-\else
- \chardef\temp=1 %
-\fi
-\ifcase\temp
- \csname @@end\expandafter\endcsname\expandafter\end
-\fi
-% \end{macrocode}
-% \begin{macrocode}
-\msg{* Big chars}
-\cmd{5}
-\test{}{}
-\test{ }{ }
-\test{ 0 1 }{ 5 6 }
-\begingroup
- \lccode`A=300 %
- \lccode`B=1000 %
- \lccode`C=10000 %
-\lowercase{\endgroup
- \TestIgnore{ABC}%
- \TestIgnore{x A By zC xAy AxB}%
-}%
-% \end{macrocode}
-% \begin{macrocode}
-\csname @@end\endcsname\end
-%</test2>
-% \end{macrocode}
-%
-% \section{Installation}
+%% \section{Installation}
%
% \subsection{Download}
%
@@ -1173,8 +747,6 @@ and the derived files
% \begin{tabular}{@{}>{\ttfamily}l@{ $\rightarrow$ }>{\ttfamily}l@{}}
% rotchiffre.sty & tex/generic/oberdiek/rotchiffre.sty\\
% rotchiffre.pdf & doc/latex/oberdiek/rotchiffre.pdf\\
-% test/rotchiffre-test1.tex & doc/latex/oberdiek/test/rotchiffre-test1.tex\\
-% test/rotchiffre-test2.tex & doc/latex/oberdiek/test/rotchiffre-test2.tex\\
% rotchiffre.dtx & source/latex/oberdiek/rotchiffre.dtx\\
% \end{tabular}^^A
% }^^A