Procedure Habilitation Optimiser(PasDEffetDeBord) TerminerCompilation();
/****************************************************************/
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
- | - | - | - | - | - | - | - | - |