summaryrefslogtreecommitdiffstats
path: root/PerlQt/handlers.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'PerlQt/handlers.cpp')
-rw-r--r--PerlQt/handlers.cpp1347
1 files changed, 0 insertions, 1347 deletions
diff --git a/PerlQt/handlers.cpp b/PerlQt/handlers.cpp
deleted file mode 100644
index 395298f..0000000
--- a/PerlQt/handlers.cpp
+++ /dev/null
@@ -1,1347 +0,0 @@
-#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.3 (git 2.46.0) at 2025-10-11 15:58:26 +0000