% frhyph.tex % French hyphenation patterns are no more here. This is the code 
%            % to load appropriate file depending on font usage in *plain :
%            % if ec/dc or  dmr (vf fonts) 
%            %          then \input f8hyph.tex % a 8bit file with TeX or MlTeX 
%            %          else \input f7hyph.tex % a 7bit file with MlTeX
%            % (any other combination is wrong)
%
% lasts mods: V1.00 of may    29,1992. a draft proposal by --bg
%                01 of july   31,1992. to include virtual dmr testing --bg
%                02 of august 24,1992. to introduce a DC test for lplain --bg
%                03 of september 4,92. to set ifECM globally --bg
%                04 of october   6,93. use NFSS2 \encodingdefault if any. --bg
%                05 of november 30,93  \f@encoding may be undefined. 
%                                      (as pointed by Denis. B. Roegel).  --bg
%                06 of april  20,1994. PC & Mac input encodings. --bg
%                07 of december 22,94. Let \ifHB set \ifECM in 2e. --bg
%                08 of march   2,1995. Error message for TeX engine+cmr --bg
%                09 of april   5,1995. Remove pc & mac partial infos.   --bg
% 
%\message{frhyph.tex french hyphenation patterns code. V1.09}
%%
%%      checksum        = "06533 74 378 3313"
%%
%%%%%%%%%%%%%%%%%%%%%%%%%
\begingroup% to protect all the marmelade done
\catcode`[=13\catcode`@=11%
%
% test if ECM can be used (in fact DCM here) 
%
\newif\ifECM\let\ifECM\ifHB% may be it's already set by \ifHB in lhyphen/plain
\ifx\ifHB\undefined\ECMfalse\fi% 
\ifx\encodingdefault\undefined%
  \ifECM\else% if false test (again) if it might be an ec/dc font
  \ifx\rm\undefined% may be \rm isn't allready defined (specially with LaTeX)
                   \def\graveDC{\mathaccent"7000 }% so test such char
                   \ifx\graveDC\grave\ECMtrue\else\ECMfalse\fi%
  \else% try on fontname that is a better security
     \def\is@DC#1#2#3\relax{\if d#11\fi \if e#11\fi \if c#22\fi}
     \def\dcdo{% \dcdo code Version 3 as of 01/27/92 on DCFONT discussion list
               \ifnum 12=0\expandafter\is@DC\fontname\font xx\relax\space
                          \expandafter\dc@first
               \else      \expandafter\dc@second
               \fi}
          \def\dc@first#1#2{#1}%
          \def\dc@second#1#2{#2}%
  {\rm\dcdo{\global\ECMtrue}{\global\ECMfalse}}% final DC test
  \fi%\ifx\rm\undefined
  \fi%\ifECM\else..
%
  \ifECM\global\def\encodingdefault{T1}%   T1 is for DC/EC
   \else\global\def\encodingdefault{OT1}% OT1 is for CMR
  \fi%
%
\else%
  \ifECM\else% dont test it again if unnecessary 
    \ifx\f@encoding\undefined\edef\f@encoding{\encodingdefault}\fi%
     \def\@tempa{T1}\ifx\@tempa\f@encoding%
                          {\global\ECMtrue}%
                     \else{\global\ECMfalse}%
                     \fi%
  \fi%
\fi%\encodingdefault
%%%%
\ifECM \input f8hyph.tex \else%
                         \ifx\charsubdef\undefined%
\message{ERROR!}
\message{Something wrong! your TeX engine can't hyphenate correctly}
\message{french words with diacritics *in that current font* or encoding.}
\Stop% try any other 8bit font encoding default, like DC.
                         \else\input f7hyph.tex % 
                         \fi%
\fi
\endgroup
\endinput