%%% 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
