Procedure Habilitation LireHabilitationObjet(O : Nul Ou Objet, CreationAutorisee : Booleen Sortie, DestructionAutorisee : Booleen Sortie, LectureAutorisee : Booleen Sortie, ModificationAutorisee : Booleen Sortie, ExecutionAutorisee : Booleen Sortie);
Le paramètre O identifie l'objet. Les paramètres CreationAutorisee, DestructionAutorisee, LectureAutorisee, ModificationAutorisee, ExecutionAutorisee spécifient si l'habilitation est d'autoriser ou non respectivement la création d'une propriété dynamique, la destruction d'une propriété dynamique, la lecture d'une propriété, la modification d'une propriété et l'exécution d'une 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 AjouterHabilitationType, LireHabilitationType, ModifierHabilitationType et SupprimerHabilitationType.
Si l'habilitation n'existe pas, l'exception LireHabilitationImpossible est envoyée.
Type T Defaut Habilitation
/************************/
Procedure Habilitation P();
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;
BCreation : Booleen;
BDestruction : Booleen;
BLecture : Booleen;
BModification : Booleen;
BExecution : Booleen;
Debut
...
R.LireHabilitationObjet(O, BCreation, BDestruction, BLecture, BModification, BExecution);
/* On lit l'etat de l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |