//  (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.

#include <boost/python/module.hpp>
#include <boost/python/errors.hpp>

namespace boost { namespace python {

namespace {
  ref name_holder;
}

bool module_base::initializing()
{
    return name_holder.get() != 0;
}

string module_base::name()
{
    // If this fails, you haven't created a module object
    assert(initializing());
    return string(name_holder);
}

module_base::module_base(const char* name)
    : m_module(Py_InitModule(const_cast<char*>(name), initial_methods))
{
    // If this fails, you've created more than 1 module object in your module    
    assert(name_holder.get() == 0);
    name_holder = ref(PyObject_GetAttrString(m_module, const_cast<char*>("__name__")));
}

module_base::~module_base()
{
    name_holder.reset();
}

void module_base::add(PyObject* x, const char* name)
{
    add(ref(x), name);
}

void module_base::add(ref x, const char* name)
{
    ref f(x); // First take possession of the object.
    if (PyObject_SetAttrString(m_module, const_cast<char*>(name), x.get()) < 0)
        throw error_already_set();
}

void module_base::add(PyTypeObject* x, const char* name /*= 0*/)
{
    this->add((PyObject*)x, name ? name : x->tp_name);
}

void module_base::add_overload(objects::function* x, const char* name)
{
    PyObject* existing = PyObject_HasAttrString(m_module, const_cast<char*>(name))
        ? PyObject_GetAttrString(m_module, const_cast<char*>(name))
        : 0;
    
    if (existing != 0 && existing->ob_type == &objects::function_type)
    {
        static_cast<objects::function*>(existing)->add_overload(x);
    }
    else
    {
        add(x, name);
    }
}

PyMethodDef module_base::initial_methods[] = { { 0, 0, 0, 0 } };

}} // namespace boost::python