summaryrefslogtreecommitdiffstats
path: root/PerlTQt/handlers.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'PerlTQt/handlers.cpp')
-rw-r--r--PerlTQt/handlers.cpp1347
1 files changed, 1347 insertions, 0 deletions
diff --git a/PerlTQt/handlers.cpp b/PerlTQt/handlers.cpp
new file mode 100644
index 0000000..395298f
--- /dev/null
+++ b/PerlTQt/handlers.cpp
@@ -0,0 +1,1347 @@
+#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;
+}
generated by cgit v1.2.1 (git 2.18.0) at 2024-11-13 03:12:40 +0000