/* ex: set ro ft=c:
 * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 *
 * This file is generated automatically from './src/pmc/object.pmc'
 * by tools/build/pmc2c.pl.
 *
 * Any changes made here will be lost!
 *
 */

/* HEADERIZER HFILE: none */
/* HEADERIZER STOP */


#ifndef PARROT_PMC_OBJECT_H_GUARD
#define PARROT_PMC_OBJECT_H_GUARD

PARROT_EXPORT VTABLE* Parrot_Object_update_vtable(ARGMOD(VTABLE*));
PARROT_EXPORT VTABLE* Parrot_Object_ro_update_vtable(ARGMOD(VTABLE*));
PARROT_EXPORT VTABLE* Parrot_Object_get_vtable(PARROT_INTERP);
PARROT_EXPORT VTABLE* Parrot_Object_ro_get_vtable(PARROT_INTERP);
PARROT_EXPORT PMC*    Parrot_Object_get_mro(PARROT_INTERP, ARGIN_NULLOK(PMC* mro));
PARROT_EXPORT Hash*   Parrot_Object_get_isa(PARROT_INTERP, ARGIN_NULLOK(Hash* isa));

/* Object PMC's underlying struct. */
typedef struct Parrot_Object_attributes {
    PMC * _class;
    PMC * attrib_store;
} Parrot_Object_attributes;

/* Macro to access underlying structure of a Object PMC. */
#define PARROT_OBJECT(o) ((Parrot_Object_attributes *) PMC_data(o))


/* Generated macro accessors for '_class' attribute of Object PMC. */
#define GETATTR_Object__class(interp, pmc, dest) \
    do { \
        if (!PObj_is_object_TEST(pmc)) { \
            (dest) = ((Parrot_Object_attributes *)PMC_data(pmc))->_class; \
        } \
        else { \
            (dest) = VTABLE_get_attr_str(interp, \
                              pmc, Parrot_str_new_constant(interp, "_class")); \
        } \
    } while (0)

#define SETATTR_Object__class(interp, pmc, value) \
    do { \
        if (PObj_is_object_TEST(pmc)) { \
            VTABLE_set_attr_str(interp, pmc, \
                              Parrot_str_new_constant(interp, "_class"), value); \
        } \
        else \
            ((Parrot_Object_attributes *)PMC_data(pmc))->_class = (value); \
    } while (0)


/* Generated macro accessors for 'attrib_store' attribute of Object PMC. */
#define GETATTR_Object_attrib_store(interp, pmc, dest) \
    do { \
        if (!PObj_is_object_TEST(pmc)) { \
            (dest) = ((Parrot_Object_attributes *)PMC_data(pmc))->attrib_store; \
        } \
        else { \
            (dest) = VTABLE_get_attr_str(interp, \
                              pmc, Parrot_str_new_constant(interp, "attrib_store")); \
        } \
    } while (0)

#define SETATTR_Object_attrib_store(interp, pmc, value) \
    do { \
        if (PObj_is_object_TEST(pmc)) { \
            VTABLE_set_attr_str(interp, pmc, \
                              Parrot_str_new_constant(interp, "attrib_store"), value); \
        } \
        else \
            ((Parrot_Object_attributes *)PMC_data(pmc))->attrib_store = (value); \
    } while (0)


#endif /* PARROT_PMC_OBJECT_H_GUARD */

/*
 * Local variables:
 *   c-file-style: "parrot"
 * End:
 * vim: expandtab shiftwidth=4:
 */

