/***************************************************************************
 * 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;
}