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
/******/

Debut
C="coucou";
Ecran.Ecrire(C);
Ecran.Ecrire(10/P1);
Fin Procedure

AttraperException
/***************/
Debut
Ecran.Ecrire("Exception:"+MessageErreur);
Fin AttraperException

Principal
/*******/
Variable
/******/
Debut
E=1;
E=E+Nul;
Si E==0 Alors Sinon Fin Si
Si X==DivisionParZero Alors Fin Si
Si X!=OuvertureLecture Alors Fin Si
AttraperException TraiterException
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.