% Konvertierung von Amiga Sonderzeichen in TeX 3.0
% J\"org H\"ohle, Okt. 90
%
% ! Diese Datei enthaelt nicht-ASCII Zeichen (ae oe ue sz usw.),
%   die manche Datenübertragung nicht überleben werden.
%   Mit TeX3.0 koennte man all diese Zeichen mit ^^nn umschreiben
%
% Nicht vergessen: Eine Datei, die Amiga Sonderzeichen enthält, ist
% nicht mehr auf andere Systeme portierbar !

%deutsch
\lccode`ä=`ä \uccode`ä=`Ä
\lccode`Ä=`ä \uccode`Ä=`Ä
\lccode`ö=`ö \uccode`ö=`Ö
\lccode`Ö=`ö \uccode`Ö=`Ö
\lccode`ü=`ü \uccode`ü=`Ü
\lccode`Ü=`ü \uccode`Ü=`Ü
%\lccode`ß=`ß \uccode`ß=0% besser wäre `SS'

%français, les \uccode posent problème !
%\lccode`à=`à \uccode`à=`A
%\lccode`ç=`ç \uccode`ç=`C
%\lccode`é=`é \uccode`é=`E
%\lccode`ê=`ê \uccode`ê=`E
%\lccode`ë=`ë \uccode`ë=`E
%\lccode`î=`î \uccode`î=`I
%\lccode`ï=`ï \uccode`ï=`I
%\lccode`ô=`ô \uccode`ô=`O
%\lccode`ù=`ù \uccode`ù=`U
%\lccode`û=`û \uccode`û=`U

%other
%\lccode`°=`° \uccode`°=0
%%\lccode`¶=`¶ \uccode`¶=0
%\lccode`©=`© \uccode`©=0
%\lccode`§=`§ \uccode`§=0
%\lccode`£=`£ \uccode`£=0

% support for  æ Æ ¡¿ øØ å ?

% These are very short definitions, they do NOT work in math mode
% (\ss does not work in math mode either):

\catcode`ä=\active \edef ä{\"a}
\catcode`ö=\active \edef ö{\"o}
\catcode`ü=\active \edef ü{\"u}
\catcode`Ä=\active \edef Ä{\"A}
\catcode`Ö=\active \edef Ö{\"O}
\catcode`Ü=\active \edef Ü{\"U}
\catcode`ß=\active \edef ß{\ss}

\catcode`à=\active \edef à{\`a}
\catcode`â=\active \edef â{\^a}
\catcode`ç=\active  \def ç{\c c}
\catcode`é=\active \edef é{\'e}
\catcode`è=\active \edef è{\`e}
\catcode`ê=\active \edef ê{\^e}
\catcode`ë=\active \edef ë{\"e}
\catcode`î=\active \edef î{\^\i}
\catcode`ï=\active \edef ï{\"\i}
\catcode`ô=\active \edef ô{\^o}
\catcode`ù=\active \edef ù{\`u}
\catcode`û=\active \edef û{\^u}

% These are alternate definitions that take A LOT OF (main)memory space:

%% (Schreibweise "707F vermeiden, wenn " umdefiniert (german.sty/tex))
%\catcode`ä=\active \def ä{\ifmmode\mathaccent'70177 a\else\"a\fi}
%\catcode`ö=\active \def ö{\ifmmode\mathaccent'70177 o\else\"o\fi}
%\catcode`ü=\active \def ü{\ifmmode\mathaccent'70177 u\else\"u\fi}
%\catcode`Ä=\active \def Ä{\ifmmode\mathaccent'70177 A\else\"A\fi}
%\catcode`Ö=\active \def Ö{\ifmmode\mathaccent'70177 O\else\"O\fi}
%\catcode`Ü=\active \def Ü{\ifmmode\mathaccent'70177 U\else\"U\fi}
%
%%KLUDGE in mathmode nicht zufriedenstellend, besser \char'31 aus cmti:
%\catcode`ß=\active \def ß{\ifmmode\char'03\else\ss\fi}
%
%\catcode`à=\active \def à{\ifmmode\grave a\else\`a\fi}
%\catcode`â=\active \def â{\ifmmode\hat   a\else\^a\fi}
%%KLUDGE \mathaccent'70030 c ne produit rien d'acceptable !
%\catcode`ç=\active \def ç{\ifmmode c\else\c c\fi}
%\catcode`é=\active \def é{\ifmmode\acute e\else\'e\fi}
%\catcode`è=\active \def è{\ifmmode\grave e\else\`e\fi}
%\catcode`ê=\active \def ê{\ifmmode\hat   e\else\^e\fi}
%\catcode`ë=\active \def ë{\ifmmode\ddot  e\else\"e\fi}
%%KLUDGE \i n'existe pas en mathmode, mieux vaudrait prendre \char'20
%% dans cmti. Ici c'est \iota qui a été pris.
%\catcode`î=\active \def î{\ifmmode\hat \mathchar'423\else\^\i\fi}
%\catcode`ï=\active \def ï{\ifmmode\ddot\mathchar'423\else\"\i\fi}
%\catcode`ô=\active \def ô{\ifmmode\hat   o\else\^o\fi}
%\catcode`ù=\active \def ù{\ifmmode\grave u\else\`u\fi}
%\catcode`û=\active \def û{\ifmmode\hat   u\else\^u\fi}

% the following chars are useable in LaTeX only, and not in mathmode
\catcode`°=\active \edef °{\char'027}
%\catcode`¶=\active \def ¶{\P}
\catcode`©=\active \def ©{\copyright}
\catcode`§=\active \def §{\S}
\catcode`£=\active \def £{\pounds}