Procedure Habilitation LireHabilitationType(M : Nul Ou Caractere, T : Nul Ou Caractere, CreationAutorisee : Booleen Sortie, DestructionAutorisee : Booleen Sortie, LectureAutorisee : Booleen Sortie, ModificationAutorisee : Booleen Sortie, ExecutionAutorisee : Booleen Sortie);
Le paramètre T identifie le type. 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 type est celle par défaut pour tous les objets du type. Pour un objet particulier de ce type, il est possible de lui gérer des habilitations spécifiques au moyen des procédures AjouterHabilitationObjet, LireHabilitationObjet, ModifierHabilitationObjet et SupprimerHabilitationObjet.
Si l'habilitation n'existe pas, l'exception LireHabilitationImpossible 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;
BCreation : Booleen;
BDestruction : Booleen;
BLecture : Booleen;
BModification : Booleen;
BExecution : Booleen;
Debut
...
R.LireHabilitationType("essai", "T", BCreation, BDestruction, BLecture, BModification, BExecution);
/* On lit l'etat de l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |