summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lambda/base/french.lay
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/lambda/base/french.lay')
-rw-r--r--Master/texmf-dist/tex/lambda/base/french.lay42
1 files changed, 42 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/lambda/base/french.lay b/Master/texmf-dist/tex/lambda/base/french.lay
new file mode 100644
index 00000000000..cc708a9b872
--- /dev/null
+++ b/Master/texmf-dist/tex/lambda/base/french.lay
@@ -0,0 +1,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