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

% See ofsdoc.tex manual for more details.

\ifx \characterdef \undefined \input ofs \fi
\protectreading ofs-8z.tex % This is part of OFS package

\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 \dotlessi    8z  16 
\characterdef \dotlessj    8z  17
\let\i=\dotlessi  \let\j=\dotlessj

\accentdef \" i     8z  {\accent 127 \dotlessi}
\accentdef \" {\i}  8z  {\accent 127 \dotlessi}

\let\SS=\relax \let\AE=\relax \let\OE=\relax \let\O=\relax
\characterdef \SS   8z  {SS}
\characterdef \AE   8z  29
\characterdef \OE   8z  30
\characterdef \O    8z  31 

\let\ss=\relax \let\ae=\relax \let\oe=\relax \let\o=\relax
\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

\let\promile=\relax
\characterdef \promile      8z  141
\characterdef \varhyphen    8z  156

\let\flqq=\relax \let\frqq=\relax 
\characterdef \flqq         8z  158
\characterdef \frqq         8z  159

\let\clqq=\relax \let\crqq=\relax
\characterdef \clqq         8z  254
\characterdef \crqq         8z  255
\characterdef \clq          8z  `\,
\characterdef \crq          8z  `\`

\let\elqq=\relax \let\erqq=\relax \let\elq=\relax \let\erq=\relax
\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

\let\dag=\relax \let\ddag=\relax
\characterdef \dag         8z  129
\characterdef \ddag        8z  130

\characterdef \section     8z  167   \let\S=\section
\characterdef \paragraph   8z  133   \let\P=\paragraph
\characterdef \ellipsis    8z  128
\characterdef \textbullet  8z  131
\characterdef \sterling    8z  132   \let\pound=\sterling  
\characterdef \currency    8z  164
\characterdef \Lslash      8z  163   \let\L=\Lslash  
\characterdef \lslash      8z  179   \let\l=\lslash
\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

%%% 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 \Lslash      8z  163
   \characterdef \Lslash      8z  {\plainL}
   \characterdel \lslash      8z  179
   \characterdef \lslash      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  \^ ^^10   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 \Lslash      8z  163
   \characterdel \lslash      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 \dotelssj   8z  17
   \characterdel \texttimes  8z  215
   \characterdel \textdiv    8z  247
}   

%%% 

\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
   \def\lccodesback {\zerolccodes^^80^^ff}%
}

\endinput %%% the following macros will be included in LANG style files

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

