[gitmo/Class-MOP.git] / mop.h

#ifndef __MOP_H__
#define __MOP_H__

#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#define MOP_CALL_BOOT(name)  mop_call_xs(aTHX_ name, cv, mark);

#ifndef XSPROTO
#define XSPROTO(name) XS(name)
#endif

void mop_call_xs (pTHX_ XSPROTO(subaddr), CV *cv, SV **mark);


#define MAKE_KEYSV(name) newSVpvn_share(#name, sizeof(#name)-1, 0U)

XS(mop_xs_simple_accessor);
XS(mop_xs_simple_reader);
XS(mop_xs_simple_writer);
XS(mop_xs_simple_predicate);
XS(mop_xs_simple_predicate_for_metaclass);
XS(mop_xs_simple_clearer);

extern SV *mop_method_metaclass;
extern SV *mop_associated_metaclass;
extern SV *mop_associated_attribute;
extern SV *mop_wrap;
extern SV *mop_methods;
extern SV *mop_name;
extern SV *mop_body;
extern SV *mop_package;
extern SV *mop_package_name;
extern SV *mop_package_cache_flag;
extern SV *mop_VERSION;
extern SV *mop_ISA;

UV mop_check_package_cache_flag(pTHX_ HV *stash);
int mop_get_code_info (SV *coderef, char **pkg, char **name);
SV *mop_call0(pTHX_ SV *const self, SV *const method);
SV *mop_call1(pTHX_ SV *const self, SV *const method, SV *const arg1);

#define mop_call0_pvs(o, m)    mop_call0(aTHX_ o, newSVpvs_flags(m, SVs_TEMP))
#define mop_call1_pvs(o, m, a) mop_call1(aTHX_ o, newSVpvs_flags(m, SVs_TEMP), a)

bool mop_is_class_loaded(pTHX_ SV*);
#define is_class_loaded(klass) mop_is_class_loaded(aTHX_ klass)

bool mop_is_instance_of(pTHX_ SV*, SV*);
#define is_instance_of(sv, klass)     mop_is_instance_of(aTHX_ sv, klass)
#define is_instance_of_pvs(sv, klass) mop_is_instance_of(aTHX_ sv, newSVpvs_flags(klass, SVs_TEMP))

typedef enum {
    TYPE_FILTER_NONE,
    TYPE_FILTER_CODE,
    TYPE_FILTER_ARRAY,
    TYPE_FILTER_IO,
    TYPE_FILTER_HASH,
    TYPE_FILTER_SCALAR,
} type_filter_t;

typedef bool (*get_package_symbols_cb_t) (const char *, STRLEN, SV *, void *);

void mop_get_package_symbols(HV *stash, type_filter_t filter, get_package_symbols_cb_t cb, void *ud);
HV  *mop_get_all_package_symbols (HV *stash, type_filter_t filter);


/* Class::MOP Magic stuff */

/* MG: MOP Magic object */

/* All the MOP_mg_* macros require MAGIC* mg for the first argument */

typedef struct {
    SV*  (*create_instance)(pTHX_ SV* const mi);
    bool (*has_slot)       (pTHX_ SV* const mi, SV* const instance);
    SV*  (*get_slot)       (pTHX_ SV* const mi, SV* const instance);
    SV*  (*set_slot)       (pTHX_ SV* const mi, SV* const instance, SV* const value);
    SV*  (*delete_slot)    (pTHX_ SV* const mi, SV* const instance);
    void (*weaken_slot)    (pTHX_ SV* const mi, SV* const instance);
} mop_instance_vtbl;

const mop_instance_vtbl* mop_get_default_instance_vtbl(pTHX);

#define MOP_mg_obj(mg)   ((mg)->mg_obj)
#define MOP_mg_ptr(mg)   ((mg)->mg_ptr)
#define MOP_mg_vtbl(mg)  ((const mop_instance_vtbl*)MOP_mg_ptr(mg))
#define MOP_mg_flags(mg) ((mg)->mg_private)

#define MOP_mg_obj_refcounted_on(mg)    (void)((mg)->mg_flags |= MGf_REFCOUNTED);

