let rec _Traitement_Autre_Inconnu nomModule identifiant our_Hash_table =
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
(Autre(nomModule, identifiant, autre), modification)
with _ ->
let autre, modification = _Modification_autre nomModule
identifiant
our_Hash_table
in
(match autre with
(_, Inconnu) ->
let nouveau, modif = (_Traitement_Enum nomModule identifiant our_Hash_table)
in
(match nouveau with
(ident, sonT) -> (Autre(nomModule, ident, sonT), modif))
| (id, t) -> (Autre(nomModule, id, t), modification))