Mercurial > repos > tabletprog
view runtime/progfoot.inc @ 331:61f5b794d939
Breaking change: method call syntax now always uses the syntactic receiver as the actual receiver. This makes its behavior different from function call syntax, but solves some problems with methods being shadowed by local variables and the like.
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 28 Mar 2015 14:21:04 -0700 |
parents | 18598163e3ef |
children |
line wrap: on
line source
array * alloc_array(uint32_t num_els) { array * arr = GC_MALLOC(sizeof(array)); arr->header.meta = &array_meta; arr->header.parent = NULL; arr->storage = arr->size = num_els; if (num_els < 4) { arr->storage = 4; } arr->data = GC_MALLOC(sizeof(object *) * arr->storage); return arr; } object * make_array(uint32_t num_els, ...) { va_list els; int i; array * arr = alloc_array(num_els); va_start(els, num_els); for (i = 0; i < num_els; i++) arr->data[i] = va_arg(els, object *); va_end(els); return &(arr->header); } object * make_list(uint32_t num_els, ...) { va_list els; int i; object * cur = mcall(METHOD_ID_EMPTY, 1, module_list); va_start(els, num_els); for (i = 0; i < num_els; i++) cur = mcall(METHOD_ID_CONS, 2, cur, va_arg(els, object *)); va_end(els); return cur; } object * make_lambda(void * env, closure_func func) { lambda * ret = GC_MALLOC(sizeof(lambda)); ret->header.meta = &lambda_meta; ret->header.parent = NULL; ret->env = env; ret->func = func; return (object *) ret; } int main(int argc, char ** argv) { int i; string * arg; GC_INIT(); array * arr = alloc_array(argc); for (i = 0; i < argc; ++i) { arg = (string *)make_object(&string_meta, NULL, 0); arg->data = argv[i]; arg->bytes = arg->len = strlen(argv[i]); arr->data[i] = &(arg->header); } object * ret = mcall(METHOD_ID_MAIN, 2, mainModule(), &(arr->header)); if (ret->meta == &obj_int32_meta) { obj_int32 * reti32 = (obj_int32 *) ret; return reti32->num; } return 0; }