% OFS: Declaration of Cork (alias T1) encoding
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Jun 2001                          Petr Olsak
% Feb 2004

% See ofsdoc.tex manual for more details.

\protectreading ofs-8t.tex % This is part of OFS package

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

%%% Default accents

\accentdef  \` *    8t  {\accent 0 }               
\accentdef  \' *    8t  {\accent 1 }
\accentdef  \^ *    8t  {\accent 2 }
\accentdef  \~ *    8t  {\accent 3 }
\accentdef  \" *    8t  {\accent 4 }
\accentdef  \H *    8t  {\accent 5 }
\accentdef  \r *    8t  {\accent 6 }
\accentdef  \v *    8t  {\accent 7 }
\accentdef  \u *    8t  {\accent 8 }
\accentdef  \= *    8t  {\accent 9 }
\accentdef  \. *    8t  {\accent 10 }
\accentdef  \c *    8t  {\accentbelow {\char11}{0pt}}
\accentdef  \k *    8t  {\accentbelow {\char12}{0pt}}
\accentdef  \m *    8t  {\accentbelow {,}{.1ex}}
\accentdef  \b *    8t  {\accentbelow {\char9}{.15ex}}
\accentdef  \d *    8t  {\accentbelow {.}{.1ex}}

%%% Standard characters in plain (redefined here)

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

\characterdef \dotlessi    8t  25
\characterdef \dotlessj    8t  26
\let\i=\dotlessi  \let\j=\dotlessj

\let\SS=\relax \let\AE=\relax \let\OE=\relax \let\O=\relax
\characterdef \SS   8t  223
\characterdef \AE   8t  198
\characterdef \OE   8t  215
\characterdef \O    8t  216

\let\ss=\relax \let\ae=\relax \let\oe=\relax \let\o=\relax
\characterdef \ss   8t  255
\characterdef \ae   8t  230
\characterdef \oe   8t  247
\characterdef \o    8t  248

%%% Extra characters from Cork encoding

\let\promile=\relax
\characterdef \promile          8t {\%\char 24 }        
\characterdef \pertenthousand   8t {\%\char 24\char 24 } 

\characterdef \Eth      8t  208
\characterdef \NG       8t  141
\characterdef \Thorn    8t  222
\characterdef \eth      8t  240
\characterdef \ng       8t  173
\characterdef \thorn    8t  254
\characterdef \Lslash   8t  138   \let\L=\Lslash
\characterdef \lslash   8t  170   \let\l=\lslash

\let\flqq=\relax \let\frqq=\relax \let\flq=\relax \let\frq=\relax 
\characterdef \flqq     8t  19
\characterdef \frqq     8t  20
\characterdef \flq      8t  14
\characterdef \frq      8t  15

\let\clqq=\relax \let\crqq=\relax \let\clq=\relax \let\crq=\relax 
\characterdef \clqq     8t  18
\characterdef \crqq     8t  16
\characterdef \clq      8t  13
\characterdef \crq      8t  `\`

\let\elqq=\relax \let\erqq=\relax \let\elq=\relax \let\erq=\relax
\characterdef \elqq     8t  16
\characterdef \erqq     8t  17
\characterdef \elq      8t  `\`
\characterdef \erq      8t  `\'

\characterdef \asciicircum      8t  `\^
\characterdef \asciitilde       8t  `\~
\characterdef \textbackslash    8t  `\\
\characterdef \fullbar          8t  `\|
\characterdef \textbraceleft    8t  `\{ 
\characterdef \textbraceright   8t  `\}
\characterdef \textcompwordmark 8t  23
\characterdef \exclamdown       8t  189
\characterdef \questiondown     8t  190
\characterdef \textgreater      8t  `\>
\characterdef \textless         8t  `\<
\characterdef \section          8t  159
\characterdef \sterling         8t  191  
\characterdef \underscore       8t  95
\characterdef \quotedbl         8t  34

\let\pound=\sterling
\let\S=\section

%%% Accented letters from Cork encoding

