 %%% fr-us.tex
 %%  part of fe-format-dumper-ck directory
 %%  L. Siebenmann, 5-92
 %%  Documentation in fe-dump.doc
 %%  Loads French and US English 
 %%  hyphenation patterns and exceptions.
 %%  Input under plain.tex with catcode of @ equal 11
 %%  \US, \FR commands used later on
 %%  Default setting \FR.

 \newcount\l@EC % European community virtual language
 \l@EC=0
 \def\NewLanguage{\alloc@9\language\chardef\@cclvi}
   % as \newlanguage but more accessible
 \NewLanguage\l@US 
       %% \l@... standard name scheme (Braam)
 \language=\l@US
 \priminput ushyphen.std %%  USA hyphenation; 
     % remplace/complement with others: Spanish, Itanian, German, ...
 \NewLanguage\l@FR
 \language=\l@FR
  \priminput fr8hyph.ck %% provisional 

  %% Use automobile nationality codes: FR, US, ...
 \def\FR{\language=\l@FR \lccode`\'=`\'}
      %% FR etc. standard name scheme Haralambous

 %% apostrophe is a letter in French jus-qu'a, l'ha-bi-tude
 %% see \patterns of Desarmenien

 \def\US{\language=\l@US \lccode`\'=0}

 \FR % French used by default

  %%% For email-fr.fix
   %% introduce artificial language \l@emailFR
  \input email-fr.hph

