Author: iratqq
Date: Mon Feb 2 05:19:01 2009
New Revision: 5803
Modified:
trunk/uim/socket.c
Log:
* uim/socket.c (c_bind, c_listen):
- New function.
(uim_plugin_instance_init):
- New function (bind) and (listen).
Modified: trunk/uim/socket.c
==============================================================================
--- trunk/uim/socket.c (original)
+++ trunk/uim/socket.c Mon Feb 2 05:19:01 2009
@@ -295,6 +295,18 @@
}
static uim_lisp
+c_bind(uim_lisp s_, uim_lisp name_, uim_lisp namelen_)
+{
+ return MAKE_INT(bind(C_INT(s_), C_PTR(name_), C_INT(namelen_)));
+}
+
+static uim_lisp
+c_listen(uim_lisp s_, uim_lisp backlog_)
+{
+ return MAKE_INT(listen(C_INT(s_), C_INT(backlog_)));
+}
+
+static uim_lisp
c_make_sockaddr_un(void)
{
struct sockaddr_un *sun;
@@ -406,6 +418,8 @@
uim_scm_init_proc1("freeaddrinfo", c_freeaddrinfo);
uim_scm_init_proc3("socket", c_socket);
uim_scm_init_proc3("connect", c_connect);
+ uim_scm_init_proc3("bind", c_bind);
+ uim_scm_init_proc2("listen", c_listen);
}
void
