UpsSng.DebuterInterpretation


Fonction Habilitation Optimiser(PasDEffetDeBord) DebuterInterpretation(EnvoyerErreur : Procedure (MessageEnvoye : Caractere, NumeroColonne : Entier, NumeroLigne : Entier, NomFichierSource : Nul Ou Caractere)) Retourner Booleen;

Description

La fonction DebuterInterpretation permet de débuter une chaîne d'interprétations.

Le paramètre EnvoyerErreur permet de récupérer les messages issus de l'interprétation, en particulier les messages d'erreurs. Ses paramètres sont les suivants :

MessageEnvoye.
Message envoyé par l'interpréteur.
NumeroColonne.
Numéro de la colonne où l'erreur s'est produite.
NumeroLigne.
Numéro de la ligne où l'erreur s'est produite.
NomFichierSource.
Nom du fichier source où l'erreur s'est produite.

Exemple


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

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

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

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

Debut

Ecran.Ecrire(MessageATraiter);

Fin Procedure



Principal

/*******/

Debut

...

Si Non DebuterInterpretation(EnvoyerErreur) Alors

   Retourner 1;

Fin Si

Si Non Interpreter("${UPS_HOME}/upssdk/exemples/french/binaire.upl", "Contrainte=Oui") Alors

   Retourner 1;

Fin Si


TerminerInterpretation();

...

Fin Principal

Voir aussi

Interpreter pour lancer une interprétation. TerminerInterpretation pour terminer une chaîne d'interprétations.

Traduction


-	-	-	-	-	-	-	-	-