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