#include "runtime/universe.hpp"
#include "runtime/functionObject.hpp"
#include "runtime/module.hpp"
#include "runtime/interpreter.hpp"
#include "object/hiInteger.hpp"
#include "object/hiDouble.hpp"
#include "object/hiObject.hpp"
#include "object/hiString.hpp"
#include "object/hiList.hpp"
#include "object/hiDict.hpp"
#include "memory/oopClosure.hpp"
#include "memory/heap.hpp"

HiObject* Universe::HiTrue = NULL;
HiObject* Universe::HiFalse = NULL;
HiObject* Universe::HiNone = NULL;

Heap* Universe::heap = NULL;
CodeObject* Universe::main_code = NULL;

HiObject* Universe::stop_iteration = NULL;
ArrayList<Klass*>* Universe::klasses = NULL;

void Universe::genesis() {
 heap = Heap::get_instance();
 klasses = new ArrayList<Klass*>();

 HiTrue = new HiString("True");
 HiFalse = new HiString("False");
 HiNone = new HiString("None");

 Klass* object_klass = ObjectKlass::get_instance();
 Klass* type_klass = TypeKlass::get_instance();

 HiTypeObject* tp_obj = new HiTypeObject();
 tp_obj->set_own_klass(type_klass);

 HiTypeObject* obj_obj = new HiTypeObject();
 obj_obj->set_own_klass(object_klass);

 type_klass->add_super(object_klass);
 // do nothing for object klass
 //object_klass->add_super(NULL);

 IntegerKlass::get_instance()->initialize();
 DoubleKlass::get_instance()->initialize();
 StringKlass::get_instance()->initialize();
 DictKlass::get_instance()->initialize();
 ListKlass::get_instance()->initialize();
 ModuleKlass::get_instance()->initialize();

 type_klass->set_klass_dict(new HiDict());
 object_klass->set_klass_dict(new HiDict());

 type_klass->set_name(new HiString("type"));
 object_klass->set_name(new HiString("object"));

 IntegerKlass::get_instance()->order_supers();
 DoubleKlass::get_instance()->order_supers();
 StringKlass::get_instance()->order_supers();
 DictKlass::get_instance()->order_supers();
 ListKlass::get_instance()->order_supers();
 type_klass->order_supers();

 FunctionKlass::get_instance()->order_supers();
 NativeFunctionKlass::get_instance()->order_supers();
 MethodKlass::get_instance()->order_supers();

 ModuleKlass::get_instance()->order_supers();

 Interpreter::get_instance()->initialize();
}

void Universe::destroy() {
}

void Universe::oops_do(OopClosure* closure) {
 closure->do_oop((HiObject**)&HiTrue);
 closure->do_oop((HiObject**)&HiFalse);
 closure->do_oop((HiObject**)&HiNone);
 closure->do_oop((HiObject**)&stop_iteration);

 closure->do_oop((HiObject**)&main_code);
 closure->do_array_list(&klasses);
}