Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

TODO

Browse source
This commit is contained in:
Justin Ethier 2016-08-24 18:54:06 -04:00
parent a50ef101b5
commit b05c51d344
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
runtime.c
View file

@ -2537,6 +2537,35 @@ object Cyc_io_peek_char(void *data, object cont, object port)
return Cyc_EOF;
}
// Hacky approach to a minimal string buffer implementation. This may change in the future
// For background see: http://stackoverflow.com/questions/539537/memory-buffer-as-file
port_type Cyc_io_open_output_string(void *data)
// TODO: no, this is too hacky. fuck it, just use fmemopen or open_memstream
// for non-supported platforms we'll raise an error and not do anything
{
FILE *f = fopen("/dev/null", "w");
int i;
int written = 0;
char *buf = malloc(100000);
make_port(p, NULL, 0); // TODO: probably wrong params, need to add buf to port obj and type
//setbuffer(f, buf, 100000);
if (0 != setvbuf (f, buf, _IOFBF, 100000)){
// TODO: raise() instead?
fprintf(stderr, "Unable to setvbuf!\n");
exit(1);
}
for (i = 0; i < 1000; i++) {
written += fprintf(f, "Number %d\n", i);
}
for (i = 0; i < written; i++) {
printf("%c", buf[i]);
}
return p;
}
// END string buffers
// Functions internal to the runtime that use malloc
list malloc_make_pair(object a, object d)
{