#define MOP_mg_slot(mg)   MOP_mg_obj(mg)

#define MOP_mg_create_instance(mg, stash) MOP_mg_vtbl(mg)->create_instance (aTHX_ (stash))
#define MOP_mg_has_slot(mg, o)            MOP_mg_vtbl(mg)->has_slot        (aTHX_ (o), MOP_mg_slot(mg))
#define MOP_mg_get_slot(mg, o)            MOP_mg_vtbl(mg)->get_slot        (aTHX_ (o), MOP_mg_slot(mg))
#define MOP_mg_set_slot(mg, o, v)         MOP_mg_vtbl(mg)->set_slot        (aTHX_ (o), MOP_mg_slot(mg), (v))
#define MOP_mg_delete_slot(mg, o)         MOP_mg_vtbl(mg)->delete_slot     (aTHX_ (o), MOP_mg_slot(mg))
#define MOP_mg_weaken_slot(mg, o)         MOP_mg_vtbl(mg)->weaken_slot     (aTHX_ (o), MOP_mg_slot(mg))

/* Class::MOP::Attribute stuff */

MAGIC* mop_attr_get_mg(pTHX_ SV* const attr);

/* Class::MOP::Method::Accessor stuff */

#define dMOP_self      SV* const self = mop_accessor_get_self(aTHX_ ax, items, cv)
#define dMOP_mg(xsub)  MAGIC* mg      = (MAGIC*)CvXSUBANY(xsub).any_ptr
#define dMOP_METHOD_COMMON  dMOP_self; dMOP_mg(cv)


SV*    mop_accessor_get_self(pTHX_ I32 const ax, I32 const items, CV* const cv);
MAGIC* mop_accessor_get_mg(pTHX_ CV* const cv);

CV*    mop_install_accessor(pTHX_ const char* const fq_name, const char* const key, I32 const keylen, XSPROTO(accessor_impl), const mop_instance_vtbl* vtbl);

#define INSTALL_SIMPLE_READER(klass, name)                  INSTALL_SIMPLE_READER_WITH_KEY(klass, name, name)
#define INSTALL_SIMPLE_READER_WITH_KEY(klass, name, key)    (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::" #name, #key, sizeof(#key)-1, mop_xs_simple_reader, NULL)

#define INSTALL_SIMPLE_WRITER(klass, name)                  INSTALL_SIMPLE_WRITER_WITH_KEY(klass, name, name)
#define INSTALL_SIMPLE_WRITER_WITH_KEY(klass, name, key)    (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::" #name, #key, sizeof(#key)-1, mop_xs_simple_writer, NULL)

#define INSTALL_SIMPLE_PREDICATE(klass, name)                INSTALL_SIMPLE_PREDICATE_WITH_KEY(klass, name, name)
#define INSTALL_SIMPLE_PREDICATE_WITH_KEY(klass, name, key) (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::has_" #name, #key, sizeof(#key)-1, mop_xs_simple_predicate_for_metaclass, NULL)

#define MOPf_DIE_ON_FAIL 0x01
MAGIC* mop_mg_find(pTHX_ SV* const sv, const MGVTBL* const vtbl, I32 const flags);

#endif
Commit	Line	Data
d846ade3	1	#ifndef __MOP_H__
	2	#define __MOP_H__
	3
353c6152	4	#define PERL_NO_GET_CONTEXT
d846ade3	5	#include "EXTERN.h"
	6	#include "perl.h"
	7	#include "XSUB.h"
	8
d846ade3	9	#include "ppport.h"
d846ade3	10
25bcd95c	11	#define MOP_CALL_BOOT(name) mop_call_xs(aTHX_ name, cv, mark);
d846ade3	12
c97ec1de	13	#ifndef XSPROTO
	14	#define XSPROTO(name) XS(name)
	15	#endif
	16
1be56175	17	void mop_call_xs (pTHX_ XSPROTO(subaddr), CV cv, SV *mark);
d846ade3	18
8a2e4cdb	19
	20	#define MAKE_KEYSV(name) newSVpvn_share(#name, sizeof(#name)-1, 0U)
	21
