%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

% todo : named glyphs

\startlanguagespecifics[\s!pl]

  \appendtoks \makecharacteractive / \to \everynormalcatcodes

  \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
