#include "class.h"


#include "rucy.h"


using namespace Rucy;


static Class cBase, cSub, cSimpleObj;

RUCY_WRAPPER_VALUE_FROM_TO(Base,      cBase)
RUCY_WRAPPER_VALUE_FROM_TO(Sub,       cSub)
RUCY_WRAPPER_VALUE_FROM_TO(SimpleObj, cSimpleObj)

template <typename T> Class get_class ();

template <> Class get_class<Base> () {return cBase;}

template <> Class get_class<Sub> () {return cSub;}


template <typename T>
class RubyBase : public ClassWrapper<T>
{

	public:

		RUCY_OVERRIDE_BEGIN(ClassWrapper<T>)

		RUCY_OVERRIDE_ID(name_overridable_faster)

		RUCY_OVERRIDE_END

		virtual const char* name_overridable () const
		{
			RUCY_SYM(name_overridable);
			return this->value.call(name_overridable).c_str();
		}

		virtual const char* name_overridable_faster () const
		{
			RUCY_SYM(name_overridable_faster);
			if (RUCY_IS_OVERRIDDEN(name_overridable_faster, get_class<T>()))
				return this->value.call(name_overridable_faster).c_str();
			else
				return Super::name_overridable_faster();
		}

		bool is_name_overridable_faster_overridden () const
		{
			RUCY_SYM(name_overridable_faster);
			return RUCY_IS_OVERRIDDEN(name_overridable_faster, get_class<T>());
		}

};// RubyBase


#define THIS(type)           to<type*>(self)

#define CHECK(type)          RUCY_CHECK_OBJ(type, c##type, self)

#define CALL(type, obj, fun) RUCY_WRAPPER_CALL(type, obj, fun)


/*
	alloc function.
*/
static
RUCY_DEF_ALLOC(base_alloc, klass)
{
	return value(new RubyBase<Base>, klass);
}
RUCY_END

static
RUCY_DEF0(name)
{
	CHECK(Base);
	return value(THIS(Base)->name());
}
RUCY_END

static
RUCY_DEF0(call_name)
{
	CHECK(Base);
	return value(THIS(Base)->name());
}
RUCY_END

static
RUCY_DEF0(base_name_overridable)
{
	CHECK(Base);
	return value(CALL(Base, THIS(Base), name_overridable()));
}
RUCY_END

static
RUCY_DEF0(call_name_overridable)
{
	CHECK(Base);
	return value(THIS(Base)->name_overridable());
}
RUCY_END

static
RUCY_DEF0(base_name_overridable_faster)
{
	CHECK(Base);
	return value(CALL(Base, THIS(Base), name_overridable_faster()));
}
RUCY_END

static
RUCY_DEF0(call_name_overridable_faster)
{
	CHECK(Base);
	return value(THIS(Base)->name_overridable_faster());
}
RUCY_END

template <typename T>
static
RUCY_DEF0(is_name_overridable_faster_overridden)
{
	RUCY_CHECK_OBJ(T, get_class<T>(), self);
	RubyBase<T>* obj = dynamic_cast<RubyBase<T>*>(THIS(T));
	if (!obj) invalid_object_error(__FILE__, __LINE__, "dynamic_cast() failed.");
	return value(obj->is_name_overridable_faster_overridden());
}
RUCY_END

static RUCY_DEF_clear_override_flags(Base_clear_override_flags, Base, cBase);
static RUCY_DEF_clear_override_flags(Sub_clear_override_flags,  Sub,  cSub);

static
RUCY_DEF0(base_new_raw)
{
	return value(new Base);
}
RUCY_END


/*
	alloc function.
*/
static
RUCY_DEF_ALLOC(sub_alloc, klass)
{
	return value(new RubyBase<Sub>, klass);
}
RUCY_END

static
RUCY_DEF0(sub_name_overridable)
{
	CHECK(Sub);
	return value(CALL(Sub, THIS(Sub), name_overridable()));
}
RUCY_END

static
RUCY_DEF0(sub_name_overridable_faster)
{
	CHECK(Sub);
	return value(CALL(Sub, THIS(Sub), name_overridable_faster()));
}
RUCY_END

static
RUCY_DEF0(sub_new_raw)
{
	return value(new Sub);
}
RUCY_END


/*
	alloc function.
*/
static
RUCY_DEF_ALLOC(simpleobj_alloc, klass)
{
	return value(new ClassWrapper<SimpleObj>, klass);
}
RUCY_END

static
RUCY_DEF1(simpleobj_initialize, name)
{
	CHECK(SimpleObj);
	THIS(SimpleObj)->init(name.c_str());
}
RUCY_END

static std::vector<Xot::Ref<SimpleObj> > simpleobj_refs;

static
RUCY_DEF1(simpleobj_set_refs, objs)
{
	int size = objs.size();
	for (int i = 0; i < size; ++i)
		simpleobj_refs.push_back(to<SimpleObj*>(objs[i]));
	return objs;
}
RUCY_END

static
RUCY_DEF0(simpleobj_clear_refs)
{
	simpleobj_refs.clear();
}
RUCY_END


void
Init_class ()
{
	Module mRucy   =       define_module("Rucy");
	Module mTester = mRucy.define_module("Tester");

	cBase = mTester.define_class("Base");
	cBase.define_alloc_func(base_alloc);
	cBase.define_method(     "name",                         name);
	cBase.define_method(     "name_overridable",        base_name_overridable);
	cBase.define_method(     "name_overridable_faster", base_name_overridable_faster);
	cBase.define_method("call_name",                    call_name);
	cBase.define_method("call_name_overridable",        call_name_overridable);
	cBase.define_method("call_name_overridable_faster", call_name_overridable_faster);
	cBase.define_method(
		"is_name_overridable_faster_overridden",
		 is_name_overridable_faster_overridden<Base>);
	cBase.define_singleton_method("new_raw",            base_new_raw);
	cBase.define_clear_override_flags(Base_clear_override_flags);

	cSub = mTester.define_class("Sub", cBase);
	cSub.define_alloc_func(sub_alloc);
	cSub.define_method("name_overridable",        sub_name_overridable);
	cSub.define_method("name_overridable_faster", sub_name_overridable_faster);
	cSub.define_method(
		"is_name_overridable_faster_overridden",
		 is_name_overridable_faster_overridden<Sub>);
	cSub.define_singleton_method("new_raw",       sub_new_raw);
	cSub.define_clear_override_flags(Sub_clear_override_flags);

	cSimpleObj = mTester.define_class("SimpleObj");
	cSimpleObj.define_alloc_func(simpleobj_alloc);
	cSimpleObj.define_private_method("initialize", simpleobj_initialize);
	cSimpleObj.define_function("set_refs",   simpleobj_set_refs);
	cSimpleObj.define_function("clear_refs", simpleobj_clear_refs);
}