#include "object/klass.hpp"
#include "object/hiDict.hpp"
#include "object/hiString.hpp"
#include "object/hiInteger.hpp"
#include "runtime/universe.hpp"

#include <stdio.h>

IntegerKlass* IntegerKlass::instance = NULL;

IntegerKlass::IntegerKlass()
{

}

void IntegerKlass::initialize() 
{
 set_klass_dict(new HiDict());
 set_name(new HiString("int"));
 (new HiTypeObject())->set_own_klass(this);
 add_super(ObjectKlass::get_instance());
}

HiInteger::HiInteger(int x) 
{
 _value = x;
 set_klass(IntegerKlass::get_instance());
}

IntegerKlass* IntegerKlass::get_instance() 
{
 if (instance == NULL) {
 instance = new IntegerKlass();
 }

 return instance;
}

void IntegerKlass::print(HiObject* obj)
{
 HiInteger* int_obj = (HiInteger*) obj;
 assert(int_obj && ((char *)int_obj->klass()) == ((char *)this));

 printf("%d", int_obj->value());
}

HiObject* IntegerKlass::allocate_instance(HiObject* callable, ArrayList<HiObject*>* args)
{
 if (!args || args->length() == 0) {
 return new HiInteger(0);
 } else {
 return NULL;
 }
}

size_t IntegerKlass::size()
{
 return sizeof(HiInteger);
}

void IntegerKlass::oops_do(OopClosure* f, HiObject* obj)
{
 // do nothing
 // only overwrite warning message in Klass
}

HiObject* IntegerKlass::greater(HiObject* x, HiObject* y) 
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 if (ix->value() > iy->value()) {
 return Universe::HiTrue;
 } else {
 return Universe::HiFalse;
 }
}

HiObject* IntegerKlass::less(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 assert(ix && (ix->klass() == (Klass *)this));

 if (x->klass() != y->klass()) {
 if (Klass::compare_klass(x->klass(), y->klass()) < 0) {
 return Universe::HiTrue;
 } else {
 return Universe::HiFalse;
 }
 }

 HiInteger* iy = (HiInteger*)y;
 assert(iy && (iy->klass() == (Klass *)this));

 if (ix->value() < iy->value()) {
 return Universe::HiTrue;
 } else {
 return Universe::HiFalse;
 }
}

HiObject* IntegerKlass::equal(HiObject* x, HiObject* y)
{
 if (x->klass() != y->klass()) {
 return Universe::HiFalse;
 }

 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 if (ix->value() == iy->value()) {
 return Universe::HiTrue;
 } else {
 return Universe::HiFalse;
 }
}

HiObject* IntegerKlass::not_equal(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 if (ix->value() != iy->value()) {
 return Universe::HiTrue;
 } else {
 return Universe::HiFalse;
 }
}

HiObject* IntegerKlass::ge(HiObject* x, HiObject* y) 
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 if (ix->value() >= iy->value()) {
 return Universe::HiTrue;
 } else {
 return Universe::HiFalse;
 }
}

HiObject* IntegerKlass::le(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 if (ix->value() <= iy->value()) {
 return Universe::HiTrue;
 } else {
 return Universe::HiFalse;
 }
}

HiObject* IntegerKlass::add(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 return new HiInteger(ix->value() + iy->value());
}

HiObject* IntegerKlass::sub(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 return new HiInteger(ix->value() - iy->value());
}

HiObject* IntegerKlass::mul(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));

 return new HiInteger(ix->value() * iy->value());
}

HiObject* IntegerKlass::div(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));
 assert(iy->value() != 0);

 return new HiInteger(ix->value() / iy->value());
}

HiObject* IntegerKlass::mod(HiObject* x, HiObject* y)
{
 HiInteger* ix = (HiInteger*) x;
 HiInteger* iy = (HiInteger*) y;

 assert(ix && (ix->klass() == (Klass *)this));
 assert(iy && (iy->klass() == (Klass *)this));
 assert(iy->value() != 0);

 return new HiInteger(ix->value() % iy->value());
}