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
|
\ocp\IdOCP=id
\ocplist\NilOCP=
\addbeforeocplist 500 \IdOCP
\addbeforeocplist 1750 \IdOCP
\addbeforeocplist 2000 \IdOCP
\addbeforeocplist 3500 \IdOCP
\nullocplist
\ocp\BasicFrenchTexUni=french2uni
\ocp\BasicLatinUniToFont=uni2lat
\ocp\BasicLatinUniToFontNoFfi=uni2lat-noffi
\ocplist\BasicFrenchOCP=
\addbeforeocplist 500 \BasicFrenchTexUni
\addbeforeocplist 1750 \IdOCP
\addbeforeocplist 2000 \IdOCP
\addbeforeocplist 3500 \BasicLatinUniToFont
\nullocplist
\def\frenchpunctuation{%
\def\LeftPointingDoubleAngleQuotationMark{^^^^00ab\kern.1667em}%
\def\RightPointingDoubleAngleQuotationMark{\unskip\kern.1667em^^^^00bb}%
\def\LeftDoubleQuotationMark{^^^^201c}%
\def\RightDoubleQuotationMark{^^^^201d}%
\def\QuestionMark{\unskip\kern.1667em?}%
\def\ExclamationMark{\unskip\kern.1667em!}%
\def\Semicolon{\unskip\kern.1667em;}%
\def\Colon{\unskip~:\typeout{French colon!}}}
\makeatletter
\newenvironment{french}{\frenchpunctuation\language=\l@french\def\today{\number\day
\ifnum1=\day \ier\fi
\space \ifcase\month
\or janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
juillet\or ao\^ut\or septembre\or octobre\or novembre\or
d\'ecembre\fi
\space \number\year}%
\def\addcontentsline##1##2##3{%
\addtocontents{##1}{\protect\contentsline{##2}{\protect\pushocplist\BasicFrenchOCP##3}{\thepage}}}%
\pushocplist\BasicFrenchOCP}{}
\newcommand{\localfrench}[1]{{\frenchpunctuation\protect\pushocplist\BasicFrenchOCP#1}}
\makeatother
\endinput
|
