按需输出函数定义

st788796

1. (defun namespace:name_of_namespace (symbols / define functs <-export)
   
2.     (defun define (symb fn)
   
3.       (setq functs (append functs (list (cons symb fn)))))
   
4.     (defun <-export ( )
   
5.       (foreach v symbols
   
6.         (set v (cdr (assoc v functs)))))
   
7.     (define 'setv (lambda (name value / oldval)
   
8.       (setq oldval (getvar name))
   
9.        (if (not (assoc name sysvars))
   
10.         (setq sysvars (append sysvars (list (cons name oldval)))))
    
11.       (setvar name value)
    
12.       oldval))
    
13.     (define 'unsetvars (lambda ( )
    
14.       (foreach v sysvars (setvar (car v) (cdr v)))))
    
15.     (define '*error* (lambda (msg)
    
16.       (unsetvars)
    
17.       (setq *error* olderr)
    
18.       (if (and msg (/= msg "Function cancelled"))
    
19.         (prompt (strcat "Error: " msg))
    
20.         (princ))))
    
21.     (define 'deg->rad (lambda (degrees)
    
22.       (* pi (/ degrees 180.0))))
    
23.     (define 'rad->deg (lambda (radians)
    
24.       (* 180.0 (/ radians pi))))
    
25.     ;;...functions of namespace...etc...
    
26.     (<-export)
    
27.   )
    
28.   (defun C:SOME_COMMAND ( / olderr sysvars setv unsetvars) ;;<---- Protect imported symbols
    
29.     (setq olderr *error*)
    
30.     (namespace:name_of_namespace '(*error* setv unsetvars deg->rad)) ;;<---- Import functions here
    
31.     (setv "cmdecho" 0) ;;use imported functions
    
32.     (setv "cmdecho" 1)
    
33.     ;;do command related tasks
    
34.      ;;
    
35.        ;;
    
36.      ;;clear system variables and reset *error*
    
37.     (*error* nil)
    
38.     (princ)
    
39.   )
    

(defun namespace:name_of_namespace (symbols / define functs <-export)<br />     (defun define (symb fn)<br />       (setq functs (append functs (list (cons symb fn)))))<br />     (defun <-export ( )<br />       (foreach v symbols<br />         (set v (cdr (assoc v functs)))))<br />     (define 'setv (lambda (name value / oldval)<br />       (setq oldval (getvar name)) <br />        (if (not (assoc name sysvars))<br />         (setq sysvars (append sysvars (list (cons name oldval)))))<br />       (setvar name value)<br />       oldval))<br />     (define 'unsetvars (lambda ( )<br />       (foreach v sysvars (setvar (car v) (cdr v)))))<br />     (define '*error* (lambda (msg)<br />       (unsetvars)<br />       (setq *error* olderr)<br />       (if (and msg (/= msg "Function cancelled"))<br />         (prompt (strcat "Error: " msg))<br />         (princ))))<br />     (define 'deg->rad (lambda (degrees)<br />       (* pi (/ degrees 180.0))))<br />     (define 'rad->deg (lambda (radians)<br />       (* 180.0 (/ radians pi))))<br />     ;;...functions of namespace...etc...<br />     (<-export)<br />   )<br />   (defun C:SOME_COMMAND ( / olderr sysvars setv unsetvars) ;;<---- Protect imported symbols<br />     (setq olderr *error*)<br />     (namespace:name_of_namespace '(*error* setv unsetvars deg->rad)) ;;<---- Import functions here<br />     (setv "cmdecho" 0) ;;use imported functions<br />     (setv "cmdecho" 1)<br />     ;;do command related tasks<br />      ;;<br />        ;;<br />      ;;clear system variables and reset *error*<br />     (*error* nil)<br />     (princ)<br />   )<br />

Lisphk

具体做什么用的？

st788796

Lisphk 发表于 2013-10-27 17:38
具体做什么用的？

大概意思是把函数定义都写在 namespace:name_of_namespace , 程序用到哪个函数就用这个函数输出定义, 程序运行完把函数又置空?

xshrimp

st788796 发表于 2013-10-27 18:01
大概意思是把函数定义都写在 namespace:name_of_namespace , 程序用到哪个函数就用这个函数输出定义, 程 ...

没有置空啊.只是用几个定义几个吧.

st788796

xshrimp 发表于 2013-10-27 20:49
没有置空啊.只是用几个定义几个吧.

上网搜索时搜的，觉得很新颖就转过来了，没怎么看懂
修改 <-export  这个函数是不是可以置空？

xshrimp

可以置空,不过个人认为意义不大吧.每次调用函数先定义,再清空,每次都这样重复,没什么意义吧.