【已解决】如何判断一个函数是否加载了？

lisp_beginner

各位好，如何判断一个函数是否加载了？

newer

lisperado 发表于 2018-11-10 18:56
如果defun & lambda模式可查符号boundp或属性*SUBR
(lambda  (a b) (* (+ a b ) 0.5)  )

发个一劳永逸的方法

1. (defun isLoaded (str)
   
2.    (if (atoms-family 1 (list str))
   
3.        t
   
4.        nil
   
5.    )
   
6. )
   

(defun isLoaded (str)<br />    (if (atoms-family 1 (list str))<br />        t<br />        nil<br />    )<br /> )<br />

1. (setq mid1 '( (a b) (* (+ a b ) 0.5) ) )
   

(setq mid1 '( (a b) (* (+ a b ) 0.5) ) )<br />

命令: (isloaded "mid1")
T

Lisphk

1. (defun isLoaded        (func)
   
2.   (setq ret nil)
   
3.   (cond        ((= (type func) 'STR)
   
4.          (if (wcmatch (vl-princ-to-string (type (eval (read func)))) "*SUBR")
   
5.            (setq ret t)
   
6.          )
   
7.         )
   
8.         ((= (type func) 'SYM)
   
9.          (if (wcmatch (vl-princ-to-string (type (eval func))) "*SUBR")
   
10.            (setq ret t)
    
11.          )
    
12.         )
    
13.   )
    
14.   ret
    
15. )
    

(defun isLoaded        (func)<br />   (setq ret nil)<br />   (cond        ((= (type func) 'STR)<br />          (if (wcmatch (vl-princ-to-string (type (eval (read func)))) "*SUBR")<br />            (setq ret t)<br />          )<br />         )<br />         ((= (type func) 'SYM)<br />          (if (wcmatch (vl-princ-to-string (type (eval func))) "*SUBR")<br />            (setq ret t)<br />          )<br />         )<br />   )<br />   ret<br /> )<br />

yoyoho

谢谢! Lisphk 分享程序!!!!!

lisperado

如果defun & lambda模式可查符号boundp或属性*SUBR
(lambda  (a b) (* (+ a b ) 0.5)  )

但有例外: setq, set, list, quote, read, eval 也可定义'伪函数'：

1. (setq mid1 '( (a b) (* (+ a b ) 0.5) ) )
   
2. (set 'mid2 (list '(a b) '(* (+ a b ) 0.5) ) )
   
3. 
   
4. 举例：
   
5. (mid1 3 4 )
   
6. ; 3.5
   
7. (mapcar 'mid2 '(0. 0. 0.) '(3. 4. 5.) )
   
8. ;(1.5 2.0 2.5)

(setq mid1 '( (a b) (* (+ a b ) 0.5) ) )<br /> (set 'mid2 (list '(a b) '(* (+ a b ) 0.5) ) )<br /> <br /> 举例：<br /> (mid1 3 4 )<br /> ; 3.5<br /> (mapcar 'mid2 '(0. 0. 0.) '(3. 4. 5.) )<br /> ;(1.5 2.0 2.5)

如上mid1 & mid2 算不算函数呢？

konglong604

谢谢大神分享经验..!

sicky111

学习了。         

ayl1004

[quote]lisperado 发表于 2018-11-10 18:56
如果defun

这不就是defun-q吗
来自: 微社区

marting

lisperado 发表于 2018-11-10 18:56
如果defun & lambda模式可查符号boundp或属性*SUBR
(lambda  (a b) (* (+ a b ) 0.5)  )

就是 defun-q

命令: (defun-q mid (a b) (* (+ a b) 0.5))
MID
命令: !mid
((A B) (* (+ A B) 0.5))

lisperado

newer 发表于 2018-11-10 19:07
发个一劳永逸的方法

谢谢大师回帖 :)
尚未解决呢：
1. atoms-family 返回值是个表 （A list of symbols）
所以,(nil) 不等于 nil

更改如下car

1. (defun isLoaded? (str)
   
2.    (if (car (atoms-family 1 (list str)))
   
3.        t
   
4.        nil
   
5.    )
   
6. )
   
7. 
   
8. (setq DEF nil)
   
9. (isLoaded "DEF")
   
10. T
    
11. (isloaded? "DEF")
    
12. nil
    

(defun isLoaded? (str)<br />    (if (car (atoms-family 1 (list str)))<br />        t<br />        nil<br />    )<br /> )<br /> <br /> (setq DEF nil)<br /> (isLoaded "DEF")<br /> T<br /> (isloaded? "DEF")<br /> nil<br />

2. 楼主标题是“如何判断一个函数是否加载了”
;而不是符号 (SYMBOL)加载


(setq ABC nil)
(atoms-family 1 '("ABC"))
;(nil)

(setq ABC t)
(atoms-family 1 '("ABC"))
;("ABC")

(setq DEF nil)
(boundp 'DEF)
;nil
(atoms-family 1 '("DEF"))
;(nil)
(isloaded "DEF")  
; T
(isloaded? "DEF")
nil ;修改后

(setq DEF t)
(boundp 'DEF)
T
(atoms-family 1 '("DEF"))
;("DEF")
(isloaded "DEF")
T

1. (defun foo  ( l )
   
2. (mapcar ''((x)(if (boundp x) (vl-symbol-name x))) l)
   
3. )

(defun foo  ( l )<br /> (mapcar ''((x)(if (boundp x) (vl-symbol-name x))) l)<br /> )

(foo '(ABC DEF GHI))
;("ABC" "DEF" nil)

(atoms-family 1 '("ABC" "DEF" "GHI"))
;("ABC" "DEF" nil)

所以2个示范都返回符号值而不是‘加载值’，加载函数应该要更谨慎？不清楚有没有像命令般可查 (getvar 'cmdactive) 或 lisp 'C:命令'?

1. (vl-list-exported-functions)

(vl-list-exported-functions)

?
p/s: 除了*SUBR，应该有更好的思路吧？


已编辑：vl-list-exported-functions

lisperado

ayl1004 发表于 2018-11-11 02:12
[quote]lisperado 发表于 2018-11-10 18:56
如果defun

对呀，谢谢提示!
还有遗漏 vl-bb-set & vl-propagate ?

aeo

(if func (func ...))
直接判断就可以，lisp本来都是表，函数和数据又不能重名。
一个函数（setq func nil）就可以注销掉，
而且用setq 就可以定义一个函数

lisp_beginner

谢谢楼上各位大神