% French Torture Test with LaTeX (main style: book)
%                           Copyright GUTenberg-Bernard Gaulle as in french.doc
%
\advance\hoffset by -10pt% marge droite (chez moi) pas totalement imprimee
\ifx\documentclass\undefined
\documentstyle[mysmall,%
               mypsfig,%
               mylist,twocolumn,french,mya4]{book}
\let\myverb\verb
\else
\documentclass[twocolumn,a4paper]{book}%  
\usepackage{mysmall,mypsfig,mylist,french}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%% si vous n'avez pas utilise kbconfig, probablement avez-vous besoin de :
%\usepackage[T1]{fontenc}% pour utiliser les fontes a la norme Cork (DC,...)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\setlength{\textheight}{225mm}% a4paper is a little shorter...than a4.sty
\advance\hoffset by 40pt% for better placement
\listfiles
\fi

\setlength{\textwidth}{410pt}%% 
\catcode`\@=11
\let\Stop\undefined\ifx\@@end\undefined\let\@@end\end\fi
\ifx\endfrench\switchtolanguage
                 \typeout{ANOMALIE : extension french active ici.}\Stop
\@@end
\fi
\def\LPLAIN{lplain}
\ifx\fmtname\LPLAIN\else\relax
                 \def\LPLAIN{LaTeX2e}
                 \ifx\fmtname\LPLAIN\else\relax
                 \typeout{**********************************************}
           \typeout{ANOMALIE \string: nom de format LaTeX (\fmtname) invalide.}
           \typeout{CORRIGER pour avoir \fmtname=\LPLAIN\space ou ancien nom.}
\Stop% Vous devez avoir dans ltvers.dtx : \def\fmtname{LaTeX2e} !
\@@end
                 \fi
\fi
\catcode`\@=12
\let\iflatex\iftrue
\def\SmsG{\typeout%
    {\string<\string<--------------------------------------------------------}}
\def\FmsG{\typeout%
    {--------------------------------------------------------\string>\string>}}
{\SmsG\obeyspaces
\typeout{(          Test de torture du style \frenchname}
\typeout{(Ce test genere deliberement quelques messages d'erreur. )}
\typeout{(Pour vous permettre de distinguer les messages d'erreur )}
\typeout{(normaux de ceux qui sont anormaux, j'ai encadre, comme  )}
\typeout{(ici, ces messages ; ne vous en preoccupez pas.  --bg    )}
\FmsG}%
\frenchtest
\ifx\endfrench\switchtolanguage\else
            \typeout{ANOMALIE \string: extension french inactive ici.}\Stop\fi
\end{document}