%D \module
%D   [     file=enco-pol,
%D      version=1999.28.8,
%D        title=\CONTEXT\ Encoding Macros,
%D     subtitle=Polish Mixed Encoding,
%D       author=Taco Hoekwater,
%D         date=\currentdate,
%D    copyright=Hans Hagen]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

%D Polish native encoding.

\startmapping[pl0]

\definecasemap 161 185 165  % a ogonek
\definecasemap 162 230 198  % c acute
\definecasemap 166 234 202  % e ogonek
\definecasemap 170 179 163  % l crossed
\definecasemap 171 241 209  % n acute
\definecasemap 243 243 211  % o acute
\definecasemap 177 156 140  % s acute
\definecasemap 185 159 143  % z acute 
\definecasemap 187 191 175  % z dot

\definecasemap 129 165 185  % A ogonek
\definecasemap 130 198 230  % C accute
\definecasemap 134 202 234  % E ogonek
\definecasemap 138 163 179  % L crossed
\definecasemap 139 209 241  % N accute
\definecasemap 211 211 243  % O acute
\definecasemap 145 140 156  % S acute
\definecasemap 153 143 159  % Z acute
\definecasemap 155 175 191  % Z dot 

\stopmapping 

\startmapping[pl0]

\definespacemap 129 999  % A ogonek
\definespacemap 130 999  % C acute
\definespacemap 134 999  % E ogonek
\definespacemap 138 999  % L crossed
\definespacemap 139 999  % N acute
\definespacemap 211 999  % O acute
\definespacemap 145 999  % S acute
\definespacemap 153 999  % Z acute
\definespacemap 155 999  % Z dot

\stopmapping 

\startencoding[pl0]

\defineaccent  k a 161  % a ogonek
\defineaccent  ' c 162  % c acute
\defineaccent  k e 166  % e ogonek
\definecharacter l 170  % l crossed
\defineaccent  ' n 171  % n acute
\defineaccent  ' o 243  % o acute
\defineaccent  ' s 177  % s acute
\defineaccent  ' z 185  % z acute
\defineaccent  . z 187  % z dot
\defineaccent  k A 129  % A ogonek
\defineaccent  ' C 130  % C accute 
\defineaccent  k E 134  % E ogonek
\definecharacter L 138  % L crossed
\defineaccent  ' N 139  % N accute
\defineaccent  ' O 211  % O acute
\defineaccent  ' S 145  % S acute
\defineaccent  ' Z 153  % Z acute 
\defineaccent  . Z 155  % Z dot

\stopencoding 

\startencoding[pl0]

\definecharacter leftguillemot      174  % ok ? 
\definecharacter rightguillemot     175  % ok ? 
\definecharacter leftsubguillemot   174  % ok ? 
\definecharacter rightsubguillemot  175  % ok ? 

\stopencoding

\startencoding[pl0]

