Revision: 6321 Author: ek.kato Date: Sun Apr 11 20:22:19 2010 Log: * scm/sj3v2-socket.scm (sj3-lib-connect) : Use singed int for the return value. * uim/lolevel.c - (c_u32_to_s32) : New. - (uim_plugin_instance_init) : Add u32->s32.
http://code.google.com/p/uim/source/detail?r=6321 Modified: /trunk/scm/sj3v2-socket.scm /trunk/uim/lolevel.c ======================================= --- /trunk/scm/sj3v2-socket.scm Sun Apr 11 18:53:45 2010 +++ /trunk/scm/sj3v2-socket.scm Sun Apr 11 20:22:19 2010 @@ -137,8 +137,7 @@ (call-with-u8list-unpack '(u32) (string-buf->u8list (file-read socket 4)) (lambda (result) - (= -2 result)))) - ;(= 4294967294 result) ; FIXME + (= -2 (u32->s32 result))))) (define (sj3-lib-disconnect socket) (file-write socket ======================================= --- /trunk/uim/lolevel.c Sun Apr 4 20:35:54 2010 +++ /trunk/uim/lolevel.c Sun Apr 11 20:22:19 2010 @@ -394,6 +394,14 @@ str[len] = '\0'; return MAKE_STR_DIRECTLY(str); } + +static uim_lisp +c_u32_to_s32(uim_lisp u32_) +{ + u_int32_t u32 = C_INT(u32_); + + return MAKE_INT((int32_t)u32); +} void uim_plugin_instance_init(void) @@ -471,6 +479,8 @@ uim_scm_init_proc1("u8list->u16", c_u8list_to_u16); uim_scm_init_proc1("u8list->u32", c_u8list_to_u32); uim_scm_init_proc1("u8list->string", c_u8list_to_string); + + uim_scm_init_proc1("u32->s32", c_u32_to_s32); } void -- To unsubscribe, reply using "remove me" as the subject.
