Procedure Habilitation AjouterHabilitationType(M : Nul Ou Caractere, T : Nul Ou Caractere, CreationAutorisee : Booleen, DestructionAutorisee : Booleen, LectureAutorisee : Booleen, ModificationAutorisee : Booleen, ExecutionAutorisee : Booleen);
Les paramètres M et T identifient le module et 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 existe déjà 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;
Debut
...
R.AjouterHabilitationType("essai", "T", Vrai, Faux, Vrai, Faux, Vrai);
/* On ajoute l'habilitation. */
...
Fin Principal
| - | - | - | - | - | - | - | - | - |