Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

37 lines (26 sloc) 0.466 kb
/* lowlevel hackery - accessed via "bind" */
static ___symbol
extract_callback_name(void *buf)
{
return *((char **)buf);
}
static void
send_termination_message(int fd)
{
void *n = NULL;
write(fd, &n, sizeof(void *));
}
static void *
extract_argument_ptr(___scheme_value str)
{
return *((void **)C_data_pointer(str));
}
static void
dump_data(void **ptr)
{
int i;
for(i = 0; i < 4; ++i) {
printf("%p: %p\n", ptr, *ptr);
ptr += 2;
}
}
Jump to Line
Something went wrong with that request. Please try again.