Fonction Optimiser(Invariant) EnumererModulesImportes(Numero : Entier, EstOptionnel : Booleen=? Sortie, EstExtensionDe : Booleen=? Sortie) Retourner Nul Ou Caractere;
En sortie, les paramètres EstOptionnel et EstExtensionDe recueillent respectivement les valeurs Vrai si le module importé peut être une option d'installation et si le module importé est étendu par le module courant.
Le résultat est l'identifiant du module importé.
Variable
/******/
M : Nul Ou Module;
Numero : Entier;
EstOptionnel : Booleen;
EstExtensionDe : Booleen;
M2 : Nul Ou Caractere;
Principal
/*******/
...
M2=M.EnumererModulesImportes(++Numero, EstOptionnel, EstExtensionDe);
/* Enumère les modules importes par 'M'. */
TantQue M2!=Nul Faire
Ecran.Ecrire(M2);
M2=M.EnumererModulesImportes(++Numero, EstOptionnel, EstExtensionDe);
Fin TantQue
...
Fin Principal
- | - | - | - | - | - | - | - | - |