UpsSng.InterpreterProcedure


Procedure Habilitation InterpreterProcedure(NomFichierSource : Nul Ou Caractere, NomProcedure : Nul Ou Caractere, Parametres : Nul Ou ListeDe Nul Ou Objet Entree Sortie);

Procedure Habilitation InterpreterProcedure(NomFichierSource : Nul Ou Caractere, O : Nul Ou Objet, NomProcedure : Nul Ou Caractere, Parametres : Nul Ou ListeDe Nul Ou Objet Entree Sortie);

Description

La procédure InterpreterProcedure permet de lancer une interprétation d'une procédure ou d'une méthode procédurale.

Le paramètre NomFichierSource est le nom du fichier source en Up ! 5GL contenant la procédure à interpréter.

Le paramètre NomProcedure est le nom de la procédure à interpréter.

Le paramètre O est l'objet sur lequel s'applique la méthode procédurale.

Le paramètre Parametres est contient la liste des paramètres à transmettre à l'appel.

Si NomFichierSource, NomProcedure ou O est Nul alors aucune interprétation n'a lieu.

En cas d'erreur, l'exception InterpretationImpossible est envoyée.

Exemple

Source moncomposant


Type T

/****/


   Procedure Ecrire(C:Caractere);

   Constructeur();

Fin Type



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

Procedure Ecrire(C : Caractere)

/* Objet : Ecrit a l'écran. */

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

Debut

Ecran.Ecrire("Ecrire("+C");");

Fin Procedure



Procedure T.Ecrire(C : Caractere)

/* Objet : Ecrit a l'écran. */

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

Debut

Ecran.Ecrire("T.Ecrire("+C");");

Fin Procedure

Source moncomposant2


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

Procedure EnvoyerErreur(MessageATraiter : Caractere, ? : Entier, ? : Entier, ? : Nul Ou Caractere)

/* Objet : Envoi un message d'erreur. */

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

Debut

Ecran.Ecrire(MessageATraiter);

Fin Procedure



Principal

/*******/

Variable

/******/

   L : Nul Ou ListeDe Nul Ou Objet;

   V : T;



Debut

...

Si Non DebuterInterpretation(EnvoyerErreur) Alors

   Retourner 1;

Fin Si



L=ListeDe("Bonjour");

InterpreterProcedure("moncomposant.upl", "Ecrire", L);

InterpreterProcedure("moncomposant.upl", V, "Ecrire", L);



TerminerInterpretation();

...

Fin Principal

Avertissement

DebuterInterpretation pour démarrer une chaîne d'interprétations. TerminerInterpretation pour terminer une chaîne d'interprétations.

InterpreterExpression pour interpréter une expression. InterpreterFonction pour interpréter une fonction. InterpreterInstruction pour interpréter une instruction. InterpreterProcedure pour interpréter une procédure.

Traduction


-	-	-	-	-	-	-	-	-