Comment savoir si un Lisp existe avant de le charger ?

[DenisHen]

Salut...

 

Je suis en train de faire une suite de plusieurs modules Lisp (lotissement, copropriété, division...) gérés par un seul : TétraCAD (mon petit projet).

 

Depuis ce dernier, je charge les Lisp utiles à l'utilisateur. Mais il se peut qu'il n'utilise qu'un seul module parmis les quatre que je développe.

 

Ma question : comment savoir si un fichier .lsp existe avant le de le charger avec un (load ?

 

Ce qui ressemble trait pour trait à un IsFileExiste en VBA...

 

Denis...

[didier]

Coucou

 

Vois la fonction AUTOLOAD

Je viens de me rendre compte que je ne l'ai pas renseignée d'ailleurs, il va falloir y remédier.

 

Amicalement

[DenisHen]

ReSalut didier.

 

Je n'ai rien lu qui démontre si AutoLoad charge un fichier Lisp que si il existe.

 

J'aimerais, dans mon Lisp, ne charger le fichier .lsp que s'il existe et surtout, vérifier s'il existe...

 

Et AutoLoad n'est pas reconnu comme une commande dans l'IDE VisualLisp (elle reste en noir et pas en bleu)...

 

Maître (gile), si tu me lis...

[Fraid]

yop

 

tu n'est pas très clair

 

si tu veux tester l’existence d'un fichier c'est findfile par exemple (if (findfile "chemin\\kk.lsp")..)

[Fraid]

ou si tu te retrouve à charger 2 fois le meme lisp, cela n'a aucune importance.

[didier]

Coucou

 

Confirmation : FINDFILE

 

Le mieux dans ton cas car tu parles de faire un "programme complet" du moins avec plein de mini-programmes c'est de mettre le tout dans un chemin reconnu, chemin de recherche du logiciel et de vérifier si ce chemin de recherche est bel et bien connu.

 

Tu peux aussi voir ACADDOC.LSP

 

Ou bien de le mettre dans une routine de lancement :

 

(setq cheminDenisHEN "D:\\TetraCAD\\Routines\\"))

Allez on s'y met ...

 

[Patrick_35]

Salut

 

Pour savoir si une fonction lisp est chargé en mémoire

(eval ma_fonction)

Par exemple avec le lisp CAT

(if (eval c:cat) (alert "Lisp CAT déjà chargé"))

 

@+

[(gile)]

Salut

 

Pour savoir si une fonction lisp est chargé en mémoire

(eval ma_fonction)

Par exemple avec le lisp CAT

(if (eval c:cat) (alert "Lisp CAT déjà chargé"))

 

@+

 

Il me semble que eval est superfétatoire,

(if c:cat (alert "Lisp CAT déjà chargé"))

suffirait.

 

Si on veut écrire quelque chose de plus explicite, la fonction boundp me semble plus indiquée :

(if (boundp 'c:cat) (alert "Lisp CAT déjà chargé"))

[DenisHen]

Salut à tous, et merci pour votre aide.

 

J'ai pu faire ce code, pour chacun de mes modules, et ça à l'air de fonctionner à merveille...:

(if (findfile "TC_Division.lsp")
 (load "TC_Division.lsp")
) ;_ Fin:if

Encore merci à vous...

[Patrick_35]

Tu as raison (gile). J'avais oublié qu'on pouvait le faire directement.

 

@+