Up ! Script Engine

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

Source Composant "Up ! Script Engine" Version 4.0.0; ImporterModule UpsSng(<UpsSng>, ImporterDefinitions); Parametre <upssng> Section "UpsSng" /*********************************/ Prive : /*****/


   NomSource "Source" : Nul Ou Caractere;




Prive :

/*****/

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

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

Debut

Ecran.Ecrire(MessageEnvoye);

Fin Procedure



Principal

/*******/

Variable

/*******/

   IlExisteSource : Booleen;

   CodeRetour : Entier;

   Numero : Entier;

   NomDuParametre : Caractere;



Debut

Si Non DebuterInterpretation(EnvoyerErreur) Alors

   Retourner 1;

Fin Si



Si NomSource!=Nul Alors

   IlExisteSource=Vrai;

   CodeRetour=Interpreter(NomSource, Nul);

Sinon

   Numero=1;

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

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

      IlExisteSource=Vrai;

      CodeRetour=Interpreter(NomSource, Nul);

      Si CodeRetour!=0 Alors
      
         Arreter;
      
      Fin Si

      Numero++;

   
   Fin TantQue

Fin Si



TerminerInterpretation();



Si Non IlExisteSource Alors

   Ecran.Ecrire(Message(UpsSng,"UsageUpsSng"));

   Retourner 1;

Fin Si



Retourner CodeRetour;

Fin Principal