% !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 "[\\MGB"PP.
%EU>		      (if (= 0 (logand (+ macro condition) 1))PP.
%EU>			  (concat (if (= 1 macro) "keepelse" "dropelse")PP.
%EU>				  "*\\if"PP.
%EU>				  (if (= 1 condition) "true" "false")PP.
%EU>				  "\\XXXXX\\ok{SUCCÈS}\\XXXXX\\fatal{ÉCHEC}")PP.
%EU>			(concat (if (= 1 macro) "keepelse" "dropelse")PP.
%EU>				"*\\if"PP.
%EU>				(if (= 1 condition) "true" "false")PP.
%EU>				"\\XXXXX\\fatal{ÉCHEC}\\XXXXX\\ok{SUCCÈS}"))PP.
%EU>		      "\\XXXXX]")))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 MGBdropelse*\eslash iffalse\eslash XXXXX\eslash ok\eoa SUCCÈS\}\eslash XXXXX\eslash fatal\eoa ÉCHEC\}\eslash XXXXX]}
\par\fi
Produit : [\MGBdropelse*\iffalse\XXXXX\ok{SUCCÈS}\XXXXX\fatal{ÉCHEC}\XXXXX]
\intertest
\noindent01.\par Attendu : [SUCCÈS]\par\ifshowcode
Code : \texttt{[\eslash MGBdropelse*\eslash iftrue\eslash XXXXX\eslash fatal\eoa ÉCHEC\}\eslash XXXXX\eslash ok\eoa SUCCÈS\}\eslash XXXXX]}
\par\fi
Produit : [\MGBdropelse*\iftrue\XXXXX\fatal{ÉCHEC}\XXXXX\ok{SUCCÈS}\XXXXX]
\intertest
\noindent10.\par Attendu : [SUCCÈS]\par\ifshowcode
Code : \texttt{[\eslash MGBkeepelse*\eslash iffalse\eslash XXXXX\eslash fatal\eoa ÉCHEC\}\eslash XXXXX\eslash ok\eoa SUCCÈS\}\eslash XXXXX]}
\par\fi
Produit : [\MGBkeepelse*\iffalse\XXXXX\fatal{ÉCHEC}\XXXXX\ok{SUCCÈS}\XXXXX]
\intertest
\noindent11.\par Attendu : [SUCCÈS]\par\ifshowcode
Code : \texttt{[\eslash MGBkeepelse*\eslash iftrue\eslash XXXXX\eslash ok\eoa SUCCÈS\}\eslash XXXXX\eslash fatal\eoa ÉCHEC\}\eslash XXXXX]}
\par\fi
Produit : [\MGBkeepelse*\iftrue\XXXXX\ok{SUCCÈS}\XXXXX\fatal{ÉCHEC}\XXXXX]
\intertest
%EUPP:BE
\noindent Essais ok : \theok\\Essais nok : \thenok
\end{document}
