Fonction Habilitation Optimiser(PasDEffetDeBord) Compiler(NomFichierSource : Nul Ou Caractere, Parametres : Nul Ou Caractere) Retourner Booleen;
Le paramètre NomFichierSource est le nom du fichier source à compiler. Les paramètres spécifiques à la compilation sont à transmettre via Parametres.
Si NomFichierSource est Nul alors aucune compilation n'a lieu.
/****************************************************************/
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
- | - | - | - | - | - | - | - | - |