[uim commit] r5276 - trunk/uim

[codesite-noreply]

Author: iratqq
Date: Thu Mar  6 05:02:42 2008
New Revision: 5276

Modified:
  trunk/uim/uim-posix.c

Log:
* uim/uim-posix.c
 (c_sleep):
 - New function. Call POSIX sleep() from scheme.
 (uim_init_posix_subrs):
 - Add scheme function (sleep).


Modified: trunk/uim/uim-posix.c
==============================================================================
--- trunk/uim/uim-posix.c       (original)
+++ trunk/uim/uim-posix.c       Thu Mar  6 05:02:42 2008
@@ -268,6 +268,12 @@
  return MAKE_BOOL(uim_issetugid());
}

+static uim_lisp
+c_sleep(uim_lisp seconds_)
+{
+  return MAKE_INT(sleep((unsigned int)C_INT(seconds_)));
+}
+
void
uim_init_posix_subrs(void)
{
@@ -286,4 +292,5 @@
  uim_scm_init_proc1("getenv", c_getenv);
  uim_scm_init_proc3("setenv", c_setenv);
  uim_scm_init_proc1("unsetenv", c_unsetenv);
+  uim_scm_init_proc1("sleep", c_sleep);
}