4e317b85af
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@39 626c5289-ae23-0410-ae9c-e8d60b6d4f22
19 lines
738 B
Text
19 lines
738 B
Text
/* Magic variable code */
|
|
#ifndef PERL_OBJECT
|
|
#define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c)
|
|
static void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *)) {
|
|
#else
|
|
#define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
|
|
static void _swig_create_magic(CPerlObj *pPerl, SV *sv, char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *)) {
|
|
#endif
|
|
MAGIC *mg;
|
|
sv_magic(sv,sv,'U',name,strlen(name));
|
|
mg = mg_find(sv,'U');
|
|
mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
|
|
mg->mg_virtual->svt_get = get;
|
|
mg->mg_virtual->svt_set = set;
|
|
mg->mg_virtual->svt_len = 0;
|
|
mg->mg_virtual->svt_clear = 0;
|
|
mg->mg_virtual->svt_free = 0;
|
|
}
|
|
|