stable 1999.12.30

1 files changed, 254 insertions, 0 deletions

diff --git a/tex/context/base/enco-pol.tex b/tex/context/base/enco-pol.tex
new file mode 100644
index 000000000..40c9dfa86
--- /dev/null
+++ b/tex/context/base/enco-pol.tex
@@ -0,0 +1,254 @@
+%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