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/callable.cpp

140 lines
4.2 KiB

/***************************************************************************
* callable.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 "callable.h"
#include "variant.h"
#include "dict.h"
#include "../main/krossconfig.h"
using namespace Kross::Api;
Callable::Callable(const TQString& name)
: Object()
, m_name(name)
{
}
Callable::~Callable()
{
}
const TQString Callable::getName() const
{
return m_name;
}
const TQString Callable::getClassName() const
{
return "Kross::Api::Callable";
}
bool Callable::hasChild(const TQString& name) const
{
return m_tqchildren.contains(name);
}
Object::Ptr Callable::getChild(const TQString& name) const
{
return m_tqchildren[name];
}
TQMap<TQString, Object::Ptr> Callable::getChildren() const
{
return m_tqchildren;
}
bool Callable::addChild(const TQString& name, Object* object)
{
#ifdef KROSS_API_OBJECT_ADDCHILD_DEBUG
krossdebug( TQString("Kross::Api::Callable::addChild() object.name='%1' object.classname='%2'")
.tqarg(name).tqarg(object->getClassName()) );
#endif
m_tqchildren.replace(name, Object::Ptr(object));
return true;
}
bool Callable::addChild(Callable* object)
{
return addChild(object->getName(), object);
}
void Callable::removeChild(const TQString& name)
{
#ifdef KROSS_API_OBJECT_REMCHILD_DEBUG
krossdebug( TQString("Kross::Api::Callable::removeChild() name='%1'").tqarg(name) );
#endif
m_tqchildren.remove(name);
}
void Callable::removeAllChildren()
{
#ifdef KROSS_API_OBJECT_REMCHILD_DEBUG
krossdebug( "Kross::Api::Callable::removeAllChildren()" );
#endif
m_tqchildren.clear();
}
Object::Ptr Callable::call(const TQString& name, List::Ptr args)
{
#ifdef KROSS_API_CALLABLE_CALL_DEBUG
krossdebug( TQString("Kross::Api::Callable::call() name=%1 getName()=%2 arguments=%3").tqarg(name).tqarg(getName()).tqarg(args ? args->toString() : TQString("")) );
#endif
if(name.isEmpty()) // return a self-reference if no functionname is defined.
return this;
// if name is defined try to get the matching child and pass the call to it.
Object::Ptr object = getChild(name);
if(object) {
//TODO handle namespace, e.g. "mychild1.mychild2.myfunction"
return object->call(name, args);
}
if(name == "get") {
TQString s = Variant::toString(args->item(0));
Object::Ptr obj = getChild(s);
if(! obj)
throw Exception::Ptr( new Exception(TQString("The object '%1' has no child object '%2'").tqarg(getName()).tqarg(s)) );
return obj;
}
else if(name == "has") {
return new Variant( hasChild( Variant::toString(args->item(0)) ) );
}
else if(name == "call") {
//TODO should we remove first args-item?
return Object::call(Variant::toString(args->item(0)), args);
}
else if(name == "list") {
TQStringList list;
TQMap<TQString, Object::Ptr> tqchildren = getChildren();
TQMap<TQString, Object::Ptr>::Iterator it( tqchildren.begin() );
for(; it != tqchildren.end(); ++it)
list.append( it.key() );
return new Variant(list);
}
else if(name == "dict") {
return new Dict( getChildren() );
}
// If there exists no such object return NULL.
krossdebug( TQString("Object '%1' has no callable object named '%2'.").tqarg(getName()).tqarg(name) );
return 0;
}