|
|
|
|
|
|
|
|
|
|
- Fonctionnement
- Cas particulier
Etiquette "FIN :" En anglais : "END :"
L'étiquette FIN : permet de définir un code qui sera exécuté systématiquement à la fin de l'exécution d'un traitement. Ce code sera exécuté même si la sortie du traitement est réalisée avec le mot-clé RETOUR ou le mot-clé RENVOYER (sauf dans le cas d'un traitement d'exception provoqué par la fonction ExceptionDéclenche). PROCÉDURE CompareContenu(Fic1, Fic2)
nFic1 est un entier = fOuvre(Fic1, foLecture)
nFic2 est un entier = fOuvre(Fic2, foLecture)
SI nFic1 = -1 OU nFic2 = -1 ALORS RENVOYER -3
sLigne1 est une chaîne = fLitLigne(nFic1)
sLigne2 est une chaîne = fLitLigne(nFic2)
nLigne est un entier = 1
BOUCLE
SI sLigne1 = EOT _ET_ sLigne2 = EOT ALORS RENVOYER 0
SI sLigne1 = EOT ALORS RENVOYER -1
SI sLigne2 = EOT ALORS RENVOYER - 2
SI sLigne1 <> sLigne2 ALORS RENVOYER nLigne
sLigne1 = fLitLigne(nFic1)
sLigne2 = fLitLigne(nFic2)
nLigne++
FIN
FIN:
fFerme(nFic1)
fFerme(nFic2)
Syntaxe
// Code principal
...
SI ...ALORS
...
RENVOYER 0
FIN
...
SI ...ALORS
...
RENVOYER 1
FIN
RENVOYER 2
// Instructions exécutées dans tous les cas
// en fin d'exécution du traitement
FIN :
...
Remarques La valeur à renvoyer est mémorisée, puis le code suivant l'étiquette "FIN:" est exécuté. La valeur est renvoyée réellement à la fin de l'exécution du code suivant l'instruction "FIN:" Remarque : L'étiquette FIN: est également exécutée après la gestion automatique des erreurs si celle-ci est activée (avec les mots-clé "CAS ERREUR:" et "CAS EXCEPTION:").
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|