|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T c
Length: 1709 (0x6ad)
Types: TextFile
Names: »charsubmacros.tex«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦23cd347d5⟧ »unix3.0/babel.tar.Z«
└─⟦2fb9f645a⟧
└─⟦this⟧ »babel/inrs-tex/charsubmacros.tex«
% compatability macros for multilingual and extened TeX 2.992 plus
% assumes the existence of \charsublist
% #1 -- extended character to be exchanged
% #2 -- accent macro invocation letter
% #3 -- base character for this code
\def\csubinverse #1#2#3{\expandafter\def\csname #2#3\endcsname{#1}}
\catcode`\@=11
\def\i{^^P}
% ... test case
\def\'#1{{\expandafter\ifx\csname '#1\endcsname\relax
{\accent19 #1}\else\csname '#1\endcsname\fi}}
\def\`#1{{\expandafter\ifx\csname `#1\endcsname\relax
{\accent18 #1}\else\csname `#1\endcsname\fi}}
\def\v#1{{\expandafter\ifx\csname v#1\endcsname\relax
{\accent20 #1}\else\csname v#1\endcsname\fi}}
\let\^^_=\v
\def\u#1{{\expandafter\ifx\csname u#1\endcsname\relax
{\accent21 #1}\else\csname u#1\endcsname\fi}}
\let\^^S=\u
\def\=#1{{\expandafter\ifx\csname =#1\endcsname\relax
{\accent22 #1}\else\csname =#1\endcsname\fi}}
\def\^#1{{\expandafter\ifx\csname^#1\endcsname\relax
{\accent94 #1}\else\csname^#1\endcsname\fi}}
\let\^^D=\^
\def\.#1{{\expandafter\ifx\csname .#1\endcsname\relax
{\accent95 #1}\else\csname .#1\endcsname\fi}}
\def\H#1{{\expandafter\ifx\csname H#1\endcsname\relax
{\accent'175 #1}\else\csname H#1\endcsname\fi}}
\def\~#1{{\expandafter\ifx\csname @til@#1\endcsname\relax
{\accent'176 #1}\else\csname @til@#1\endcsname\fi}}
\def\"#1{{\expandafter\ifx\csname @um@#1\endcsname\relax
{\accent'177 #1}\else\csname @um@#1\endcsname\fi}}
\let\c@@=\c
\def\c#1{{\expandafter\ifx\csname c@#1\endcsname\relax
\c@@\else\csname c@#1\endcsname\fi}}
% test form for accents ...
\def\aa{\accent23a}