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

workaround for bug in fmemopen - open /dev/null instead of empty strings

Browse source
This commit is contained in:
Alex Shinn 2010-01-24 21:52:46 +09:00
parent 8946aaca25
commit 8046a3c139
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
sexp.c
View file

@ -889,9 +889,18 @@ sexp sexp_make_input_string_port (sexp ctx, sexp str) {
sexp res; sexp res;
if (! sexp_stringp(str)) if (! sexp_stringp(str))
return sexp_type_exception(ctx, "open-input-string: not a string", str); return sexp_type_exception(ctx, "open-input-string: not a string", str);
in = fmemopen(sexp_string_data(str), sexp_string_length(str), "r"); if (sexp_string_length(str) == 0)
res = sexp_make_input_port(ctx, in, SEXP_FALSE); in = fopen("/dev/null", "r");
sexp_port_cookie(res) = str; /* for gc preservation */ else
in = fmemopen(sexp_string_data(str), sexp_string_length(str), "r");
if (in) {
res = sexp_make_input_port(ctx, in, SEXP_FALSE);
if (sexp_string_length(str) == 0)
sexp_port_name(res) = sexp_c_string(ctx, "/dev/null", -1);
sexp_port_cookie(res) = str; /* for gc preservation */
} else {
res = sexp_user_exception(ctx, SEXP_FALSE, "couldn't open string", str);
}
return res; return res;
} }