| version 1.13, 2004/04/16 07:50:22 |
version 1.14, 2005/01/23 09:55:29 |
|
|
| ; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.12 2004/03/25 01:05:34 ohara Exp $ |
; $OpenXM: OpenXM/src/kxx/init-openxm.scm,v 1.13 2004/04/16 07:50:22 ohara Exp $ |
| |
|
| (define (alist-search alist) |
(define (alist-search alist) |
| (let* ((lang (or (getenv "LANG") "C")) |
(let* ((lang (or (getenv "LANG") "C")) |
|
|
| (define (openxm-serialize lan t) |
(define (openxm-serialize lan t) |
| (import-from (texmacs plugin plugin-cmd)) |
(import-from (texmacs plugin plugin-cmd)) |
| (with u (pre-serialize lan t) |
(with u (pre-serialize lan t) |
| (with s (texmacs->verbatim (object->tree u)) |
(with s (texmacs->verbatim (stree->tree u)) |
| (string-append (string-replace s "\n" "\v") "\n") |
(string-append (string-replace s "\n" "\v") "\n") |
| ))) |
))) |
| |
|
![[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