Revision: 5994 Author: iratqq Date: Sun Aug 30 00:25:19 2009 Log: * uim/uim-posix.c (c_error_string): - New function. (uim_init_posix_subrs): - Add (posix-error-string).
http://code.google.com/p/uim/source/detail?r=5994 Modified: /trunk/uim/uim-posix.c ======================================= --- /trunk/uim/uim-posix.c Fri Feb 13 00:49:02 2009 +++ /trunk/uim/uim-posix.c Sun Aug 30 00:25:19 2009 @@ -378,6 +378,12 @@ { return MAKE_INT(sleep((unsigned int)C_INT(seconds_))); } + +static uim_lisp +c_error_string() +{ + return MAKE_STR(strerror(errno)); +} void uim_init_posix_subrs(void) @@ -413,4 +419,6 @@ uim_scm_init_proc2("difftime", c_difftime); uim_scm_init_proc1("sleep", c_sleep); -} + + uim_scm_init_proc0("posix-error-string", c_error_string); +}
