blob: b0ff6773caf9cd2508737d8614801e9c4985beb8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
%%% The encoding table, v.Aug.1997 (C) Petr Ol\v s\'ak
%%% input: CP1250, in system used: ISO8859-2
\ifx\xordcode\undefined
\message{Warning: the xord/xchr accessing is not possible}
\endinput \fi
\let\Xordcode=\relax \let\Yordcode=\relax
\def\setinputcode #1 #2 {\Xordcode#1=\the\xordcode#2\relax
\Yordcode#2=\the\xordcode#2\relax}
\xdef\restoreinputencoding{%
%
% 1250 il2
\setinputcode "BC "A5 % \v L
\setinputcode "BE "B5 % \v l
\setinputcode "8A "A9 % \v S
\setinputcode "9A "B9 % \v s
\setinputcode "8D "AB % \v T
\setinputcode "9D "BB % \v t
\setinputcode "8E "AE % \v Z
\setinputcode "9E "BE % \v z
}
\def\Yordcode#1=#2\relax{} \let\Xordcode=\xordcode
\restoreinputencoding % nyní se nastaví nový xord
\def\Xordcode#1=#2\relax{} \let\Yordcode=\xordcode
|
