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

% 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 
\characterdef \ellipsis 8z {\dots}

%%% Characters available only in math fonts

%\characterdef \dag        8z  {\ofshexbox279}
%\characterdef \ddag       8z  {\ofshexbox27A}
%\characterdef \section    8z  {\ofshexbox278}
%\characterdef \paragraph  8z  {\ofshexbox27B}
% defined as single characters in 8z by Z. Wagner 

%%% 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 \dag         8z  129
\characterdef \ddag        8z  130
\characterdef \section     8z  167
\characterdef \paragraph   8z  133
\characterdef \ellipsis    8z  128
\characterdef \textbullet  8z  131
\characterdef \sterling    8z  132  
\characterdef \currency    8z  164
\characterdef \L           8z  163
\characterdef \l           8z  179
\characterdef \Eth         8z  208
\characterdef \eth         8z  240
\characterdef \texttimes   8z  215
\characterdef \textdiv     8z  247

\let\pound=\sterling
\let\S=\section
\let\P=\paragraph

%%% 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

%%% Accents uavailable in CSfonts

%%% Characters unavailable in CSfonts :-(

\modifydef 8z:csfont; {%
   % available in 8c:
   \characterdel \dag         8z  129
   \characterdel \ddag        8z  130
   \characterdel \section     8z  167
   \characterdel \paragraph   8z  133
   \characterdel \textbullet  8z  131
   \characterdel \texttimes   8z  215
   \characterdel \sterling    8z  132  
   \characterdel \currency    8z  164
   \characterdel \textdiv     8z  247
   % unavailable in 8c nor 8z:
   \characterdel \Eth         8z  208
   \characterdel \eth         8z  240
   % unavailable in 8c, we can re-define these characters:
   \characterdel \L           8z  163
   \characterdef \L           8z  {\plainL}
   \characterdel \l           8z  179
   \characterdef \l           8z  {\char32l}
   \characterdel \ellipsis    8z  128
   \characterdef \ellipsis    8z  {\dots}
   % accents:
   \accentdel  \k A      8z  161
   \accentdel  \^ A      8z  194
   \accentdel  \u A      8z  195
   \accentdel  \k a      8z  177
   \accentdel  \^ a      8z  226
   \accentdel  \u a      8z  227
   \accentdel  \' C      8z  198
   \accentdel  \c C      8z  199
   \accentdel  \' c      8z  230
   \accentdel  \c c      8z  231
   \accentdel  \k E      8z  202
   \accentdel  \" E      8z  203
   \accentdel  \k e      8z  234
   \accentdel  \" e      8z  235
   \accentdel  \^ I      8z  206
   \accentdel  \^ i      8z  238
   \accentdel  \^ {\i}   8z  238
   \accentdel  \' N      8z  209
   \accentdel  \' n      8z  241
   \accentdel  \H O      8z  213
   \accentdel  \H o      8z  245
   \accentdel  \' S      8z  166
   \accentdel  \c S      8z  170
   \accentdel  \' s      8z  182
   \accentdel  \c s      8z  186
   \accentdel  \c T      8z  222
   \accentdel  \c t      8z  189
   \accentdel  \H U      8z  219
   \accentdel  \H u      8z  251
   \accentdel  \' Z      8z  172
   \accentdel  \. Z      8z  175
   \accentdel  \' z      8z  188
   \accentdel  \. z      8z  191
}

%%%% Cross for polish L is in TT fonts unavalable:

\modifydef 8z:nocrossL; {%
   \characterdel \L           8z  163
   \characterdel \l           8z  179
   \characterdef \spacechar   8z  32
}

%%% Times etc.:

\modifydef 8z:badaccents; {%
   \accentdel  \k A      8z  161
   \accentdel  \u A      8z  195
   \accentdel  \k a      8z  177
   \accentdel  \u a      8z  227
   \accentdel  \' C      8z  198
   \accentdel  \c C      8z  199
   \accentdel  \' c      8z  230
   \accentdel  \c c      8z  231
   \accentdel  \k E      8z  202
   \accentdel  \k e      8z  234
   \accentdel  \' N      8z  209
   \accentdel  \' n      8z  241
   \accentdel  \H O      8z  213
   \accentdel  \H o      8z  245
   \accentdel  \' S      8z  166
   \accentdel  \c S      8z  170
   \accentdel  \' s      8z  182
   \accentdel  \c s      8z  186
   \accentdel  \c T      8z  222
   \accentdel  \c t      8z  189
   \accentdel  \H U      8z  219
   \accentdel  \H u      8z  251
   \accentdel  \' Z      8z  172
   \accentdel  \. Z      8z  175
   \accentdel  \' z      8z  188
   \accentdel  \. z      8z  191
   %
   \characterdel \j      8z  17
}   

%%% 

\modifydef 8z:ienc; {%  For \ienc, see iencdoc.tex
   \skipfirststep
   \csname 8z:badaccents\endcsname
   \csname 8z:csfonts\endcsname
}

\modifydef 8z:lccodes; {%  For \setlang, see langdoc.tex
   \skipfirststep
   \lccodes ^^e1^^c1% a-acute 
   \lccodes ^^e4^^c4% a-diaeresis 
   \lccodes ^^e8^^c8% c-caron 
   \lccodes ^^ef^^cf% d-caron
   \lccodes ^^e9^^c9% e-acute 
   \lccodes ^^ec^^cc% e-caron 
   \lccodes ^^ed^^cd% i-acute 
   \lccodes ^^e5^^c5% l-acute
   \lccodes ^^b5^^a5% l-caron 
   \lccodes ^^f2^^d2% n-caron 
   \lccodes ^^f3^^d3% o-acute
   \lccodes ^^f4^^d4% o-circumflex
   \lccodes ^^f6^^d6% o-diaeresis 
   \lccodes ^^e0^^c0% r-acute 
   \lccodes ^^f8^^d8% r-caron 
   \lccodes ^^b9^^a9% s-caron
   \lccodes ^^bb^^ab% t-caron
   \lccodes ^^fa^^da% u-acute 
   \lccodes ^^f9^^d9% u-ring 
   \lccodes ^^fc^^dc% u-diaeresis
   \lccodes ^^fd^^dd% y-acute 
   \lccodes ^^be^^ae% z-caron 
   \lccodes ^^b1^^a1% a-ogonek
   \lccodes ^^e2^^c2% a-circumflex
   \lccodes ^^e3^^c3% a-breve
   \lccodes ^^e6^^c6% c-acute 
   \lccodes ^^e7^^c7% c-cedilla 
   \lccodes ^^ea^^ca% e-ogonek
   \lccodes ^^eb^^cb% e-dieresis
   \lccodes ^^ee^^ce% i-circumflex 
   \lccodes ^^f1^^d1% n-acute 
   \lccodes ^^f5^^d5% o-hungarumlaut
   \lccodes ^^b6^^a6% s-acute 
   \lccodes ^^ba^^aa% s-cedilla 
   \lccodes ^^de^^bd% t-cedilla
   \lccodes ^^fb^^db% u-hungarumlaut 
   \lccodes ^^bc^^ac% z-acute 
   \lccodes ^^bf^^af% z-dotaccatcent
}


%%% 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