% OFS: Declaration of CS-fonts encoding
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Jun 2001                   Petr Olsak

% See ofsdoc.tex manual for more details.
% This file is a part of the OFS macro package by Petr Olsak.

\expandafter \ifx \csname enc:ofs-8z\endcsname \relax \else \endinput \fi
\expandafter \def \csname enc:ofs-8z\endcsname {}

\ifx \characterdef \undefined \input ofs \fi

\fontmessage {\ofsmessageheader 
   Characters + accents of 8z encoding defined.}

%%% Default accents

\accentdef  \` *    8z  {\accent 18 }                   % grave
\accentdef  \' *    8z  {\accent 19 }                   % acute
\accentdef  \v *    8z  {\accent 20 }                   % caron
\accentdef  \u *    8z  {\accent 21 }                   % breve
\accentdef  \= *    8z  {\accent 22 }                   % macron
\accentdef  \r *    8z  {\accent 23 }                   % ring
\accentdef  \^ *    8z  {\accent 94 }                   % circumflex
\accentdef  \. *    8z  {\accent 95 }                   % dot-accent
\accentdef  \H *    8z  {\accent 125 }                  % hungar-umlaut
\accentdef  \~ *    8z  {\accent 126 }                  % tilde
\accentdef  \" *    8z  {\accent 127 }                  % dieresis
\accentdef  \c *    8z  {\accentbelow {\char24}{0pt}}   % cedilla
\accentdef  \k *    8z  {\accentbelow {\char157}{0pt}}  % ogonek
\accentdef  \m *    8z  {\accentbelow {,}{.1ex}}        % comma-accent
\accentdef  \b *    8z  {\accentbelow {\char22}{.15ex}} % underscore
\accentdef  \d *    8z  {\accentbelow {.}{.1ex}}        % dot below

%%% Standard characters in plain (redefined here)

\def\aa{\r a} 
\def\AA{\r A}

\characterdef \i    8z  16 
\characterdef \j    8z  17
\characterdef \SS   8z  {SS}
\characterdef \AE   8z  29
\characterdef \OE   8z  30
\characterdef \O    8z  31 
\characterdef \ss   8z  25
\characterdef \ae   8z  26
\characterdef \oe   8z  27
\characterdef \o    8z  28 

%%% Extra characters from CS-fonts

\characterdef \promile      8z  141
\characterdef \varhyphen    8z  156
\characterdef \flqq         8z  158
\characterdef \frqq         8z  159
\characterdef \clqq         8z  254
\characterdef \crqq         8z  255
\characterdef \elqq         8z  92
\characterdef \erqq         8z  34
\characterdef \elq          8z  `\`
\characterdef \erq          8z  `\'
\characterdef \exclamdown   8z  60
\characterdef \questiondown 8z  62

%%% Extra characters defined in XL2Encoding vector by Z. Wagner

\characterdef \ellipsis    8z  128
\characterdef \dag         8z  129
\characterdef \ddag        8z  130
\characterdef \textbullet  8z  131
\characterdef \pound       8z  132  \let\sterling=\pound
\characterdef \P           8z  133
\characterdef \currency    8z  164
\characterdef \S           8z  167
\characterdef \L           8z  163
\characterdef \l           8z  179
\characterdef \Eth         8z  208
\characterdef \eth         8z  240
\characterdef \texttimes   8z  215
\characterdef \textdiv     8z  247

%%% Accented letters from CS fonts

\accentdef  \` A      8z  152
\accentdef  \' A      8z  193
\accentdef  \" A      8z  196
\accentdef  \` a      8z  184
\accentdef  \' a      8z  225
\accentdef  \" a      8z  228
\accentdef  \v C      8z  200
\accentdef  \v c      8z  232
\accentdef  \v D      8z  207
\accentdef  \v d      8z  239
\accentdef  \' E      8z  201
\accentdef  \v E      8z  204
\accentdef  \' e      8z  233
\accentdef  \v e      8z  236
\accentdef  \' I      8z  205
\accentdef  \' i      8z  237
\accentdef  \' {\i}   8z  237
\accentdef  \v L      8z  165
\accentdef  \' L      8z  197
\accentdef  \v l      8z  181
\accentdef  \' l      8z  229
\accentdef  \v N      8z  210
\accentdef  \v n      8z  242
\accentdef  \' O      8z  211
\accentdef  \^ O      8z  212
\accentdef  \" O      8z  214
\accentdef  \' o      8z  243
\accentdef  \^ o      8z  244
\accentdef  \" o      8z  246
\accentdef  \' R      8z  192
\accentdef  \v R      8z  216
\accentdef  \' r      8z  224
\accentdef  \v r      8z  248
\accentdef  \v S      8z  169
\accentdef  \v s      8z  185
\accentdef  \v T      8z  171
\accentdef  \v t      8z  187
\accentdef  \r U      8z  217
\accentdef  \' U      8z  218
\accentdef  \" U      8z  220
\accentdef  \r u      8z  249
\accentdef  \' u      8z  250
\accentdef  \" u      8z  252
\accentdef  \' Y      8z  221
\accentdef  \' y      8z  253
\accentdef  \v Z      8z  174
\accentdef  \v z      8z  190

%%% Accented letters added in XL2Encoding vector by Z. Wagner

\accentdef  \k A      8z  161
\accentdef  \^ A      8z  194
\accentdef  \u A      8z  195
\accentdef  \k a      8z  177
\accentdef  \^ a      8z  226
\accentdef  \u a      8z  227
\accentdef  \' C      8z  198
\accentdef  \c C      8z  199
\accentdef  \' c      8z  230
\accentdef  \c c      8z  231
\accentdef  \k E      8z  202
\accentdef  \" E      8z  203
\accentdef  \k e      8z  234
\accentdef  \" e      8z  235
\accentdef  \^ I      8z  206
\accentdef  \^ i      8z  238
\accentdef  \^ {\i}   8z  238
\accentdef  \' N      8z  209
\accentdef  \' n      8z  241
\accentdef  \H O      8z  213
\accentdef  \H o      8z  245
\accentdef  \' S      8z  166
\accentdef  \c S      8z  170
\accentdef  \' s      8z  182
\accentdef  \c s      8z  186
\accentdef  \c T      8z  222
\accentdef  \c t      8z  189
\accentdef  \H U      8z  219
\accentdef  \H u      8z  251
\accentdef  \' Z      8z  172
\accentdef  \. Z      8z  175
\accentdef  \' z      8z  188
\accentdef  \. z      8z  191

%%% Macros for quotes

\def\doubleuv#1{\clqq#1\crqq}
\def\doublefuv#1{\frqq#1\flqq}
\def\doubleauv#1{\elqq#1\erqq}
\def\singleauv#1{\elq#1\erq}
\let\uv=\doubleuv  
\let\fuv=\doublefuv
\let\auv=\doubleauv