//  (C) Copyright David Abrahams 2000. Permission to copy, use, modify, sell and
//  distribute this software is granted provided this copyright notice appears
//  in all copies. This software is provided "as is" without express or implied
//  warranty, and with no claim as to its suitability for any purpose.
//
//  The author gratefully acknowleges the support of Dragon Systems, Inc., in
//  producing this work.

#ifndef FUNCTIONS_DWA051400_H_
# define FUNCTIONS_DWA051400_H_

# include "pyconfig.h"
# include "wrap_python.h"
# include "pyptr.h"
# include "signatures.h"
# include "caller.h"
# include <boost/call_traits.hpp>
# include "objects.h"
# include "base_object.h"
# include <typeinfo>

namespace py {

class Function : public PythonObject
{
 public:
    Function();
    // Function objects are reasonably rare, so we guess we can afford a virtual table.
    // This cuts down on the number of distinct type objects which need to be defined.
    virtual ~Function() {}

    PyObject* call(PyObject* args, PyObject* keywords) const;
    static void add_to_namespace(PyPtr<Function> f, const char* name, PyObject* dict);
    
 private:
    virtual PyObject* do_call(PyObject* args, PyObject* keywords) const = 0;
    virtual const char* description() const = 0;
 private:
    struct TypeObject;
 private:
    PyPtr<Function> m_overloads;
};

template <class R, class F>
struct WrappedFunctionPointer : Function
{
	typedef F PtrFun; // pointer-to--function or pointer-to-member-function
	
	WrappedFunctionPointer(PtrFun pf)
        : m_pf(pf) {}

 private:
	PyObject* do_call(PyObject* args, PyObject* keywords) const
        { return Caller<R>::call(m_pf, args, keywords); }
    
    const char* description() const
        { return typeid(F).name(); }
    
 private:
	const PtrFun m_pf;
};

// A helper function for new_member_function(), below.  Implements the core
// functionality once the return type has already been deduced. R is expected to
// be Type<X>, where X is the actual return type of pmf.
template <class F, class R>
Function* new_wrapped_function_aux(R, F pmf)
{
    // We can't just use "typename R::Type" below because MSVC (incorrectly) pukes.
    typedef typename R::Type ReturnType;
    return new WrappedFunctionPointer<ReturnType, F>(pmf);
}

// Create and return a new member function object wrapping the given
// pointer-to-member function
template <class F>
inline Function* new_wrapped_function(F pmf)
{
    // Deduce the return type and pass it off to the helper function above
	return new_wrapped_function_aux(return_value(pmf), pmf);
}

// A function with a bundled "bound target" object. This is what is produced by
// the expression a.b where a is an Instance or ExtensionInstance object and b
// is a callable object not found in the instance namespace but on its class or
// a base class.
class BoundFunction : public PythonObject
{
 public:
    static Ptr create(Ptr target, Ptr fn);
    
    BoundFunction(Ptr target, Ptr fn);
    PyObject* call(PyObject*args, PyObject* keywords) const;
    
 private:
    struct TypeObject;
    friend struct TypeObject;
    
    Ptr m_target;
    Ptr m_unbound_function;
    
 private: // data members for allocation/deallocation optimization
    BoundFunction* m_free_list_link;

	static BoundFunction* free_list;
};

// Special functions designed to access data members of a wrapped C++ object.
template <class ClassType, class MemberType>
class GetterFunction : public Function
{
 public:
    typedef MemberType ClassType::* PointerToMember;
    
    GetterFunction(PointerToMember pm)
        : m_pm(pm) {}

 private:
    PyObject* do_call(PyObject* args, PyObject* keywords) const;
    
    const char* description() const
        { return typeid(MemberType (*)(const ClassType&)).name(); }
 private:
    PointerToMember m_pm;
};

template <class ClassType, class MemberType>
class SetterFunction : public Function
{
 public:
    typedef MemberType ClassType::* PointerToMember;
    
    SetterFunction(PointerToMember pm)
        : m_pm(pm) {}

 private:
    PyObject* do_call(PyObject* args, PyObject* keywords) const;
    
    const char* description() const
        { return typeid(void (*)(const ClassType&, const MemberType&)).name(); }
 private:
    PointerToMember m_pm;
};

template <class ClassType, class MemberType>
PyObject* GetterFunction<ClassType, MemberType>::do_call(
    PyObject* args, PyObject* /* keywords */) const
{
    PyObject* self;
    if (!PyArg_ParseTuple(args, const_cast<char*>("O"), &self))
        return 0;

    return to_python(
        from_python(self, Type<const ClassType*>())->*m_pm);
}

template <class ClassType, class MemberType>
PyObject* SetterFunction<ClassType, MemberType>::do_call(
    PyObject* args, PyObject* /* keywords */) const
{
    PyObject* self;
    PyObject* value;
    if (!PyArg_ParseTuple(args, const_cast<char*>("OO"), &self, &value))
        return 0;
    
    typedef typename boost::call_traits<MemberType>::const_reference ExtractType;
    from_python(self, Type<ClassType*>())->*m_pm
        = from_python(value, Type<ExtractType>());
    
    return none();
}

}

#endif // FUNCTIONS_DWA051400_H_