%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PLCORK.STY
% wersja wstepna!
%
\def\diakryt#1{%\relax\leavevmode
\ifx a#1^^a1\else
\ifx A#1^^81\else
\ifx c#1^^a2\else
\ifx C#1^^82\else
\ifx e#1^^a6\else
\ifx E#1^^86\else
\ifx l#1^^aa\else
\ifx L#1^^8a\else
\ifx n#1^^ab\else
\ifx N#1^^8b\else
\ifx o#1^^f3\else
\ifx O#1^^d3\else
\ifx r#1^^bb\else
\ifx R#1^^9b\else
\ifx s#1^^b1\else
\ifx S#1^^91\else
\ifx z#1^^b9\else
\ifx Z#1^^99\else
\ifx '#1^^12\else
\ifx `#1^^11\else
\ifx /#1\myslash\else
\ifx (#1(\penalty10000\hskip0sp\relax\else
\ifx )#1)\penalty10000\hskip0sp\relax\else
\ifx -#1\curhyph\else
\errmessage{niepoprawna sekwencja: diakryt litera}
\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
\fi\fi\fi\fi\fi\fi}
%\def\pdiakryt{\protect\diakryt}
\catcode`"\active %\let"\pdiakryt
\let"\diakryt
\chardef\glqq='022
% MeX:
%\chardef\glqq=255
\chardef\grqq='021
% CM, MeX:
%\chardef\grqq='042
\chardef\glq='015
% CM, MeX:(przecinek)
%\chardef\glq='054
\chardef\grq='140
% CM, MeX:
%\chardef\grq='047
\chardef\flqq='023
% MeX:
%\chardef\flqq=174
\chardef\frqq='024
% MeX:
%\chardef\frqq=175
\chardef\flq='016
\chardef\frq='017
% end PLCORK.STY
|