let rec _Generation_Module_Constructeur ce_module =
match
ce_module.modTyp,
ce_module.declar
with
(nomM, _),
Var(liste_variable)::_ ->
"\tpublic "^nomM^"(String $pere) \n\t{\n\t\tthis.$nom = $pere;\n"
^_Generation_Module_Constructeur_Element (liste_variable)
^"\t\tthis.EX = null;\n"
^"\t}\n\n"
| _ , _ -> raise Declaration_non_valide