% Fichier frmin.tex, v1.1b 17/01/97  (ML - lavaud@univ-orleans.fr)

% Meme fichier que fr.tex, sans activation de la double ponctuation

%

%--- Empecher de charger ce fichier deux fois

  \let\this\relax

  \ifx\captionsfrench\undefined\relax

  \else\let\this\endinput

  \fi

  \this



%--- Afficher le numero de version

\def\Msg{\immediate\write16}

\Msg{ Style frmin, v.1.1b, 17/01/97}



%--- Le caractere @ est une lettre localement

 \chardef\FRatCat=\the\catcode`\@

 \catcode`\@=11 % \makeatletter



%--- Definitions par defaut des commandes \FR and \US

%    pour selectionner les motifs de cesures a utiliser

%    Normalement, USenglish est la langue de numero 0

%    et le francais est la langue de numero 1. 



\def\US{\language=0     % La langue USenglish a le numero 0

        \lccode`\'=0  } % L'apostrophe n'est pas une lettre en anglais

\def\FR{\language=1     % La langue French a le numero 1

        \lccode`\'=`\'} % L'apostrophe est une lettre en francais



%

%--- Dates

%    Date en francais

\gdef\datefrench{\def\today{\number\day 

  \ifnum1=\day \up{\lowercase{er}}\fi% \lowercase for uppercase headings

  \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}}

%

%   Date en anglais US

\gdef\dateUSenglish{\def\today{\ifcase\month\or

  January\or February\or March\or April\or May\or June\or

  July\or August\or September\or October\or November\or December\fi

  \space\number\day, \number\year}}

%

%   Date en anglais

%\gdef\dateenglish{\def\today{\number\day \ifcase\day \or

%  st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or %  1..10

%  th\or th\or th\or th\or th\or th\or th\or th\or th\or th\or % 11..20

%  st\or nd\or rd\or th\or th\or th\or th\or th\or th\or th\or % 21..30

%  st\fi

%  ~\ifcase\month\or

%  January\or February\or March\or April\or May\or June\or

%  July\or August\or September\or October\or November\or December\fi

%  \space \number\year}}

%

%--- Symboles speciaux du francais (guillemets, degre, numero)

%    Guillemets 

\newbox\charCWM

% - French guillemets for Plain TeX with CMR fonts (two different shapes)

%

%   1ere forme pour Plain (R. Seroul) : 

\gdef\oguill{\leavevmode\raise0.3ex%

         \hbox{{$\scriptscriptstyle\langle\!\langle\,$}\nobreak\ignorespaces}}

\gdef\fguill{\ifdim\lastskip>\z@\unskip\penalty\@M\fi

         \leavevmode\raise0.3ex%

         \hbox{{$\scriptscriptstyle\,\rangle\!\rangle$}}}

%

%   2e forme pour Plain

\gdef\leftguill{\leavevmode\raise0.25ex%

         \hbox{{$\scriptscriptstyle\ll\,$}\nobreak\ignorespaces}}

\gdef\rightguill{\ifdim\lastskip>\z@\unskip\penalty\@M\fi

         \leavevmode\raise0.25ex%

         \hbox{{$\scriptscriptstyle\,\gg$}}}

%  Utiliser la premiere forme par defaut

\global\let\oPlainGuill\oguill

\global\let\fPlainGuill\fguill

%\global\let\oPlainGuill\leftguill

%\global\let\fPlainGuill\rightguill

%

%   Guillemets avec fontes LaTeX lasy

\gdef\oLaTeXGuill{\leavevmode\hbox{\ly(\kern-0.20em(\kern+0.20em}%

                  \nobreak\ignorespaces}

\gdef\fLaTeXGuill{\ifdim\lastskip>\z@\unskip\penalty\@M\fi

                  \leavevmode\hbox{\kern+0.20em\ly)\kern-0.20em)}}

%

%   Guillemets avec fontes dc

\gdef\oECGuill{\leavevmode\hbox{\char19\kern 1.5pt\nobreak\ignorespaces}}

\gdef\fECGuill{\ifdim\lastskip>\z@\unskip\penalty\@M\fi

               \leavevmode\hbox{\kern 1.5pt \char20}}

%

% -  Choix des guillemets en fonction des fontes et du paquet de macros utilises

\gdef\beginguillemets{%

   \ifx\ly\undefined

       \oPlainGuill

   \else

       \setbox\charCWM=\hbox{\char23}% % width is 0pt in DC/EC fonts (<cwm>)

       \ifdim\wd\charCWM=0pt

          \oECGuill % Are EC/DC fonts available ?

       \else

           \ifx\DeclareFontShape\undefined

               \oLaTeXGuill

           \else

               \oPlainGuill

           \fi

       \fi

   \fi

  }

\gdef\endguillemets{%

   \ifx\ly\undefined

      \fPlainGuill

   \else

      \setbox\charCWM=\hbox{\char23}% % width is 0pt in DC/EC fonts (<cwm>)

      \ifdim\wd\charCWM=0pt

         \fECGuill % Are EC/DC fonts available ?

      \else

         \ifx\DeclareFontShape\undefined

            \fLaTeXGuill

         \else

            \fPlainGuill

         \fi

      \fi

   \fi

  }

%

% Alias pour les guillemets

\let\og\beginguillemets

\let\fg\endguillemets

% Pour compatibilite avec Babel 

\let\flqq\beginguillemets

\let\frqq\endguillemets

%

% - \degre et \No 

\gdef\degre{%

    \ifx\postscript@font\undefined      % CMR or DC/EC fonts 

        \setbox\charCWM=\hbox{\char23}% % width is 0pt in DC/EC fonts (<cwm>)

        \kern-.15em\lower.2ex\hbox{%

                \ifdim\wd\charCWM=0pt \char06 \else \char23 \fi\kern-.55em}

    \else \char23 \fi}                  % PS fonts are in use

\def\No{N\degre}

%

%--- Definitions pour Plain TeX ou LaTeX

% -  Plain TeX

\ifx\documentstyle\undefined

 \global\let\captionsfrench\relax

 \global\let\captionsenglish\relax

 \global\let\itemsfrench\relax

 \global\let\itemsenglish\relax

 \global\let\protect\relax

% Two possibilities to typeset  Mme, 1er..

 \gdef\up#1{\raise 1ex\hbox{\sevenrm #1}}%

 \gdef\fup#1{\leavevmode\raise+0.55ex\hbox{\sevenrm#1}\kern+.17em}%

% Aliases for french guillemets

 \global\let\og\beginguillemets

 \global\let\fg\endguillemets

% - LaTeX

\else

%

 \gdef\@up#1{\raise 1ex\hbox{\small#1}}%

 \gdef\up#1{\protect\@up{#1}}

 \gdef\@fup#1{\leavevmode\raise+0.55ex\hbox{\small#1}\kern+.17em}%

 \gdef\fup#1{\protect\@fup{#1}}

% Define \ly in new LaTeX (LaTeX + nfss1)

 \ifx\ly\undefined

    \gdef\ly{\fontfamily{lasy}\fontseries{m}\fontshape{n}\selectfont}

 \fi

%

%   Definitions speciales pour LaTeX

 \gdef\captionsfrench{%

%   Definitions ci-dessous pour les classes: article, report et book

% Attention: ne pas rajouter de blanc au debut des lignes de ce groupe

\def\pagename{page}%

\def\refname{R\'ef\'erences}%

\def\abstractname{R\'esum\'e}%

\def\bibname{Bibliographie}%

\def\contentsname{Table des mati\`eres}%

\def\listfigurename{Liste des figures}%

\def\listtablename{Liste des tableaux}%

\def\indexname{Index}%

\def\seename{{\em voir}}% used normally in makeidx.sty

\def\figurename{{\sc Fig.}}%

\def\tablename{{\sc Tab.}}%

\def\partname{\protect\@Fpt partie}% "Premi\`ere partie" instead of "Part I"

\def\@Fpt{{\ifcase\value{part}\or

   Premi\`ere\or Deuxi\`eme\or Troisi\`eme\or Quatri\`eme\or Cinqui\`eme\or

   Sixi\`eme\or Septi\`eme\or Huiti\`eme\or Neuvi\`eme\or Dixi\`eme\or

   Onzi\`eme\or Douzi\`eme\or Treizi\`eme\or Quatorzi\`eme\or Quinzi\`eme\or

   Seizi\`eme\or Dix-septi\`eme\or Dix-huiti\`eme\or Dix-neuvi\`eme\or

   Vingti\`eme\fi}\space\def\thepart{}}%

%

%   Definitions ci-dessous seulement pour les classes report et book

\def\chaptername{Chapitre}%

\def\appendixname{Annexe}%

%

%   Definitions ci-dessous seulement pour le style lettre

\def\headtoname{\`a}%

\def\enclname{P.j. }% Pieces jointes

\def\PSname{P.-S. \string:{}}% Post-Scriptum

\def\Objectname{Objet \string:{}}% Object de la lettre

\def\ccname{Copie \`a }% copie conforme

\def\YourRefname{V/r\'ef. \string:{}}% Votre numero de reference

\def\OurRefname{N/r\'ef. \string:{}}% Notre numero de reference

\def\dateprefix{le\ }%

\def\telabbrev{T\'el. :}%

\def\faxabbrev{Fax :}%

\def\emailabbrev{Email :}%

}%

%

% Attention: ne pas rajouter de blanc au debut des lignes de ce groupe

 \gdef\captionsenglish{%

\def\pagename{page}%

\def\refname{References}%

\def\abstractname{Abstract}%

\def\bibname{Bibliography}%

\def\contentsname{Table of Contents}%

\def\listfigurename{List of Figures}%

\def\listtablename{List of Tables}%

\def\indexname{Index}%

\def\seename{{\em see}}% used normally in makeidx.sty

\def\figurename{Figure}%

\def\tablename{Table}%

\def\partname{Part}%

%

% The following is only for report and book styles

\def\chaptername{Chapter}%

\def\appendixname{Appendix}%

%

% The following is only for the letter style

\def\headtoname{To}%

\def\ccname{Cc:}%

\def\enclname{Encl:}%

\def\PSname{PS:}% Post-Scriptum

\def\Objectname{Object:}% Object of the letter

\def\YourRefname{Your Ref:}% Your reference number

\def\OurRefname{Our Ref:}% Our reference number

\def\dateprefix{}%

\def\telabbrev{Tel.:}%

\def\faxabbrev{Fax:}%

\def\emailabbrev{Email:}%

}

%   Listes

%    A la francaise

 \gdef\itemsfrench{%

   \def\labelitemi{--}%

   \def\labelitemii{--}%

   \def\labelitemiii{--}%

   \def\labelitemiv{--}%

 }

%   A l'anglaise

 \gdef\itemsenglish{%

   \def\labelitemi{$\m@th\bullet$}%

   \def\labelitemii{\bf --}%

   \def\labelitemiii{$\m@th\ast$}%

   \def\labelitemiv{$\m@th\cdot$}%

 }

\fi

%

%--- Definitions des commandes principales \french et \english

% -  Anglais 

\def\english{\US

\captionsenglish

\dateUSenglish

\itemsenglish

\nonfrenchspacing

}

%

%  - Francais

\def\french{\FR

\captionsfrench

\datefrench

% \itemsfrench

% \frenchspacing

}

%--- Le francais est la langue par defaut

\french

%\english



\catcode`\@=\FRatCat % restore catcode



\endinput

