Compiler

Ce programme présente l'appel à Up ! Compiler en tant qu'objet programmable.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/compiler.upl.

Mode compilé

Commande de compilation


upscmp Source=compiler.upl

Commande d'exécution


compiler

Mode interprété


upssng Source=compiler.upl

Fichier source


Source Composant "Exemple de l'emploi d'Up ! Compiler dynamiquement" Version 4.0.0;



ImporterModule 

	UpsCmp(<UpsCmp>, ImporterDefinitions);




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

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

Debut

Ecran.Ecrire(MessageATraiter);

Fin Procedure



Principal

/*******/

Debut

Si Non DebuterCompilation(EnvoyerErreur) Alors

   Retourner 1;

Fin Si



Si Non Compiler("${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/binaire.upl", "Compile=Oui") Alors

   Retourner 1;

Fin Si

Ecran.Ecrire(");

Si Non Compiler("${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/caractere.upl", "Compile=Oui") Alors

   Retourner 1;

Fin Si

Ecran.Ecrire(");

Si Non Compiler("${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/entier.upl", "Compile=Oui") Alors

   Retourner 1;

Fin Si

Ecran.Ecrire(");

Si Non Compiler("${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/reel.upl", "Compile=Oui") Alors

   Retourner 1;

Fin Si



TerminerCompilation();

Fin Principal