trunk/npl/head.c

#include "npl.h"

npl_member_t* npl_member(npl_head_t *head, const wchar_t *name)
{
        npl_type_t *type;
        npl_member_t *m;
        size_t i;

        NPL_assert(head);
        NPL_assert(name);

        type = head->type;
        while (type != NULL) {
                m = type->members;
                if (m != NULL) {
                        i = 0;
                        while (m[i].type != NULL) {
                                if (NPL_wcscmp(name, m[i].name) == 0)
                                        return &m[i];
                                i++;
                        }
                }
                type = type->parent;
        }

        return NULL;
}

void* npl_member_addr(npl_head_t *head, npl_member_t *m)
{
        unsigned char *p = (void*)head;

        NPL_assert(head);
        NPL_assert(m);

        p = p + m->offset;
        return p;
}

int npl_set(npl_head_t *head, npl_member_t *m, npl_val_t *val)
{
        NPL_assert(head);
        NPL_assert(m);
        NPL_assert(val);

        if (m->setter == NULL)
                return 0;
        return m->setter(head, val);
}

int npl_get(npl_head_t *head, npl_member_t *m, npl_val_t *val_r)
{
        NPL_assert(head);
        NPL_assert(m);
        NPL_assert(val_r);

        if (m->getter == NULL) {
                npl_val_unset(val_r);
                return 0;
        }
        return m->getter(head, val_r);
}

int npl_call(npl_head_t *head, npl_member_t *m, npl_vm_t *vm)
{
        NPL_assert(head);
        NPL_assert(m);
        NPL_assert(vm);
        NPL_assert(m->method);

        return m->method(head, vm);
}
