You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1348 lines
42 KiB
1348 lines
42 KiB
#include <qstring.h>
|
|
#include <qregexp.h>
|
|
#include <qapplication.h>
|
|
#include <qmetaobject.h>
|
|
#include <qvaluelist.h>
|
|
#include <qwidgetlist.h>
|
|
#include <qcanvas.h>
|
|
#include <qobjectlist.h>
|
|
#include <qintdict.h>
|
|
#include <qtoolbar.h>
|
|
#include <qtabbar.h>
|
|
#include <qdir.h>
|
|
#include <qdockwindow.h>
|
|
#include <qnetworkprotocol.h>
|
|
#include <private/qucomextra_p.h>
|
|
#include "smoke.h"
|
|
|
|
#undef DEBUG
|
|
#ifndef _GNU_SOURCE
|
|
#define _GNU_SOURCE
|
|
#endif
|
|
#ifndef __USE_POSIX
|
|
#define __USE_POSIX
|
|
#endif
|
|
#ifndef __USE_XOPEN
|
|
#define __USE_XOPEN
|
|
#endif
|
|
#include "EXTERN.h"
|
|
#include "perl.h"
|
|
#include "XSUB.h"
|
|
|
|
#if PERL_VERSION == 6 && PERL_SUBVERSION == 0
|
|
#include <qtextcodec.h>
|
|
#endif
|
|
|
|
#include "marshall.h"
|
|
#include "perlqt.h"
|
|
#include "smokeperl.h"
|
|
|
|
#ifndef HINT_BYTES
|
|
#define HINT_BYTES HINT_BYTE
|
|
#endif
|
|
|
|
#ifndef PERL_MAGIC_tiedscalar
|
|
#define PERL_MAGIC_tiedscalar 'q'
|
|
#endif
|
|
|
|
extern HV* pointer_map;
|
|
static TQIntDict<Smoke::Index> *dtorcache= 0;
|
|
static TQIntDict<Smoke::Index> *cctorcache= 0;
|
|
|
|
int smokeperl_free(pTHX_ SV *sv, MAGIC *mg) {
|
|
smokeperl_object *o = (smokeperl_object*)mg->mg_ptr;
|
|
|
|
const char *className = o->smoke->classes[o->classId].className;
|
|
if(o->allocated && o->ptr) {
|
|
if(do_debug && (do_debug & qtdb_gc)) fprintf(stderr, "Deleting (%s*)%p\n", className, o->ptr);
|
|
SmokeClass sc(o->smoke, o->classId);
|
|
if(sc.hasVirtual())
|
|
unmapPointer(o, o->classId, 0);
|
|
Smoke::Index *pmeth = dtorcache->find( o->classId );
|
|
if(pmeth) {
|
|
Smoke::Method &m = o->smoke->methods[o->smoke->methodMaps[*pmeth].method];
|
|
Smoke::ClassFn fn = o->smoke->classes[m.classId].classFn;
|
|
Smoke::StackItem i[1];
|
|
(*fn)(m.method, o->ptr, i);
|
|
} else {
|
|
char *methodName = new char[strlen(className) + 2];
|
|
methodName[0] = '~';
|
|
strcpy(methodName + 1, className);
|
|
Smoke::Index nameId = o->smoke->idMethodName(methodName);
|
|
Smoke::Index meth = o->smoke->findMethod(o->classId, nameId);
|
|
if(meth > 0) {
|
|
dtorcache->insert(o->classId, new Smoke::Index(meth));
|
|
Smoke::Method &m = o->smoke->methods[o->smoke->methodMaps[meth].method];
|
|
Smoke::ClassFn fn = o->smoke->classes[m.classId].classFn;
|
|
Smoke::StackItem i[1];
|
|
(*fn)(m.method, o->ptr, i);
|
|
}
|
|
delete[] methodName;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
struct mgvtbl vtbl_smoke = { 0, 0, 0, 0, smokeperl_free };
|
|
|
|
bool matches_arg(Smoke *smoke, Smoke::Index meth, Smoke::Index argidx, const char *argtype) {
|
|
Smoke::Index *arg = smoke->argumentList + smoke->methods[meth].args + argidx;
|
|
SmokeType type = SmokeType(smoke, *arg);
|
|
if(type.name() && !strcmp(type.name(), argtype))
|
|
return true;
|
|
return false;
|
|
}
|
|
|
|
void *construct_copy(smokeperl_object *o) {
|
|
Smoke::Index *pccMeth = cctorcache->find(o->classId);
|
|
Smoke::Index ccMeth = 0;
|
|
if(!pccMeth) {
|
|
const char *className = o->smoke->className(o->classId);
|
|
int classNameLen = strlen(className);
|
|
char *ccSig = new char[classNameLen + 2]; // copy constructor signature
|
|
strcpy(ccSig, className);
|
|
strcat(ccSig, "#");
|
|
Smoke::Index ccId = o->smoke->idMethodName(ccSig);
|
|
delete[] ccSig;
|
|
|
|
char *ccArg = new char[classNameLen + 8];
|
|
sprintf(ccArg, "const %s&", className);
|
|
|
|
ccMeth = o->smoke->findMethod(o->classId, ccId);
|
|
|
|
if(!ccMeth) {
|
|
cctorcache->insert(o->classId, new Smoke::Index(0));
|
|
return 0;
|
|
}
|
|
Smoke::Index method = o->smoke->methodMaps[ccMeth].method;
|
|
if(method > 0) {
|
|
// Make sure it's a copy constructor
|
|
if(!matches_arg(o->smoke, method, 0, ccArg)) {
|
|
delete[] ccArg;
|
|
cctorcache->insert(o->classId, new Smoke::Index(0));
|
|
return 0;
|
|
}
|
|
delete[] ccArg;
|
|
ccMeth = method;
|
|
} else {
|
|
// ambiguous method, pick the copy constructor
|
|
Smoke::Index i = -method;
|
|
while(o->smoke->ambiguousMethodList[i]) {
|
|
if(matches_arg(o->smoke, o->smoke->ambiguousMethodList[i], 0, ccArg))
|
|
break;
|
|
i++;
|
|
}
|
|
delete[] ccArg;
|
|
ccMeth = o->smoke->ambiguousMethodList[i];
|
|
if(!ccMeth) {
|
|
cctorcache->insert(o->classId, new Smoke::Index(0));
|
|
return 0;
|
|
}
|
|
}
|
|
cctorcache->insert(o->classId, new Smoke::Index(ccMeth));
|
|
} else {
|
|
ccMeth = *pccMeth;
|
|
if(!ccMeth)
|
|
return 0;
|
|
}
|
|
// Okay, ccMeth is the copy constructor. Time to call it.
|
|
Smoke::StackItem args[2];
|
|
args[0].s_voidp = 0;
|
|
args[1].s_voidp = o->ptr;
|
|
Smoke::ClassFn fn = o->smoke->classes[o->classId].classFn;
|
|
(*fn)(o->smoke->methods[ccMeth].method, 0, args);
|
|
return args[0].s_voidp;
|
|
}
|
|
|
|
static void marshall_basetype(Marshall *m) {
|
|
switch(m->type().elem()) {
|
|
case Smoke::t_bool:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_bool = SvTRUE(m->var()) ? true : false;
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setsv_mg(m->var(), boolSV(m->item().s_bool));
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_char:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_char = (char)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_char);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_uchar:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_uchar = (unsigned char)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_uchar);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_short:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_short = (short)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_short);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_ushort:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_ushort = (unsigned short)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_ushort);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_int:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_int = (int)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_int);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_uint:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_uint = (unsigned int)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_uint);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_long:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_long = (long)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_long);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_ulong:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_ulong = (unsigned long)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_ulong);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_float:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_float = (float)SvNV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setnv_mg(m->var(), (NV)m->item().s_float);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_double:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_double = (double)SvNV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setnv_mg(m->var(), (NV)m->item().s_double);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_enum:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
m->item().s_enum = (long)SvIV(m->var());
|
|
break;
|
|
case Marshall::ToSV:
|
|
sv_setiv_mg(m->var(), (IV)m->item().s_enum);
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
case Smoke::t_class:
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
smokeperl_object *o = sv_obj_info(m->var());
|
|
if(!o || !o->ptr) {
|
|
if(m->type().isRef()) {
|
|
warn("References can't be null or undef\n");
|
|
m->unsupported();
|
|
}
|
|
m->item().s_class = 0;
|
|
break;
|
|
}
|
|
void *ptr = o->ptr;
|
|
if(!m->cleanup() && m->type().isStack()) {
|
|
void *p = construct_copy(o);
|
|
if(p)
|
|
ptr = p;
|
|
}
|
|
const Smoke::Class &c = m->smoke()->classes[m->type().classId()];
|
|
ptr = o->smoke->cast(
|
|
ptr, // pointer
|
|
o->classId, // from
|
|
o->smoke->idClass(c.className) // to
|
|
);
|
|
m->item().s_class = ptr;
|
|
break;
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
if(!m->item().s_voidp) {
|
|
sv_setsv_mg(m->var(), &PL_sv_undef);
|
|
break;
|
|
}
|
|
void *p = m->item().s_voidp;
|
|
SV *obj = getPointerObject(p);
|
|
if(obj) {
|
|
sv_setsv_mg(m->var(), obj);
|
|
break;
|
|
}
|
|
HV *hv = newHV();
|
|
obj = newRV_noinc((SV*)hv);
|
|
// TODO: Generic mapping from C++ classname to TQt classname
|
|
|
|
smokeperl_object o;
|
|
o.smoke = m->smoke();
|
|
o.classId = m->type().classId();
|
|
o.ptr = p;
|
|
o.allocated = false;
|
|
|
|
if(m->type().isStack())
|
|
o.allocated = true;
|
|
|
|
char *buf = m->smoke()->binding->className(m->type().classId());
|
|
sv_bless(obj, gv_stashpv(buf, TRUE));
|
|
delete[] buf;
|
|
if(m->type().isConst() && m->type().isRef()) {
|
|
p = construct_copy( &o );
|
|
if(p) {
|
|
o.ptr = p;
|
|
o.allocated = true;
|
|
}
|
|
}
|
|
sv_magic((SV*)hv, sv_qapp, '~', (char*)&o, sizeof(o));
|
|
MAGIC *mg = mg_find((SV*)hv, '~');
|
|
mg->mg_virtual = &vtbl_smoke;
|
|
sv_setsv_mg(m->var(), obj);
|
|
SmokeClass sc( m->type() );
|
|
if( sc.hasVirtual() )
|
|
mapPointer(obj, &o, pointer_map, o.classId, 0);
|
|
SvREFCNT_dec(obj);
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_void(Marshall *) {}
|
|
static void marshall_unknown(Marshall *m) {
|
|
m->unsupported();
|
|
}
|
|
|
|
static void marshall_charP(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(!SvOK(sv)) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
if(m->cleanup())
|
|
m->item().s_voidp = SvPV_nolen(sv);
|
|
else {
|
|
STRLEN len;
|
|
char *svstr = SvPV(sv, len);
|
|
char *str = new char [len + 1];
|
|
strncpy(str, svstr, len);
|
|
str[len] = 0;
|
|
m->item().s_voidp = str;
|
|
}
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
char *p = (char*)m->item().s_voidp;
|
|
if(p)
|
|
sv_setpv_mg(m->var(), p);
|
|
else
|
|
sv_setsv_mg(m->var(), &PL_sv_undef);
|
|
if(m->cleanup())
|
|
delete[] p;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
void marshall_ucharP(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV* sv = m->var();
|
|
TQByteArray *s = 0;
|
|
MAGIC* mg = 0;
|
|
bool hasMagic = false;
|
|
if(SvOK(sv)) {
|
|
if( SvTYPE(sv) == SVt_PVMG && (mg = mg_find(sv, PERL_MAGIC_tiedscalar))
|
|
&& sv_derived_from(mg->mg_obj, "TQt::_internal::TQByteArray") ) {
|
|
s = (TQByteArray*)SvIV((SV*)SvRV(mg->mg_obj));
|
|
hasMagic = true;
|
|
} else {
|
|
STRLEN len;
|
|
char* tmp = SvPV(sv, len);
|
|
s = new TQByteArray(len);
|
|
Copy((void*)tmp, (void*)s->data(), len, char);
|
|
if( !m->type().isConst() && !SvREADONLY(sv) ) {
|
|
SV* rv = newSV(0);
|
|
sv_setref_pv(rv, "TQt::_internal::TQByteArray", (void*)s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0);
|
|
hasMagic = true;
|
|
}
|
|
}
|
|
} else {
|
|
if( !m->type().isConst() ) {
|
|
if(SvREADONLY(sv) && m->type().isPtr()) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
s = new TQByteArray(0);
|
|
if( !SvREADONLY(sv) ) {
|
|
SV* rv = newSV(0);
|
|
sv_setpv_mg(sv, "");
|
|
sv_setref_pv(rv, "TQt::_internal::TQByteArray", s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0);
|
|
hasMagic = true;
|
|
}
|
|
} else
|
|
s = new TQByteArray(0);
|
|
}
|
|
m->item().s_voidp = s->data();
|
|
m->next();
|
|
if(s && !hasMagic && m->cleanup())
|
|
delete s;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_TQString(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV* sv = m->var();
|
|
TQString *s = 0;
|
|
MAGIC* mg = 0;
|
|
bool hasMagic = false;
|
|
if(SvOK(sv) || m->type().isStack()) {
|
|
if( SvTYPE(sv) == SVt_PVMG && (mg = mg_find(sv, PERL_MAGIC_tiedscalar))
|
|
&& sv_derived_from(mg->mg_obj, "TQt::_internal::TQString") ) {
|
|
s = (TQString*)SvIV((SV*)SvRV(mg->mg_obj));
|
|
hasMagic = true;
|
|
} else {
|
|
COP *cop = cxstack[cxstack_ix].blk_oldcop;
|
|
if(SvUTF8(sv))
|
|
s = new TQString(TQString::fromUtf8(SvPV_nolen(sv)));
|
|
else if(cop->op_private & HINT_LOCALE)
|
|
s = new TQString(TQString::fromLocal8Bit(SvPV_nolen(sv)));
|
|
else
|
|
s = new TQString(TQString::fromLatin1(SvPV_nolen(sv)));
|
|
if( !m->type().isConst() && !m->type().isStack() && !SvREADONLY(sv)) {
|
|
SV* rv = newSV(0);
|
|
sv_setref_pv(rv, "TQt::_internal::TQString", (void*)s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0);
|
|
hasMagic = true;
|
|
}
|
|
}
|
|
} else {
|
|
if(!m->type().isConst()) {
|
|
if(SvREADONLY(sv) && m->type().isPtr()) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
s = new TQString;
|
|
if( !SvREADONLY(sv) ) {
|
|
SV* rv = newSV(0);
|
|
sv_setpv_mg(sv, "");
|
|
sv_setref_pv(rv, "TQt::_internal::TQString", s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0);
|
|
hasMagic = true;
|
|
}
|
|
} else
|
|
s = new TQString;
|
|
}
|
|
m->item().s_voidp = s;
|
|
m->next();
|
|
if(s && !hasMagic && m->cleanup())
|
|
delete s;
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
TQString *s = (TQString*)m->item().s_voidp;
|
|
if(s) {
|
|
COP *cop = cxstack[cxstack_ix].blk_oldcop;
|
|
if(!(cop->op_private & HINT_BYTES))
|
|
{
|
|
sv_setpv_mg(m->var(), (const char *)s->utf8());
|
|
SvUTF8_on(m->var());
|
|
}
|
|
else if(cop->op_private & HINT_LOCALE)
|
|
sv_setpv_mg(m->var(), (const char *)s->local8Bit());
|
|
else
|
|
sv_setpv_mg(m->var(), (const char *)s->latin1());
|
|
}
|
|
else
|
|
sv_setsv_mg(m->var(), &PL_sv_undef);
|
|
if(m->cleanup())
|
|
delete s;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_TQByteArray(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV* sv = m->var();
|
|
TQByteArray *s = 0;
|
|
MAGIC* mg = 0;
|
|
bool hasMagic = false;
|
|
if(SvOK(sv) || m->type().isStack()) {
|
|
if( SvTYPE(sv) == SVt_PVMG && (mg = mg_find(sv, PERL_MAGIC_tiedscalar))
|
|
&& sv_derived_from(mg->mg_obj, "TQt::_internal::TQByteArray") ) {
|
|
s = (TQByteArray*)SvIV((SV*)SvRV(mg->mg_obj));
|
|
hasMagic = true;
|
|
} else {
|
|
STRLEN len;
|
|
char* tmp = SvPV(sv, len);
|
|
s = new TQByteArray(len);
|
|
Copy((void*)tmp, (void*)s->data(), len, char);
|
|
if( !m->type().isConst() && !SvREADONLY(sv) ) { // we tie also stack because of the funny TQDataStream behaviour
|
|
// fprintf(stderr, "Tying\n");
|
|
SV* rv = newSV(0);
|
|
sv_setref_pv(rv, "TQt::_internal::TQByteArray", (void*)s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0);
|
|
hasMagic = true;
|
|
}
|
|
}
|
|
} else {
|
|
if( !m->type().isConst() ) {
|
|
if(SvREADONLY(sv) && m->type().isPtr()) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
s = new TQByteArray(0);
|
|
if( !SvREADONLY(sv) ) {
|
|
SV* rv = newSV(0);
|
|
sv_setpv_mg(sv, "");
|
|
sv_setref_pv(rv, "TQt::_internal::TQByteArray", s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0);
|
|
hasMagic = true;
|
|
}
|
|
} else
|
|
s = new TQByteArray(0);
|
|
}
|
|
m->item().s_voidp = s;
|
|
m->next();
|
|
if(s && !hasMagic && m->cleanup())
|
|
delete s;
|
|
}
|
|
break;
|
|
// ToSV is probably overkill here, but will do well as a template for other types.
|
|
case Marshall::ToSV:
|
|
{
|
|
bool hasMagic = false;
|
|
SV *sv = m->var();
|
|
TQByteArray *s = (TQByteArray*)m->item().s_voidp;
|
|
if(s) {
|
|
if( !m->type().isConst() && !m->type().isStack() && !SvREADONLY(sv)) {
|
|
SV* rv = newSV(0);
|
|
sv_setref_pv(rv, "TQt::_internal::TQByteArray", (void*)s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0); // err, is a previous magic auto-untied here?
|
|
hasMagic = true;
|
|
} else
|
|
sv_setpvn_mg(sv, (const char *)s->data(), s->size());
|
|
}
|
|
else
|
|
sv_setsv_mg(sv, &PL_sv_undef);
|
|
if(m->cleanup() && !hasMagic)
|
|
delete s;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static const char *not_ascii(const char *s, uint &len)
|
|
{
|
|
bool r = false;
|
|
for(; *s ; s++, len--)
|
|
if((uint)*s > 0x7F)
|
|
{
|
|
r = true;
|
|
break;
|
|
}
|
|
return r ? s : 0L;
|
|
}
|
|
|
|
static void marshall_TQCString(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
TQCString *s = 0;
|
|
if(SvOK(m->var()) || m->type().isStack())
|
|
s = new TQCString(SvPV_nolen(m->var()));
|
|
m->item().s_voidp = s;
|
|
m->next();
|
|
if(s && m->cleanup())
|
|
delete s;
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
TQCString *s = (TQCString*)m->item().s_voidp;
|
|
if(s) {
|
|
sv_setpv_mg(m->var(), (const char *)*s);
|
|
const char * p = (const char *)*s;
|
|
uint len = s->length();
|
|
COP *cop = cxstack[cxstack_ix].blk_oldcop;
|
|
if(!(cop->op_private & HINT_BYTES) && not_ascii(p,len))
|
|
{
|
|
#if PERL_VERSION == 6 && PERL_SUBVERSION == 0
|
|
TQTextCodec* c = TQTextCodec::codecForMib(106); // utf8
|
|
if(c->heuristicContentMatch(p,len) >= 0)
|
|
#else
|
|
if(is_utf8_string((U8 *)p,len))
|
|
#endif
|
|
SvUTF8_on(m->var());
|
|
}
|
|
}
|
|
else
|
|
sv_setsv_mg(m->var(), &PL_sv_undef);
|
|
|
|
if(m->cleanup())
|
|
delete s;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_TQCOORD_array(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(!SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV ||
|
|
av_len((AV*)SvRV(sv)) < 0) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
AV *av = (AV*)SvRV(sv);
|
|
int count = av_len(av);
|
|
TQCOORD *coord = new TQCOORD[count + 2];
|
|
for(int i = 0; i <= count; i++) {
|
|
SV **svp = av_fetch(av, i, 0);
|
|
coord[i] = svp ? SvIV(*svp) : 0;
|
|
}
|
|
m->item().s_voidp = coord;
|
|
m->next();
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
}
|
|
}
|
|
|
|
static void marshall_intR(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(m->type().isPtr() && // is pointer
|
|
!SvOK(sv) && SvREADONLY(sv)) { // and real undef
|
|
m->item().s_voidp = 0; // pass null pointer
|
|
break;
|
|
}
|
|
if(m->cleanup()) {
|
|
int i = SvIV(sv);
|
|
m->item().s_voidp = &i;
|
|
m->next();
|
|
sv_setiv_mg(sv, (IV)i);
|
|
} else {
|
|
m->item().s_voidp = new int((int)SvIV(sv));
|
|
if(PL_dowarn)
|
|
warn("Leaking memory from int& handler");
|
|
}
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
int *ip = (int*)m->item().s_voidp;
|
|
SV *sv = m->var();
|
|
if(!ip) {
|
|
sv_setsv_mg(sv, &PL_sv_undef);
|
|
break;
|
|
}
|
|
sv_setiv_mg(sv, *ip);
|
|
m->next();
|
|
if(!m->type().isConst())
|
|
*ip = (int)SvIV(sv);
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_boolR(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(m->type().isPtr() && // is pointer
|
|
!SvOK(sv) && SvREADONLY(sv)) { // and real undef
|
|
m->item().s_voidp = 0; // pass null pointer
|
|
break;
|
|
}
|
|
if(m->cleanup()) {
|
|
bool i = SvTRUE(sv)? true : false;
|
|
m->item().s_voidp = &i;
|
|
m->next();
|
|
sv_setsv_mg(sv, boolSV(i));
|
|
} else {
|
|
m->item().s_voidp = new bool(SvTRUE(sv)?true:false);
|
|
if(PL_dowarn)
|
|
warn("Leaking memory from bool& handler");
|
|
}
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
bool *ip = (bool*)m->item().s_voidp;
|
|
SV *sv = m->var();
|
|
if(!ip) {
|
|
sv_setsv_mg(sv, &PL_sv_undef);
|
|
break;
|
|
}
|
|
sv_setsv_mg(sv, boolSV(*ip));
|
|
m->next();
|
|
if(!m->type().isConst())
|
|
*ip = SvTRUE(sv)? true : false;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_charP_array(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(!SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV ||
|
|
av_len((AV*)SvRV(sv)) < 0) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
|
|
AV *arglist = (AV*)SvRV(sv);
|
|
int count = av_len(arglist);
|
|
char **argv = new char *[count + 2];
|
|
int i;
|
|
for(i = 0; i <= count; i++) {
|
|
SV **item = av_fetch(arglist, i, 0);
|
|
if(!item || !SvOK(*item)) {
|
|
argv[i] = new char[1];
|
|
argv[i][0] = 0; // should undef warn?
|
|
continue;
|
|
}
|
|
|
|
STRLEN len;
|
|
char *s = SvPV(*item, len);
|
|
argv[i] = new char[len + 1];
|
|
strncpy(argv[i], s, len);
|
|
argv[i][len] = 0; // null terminazi? yes
|
|
}
|
|
argv[i] = 0;
|
|
m->item().s_voidp = argv;
|
|
m->next();
|
|
if(m->cleanup()) {
|
|
av_clear(arglist);
|
|
for(i = 0; argv[i]; i++)
|
|
av_push(arglist, newSVpv(argv[i], 0));
|
|
|
|
// perhaps we should check current_method?
|
|
}
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_TQStringList(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(!SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV ||
|
|
av_len((AV*)SvRV(sv)) < 0) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
AV *list = (AV*)SvRV(sv);
|
|
int count = av_len(list);
|
|
TQStringList *stringlist = new TQStringList;
|
|
int i;
|
|
COP *cop = cxstack[cxstack_ix].blk_oldcop;
|
|
bool lc = cop->op_private & HINT_LOCALE;
|
|
for(i = 0; i <= count; i++) {
|
|
SV **item = av_fetch(list, i, 0);
|
|
if(!item || !SvOK(*item)) {
|
|
stringlist->append(TQString());
|
|
continue;
|
|
}
|
|
|
|
if(SvUTF8(*item))
|
|
stringlist->append(TQString::fromUtf8(SvPV_nolen(*item)));
|
|
else if(lc)
|
|
stringlist->append(TQString::fromLocal8Bit(SvPV_nolen(*item)));
|
|
else
|
|
stringlist->append(TQString::fromLatin1(SvPV_nolen(*item)));
|
|
}
|
|
|
|
m->item().s_voidp = stringlist;
|
|
m->next();
|
|
|
|
if(m->cleanup()) {
|
|
av_clear(list);
|
|
for(TQStringList::Iterator it = stringlist->begin();
|
|
it != stringlist->end();
|
|
++it)
|
|
av_push(list, newSVpv((const char *)*it, 0));
|
|
delete stringlist;
|
|
}
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
TQStringList *stringlist = (TQStringList*)m->item().s_voidp;
|
|
if(!stringlist) {
|
|
sv_setsv_mg(m->var(), &PL_sv_undef);
|
|
break;
|
|
}
|
|
|
|
AV *av = newAV();
|
|
{
|
|
SV *rv = newRV_noinc((SV*)av);
|
|
sv_setsv_mg(m->var(), rv);
|
|
SvREFCNT_dec(rv);
|
|
}
|
|
COP *cop = cxstack[cxstack_ix].blk_oldcop;
|
|
if(!(cop->op_private & HINT_BYTES))
|
|
for(TQStringList::Iterator it = stringlist->begin();
|
|
it != stringlist->end();
|
|
++it) {
|
|
SV *sv = newSVpv((const char *)(*it).utf8(), 0);
|
|
SvUTF8_on(sv);
|
|
av_push(av, sv);
|
|
}
|
|
else if(cop->op_private & HINT_LOCALE)
|
|
for(TQStringList::Iterator it = stringlist->begin();
|
|
it != stringlist->end();
|
|
++it) {
|
|
SV *sv = newSVpv((const char *)(*it).local8Bit(), 0);
|
|
av_push(av, sv);
|
|
}
|
|
else
|
|
for(TQStringList::Iterator it = stringlist->begin();
|
|
it != stringlist->end();
|
|
++it) {
|
|
SV *sv = newSVpv((const char *)(*it).latin1(), 0);
|
|
av_push(av, sv);
|
|
}
|
|
if(m->cleanup())
|
|
delete stringlist;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void marshall_TQValueListInt(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(!SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV ||
|
|
av_len((AV*)SvRV(sv)) < 0) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
}
|
|
AV *list = (AV*)SvRV(sv);
|
|
int count = av_len(list);
|
|
TQValueList<int> *valuelist = new TQValueList<int>;
|
|
int i;
|
|
for(i = 0; i <= count; i++) {
|
|
SV **item = av_fetch(list, i, 0);
|
|
if(!item || !SvOK(*item)) {
|
|
valuelist->append(0);
|
|
continue;
|
|
}
|
|
|
|
valuelist->append(SvIV(*item));
|
|
}
|
|
|
|
m->item().s_voidp = valuelist;
|
|
m->next();
|
|
|
|
if(m->cleanup()) {
|
|
av_clear(list);
|
|
for(TQValueListIterator<int> it = valuelist->begin();
|
|
it != valuelist->end();
|
|
++it)
|
|
av_push(list, newSViv((int)*it));
|
|
delete valuelist;
|
|
}
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
TQValueList<int> *valuelist = (TQValueList<int>*)m->item().s_voidp;
|
|
if(!valuelist) {
|
|
sv_setsv_mg(m->var(), &PL_sv_undef);
|
|
break;
|
|
}
|
|
|
|
AV *av = newAV();
|
|
{
|
|
SV *rv = newRV_noinc((SV*)av);
|
|
sv_setsv_mg(m->var(), rv);
|
|
SvREFCNT_dec(rv);
|
|
}
|
|
|
|
for(TQValueListIterator<int> it = valuelist->begin();
|
|
it != valuelist->end();
|
|
++it)
|
|
av_push(av, newSViv((int)*it));
|
|
if(m->cleanup())
|
|
delete valuelist;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
void marshall_voidP(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV *sv = m->var();
|
|
if(SvROK(sv) && SvRV(sv) && SvOK(SvRV(sv)))
|
|
m->item().s_voidp = (void*)SvIV(SvRV(m->var()));
|
|
else
|
|
m->item().s_voidp = 0;
|
|
}
|
|
break;
|
|
case Marshall::ToSV:
|
|
{
|
|
SV *sv = newSViv((IV)m->item().s_voidp);
|
|
SV *rv = newRV_noinc(sv);
|
|
sv_setsv_mg(m->var(), rv);
|
|
SvREFCNT_dec(rv);
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
void marshall_TQRgb_array(Marshall *m) {
|
|
switch(m->action()) {
|
|
case Marshall::FromSV:
|
|
{
|
|
SV* sv = m->var();
|
|
TQRgb* s = 0;
|
|
MAGIC* mg = 0;
|
|
if( SvOK(sv) && SvTYPE(sv) == SVt_PVMG && (mg = mg_find(sv, PERL_MAGIC_tiedscalar))
|
|
&& sv_derived_from(mg->mg_obj, "TQt::_internal::TQRgbStar") ) {
|
|
s = (TQRgb*)SvIV((SV*)SvRV(mg->mg_obj));
|
|
} else if(!SvROK(sv) || SvREADONLY(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV ||
|
|
av_len((AV*)SvRV(sv)) < 0) {
|
|
m->item().s_voidp = 0;
|
|
break;
|
|
} else {
|
|
AV *list = (AV*)SvRV(sv);
|
|
int count = av_len(list);
|
|
s = new TQRgb[count + 2];
|
|
int i;
|
|
for(i = 0; i <= count; i++) {
|
|
SV **item = av_fetch(list, i, 0);
|
|
if(!item || !SvOK(*item)) {
|
|
s[i] = 0;
|
|
continue;
|
|
}
|
|
s[i] = SvIV(*item);
|
|
}
|
|
s[i] = 0;
|
|
SV* rv = newSV(0);
|
|
sv_setref_pv(rv, "TQt::_internal::TQRgbStar", (void*)s);
|
|
sv_magic(sv, rv, PERL_MAGIC_tiedscalar, Nullch, 0);
|
|
}
|
|
m->item().s_voidp = s;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
// Templated classes marshallers
|
|
|
|
#define GET_PERL_OBJECT( CCLASS, PCLASS, IS_STACK ) \
|
|
SV *sv = getPointerObject((void*)t); \
|
|
SV *ret= newSV(0); \
|
|
if(!sv || !SvROK(sv)){ \
|
|
HV *hv = newHV(); \
|
|
SV *obj = newRV_noinc((SV*)hv); \
|
|
\
|
|
smokeperl_object o; \
|
|
o.smoke = m->smoke(); \
|
|
o.classId = ix; \
|
|
o.ptr = (void*)t; \
|
|
o.allocated = IS_STACK; \
|
|
\
|
|
sv_bless(obj, gv_stashpv( PCLASS, TRUE)); \
|
|
\
|
|
if(m->type().isConst() && m->type().isRef()) { \
|
|
void* p = construct_copy( &o ); \
|
|
if(p) { \
|
|
o.ptr = p; \
|
|
o.allocated = true; \
|
|
} \
|
|
} \
|
|
sv_magic((SV*)hv, sv_qapp, '~', (char*)&o, sizeof(o)); \
|
|
MAGIC *mg = mg_find((SV*)hv, '~'); \
|
|
mg->mg_virtual = &vtbl_smoke; \
|
|
\
|
|
sv_setsv_mg(ret, obj); \
|
|
SvREFCNT_dec(obj); \
|
|
} \
|
|
else \
|
|
sv_setsv_mg(ret, sv);
|
|
|
|
|
|
|
|
|
|
|
|
#define MARSHALL_TQPTRLIST( FNAME, TMPLNAME, CCLASSNAME, PCLASSNAME, IS_STACK ) \
|
|
static void marshall_ ## FNAME (Marshall *m) { \
|
|
switch(m->action()) { \
|
|
case Marshall::FromSV: \
|
|
{ \
|
|
SV *sv = m->var(); \
|
|
if(!SvROK(sv) || SvTYPE(SvRV(sv)) != SVt_PVAV || \
|
|
av_len((AV*)SvRV(sv)) < 0) { \
|
|
if(m->type().isRef()) { \
|
|
warn("References can't be null or undef\n"); \
|
|
m->unsupported(); \
|
|
} \
|
|
m->item().s_voidp = 0; \
|
|
break; \
|
|
} \
|
|
AV *list = (AV*)SvRV(sv); \
|
|
int count = av_len(list); \
|
|
TMPLNAME *ptrlist = new TMPLNAME; \
|
|
int i; \
|
|
for(i = 0; i <= count; i++) { \
|
|
SV **item = av_fetch(list, i, 0); \
|
|
if(!item || !SvROK(*item) || SvTYPE(SvRV(*item)) != SVt_PVHV) \
|
|
continue; \
|
|
smokeperl_object *o = sv_obj_info(*item); \
|
|
if(!o || !o->ptr) \
|
|
continue; \
|
|
void *ptr = o->ptr; \
|
|
ptr = o->smoke->cast( \
|
|
ptr, \
|
|
o->classId, \
|
|
o->smoke->idClass( #CCLASSNAME ) \
|
|
); \
|
|
\
|
|
ptrlist->append( ( CCLASSNAME *) ptr); \
|
|
} \
|
|
\
|
|
m->item().s_voidp = ptrlist; \
|
|
m->next(); \
|
|
\
|
|
if(m->cleanup()) { \
|
|
av_clear(list); \
|
|
int ix = m->smoke()->idClass( #CCLASSNAME ); \
|
|
for( CCLASSNAME *t = ptrlist->first(); t ; t = ptrlist->next()){ \
|
|
GET_PERL_OBJECT( CCLASSNAME, PCLASSNAME, IS_STACK ) \
|
|
av_push(list, ret); \
|
|
} \
|
|
delete ptrlist; \
|
|
} \
|
|
} \
|
|
break; \
|
|
case Marshall::ToSV: \
|
|
{ \
|
|
TMPLNAME *list = ( TMPLNAME *)m->item().s_voidp; \
|
|
if(!list) { \
|
|
sv_setsv_mg(m->var(), &PL_sv_undef); \
|
|
break; \
|
|
} \
|
|
\
|
|
AV *av = newAV(); \
|
|
{ \
|
|
SV *rv = newRV_noinc((SV*)av); \
|
|
sv_setsv_mg(m->var(), rv); \
|
|
SvREFCNT_dec(rv); \
|
|
} \
|
|
int ix = m->smoke()->idClass( #CCLASSNAME ); \
|
|
for( CCLASSNAME *t = list->first(); t ; t = list->next()){ \
|
|
GET_PERL_OBJECT( CCLASSNAME, PCLASSNAME, IS_STACK ) \
|
|
av_push(av, ret); \
|
|
} \
|
|
if(m->cleanup()) \
|
|
delete list; \
|
|
} \
|
|
break; \
|
|
default: \
|
|
m->unsupported(); \
|
|
break; \
|
|
} \
|
|
}
|
|
|
|
MARSHALL_TQPTRLIST( TQPtrListTQNetworkOperation, TQPtrList<TQNetworkOperation>, TQNetworkOperation, " TQt::NetworkOperation", FALSE )
|
|
MARSHALL_TQPTRLIST( TQPtrListTQToolBar, TQPtrList<TQToolBar>, TQToolBar, " TQt::ToolBar", FALSE )
|
|
MARSHALL_TQPTRLIST( TQPtrListTQTab, TQPtrList<TQTab>, TQTab, " TQt::Tab", FALSE )
|
|
MARSHALL_TQPTRLIST( TQPtrListTQDockWindow, TQPtrList<TQDockWindow>, TQDockWindow, " TQt::DockWindow", FALSE )
|
|
MARSHALL_TQPTRLIST( TQWidgetList, TQWidgetList, TQWidget, " TQt::Widget", FALSE )
|
|
MARSHALL_TQPTRLIST( TQObjectList, TQObjectList, TQObject, " TQt::Object", FALSE )
|
|
MARSHALL_TQPTRLIST( TQFileInfoList, TQFileInfoList, TQFileInfo, " TQt::FileInfo", FALSE )
|
|
|
|
void marshall_TQCanvasItemList(Marshall *m) {
|
|
switch(m->action()) {
|
|
|
|
case Marshall::ToSV:
|
|
{
|
|
TQCanvasItemList *cilist = (TQCanvasItemList*)m->item().s_voidp;
|
|
if(!cilist) {
|
|
sv_setsv_mg(m->var(), &PL_sv_undef);
|
|
break;
|
|
}
|
|
|
|
AV *av = newAV();
|
|
{
|
|
SV *rv = newRV_noinc((SV*)av);
|
|
sv_setsv_mg(m->var(), rv);
|
|
SvREFCNT_dec(rv);
|
|
}
|
|
|
|
int ix = m->smoke()->idClass( "TQCanvasItem" );
|
|
for(TQValueListIterator<TQCanvasItem*> it = cilist->begin();
|
|
it != cilist->end();
|
|
++it){
|
|
TQCanvasItem* t= *it;
|
|
GET_PERL_OBJECT( TQCanvasItem, " TQt::CanvasItem", FALSE )
|
|
av_push(av, ret);
|
|
}
|
|
if(m->cleanup())
|
|
delete cilist;
|
|
}
|
|
break;
|
|
default:
|
|
m->unsupported();
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
TypeHandler TQt_handlers[] = {
|
|
{ "TQString", marshall_TQString },
|
|
{ "TQString&", marshall_TQString },
|
|
{ "TQString*", marshall_TQString },
|
|
{ "const TQString", marshall_TQString },
|
|
{ "const TQString&", marshall_TQString },
|
|
{ "const TQString*", marshall_TQString },
|
|
{ "TQCString", marshall_TQCString },
|
|
{ "TQCString&", marshall_TQCString },
|
|
{ "TQCString*", marshall_TQCString },
|
|
{ "const TQCString", marshall_TQCString },
|
|
{ "const TQCString&", marshall_TQCString },
|
|
{ "const TQCString*", marshall_TQCString },
|
|
{ "TQStringList", marshall_TQStringList },
|
|
{ "TQStringList&", marshall_TQStringList },
|
|
{ "TQStringList*", marshall_TQStringList },
|
|
{ "int&", marshall_intR },
|
|
{ "int*", marshall_intR },
|
|
{ "bool&", marshall_boolR },
|
|
{ "bool*", marshall_boolR },
|
|
{ "char*", marshall_charP },
|
|
{ "const char*", marshall_charP },
|
|
{ "char**", marshall_charP_array },
|
|
{ "uchar*", marshall_ucharP },
|
|
{ "TQRgb*", marshall_TQRgb_array },
|
|
{ "TQUObject*", marshall_voidP },
|
|
{ "const TQCOORD*", marshall_TQCOORD_array },
|
|
{ "void", marshall_void },
|
|
{ "TQByteArray", marshall_TQByteArray },
|
|
{ "TQByteArray&", marshall_TQByteArray },
|
|
{ "TQByteArray*", marshall_TQByteArray },
|
|
{ "TQValueList<int>", marshall_TQValueListInt },
|
|
{ "TQValueList<int>*", marshall_TQValueListInt },
|
|
{ "TQValueList<int>&", marshall_TQValueListInt },
|
|
{ "TQCanvasItemList", marshall_TQCanvasItemList },
|
|
{ "TQCanvasItemList*", marshall_TQCanvasItemList },
|
|
{ "TQCanvasItemList&", marshall_TQCanvasItemList },
|
|
{ "TQWidgetList", marshall_TQWidgetList },
|
|
{ "TQWidgetList*", marshall_TQWidgetList },
|
|
{ "TQWidgetList&", marshall_TQWidgetList },
|
|
{ "TQObjectList", marshall_TQObjectList },
|
|
{ "TQObjectList*", marshall_TQObjectList },
|
|
{ "TQObjectList&", marshall_TQObjectList },
|
|
{ "TQFileInfoList", marshall_TQFileInfoList },
|
|
{ "TQFileInfoList*", marshall_TQFileInfoList },
|
|
{ "TQFileInfoList&", marshall_TQFileInfoList },
|
|
{ "TQPtrList<TQToolBar>", marshall_TQPtrListTQToolBar },
|
|
{ "TQPtrList<TQToolBar>*", marshall_TQPtrListTQToolBar },
|
|
{ "TQPtrList<TQToolBar>&", marshall_TQPtrListTQToolBar },
|
|
{ "TQPtrList<TQTab>", marshall_TQPtrListTQTab },
|
|
{ "TQPtrList<TQTab>*", marshall_TQPtrListTQTab },
|
|
{ "TQPtrList<TQTab>&", marshall_TQPtrListTQTab },
|
|
{ "TQPtrList<TQDockWindow>", marshall_TQPtrListTQDockWindow },
|
|
{ "TQPtrList<TQDockWindow>*", marshall_TQPtrListTQDockWindow },
|
|
{ "TQPtrList<TQDockWindow>&", marshall_TQPtrListTQDockWindow },
|
|
{ "TQPtrList<TQNetworkOperation>", marshall_TQPtrListTQNetworkOperation },
|
|
{ "TQPtrList<TQNetworkOperation>*", marshall_TQPtrListTQNetworkOperation },
|
|
{ "TQPtrList<TQNetworkOperation>&", marshall_TQPtrListTQNetworkOperation },
|
|
{ 0, 0 }
|
|
};
|
|
|
|
static HV *type_handlers = 0;
|
|
|
|
void install_handlers(TypeHandler *h) {
|
|
if(!type_handlers) type_handlers = newHV();
|
|
while(h->name) {
|
|
hv_store(type_handlers, h->name, strlen(h->name), newSViv((IV)h), 0);
|
|
h++;
|
|
}
|
|
if(!dtorcache){
|
|
dtorcache = new TQIntDict<Smoke::Index>(113);
|
|
dtorcache->setAutoDelete(1);
|
|
}
|
|
if(!cctorcache) {
|
|
cctorcache = new TQIntDict<Smoke::Index>(113);
|
|
cctorcache->setAutoDelete(1);
|
|
}
|
|
}
|
|
|
|
Marshall::HandlerFn getMarshallFn(const SmokeType &type) {
|
|
if(type.elem())
|
|
return marshall_basetype;
|
|
if(!type.name())
|
|
return marshall_void;
|
|
if(!type_handlers) {
|
|
return marshall_unknown;
|
|
}
|
|
U32 len = strlen(type.name());
|
|
SV **svp = hv_fetch(type_handlers, type.name(), len, 0);
|
|
if(!svp && type.isConst() && len > 6)
|
|
svp = hv_fetch(type_handlers, type.name() + 6, len - 6, 0);
|
|
if(svp) {
|
|
TypeHandler *h = (TypeHandler*)SvIV(*svp);
|
|
return h->fn;
|
|
}
|
|
return marshall_unknown;
|
|
}
|