多语言版本的 lisp 程序, i18n

vitalgg

繁体的CAD 能正确显示简体版的 lisp 程序吗？
我写了一个 lisp 管理程序。可以自动从网络下载其它的 lisp 程序。
现在加了入多语言功能，可以根据CAD的语言环境，生成相应语言版本的菜单。

但是我只有简体版的CAD.  繁体的CAD 能正确显示简体版的 lisp 程序吗？

1. (defun @:load-locale (pkg-name / fp opt%)
   
2.   "加载包的本地化语言"
   
3.   (if (null (findfile (strcat @:*prefix* "locale\\" pkg-name "-" (strcase (getvar "locale") T) ".lang")))
   
4.       (progn
   
5.   (@:down-file (strcat "locale/" pkg-name "-" (strcase (getvar "locale") T) ".lang"))
   
6.   (sleep 1)
   
7.       ))
   
8.   (if (findfile (strcat @:*prefix* "locale\\" pkg-name "-" (strcase (getvar "locale") T) ".lang"))
   
9.       (progn
   
10.   (setq fp (open (strcat @:*prefix* "locale\\" pkg-name "-" (strcase  (getvar "locale") T) ".lang") "r"))
    
11.   (while (setq opt% (read-line fp))
    
12.     (if (/= opt% "")
    
13.         (setq @:*i18n* (append @:*i18n* (list (read opt%))))))
    
14.   (close fp)))
    
15.   )
    
16. (defun _ (str / ret)
    
17.   "翻译标记"
    
18.   (setq ret (cdr (assoc str @:*i18n*)))
    
19.   (if (= 'list (type-of ret))
    
20.       (setq ret (car ret)))
    
21.   (if (= 'str (type-of ret))
    
22.       (if (> (strlen ret) 0)
    
23.     ret
    
24.     str)
    
25.       str))
    

(defun @:load-locale (pkg-name / fp opt%)<br />   "加载包的本地化语言"<br />   (if (null (findfile (strcat @:*prefix* "locale\\" pkg-name "-" (strcase (getvar "locale") T) ".lang")))<br />       (progn<br />   (@:down-file (strcat "locale/" pkg-name "-" (strcase (getvar "locale") T) ".lang"))<br />   (sleep 1)<br />       ))<br />   (if (findfile (strcat @:*prefix* "locale\\" pkg-name "-" (strcase (getvar "locale") T) ".lang"))<br />       (progn<br />   (setq fp (open (strcat @:*prefix* "locale\\" pkg-name "-" (strcase  (getvar "locale") T) ".lang") "r"))<br />   (while (setq opt% (read-line fp))<br />     (if (/= opt% "")<br />         (setq @:*i18n* (append @:*i18n* (list (read opt%))))))<br />   (close fp)))<br />   )<br /> (defun _ (str / ret)<br />   "翻译标记"<br />   (setq ret (cdr (assoc str @:*i18n*)))<br />   (if (= 'list (type-of ret))<br />       (setq ret (car ret)))<br />   (if (= 'str (type-of ret))<br />       (if (> (strlen ret) 0)<br />     ret<br />     str)<br />       str))<br />

在 locale 目录下有相程序的语言翻译文件。 有兴趣的可以到 atlisp.cn 下载试用。

(print (_"lang text"))
chs.lang
("lang text" . "简体中文")

cht.lang
("lang text" . "繁体中文")

xujinhua

学习了，谢谢楼主。一直在整理代码