% 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