Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-17 01:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Will need to quote objects before evaling them

Browse source
This commit is contained in:
Justin Ethier 2016-02-03 22:54:41 -05:00
parent 74c7276289
commit 88784bb5ff
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
runtime.c
View file

@ -104,6 +104,7 @@ const object Cyc_EOF = &__EOF;
static ck_hs_t symbol_table; static ck_hs_t symbol_table;
static int symbol_table_size = 65536; static int symbol_table_size = 65536;
static pthread_mutex_t symbol_table_lock; static pthread_mutex_t symbol_table_lock;
object quote_quote = nil;
// Functions to support concurrency kit hashset // Functions to support concurrency kit hashset
// These are specifically for a table of symbols // These are specifically for a table of symbols
@ -174,6 +175,8 @@ void gc_init_heap(long heap_size)
fprintf(stderr, "Unable to initialize symbol_table_lock mutex\n"); fprintf(stderr, "Unable to initialize symbol_table_lock mutex\n");
exit(1); exit(1);
} }
// Do one-time initialization here
quote_quote = find_or_add_symbol("quote");
} }
gc_heap *gc_get_heap() gc_heap *gc_get_heap()
@ -2034,6 +2037,16 @@ void _call_95cc(void *data, object cont, object args){
return_closcall2(data, __glo_call_95cc, cont, car(args)); return_closcall2(data, __glo_call_95cc, cont, car(args));
} }
// Function to test out quoting certain const objs before passing them to eval
void quote_args(object args)
{
// list l = args;
// list lr = nil;
// while (!nullp(l)) {
// l = cdr(l);
// }
}
/* /*
* @param cont - Continuation for the function to call into * @param cont - Continuation for the function to call into
* @param func - Function to execute * @param func - Function to execute
@ -2087,6 +2100,8 @@ object apply(void *data, object cont, object func, object args){
// but need a way of looking them up ahead of time. // but need a way of looking them up ahead of time.
// maybe a libinit() or such is required. // maybe a libinit() or such is required.
} else if (strncmp(((symbol)fobj)->pname, "primitive", 10) == 0) { } else if (strncmp(((symbol)fobj)->pname, "primitive", 10) == 0) {
//TODO: need to quote certain object types (symbols and null at a minimum) in the args list
// before passing everything to eval.
make_cons(c, cadr(func), args); make_cons(c, cadr(func), args);
((closure)__glo_eval)->fn(data, 3, __glo_eval, cont, &c, nil); ((closure)__glo_eval)->fn(data, 3, __glo_eval, cont, &c, nil);
} else if (strncmp(((symbol)fobj)->pname, "procedure", 10) == 0) { } else if (strncmp(((symbol)fobj)->pname, "procedure", 10) == 0) {