/*

 * 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"

namespace jc {

enum PrimitiveType

{

    PrimitiveType_Int32,

    PrimitiveType_Float,

    PrimitiveTypes_Total

};

class Type : public GCObject

{

    enum Kind {

        PRIMITIVE,

        UNSAFE_ARRAY

    };

  private:

    void initPrimitive(Name *tag);

    void initInlineArray(Type *contained, int elements);

    Kind kind() {

        return (Kind)READ_FIELD(kind);

    }

  public:

    static const int UNKNOWN_SIZE = -1;

    static const size_t MAX_UNSAFE_ARRAY_DEPTH = 5;

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

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

    static Type *cast(Object *obj) {

        assert(obj->is(MapKind_Type));

        return (Type *)obj;

    }

    bool isPrimitive() {

        return kind() == PRIMITIVE;

    }

    bool isArray() {

        return isUnsafeArray();

    }

    bool isUnsafeArray() {

        return kind() == UNSAFE_ARRAY;

    }

    PrimitiveType primitive() {

        assert(isPrimitive());

        return (PrimitiveType)READ_FIELD(primitive);

    }

    Type *contained() {

        assert(isArray());

        return Type::cast(READ_FIELD_OBJ(contained));

    }

    int elements() {

        assert(isArray());

        return READ_FIELD(elements);

    }

    unsigned levels() {

        assert(isArray());

        return READ_FIELD(levels);

    }

    Name *tag() {

        assert(isPrimitive());

        return (Name *)READ_FIELD(tag);

    }

    Type *innermost() {

        assert(isArray());

        Type *temp = contained();

        while (temp->isArray())

            temp = temp->contained();

        return temp;

    }

    bool isFloat() {

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

    }

    bool isInt() {

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

    }

  private:

    OBJECT_FIELD(uint8, kind);

    // Primitives only.

    OBJECT_FIELD(uint8, primitive);

    OBJECT_FIELD(CrapPtr, tag);

    // Arrays only.

    OBJECT_FIELD(int32, elements);

    OBJECT_FIELD(uint32, levels);

    OBJECT_FIELD(Type *, contained);

};

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_