let _Generation_Module_Next ce_module =
match (ce_module.modTyp,
ce_module.declar)
with
((_,liste_param),
Var(liste_var)::Assign(liste_ass)::_) ->
"\tpublic void next("^(_Liste_Parametre_Module liste_param)^")\n\t{\n"
^(_Traitement_Var_Next liste_var)
^(_Initialisation_Objet liste_var "next")
^(_Traitement_assign_next liste_ass 0)^"\n\t}\n\n"
| ((_,liste_param),
Var(liste_var)::_) ->
"\tpublic void next("^(_Liste_Parametre_Module liste_param)^")\n\t{\n"
^(_Traitement_Var_Next liste_var)
^(_Initialisation_Objet liste_var "next")
^"\n\t}\n\n"
| _ -> ""