Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

quick fix for custom ports on BSD systems using funopen - seeking not yet supported

Browse source
This commit is contained in:
Alex Shinn 2010-01-02 20:27:05 +09:00
parent 1a5a551263
commit e5232a08af
1 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/chibi/io/port.c
View file

@ -39,7 +39,12 @@ static sexp sexp_last_context (sexp ctx, sexp *cstack) {
return res; return res;
} }
static ssize_t sexp_cookie_reader (void *cookie, char *buffer, size_t size) { #if SEXP_BSD
static int sexp_cookie_reader (void *cookie, char *buffer, int size)
#else
static ssize_t sexp_cookie_reader (void *cookie, char *buffer, size_t size)
#endif
{
sexp vec = (sexp)cookie, ctx, res; sexp vec = (sexp)cookie, ctx, res;
if (! sexp_procedurep(sexp_cookie_read(vec))) return -1; if (! sexp_procedurep(sexp_cookie_read(vec))) return -1;
sexp_gc_var2(ctx2, args); sexp_gc_var2(ctx2, args);
@ -59,7 +64,12 @@ static ssize_t sexp_cookie_reader (void *cookie, char *buffer, size_t size) {
} }
} }
static ssize_t sexp_cookie_writer (void *cookie, const char *buffer, size_t size) { #if SEXP_BSD
static int sexp_cookie_writer (void *cookie, const char *buffer, int size)
#else
static ssize_t sexp_cookie_writer (void *cookie, const char *buffer, size_t size)
#endif
{
sexp vec = (sexp)cookie, ctx, res; sexp vec = (sexp)cookie, ctx, res;
if (! sexp_procedurep(sexp_cookie_write(vec))) return -1; if (! sexp_procedurep(sexp_cookie_write(vec))) return -1;
sexp_gc_var2(ctx2, args); sexp_gc_var2(ctx2, args);
@ -75,6 +85,7 @@ static ssize_t sexp_cookie_writer (void *cookie, const char *buffer, size_t size
return (sexp_fixnump(res) ? sexp_unbox_fixnum(res) : -1); return (sexp_fixnump(res) ? sexp_unbox_fixnum(res) : -1);
} }
#if ! SEXP_BSD
static int sexp_cookie_seeker (void *cookie, off64_t *position, int whence) { static int sexp_cookie_seeker (void *cookie, off64_t *position, int whence) {
sexp vec = (sexp)cookie, ctx, res; sexp vec = (sexp)cookie, ctx, res;
if (! sexp_procedurep(sexp_cookie_seek(vec))) return -1; if (! sexp_procedurep(sexp_cookie_seek(vec))) return -1;
@ -90,6 +101,7 @@ static int sexp_cookie_seeker (void *cookie, off64_t *position, int whence) {
sexp_gc_release2(ctx); sexp_gc_release2(ctx);
return sexp_fixnump(res); return sexp_fixnump(res);
} }
#endif
static int sexp_cookie_cleaner (void *cookie) { static int sexp_cookie_cleaner (void *cookie) {
sexp vec = (sexp)cookie, ctx, res; sexp vec = (sexp)cookie, ctx, res;