blob: 8e494d5f6ec0c1d3a8a2508faf2f378446c19197 (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
% xu-dehyphn.tex
% Wrapper for XeTeX to read dehyphn.tex
% Jonathan Kew, 2006-08-17
% Public domain
\begingroup
\expandafter\ifx\csname XeTeXrevision\endcsname\relax
\else
\catcode`\?=7
% Define the accent macro " in such a way that it
% expands to single letters in Unicode
\catcode`\"=13
\def"#1{\ifx#1a??e4\else \ifx#1o??f6\else \ifx#1u??fc\else
\errmessage{Hyphenation pattern file corrupted!}%
\fi\fi\fi}
% - patterns with umlauts are ok
\def\n#1{#1}
% - define \3 to be character "00DF (\ss in Unicode)
\def\3{??df}
% - define \9 to throw an error
\def\9{\errmessage{Hyphenation pattern file corrupted!}}
% - duplicated patterns to support font encoding OT1 are not wanted
\def\c#1{}
%
\let\PATTERNS=\patterns
\def\patterns{% at the \patterns command in dehyphn.tex...
\endgroup % end group containing local definitions from dehyphn
\begingroup % and start our own (to match \endgroup in dehyphn)
%
\PATTERNS % and then load the real patterns
}
\fi
\input dehyphn.tex
\endgroup
\endinput
|