summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/xu-hyphen/xu-rohyphen.tex
blob: 2b5111af4ad55d15a729960cd2f033b1781ba9ab (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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
% xu-rohyph.tex
% Wrapper for XeTeX to read rohyphen.tex
% Jonathan Kew, 2006-10-07
% Public domain

\begingroup

\let\INPUT=\input

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

  %	"a = \u{a}			[-]  \u{A} [not encoded]
  %	"A = \^{a}			[-]  \^{A} [not encoded]
  %	"i = \^{\i}			"I = \^{I}
  %	"s = \c{s}			"S = \c{S}
  %	"t = \c{t}			"T = \c{T}
  \catcode`\"=13
  \def"#1{\ifx#1a^^^^0103\else
    \ifx#1A^^^^00e2\else
    \ifx#1i^^^^00ee\else
    \ifx#1s^^^^015f\else
    \ifx#1t^^^^0163\else
      \errmessage{Hyphenation pattern file corrupted!}%
    \fi\fi\fi\fi\fi}
  \catcode`\"=12

  \def\n#1{#1} % accept patterns with accented chars

  \def\INPUT #1 {
    \begingroup
      % rohyphen's assignments to \catcode, \lccode etc are not in a group
      % so we begin one here, and end it at \patterns
    \input #1
  }

  \let\PATTERNS=\patterns
  \def\patterns{%
    \endgroup % discard legacy " definitions from rohyphen.tex
    \endgroup % and end the group we started at \INPUT (for catcodes etc)
    \begingroup
    \catcode`\"=13 % activate our definitions from above
    \PATTERNS
  }

\fi

\INPUT rohyphen.tex

\endgroup
\endinput