blob: db2cfcf456e8fd464f711131992744ae661a08f1 (
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
% 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:
|
