let rec _Modification_autre nomModule identifiant our_Hash_table =
match our_Hash_table with
[] -> ((identifiant, Inconnu),false)
| Parametre(nomM, id, sonType, _)::liste_restante ->
if (nomM = nomModule) && (identifiant = id)
then
(match sonType with
Inconnu ->
((identifiant, Inconnu), false)
| Constructeur(Construct(nomObj, _)) ->
((identifiant, Objet nomObj),true)
| Enum([_]) ->
((identifiant, Enum[(Chaine "")]), true)
| _ ->
((identifiant, sonType),true))
else
_Modification_autre nomModule identifiant liste_restante
| Autre(nomM, id, sonType)::liste_restante ->
if (nomM = nomModule) && (identifiant = id)
then
(match sonType with
Inconnu ->
((identifiant, Inconnu), false)
| Constructeur(Construct(nomObj, _)) ->
((identifiant, Objet nomObj), true)
| Enum([]) ->
((identifiant, Enum[(Chaine "")]), true)
| _ ->
((identifiant, sonType), true))
else
_Modification_autre nomModule identifiant liste_restante