[编程交流] 用别名分隔文件

(defun c:MYlisp_1 ... )
(defun c:MYlisp_2 ... )
(defun c:MYlisp_3 ... )

aa MYlisp_1
ae MYlisp_2
qw MYlisp_3

(defun C:qw (if (not mylisp3 (load "MYLISP3")))(C:mylisp3)); expects that your calling a defun from within mylisp.

!list_of_aliases 
(("aa" "MYlisp_1") ("ae" "MYlisp_2") ("qw" "MYlisp_3"))

(setq lst
(mapcar
        '(lambda (%)
                (strcat "(defun C:" (nth 0 %) "() (C:"  (nth 1 %) "))") 
        
        )
        list_of_aliases 
)
)
(setq file (vl-filename-mktemp "aliases.lsp"))
(WriteFile file lst)
;WriteFile is my lisp that write list to file
(load file)

(defun LOADalias ( / data r res lst file)
(setq data (cd:SYS_ReadFile nil "J:\\alias.txt"));alias file with path
(mapcar
        '(lambda (x1)
                (if        
                        (or
                                (= ";" (substr x1 1 1))
                                (= "" (substr x1 1 1))
                                (= "[" (substr x1 1 1))
                        )
                        nil
                        (setq r (cons x1 r))
                )
        )
        data
)
(foreach line r
        (setq res (cons (cd:STR_Parse line " " T) res))
)
(setq lst
        (mapcar
                '(lambda (%)
                        (strcat "(defun C:" (nth 0 %) "() (C:"  (nth 1 %) "))") 
                        
                )
                res 
        )
)
(setq file (vl-filename-mktemp "aliases.lsp"))
(cd:SYS_WriteFile file lst nil)
(load file)
(princ)
)

;only spacebar allowed
[v1.00]
user_alias1      my_lisp1
user_alias2      my_lisp2
user_alias3      my_lisp3
[v1.01]
user_alias4      my_lisp4
user_alias5      my_lisp5
user_alias6      my_lisp6