//
// Created by Kosho on 0000年8月14日.
//

#include <stdio.h>

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

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());
}

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

 return instance;
}

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

void IntegerKlass::print(HiObject *obj) {
 HiInteger *int_obj = (HiInteger *) obj;

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

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

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());
}

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
}