| version 1.18, 2006/02/13 12:30:08 |
version 1.19, 2009/02/22 17:30:03 |
|
|
| ; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.17 2006/02/13 10:00:05 ohara Exp $ |
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.18 2006/02/13 12:30:08 ohara Exp $ |
| |
|
| (define (alist-search alist) |
(define (alist-search alist) |
| (let* ((lang (or (getenv "LANG") "C")) |
(let* ((lang (or (getenv "LANG") "C")) |
|
|
| |
|
| (define manual-asir2000 |
(define manual-asir2000 |
| (alist-search |
(alist-search |
| '(("C" . "doc/asir2000/html-eg/man_toc.html") ("ja" . "doc/asir2000/html-jp/man_toc.html")))) |
'(("C" . "doc/asir2000/html-en/man_toc.html") ("ja" . "doc/asir2000/html-ja/man_toc.html")))) |
| |
|
| (define manual-asir-contrib |
(define manual-asir-contrib |
| (alist-search |
(alist-search |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to init-openxm.scm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kxx