1 files changed, 90 insertions, 0 deletions
diff --git a/tex/context/base/enco-fpl.tex b/tex/context/base/enco-fpl.tex
new file mode 100644
index 000000000..acf3caa50
--- /dev/null
+++ b/tex/context/base/enco-fpl.tex
@@ -0,0 +1,90 @@
+%D \module
+%D   [     file=enco-fpl,
+%D      version=2000.08.20,
+%D        title=\CONTEXT\ Encoding Macros,
+%D     subtitle=Polish Input Filter,
+%D       author=Hans Hagen,
+%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 These definitions used to be part of lang-sla.tex.
+
+\unprotect
+
+\startlanguagespecifics[\s!pl] 
+
+  \installcompoundcharacter /a {\k a}
+  \installcompoundcharacter /c {\'c}
+  \installcompoundcharacter /e {\k e}
+  \installcompoundcharacter /l {\l}
+  \installcompoundcharacter /n {\'n}
+  \installcompoundcharacter /o {\'o}
+  \installcompoundcharacter /s {\'s}
+  \installcompoundcharacter /x {\'z}
+  \installcompoundcharacter /z {\.z}
+  \installcompoundcharacter /A {\k A}
+  \installcompoundcharacter /C {\'C}
+  \installcompoundcharacter /E {\k E}
+  \installcompoundcharacter /L {\L}
+  \installcompoundcharacter /N {\'N}
+  \installcompoundcharacter /O {\'O}
+  \installcompoundcharacter /S {\'S}
+  \installcompoundcharacter /X {\'Z}
+  \installcompoundcharacter /Z {\.Z}
+
+\stoplanguagespecifics
+
+\startlanguagespecifics[\s!pl] 
+
+  \installcompoundcharacter /, {\handlequotation\c!leftquotation}
+  \installcompoundcharacter /' {\handlequotation\c!rightquotation}
+
+  \def\setupPLlanguage%
+    {\setuplanguage
+       [\s!pl]
+       [\c!leftsentence=\leftguillemot,
+        \c!rightsentence=\rightguillemot,
+        \c!leftsubsentence=\leftsubguillemot,
+        \c!rightsubsentence=\rightsubguillemot]}
+ 
+  \installcompoundcharacter /< {{\setupPLlanguage|<|}}
+  \installcompoundcharacter /> {{\setupPLlanguage|>|}}
+
+  \installcompoundcharacter /- {|-|} 
+
+\stoplanguagespecifics
+
+\startlanguagespecifics[\s!pl] 
+
+  \definesortkey {/a}{a}{a}{\k a}
+  \definesortkey {/A}{a}{a}{\k a}
+  \definesortkey {/c}{c}{a}{\'c}
+  \definesortkey {/C}{c}{a}{\'c}
+  \definesortkey {/e}{e}{a}{\k e}
+  \definesortkey {/E}{e}{a}{\k e}
+  \definesortkey {/l}{l}{a}{\l }
+  \definesortkey {/L}{l}{a}{\l }
+  \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 {/x}{z}{a}{\'x}
+  \definesortkey {/X}{z}{a}{\'x}
+  \definesortkey {/z}{z}{b}{\.z}
+  \definesortkey {/Z}{z}{b}{\.z}
+
+\stoplanguagespecifics
+
+\startencoding[pdfdoc]
+  \startlanguagespecifics[pl]% hm 
+    \defineactivecharacter / {\simplifiedcompoundcharacter/}
+  \stoplanguagespecifics
+\stopencoding
+
+\protect \endinput