C++ (Cpp) cons_newの例

コード例 #1

ファイル: elemlist_orig.c プロジェクト: MIT-EPROM/EPROM

/* module-functions */
static PyObject*
cons(PyObject *self, PyObject *args)    /* the exposed factory-function */
{
    PyObject *car, *cdr;
    if(!PyArg_ParseTuple(args, "OO", &car, &cdr))
        return 0;
    return (PyObject*)cons_new(car, cdr);
}

コード例 #2

ファイル: gc.c プロジェクト: chrizel/moelisp

pobject gc_add(pobject object)
{
    if (object && !is_symbol(object) && !(object->flags & 0x20)) {
        gc_list = cons_new(object, gc_list);
        object->flags |= 0x20;
        ++gc_objects;
    }
    return object;
}

コード例 #3

ファイル: gc.c プロジェクト: neosam/moelisp

pobject gc_add(pobject object)
{
    if (object && (!is_symbol(object)))
        gc_list = cons_new(object, gc_list);
    return object;
}

コード例 #4

ファイル: value.c プロジェクト: jiribenes/scheme

value_t cons_fn(vm_t *vm, value_t a, value_t b) {
    cons_t *result = cons_new(vm);
    result->car = a;
    result->cdr = b;
    return PTR_VAL(result);
}

コード例 #5

ファイル: builtin_core.c プロジェクト: neosam/moelisp

static pobject cons(pobject env, pobject params)
{
    pobject o1 = eval(env, cons_car(params));
    pobject o2 = eval(env, cons_car(cons_cdr(params)));
    return gc_add(cons_new(o1, o2));
}