let rec _Generation_Module_Constructeur_Element liste_element =
match liste_element with
[] -> ""
| (identifiant, sonType)
::liste_restante ->
match sonType with
Boolean ->
"\t\tthis."^identifiant^" = false;\n"
^_Generation_Module_Constructeur_Element liste_restante
| Constructeur(Construct(_)) ->
"\t\tthis."^identifiant^" = null;\n"
^_Generation_Module_Constructeur_Element liste_restante
| Enum (_) ->
"\t\tthis."^identifiant^" = \"\";\n"
^_Generation_Module_Constructeur_Element liste_restante
| _ ->
raise Cas_impossible