1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
% frhyphex.tex % French hyphenation exceptions loading
% frhyphex.tex % French exceptions 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 f8hyphex.tex % a 8bits file with TeX V3
% % else \input f7hyphex.tex % a 7bits file as for TeX V2
%
% lasts mods: V2.00 of february 14,1994. by --bg
% 01 of april 20,1994. PC & Mac input encodings. --bg
%
%\message{frhyphex.tex french exceptions loading (V2)}
%%
%% checksum = "35100 64 275 2510"
%%
%%%%%%%%%%%%%%%%%%%%%%%%%
% for other input encodings NOT TRANSLATED BY FILTERS:
%
% For the Mac uncomment the following line
%\input f8hyphex.mac \endinput%
%
% For the PC with code-page 850 uncomment the following line
%\input f8hyphex.850 \endinput%
%
%%%%%%%%%%%%%%%%%%%%%%%%%
\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%
\ifx\f@encoding\undefined\edef\f@encoding{\encodingdefault}\fi%
\def\@tempa{T1}\ifx\@tempa\f@encoding%
{\global\ECMtrue}%
\else{\global\ECMfalse}%
\fi%
\fi%\encodingdefault
%%%%
\ifECM \input f8hyphex.tex \else \input f7hyphex.tex \fi
\endgroup
\endinput
|
