Up ! Shell

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

Source Composant "Up ! Shell" Version 4.0.0; ImporterModule /************/


	UpsSng(<UpsSng.upi>, 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

/******/

   CodeRetour : Entier;


   
Debut
AttraperException

   Si Non DebuterInterpretation(EnvoyerErreur) Alors
   
      Retourner 1;
   
   Fin Si

   ?=InterpreterEnInteractif();

   TerminerInterpretation();

   CodeRetour=0;

TraiterException

   Cas Pour ArretProgramme Faire
   
      CodeRetour=0;
   
   Fin Cas

   Defaut
   
      CodeRetour=1;

      Ecran.Ecrire(Exception.MessageErreur);
   
   Fin Defaut

Fin AttraperException

Retourner CodeRetour;

Fin Principal