summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xu-hyphen/xu-sihyph.tex
blob: 8b636f4e6e477da4ac0213f85ca86cdfbf2cba86 (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
% xu-sihyph.tex
% Wrapper for XeTeX to read sihyph.tex
% Jonathan Kew, 2006-08-17
% Public domain

\begingroup

\expandafter\ifx\csname XeTeXrevision\endcsname\relax
\else

  % Define the accent macro " to expand to the required Unicode characters
  \catcode`\"=13
  \def"#1{\ifx#1c^^^^010d\else \ifx#1s^^^^0161\else \ifx#1z^^^^017e\else
      \errmessage{Hyphenation pattern file corrupted!}%
    \fi\fi\fi}
  \catcode`\"=12 % reset catcode so we can read \lccode etc in sihyph.tex

  \let\PATTERNS=\patterns
  \def\patterns{% at the \patterns command in sihyph.tex...
    \endgroup % end group to discard definitions from sihyph
    \begingroup % and start our own (to match \endgroup in sihyph)
    \lefthyphenmin=2 \righthyphenmin=3 % settings from sihyph.tex
    \catcode`\"=13 % activate our definition of " from above
    \PATTERNS % and then load the real patterns
  }

\fi

\input sihyph.tex

\endgroup
\endinput