% !TEX encoding = IsoLatin9
\makeatletter\@ifundefined{ifshowcode}{\newif\ifshowcode}{}\makeatother
%\showcodetrue
\documentclass{test}
\begin{document}
%EUPP:MLBB
%EU>(eupp-overwrite)PP.
%EU>(dotimes (test 4)PP.
%EU>  (let ((macro (lsh (logand test 2) -1))PP.
%EU>	(condition (logand test 1))PP.
%EU>	code)PP.
%EU>    (eupp-appendPP.
%EU>     "\\noindent" (number-to-string macro)(number-to-string condition)PP.
%EU>     ".\\par Attendu : [SUCCÈS]\\par\\ifshowcode\nCode : \\texttt{"PP.
%EU>     (with-temp-bufferPP.
%EU>       (insertPP.
%EU>	(setq codePP.
%EU>	      (concat "[\\visitedfalse\\MGB"PP.
%EU>		      (if (= 0 (logand (+ macro condition) 1))PP.
%EU>			  (concat (if (= 1 macro) "keep" "drop")PP.
%EU>		 "*\\if"PP.
%EU>		 (if (= 1 condition) "true" "false")PP.
%EU>		 "\\XXXXX\\ok{SUCCÈS}\\visitedtrue\\XXXXX\\unless\\ifvisited\\fatal{ÉCHEC}\\fi]")PP.
%EU>			(concat (if (= 1 macro) "keep" "drop")PP.
%EU>				"*\\if"PP.
%EU>				(if (= 1 condition) "true" "false")PP.
%EU>				"\\XXXXX\\fatal{ÉCHEC}\\visitedtrue\\XXXXX\\unless\\ifvisited\\ok{SUCCÈS}\\fi]")))))PP.
%EU>       (goto-char (point-min))PP.
%EU>       (while (re-search-forward "[\\{}]" nil t)PP.
%EU>	 (replace-match (condPP.
%EU>			 ((string= "\\" (match-string 0)) "\\eslash ")PP.
%EU>			 ((string= "{" (match-string 0)) "\\eoa ")PP.
%EU>			 (t  "\\}"))PP.
%EU>			t t))PP.
%EU>       (buffer-substring (point-min) (point-max)))PP.
%EU>    "}\n\\par\\fi\nProduit : "PP.
%EU>    codePP.
%EU>    "\n\\intertest\n"PP.
%EU>  )))PP.
%EU>(eupp-trim-end)PP.
%EUPP:MLS.
\noindent00.\par Attendu : [SUCCÈS]\par\ifshowcode
Code : \texttt{[\eslash visitedfalse\eslash MGBdrop*\eslash iffalse\eslash XXXXX\eslash ok\eoa SUCCÈS\}\eslash visitedtrue\eslash XXXXX\eslash unless\eslash ifvisited\eslash fatal\eoa ÉCHEC\}\eslash fi]}
\par\fi
Produit : [\visitedfalse\MGBdrop*\iffalse\XXXXX\ok{SUCCÈS}\visitedtrue\XXXXX\unless\ifvisited\fatal{ÉCHEC}\fi]
\intertest
\noindent01.\par Attendu : [SUCCÈS]\par\ifshowcode
Code : \texttt{[\eslash visitedfalse\eslash MGBdrop*\eslash iftrue\eslash XXXXX\eslash fatal\eoa ÉCHEC\}\eslash visitedtrue\eslash XXXXX\eslash unless\eslash ifvisited\eslash ok\eoa SUCCÈS\}\eslash fi]}
\par\fi
Produit : [\visitedfalse\MGBdrop*\iftrue\XXXXX\fatal{ÉCHEC}\visitedtrue\XXXXX\unless\ifvisited\ok{SUCCÈS}\fi]
\intertest
\noindent10.\par Attendu : [SUCCÈS]\par\ifshowcode
Code : \texttt{[\eslash visitedfalse\eslash MGBkeep*\eslash iffalse\eslash XXXXX\eslash fatal\eoa ÉCHEC\}\eslash visitedtrue\eslash XXXXX\eslash unless\eslash ifvisited\eslash ok\eoa SUCCÈS\}\eslash fi]}
\par\fi
Produit : [\visitedfalse\MGBkeep*\iffalse\XXXXX\fatal{ÉCHEC}\visitedtrue\XXXXX\unless\ifvisited\ok{SUCCÈS}\fi]
\intertest
\noindent11.\par Attendu : [SUCCÈS]\par\ifshowcode
Code : \texttt{[\eslash visitedfalse\eslash MGBkeep*\eslash iftrue\eslash XXXXX\eslash ok\eoa SUCCÈS\}\eslash visitedtrue\eslash XXXXX\eslash unless\eslash ifvisited\eslash fatal\eoa ÉCHEC\}\eslash fi]}
\par\fi
Produit : [\visitedfalse\MGBkeep*\iftrue\XXXXX\ok{SUCCÈS}\visitedtrue\XXXXX\unless\ifvisited\fatal{ÉCHEC}\fi]
\intertest
%EUPP:BE
\noindent Essais ok : \theok\\Essais nok : \thenok
\end{document}
% Local Variables:
% coding: latin-9
% End: