diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/inrstex/inrstex/compatib.tex |
Initial commit
Diffstat (limited to 'macros/inrstex/inrstex/compatib.tex')
-rw-r--r-- | macros/inrstex/inrstex/compatib.tex | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/macros/inrstex/inrstex/compatib.tex b/macros/inrstex/inrstex/compatib.tex new file mode 100644 index 0000000000..c451240143 --- /dev/null +++ b/macros/inrstex/inrstex/compatib.tex @@ -0,0 +1,53 @@ +% 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} +\def\j{^^Q} + +% ... test case + +\def\'#1{{\expandafter\ifx\csname @ac@#1\endcsname\relax + {\accent19 #1}\else\csname @ac@#1\endcsname\fi}} +\def\`#1{{\expandafter\ifx\csname @gr@#1\endcsname\relax + {\accent18 #1}\else\csname @gr@#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 @eq@#1\endcsname\relax + {\accent22 #1}\else\csname @eq@#1\endcsname\fi}} +\def\^#1{{\expandafter\ifx\csname @hat@#1\endcsname\relax + {\accent94 #1}\else\csname @hat@#1\endcsname\fi}} +\let\^^D=\^ +\def\.#1{{\expandafter\ifx\csname @dot@#1\endcsname\relax + {\accent95 #1}\else\csname @dot@#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} + + |