let rec _Liste_Parametre_Module liste_parametre =
match liste_parametre with
[] -> ""
| (identifiant, sonT)::liste_restante ->
let reste = _Liste_Parametre_Module liste_restante
in
match sonT with
Boolean ->
if reste = ""
then
"boolean "^identifiant
else
"boolean "^identifiant^", "
^reste
| Constructeur(Construct(_)) ->
raise Cas_impossible
| Objet o ->
if reste = ""
then
o^" "^identifiant
else
o^" "^identifiant^", "
^reste
| Enum (_) ->
if reste = ""
then
"String "^identifiant
else
"String "^identifiant^", "
^reste
| _ -> raise Cas_impossible