let rec _Traitement_Constr_Inconnu nomModule sonType liste_constr our_Hash_table =
match liste_constr with
[] -> ([],false)
| ce_constr::liste_restante ->
let autre_restant, modification_restante =
_Traitement_Constr_Inconnu nomModule sonType
liste_restante
our_Hash_table
in
match ce_constr with
Varia(identifiant, Inconnu) ->
(try
let autre, modification =
_Attribution_Variable_Pointee nomModule
our_Hash_table
our_Hash_table
(String.sub identifiant
0
(String.index identifiant '.'))
(String.sub identifiant
((String.index identifiant '.')+1)
(String.length identifiant - (String.index identifiant '.')-1))
in
((Varia(identifiant, autre)::autre_restant),
(modification || modification_restante))
with _ ->
let autre, modification =
_Modification_autre nomModule
identifiant
our_Hash_table
in
(match autre with
(_, Inconnu) ->
let nouveau, modif =
(_Traitement_Enum sonType identifiant our_Hash_table)
in
((Varia(nouveau)::autre_restant),
(modif || modification_restante))
| _ -> ((Varia(autre)::autre_restant),
(modification || modification_restante))))
| ce_param_constr ->
(ce_param_constr::autre_restant, modification_restante)