summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/xelatex/polyglossia/gloss-french.ldf
blob: 85bc82ddd79ee20204bc9ccd7491f59dc6b3a920 (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
124
125
126
\ProvidesFile{gloss-french.ldf}[polyglossia: module for french]
\makeatletter
\def\french@font{\normalfontlatin}
\lccode"2019="2019

\ifx\l@french\@undefined%
   \xpg@nopatterns{French}%
   \adddialect\l@french0%
\fi

\def\french@punctuation{%
    \frenchspacing%
    \XeTeXinterchartokenstate=1%
    \XeTeXcharclass `\! 7%
    \XeTeXcharclass `\? 7%
    \XeTeXcharclass `\; 7%
    \XeTeXcharclass `\: 7%
    \XeTeXinterchartoks 0 7 = {\unskip\kern.1667em}%
    }

\def\nofrench@punctuation{%
    \nonfrenchspacing%
    \XeTeXinterchartokenstate=0%
}

\def\french@guillemets{%
    \XeTeXinterchartokenstate=1%
    \XeTeXcharclass `\« 8%
    \XeTeXcharclass `\» 8%
    \XeTeXinterchartoks 8 0 = {\kern.1667em}%
    \XeTeXinterchartoks 0 8 = {\unskip\kern.1667em}%
    \XeTeXinterchartoks 8 7 = {\unskip\kern.1667em}% "»;" -> "» ;"
    \XeTeXinterchartoks 7 8 = {\unskip\kern.1667em}% "?»" -> "? »"
}

%\newcounter{niveauguillemets}[paragraph]
%
%\def\tmp@normal{normal}
%\def\tmp@paragraphe{paragraphe}
%\def\tmp@ligne{ligne}

%TODO
%\define@key{french}{guillemets}[normal]{
%   \def\@tmpa{#1}
%   \ifx\@tmpa\tmp@ligne%
%      \def\french@guill@mets{% FIXME
%      \def\LeftPointingDoubleAngleQuotationMark{«\kern.1667em\setcounter{niveauguillemets}{1}%
%      \ifthenelse{\value{niveauguillemets} = 1}{\localleftbox{«\kern.1667em}}%
%      {\everypar={{«}\kern.1667em}\setcounter{niveauguillemets}{1}}}%
%      \def\RightPointingDoubleAngleQuotationMark{\unskip\kern.1667em»%
%      \everypar={}\localleftbox{}}}%
%   \else\ifx\@tmpa\tmp@paragraphe%
%      \def\french@guill@mets{\def\LeftPointingDoubleAngleQuotationMark{«\kern.1667em%
%      \everypar={«\kern.1667em}}\def\RightPointingDoubleAngleQuotationMark%
%      {\unskip\kern.1667em»\everypar={}}}%
%   \else\ifx\@tmpa\tmp@normal%
%      \def\french@guill@mets{\def\LeftPointingDoubleAngleQuotationMark{«\kern.1667em}%
%      \def\RightPointingDoubleAngleQuotationMark{\unskip\kern.1667em»}}%
%\fi\fi\fi}
%
%\def\tmp@sans{sansaccents}
%\define@key{french}{majuscules}{%
%   \def\@tmpa{#1}%
%   \ifx\@tmpa\tmp@sans%
%      \addfontfeature{Mapping=sansaccents}% <<< TODO!
%   \fi}

\def\captionsfrench{%
   \def\refname{Références}%
   \def\abstractname{Résumé}%
   \def\bibname{Bibliographie}%
   \def\prefacename{Préface}%
   \def\chaptername{Chapitre}%
   \def\appendixname{Annexe}%
   \def\contentsname{Table des matières}%
   \def\listfigurename{Table des figures}%
   \def\listtablename{Liste des tableaux}%
   \def\indexname{Index}%
   \def\figurename{\scshape Fig.}%
   \def\tablename{\scshape Tab.}%
   \def\@Fpt{\ifcase\value{part}\or Première\or Deuxième\or%
   Troisième\or Quatrième\or Cinquième\or Sixième\or%
   Septième\or Huitième\or Neuvième\or Dixième\or Onzième\or%
   Douzième\or Treizième\or Quatorzième\or Quinzième\or%
   Seizième\or Dix-septième\or Dix-huitième\or Dix-neuvième\or%
   Vingtième\fi\space}%
   \def\thepart{}%
   \def\partname{\protect\@Fpt partie}%
   \def\pagename{page}%
   \def\seename{\emph{voir}}%
   \def\alsoname{\emph{voir aussi}}%
   \def\enclname{P.~J. }%
   \def\ccname{Copie à }%
   \def\headtoname{}%
   \def\proofname{Démonstration}%
   }
\def\datefrench{%
   \def\today{\ifx\ier\undefined\def\ier{er}\fi%
      \ifnum\day=1\relax 1\ier%
      \else \number\day\fi%
      \space \ifcase\month%
      \or janvier\or février\or mars\or avril\or mai\or juin\or%
      juillet\or août\or septembre\or octobre\or novembre\or%
      décembre\fi%
      \space \number\year}}

\def\french@language{\protect\language=\l@french}

\setlocalhyphenmins{french}{2}{2}%

\def\noextras@french{%
   \nofrench@punctuation%
   \nofrench@indent}

\def\blockextras@french{%
   \french@punctuation%
   \french@indent%
   \french@guillemets%
   }

\def\inlineextras@french{%
   \french@punctuation%
   \french@guillemets%
   }

\endinput