a69b9501	22	XS(mop_xs_simple_accessor);
7ec7b950	23	XS(mop_xs_simple_reader);
a69b9501	24	XS(mop_xs_simple_writer);
	25	XS(mop_xs_simple_predicate);
	26	XS(mop_xs_simple_predicate_for_metaclass);
	27	XS(mop_xs_simple_clearer);
7ec7b950	28
e1f52a8a	29	extern SV *mop_method_metaclass;
e1f52a8a	30	extern SV *mop_associated_metaclass;
ffec3ec3	31	extern SV *mop_associated_attribute;
e1f52a8a	32	extern SV *mop_wrap;
8a2e4cdb	33	extern SV *mop_methods;
	34	extern SV *mop_name;
	35	extern SV *mop_body;
	36	extern SV *mop_package;
	37	extern SV *mop_package_name;
	38	extern SV *mop_package_cache_flag;
	39	extern SV *mop_VERSION;
	40	extern SV *mop_ISA;
d846ade3	41
d846ade3	42	UV mop_check_package_cache_flag(pTHX_ HV *stash);
e1f52a8a	43	int mop_get_code_info (SV coderef, char pkg, char *name);
d846ade3	44	SV mop_call0(pTHX_ SV const self, SV *const method);
353c6152	45	SV mop_call1(pTHX_ SV const self, SV const method, SV const arg1);
	46
	47	#define mop_call0_pvs(o, m) mop_call0(aTHX_ o, newSVpvs_flags(m, SVs_TEMP))
	48	#define mop_call1_pvs(o, m, a) mop_call1(aTHX_ o, newSVpvs_flags(m, SVs_TEMP), a)
	49
aa3a4090	50	bool mop_is_class_loaded(pTHX_ SV*);
aa3a4090	51	#define is_class_loaded(klass) mop_is_class_loaded(aTHX_ klass)
d846ade3	52
ac814ef2	53	bool mop_is_instance_of(pTHX_ SV, SV);
	54	#define is_instance_of(sv, klass) mop_is_instance_of(aTHX_ sv, klass)
	55	#define is_instance_of_pvs(sv, klass) mop_is_instance_of(aTHX_ sv, newSVpvs_flags(klass, SVs_TEMP))
	56
d846ade3	57	typedef enum {
	58	TYPE_FILTER_NONE,
	59	TYPE_FILTER_CODE,
	60	TYPE_FILTER_ARRAY,
	61	TYPE_FILTER_IO,
	62	TYPE_FILTER_HASH,
	63	TYPE_FILTER_SCALAR,
	64	} type_filter_t;
	65
	66	typedef bool (get_package_symbols_cb_t) (const char , STRLEN, SV , void );
	67
e1f52a8a	68	void mop_get_package_symbols(HV stash, type_filter_t filter, get_package_symbols_cb_t cb, void ud);
353c6152	69	HV mop_get_all_package_symbols (HV stash, type_filter_t filter);
	70
	71
8615de16	72	/* Class::MOP Magic stuff */
353c6152	73
8615de16	74	/* MG: MOP Magic object */
86395d9a	75
86395d9a	76	/* All the MOP_mg_* macros require MAGIC* mg for the first argument */
86395d9a	77
353c6152	78	typedef struct {
8615de16	79	SV* (create_instance)(pTHX_ SV const mi);
	80	bool (has_slot) (pTHX_ SV const mi, SV* const instance);
	81	SV* (get_slot) (pTHX_ SV const mi, SV* const instance);
	82	SV* (set_slot) (pTHX_ SV const mi, SV* const instance, SV* const value);
	83	SV* (delete_slot) (pTHX_ SV const mi, SV* const instance);
	84	void (weaken_slot) (pTHX_ SV const mi, SV* const instance);
353c6152	85	} mop_instance_vtbl;
	86
	87	const mop_instance_vtbl* mop_get_default_instance_vtbl(pTHX);
	88
