Avant-proposCet article traite des procédures internes qui sont apparues à partir de Windev 20. Les versions 19 et antérieures ne sont donc malheureusement pas concernées.
Les procédures internes
De temps en temps, le WLangage profite d'améliorations conséquentes qui lui redonnent un petit goût de fraicheur. Les procédures internes font partie de ces évolutions qui changent la donne. Je consacrerai (si je compte bien) trois articles aux procédures internes. Celui-ci qui les présente et deux autres qui permettront d'aller beaucoup plus loin.
Avant d'expliquer plus en détail, rappelons que dans Windev, on a plusieurs types de procédures :
- les procédures globales. Elles sont stockées dans une collection de procédures (fichier *.wdg) et elles peuvent être appelées de n'importe où dans le projet ;
- les procédures locales. Elles sont stockées dans les fenêtres (fichier *.wdw) et elles peuvent être appelées de n'importe où dans le code de la fenêtre. Elles ne peuvent pas être utilisées ailleurs. On peut toutefois contourner cette règle de plusieurs manières différentes. Mais mon éthique du code propre m'interdit de le faire (sauf si je n'ai pas le choix parce que je suis tombé sur du code sale) ;
- les méthodes. Ce sont des procédures associées à une classe (fichier *.wdc). Elles peuvent être locales ou globales, publiques, protégées ou privées. Mais là, on rentre dans le domaine de la POO (Programmation Orientée Objet) et ce n'est pas le sujet de l'article ;
- les procédures compilées dynamiquement. On utilise la fonction compile ;
- les procédures appelées à la suite d'un événement sur un champ de l'application.
Et maintenant, nous avons les procédures internes qui peuvent être définies et utilisées dans les autres types de procédures citées précédemment. Mais une procédure interne peut aussi être définie dans une autre procédure interne.
Comment ça marche ?
Un petit exemple étant plus efficace qu'une longue présentation, voici un exemple de procédure interne :
| Code windev : | Sélectionner tout |
1 2 3 4 5 6 | PROCEDURE ProcédureLocale() PROCEDURE INTERNE ProcédureInterne() RENVOYER "Hello world" FIN Trace(ProcédureInterne()) |
On définit ici une procédure locale qui s'appelle ProcédureLocale et dans celle-ci, on définit la procédure interne ProcédureInterne.
Dans quel cas s'en sert-on ?
On s'en sert dans plusieurs cas.
Tout d'abord, on peut s'en servir pour avoir un joli code bien écrit, autodocumenté (si vous ne connaissez pas ce terme, il faudra que je fasse un article dessus) et qui respecte la convention DRY (Don't Repeat Yourself, un autre article à prévoir).
Le code suivant :
| Code windev : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | PROCEDURE ProcédureLocale() POUR i = 1 _A_ 10 Trace(i) Trace(i * i) Trace(Racine(i + 1)) FIN POUR i = 30 _A_ 40 Trace(i) Trace(i * i) Trace(Racine(i + 1)) FIN POUR i = 80 _A_ 100 Trace(i) Trace(i * i) Trace(Racine(i + 1)) FIN |
| Code windev : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | PROCEDURE ProcédureLocale() PROCEDURE INTERNE TracerEntierSousToutesCesFormes(pEntier est entier) Trace(pEntier) Trace(pEntier * pEntier) Trace(Racine(pEntier + 1)) FIN POUR i = 1 _A_ 10 TracerEntierSousToutesCesFormes(i) FIN POUR i = 30 _A_ 40 TracerEntierSousToutesCesFormes(i) FIN POUR i = 80 _A_ 100 TracerEntierSousToutesCesFormes(i) FIN |
Le code devient ainsi plus clair, j'évite les répétitions de code.
On peut aussi s'en servir pour des usages plus avancés que je décrirai dans les articles suivants : les closures et ce que j'appellerai les pseudo-classes.
Premier piège et comment l'éviter
Plusieurs pièges vous attendent lors de l'utilisation des procédures internes. Voici le premier.
Une procédure interne ne peut pas appeler une autre procédure interne définie au même niveau qu'elle.
| Code windev : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 | PROCEDURE ProcédureLocale() PROCEDURE INTERNE PasLeDroit() Trace("Hello world") FIN PROCEDURE INTERNE Test() PasLeDroit() // Cela ne fonctionne pas FIN Test() |
Notez que je préfixe le nom des procédures internes par un i dans mon exemple pour les distinguer des variables de type procédure.
| Code windev : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 | PROCEDURE ProcédureLocale() PasLeDroit est une procédure PROCEDURE INTERNE iPasLeDroit() Trace("Hello world") FIN PasLeDroit = iPasLeDroit PROCEDURE INTERNE iTest() PasLeDroit() // Cela fonctionne FIN iTest() |
Conclusion
Cet article est une copie de l'article paru sur mon blog.
Voilà pour la première approche sur les procédures internes. Vous allez voir que ce n'est que la partie visible de l'iceberg et que de belles fonctionnalités bien cachées et non documentées vous attendent.
N'hésitez pas à me dire dans quel cas vous utilisez les procédures internes.
Merci pour votre lecture.