[uim commit] r5838 - trunk/uim

[codesite-noreply]

Author: iratqq
Date: Mon Feb  9 04:59:45 2009
New Revision: 5838

Modified:
   trunk/uim/uim-posix.c

Log:
* uim/uim-posix.c (c_setsid):
  - New function.
  (uim_init_posix_subrs):
  - Add (setsid).


Modified: trunk/uim/uim-posix.c
==============================================================================
--- trunk/uim/uim-posix.c       (original)
+++ trunk/uim/uim-posix.c       Mon Feb  9 04:59:45 2009
@@ -296,6 +296,12 @@
 }

 static uim_lisp
+c_setsid(void)
+{
+  return MAKE_INT(setsid());
+}
+
+static uim_lisp
 time_t_to_uim_lisp(time_t t)
 {
   char t_str[64];
@@ -755,6 +761,8 @@
   uim_scm_init_proc0("getuid", c_getuid);
   uim_scm_init_proc0("getgid", c_getgid);
   uim_scm_init_proc0("setugid?", setugidp);
+
+  uim_scm_init_proc0("setsid", c_setsid);

   uim_scm_init_proc1("getenv", c_getenv);
   uim_scm_init_proc3("setenv", c_setenv);