%%% fr8hyph.mac
  %%
  %% Laurent Siebenmann, December 1993
  %% Master posting 1993-4:
  %%      ftp matups.matups.fr, directory TeX/TypingTeX.dir
  %% This file is 7bit ascii.
  %% This file is NOT autonomous, since it uses the
  %% coding-independant hyphenation file
  %% fr8hyph.src as source of the patterns.
  %%
  %% Sets up the universal 8bit French hyphenation patterns
  %% of fr8hyph.src for use with (output) font systems
  %% using the Mac font encoding in the range 128-255
  %% and the CM encoding in the range 0-127.
  %% The only examples available in 1993 are the Textures
  %% Adobe font series of Textures version 1.6x.
  %% Characters of Mac the 128-255 range that appear in the
  %% CM 0-127 range are omitted.

  %% HEALTH WARNING: This encoding is a curious new mixture.
  %% There are alternatives offering
  %% more fonts and more support, notably
  %% the Cork-extended CM encoding (Cork encoding rather
  %% than Mac in the range 128-255).  And the full
  %% Cork encoding. See "format-dumper" in versions -CM and -CK
  %% The main advantage of this encoding over the alternatives
  %% is its inclusion of various glyphs such as
  %% daggerdbl paragraph cent Yen ...

  %% SIMPLEST USE (with Plain TeX). Put copies of plain.tex,
  %% fr8hyph.mac and fr8hyph.src together in a Mac
  %% directory.  Rename fr8hyph.mac as hyphen.tex.
  %% Compile plain.tex using the Textures virtex (initex)
  %% and, when asked, type the command \dump. Save the 
  %% resulting format file in the directory "TeX formats".
  %% If you quit and restart Textures (or use the "add format"
  %% command) the new format will be available.
  %% Under this format, the default hyphenation system will
  %%  be French and you can directly type eight-bit characters
  %% (without inputing the file option.keys) --- provided you use
  %% only the fonts of the Adobe series of Textures >=1.62.

  %% The grouping around the the body of the file
  %% to follow assures that the net change induced
  %% is to the hyphenation trie only.
  %% (Neglecting a dozen or so abandoned hash table entries.)

 \begingroup

 \catcode`\<=0
 \catcode`\>=12
 \lccode`\'=`\' %
 \def\set#1>#2{\edef\temp{\def\noexpand#1>{\string #2}
                      \catcode`#2=12\lccode`#2=`#2}\temp}


 %%% Table setting up the Mac
  %% encoding for French patterns

 %% <ag> for <a-grave>
 \set<ag>^^88 %%^^e0  comment gives Cork encoding
 %% <eg> is <e-grave>
 \set<eg>^^8f %%^^e8

 %% <ea> is <e-acute>
 \set<ea>^^8e %%^^e9

 %% <ax> is <a-circumflex>
 \set<ax>^^89 %%^^e2
 %% <ex> is <e-circumflex>
 \set<ex>^^90 %%^^ea
 %% <ix> is <i-circumflex>
 \set<ix>^^94 %%^^ee
 %% <ox> is <o-circumflex>
 \set<ox>^^99 %%^^f4
 %% <ux> is <u-circumflex>
 \set<ux>^^9e %%^^fb

 %% <id> is <i-dieresis>
 \set<id>^^95 %%^^ef
 %% <od> is <o-dieresis>
 \set<od>^^9a %%^^f6

 %% <cc> is <u-cedilla>
 \set<cc>^^8d %%^^e7

 %% <oe> is <oe-ligature>
 \set<oe>^^1b %%^^f7 NB. ^^1b is CM encoding

%%% end of table



 \input fr8hyph.src

 \endgroup


\def\.#1#2.{\edef\temp{%
  \global\lccode`#1=`#2  \global\uccode`#1=`#1
  \global\lccode`#2=`#2  \global\uccode`#2=`#1}
  \temp}


  %% Now the Mac uc and lc codes
\.^^e7^^87.
\.^^83^^8e.
\.^^ea^^92.
\.^^ee^^97.
\.^^f2^^9c.
\.^^cb^^88.
\.^^e9^^8f.
\.^^ed^^93.
\.^^f1^^98.
\.^^f4^^9d.
\.^^e5^^89.
\.^^e6^^90.
\.^^eb^^94.
\.^^ef^^99.
\.^^f3^^9e.
\.^^80^^8a.
\.^^e8^^91.
\.^^ec^^95.
\.^^85^^9a.
\.^^86^^9f.
\.^^d9^^d8.
\.^^cc^^8b.
\.^^84^^96.
\.^^cd^^9b.
\.^^81^^8c.
\.^^82^^8d.
\.^^ce^^cf.
\.^^1d^^1a.%%\AE\ae
\.^^1e^^1b.%%\OE\oe
\.^^1f^^1c.%%\O\o
  
 %\endinput %% comment out to enable test
  
%%% Test  for Textures 1.62
  
  \font\ft=Times
  \ft
  
  \showhyphens{\ft hŽberluŽ h\'eberlu\'e}
  
\long\def\tst{\vskip5pt  Test of French lc and uc pairs:
\par 
   ˈ ε‰ €Š  ƒŽ  ι  ζ  θ‘  
   λ”  μ•  ο™  …š  σž  †Ÿ  ‚\par
   \OE\oe \AE\ae \O\o\ (These last refuse case change.)
   \vskip5pt
   }

  \let\e\expandafter

  \tst
  \e\uppercase\e{\tst}
  \e\lowercase\e{\tst }

\end