1 % dehypht-x-major-@DATE@.tex
3 % Copyright 2009-2023 Werner Lemberg <wl@gnu.org>
4 % You may freely use, modify and/or distribute this file.
7 % Put the whole wrapper into a group (\patterns acts globally).
10 % Create local flag for checking UTF-8 support of non-pTeX engines.
11 % \newif must be defined outside any \ifx command.
12 \newif\if@dehyphx@UTF@
14 % Test for pTeX engine. pTeX needs explicit 8 bit patterns.
15 \ifx\kanjiskip\undefined
16 % Non-pTeX engine. Test for UTF-8 aware engine.
17 \def\testengine#1#2!
{\def\secondarg{#2}}%
18 \testengine χ!
\relax % That's Chi, a 2-byte UTF-8 sequence
20 \message{dehyph-exptl: using a TeX engine with native UTF-
8 support.
}%
23 \message{dehyph-exptl: using an
8-bit TeX engine.
}%
28 % For 8-bit engines we define macros to convert the patterns from UTF-8
32 \ifx#1^^
9f^^ff
\else % ß - U+00DF - germandbls
33 \ifx#1^^a0^^e0
\else % à - U+00E0 - agrave
34 \ifx#1^^a1^^e1
\else % á - U+00E1 - aacute
35 \ifx#1^^a2^^e2
\else % â - U+00E2 - acircumflex
36 \ifx#1^^a3^^e3
\else % ã - U+00E3 - atilde
37 \ifx#1^^a4^^e4
\else % ä - U+00E4 - adieresis
38 \ifx#1^^a5^^e5
\else % å - U+00E5 - aring
39 \ifx#1^^a6^^e6
\else % æ - U+00E6 - ae
40 \ifx#1^^a7^^e7
\else % ç - U+00E7 - ccedilla
41 \ifx#1^^a8^^e8
\else % è - U+00E8 - egrave
43 \ifx#1^^a9^^e9
\else % é - U+00E9 - eacute
44 \ifx#1^^aa^^ea
\else % ê - U+00EA - ecircumflex
45 \ifx#1^^ab^^eb
\else % ë - U+00EB - edieresis
46 \ifx#1^^ac^^ec
\else % ì - U+00EC - igrave
47 \ifx#1^^ad^^ed
\else % í - U+00ED - iacute
48 \ifx#1^^ae^^ee
\else % î - U+00EE - icircumflex
49 \ifx#1^^af^^ef
\else % ï - U+00EF - idieresis
50 \ifx#1^^b0^^f0
\else % ð - U+00F0 - eth
51 \ifx#1^^b1^^f1
\else % ñ - U+00F1 - ntilde
52 \ifx#1^^b2^^f2
\else % ò - U+00F2 - ograve
54 \ifx#1^^b3^^f3
\else % ó - U+00F3 - oacute
55 \ifx#1^^b4^^f4
\else % ô - U+00F4 - ocircumflex
56 \ifx#1^^b5^^f5
\else % õ - U+00F5 - otilde
57 \ifx#1^^b6^^f6
\else % ö - U+00F6 - odieresis
58 \ifx#1^^b8^^f8
\else % ø - U+00F8 - oslash
59 \ifx#1^^b9^^f9
\else % ù - U+00F9 - ugrave
60 \ifx#1^^ba^^fa
\else % ú - U+00FA - uacute
61 \ifx#1^^bb^^fb
\else % û - U+00FB - ucircumflex
62 \ifx#1^^bc^^fc
\else % ü - U+00FC - udieresis
63 \ifx#1^^bd^^fd
\else % ý - U+00FD - yacute
65 \ifx#1^^be^^fe
\else % þ - U+00FE - thorn
66 \ifx#1^^bf^^b8
\else % ÿ - U+00FF - ydieresis
67 \errmessage{Hyphenation pattern file `dehypht-x-major-@DATE@.tex' corrupted!
}%
68 \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
69 \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
70 \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
75 \ifx#1^^a1^^b2
\else % š - U+0161 - scaron
76 \ifx#1^^be^^ba
\else % ž - U+017E - zcaron
77 \ifx#1^^
93^^f7
\else % œ - U+0163 - oe
78 \errmessage{Hyphenation pattern file `dehypht-x-major-@DATE@.tex' corrupted!
}%
81 \lccode"B2="B2
% š - U+0161 - scaron
82 \lccode"B8="B8
% ÿ - U+00FF - ydieresis
83 \lccode"BA="BA
% ž - U+017E - zcaron
84 \lccode"E0="E0
% à - U+00E0 - agrave
85 \lccode"E1="E1
% á - U+00E1 - aacute
86 \lccode"E2="E2
% â - U+00E2 - acircumflex
87 \lccode"E3="E3
% ã - U+00E3 - atilde
88 \lccode"E4="E4
% ä - U+00E4 - adieresis
89 \lccode"E5="E5
% å - U+00E5 - aring
90 \lccode"E6="E6
% æ - U+00E6 - ae
92 \lccode"E7="E7
% ç - U+00E7 - ccedilla
93 \lccode"E8="E8
% è - U+00E8 - egrave
94 \lccode"E9="E9
% é - U+00E9 - eacute
95 \lccode"EA="EA
% ê - U+00EA - ecircumflex
96 \lccode"EB="EB
% ë - U+00EB - edieresis
97 \lccode"EC="EC
% ì - U+00EC - igrave
98 \lccode"ED="ED
% í - U+00ED - iacute
99 \lccode"EE="EE
% î - U+00EE - icircumflex
100 \lccode"EF="EF
% ï - U+00EF - idieresis
101 \lccode"F0="F0
% ð - U+00F0 - eth
103 \lccode"F1="F1
% ñ - U+00F1 - ntilde
104 \lccode"F2="F2
% ò - U+00F2 - ograve
105 \lccode"F3="F3
% ó - U+00F3 - oacute
106 \lccode"F4="F4
% ô - U+00F4 - ocircumflex
107 \lccode"F5="F5
% õ - U+00F5 - otilde
108 \lccode"F6="F6
% ö - U+00F6 - odieresis
109 \lccode"F7="F7
% œ - U+0163 - oe
110 \lccode"F8="F8
% ø - U+00F8 - oslash
111 \lccode"F9="F9
% ù - U+00F9 - ugrave
112 \lccode"FA="FA
% ú - U+00FA - uacute
114 \lccode"FB="FB
% û - U+00FB - ucircumflex
115 \lccode"FC="FC
% ü - U+00FC - udieresis
116 \lccode"FD="FD
% ý - U+00FD - yacute
117 \lccode"FE="FE
% þ - U+00FE - thorn
118 \lccode"FF="FF
% ß - U+00DF - germandbls
121 \input dehypht-x-major-@DATE@.pat
123 % pTeX engine. Don't load any patterns.
124 \message{dehyph-exptl: pTeX engine detected. Experimental German
125 patterns not loaded!
}%