UpsCmp.DebuterCompilation


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

Description

La fonction DebuterCompilation permet de débuter une chaîne de compilations.

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

MessageEnvoye.
Message envoyé par le compilateur.
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 : Envoie un message d'erreur. */

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

Debut

Ecran.Ecrire(MessageATraiter);

Fin Procedure



Principal

/*******/

Debut

...

Si Non DebuterCompilation(EnvoyerErreur) Alors

   Retourner 1;

Fin Si

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

   Retourner 1;

Fin Si


TerminerCompilation();

...

Fin Principal

Voir aussi

Compiler pour lancer une compilation. TerminerCompilation pour terminer une chaîne de compilations.

Traduction


-	-	-	-	-	-	-	-	-