CCL Home Page
Up Directory CCL plcork.sty
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 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

Modified: Sat Feb 26 17:00:00 1994 GMT
Page accessed 5435 times since Sun Apr 16 14:51:55 2000 GMT