Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Annuaire Defaut Final
/* Objet : Type des objets correspondant aux annuaires. */
/***************************************************************/
Prive :
NomAnnuaire : Caractere Lecture Public;
Public :
Constructeur(NomDeLAnnuaire : Caractere);
Fonction Optimiser(NulAbsorbant) LireArborescenceAnnuaire(Chemin : Nul Ou Caractere) Retourner Nul Ou ListeDe Caractere;
Fonction Optimiser(NulAbsorbant) LireEntree(NomEntree : Nul Ou Caractere) Retourner Nul Ou Objet;
Procedure HabilitationContextuelle EcrireEntree(NomEntree : Nul Ou Caractere, ValeurEntree : Nul Ou Objet);
Procedure HabilitationContextuelle SupprimerEntree(NomEntree : Nul Ou Caractere, SupprimerRecursivement : Booleen=Faux);
Procedure HabilitationContextuelle RenommerEntree(NomEntreeAvant : Nul Ou Caractere, NomEntreeApres : Nul Ou Caractere, RenommerRecursivement : Booleen=Faux);
Procedure HabilitationContextuelle Enregistrer();
Fin Type
Le type Annuaire possède un constructeur explicite. Le paramètre NomDeLAnnuaire est le nom donné à l'annuaire.
Procedure AfficherContenuAnnuaire(A: Nul Ou Annuaire, Chemin : Caractere)
/********************************************************************/
/* Affiche le contenu de l'annuaire recursivement. */
Variable
ListeEntrees : Nul Ou ListeDe Caractere;
NomEntree : Nul Ou Caractere;
Debut
Si Chemin!="" Alors
Ecran.Ecrire(Chemin);
Fin Si
ListeEntrees=A.LireArborescenceAnnuaire(Chemin);
Si ListeEntrees!=Nul Alors
Pour NomEntree=ListeEntrees.ParcoursAuDebut() JusquA ListeEntrees.DernierElement() Faire
Si Chemin!="" Alors
AfficherContenuAnnuaire(A, Chemin+"."+NomEntree);
Sinon
AfficherContenuAnnuaire(A, NomEntree);
Fin Si
Fin Pour
Fin Si
Fin Procedure
Principal
Debut
AnnuaireLocal.AfficherContenuAnnuaire("");
Fin Principal
Verzeichnis | Directory | 目录 | Directorio | - | - | - | - |