346d43ef	89	#define MOP_mg_obj(mg) ((mg)->mg_obj)
6c9f331d	90	#define MOP_mg_ptr(mg) ((mg)->mg_ptr)
6c9f331d	91	#define MOP_mg_vtbl(mg) ((const mop_instance_vtbl*)MOP_mg_ptr(mg))
86395d9a	92	#define MOP_mg_flags(mg) ((mg)->mg_private)
86395d9a	93
6c9f331d	94	#define MOP_mg_obj_refcounted_on(mg) (void)((mg)->mg_flags \|= MGf_REFCOUNTED);
6c9f331d	95
346d43ef	96	#define MOP_mg_slot(mg) MOP_mg_obj(mg)
8615de16	97
346d43ef	98	#define MOP_mg_create_instance(mg, stash) MOP_mg_vtbl(mg)->create_instance (aTHX_ (stash))
	99	#define MOP_mg_has_slot(mg, o) MOP_mg_vtbl(mg)->has_slot (aTHX_ (o), MOP_mg_slot(mg))
	100	#define MOP_mg_get_slot(mg, o) MOP_mg_vtbl(mg)->get_slot (aTHX_ (o), MOP_mg_slot(mg))
	101	#define MOP_mg_set_slot(mg, o, v) MOP_mg_vtbl(mg)->set_slot (aTHX_ (o), MOP_mg_slot(mg), (v))
	102	#define MOP_mg_delete_slot(mg, o) MOP_mg_vtbl(mg)->delete_slot (aTHX_ (o), MOP_mg_slot(mg))
	103	#define MOP_mg_weaken_slot(mg, o) MOP_mg_vtbl(mg)->weaken_slot (aTHX_ (o), MOP_mg_slot(mg))
86395d9a	104
6c9f331d	105	/* Class::MOP::Attribute stuff */
	106
	107	MAGIC* mop_attr_get_mg(pTHX_ SV* const attr);
353c6152	108
	109	/* Class::MOP::Method::Accessor stuff */
	110
86395d9a	111	#define dMOP_self SV* const self = mop_accessor_get_self(aTHX_ ax, items, cv)
	112	#define dMOP_mg(xsub) MAGIC* mg = (MAGIC*)CvXSUBANY(xsub).any_ptr
	113	#define dMOP_METHOD_COMMON dMOP_self; dMOP_mg(cv)
353c6152	114
	115
	116	SV* mop_accessor_get_self(pTHX_ I32 const ax, I32 const items, CV* const cv);
	117	MAGIC* mop_accessor_get_mg(pTHX_ CV* const cv);
	118
	119	CV* mop_install_accessor(pTHX_ const char* const fq_name, const char* const key, I32 const keylen, XSPROTO(accessor_impl), const mop_instance_vtbl* vtbl);
	120
	121	#define INSTALL_SIMPLE_READER(klass, name) INSTALL_SIMPLE_READER_WITH_KEY(klass, name, name)
	122	#define INSTALL_SIMPLE_READER_WITH_KEY(klass, name, key) (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::" #name, #key, sizeof(#key)-1, mop_xs_simple_reader, NULL)
	123
	124	#define INSTALL_SIMPLE_WRITER(klass, name) INSTALL_SIMPLE_WRITER_WITH_KEY(klass, name, name)
	125	#define INSTALL_SIMPLE_WRITER_WITH_KEY(klass, name, key) (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::" #name, #key, sizeof(#key)-1, mop_xs_simple_writer, NULL)
	126
	127	#define INSTALL_SIMPLE_PREDICATE(klass, name) INSTALL_SIMPLE_PREDICATE_WITH_KEY(klass, name, name)
	128	#define INSTALL_SIMPLE_PREDICATE_WITH_KEY(klass, name, key) (void)mop_install_accessor(aTHX_ "Class::MOP::" #klass "::has_" #name, #key, sizeof(#key)-1, mop_xs_simple_predicate_for_metaclass, NULL)
	129
	130	#define MOPf_DIE_ON_FAIL 0x01
	131	MAGIC* mop_mg_find(pTHX_ SV* const sv, const MGVTBL* const vtbl, I32 const flags);
d846ade3	132
d846ade3	133	#endif