Revision: 6058 Author: iratqq Date: Thu Nov 12 09:49:21 2009 Log: * scm/lolevel.scm (define-string-list->s8-list) (define-string-list->s16-list): - New function.
http://code.google.com/p/uim/source/detail?r=6058 Modified: /trunk/scm/lolevel.scm ======================================= --- /trunk/scm/lolevel.scm Thu Nov 12 05:26:02 2009 +++ /trunk/scm/lolevel.scm Thu Nov 12 09:49:21 2009 @@ -89,3 +89,14 @@ (map integer->char l)) (define (string-buf->u8list l) (map char->integer l)) + +(define-macro (define-string-list->type-list type) + `(define (,(string->symbol (format "string-list->~a-list" type)) l) + (apply + append + (map (lambda (p) + (u8list-pack '(,type) p)) + (append l (list "")))))) + +(define-string-list->type-list s8) +(define-string-list->type-list s16)
