mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
41 lines
1.3 KiB
C
41 lines
1.3 KiB
C
|
|
/* chibi-ffi should probably be able to detect these patterns automatically, */
|
|
/* but for now we manually check two special cases - accept should check for */
|
|
/* EWOULDBLOCK and block on the socket, and listen should automatically make */
|
|
/* sockets non-blocking. */
|
|
|
|
sexp sexp_accept (sexp ctx, sexp self, int sock, struct sockaddr* addr, socklen_t len) {
|
|
#if SEXP_USE_GREEN_THREADS
|
|
sexp f;
|
|
#endif
|
|
int res;
|
|
res = accept(sock, addr, &len);
|
|
#if SEXP_USE_GREEN_THREADS
|
|
if (res < 0 && errno == EWOULDBLOCK) {
|
|
f = sexp_global(ctx, SEXP_G_THREADS_BLOCKER);
|
|
if (sexp_opcodep(f)) {
|
|
((sexp_proc2)sexp_opcode_func(f))(ctx, f, 1, sexp_make_fixnum(sock));
|
|
return sexp_global(ctx, SEXP_G_IO_BLOCK_ERROR);
|
|
}
|
|
}
|
|
#endif
|
|
return sexp_make_integer(ctx, res);
|
|
}
|
|
|
|
/* If we're listening on a socket from Scheme, we most likely want it */
|
|
/* to be non-blocking. */
|
|
|
|
sexp sexp_listen (sexp ctx, sexp self, sexp arg0, sexp arg1) {
|
|
int fd, res;
|
|
if (! sexp_exact_integerp(arg0))
|
|
return sexp_type_exception(ctx, self, SEXP_FIXNUM, arg0);
|
|
if (! sexp_exact_integerp(arg1))
|
|
return sexp_type_exception(ctx, self, SEXP_FIXNUM, arg1);
|
|
fd = sexp_sint_value(arg0);
|
|
res = listen(fd, sexp_sint_value(arg1));
|
|
#if SEXP_USE_GREEN_THREADS
|
|
if (res >= 0)
|
|
fcntl(fd, F_SETFL, fcntl(fd, F_GETFL) | O_NONBLOCK);
|
|
#endif
|
|
return (res == 0) ? SEXP_TRUE : SEXP_FALSE;
|
|
}
|