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.
libtqt-perl/PerlTQt/handlers.cpp

1348 lines
42 KiB

#include <ntqstring.h>
#include <ntqregexp.h>
#include <ntqapplication.h>
#include <ntqmetaobject.h>
#include <ntqvaluelist.h>
#include <ntqwidgetlist.h>
#include <ntqcanvas.h>
#include <ntqobjectlist.h>
#include <ntqintdict.h>
#include <ntqtoolbar.h>
#include <ntqtabbar.h>
#include <ntqdir.h>
#include <ntqdockwindow.h>
#include <ntqnetworkprotocol.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 <ntqtextcodec.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;
}