UpsKrn.Module.EnumererAppels


Fonction Optimiser(Invariant) EnumererAppels(Numero : Entier, NomAppel : Nul Ou Caractere=? Sortie, Aide : Nul Ou Caractere=? Sortie) Retourner Nul Ou Appel;

Description

La méthode EnumererAppels permet d'énumérer les procédures et les fonctions publiques définies dans le module. Les appels sont numérotés à partir de un.

En sortie, la variable Aide recueille un libellé donnant la sémantique de l'appel, la variable NomAppel recueille le libellé de l'appel et le résultat est l'appel. Il y a une énumération par prototype quand l'appel en possède plusieurs.

Exemple

Module M1


/****************************************************************/

Procedure P1()

/* Objet : Procédure quelconque. */

/****************************************************************/

Debut

...

Fin Procedure



/****************************************************************/

Procedure P1(A : Entier)

/* Objet : Procédure quelconque. */

/****************************************************************/

Debut

...

Fin Procedure



/****************************************************************/

Procedure P2()

/* Objet : Procédure quelconque. */

/****************************************************************/

Debut

...

Fin Procedure



/****************************************************************/

Fonction F() Retourner Booleen

/* Objet : Fonction quelconque. */

/****************************************************************/

Debut

...

Fin Fonction

Module M2


Variable

/******/


	M : Nul Ou Module;

	Numero : Entier;

	A : Nul Ou Appel;

	N : Nul Ou Caractere;



Principal

/*******/

M=Module("M1");

A=M.EnumererAppels(++Numero, N, ?);

/* Enumère les appels de 'M1'. */

TantQue N!=Nul Faire

	Ecran.Ecrire(N);

	A=M.EnumererAppels(++Numero, N, ?);

Fin TantQue

Fin Principal

Traduction


-	-	-	-	-	-	-	-	-