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

\begingroup

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

  \def\bgroup{% at the initial \bgroup in sorhyph...
    \XeTeXinputencoding "bytes" % read the rest of the file as raw bytes
    \begingroup
  }

  \let\egroup=\endgroup

  \let\PATTERNS=\patterns
  \def\patterns{% at the \patterns command...
    \endgroup % end group containing sorhyph.tex's local definitions
    \begingroup % and start our own (to match \egroup in sorhyph.tex)
    \input xu-t1.tex % map T1 codes to Unicode characters
    \PATTERNS % and then load the real patterns
  }

\fi

\input sorhyph.tex

\endgroup
\endinput