任意Lisp编辑器实现函数自动完成功能(中文注解方法+制作程序+配置文件+模式切换方法)

Gu_xl · 发表于 2013-11-27 21:28:17

使用下面的函数可以输出所有加载的自定义函数的搜狗词库，包括加载的ARX定义函数！然后按猫老师的方法将词库加到搜狗输入法里！

;;输出所有加载的自定义函数搜狗词库，包括加载的ARX定义函数 By Gu_xl
(defun c:sgck (/ PARSE LST FN F S1 N)
(defun Parse (str del / pos lst)
(if (/= "" str)
(progn
(while (setq pos (vl-string-search del str))
(setq lst (cons (substr str 1 pos) lst)
str (substr str (+ pos 1 (strlen del)))
)
)
(if (= " " Del)
(vl-remove "" (reverse (cons str lst)))
(reverse (cons str lst))
)
)
)
)
(setq lst
(vl-sort
(vl-remove-if
(function
(lambda (name /)
(or
(= (substr name 1 2) "c:")
(< (strlen name) 3)
(not
(or
(eq 'SUBR (type (eval (read name))))
(eq 'USUBR (type (eval (read name))))
(eq 'EXRXSUBR (type (eval (read name))))
)
)
)
)
)
(mapcar
'(lambda (x) (strcase x t))
(atoms-family 1)
)
)
'<
)
)
(setq fn (getfiled "" "myphrases.ini" "ini" 1))
(if fn
(progn
(setq f (open fn "w"))
(foreach s lst
(setq s1 (VL-LIST->STRING (vl-remove-if '(lambda (x) (member x '(42 43 45 58 60 61 62 95))) (VL-STRING->LIST s))))
(if (VL-STRING-SEARCH "-" s)
(progn
(WRITE-LINE
(strcat
(apply 'strcat (mapcar '(lambda (x) (substr x 1 1)) (Parse s "-")))
",3=" s) f)
)
)
(setq n (strlen s1))
(while (> n 0)
(WRITE-LINE (strcat (substr s1 1 n) ",3=" s) f)
(setq n (1- n))
)
)
(close f)
(startapp "notepad.exe" fn)
)
)
(princ)
)

;;输出所有加载的自定义函数搜狗词库，包括加载的ARX定义函数 By Gu_xl 
(defun c:sgck (/ PARSE LST FN F S1 N) 
  (defun Parse (str del / pos lst) 
    (if  (/= "" str) 
      (progn 
  (while (setq pos (vl-string-search del str)) 
    (setq  lst (cons (substr str 1 pos) lst) 
    str (substr str (+ pos 1 (strlen del))) 
    ) 
  ) 
  (if (= " " Del) 
    (vl-remove "" (reverse (cons str lst))) 
    (reverse (cons str lst)) 
  ) 
      ) 
    ) 
  ) 
  (setq  lst 
   (vl-sort 
     (vl-remove-if 
       (function 
         (lambda (name /) 
     (or 
       (= (substr name 1 2) "c:") 
       (< (strlen name) 3) 
       (not 
         (or 
           (eq 'SUBR (type (eval (read name)))) 
           (eq 'USUBR (type (eval (read name)))) 
           (eq 'EXRXSUBR (type (eval (read name)))) 
         ) 
       ) 
     ) 
         ) 
       ) 
       (mapcar 
         '(lambda (x) (strcase x t)) 
         (atoms-family 1) 
       ) 
     ) 
     '< 
   ) 
  ) 
  (setq fn (getfiled "" "myphrases.ini" "ini" 1)) 
  (if fn 
    (progn 
      (setq f (open fn "w"))    
      (foreach s lst 
  (setq s1 (VL-LIST->STRING (vl-remove-if '(lambda (x) (member x '(42 43 45 58 60 61 62 95))) (VL-STRING->LIST s)))) 
  (if (VL-STRING-SEARCH "-" s) 
    (progn 
      (WRITE-LINE 
        (strcat 
      (apply 'strcat (mapcar '(lambda (x) (substr x 1 1)) (Parse s "-"))) 
      ",3=" s) f) 
      ) 
    ) 
   
  (setq n (strlen s1)) 
   
  (while (> n 0) 
    (WRITE-LINE (strcat (substr s1 1 n) ",3=" s) f) 
    (setq n (1- n)) 
    ) 
  ) 
      (close f) 
      (startapp "notepad.exe" fn) 
      ) 
    ) 
  (princ) 
  )

Ciger · 发表于 2013-11-27 21:30:41

这个真心好啊，顶猫老师

ZZXXQQ · 发表于 2013-11-27 22:13:36

可惜我用不上。

xiaobaixiaobu · 发表于 2013-11-27 22:39:32

太好了！顶一个！

还是永不在线吧 · 发表于 2013-11-27 22:42:17

跟随着猫老师走入了LISP的世界，支持猫老师

819534890 · 发表于 2013-11-27 22:42:31

这个不错，我已经转为QQ输入法了，好用

hao3ren · 发表于 2013-11-27 22:49:03

懒人才能使世界进步

linshiyin2 · 发表于 2013-11-27 22:54:29

回复回复看内容，十个字够了没有啊

c961806787 · 发表于 2013-11-27 23:05:40

猫老师威武！！

峰峰兒 · 发表于 2013-11-28 06:17:04

好頂贊...................................

账号		自动登录	找回密码
密码			注册

[【不死猫】] 任意Lisp编辑器实现函数自动完成功能(中文注解方法+制作程序+配置文件+模式切换方法)

评分