[uim commit] r5816 - trunk/uim

[codesite-noreply]

Author: iratqq
Date: Wed Feb  4 06:01:30 2009
New Revision: 5816

Modified:
   trunk/uim/socket.c

Log:
* uim/socket.c (c_accept):
  - New function.
  (uim_plugin_instance_init):
  - Add (accept).


Modified: trunk/uim/socket.c
==============================================================================
--- trunk/uim/socket.c  (original)
+++ trunk/uim/socket.c  Wed Feb  4 06:01:30 2009
@@ -286,6 +286,12 @@
 }

 static uim_lisp
+c_accept(uim_lisp s_, uim_lisp name_, uim_lisp namelen_)
+{
+  return MAKE_INT(accept(C_INT(s_), C_PTR(name_), C_INT(namelen_)));
+}
+
+static uim_lisp
 c_make_sockaddr_un(void)
 {
   struct sockaddr_un *sun;
@@ -410,6 +416,7 @@
   uim_scm_init_proc3("connect", c_connect);
   uim_scm_init_proc3("bind", c_bind);
   uim_scm_init_proc2("listen", c_listen);
+  uim_scm_init_proc3("accept", c_accept);

   uim_scm_init_proc1("getpeereid", c_getpeereid);
 }