% 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
