Up ! Compiler

Ceci est le fichier source du programme exécutable Up ! Compiler.

Source Composant "Up ! Compiler" Version 4.0.0; ImporterModule UpsCmp(<UpsCmp>, ImporterDefinitions); Parametre <upscmp> Section "UpsCmp" /*********************************/ Prive : /*****/


   NomSource "Source":Nul Ou Caractere;



Prive :

/*****/

Procedure EnvoyerErreur(MessageEnvoye:Caractere, ?:Entier, ?:Entier, ?:Caractere)

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

Debut

Ecran.Ecrire(MessageEnvoye);

Fin Procedure



Principal

/*******/

Variable

/******/

   IlExisteSource : Booleen;

   IlExisteErreur : Booleen;

   Numero : Entier;

   NomDuParametre : Caractere;



Debut

Si Non DebuterCompilation(EnvoyerErreur) Alors

   Retourner 1;

Fin Si



Si NomSource!=Nul Alors

   IlExisteSource=Vrai;

   IlExisteErreur=Non Compiler(NomSource, Nul);

Sinon
   Numero=1;

   TantQue Vrai Faire
   
      NomDuParametre=Traduire(UpsCmp,SectionLibelleParametreModule,"Source")+Caractere(Numero,"&&&#");

      Si Non(LireParametre(UpsCmp,NomDuParametre,"UpsCmp",NomSource)) Alors
      
         Arreter;
      
      Fin Si

      IlExisteSource=Vrai;

      Si Non Compiler(NomSource, Nul) Alors
      
         IlExisteErreur=Vrai;

         Arreter;
      
      Fin Si

      Numero++;

      
   Fin TantQue
   
Fin Si



TerminerCompilation();



Si Non IlExisteSource Alors

   Ecran.Ecrire(Message(UpsCmp,"UsageUpsCmp"));

   Retourner 1;

Fin Si



Si IlExisteErreur Alors

   Retourner 1;

Fin Si

Retourner 0;

Fin Principal