let rec _Generation_Java arbreSyntaxe =
match arbreSyntaxe with
[] -> output_string stdout ("Traitement terminé...\n")
| ce_module::liste_module ->
match ce_module.modTyp with
(nomM, _) ->
begin
let fichier = open_out (nomM^".java")
in
output_string stdout ("Génération du fichier : "^nomM^".java\n");
try
output_string fichier (_Generation_Module_Java ce_module);
close_out fichier;
_Generation_Java liste_module;
with Cas_impossible ->
begin
output_string stdout ("Ce module a été ignoré...\n");
close_out fichier;
_Generation_Java liste_module;
end
end