let rec _Traitement_toString liste_var =
match liste_var with
[] -> ""
| (id, t)::liste_restante ->
let traitement_restant = _Traitement_toString liste_restante
in
match t with
Boolean ->
"\t\t$tate += \""
^id^" = \";\n\t\tif (this."
^id^")\n\t\t\t$tate += \" Vrai\\n\";\n\t\telse\n\t\t\t$tate += \" Faux\\n\";\n\n"
^traitement_restant
| Constructeur(Construct(_,_)) ->
"\t\t$tate += this."
^id^".toString();\n\n"
^traitement_restant
| Enum(_) -> "\t\t$tate += \""
^id^" = \" + "^id^";\n"
^traitement_restant
| _ -> raise Cas_impossible