\definesortkey {161} {a}{a}{\k a}   \definesortkey {129} {a}{a}{\k a}
\definesortkey {162} {c}{a}{\'c}    \definesortkey {130} {c}{a}{\'c}
\definesortkey {166} {e}{a}{\k e}   \definesortkey {134} {e}{a}{\k e}
\definesortkey {170} {l}{a}{\l }    \definesortkey {138} {l}{a}{\l }
\definesortkey {171} {n}{a}{\'n}    \definesortkey {139} {n}{a}{\'n}
\definesortkey {177} {s}{a}{\'s}    \definesortkey {145} {s}{a}{\'s}
\definesortkey {185} {z}{a}{\'z}    \definesortkey {153} {z}{a}{\'z}
\definesortkey {187} {z}{b}{\.z}    \definesortkey {155} {z}{b}{\.z}
\definesortkey {243} {o}{a}{\'o}    \definesortkey {211} {o}{a}{\'o}

\definesortkey {\'c} {c}{a}{\'c}    \definesortkey {\'C} {c}{a}{\'c}
\definesortkey {\'n} {n}{a}{\'n}    \definesortkey {\'N} {n}{a}{\'n}
\definesortkey {\'o} {o}{a}{\'o}    \definesortkey {\'O} {o}{a}{\'o}
\definesortkey {\'s} {s}{a}{\'s}    \definesortkey {\'S} {s}{a}{\'s}
\definesortkey {\'z} {z}{a}{\'z}    \definesortkey {\'Z} {z}{a}{\'z}
\definesortkey {\.z} {z}{b}{\.z}    \definesortkey {\.Z} {z}{b}{\.z}
\definesortkey {\k a}{a}{a}{\k a}   \definesortkey {\k A}{a}{a}{\k a}
\definesortkey {\k e}{e}{a}{\k e}   \definesortkey {\k E}{e}{a}{\k e}
\definesortkey {\l } {l}{a}{\l}     \definesortkey {\L } {l}{a}{\l}

\stopencoding

%D Polish CP-1250 encoding.

\startmapping[pl1]

\definecasemap 185 185 165  % a ogonek
\definecasemap 230 230 198  % c acute
\definecasemap 234 234 202  % e ogonek
\definecasemap 179 179 163  % l crossed
\definecasemap 241 241 209  % n acute
\definecasemap 243 243 211  % o acute
\definecasemap 156 156 140  % s acute
\definecasemap 159 159 143  % z acute 
\definecasemap 191 191 175  % z dot

\definecasemap 165 165 185  % A ogonek
\definecasemap 198 198 230  % C accute
\definecasemap 202 202 234  % E ogonek
\definecasemap 163 163 179  % L crossed
\definecasemap 209 209 241  % N accute
\definecasemap 211 211 243  % O acute
\definecasemap 140 140 156  % S acute
\definecasemap 143 143 159  % Z acute
\definecasemap 175 175 191  % Z dot 

\stopmapping 

\startmapping[pl1]

\definespacemap 165 999  % A ogonek
\definespacemap 198 999  % C acute
\definespacemap 202 999  % E ogonek
\definespacemap 163 999  % L crossed
\definespacemap 209 999  % N acute
\definespacemap 211 999  % O acute
\definespacemap 140 999  % S acute
\definespacemap 143 999  % Z acute
\definespacemap 175 999  % Z dot

\stopmapping 

\startencoding[pl1]

\defineaccent  k a 185  % a ogonek
\defineaccent  ' c 230  % c acute
\defineaccent  k e 234  % e ogonek
\definecharacter l 179  % l crossed
\defineaccent  ' n 241  % n acute
\defineaccent  ' o 243  % o acute
\defineaccent  ' s 156  % s acute
\defineaccent  ' z 159  % z acute
\defineaccent  . z 191  % z dot
\defineaccent  k A 165  % A ogonek
\defineaccent  ' C 198  % C accute
\defineaccent  k E 202  % E ogonek
\definecharacter L 163  % L crossed
\defineaccent  ' N 209  % N accute
\defineaccent  ' O 211  % O acute
\defineaccent  ' S 140  % S acute
\defineaccent  ' Z 143  % Z acute 
\defineaccent  . Z 175  % Z dot

\stopencoding 

\startencoding[pl1]

\definecharacter leftguillemot      174  % ok ? 
\definecharacter rightguillemot     175  % ok ? 
\definecharacter leftsubguillemot   174  % ok ? 
\definecharacter rightsubguillemot  175  % ok ? 

\stopencoding

%D Polish ISO-8859-2 encoding.

\startmapping[pl2]

\definecasemap 177 177 161  % a ogonek
\definecasemap 230 230 198  % c acute
\definecasemap 234 234 202  % e ogonek
\definecasemap 179 179 163  % l crossed
\definecasemap 241 241 209  % n acute
\definecasemap 243 243 211  % o acute
\definecasemap 182 182 166  % s acute
\definecasemap 188 188 172  % z acute
\definecasemap 191 191 175  % z dot

\definecasemap 161 161 177  % A ogonek
\definecasemap 198 198 230  % C accute
\definecasemap 202 202 234  % E ogonek
\definecasemap 163 163 179  % L crossed
\definecasemap 209 209 241  % N accute
\definecasemap 211 211 243  % O acute
\definecasemap 166 166 182  % S acute
\definecasemap 172 172 188  % Z acute
\definecasemap 175 175 191  % Z dot 

\stopmapping 

\startmapping[pl2]

\definespacemap 161 999  % A ogonek
\definespacemap 198 999  % C acute
\definespacemap 202 999  % E ogonek
\definespacemap 163 999  % L crossed
\definespacemap 209 999  % N acute
\definespacemap 211 999  % O acute
\definespacemap 166 999  % S acute
\definespacemap 172 999  % Z acute
\definespacemap 175 999  % Z dot

\stopmapping 

\startencoding[pl2]

\defineaccent  k a 177 % a ogonek
\defineaccent  ' c 230 % c acute
\defineaccent  k e 234 % e ogonek
\definecharacter l 179 % l crossed
\defineaccent  ' n 241 % n acute
\defineaccent  ' o 243 % o acute
\defineaccent  ' s 182 % s acute
\defineaccent  ' z 188 % z acute
\defineaccent  . z 191 % z dot
\defineaccent  k A 161 % A ogonek
\defineaccent  ' C 198 % C accute
\defineaccent  k E 202 % E ogonek
\definecharacter L 163 % L crossed
\defineaccent  ' N 209 % N accute
\defineaccent  ' O 211 % O acute
\defineaccent  ' S 166 % S acute
\defineaccent  ' Z 172 % Z acute 
\defineaccent  . Z 175 % Z dot

\stopencoding 

\startencoding[pl2]

\definecharacter leftguillemot      174  % ok ? 
\definecharacter rightguillemot     175  % ok ? 
\definecharacter leftsubguillemot   174  % ok ? 
\definecharacter rightsubguillemot  175  % ok ? 

\stopencoding

\endinput 
