/*

 * Copyright (C) 2012 David Anderson

 *

 * This file is part of JITCraft.

 *

 * JITCraft is free software: you can redistribute it and/or modify it under

 * the terms of the GNU General Public License as published by the Free

 * Software Foundation, either version 3 of the License, or (at your option)

 * any later version.

 * 

 * Foobar is distributed in the hope that it will be useful, but WITHOUT ANY

 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License along with

 * JITCraft. If not, see http://www.gnu.org/licenses/.

 */

#ifndef _include_jc_types_h_

#define _include_jc_types_h_

#include "StringPool.h"

#include "Heap.h"

#include "Barriers.h"

#include "FixedArray.h"

namespace jc {

enum PrimitiveType

{

    PrimitiveType_Int8,         // signed, 8-bit character

    PrimitiveType_Int32,        // signed, 32-bit integer

    PrimitiveType_Float,        // 32-bit IEEE-754 float

    PrimitiveType_Native,       // native-sized word

    PrimitiveTypes_Total

};

class Type : public Object

{

    enum Kind {

        PRIMITIVE,

        ARRAY,

        REFERENCE,

        FUNCTION,

        CHAR

    };

  private:

    Kind kind() {

        return kind_;

    }

  public:

    static const int UNKNOWN_SIZE = -1;

    static const size_t MAX_UNSAFE_ARRAY_DEPTH = 5;

    // :TODO: use handles

    static Type *NewPrimitive(Zone *zone, Name *tag);

    static Type *NewPrimitive(Zone *zone, PrimitiveType type);

    static Type *NewUnsafeArray(Zone *zone, Type *contained, int elements);

    static Type *NewReference(Zone *zone, Type *contained);

    static Type *NewFunction(Zone *zone, Type *returnType, FixedArray *parameters);

    static Type *cast(Object *obj) {

        assert(obj->is(MapKind_Type));

        return (Type *)obj;

    }

    bool isPrimitive() {

        return kind() == PRIMITIVE;

    }

    bool isArray() {

        return kind() == ARRAY;

    }

    bool isReference() {

        return kind() == REFERENCE;

    }

    bool isFunction() {

        return kind() == FUNCTION;

    }

    PrimitiveType primitive() {

        assert(isPrimitive());

        return primitive_;

    }

    Type *contained() {

        assert(isArray() || isReference());

        return Type::cast(contained_);

    }

    int elements() {

        assert(isArray());

        return elements_;

    }

    unsigned levels() {

        assert(isArray());

        return levels_;

    }

    Name *tag() {

        assert(isPrimitive());

        return tag_;

    }

    Type *innermost() {

        assert(isArray());

        Type *temp = contained();

        while (temp->isArray())

            temp = temp->contained();

        return temp;

    }

    bool isFloat() {

        return isPrimitive() && primitive() == PrimitiveType_Float;

    }

    bool isInt32() {

        return isPrimitive() && primitive() == PrimitiveType_Int32;

    }

    Type *returnType() {

        assert(isFunction());

        return returnType_;

    }

    FixedArray *parameters() {

        assert(isFunction());

        return parameters_;

    }

  private:

    Kind kind_;

    PrimitiveType primitive_;

    Name *tag_;

    // Arrays only.

    int32 elements_;

    unsigned levels_;

    // Arrays and references only.

    Barriered<Type> contained_;

    // Functions only.

    Barriered<Type> returnType_;

    Barriered<FixedArray> parameters_;

};

class BoxedPrimitive

{

    PrimitiveType type_;

    union {

        int i_;

    };

  public:

    static BoxedPrimitive Int(int i) {

        BoxedPrimitive b;

        b.type_ = PrimitiveType_Int32;

        b.i_ = i;

        return b;

    }

    PrimitiveType type() const {

        return type_;

    }

    int toInt() const {

        assert(type() == PrimitiveType_Int32);

        return i_;

    }

};

}

#endif // _include_jc_types_h_