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
|
% This is the french test to check if all french macros exist and are running.
% Copyright GUTenberg-Bernard Gaulle as in french.doc
%
% to be used only for testing/debugging purposes.
%
% rev. 97/12/23
%%
%% checksum = "53228 39 106 1741"
%%
{\catcode`\]=13\def]{}
\message{-43- french.all now LOADED^^J}
\def\DmyDeF#1{\def\LaMacro{\expandafter\noexpand\csname#1\endcsname}
\message{^^J}
\expandafter\ifx\csname#1\endcsname\relax
\message{-44- ERRROR command \LaMacro is undefined!}
\else
\message{-45- executing \LaMacro}
\expandafter\csname#1\endcsname\relax
\fi
}%
\def\Dmydef#1,#2]{\DmyDeF{#1}%
\def\temp{#2}\ifx\temp\empty\let\Dmydef\relax\fi%
\Dmydef#2]}%
\def\dummydef[{\Dmydef}%
% Here are all the french defs names
\def\>{>}\def\<{<}\def\!{!}% simulation
% following code can't be executed asis
\ifx\frenchtest\undefined\else\let\frenchtest\empty\fi
\ifx\frenchdoc\undefined\else\let\frenchdoc\empty\fi
\ifx\figurette\undefined\else\let\figurette\empty\fi
\ifx\endfigurette\undefined\else\let\endfigurette\empty\fi
\ifx\GOfrench\undefined\else\let\GOfrench\empty\fi
\ifx\vert\undefined\else\let\vert\empty\fi
\ifx\tilde\undefined\else\let\tilde\empty\fi
\ifx\originaloutput\undefined\else\let\originaloutput\empty\fi
\ifx\unnumberedcaptions\undefined\else\let\unnumberedcaptions\empty\fi
\input french.cmd % load all french cmd names
\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|