blob: 7e605bb052ca6d42c97cbe5e6b75125123e8f4b8 (
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
|
%D \module
%D [ file=enco-ffr,
%D version=2002.05.07,
%D title=\CONTEXT\ Encoding Macros,
%D subtitle=French Input Filter,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
% \definehspace[fr][:][.25em]
% \definehspace[fr][;][.25em]
% \definehspace[fr][!][.25em]
% \definehspace[fr][?][.25em]
\enablemode[activecolon] \usemodule[tryout] % for the moment
\installactivecharacter :
\installactivecharacter ;
\installactivecharacter ?
\installactivecharacter !
\unprotect
\startlanguagespecifics[\s!fr]
\definetextmodediscretionary : {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentmainlanguage{:}:}
\definetextmodediscretionary ; {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentmainlanguage{;};}
\definetextmodediscretionary ? {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentmainlanguage{?}?}
\definetextmodediscretionary ! {\removeunwantedspaces\prewordbreak\kern\hspaceamount\currentmainlanguage{!}!}
\stoplanguagespecifics
\startlanguagespecifics[\s!fr]
\defineactivecharacter : {\mathortext{:}{\directdiscretionary{:}}}
\defineactivecharacter ; {\mathortext{;}{\directdiscretionary{;}}}
\defineactivecharacter ! {\mathortext{!}{\directdiscretionary{!}}}
\defineactivecharacter ? {\mathortext{?}{\directdiscretionary{?}}}
\stoplanguagespecifics
\appendtoks % maybe everywhere
\chardef\activecharactermode\zerocount
\to\everyMPgraphic
% maybe tricky due to possible name clashes:
%
% \def\ieme {\highordinalstr{e}}
% \def\iemes{\highordinalstr{es}}
% \def\ier {\highordinalstr{er}}
% \def\iers {\highordinalstr{ers}}
% \def\iere {\highordinalstr{re}}
% \def\ieres{\highordinalstr{res}}
\protect \endinput
|
