Problème avec la commande 'return'.

Bonjour.

@Jack.

Suite à de nombreuses imbrications de code, la commande return provoque l'erreur suivante:

Erreur externe !

Serait-il possible de créer une nouvelle commande afin de sortir prématurément, avant un return, exemple: exit_return

Merci de la suite.

Inutile, Pédro !

La commande RETURN sert à sortir d'un sous-programme appelé par GOSUB. Et uniquement pour cela. Bien évidemment, une routine évènement en fait partie également, puisqu'elle est appelée automatiquement par Panoramic, comme si l'on avait fait un GOSUB.

Pour sortir d'une telle routine, tu places un RETURN où tu veux, pourvu qu'il soit dans le flot d'exécution du programme. Un tel sous-programme peut très bien avoir 2, 3 ou même beaucoup de RETURN. Pas de problème.

Regarde ce code:

Code:

label key
dim k%

on_key_down 0,key

end

key:
  k% = scancode
 
  if k%=27
    message "Echap"
    return
  end_if
 
  if k%=37
    message "flèche à gauche"
    return
  end_if
 
  if k%=38
    message "flèche en haut"
    return
  end_if
 
  message "scancode = "+str$(k%)
  return

Bonjour.

Désolé Klaus, mais cela ne résout pas le problème.

Lors de l'appel de nombreuses subs et appels de returns imbriqués, le problème persiste.

Panoramic se mélange les pinceaux.

J'ai l'impression qu'il ne s'y retrouve pas dans la table des retours internes !

Ne mélange pas des SUB qui sont des procédures, avec des sous-programmes appelées par GOSUB.

Un sous-programme commence par un label et n'a pas de véritable fin dans le code. Ma commande RETURN sert juste à "annuler" la commande GOSUB qui l'a appelé:

Code:

LABEL test
GOSUB test
...
test:
...
RETURN

Une procédure est une séquence de comandes portant un nom et est déclarée par la commande SUB. Elle est terminée par la commande END_SUB. Elle ne doit pas contenir une autre commande SUB avant l'apparition du END_SUB. La commande END_SUB termine l'exécution de la procédure si le flot d'exécution l'atteint. Si l'on veut sortir d'une procédure avant le END_SUB, il y a la commande EXIT_SUB qui fait cela. La structure générale est donc:

Code:

essai("Premier",k%*3)
...
SUB essai(a$,b%)
...
EXIT_SUB
...
EXIT_SUB
...
END_SUB

Bien sûr, dans un sous-programme, on peut appeler une procédure et inversement. Mais attention: RETURN ne s'applique qu'aux sous-programmes, et EXIT_SUB ne s'applique qu'aux procédures ! On ne peut pas utiliser l'un pour l'autre. Et un autre point est important: ni les sous-programmes no les procédures ne sont réentrantes, en Panoramic. Donc on ne peut pas - JAMAIS -
1. appeler un sous-programme ou une procédure de façon récursive, même indirectement
2. coder une routine évènement de telle façon qu'une partie de son code puisse être partagé avec une autre routine évènement

Bonsoir.

Un grand merci Klaus, tout cela a le mérite d'être très clair.

Je savais qu'effectivement, il était possible d'écrire plusieurs return dans une même sub.

Pedro Alvarez a écrit:

Je savais qu'effectivement, il était possible d'écrire plusieurs return dans une même sub.

La commande RETURN ne peut se trouver que dans un sous-programme appelé par GOSUB ou dans un sous-programme de traitement d’un événement déclenché par les commandes de type ON_XXX.
Elle ne peut pas se trouver dans une procédure SUB, à moins que cette procédure contient elle-même un sous-programme appelé par GOSUB.
Personnellement je ne vois pas la nécessité d’employer des sous-programmes appelés par GOSUB dés lors que l’on peut coder des procédures SUB.

L’unique rôle de la commande RETURN est de diriger le programme vers l’instruction qui vient juste après le GOSUB correspondant ou  de remettre le programme en attente d’événement s'il s'agit d'un traitement d'événement.

Lorsque le programme est en cours d’exécution, le registre PC (Program Counter) contient l’adresse mémoire de la prochaine instruction à exécuter
La rencontre de la commande GOSUB, oblige le système à  sauvegarder son environnement de travail en mettant sur la pile (PUSH)  les contenus des registres de travail et principalement le registre Program Counter puis il modifie ce dernier pour se brancher vers le sous-programme.
Quand il rencontre la commande RETURN, le système restaure son ancien environnement de travail  (POP) et principalement le registre Program Counter  en récupérant  l’adresse préalablement sauvegardée et continue l’exécution.

Merci Klaus et Papydall pour ces explications très pédagogiques.

A vous deux, vous pourriez alimenter 10 ans de PLM* !  


*PLM = Panoramic Le Mag