summaryrefslogtreecommitdiff
path: root/language/typingtex/email.dir/email-fr.dmp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /language/typingtex/email.dir/email-fr.dmp
Initial commit
Diffstat (limited to 'language/typingtex/email.dir/email-fr.dmp')
-rw-r--r--language/typingtex/email.dir/email-fr.dmp123
1 files changed, 123 insertions, 0 deletions
diff --git a/language/typingtex/email.dir/email-fr.dmp b/language/typingtex/email.dir/email-fr.dmp
new file mode 100644
index 0000000000..c93a20cbfa
--- /dev/null
+++ b/language/typingtex/email.dir/email-fr.dmp
@@ -0,0 +1,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 \ No newline at end of file