shithub: femtolisp

ref: e1d94403fed4edc6607a1eebf7fda984d2c79cac
dir: /opaque_type_template.c/

#include "llt.h"
#include "flisp.h"

// global replace TYPE with your type name to make your very own type!

static value_t TYPEsym;
static fltype_t *TYPEtype;

void print_TYPE(value_t v, ios_t *f, int princ)
{
}

void print_traverse_TYPE(value_t self)
{
}

void free_TYPE(value_t self)
{
}

void relocate_TYPE(value_t oldv, value_t newv)
{
}

cvtable_t TYPE_vtable = { print_TYPE, relocate_TYPE, free_TYPE,
                          print_traverse_TYPE };

int isTYPE(value_t v)
{
    return iscvalue(v) && cv_class((cvalue_t*)ptr(v)) == TYPEtype;
}

value_t fl_TYPEp(value_t *args, uint32_t nargs)
{
    argcount("TYPE?", nargs, 1);
    return isTYPE(args[0]) ? FL_T : FL_F;
}

static TYPE_t *toTYPE(value_t v, char *fname)
{
    if (!isTYPE(v))
        type_error(fname, "TYPE", v);
    return (TYPE_t*)cv_data((cvalue_t*)ptr(v));
}

static builtinspec_t TYPEfunc_info[] = {
    { "TYPE?", fl_TYPEp },
    { nil, nil }
};

void TYPE_init()
{
    TYPEsym = symbol("TYPE");
    TYPEtype = define_opaque_type(TYPEsym, sizeof(TYPE_t),
                                  &TYPE_vtable, nil);
    assign_global_builtins(TYPEfunc_info);
}