[plt-scheme] cygwin scheme extension open hang
I'm trying to write a C scheme extension which makes calls to the
cygwin api. About a year ago this worked, then something changed (cygwin
or mzscheme linking) and it wouldn't link or the result core dumped.
Today, using mzscheme 207 and cygwin 1.5.10, calls to functions such as sqrt
work, but calls to open hang. From the Task Manager it appears that
mzscheme's cpu time is increasing, suggesting that mzscheme goes into a
loop when cygwin open is called.
Any idea?
Thanks,
Ron Stanonik
stanonik at cogsci.ucsd.edu
========= demonstration =============
make the extension below, start mzscheme, then
(load-extension "arf.dll")
(arf)
never returns
======== arf.c ===========
#include "escheme.h"
static Scheme_Object *
sch_arf(int argc, Scheme_Object **argv)
{
open("in", 0);
return scheme_make_string("hi");
}
Scheme_Object *scheme_reload(Scheme_Env *env)
{
scheme_add_global("arf",
scheme_make_prim_w_arity(sch_arf, "arf", 0, 0), env);
return scheme_make_string("Hello Arf!");
}
Scheme_Object *scheme_initialize(Scheme_Env *env)
{
return scheme_reload(env);
}
Scheme_Object *scheme_module_name()
{
/* This extension doesn't define a module: */
return scheme_false;
}
========= makefile ==============
PLT=/home/plt
MZC=${PLT}/mzc.exe
arf.dll: arf.obj
${MZC} ++ldf -g ++ldl -lc --ld arf.dll arf.obj
arf.obj: arf.c
${MZC} ++ccf -g --cc arf.c
clean:
-rm -f *.obj *.dll
========= in =============
hello