Exceptions

Ce programme présente le rattrapage des exceptions.

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

Mode compilé

Commande de compilation


upscmp Source=exception.upl

Commande d'exécution


exception

Mode interprété


upssng Source=exception.upl

Fichier source


Source Composant "Exemple d'emploi des exceptions" Version 4.0.0;



Procedure P(P1 : Entier)

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

Variable

/******/


   C : Nul Ou Caractere;



Debut

C="coucou";

Ecran.Ecrire(C);

Ecran.Ecrire(10/P1);

Fin Procedure



AttraperException

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

Debut

Ecran.Ecrire("Exception:"+MessageErreur);

Fin AttraperException



Principal

/*******/

Variable

/******/

   E : Nul Ou Entier;

   X : Nul Ou Exception;




Debut

E=1;

E=E+Nul;

Si E==0 Alors

   X=DivisionParZero;

Sinon

   X=PlusDeMemoire;

Fin Si

Si X==DivisionParZero Alors

   Ecran.Ecrire("X==DivisionParZero");

Fin Si

Si X!=OuvertureLecture Alors

   Ecran.Ecrire("X!=OuvertureLecture");

Fin Si

AttraperException

   P(0);

TraiterException


   Cas Dans (OuvertureLecture, OuvertureEcriture) Faire
   
      Ecran.Ecrire("Probleme sur un fichier");
   
   Fin Cas


Fin AttraperException

Fin Principal

Résultat de l'exécution

X!=OuvertureLecture coucou Exception:Erreur UpsKrn-2 : Division par zéro. Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le source 'source inconnu' ligne 0, colonne 0 : Erreur UpsKrn-2 : Division par zéro. Exception:Avertissement UpsKrn-212 : Arrêt du programme.