/* vim: set ts=4 sw=4 tw=99 et:

  *

  * 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/.

  */

 #include <stdlib.h>

 #include "Zone.h"

 #include "StringPool.h"

 #include "TypeManager.h"

 #include "GlobalRoots.h"

 #include "AllocatorPolicies.h"

 #include "Array.h"

 using namespace ke;

 Zone *ke::SingleThreadedZone;

 Zone::Zone()

   : stack_(thisFromCtor()),

     heap_(thisFromCtor()),

     types_(NULL),

     symbols_(NULL),

     globalRoots_(NULL),

     lastLocalRoot_(NULL),

     hasPendingException_(false),

     reporter_(NULL)

 {

 }

 Zone::~Zone()

 {

     delete types_;

     delete symbols_;

     delete globalRoots_;

 }

 bool

 Zone::initialize()

 {

     if (!stack_.initialize())

         return false;

     if (!heap_.initialize())

         return false;

     symbols_ = new StringPool(this);

     if (!symbols_ || !symbols_->initialize())

         return false;

     globalRoots_ = new GlobalRoots(this);

     if (!globalRoots_ || !globalRoots_->initialize())

         return false;

     maps_[MapKind_Meta] = heap_.metaMap();

     if ((maps_[MapKind_Type] = allocateMap(MapKind_Type, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_FixedArray] = allocateMap(MapKind_FixedArray, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_ByteArray] = allocateMap(MapKind_ByteArray, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_Code] = allocateMap(MapKind_Code, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_Reference] = allocateMap(MapKind_Reference, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_MetaArray] = allocateMap(MapKind_MetaArray, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_MetaEnvironment] = allocateMap(MapKind_MetaEnvironment, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_Module] = allocateMap(MapKind_Module, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_Function] = allocateMap(MapKind_Function, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_String] = allocateMap(MapKind_String, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_Native] = allocateMap(MapKind_Native, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_FreeRegion] = allocateMap(MapKind_FreeRegion, sizeof(Map))) == NULL)

         return false;

     if ((maps_[MapKind_EnvironmentSlotDescriptorArray] =

          allocateMap(MapKind_EnvironmentSlotDescriptorArray, sizeof(Map))) == NULL)

     {

         return false;

     }

     types_ = new TypeManager(this);

     if (!types_ || !types_->initialize())

         return false;

     // Create the cached array maps for generic arrays. This is for the API

     // version of Invoke(), which needs to make arrays very quickly from C++.

     {

         // Generic "cell" array (contents do not matter, just non-gc things).

         Local<Type> type(this, types_->getPrimitive(PrimitiveType_Int32));

         if (!type)

             return false;

         type = types_->unsafeArray(type, Type::UNKNOWN_SIZE, false);

         if (!type)

             return false;

         Local<ArrayMap> contained(this);

         genericArrayMap_ = ArrayMap::New(this, type, contained);

         if (!genericArrayMap_)

             return false;

         type = types_->getPrimitive(PrimitiveType_Char);

         if (!type)

             return false;

         type = types_->unsafeArray(type, Type::UNKNOWN_SIZE, false);

         if (!type)

             return false;

         charArrayMap_ = ArrayMap::New(this, type, contained);

         if (!charArrayMap_)

             return false;

     }

     return true;

 }

 Map *

 Zone::allocateMap(MapKind kind, size_t bytes, MapKind parent)

 {

     assert(maps_[parent]);

     Map *map = heap_.allocateMap(kind, bytes);

     if (!map)

         return NULL;

     map->init(maps_[parent]);

     return map;

 }

 void

 Zone::accept(VirtualObjectVisitor *visitor)

 {

     for (unsigned i = 0; i < MapKinds_Total; i++)

         visitor->visit(maps_[i].address());

     visitor->visit(charArrayMap_.address());

     visitor->visit(genericArrayMap_.address());

     types()->accept(visitor);

     Local<Object> *local = lastLocalRoot_;

     while (local) {

         visitor->visit(local->address());

         local = local->prev();

     }

     globalRoots_->accept(visitor);

     rootScopes_.accept(visitor);

     stack_.accept(visitor);

 }

 String *

 Zone::makeSymbol(const char *str, size_t length)

 {

     return symbols_->add(str, length);

 }

 String *

 Zone::makeSymbol(const char *str)

 {

     return makeSymbol(str, strlen(str));

 }

 bool

 Zone::hasPendingException()

 {

     return hasPendingException_;

 }

 void

 Zone::reportOutOfMemory()

 {

 }

 void

 Zone::reportError(Message message, ...)

 {

     va_list ap;

     va_start(ap, message);

     reportErrorVA(message, ap);

     va_end(ap);

 }

 #if defined(_MSC_VER)

 # define VA_COPY(to, from)  to = from

 #else

 # define VA_COPY(to, from)  va_copy(to, from)

 #endif

 static char *

 BuildErrorMessage(const char *format, va_list ap)

 {

     va_list use;

     VA_COPY(use, ap);

     // We over-allocate and zero terminate ahead of time, since LIBCRT's

     // version of vsnprintf is screwy.

     size_t size = 255;

     char *buffer = (char *)calloc(size + 1, 1);

     if (!buffer)

         return NULL;

     for (;;) {

         int r = vsnprintf(buffer, size, format, use);

         if (r > -1 && size_t(r) < size)

             return buffer;

 #if defined(_MSC_VER)

         if (r < 0)

             size *= 2;

 #else

         if (r > -1)

             size = size_t(r) + 1;

         else

             size *= 2;

 #endif

         free(buffer);

         if ((buffer = (char *)calloc(size + 1, 1)) == NULL)

             return NULL;

         VA_COPY(use, ap);

     }

 }

 void

 Zone::reportErrorVA(Message message, va_list ap)

 {

     char *report = BuildErrorMessage(Messages[message].format, ap);

     if (!report) {

         reportOutOfMemory();

         return;

     }

     if (reporter_) {

         // Reporters can re-enter. When we start having actual exception

         // objects that can be caught and inspected, this code will have to

         // save and restore the exception state.

         reporter_->onUncaughtException(report);

     }

     hasPendingException_ = true;

     free(report);

 }

 void

 Zone::beginCompilationErrors(const char *file)

 {

     if (reporter_)

         reporter_->beginCompilationErrors(file);

 }

 void

 Zone::reportCompilationError(Message message, unsigned line, unsigned col, va_list ap)

 {

     char *report = BuildErrorMessage(Messages[message].format, ap);

     if (!report) {

         reportOutOfMemory();

         return;

     }

     if (reporter_) {

         // Reporters can re-enter. When we start having actual exception

         // objects that can be caught and inspected, this code will have to

         // save and restore the exception state.

         reporter_->reportCompilationError(report, line, col);

     }

     free(report);

 }

 void

 Zone::endCompilationErrors()

 {

     if (reporter_)

         reporter_->endCompilationErrors();

 }

 void

 Zone::installErrorReporter(Ke::IMessageReporter *reporter)

 {

     reporter_ = reporter;

 }

 void

 ZoneAllocatorPolicy::reportOutOfMemory()

 {

     ZONE()->reportOutOfMemory();

 }

 void

 ZoneAllocatorPolicy::reportAllocationOverflow()

 {

     ZONE()->reportError(Message_AllocationOverflow);

 }