blob: c93a20cbfad3a35f5e46d561941fbf6d75e2b716 (
plain)
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
%%%% email-fr.dmp
%%%
%%% Laurent Siebenmann, November 1993
%%% Master Posting in 1993: anonymous ftp matups.matups.fr
%%% (perhaps) in directory TypingTeX.dir
%%% Support: lcs@matups.matups.fr
%%%
%%% Description: This file is a
%%% format compilation utility for email-fr.fix.
%%% Run under initex, it dumps a format
%%% which has the following magical property.
%%% If email-fr.fix is run under this format
%%% with the "automatic" option on, it is able to
%%% AUTOMATICALLY correct the one characteristic
%%% typing error one makes in email-fr typing,
%%% namely the use of 'e (e-accute) for /e (apostrophe e).
%%% Otherwise email-fr.fix needs
%%% lots of dialog with the user.
%%% emailFR hyphenations
%%% Educate virgin TeX about catcodes
\catcode`\{=1 \catcode`\}=2
\catcode9=10\relax% tab is space
\catcode`\#=6 % hash mark is macro parameter
\def\temp{\immediate\write16}
\temp{}%
\temp{ **********************************************}%
\temp{ *** Taper <retour> pour cr'eer un format emailFR}%
\temp{ *** qui sert pour email-fr.fix}%
\temp{ **********************************************}%
\show\courage
%%%% Quickly input Plain without US hyphenation
\let\primimmediate\immediate
\def\immediate#1#2#3{} %% suppress \immediate\write16 for now
\let\priminput\input
\def\input hyphen{\relax}
\priminput plain.tex %% lplain must be standard
\let\immediate\primimmediate
%%% Have Plain TeX without any language or patterns defined.
%%% Now define language emailFR
%% along with pattrns suitable for
%% email-fr.fix
%%%% \LoadEmailFRpatterns below can be added to other
\begingroup
\catcode`\@=11
\gdef\InstallEmailFR{{
%
{\catcode32=12\relax\gdef\OtherSp@{ }}
%
\catcode`\'=12
\catcode`\?=12
\catcode`\-=12
%
\lccode`\'=`\' %
\lccode`\?=`\? %
\lccode`\-=`\- %
\lccode32=32 %
%%% use special language for compatibility with other formats
\csname newlanguage\endcsname\l@emailFR
\language=\l@emailFR
%%
\patterns{%
%%.c3? .d3? .j3? .l3? .m3? .n3? .qu3? .s3? .t3? %% not needed
%% but could be used with "three syllable" criterion
?3eff ?3ect ?3ecze
?3edel
?3eid ?3einst ?3elb ?3eld
?3ell
?3emb
?3emm ?3emp
?3en.
?3en-
?3enc ?3end ?3enf ?3eng
?3enh ?3enivr ?3enj ?3enk ?3enl ?3enn
?3enq ?3enr ?3ens ?3ent ?3env ?3enz
?3erb ?3erg ?3erm ?3erp ?3err ?3ers
?3esb ?3esc ?3esg ?3esk ?3esp ?3ess ?3est
?3ethn
?3eu
?3evzone
?3ex
?3ey
%% ecceptions from Greek
?3ego
?3egos-
%% exceptions from Computer Sci
?3email
?3emacs
?3e-
%% Proper names
.S?4ego.
%% Quandry in French: signal by >>2 syllables (not yet)
%.n3?3e3s.
%% test
zz3zz
}
%
\let\Install@EmailFR\relax}}
\endgroup
\InstallEmailFR
\dump
|
