diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:46:03 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:46:03 +0000 |
commit | 873660d1a83ece926fe7206288dda9c36b349c1b (patch) | |
tree | a48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/enctex/encmacro.tex | |
parent | 2939242967231097459df0fc3150fabc2f639111 (diff) |
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/enctex/encmacro.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/enctex/encmacro.tex | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/enctex/encmacro.tex b/Master/texmf-dist/tex/generic/enctex/encmacro.tex new file mode 100644 index 00000000000..f992ebb708d --- /dev/null +++ b/Master/texmf-dist/tex/generic/enctex/encmacro.tex @@ -0,0 +1,31 @@ +%%% EncTeX, Macros for encoding tables, v.Aug.1998 (C) Petr Ol\v s\'ak + +\ifnum\catcode`\#=12 % This file is loaded before format in iniTeX: + \catcode`\{=1 \catcode`\}=2 \catcode`\$=3 \catcode`\&=4 + \catcode`\#=6 \catcode`\^=7 \catcode`\_=8 \catcode`\^^I=10 + \catcode`\~=13 +\fi + +\ifx\xordcode\undefined + \errmessage{Sorry: the encTeX extension is not detected} + \def\xordcode#1=#2 {} \let\xchrcode=\xordcode \let\xprncode=\xordcode \fi +\def\setcharcode #1 #2 #3 #4 #5 #6 #7 {% + \if ?#1\else \xordcode#1=#2 \xchrcode#2=#1 \fi + \count255=#2 + \lccode#2=#3 \uccode#2=#4 \sfcode#2=#5 \catcode#2=#6 \xprncode#2=#7 } +\catcode0=13 +\def\expandto {\bgroup \uccode0=\count255 \uppercase{\egroup \def^^@}} +\catcode0=12 +\def\texmacro #1{\bgroup \uccode0=\count255 \uppercase{\egroup \def #1{^^@}}} +\def\texaccent #1#2{\bgroup \uccode0=\count255 \uccode`#2=`#2 + \uppercase{\egroup + \expandafter\def\csname\string#1\string#2\endcsname{^^@}}} +\def\savexchr{\xchrcode\count255=\count255 } +\def\redefaccent#1{\expandafter\let\csname\string#1-ori\endcsname=#1 + \def#1##1{\ifx\hsize##1\hsize \csname\string#1-ori\endcsname {}% 08.1998 + \else \expandafter\ifx + \csname\string#1\string##1\endcsname \relax + \csname\string#1-ori\endcsname ##1% + \else \csname\string#1\string##1\endcsname \fi\fi}} + + |