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

WIP

Browse source
This commit is contained in:
Justin Ethier 2015-07-01 01:48:00 -04:00
parent cf0b0b1560
commit 6489cb3c7f
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
runtime.c
View file

@ -894,13 +894,22 @@ string_type Cyc_substring(object str, object start, object end) {
} }
object Cyc_command_line_arguments(object cont) { object Cyc_command_line_arguments(object cont) {
int i;
object lis = nil;
for (i = argc; i > 0; i--) {
object ps = alloca(sizeof(string_type));
object pl = alloca(sizeof(cons_type));
make_string(s, _cyc_argv[i - 1]);
memcpy(ps, s, sizeof(string_type));
// TODO: store argc/argv somewhere (probably globals, unfortunately) and then TODO: unfortunately this won't work because vars will get clobbered. need to use alloca
// use them here to pack up a list of strings to get fresh memory each iteration for s and l.
attempting to above, but code is incomplete
// make_cons(l, &s, lis);
// lis = &l;
}
make_string(s, "TODO"); return_funcall1(cont, lis);
make_cons(l, &s, nil);
return_funcall1(cont, &l);
} }
integer_type Cyc_system(object cmd) { integer_type Cyc_system(object cmd) {