1% xu-eohyph.tex 2% Wrapper for XeTeX to read eohyph.tex 3% Jonathan Kew, 2006-09-26 4% Public domain 5 6\begingroup 7 8\expandafter\ifx\csname XeTeXrevision\endcsname\relax 9\else 10 11 % expand ^letter to Unicode character 12 \def\E{\errmessage{Esperanto hyphenation pattern file is corrupted}} 13 \catcode`\!=7 % use !!xy instead of ^^xy 14 \catcode`\^=13 % for Esperanto's diacritics 15 \def^#1{\ifx#1c!!!!0109\else \ifx#1g!!!!011d% 16 \else \ifx#1h!!!!0125\else \ifx#1j!!!!0135% 17 \else \ifx#1s!!!!015d\else \ifx#1u!!!!016d% 18 \else \E \fi\fi\fi\fi\fi\fi 19 } 20 21 % inflection macros copied from eohyph.tex 22 \def\adj#1{#1a. #1aj. #1ajn. #1an. #1e.} 23 \edef\nom#1{\adj{#1} #1o. #1oj. #1ojn. #1on.} 24 \def\ver#1{#1as. #1i. #1is. #1os. #1u. #1us.} 25 26 \let\PATTERNS=\patterns 27 \def\patterns{% at the \patterns command... 28 \endgroup % forget the definitions from eohyph.tex 29 \begingroup % new group to match \endgroup in eohyph.tex 30 \PATTERNS % and then load the real patterns 31 } 32 33\fi 34 35\input eohyph.tex 36 37\endgroup 38\endinput 39