Procedure Habilitation AjouterHabilitationMethodeObjet(O : Nul Ou Objet, M : Nul Ou Caractere, ExecutionAutorisee : Booleen);
Le paramètre O identifie l'objet. Le paramètre M identifie la méthode. Le paramètre ExecutionAutorisee spécifie si l'habilitation est d'autoriser ou non l'exécution de la méthode.
L'habilitation au niveau d'un objet est spécifique à cet objet. Pour les objets quelconques de ce type, il est possible de leur gérer des habilitations génériques au moyen des procédures AjouterHabilitationMethodeType, LireHabilitationMethodeType, ModifierHabilitationMethodeType et SupprimerHabilitationMethodeType.
Si l'habilitation existe déjà ou si l'appel n'est pas une méthode procédurale fonctionnelle d'un type mais un appel d'un module, l'exception CreationHabilitationImpossible est envoyée.
Type T Defaut Habilitation
/************************/
C : Entier;
...
Fin Type
/****************************************************************/
Procedure Habilitation T.P()
/* Objet : Methode supportant les habilitations. */
/****************************************************************/
Debut
...
Fin Procedure
Principal
/*******/
Variable
/******/
R : Nul Ou Role;
O : Nul Ou T;
Debut
...
R.AjouterHabilitationMethodeObjet(O, "P", Vrai);
/* On ajoute l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |