summaryrefslogtreecommitdiff
path: root/otherlibs/unix/accept.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/unix/accept.c')
-rw-r--r--otherlibs/unix/accept.c34
1 files changed, 0 insertions, 34 deletions
diff --git a/otherlibs/unix/accept.c b/otherlibs/unix/accept.c
deleted file mode 100644
index 0018663192..0000000000
--- a/otherlibs/unix/accept.c
+++ /dev/null
@@ -1,34 +0,0 @@
-#include <mlvalues.h>
-#include <alloc.h>
-#include <memory.h>
-#include "unix.h"
-
-#ifdef HAS_SOCKETS
-
-#include "socketaddr.h"
-
-value unix_accept(sock) /* ML */
- value sock;
-{
- int retcode;
- value res;
- Push_roots(a,1);
-
- sock_addr_len = sizeof(sock_addr);
- enter_blocking_section();
- retcode = accept(Int_val(sock), &sock_addr.s_gen, &sock_addr_len);
- leave_blocking_section();
- if (retcode == -1) uerror("accept", Nothing);
- a[0] = alloc_sockaddr();
- res = alloc_tuple(2);
- Field(res, 0) = Val_int(retcode);
- Field(res, 1) = a[0];
- Pop_roots();
- return res;
-}
-
-#else
-
-value unix_accept() { invalid_argument("accept not implemented"); }
-
-#endif