% dehyphn-x-2009-06-19.tex
%
% Copyright 2008 Werner Lemberg <wl@gnu.org>
% You may freely use, modify and/or distribute this file.
%
\newif\if@dehyphx@UTF@
\@dehyphx@UTF@false
%
\begingroup
  \def\testengine#1#2!{\def\secondarg{#2}}%
  \testengine χ!\relax % That's Chi, a 2-byte UTF-8 sequence
  \ifx\secondarg\empty
    \message{Using a TeX engine with native UTF-8 support.}%
    \aftergroup\@dehyphx@UTF@true
  \else
    \message{Using an 8-bit TeX engine.}%
  \fi
\endgroup
%
\begingroup
  \if@dehyphx@UTF@
  \else
    \catcode"C3=\active
% The word list for the German hyphenation patterns is encoded in Latin1.
    \def^^c3#1{%
      \ifx#1^^9f^^ff\else % ß - U+00DF - germandbls
      \ifx#1^^a0^^e0\else % à - U+00E0 - agrave
      \ifx#1^^a1^^e1\else % á - U+00E1 - aacute
      \ifx#1^^a2^^e2\else % â - U+00E2 - acircumflex
      \ifx#1^^a3^^e3\else % ã - U+00E3 - atilde
      \ifx#1^^a4^^e4\else % ä - U+00E4 - adieresis
      \ifx#1^^a5^^e5\else % å - U+00E5 - aring
      \ifx#1^^a6^^e6\else % æ - U+00E6 - ae
      \ifx#1^^a7^^e7\else % ç - U+00E7 - ccedilla
      \ifx#1^^a8^^e8\else % è - U+00E8 - egrave
%
      \ifx#1^^a9^^e9\else % é - U+00E9 - eacute
      \ifx#1^^aa^^ea\else % ê - U+00EA - ecircumflex
      \ifx#1^^ab^^eb\else % ë - U+00EB - edieresis
      \ifx#1^^ac^^ec\else % ì - U+00EC - igrave
      \ifx#1^^ad^^ed\else % í - U+00ED - iacute
      \ifx#1^^ae^^ee\else % î - U+00EE - icircumflex
      \ifx#1^^af^^ef\else % ï - U+00EF - idieresis
      \ifx#1^^b0^^f0\else % ð - U+00F0 - eth
      \ifx#1^^b1^^f1\else % ñ - U+00F1 - ntilde
      \ifx#1^^b2^^f2\else % ò - U+00F2 - ograve
%
      \ifx#1^^b3^^f3\else % ó - U+00F3 - oacute
      \ifx#1^^b4^^f4\else % ô - U+00F4 - ocircumflex
      \ifx#1^^b5^^f5\else % õ - U+00F5 - otilde
      \ifx#1^^b6^^f6\else % ö - U+00F6 - odieresis
      \ifx#1^^b8^^f8\else % ø - U+00F8 - oslash
      \ifx#1^^b9^^f9\else % ù - U+00F9 - ugrave
      \ifx#1^^ba^^fa\else % ú - U+00FA - uacute
      \ifx#1^^bb^^fb\else % û - U+00FB - ucircumflex
      \ifx#1^^bc^^fc\else % ü - U+00FC - udieresis
      \ifx#1^^bd^^fd\else % ý - U+00FD - yacute
%
      \ifx#1^^be^^fe\else % þ - U+00FE - thorn
      \ifx#1^^bf^^b8\else % ÿ - U+00FF - ydieresis
      \errmessage{Hyphenation pattern file `dehyphn-x-2009-06-19.tex' corrupted!}%
      \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
       \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
       \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
       \fi\fi}%
%
    \lccode"B8="B8 % ÿ - U+00FF - ydieresis
    \lccode"E0="E0 % à - U+00E0 - agrave
    \lccode"E1="E1 % á - U+00E1 - aacute
    \lccode"E2="E2 % â - U+00E2 - acircumflex
    \lccode"E3="E3 % ã - U+00E3 - atilde
    \lccode"E4="E4 % ä - U+00E4 - adieresis
    \lccode"E5="E5 % å - U+00E5 - aring
    \lccode"E6="E6 % æ - U+00E6 - ae
    \lccode"E7="E7 % ç - U+00E7 - ccedilla
    \lccode"E8="E8 % è - U+00E8 - egrave
%
    \lccode"E9="E9 % é - U+00E9 - eacute
    \lccode"EA="EA % ê - U+00EA - ecircumflex
    \lccode"EB="EB % ë - U+00EB - edieresis
    \lccode"EC="EC % ì - U+00EC - igrave
    \lccode"ED="ED % í - U+00ED - iacute
    \lccode"EE="EE % î - U+00EE - icircumflex
    \lccode"EF="EF % ï - U+00EF - idieresis
    \lccode"F0="F0 % ð - U+00F0 - eth
    \lccode"F1="F1 % ñ - U+00F1 - ntilde
    \lccode"F2="F2 % ò - U+00F2 - ograve
%
    \lccode"F3="F3 % ó - U+00F3 - oacute
    \lccode"F4="F4 % ô - U+00F4 - ocircumflex
    \lccode"F5="F5 % õ - U+00F5 - otilde
    \lccode"F6="F6 % ö - U+00F6 - odieresis
    \lccode"F8="F8 % ø - U+00F8 - oslash
    \lccode"F9="F9 % ù - U+00F9 - ugrave
    \lccode"FA="FA % ú - U+00FA - uacute
    \lccode"FB="FB % û - U+00FB - ucircumflex
    \lccode"FC="FC % ü - U+00FC - udieresis
    \lccode"FD="FD % ý - U+00FD - yacute
%
    \lccode"FE="FE % þ - U+00FE - thorn
    \lccode"FF="FF % ß - U+00DF - germandbls
  \fi
%
  \input dehyphn-x-2009-06-19.pat
\endgroup
%
\endinput

%%% Local Variables:
%%% mode: tex
%%% coding: utf-8
%%% End:
