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

Refactoring

Browse source
This commit is contained in:
Justin Ethier 2016-04-09 01:01:03 -04:00
parent a64ea52e18
commit e773acfafc
1 changed files with 51 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

85
runtime.c
View file

@ -739,39 +739,50 @@ object memqp(void *data, object x, list l)
for (; !nullp(l); l = cdr(l)) if (eq(x,car(l))) return boolean_t;
return boolean_f;}
object get(x,i) object x,i;
{register object plist; register object plistd;
if (nullp(x)) return x;
if (type_of(x)!=symbol_tag) {printf("get: bad x=%ld\n",((closure)x)->tag); exit(0);}
plist = symbol_plist(x);
for (; !nullp(plist); plist = cdr(plistd))
{plistd = cdr(plist);
if (eq(car(plist),i)) return car(plistd);}
return nil;}
object get(object x, object i)
{
object plist, plistd;
if (nullp(x)) return x;
if (type_of(x)!=symbol_tag) {printf("get: bad x=%ld\n",((closure)x)->tag); exit(0);}
plist = symbol_plist(x);
for (; !nullp(plist); plist = cdr(plistd))
{plistd = cdr(plist);
if (eq(car(plist),i)) return car(plistd);}
return nil;
}
object equalp(x,y) object x,y;
{for (; ; x = cdr(x), y = cdr(y))
{if (equal(x,y)) return boolean_t;
object equalp(object x, object y)
{
for (; ; x = cdr(x), y = cdr(y)) {
if (equal(x,y)) return boolean_t;
if (is_value_type(x) || is_value_type(y) ||
nullp(x) || nullp(y) ||
type_of(x)!=cons_tag || type_of(y)!=cons_tag) return boolean_f;
if (boolean_f == equalp(car(x),car(y))) return boolean_f;}}
if (boolean_f == equalp(car(x),car(y))) return boolean_f;
}
}
list assq(void *data, object x, list l)
{if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
for (; !nullp(l); l = cdr(l))
{register list la = car(l);
Cyc_check_cons(data, la);
if (eq(x,car(la))) return la;}
return boolean_f;}
{
if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
for (; !nullp(l); l = cdr(l)) {
list la = car(l);
Cyc_check_cons(data, la);
if (eq(x,car(la))) return la;
}
return boolean_f;
}
list assoc(void *data, object x, list l)
{if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
for (; !nullp(l); l = cdr(l))
{register list la = car(l);
Cyc_check_cons(data, la);
if (boolean_f != equalp(x,car(la))) return la;}
return boolean_f;}
{
if (nullp(l) || is_value_type(l) || type_of(l) != cons_tag) return boolean_f;
for (; !nullp(l); l = cdr(l)){
list la = car(l);
Cyc_check_cons(data, la);
if (boolean_f != equalp(x,car(la))) return la;
}
return boolean_f;
}
object Cyc_num_cmp_va_list(void *data, int argc, int (fn_op(void *, object, object)), object n, va_list ns) {
int i;
@ -2043,21 +2054,27 @@ object Cyc_io_peek_char(void *data, object cont, object port) {
return Cyc_EOF;
}
/* This heap cons is used only for initialization. */
list mcons(a,d) object a,d;
{register cons_type *c = malloc(sizeof(cons_type));
c->hdr.mark = gc_color_red;
c->hdr.grayed = 0;
c->tag = cons_tag; c->cons_car = a; c->cons_cdr = d;
return c;}
// Functions internal to the runtime that use malloc
list mcons(object a, object d)
{
cons_type *c = malloc(sizeof(cons_type));
c->hdr.mark = gc_color_red;
c->hdr.grayed = 0;
c->tag = cons_tag;
c->cons_car = a;
c->cons_cdr = d;
return c;
}
cvar_type *mcvar(object *var) {
cvar_type *mcvar(object *var)
{
cvar_type *c = malloc(sizeof(cvar_type));
c->hdr.mark = gc_color_red;
c->hdr.grayed = 0;
c->tag = cvar_tag;
c->pvar = var;
return c;}
return c;
}
void _Cyc_91global_91vars(void *data, object cont, object args){
return_closcall1(data, cont, Cyc_global_variables); }