\accentdef  \. i    8t `\i
\accentdef  \u A    8t 128
\accentdef  \k A    8t 129
\accentdef  \' C    8t 130
\accentdef  \v C    8t 131
\accentdef  \v D    8t 132
\accentdef  \v E    8t 133
\accentdef  \k E    8t 134
\accentdef  \u G    8t 135
\accentdef  \' L    8t 136
\accentdef  \v L    8t 137
\accentdef  \' N    8t 139
\accentdef  \v N    8t 140
\accentdef  \H O    8t 142
\accentdef  \' R    8t 143
\accentdef  \v R    8t 144
\accentdef  \' S    8t 145
\accentdef  \v S    8t 146
\accentdef  \c S    8t 147
\accentdef  \v T    8t 148
\accentdef  \c T    8t 149
\accentdef  \H U    8t 150
\accentdef  \r U    8t 151
\accentdef  \" Y    8t 152
\accentdef  \' Z    8t 153
\accentdef  \v Z    8t 154
\accentdef  \. Z    8t 155
\accentdef  \. I    8t 157
\accentdef  \= d    8t 158
\accentdef  \u a    8t 160
\accentdef  \k a    8t 161
\accentdef  \' c    8t 162
\accentdef  \v c    8t 163
\accentdef  \v d    8t 164
\accentdef  \v e    8t 165
\accentdef  \k e    8t 166
\accentdef  \u g    8t 167
\accentdef  \' l    8t 168
\accentdef  \v l    8t 169
\accentdef  \' n    8t 171
\accentdef  \v n    8t 172
\accentdef  \H o    8t 174
\accentdef  \' r    8t 175
\accentdef  \v r    8t 176
\accentdef  \' s    8t 177
\accentdef  \v s    8t 178
\accentdef  \c s    8t 179
\accentdef  \v t    8t 180
\accentdef  \c t    8t 181
\accentdef  \H u    8t 182
\accentdef  \r u    8t 183
\accentdef  \" y    8t 184
\accentdef  \' z    8t 185
\accentdef  \v z    8t 186
\accentdef  \. z    8t 187
\accentdef  \` A    8t 192
\accentdef  \' A    8t 193
\accentdef  \^ A    8t 194
\accentdef  \~ A    8t 195
\accentdef  \" A    8t 196
\accentdef  \r A    8t 197
\accentdef  \c C    8t 199
\accentdef  \` E    8t 200
\accentdef  \' E    8t 201
\accentdef  \^ E    8t 202
\accentdef  \" E    8t 203
\accentdef  \` I    8t 204
\accentdef  \' I    8t 205
\accentdef  \^ I    8t 206
\accentdef  \" I    8t 207
\accentdef  \~ N    8t 209
\accentdef  \` O    8t 210
\accentdef  \' O    8t 211
\accentdef  \^ O    8t 212
\accentdef  \~ O    8t 213
\accentdef  \" O    8t 214
\accentdef  \` U    8t 217
\accentdef  \' U    8t 218
\accentdef  \^ U    8t 219
\accentdef  \" U    8t 220
\accentdef  \' Y    8t 221
\accentdef  \` a    8t 224
\accentdef  \' a    8t 225
\accentdef  \^ a    8t 226
\accentdef  \~ a    8t 227
\accentdef  \" a    8t 228
\accentdef  \r a    8t 229
\accentdef  \c c    8t 231
\accentdef  \` e    8t 232
\accentdef  \' e    8t 233
\accentdef  \^ e    8t 234
\accentdef  \" e    8t 235
\accentdef  \` i    8t 236
\accentdef  \` {\i} 8t 236
\accentdef  \' i    8t 237
\accentdef  \' {\i} 8t 237
\accentdef  \^ i    8t 238
\accentdef  \^ {\i} 8t 238
\accentdef  \" i    8t 239
\accentdef  \" {\i} 8t 239
\accentdef  \~ n    8t 241
\accentdef  \` o    8t 242
\accentdef  \' o    8t 243
\accentdef  \^ o    8t 244
\accentdef  \~ o    8t 245
\accentdef  \" o    8t 246
\accentdef  \` u    8t 249
\accentdef  \' u    8t 250
\accentdef  \^ u    8t 251
\accentdef  \" u    8t 252
\accentdef  \' y    8t 253

%%% Times etc.:

\modifydef 8t:losschars; {%
   \characterdel \dotlessj  8t  26
   \characterdel \promile   8t {\%\char 24 }        
   \characterdel \NG        8t  141
   \characterdel \ng        8t  173
}   
\modifydef 8t:ienc; {%  For \ienc, see iencdoc.tex
   \skipfirststep
   \csname 8t:losschars\endcsname
}
\modifydef 8t:lccodes; {%  For \setlang, see langdoc.tex
   \skipfirststep
   \lccodesloop ^^a0^^bc^^80%  from a-breve to ij, first cap: A-breve
   \lccodesloop ^^e0^^ff^^c0%  from a-grave to ss, first cap: A-grave
   \def\lccodesback {\zerolccodes ^^80^^ff}%
}

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

%%% Macros for quotes

\def\singleuv#1{\clq#1\crq}
\def\doubleuv#1{\clqq#1\crqq}
\def\singlefuv#1{\frq#1\flq}
\def\doublefuv#1{\frqq#1\flqq}
\def\singleauv#1{\elq#1\erq}
\def\doubleauv#1{\elqq#1\erqq}
\let\uv=\doubleuv  
\let\fuv=\doublefuv
\let\auv=\doubleauv

