/*

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

#define _include_jc_module_h_

#include "Heap.h"

#include "Code.h"

#include "Functions.h"

namespace ke {

class Module : public Object

{

    Barriered<FixedArray> functions_;

    Barriered<FixedArray> publics_;

    Barriered<FixedArray> natives_;

    void *nativeIdentity_;

  public:

    static Module *New(Zone *zone, unsigned nfunctions);

    Function *getFunction(size_t i) {

        return Function::cast(functions_->at(i));

    }

    void setFunction(Zone *zone, size_t i, Function *fun) {

        assert(!functions_->at(i));

        assert(fun);

        functions_->set(zone, i, fun);

    }

    FixedArray *publics() {

        return publics_;

    }

    FixedArray *natives() {

        return natives_;

    }

    void setPublics(Handle<FixedArray> publics) {

        publics_ = publics;

    }

    void setNatives(Handle<FixedArray> natives) {

        natives_ = natives;

    }

    void *nativeIdentity() {

        return nativeIdentity_;

    }

    void setNativeIdentity(void *identity) {

        nativeIdentity_ = identity;

    }

    // Begin GC Descriptor.

    static inline size_t offsetOfFunctions() {

        return offsetof(Module, functions_);

    }

    static inline size_t offsetOfPublics() {

        return offsetof(Module, publics_);

    }

    static inline size_t offsetOfNatives() {

        return offsetof(Module, natives_);

    }

    // End GC Descriptor.

    static inline Module *cast(Object *obj) {

        assert(!obj || obj->is(MapKind_Module));

        return reinterpret_cast<Module *>(obj);

    }

};

}

#endif // _include_jc_module_h_