diff options
| author | Jonathan Kew <jfkthame@googlemail.com> | 2006-09-27 12:26:26 +0000 |
|---|---|---|
| committer | Jonathan Kew <jfkthame@googlemail.com> | 2006-09-27 12:26:26 +0000 |
| commit | ed4da49ce9d2ac16fdfa68e3a8b23196d55b536e (patch) | |
| tree | 89e15ac6b266a850d9db7eee7219b73a705a5b6d /Master/texmf-dist | |
| parent | e0b37bace0e55d811b0b155809b52f19aa4c3951 (diff) | |
xetex (unicode) wrapper for eohyph.tex
git-svn-id: svn://tug.org/texlive/trunk@2205 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
| -rw-r--r-- | Master/texmf-dist/tex/generic/xu-hyphen/xu-eohyph.tex | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/xu-hyphen/xu-eohyph.tex b/Master/texmf-dist/tex/generic/xu-hyphen/xu-eohyph.tex new file mode 100644 index 00000000000..9d643ce0986 --- /dev/null +++ b/Master/texmf-dist/tex/generic/xu-hyphen/xu-eohyph.tex @@ -0,0 +1,38 @@ +% xu-eohyph.tex +% Wrapper for XeTeX to read eohyph.tex +% Jonathan Kew, 2006-09-26 +% Public domain + +\begingroup + +\expandafter\ifx\csname XeTeXrevision\endcsname\relax +\else + + % expand ^letter to Unicode character + \def\E{\errmessage{Esperanto hyphenation pattern file is corrupted}} + \catcode`\!=7 % use !!xy instead of ^^xy + \catcode`\^=13 % for Esperanto's diacritics + \def^#1{\ifx#1c!!!!0109\else \ifx#1g!!!!011d% + \else \ifx#1h!!!!0125\else \ifx#1j!!!!0135% + \else \ifx#1s!!!!015d\else \ifx#1u!!!!016d% + \else \E \fi\fi\fi\fi\fi\fi + } + + % inflection macros copied from eohyph.tex + \def\adj#1{#1a. #1aj. #1ajn. #1an. #1e.} + \edef\nom#1{\adj{#1} #1o. #1oj. #1ojn. #1on.} + \def\ver#1{#1as. #1i. #1is. #1os. #1u. #1us.} + + \let\PATTERNS=\patterns + \def\patterns{% at the \patterns command... + \endgroup % forget the definitions from eohyph.tex + \begingroup % new group to match \endgroup in eohyph.tex + \PATTERNS % and then load the real patterns + } + +\fi + +\input eohyph.tex + +\endgroup +\endinput |