From 5fd718eb3bef5dc9c05e7799a2d8f2f82078919c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 1 Apr 2018 22:30:06 +0000 Subject: dehyph-exptl (31mar18) git-svn-id: svn://tug.org/texlive/trunk@47228 c570f23f-e606-0410-a88d-b1316a301751 --- .../generic/dehyph-exptl/dehypht-x-2018-03-31.tex | 136 +++++++++++++++++++++ 1 file changed, 136 insertions(+) create mode 100644 Master/texmf-dist/tex/generic/dehyph-exptl/dehypht-x-2018-03-31.tex (limited to 'Master/texmf-dist/tex/generic/dehyph-exptl/dehypht-x-2018-03-31.tex') diff --git a/Master/texmf-dist/tex/generic/dehyph-exptl/dehypht-x-2018-03-31.tex b/Master/texmf-dist/tex/generic/dehyph-exptl/dehypht-x-2018-03-31.tex new file mode 100644 index 00000000000..79902a0950f --- /dev/null +++ b/Master/texmf-dist/tex/generic/dehyph-exptl/dehypht-x-2018-03-31.tex @@ -0,0 +1,136 @@ +% dehypht-x-2018-03-31.tex +% +% Copyright 2008-2018 Werner Lemberg +% You may freely use, modify and/or distribute this file. +% +% +% Put the whole wrapper into a group (\patterns acts globally). +\begingroup +% +% Create local flag for checking UTF-8 support of non-pTeX engines. +% \newif must be defined outside any \ifx command. +\newif\if@dehyphx@UTF@ +\@dehyphx@UTF@false +% Test for pTeX engine. pTeX needs explicit 8 bit patterns. +\ifx\kanjiskip\undefined + % Non-pTeX engine. Test for UTF-8 aware engine. + \def\testengine#1#2!{\def\secondarg{#2}}% + \testengine χ!\relax % That's Chi, a 2-byte UTF-8 sequence + \ifx\secondarg\empty + \message{dehyph-exptl: using a TeX engine with native UTF-8 support.}% + \@dehyphx@UTF@true + \else + \message{dehyph-exptl: using an 8-bit TeX engine.}% + \fi +% + \if@dehyphx@UTF@ + \else + % For 8-bit engines we define macros to convert the patterns from UTF-8 + % to EC encoding. + \catcode"C3=\active + \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 `dehypht-x-2018-03-31.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}% +% + \catcode"C5=\active + \def^^c5#1{% + \ifx#1^^a1^^b2\else % š - U+0161 - scaron + \ifx#1^^be^^ba\else % ž - U+017E - zcaron + \ifx#1^^93^^f7\else % œ - U+0163 - oe + \errmessage{Hyphenation pattern file `dehypht-x-2018-03-31.tex' corrupted!}% + \fi\fi\fi}% +% + \lccode"B2="B2 % š - U+0161 - scaron + \lccode"B8="B8 % ÿ - U+00FF - ydieresis + \lccode"BA="BA % ž - U+017E - zcaron + \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"F7="F7 % œ - U+0163 - oe + \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 dehypht-x-2018-03-31.pat +\else + % pTeX engine. Fall-back to using 8 bit (EC) patterns provided by + % package hyph-utf8. + \message{dehyph-exptl: using pTeX engine. Loading patterns provided by package hyph-utf8.}% + \input hyph-de-1901.ec.tex +\fi +% +\endgroup +% +\endinput + +%%% Local Variables: +%%% mode: tex +%%% coding: utf-8 +%%% End: -- cgit v1.2.3