summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/lettre
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-09-10 21:15:23 +0000
committerKarl Berry <karl@freefriends.org>2014-09-10 21:15:23 +0000
commit52b15314618e900be23312186f4f5722db7e4ce7 (patch)
tree77f5fe2a257375be9e2a71a4d633cbac114725b6 /Master/texmf-dist/tex/latex/lettre
parentb25e5ccbc126fd46c07bcf8415a21a3120ef7c38 (diff)
lettre (10sep14)
git-svn-id: svn://tug.org/texlive/trunk@35145 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/lettre')
-rw-r--r--Master/texmf-dist/tex/latex/lettre/default.ins23
-rw-r--r--Master/texmf-dist/tex/latex/lettre/lettre.cls428
2 files changed, 136 insertions, 315 deletions
diff --git a/Master/texmf-dist/tex/latex/lettre/default.ins b/Master/texmf-dist/tex/latex/lettre/default.ins
index 73df42049c5..53ced772d79 100644
--- a/Master/texmf-dist/tex/latex/lettre/default.ins
+++ b/Master/texmf-dist/tex/latex/lettre/default.ins
@@ -1,12 +1,23 @@
+% file name : `default.ins'.
+% pacakge name: lettre
+% maintenance : Vincent Belaïche (vincentb1@users.sourceforge.net)
+% author : Denis Mégevand - Observatoire de Genève
+% email : lettre_observatoire-aide@gna.org
+% version : v2.353
+% date : 2014/09/09
+%
% This file is part of the "lettre" package.
-% This package is distributed under the terms of the LaTeX Project
-% Public License (LPPL) described in the file lppl.txt.
+% This work may be distributed and/or modified under the conditions of the
+% LaTeX Project Public License, either version 1.3 of this license or (at your
+% option) any later version. The latest version of this license is in
+% http://www.latex-project.org/lppl.txt and version 1.3 or later is part of all
+% distributions of LaTeX version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
%
-% Denis Mégevand - Observatoire de Genève.
+% The Current Maintainer of this work is Vincent Belaïche.
%
-% Ce fichier fait partie de la distribution du paquetage "lettre".
-% Ce paquetage est distribué sous les termes de la licence publique
-% du projet LaTeX (LPPL) décrite dans le fichier lppl.txt.
+% This work consists of all files listed in file README
%
% ****************************************
% * DEFINITIONS DE L'INSTITUT B.I.D.O.N *
diff --git a/Master/texmf-dist/tex/latex/lettre/lettre.cls b/Master/texmf-dist/tex/latex/lettre/lettre.cls
index a785eb70edf..bc77d73564f 100644
--- a/Master/texmf-dist/tex/latex/lettre/lettre.cls
+++ b/Master/texmf-dist/tex/latex/lettre/lettre.cls
@@ -1,51 +1,46 @@
-% %NAME% : Lettre
-% maintenance: Vincent Belaïche (vincentb1@users.sourceforge.net)
-% %AUTHOR% : Denis Mégevand - Observatoire de Genève
-% %EMAIL% : Denis.Megevand@obs.unige.ch
-% %VERSION% : v2.348
-%%
-%% This is file `lettre.cls'.
-%%
-%% The original source files were:
-%%
-%% letter.cls - LaTeX 2e team
-%% lettre.sty - D. Megevand
-%%
-%%
-%% IMPORTANT NOTICE:
-%%
-%% This file is part of the "lettre" package.
-%% This package is distributed under the terms of the LaTeX Project
-%% Public License (LPPL) described in the file lppl.txt.
-%%
-%% Denis Mégevand - Observatoire de Genève.
-%%
-%% Ce fichier fait partie de la distribution du paquetage "lettre".
-%% Ce paquetage est distribué sous les termes de la License Publique
-%% du Projet LaTeX (LPPL) décrite dans le fichier lppl.txt.
-%%
+% file name : `lettre.cls'.
+% package name: lettre
+% maintenance : Vincent Belaïche (vincentb1@users.sourceforge.net)
+% author : Denis Mégevand - Observatoire de Genève
+% email : lettre_observatoire-aide@gna.org
+% version : v2.353
+% date : 2014/09/09
+%
+% This file is part of the "lettre" package.
+% This work may be distributed and/or modified under the conditions of the
+% LaTeX Project Public License, either version 1.3 of this license or (at your
+% option) any later version. The latest version of this license is in
+% http://www.latex-project.org/lppl.txt and version 1.3 or later is part of all
+% distributions of LaTeX version 2005/12/01 or later.
%
-% ****************************************
-% * PREAMBULE *
-% ****************************************
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Vincent Belaïche.
+%
+% This work consists of all files listed in file README
%
\NeedsTeXFormat{LaTeX2e}
\RequirePackage{graphicx}
-\ProvidesClass{lettre}[2013/10/07 v2.349]
+\ProvidesClass{lettre}[2014/09/09 v2.353]
\typeout{Copyleft Denis Megevand - Observatoire de Geneve}%
%%
-\newcommand\@ptsize{}
\DeclareOption{10pt}{\renewcommand\@ptsize{0}}
\DeclareOption{11pt}{\renewcommand\@ptsize{1}}
\DeclareOption{12pt}{\renewcommand\@ptsize{2}}
+\if@compatibility\else
+\DeclareOption{a4paper}
+ {\setlength\paperheight {297mm}%
+ \setlength\paperwidth {210mm}}
+\fi
\if@compatibility
- \DeclareOption{twoside}{\@latexerr{No `twoside' layout for letters}%
- \@eha}
+ \DeclareOption{twoside}{\ClassError{lettre}{No `twoside' layout for letters}%
+ {LaTeX2e is running in compatibility mode, in this mode there is no `twoside'
+ layout for letters}}
\else
\DeclareOption{twoside}{\@twosidetrue}
\fi
\DeclareOption{oneside}{\@twosidefalse}
-\DeclareOption{origdate}{\@origdatetrue\PackageWarningNoLine{lettre}{Mode `origdate'}}
+\DeclareOption{origdate}{\@origdatetrue\l@@info{Mode `origdate'}}
\DeclareOption{draft}{\setlength\overfullrule{5pt}}
\DeclareOption{final}{\setlength\overfullrule{0pt}}
\DeclareOption{leqno}{\input{leqno.clo}}
@@ -55,20 +50,29 @@
\DeclareOption{allemand}{\def\defaultlanguage{allemand}}
\DeclareOption{americain}{\def\defaultlanguage{americain}}
\DeclareOption{anglais}{\def\defaultlanguage{anglais}}
-\if@compatibility
-\else
-\DeclareOption*{\PackageWarningNoLine{lettre}{Option inconnue : `\CurrentOption'}}
+\if@compatibility\else
+ \DeclareOption*{\l@@warning{Option inconnue : `\CurrentOption', assurez-vous que
+ c'est une option globale passee aux paquetages utilises dans votre document}}
\fi
+\def\infos{\c@infos=1\relax}
+\def\noinfos{\c@infos=0\relax}
+%
+\def\l@@warning{%
+ \ClassWarning{lettre}%
+}
+\def\l@@info#1{\ifnum\c@infos=1 %
+ \GenericWarning{%
+ (lettre)\space\@spaces\@spaces\@spaces
+ }{Class lettre Message: #1\@gobble}%
+ \fi
+}%
+\newcommand\@ptsize{}
+\newcount\c@infos\c@infos=1\relax
\newif\if@origdate\@origdatefalse
\newif\if@etiq\@etiqfalse
\ExecuteOptions{10pt,oneside,final,francais}
\ProcessOptions
\input{size1\@ptsize.clo}
-%
-% ****************************************
-% * POLICES *
-% ****************************************
-%
\DeclareOldFontCommand{\rm}{\rmfamily}{\mathrm}
\DeclareOldFontCommand{\sl}{\slshape}{\@nomath\sl}
\DeclareOldFontCommand{\it}{\itshape}{\mathit}
@@ -78,11 +82,6 @@
\DeclareOldFontCommand{\tt}{\ttfamily}{\mathtt}
\DeclareRobustCommand*{\cal}{\@fontswitch{\relax}{\mathcal}}
\DeclareRobustCommand*{\mit}{\@fontswitch{\relax}{\mathnormal}}
-%
-% ****************************************
-% * PARAGRAPHES : parametres *
-% ****************************************
-%
\lineskip 1pt%
\normallineskip 1pt%
\parskip .7em%
@@ -98,56 +97,27 @@
\@beginparpenalty -\@lowpenalty
\@endparpenalty -\@lowpenalty
\@itempenalty -\@lowpenalty
-%
-% ****************************************
-% * MISE-EN-PAGE : parametres *
-% ****************************************
-
-% marge sup. 25mm
\topmargin 25mm%
-% suppression de l'offset vertical
\advance\topmargin by -1in
-% sep. d'entete 4mm
\headheight 0pt%
\headsep 4mm%
-% hauteur texte 250mm
\textheight 250mm%
% sep d'embase 9mm
\footskip 9mm%
%
-% total vertical 25+4+250+9=288 mm, reste 9 mm sur A4 = 297 mm.
-%
\footnotesep 5mm%
\marginparpush 1mm%
%
% marge gauche 25mm
\oddsidemargin 25mm%
\evensidemargin 25mm%
-% suppression de l'offset horizontal
\advance\oddsidemargin by -1in
\advance\evensidemargin by -1in
-% largeur texte 160mm
\textwidth 160mm%
-% sep. note lat. 4mm
\marginparsep 4mm%
-% larg. note lat 15mm
\marginparwidth 15mm%
-%
-% total horizontal 25+160+4+15=204 mm, reste 6 mm sur A4 = 210 mm.
-%
\skip\footins 4mm plus 2pt minus 4pt%
-%
-% ************************************************
-% * LE FORMAT LETTRE ET FAX DE *
-% * L'OBSERVATOIRE DE GENEVE *
-% ************************************************
-%
-% ************************************************
-% * NEWCOUNTS, NEWDIMENS, NEWIFS, NEWWRITE *
-% ************************************************
-%
\newcount\auxcount
-\newcount\c@infos\c@infos=1\relax
\newcount\c@labelstart
\newcount\c@lettre
\newcount\c@telefax
@@ -173,7 +143,6 @@
\newdimen\faxbox@width
\newdimen\toaddress@fax@width
\newdimen\fromname@fax@width
-%
\newif\if@letter\@lettertrue
\newif\if@detail\@detailfalse
%
@@ -181,12 +150,8 @@
\newwrite\@dateaux
\newwrite\@etiqaux
\newwrite\@faxaux
-%
-% ************************************************
-% * MACROS INTERNES *
-% ************************************************
-%
-\@ifundefined{lettre@t}{}{\PackageError{lettre}{Definition en double}{Redefinition de la macro `lettre@t'}}
+\@ifundefined{lettre@t}{}{\ClassError{lettre}{Definition en double}%
+ {Redefinition de la macro `lettre@t'}}
\def\lettre@t#1#2{\begin{list}{#1}{\setlength{\labelsep}{10pt}%
\setlength{\labelwidth}{\listmargin}%
\setlength{\leftmargin}{\listmargin}%
@@ -240,55 +205,18 @@
\def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}%
\def\startbreaks{\let\\=\@normalcr
\interlinepenalty 200\relax\def\par{\@@par\penalty -100\relax}}%
-%
-%*************************************************************
-% MESSAGES ET AVERTISSSEMENTS *
-%*************************************************************
-%
-% Envoyes a la console et dans le fichier de log
-%
-% On peut supprimer allumer ou eteindre en tout temps les
-% messages d'informations par les commandes \infos et \noinfos.
-% Les avertissements ne peuvent etre supprimes.
-%*************************************************************
-\def\infos{\c@infos=1\relax}
-\def\noinfos{\c@infos=0\relax}
-%
-\def\ltypeout#1{{\let\protect\string\immediate\write16{#1}}}%
-\def\l@@warning#1{\typeout{LETTRE WARNING: #1.}}%
-\def\l@warning#1{\l@@warning{#1\on@line}}%
-\def\l@@info#1{\ifnum\c@infos=1\typeout{LETTRE INFO: #1.}\fi}%
-%
-% ************************************************
-% * ETIQUETTES *
-% ************************************************
-%
-% La commande \startlabels suivante definit des pages
-% A4 de 2 colonnes d'etiquettes avec 15 mm de marges
-% gauche et droite sur chaque etiquette.
-% Si l'on change le nombre d'etiquettes sur une page,
-% il faut aussi modifier la routine \@startlabels
-%
\def\startlabels{%
\baselineskip=0pt\lineskip=0pt%
\pagestyle{empty}%
\let\@texttop=\relax
\topmargin=0pt\headsep=0pt%
\oddsidemargin=15mm\evensidemargin=15mm%
-%
-% modifications des dimensions de la page a faire ici
-%
\textheight=297mm\textwidth=180mm\columnsep=30mm%
\@colht=\textheight\@colroom=\textheight\vsize=\textheight
\small
\baselineskip=0pt\lineskip=0pt%
\boxmaxdepth=0pt%
\twocolumn\relax}%
-%
-% La commande \@startlabels suivante definit la position de la
-% premiere etiquette sur la page, a partir de la valeur du
-% compteur \c@labelstart.
-%
\def\@startlabels{%
\l@@info{Position de la premiere etiquette: \the\c@labelstart}%
\ifnum\c@labelstart>\z@
@@ -303,40 +231,18 @@
\l@@warning{Position de la premiere etiquette ignoree}%
\fi
}%
-%
-% La commande \mlabel fabrique une etiquette de 37 mm de hauteur,
-% la largeur etant definie dans \startlabels (105mm-30mm de marges)
-% chacune contenant 70 mm de texte au centre de l'etiquette.
\def\mlabel#1{\setbox0\vbox{\parbox[b]{70mm}{\rm\strut\ignorespaces #1}}%
\vbox to 37mm{\vskip5mmplus1fil \box0 \vskip5mmplus1fil}}%
-%
-% \makelabels demande a \begin{document} d'imprimer sur le fichier
-% auxiliaire .etq l'ordre de preparer les etiquettes.
-% Son argument optionnel definit quelle est la prochaine etiquette
-% libre sur la page, de maniere a utiliser des feuilles deja
-% partiellement utilisees. Dans ce cas, \begin{document} imprime
-% autant d'etiquettes vides que necessaire.
-%
\def\makelabels{%
\@etiqtrue
\l@@info{On demande des etiquettes}%
\@ifnextchar [{\i@makelabels}{\i@makelabels[1]}}%
\def\i@makelabels[#1]{\c@labelstart=#1}%
-%
-% ****************************************
-% * ADAPTATIONS DES DEFAUTS *
-% ****************************************
-%
\def\institut#1{%
\l@@info{Fichier de defaut: #1.ins}%
\def\@institut{\makeatletter
\input{#1.ins}%
\makeatother}}%
-%
-% ************************************************
-% * ENVIRONNEMENTS LETTER ET FAX *
-% ************************************************
-%
\long\def\letter#1{%
\rm
\global\advance\c@lettre\@ne
@@ -369,43 +275,43 @@
\immediate\write\@tensionaux{%
\string\expandafter\string\def%
\string\csname\space newletter\the\c@lettre\string\endcsname{-2}}%
- \l@@warning{Longueur de la derniere page : \the\pagetotal < 50pt}%
- \l@@warning{ tension de page modifiee a -2, veuillez recompiler}%
+ \l@@warning{Longueur de la derniere page : \the\pagetotal < 50pt\MessageBreak
+ tension de page modifiee a -2, veuillez recompiler}%
\else
\ifdim\pagetotal < 90pt
\immediate\write\@tensionaux{%
\string\expandafter\string\def%
\string\csname\space newletter\the\c@lettre\string\endcsname{-4}}%
- \l@@warning{Longueur de la derniere page : \the\pagetotal < 90pt}%
- \l@@warning{ tension de page modifiee a -4, veuillez recompiler}%
+ \l@@warning{Longueur de la derniere page : \the\pagetotal < 90pt\MessageBreak
+ tension de page modifiee a -4, veuillez recompiler}%
\else
\ifdim\pagetotal < 130pt
\immediate\write\@tensionaux{%
\string\expandafter\string\def%
\string\csname\space newletter\the\c@lettre\string\endcsname{-5}}%
- \l@@warning{Longueur de la derniere page : \the\pagetotal < 130pt}%
- \l@@warning{ tension de page modifiee a -5, veuillez recompiler}%
+ \l@@warning{Longueur de la derniere page : \the\pagetotal < 130pt\MessageBreak
+ tension de page modifiee a -5, veuillez recompiler}%
\else
\ifdim\pagetotal < 170pt
\immediate\write\@tensionaux{%
\string\expandafter\string\def%
\string\csname\space newletter\the\c@lettre\string\endcsname{-6}}%
- \l@@warning{Longueur de la derniere page : \the\pagetotal < 170pt}%
- \l@@warning{ tension de page modifiee a -6, veuillez recompiler}%
+ \l@@warning{Longueur de la derniere page : \the\pagetotal < 170pt\MessageBreak
+ tension de page modifiee a -6, veuillez recompiler}%
\else
\ifdim\pagetotal < 210pt
\immediate\write\@tensionaux{%
\string\expandafter\string\def%
\string\csname\space newletter\the\c@lettre\string\endcsname{4}}%
- \l@@warning{Longueur de la derniere page : \the\pagetotal < 210pt}%
- \l@@warning{ tension de page modifiee a 4, veuillez recompiler}%
+ \l@@warning{Longueur de la derniere page : \the\pagetotal < 210pt\MessageBreak
+ tension de page modifiee a 4, veuillez recompiler}%
\else
\ifdim\pagetotal < 250pt
\immediate\write\@tensionaux{%
\string\expandafter\string\def%
\string\csname\space newletter\the\c@lettre\string\endcsname{6}}%
- \l@@warning{Longueur de la derniere page : \the\pagetotal < 250pt}%
- \l@@warning{ tension de page modifiee a 6, veuillez recompiler}%
+ \l@@warning{Longueur de la derniere page : \the\pagetotal < 250pt\MessageBreak
+ tension de page modifiee a 6, veuillez recompiler}%
\else
\immediate\write\@tensionaux{%
\string\expandafter\string\def%
@@ -437,15 +343,14 @@
\\\toaddress}}%
\endgroup
\fi}%
-%
\long\def\telefax#1#2{%
\rm
\global\advance\c@telefax\@ne
\l@@info{Telefax \the\c@telefax}%
\ifnum\c@telefax=\@ne
\else
- \l@@warning{Un seul telefax par fichier, s.v.p.,}
- \l@@warning{ sinon le nombre de pages du fax est incorrect !}
+ \l@@warning{Un seul telefax par fichier, s.v.p.,\MessageBreak
+ sinon le nombre de pages du fax est incorrect !}
\fi
\ifodd\c@page%
\else
@@ -479,32 +384,41 @@
\immediate\openout\@faxaux=\jobname.fax%
\immediate\write\@faxaux{\string\def\string\totalpages{\the\faxpage}}%
\if\totalpages\the\faxpage\else
- \l@@warning{Le nombre de pages du fax a change, }%
- \l@@warning{(ancien=\totalpages, nouveau=\the\faxpage) }%
- \l@@warning{ veuillez recompiler pour le corriger dans l'entete.}%
+ \l@@warning{Le nombre de pages du fax a change, \MessageBreak
+ (ancien=\totalpages, nouveau=\the\faxpage) \MessageBreak
+ veuillez recompiler pour le corriger dans l'entete}%
\fi
\endgroup
\@@par\pagebreak\@@par
}%
-%
-% ************************************************
-% * OPENING ET CLOSING *
-% ************************************************
-%
+\def\lettre@write@pdate@to@dateaux{%
+ \l@@info{`\pdate' ecrit dans \jobname.odt}%
+ {%
+ \let\protect\string
+ \immediate\write\@dateaux{%
+ \string\expandafter\string\def%
+ \string\csname\space origdate\the\c@lettre
+ \string\endcsname{\pdate}}}}
+\def\lettre@get@date{%
+ \if@origdate
+ \expandafter\ifx\csname origdate\the\c@lettre
+ \endcsname\relax
+ \else
+ \l@@info{Date originale lue dans \jobname.odt}%
+ \def\pdate{\csname origdate\the\c@lettre\endcsname}%
+ \fi
+ \lettre@write@pdate@to@dateaux
+ \fi
+}
+\def\lettre@put@fromlieu@date{%
+ \ifx\@empty\fromlieu
+ \else
+ \fromlieu
+ \ifx\@empty\pdate\else, \fi
+ \fi
+ \ifx\@empty\pdate\else\pdate\fi}
\def\letteropening#1{%
- \if@origdate
- \expandafter\ifx\csname origdate\the\c@lettre
- \endcsname\relax
- \else
- \l@@info{Date originale lue dans \jobname.odt}%
- \def\pdate{\csname origdate\the\c@lettre\endcsname}%
- \fi
- \l@@info{`\pdate' ecrit dans \jobname.odt}%
- \immediate\write\@dateaux{%
- \string\expandafter\string\def%
- \string\csname\space origdate\the\c@lettre
- \string\endcsname{\pdate}}%
- \fi
+ \lettre@get@date
\hbadness=10000\relax
\thispagestyle{empty}%
\setlength{\unitlength}{1mm}%
@@ -529,12 +443,8 @@
\fi}}}
\put(\fromlieu@let@hpos,\fromlieu@let@vpos){\makebox(0,0)[bl]{%
\parbox[t]{\fromlieu@let@width}{%
- \ifx\@empty\fromlieu
- \else\fromlieu, %
- \fi
- \ifx\@empty\pdate ~%
- \else \pdate
- \fi}}}%
+ \lettre@put@fromlieu@date
+ }}}%
\put(\toaddress@let@hpos,\toaddress@let@vpos){\makebox(0,0)[tl]{%
\parbox{\toaddress@let@width}{%
\toname\\\toaddress}}}%
@@ -561,7 +471,6 @@
\let\raggedright=\letterraggedright
\let\center=\lettercenter
\let\centering=\lettercentering}%
-%
\def\faxopening#1{%
\hbadness=10000\relax
\thispagestyle{empty}%
@@ -602,25 +511,10 @@
\end{tabular*}\par%
\begin{tabular*}{\faxbox@width}[t]{@{}r@{}}%
\vrule height 0pt depth 0pt width \faxbox@width\\
- \multicolumn{1}{r}{\ifx\@empty\fromlieu
- \else\fromlieu, %
- \fi
- \if@origdate
- \expandafter\ifx\csname origdate\the\c@lettre
- \endcsname\relax
- \else
- \l@@info{Date originale lue dans \jobname.odt}%
- \def\pdate{\csname origdate\the\c@lettre\endcsname}%
- \fi
- \l@@info{`\pdate' ecrit dans \jobname.odt}%
- \immediate\write\@dateaux{%
- \string\expandafter\string\def%
- \string\csname\space origdate\the\c@lettre
- \string\endcsname{\pdate}}%
- \fi
- \ifx\@empty\pdate ~%
- \else \pdate
- \fi}\\%
+ \multicolumn{1}{r}{%
+ \lettre@get@date
+ \lettre@put@fromlieu@date
+ }\\%
\end{tabular*}%
\par
\vspace{\openingspace}%
@@ -638,7 +532,6 @@
\let\raggedright=\letterraggedright
\let\center=\lettercenter
\let\centering=\lettercentering}%
-%
\long\def\closing#1{%
\let\center=\normalcenter
\let\centering=\normalcentering
@@ -651,7 +544,7 @@
\par\vspace{2\parskip}%
\nobreak
\noindent
- \l@@info{Signature \ifcase\signum manquante \or simple\or double\or triple\fi}%
+ \l@@info{Signature \ifcase\signum manquante\or simple\or double\or triple\fi}%
\ifcase\sigflag
\ifcase\signum
\parbox[t]{\letterwidth}{#1}%
@@ -731,11 +624,6 @@
\fi
\par\vfill\startbreaks
}%
-%
-% ************************************************
-% * COMMANDES UTILISATEURS *
-% ************************************************
-%
\def\marge#1{%
\lettermargin=#1%
\listmargin=#1%
@@ -747,19 +635,15 @@
%
\def\basdepage#1{%
\def\bdp{#1}}%
-%
\def\tension#1{%
\if@letter
\expandafter\def\csname letter\the\c@lettre\endcsname{#1}%
\fi
}%
-%
\def\addpages#1{%
\l@@info{Pages additionnelles: #1}%
\advance\faxpage by #1}%
-%
\def\name#1{\def\fromname{#1}}%
-%
\def\signature#1{%
\ifnum\signum=0\relax
\def\fromsig{#1}\signum=1\relax
@@ -781,23 +665,20 @@
\l@@warning{Troisieme signature illegale ou deja definie}%
\fi
}%
-%
-\def\vref#1{\l@@warning{La commande \string\Vref\ devrait etre utilisee.}
+\def\vref#1{\l@@warning{La commande \protect\Vref\space devrait etre utilisee}
\def\auxflag{.}%
\def\toref{\parbox[t]{17mm}{#1}}}%
\def\Vref#1{\def\auxflag{.}%
\def\toref{\parbox[t]{17mm}{#1}}}%
-\def\nref#1{\l@@warning{La commande \string\Nref~ devrait etre utilisee.}
+\def\nref#1{\l@@warning{La commande \protect\Nref\space devrait etre utilisee}
\def\auxflag{.}%
\def\fromref{\parbox[t]{17mm}{#1}}}%
\def\Nref#1{\def\auxflag{.}%
\def\fromref{\parbox[t]{17mm}{#1}}}%
-%
\def\concline{%
\noindent\parbox[t]{\letterwidth}%
{\@hangfrom{\textrm{\concname}}\ignorespaces\concdecl\strut}%
\par}%
-%
\def\auxline{%
\l@@info{Ligne auxiliaire demandee}%
{\scriptsize
@@ -823,7 +704,6 @@
\else
C.C.P.\ \ccpnum\hspace{5mm}%
\fi}\par}%
-%
\def\emailine{%
\l@@info{Ligne d'E-Mail demandee}%
{\scriptsize
@@ -851,7 +731,6 @@
\ifnum\emailcount<3\relax
\hfill\mbox{}%
\fi}}%
-%
\long\def\address#1{\l@@info{Adresse precisee}\def\fromaddress{#1}}%
%\long\def\address*#1{\if@letter
% \l@@info{Adresse avec nom precisee}%
@@ -862,24 +741,16 @@
%
\def\nodate{\l@@info{Date supprimee}\def\pdate{}}%
\def\date#1{\l@@info{Date precisee}\def\pdate{#1}}%
-%
\def\nolieu{\l@@info{Lieu supprime}\def\fromlieu{}}%
\def\lieu#1{\l@@info{Lieu precise}\def\fromlieu{#1}}%
-%
\def\conc#1{\l@@info{Champ d'objet defini}\def\concdecl{#1}}%
-%
\def\location#1{\l@@info{Precision d'adresse definie}\def\fromlocation{#1}}%
-%
\def\notelephone{\l@@info{Numero de telephone supprime}\def\telephonenum{}}%
\def\telephone#1{\l@@info{Numero de telephone precise}\def\telephonenum{#1}}%
-%
\def\nofax{\l@@info{Numero de fax supprime}\def\faxnum{}}%
\def\fax#1{\l@@info{Numero de fax precise}\def\faxnum{#1}}%
-%
\def\email#1{\l@@info{Numero d'E-Mail precise}\def\emailnum{#1}}%
-%
\def\username#1{\def\@username{#1}}%
-%
\def\ccitt#1{\ifnum\emailcount<3\relax
\def\emailflag{.}%
\advance\emailcount by 1\relax
@@ -961,14 +832,12 @@
\fi
\l@@info{Post-scriptum defini}%
\noindent\lettre@t{#1}{#2\\}\vfill\penalty-100\relax}%
-%
\def\cc#1{\penalty100\relax
\if@letter
\vskip\csname letter\the\c@lettre\endcsname mm
\fi
\l@@info{Copies declarees}%
\noindent\lettre@t{\ccname}{#1\\}\vfill\penalty-100\relax}%
-%
\def\encl#1{\penalty100\relax
\if@letter
\vskip\csname letter\the\c@lettre\endcsname mm
@@ -981,26 +850,21 @@
\fi
\l@@info{Annexes mentionnees}%
\noindent\lettre@t{\mentionname\\}{~}\vfill\penalty-100\relax}%
-%
-% ****************************************
-% * DEFINITIONS DEPENDANT DU LANGAGE *
-% ****************************************
-%
\def\FAXSTR{\fontfamily{cmdh}\fontseries{m}\fontshape{n}\selectfont}%
\def\FRANCAIS{francais}
\def\francais{%
- \ifx\defaultlanguage\FRANCAIS\else\l@@info{Langage modifie: francais}\fi%
- \ifx\undefined\frenchname\else % style french loaded
+ \ifx\defaultlanguage\FRANCAIS\else\l@@info{Langage modifie: francais}\fi
+ \ifx\undefined\frenchname\else
\french
\fi
- \ifx\undefined\extrasfrancais\else % style babel and French language loaded
+ \ifx\undefined\extrasfrancais\else
\selectlanguage{francais}
\reset@frenchitemize
\fi
\sigflag=0\relax
\def\cejour{le
- \ifx\ier\undefined\def\ier{er}\fi
- \ifnum\day=1\relax 1\ier\else \number\day\fi
+ \ifnum\day=1\space 1\ifx\ier\undefined er\else\expandafter\ier\fi
+ \else\number\day\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
@@ -1027,11 +891,11 @@
}%
\def\ROMAND{romand}
\def\romand{%
- \ifx\defaultlanguage\ROMAND\else\l@@info{Langage modifie: romand}\fi%
- \ifx\undefined\frenchname\else % style french loaded
+ \ifx\defaultlanguage\ROMAND\else\l@@info{Langage modifie: romand}\fi
+ \ifx\undefined\frenchname\else
\french
\fi
- \ifx\undefined\extrasfrancais\else % style babel and French language loaded
+ \ifx\undefined\extrasfrancais\else
\selectlanguage{francais}
\reset@frenchitemize
\fi
@@ -1065,11 +929,11 @@
}%
\def\ANGLAIS{anglais}
\def\anglais{%
- \ifx\defaultlanguage\ANGLAIS\else\l@@info{Langage modifie: anglais}\fi%
- \ifx\undefined\frenchname\else % style french loaded
+ \ifx\defaultlanguage\ANGLAIS\else\l@@info{Langage modifie: anglais}\fi
+ \ifx\undefined\frenchname\else
\english
\fi
- \ifx\undefined\extrasenglish\else % style babel and English language loaded
+ \ifx\undefined\extrasenglish\else
\selectlanguage{english}
\fi
\sigflag=1\relax
@@ -1100,10 +964,10 @@
\def\AMERICAIN{americain}
\def\americain{%
\ifx\defaultlanguage\AMERICAIN\else\l@@info{Langage modifie: americain}\fi%
- \ifx\undefined\frenchname\else % style french loaded
+ \ifx\undefined\frenchname\else
\english
\fi
- \ifx\undefined\extrasenglish\else % style babel and English language loaded
+ \ifx\undefined\extrasenglish\else
\selectlanguage{english}
\fi
\sigflag=1\relax
@@ -1133,8 +997,8 @@
}%
\def\ALLEMAND{allemand}
\def\allemand{%
- \ifx\defaultlanguage\ALLEMAND\else\l@@info{Langage modifie: allemand}\fi%
- \ifx\undefined\extrasgerman\else % style babel and German language loaded
+ \ifx\defaultlanguage\ALLEMAND\else\l@@info{Langage modifie: allemand}\fi
+ \ifx\undefined\extrasgerman\else
\selectlanguage{german}
\fi
\sigflag=1\relax
@@ -1163,14 +1027,6 @@
\def\vrefname{Ihr Zeichen~}
\def\nrefname{Unser Zeichen~}
}%
-%
-%************************************************************************
-%
-% \document redefini pour ecrire '\startlabels' sur le fichier .etq
-% et executer \@startlabels.
-%
-%************************************************************************
-%
\AtBeginDocument{%
\makeatletter
\@input{\jobname.tns}%
@@ -1188,13 +1044,6 @@
\fi
\makeatother
}%
-%
-%************************************************************************
-%
-% \enddocument redefini pour sortir la page d'etiquettes, si necessaire.
-%
-%************************************************************************
-%
\AtEndDocument{%
\l@@info{Nombre de lettres :\the\c@lettre}%
\l@@info{Nombre de telefax :\the\c@telefax}%
@@ -1216,12 +1065,6 @@
\fi
\endgroup
}%
-%
-% ****************************************
-% * STYLES DE PAGE *
-% ****************************************
-%
-%
\def\@texttop{\ifnum\c@page=1\vskip 0pt plus .00001fil\relax\fi}%
%
\if@twoside
@@ -1284,11 +1127,6 @@
\def\@oddfoot{\textrm{\hfill\thepage\hfill}}%
\def\@evenhead{}%
\def\@evenfoot{\textrm{\hfill\thepage\hfill}}}%
-%
-% ****************************************
-% * CENTER et FLUSHLEFT *
-% ****************************************
-%
\def\normalcenter{\trivlist \normalcentering\item[]}%
\def\lettercenter{\trivlist \lettercentering\item[]}%
\def\normalcentering{\let\\=\@centercr\rightskip\@flushglue
@@ -1308,11 +1146,6 @@
\@rightskip\@flushglue\rightskip\@rightskip
\parindent\z@}%
\let\endflushleft=\endtrivlist
-%
-% ****************************************
-% * LISTES *
-% ****************************************
-%
\def\reset@frenchitemize{%
\renewenvironment{itemize}%
{\begin{list}{\textendash}%
@@ -1377,17 +1210,14 @@
\def\labelenumiv{\Alph{enumiv}.}%
\def\theenumiv{\Alph{enumiv}}%
\def\p@enumiv{\p@enumiii\theenumiii}%
-%
\def\verse{\let\\=\@centercr
\list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent
\rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}%
\let\endverse\endlist
-%
\def\quotation{\list{}{\listparindent 1.5em%
\itemindent\listparindent
\rightmargin\leftmargin}\item[]}%
\let\endquotation=\endlist
-%
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}%
\let\endquote=\endlist
%
@@ -1396,11 +1226,6 @@
\labelwidth\listmargin \advance\labelwidth -\labelsep
\let\makelabel\descriptionlabel}}%
\let\enddescription\endlist
-%
-% ****************************************
-% * DIVERS *
-% ****************************************
-%
\def\@begintheorem#1#2{\itshape \trivlist \item[\hskip \labelsep{\bfseries #1\ #2}]}%
\def\@endtheorem{\endtrivlist}%
%
@@ -1412,14 +1237,8 @@
\doublerulesep 2pt%
\tabbingsep\labelsep
\skip\@mpfootins=\skip\footins
-%
-\fboxsep = 3pt % Space left between box and text by \fbox and \framebox.
-\fboxrule = .4pt % Width of rules in box made by \fbox and \framebox.
-%
-% ****************************************
-% * FOOTNOTES *
-% ****************************************
-%
+\fboxsep = 3pt
+\fboxrule = .4pt
\def\footnoterule{\kern-1\p@
\hrule width .4\columnwidth
\kern .6\p@}%
@@ -1427,11 +1246,6 @@
\long\def\@makefntext#1{\parindent 1em\noindent
\hb@xt@1.8em{%
\hss\@textsuperscript{\normalfont\@thefnmark}}#1}%
-%
-% ****************************************
-% * INITIALISATIONS DES DEFAUTS *
-% ****************************************
-%
\def\pict@let@width{185}%
\def\pict@let@height{65}%
\def\pict@let@hoffset{0}%
@@ -1475,9 +1289,6 @@
\pagenumbering{arabic}%
\raggedbottom
\onecolumn
-%
-% Initialisations des variables de la lettre
-%
\def\pdate{\cejour}%
%
\def\emailnum{}%
@@ -1524,5 +1335,4 @@
%
\def\bdp{}%
\endinput
-%%
-%% End of file `lettre.cls'.
+% End of file `lettre.cls'.