%% i-cp1250.tex ... definition for input encoding CP 1250
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Feb 2004                                     Petr Olsak

\def\iencdeclared {cp1250}

\icode "8A {\v S}
\icode "8D {\v T}
\icode "8E {\v Z}
\icode "BE {\v l}
\icode "9A {\v s}
\icode "9D {\v t}
\icode "9E {\v z}
\icode "C0 {\'R}
\icode "C1 {\'A}
\icode "C4 {\"A}
\icode "C5 {\'L}
\icode "C8 {\v C}
\icode "C9 {\'E}
\icode "CC {\v E}
\icode "CD {\'I}
\icode "CF {\v D}
\icode "D2 {\v N}
\icode "D3 {\'O}
\icode "D4 {\^O}
\icode "D6 {\"O}
\icode "D8 {\v R}
\icode "D9 {\r U}
\icode "DA {\'U}
\icode "DC {\"U}
\icode "DD {\'Y}
\icode "E0 {\'r}
\icode "E1 {\'a}
\icode "E4 {\"a}
\icode "E5 {\'l}
\icode "E8 {\v c}
\icode "E9 {\'e}
\icode "EC {\v e}
\icode "ED {\'\i}
\icode "EF {\v d}
\icode "F2 {\v n}
\icode "F3 {\'o}
\icode "F4 {\^o}
\icode "F6 {\"o}
\icode "F8 {\v r}
\icode "F9 {\r u}
\icode "FA {\'u}
\icode "FC {\"u}
\icode "FD {\'y}

\icodedef cp1250:*:up {%
   \setechars
}

\endinput

<ik�d>:*:up se spust� v p��kazu \ienc a d�le v \setlang p�i 
ka�d� zm�n� \fotenc. Za touto rutinou spust� \setlang je�t� 
nastaven� \lccode a \uccode.

P��kaz \setechars nastav� znaky s k�dy >128 n�sledovn�:

* Nejprve v�em t�mto znak�m d� \lccode 0, \catcode 12
* Spust� p��kaz \fotenc:ienc, kter� m��e sn��it po�et u�ite�n�ch 
  znak� k�dov�n� \fotenc (deklarov�no v~souboru ofs-\fotenc.tex)
* Pro ka�d� prvek ze vzorku \inputsample provede transformaci
  do {makra} podle tabulky \icode a aplikuje \edef na toto {makro}.
  Pokud nevyjde stejn� v�sledek, jako je prvek vzorku, 
  nastav� mu transformz�n� rutinu. Jinak s n�m ned�l� nic.

Transfroma�n� rutina m� dv� mo�nosti:

1. je-li p��tomen enctex: nastav� odpov�daj�c� \xordcode a \xchrcode
   a \catcode ponech� beze zm�ny
2. nen�-li p��tomen enctex: nastav� \catcode znaku na 13
   a definuje jej podle \icode.

Ne�ker� nastaven� se provedou glob�ln�.

\ienc [k�dov�n�]

P��kaz d�l� toto:

* Nen�-li na�ten soubor sample8b.tex, na�te jej.
* Jsme-li v iniTeXu, nap��e varov�n� o na�ten�m sample8bit.tex
* Nen�-li na�ten soubor i-k�dov�n�, na�te jej.
  P�i �ten� m� nastaveno \globaldefs=1 a ignoruje konce ��dk�.
* spust� ik�d:\fotenc:up (nen�-li daklarov�n, spust� ik�d:*:up).







