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.
koffice/lib/kross/api/qtobject.cpp

236 lines
8.4 KiB

/***************************************************************************
* qtobject.cpp
* This file is part of the KDE project
* copyright (C)2004-2005 by Sebastian Sauer (mail@dipe.org)
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
* You should have received a copy of the GNU Library General Public License
* along with this program; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
***************************************************************************/
#include "qtobject.h"
#include "object.h"
#include "variant.h"
#include "event.h"
#include "../main/manager.h"
#include "eventslot.h"
#include "eventsignal.h"
#include <tqobject.h>
#include <tqsignal.h>
//#include <tqglobal.h>
//#include <tqobjectdefs.h>
#include <tqmetaobject.h>
#include <tqucom_p.h> // for the TQt TQUObject API.
using namespace Kross::Api;
QtObject::QtObject(TQObject* object, const TQString& name)
: Kross::Api::Class<QtObject>(name.isEmpty() ? TQString(object->name()) : name)
, m_object(object)
{
// Walk through the signals and slots the TQObject has
// and attach them as events to this QtObject.
TQStrList slotnames = m_object->metaObject()->slotNames(false);
for(char* c = slotnames.first(); c; c = slotnames.next()) {
TQCString s = c;
addChild(s, new EventSlot(s, object, s) );
}
TQStrList signalnames = m_object->metaObject()->signalNames(false);
for(char* c = signalnames.first(); c; c = signalnames.next()) {
TQCString s = c;
addChild(s, new EventSignal(s, object, s) );
}
// Add functions to wrap TQObject methods into callable
// Kross objects.
addFunction("propertyNames", &QtObject::propertyNames);
addFunction("hasProperty", &QtObject::hasProperty);
addFunction("getProperty", &QtObject::getProperty);
addFunction("setProperty", &QtObject::setProperty);
addFunction("slotNames", &QtObject::slotNames);
addFunction("hasSlot", &QtObject::hasSlot);
addFunction("slot", &QtObject::callSlot);
addFunction("signalNames", &QtObject::signalNames);
addFunction("hasSignal", &QtObject::hasSignal);
addFunction("signal", &QtObject::emitSignal);
addFunction("connect", &QtObject::connectSignal);
addFunction("disconnect", &QtObject::disconnectSignal);
}
QtObject::~QtObject()
{
}
const TQString QtObject::getClassName() const
{
return "Kross::Api::QtObject";
}
TQObject* QtObject::getObject()
{
return m_object;
}
TQUObject* QtObject::toTQUObject(const TQString& signature, List::Ptr arguments)
{
int startpos = signature.find("(");
int endpos = signature.findRev(")");
if(startpos < 0 || startpos > endpos)
throw Exception::Ptr( new Exception(TQString("Invalid TQt signal or slot signature '%1'").arg(signature)) );
//TQString sig = signature.left(startpos);
TQString params = signature.mid(startpos + 1, endpos - startpos - 1);
TQStringList paramlist = TQStringList::split(",", params); // this will fail on something like myslot(TQMap<TQString,TQString> arg), but we don't care jet.
uint paramcount = paramlist.size();
// The first item in the TQUObject-array is for the returnvalue
// while everything >=1 are the passed parameters.
TQUObject* uo = new TQUObject[ paramcount + 1 ];
uo[0] = TQUObject(); // empty placeholder for the returnvalue.
//TQString t;
//for(int j=0; j<argcount; j++) t += "'" + Variant::toString(arguments->item(j)) + "' ";
//krossdebug( TQString("1 ---------------------: (%1) %2").arg(argcount).arg(t) );
// Fill parameters.
uint argcount = arguments ? arguments->count() : 0;
for(uint i = 0; i < paramcount; i++) {
if(paramlist[i].find(TQSTRING_OBJECT_NAME_STRING) >= 0) {
const TQString s = (argcount > i) ? Variant::toString(arguments->item(i)) : TQString();
//krossdebug(TQString("EventSlot::toTQUObject s=%1").arg(s));
static_TQUType_TQString.set( &(uo[i + 1]), s );
}
//TODO handle int, long, char*, TQStringList, etc.
else {
throw Exception::Ptr( new Exception(TQString("Unknown TQt signal or slot argument '%1' in signature '%2'.").arg(paramlist[i]).arg(signature)) );
}
}
return uo;
}
Kross::Api::Object::Ptr QtObject::propertyNames(Kross::Api::List::Ptr)
{
return new Kross::Api::Variant(
TQStringList::fromStrList(m_object->metaObject()->propertyNames(false)));
}
Kross::Api::Object::Ptr QtObject::hasProperty(Kross::Api::List::Ptr args)
{
return new Kross::Api::Variant(
m_object->metaObject()->findProperty(Kross::Api::Variant::toString(args->item(0)).latin1(), false));
}
Kross::Api::Object::Ptr QtObject::getProperty(Kross::Api::List::Ptr args)
{
TQVariant variant = m_object->property(Kross::Api::Variant::toString(args->item(0)).latin1());
if(variant.type() == TQVariant::Invalid)
return 0;
return new Kross::Api::Variant(variant);
}
Kross::Api::Object::Ptr QtObject::setProperty(Kross::Api::List::Ptr args)
{
return new Kross::Api::Variant(
m_object->setProperty(
Kross::Api::Variant::toString(args->item(0)).latin1(),
Kross::Api::Variant::toVariant(args->item(1))
));
}
Kross::Api::Object::Ptr QtObject::slotNames(Kross::Api::List::Ptr)
{
return new Kross::Api::Variant(
TQStringList::fromStrList(m_object->metaObject()->slotNames(false)));
}
Kross::Api::Object::Ptr QtObject::hasSlot(Kross::Api::List::Ptr args)
{
return new Kross::Api::Variant(
bool(m_object->metaObject()->slotNames(false).find(
Kross::Api::Variant::toString(args->item(0)).latin1()
) != -1));
}
Kross::Api::Object::Ptr QtObject::callSlot(Kross::Api::List::Ptr args)
{
//TODO just call the child event ?!
TQString name = Kross::Api::Variant::toString(args->item(0));
int slotid = m_object->metaObject()->findSlot(name.latin1(), false);
if(slotid < 0)
throw Exception::Ptr( new Exception(TQString("No such slot '%1'.").arg(name)) );
TQUObject* uo = QtObject::toTQUObject(name, args);
m_object->tqt_invoke(slotid, uo);
delete [] uo;
return new Variant( TQVariant(true,0) );
}
Kross::Api::Object::Ptr QtObject::signalNames(Kross::Api::List::Ptr)
{
return new Kross::Api::Variant(
TQStringList::fromStrList(m_object->metaObject()->signalNames(false)));
}
Kross::Api::Object::Ptr QtObject::hasSignal(Kross::Api::List::Ptr args)
{
return new Kross::Api::Variant(
bool(m_object->metaObject()->signalNames(false).find(
Kross::Api::Variant::toString(args->item(0)).latin1()
) != -1));
}
Kross::Api::Object::Ptr QtObject::emitSignal(Kross::Api::List::Ptr args)
{
TQString name = Kross::Api::Variant::toString(args->item(0));
int signalid = m_object->metaObject()->findSignal(name.latin1(), false);
if(signalid < 0)
throw Exception::Ptr( new Exception(TQString("No such signal '%1'.").arg(name)) );
m_object->tqt_invoke(signalid, 0); //TODO convert Kross::Api::List::Ptr => TQUObject*
return 0;
}
Kross::Api::Object::Ptr QtObject::connectSignal(Kross::Api::List::Ptr args)
{
TQString signalname = Kross::Api::Variant::toString(args->item(0));
TQString signalsignatur = TQString("2%1").arg(signalname);
const char* signalsig = signalsignatur.latin1();
QtObject* obj = Kross::Api::Object::fromObject<Kross::Api::QtObject>(args->item(1));
TQObject* o = obj->getObject();
if(! o)
throw Exception::Ptr( new Exception(TQString("No such TQObject receiver in '%1'.").arg(obj->getName())) );
TQString slotname = Kross::Api::Variant::toString(args->item(2));
TQString slotsignatur = TQString("1%1").arg(slotname);
const char* slotsig = slotsignatur.latin1();
return new Kross::Api::Variant(
TQObject::connect(m_object, signalsig, o, slotsig));
}
Kross::Api::Object::Ptr QtObject::disconnectSignal(Kross::Api::List::Ptr)
{
//TODO
return 0;
}