Revision: 6060
Author: iratqq
Date: Sun Nov 15 16:24:29 2009
Log: * scm/lolevel.scm (u8list-pack):
- Add format 'u16list.
(define-string-list->type-list):
- Delete.
http://code.google.com/p/uim/source/detail?r=6060
Modified:
/trunk/scm/lolevel.scm
=======================================
--- /trunk/scm/lolevel.scm Sun Nov 15 02:00:52 2009
+++ /trunk/scm/lolevel.scm Sun Nov 15 16:24:29 2009
@@ -47,6 +47,8 @@
(append (string->u8list (cadr f)) '(0))) ;; XXX
((eq? (car f) 'u8list)
(cadr f))
+ ((eq? (car f) 'u16list)
+ (apply append (map (lambda (x) (u16->u8list x))
(cadr f))))
(else
(uim-notify-fatal (N_ "unknown byte operator")))))
(zip fmt args))))
@@ -89,14 +91,3 @@
(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)
