57 lines
790 B
C
57 lines
790 B
C
|
#include "factor.h"
|
||
|
|
|
||
|
|
CELL cons(CELL car, CELL cdr)
|
||
|
|
{
|
||
|
|
CONS* cons = (CONS*)allot(sizeof(CONS));
|
||
|
|
cons->car = car;
|
||
|
|
cons->cdr = cdr;
|
||
|
|
return cons;
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_consp(void)
|
||
|
|
{
|
||
|
|
switch(TAG(env.dt))
|
||
|
|
{
|
||
|
|
case EMPTY_TYPE:
|
||
|
|
check_non_empty(env.dt);
|
||
|
|
break;
|
||
|
|
case CONS_TYPE:
|
||
|
|
env.dt = T;
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
env.dt = F;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_cons(void)
|
||
|
|
{
|
||
|
|
check_non_empty(env.dt);
|
||
|
|
check_non_empty(dpeek());
|
||
|
|
env.dt = tag_cons(cons(dpop(),env.dt));
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_car(void)
|
||
|
|
{
|
||
|
|
env.dt = car(env.dt);
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_cdr(void)
|
||
|
|
{
|
||
|
|
env.dt = cdr(env.dt);
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_rplaca(void)
|
||
|
|
{
|
||
|
|
check_non_empty(dpeek());
|
||
|
|
untag_cons(env.dt)->car = dpop();
|
||
|
|
env.dt = dpop();
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_rplacd(void)
|
||
|
|
{
|
||
|
|
check_non_empty(dpeek());
|
||
|
|
untag_cons(env.dt)->cdr = dpop();
|
||
|
|
env.dt = dpop();
|
||
|
|
}
|