% "DEF_UMLAUT.TEX"    definitions of "dirty" umlauts

\def\dirtyumlaut#1{\if#1A{\discretionary
{\kern 4321sp m\kern 196sp\kern-4517sp\kern-1em}{}{{\accent"7F A}}}\else
\if#1O{\discretionary
{\kern 4321sp m\kern 214sp\kern-4535sp\kern-1em}{}{{\accent"7F O}}}\else
\if#1U{\discretionary
{\kern 4321sp m\kern 220sp\kern-4541sp\kern-1em}{}{{\accent"7F U}}}\else
\if#1a{\discretionary
{\kern 4321sp m\kern 228sp\kern-4549sp\kern-1em}{}{{\accent"7F a}}}\else
\if#1o{\discretionary
{\kern 4321sp m\kern 246sp\kern-4567sp\kern-1em}{}{{\accent"7F o}}}\else
\if#1u{\discretionary
{\kern 4321sp m\kern 252sp\kern-4573sp\kern-1em}{}{{\accent"7F u}}}\else
\if#1s{%\discretionary  --- test
%{\kern 4321sp m\kern 255sp\kern-4573sp\kern-1em}{}
{\ss}}\else{{\accent"7F #1}}\fi\fi\fi\fi\fi\fi\fi}


\catcode`^^c4=11  % Ae
\catcode`^^d6=11  % Oe
\catcode`^^dc=11  % Ue
\catcode`^^e4=11  % ae
\catcode`^^f6=11  % oe
\catcode`^^fc=11  % ue
% \catcode`^^ff=11  % ss, sz

\lccode`^^c4=`^^e4  % Ae --> ae
\lccode`^^d6=`^^f6  % Oe --> oe
\lccode`^^dc=`^^fc  % Ue --> ue
\lccode`^^e4=`^^e4  % ae --> ae
\lccode`^^f6=`^^f6  % oe --> oe
\lccode`^^fc=`^^fc  % ue --> ue
% \lccode`^^ff=`^^ff  % ss, sz --> ss, sz

\uccode`^^c4=`^^c4  % Ae --> Ae
\uccode`^^d6=`^^d6  % Oe --> Oe
\uccode`^^dc=`^^dc  % Ue --> Ue
\uccode`^^e4=`^^c4  % ae --> Ae
\uccode`^^f6=`^^d6  % oe --> Oe
\uccode`^^fc=`^^dc  % ue --> Ue
% \uccode`^^ff=`^^ff  % ss, sz --> ss, sz   ? uccode`^^ff=`^^df


\catcode`^^Y=11  % ss,sz
\lccode`^^Y=`^^Y
\uccode`^^Y=`^^Y

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.