object.c

#include "object.h"
#include "object.r"
#include "typecheck.h"

void *new_o(void *const _self, ...)
{
    struct object_vt_s *const self = _self; 
    if(!self) 
        return 0;
    if(!self->safecheck || self->safecheck != passed) 
        exit_error("new_o", ENOTANOBJ); 
    void *o_ptr = calloc(1, self->size);
    if(o_ptr == 0 && errno == ENOMEM) 
        exit_error("new_o", ERR_NO);
    *(struct object_vt_s**)o_ptr = self; 
    ((struct object_class_s *)o_ptr)->safecheck = passed;
    if(!self->ctor) 
        return o_ptr;
    va_list ap;
    va_start(ap, _self);
    self->ctor(o_ptr, &ap);
    va_end(ap); 
    return o_ptr;
}

void *delete_o(void ** _self)
{
    if(!_self) { return 0; }
    struct object_class_s * self = *_self;
    if(CHECK_IF_OBJ(self))
        exit_error("delete_o", ENOTANOBJ); 
    if(self->vt->dtor)
        self->vt->dtor(_self);
    free(self);
    *_self = 0;
    return _self;
}

void print_o(const void *const _self)
{
    const struct object_class_s *const self = _self;
    if(CHECK_IF_OBJ(self) || !self->vt->print) 
        exit_error("print_o", EWRONGOBJ);
    self->vt->print(_self);
}

void *copy_o(const void *const _self)
{
    const struct object_class_s *const self = _self;
    if(CHECK_IF_OBJ(self) || !self->vt->copy)
        exit_error("copy_o", EWRONGOBJ);
    return self->vt->copy(_self);
}

int compare_o(const void *const _self, const void *const _other)
{
    const struct object_class_s *const self = _self;
    const struct object_class_s *const other = _other;
    if (CHECK_IF_OBJ(self)  || !self->vt->compare ||
        CHECK_IF_OBJ(other) || !other->vt->compare) {
        exit_error("compare_o", EWRONGOBJ);
    }
    if (self->vt != other->vt) {
        exit_error("compare_o", EDIFFOBJ);
    }
    return self->vt->compare(_self, _other);
}

void *add_o(const void *const _self, const void *const _other)
{
    const struct object_class_s *const self = _self;
    const struct object_class_s *const other = _other;
    if (CHECK_IF_OBJ(self)  || !self->vt->add ||
        CHECK_IF_OBJ(other) || !other->vt->add) {
        exit_error("add_o", EWRONGOBJ);
    }
    if (self->vt != other->vt) {
        exit_error("add_o", EDIFFOBJ);
    }
    return self->vt->add(_self, _other);
}

void *sub_o(const void *const _self, const void *const _other)
{
    const struct object_class_s *const self = _self;
    const struct object_class_s *const other = _other;
    if (CHECK_IF_OBJ(self)  || !self->vt->sub ||
        CHECK_IF_OBJ(other) || !other->vt->sub) {
        exit_error("sub_o", EWRONGOBJ);
    }
    if (self->vt != other->vt) {
        exit_error("sub_o", EDIFFOBJ);
    }
    return self->vt->sub(_self, _other);
} 

void *mult_o(const void *const _self, const void *const _other)
{
    const struct object_class_s *const self = _self;
    const struct object_class_s *const other = _other;
    if (CHECK_IF_OBJ(self)  || !self->vt->mult ||
        CHECK_IF_OBJ(other) || !other->vt->mult) {
        exit_error("mult_o", EWRONGOBJ);
    }
    if (self->vt != other->vt) {
        exit_error("mult_o", EDIFFOBJ);
    }
    return self->vt->mult(_self, _other);
}

void *div_o(const void *const _self, const void *const _other) 
{
    const struct object_class_s *const self = _self;
    const struct object_class_s *const other = _other;
    if (CHECK_IF_OBJ(self)  || !self->vt->div ||
        CHECK_IF_OBJ(other) || !other->vt->div) {
        exit_error("div_o", EWRONGOBJ);
    }
    if (self->vt != other->vt) {
        exit_error("div_o", EDIFFOBJ);
    }
    return self->vt->div(_self, _other);
}

size_t get_size_o(const void *const _self)
{
    const struct object_class_s *const self = _self;
    if (CHECK_IF_OBJ(self) || !self->vt->size)
        exit_error("get_size_o", EWRONGOBJ);
    return self->vt->size; 
}



void *object_ctor(void *const _self, va_list *app)
{
    return _self;
}

void *object_dtor(void *_self)
{
    return 0;
}

void object_print(const void *const _self)
{
    fputs("\n", stdout);
}

void *object_copy(const void *const _self)
{
    return new_o(object);
}

int  object_compare(const void *const _self, const void *const _other)
{
    return 0;
}

void *object_add(const void *const _self, const void *const _other)
{ return new_o(object); }
void *object_sub(const void *const _self, const void *const _other)
{ return new_o(object); }
void *object_mult(const void *const _self, const void *const _other)
{ return new_o(object); }
void *object_div(const void *const _self, const void *const _other)
{ return new_o(object); }


struct object_vt_s object_vt = {
    OBJECT_VT_INIT
};

void *const object = &object_vt;