Commande très curieuse dans une suite de lisp...

[DenisHen]

Bonjour à tous.

 

J'ai trouvé sur le net une suite de lisp qui dessine un carroyage (DTGrid).

 

Je trouve ces lisp très très intéressants. Mais je suis tombé sur une drole de commande :

 

;;; Retourne la valeur k
(defun UtReturn (k) (setq k k))

Je me pose une question, à quoi peut bien servir cette commande ?

[Fraid]

Bonjour,

 

Il me semble que c'est équivalant à (EVAL k) non?

[DenisHen]

Salut Fraid, et merci pour cette réponse.

 

Je te répondrais, "J'en n'ai aucune idée"... :mellow:

[(gile)]

Salut,

 

As-tu cherché où et comment cette fonction est utilisée dans le code ?

J'ai vraiment l'impression que c'est du verbiage tout à fait superfétatoire.

J'ai vu des codes où, pour spécifier la valeur de retour d'une routine on utilisait l'expression :

(setq retval retVal) à la fin du code plutôt que tout simplement retVal.

Cette fonction permettrait donc d'écrire :

(UtReturn retVal) à la fin du code plutôt que tout simplement retVal...

[(gile)]

C'est exactement ça.

 

;; Extraction nom du fichier d'un chemin complet
(defun UtFname (FileName /)
 (while (wcmatch FileName "*/*,*\\*")
   (setq FileName (substr FileName 2))
 )
 (UtReturn FileName)
)

 

On pourrait remplacer (UtReturn FileName) par FileName, ou même par rien du tout dans ce cas là puisque une fonction LISP retourne toujours le résultat de l'évaluation de la dernière expression, donc ici :

(setq FileName (substr FileName 2))

 

En bref, ce bout de code est équivalent à :

;; Extraction nom du fichier d'un chemin complet
(defun UtFname (FileName /)
 (while (wcmatch FileName "*/*,*\\*")
   (setq FileName (substr FileName 2))
 )
 (setq FileName FileName)
)

et pourrait être simplement écrit :

;; Extraction nom du fichier d'un chemin complet
(defun UtFname (FileName /)
 (while (wcmatch FileName "*/*,*\\*")
   (setq FileName (substr FileName 2))
 )
)

[DenisHen]

Salut (gile), et merci pour cette réponse.

 

Je comprend mieux, mais ça complique vachement le code... Pour rien, si j'ai tout compris... ;)

[Patrick_35]

Salut

 

Salut (gile), et merci pour cette réponse.

 

Je comprend mieux, mais ça complique vachement le code... Pour rien, si j'ai tout compris... ;)

Oui, ou une évolution du code (voir de maitrise du lisp) qui fait que certaines fonctions deviennent superflues.

 

@+