% This is babelplb.tex
%
%          French Torture Test with Babel of LaTeX (main style: book)
%          with babel option: frenchpro
%                                     Copyright Bernard Gaulle as in french.doc
%
%                                                     last mods --bg 2006/04/25
%
% Warning: to allow babel to run correctly with french, its "sanitize" macro
%          could not be let asis and has been forced to \relax. Thus it may
%          introduce differencies for other languages.
%
\advance\hoffset by -10pt% marge droite (chez moi) pas totalement imprimee
\documentclass[twocolumn,a4paper]{book}%  
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%% si vous n'avez pas utilise kbconfig, probablement avez-vous besoin de :
%\usepackage[T1]{fontenc}% pour utiliser les fontes a la norme Cork (DC,...)
%\usepackage[latin1]{inputenc}% pour preciser le codage d'entree, ici latin1
%%%% mais c'est vous qui l'aurez choisi... Moi je prefere encore kbconfig.
%\def÷{\oe\relax}% et il y a aussi ce fameux \oe qui n'est pas iso-latin1... 
%%%% enfin ne me demandez pas l'impossible ensuite.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% to avoid pb with Babel, define this stuff now, not before \begin{document}
{\catcode`\<=\active\catcode`\>=\active%
% Je veux :
%\global\def<{\left\langle}\global\def>{\right\rangle}
% Et pour ne pas pouvoir avoir l'effet que localement, 
% je fais : 
\gdef<{\myinf}\gdef>{\mysup}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\usepackage[frenchpro]{babel}% just few mods
\usepackage{mysmall,mypsfig,mylist}
\setlength{\textheight}{225mm}% a4paper is a little shorter...than a4.sty
\advance\hoffset by 40pt% for better placement
\listfiles
\setlength{\textwidth}{410pt}%% 
\catcode`\@=11
\let\Stop\undefined%%%\ifx\@@end\undefined\let\@@end\end\fi
% Localisation code for numbered \typeout: "\kbAissue% localise it."
% For debugging one can remove "msg" access, just uncomment
%\let\kbAissue\relax% this line.
   \ifx\kbAissue\undefined%
% Firstly we add the material to use the "msg" package for localization.
      \def\kb@issue#1#2{\kb@issue@[#1]#2\void}% The local \issuemsg macro.
                                      % which will call the real one;
                                      % #1 is the macro message required.
                                      % #2 is the message header + msg number
                                      %    such as "^^J -234-", just message 
                                      %    number (234) is kept. 
      \let\kbAissue\kb@issue%
      \def\kb@issue@[#1]#2-#3-#4\void{\issuemsg[#1]#3(french)}%
   \ifx\issuemsg\undefined\let\kbAissue\relax\let\typeouA\typeout\fi%
   \fi%
%
\def\LPLAIN{lplain}
\ifx\fmtname\LPLAIN\else\relax
                 \def\LPLAIN{LaTeX2e}
                 \ifx\fmtname\LPLAIN\else\relax
                 \typeout{**********************************************}
\kbAissue% localise it.
     \typeout{-36- ANOMALIE \string: nom de format LaTeX (\fmtname) invalide.}
     \typeouA{CORRIGER pour avoir \fmtname=\LPLAIN\space ou ancien nom.}
\Stop% Vous devez avoir dans ltvers.dtx : \def\fmtname{LaTeX2e} !
\expandafter\@@end
                 \expandafter\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 \string; ne vous en preoccupez pas.  --bg    )}
\FmsG}%
\def\french{\selectlanguage{french}}% never do so!
\def\english{\selectlanguage{english}}% you would lose format defs.
\frenchtest
\ifx\endfrench\switchtolanguage\else
\kbAissue% localise it.
      \typeout{-37b- ANOMALIE \string: extension french inactive ici.}\Stop\fi
\end{document}
%%
%%      checksum        = "01748 69 308 3197"
%%
