/*

 * Copyright (c) 2016-2017  Moddable Tech, Inc.

 *

 *   This file is part of the Moddable SDK Runtime.

 * 

 *   The Moddable SDK Runtime is free software: you can redistribute it and/or modify

 *   it under the terms of the GNU Lesser General Public License as published by

 *   the Free Software Foundation, either version 3 of the License, or

 *   (at your option) any later version.

 * 

 *   The Moddable SDK Runtime 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 Lesser General Public License for more details.

 * 

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

 *   along with the Moddable SDK Runtime.  If not, see <http://www.gnu.org/licenses/>.

 *

 * This file incorporates work covered by the following copyright and  

 * permission notice:  

 *

 *       Copyright (C) 2010-2016 Marvell International Ltd.

 *       Copyright (C) 2002-2010 Kinoma, Inc.

 *

 *       Licensed under the Apache License, Version 2.0 (the "License");

 *       you may not use this file except in compliance with the License.

 *       You may obtain a copy of the License at

 *

 *        http://www.apache.org/licenses/LICENSE-2.0

 *

 *       Unless required by applicable law or agreed to in writing, software

 *       distributed under the License is distributed on an "AS IS" BASIS,

 *       WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

 *       See the License for the specific language governing permissions and

 *       limitations under the License.

 */

#define _GNU_SOURCE

#include "xsAll.h"

#if mxMacOSX || mxLinux

#include <dlfcn.h>

#endif

static void fxBufferFunctionNameAddress(txMachine* the, txString buffer, txSize size, txID id, txCallback address, txID profileID);

static void fxBufferName(txString dst, txString src, txSize size);

txString fxAdornStringC(txMachine* the, txString prefix, txSlot* string, txString suffix)

{

  txSize stringSize = mxStringLength(string->value.string);

  txSize prefixSize = prefix ? mxStringLength(prefix) : 0;

  txSize suffixSize = suffix ? mxStringLength(suffix) : 0;

  txSize resultSize = fxAddChunkSizes(the, fxAddChunkSizes(the, fxAddChunkSizes(the, stringSize, prefixSize), suffixSize), 1);

  txString result = (txString)fxNewChunk(the, resultSize);

  if (prefix && prefixSize)

    c_memcpy(result, prefix, prefixSize);

  if (stringSize)

    c_memcpy(result + prefixSize, string->value.string, stringSize);

  if (suffix && suffixSize)

    c_memcpy(result + prefixSize + stringSize, suffix, suffixSize);

  result[prefixSize + stringSize + suffixSize] = 0;

  string->kind = XS_STRING_KIND;

  string->value.string = result;

  return result;

}

txSlot* fxArgToCallback(txMachine* the, txInteger argi)

{

  if (mxArgc > argi) {

    txSlot* slot = mxArgv(argi);

    if (slot->kind == XS_REFERENCE_KIND) {

      txSlot* instance = slot->value.reference;

again:

      if (instance) {

        txSlot* exotic = instance->next;

        if (exotic && (exotic->flag & XS_INTERNAL_FLAG)) {

          if (((exotic->kind == XS_CALLBACK_KIND) || (exotic->kind == XS_CALLBACK_X_KIND) || (exotic->kind == XS_CODE_KIND) || (exotic->kind == XS_CODE_X_KIND)))

            return slot;

          if (exotic->kind == XS_PROXY_KIND) {

            instance = exotic->value.proxy.target;

            goto again;

          }

        }

      }

    }

#if mxHostFunctionPrimitive

    if (slot->kind == XS_HOST_FUNCTION_KIND)

      return slot;

#endif

  }

  mxTypeError("callback: not a function");

  return C_NULL;

}

void fxBufferFrameName(txMachine* the, txString buffer, txSize size, txSlot* frame, txString suffix)

{

  txSlot* target = frame + 2; 

  txSlot* function = frame + 3; 

  txSlot* _this = frame + 4;

  if (function->kind == XS_REFERENCE_KIND) {

    function = function->value.reference;

    if (mxIsFunction(function)) {

      if (target->kind == XS_UNDEFINED_KIND) {

        txSlot* home = mxFunctionInstanceHome(function)->value.home.object;

        if (home) {

          if (mxIsFunction(home)) {

            fxBufferFunctionName(the, buffer, size, home, ".");

          }

          else {

            txSlot* constructor = mxBehaviorGetProperty(the, home, mxID(_constructor), 0, XS_OWN);

            if (constructor) {

              if (constructor->kind == XS_REFERENCE_KIND) {

                constructor = constructor->value.reference;

                if (mxIsFunction(constructor))

                  fxBufferFunctionName(the, buffer, size, constructor, ".prototype.");

              }

            }

            else if (_this->kind == XS_REFERENCE_KIND) {

              fxBufferObjectName(the, buffer, size, _this->value.reference, ".");

            }

          }

        }

      }

      fxBufferFunctionName(the, buffer, size, function, "");

    }

  }

#if mxHostFunctionPrimitive

  else if (function->kind == XS_HOST_FUNCTION_KIND) {

    fxBufferFunctionNameAddress(the, buffer, size, function->value.hostFunction.builder->id, function->value.hostFunction.builder->callback, function->value.hostFunction.profileID);

  }

#endif

  else

    c_strncat(buffer, "(host)", size - mxStringLength(buffer) - 1);

  c_strncat(buffer, suffix, size - mxStringLength(buffer) - 1);

}

void fxBufferFunctionName(txMachine* the, txString buffer, txSize size, txSlot* function, txString suffix)

{

  txSlot* slot = mxFunctionInstanceCode(function);

  txSlot* home = mxFunctionInstanceHome(function);

  if ((slot->kind == XS_CODE_KIND) || (slot->kind == XS_CODE_X_KIND))

    fxBufferFunctionNameAddress(the, buffer, size, slot->ID, C_NULL, home->ID);

  else

    fxBufferFunctionNameAddress(the, buffer, size, slot->ID, slot->value.callback.address, home->ID);

    c_strncat(buffer, suffix, size - mxStringLength(buffer) - 1);

}

void fxBufferFunctionNameAddress(txMachine* the, txString buffer, txSize size, txID id, txCallback address, txID profileID)

{

  txInteger length;

  if (id != XS_NO_ID) {

    txBoolean adorn;

    txString string = fxGetKeyString(the, id, &adorn);

    if (adorn)

      c_strncat(buffer, "[", size - mxStringLength(buffer) - 1);

    fxBufferName(buffer, string, size - mxStringLength(buffer) - 1);

    if (adorn)

      c_strncat(buffer, "]", size - mxStringLength(buffer) - 1);

    return;

  }

  if (address) {

    c_strncat(buffer, "@", size - mxStringLength(buffer) - 1);

#if mxMacOSX || mxLinux

    Dl_info info;

    if (dladdr(address, &info) && info.dli_sname)

      c_strncat(buffer, info.dli_sname, size - mxStringLength(buffer) - 1);

    else 

#endif

    {

      c_strncat(buffer, "anonymous-", size - mxStringLength(buffer) - 1);

      length = mxStringLength(buffer);

      fxIntegerToString(the, profileID, buffer + length, size - length - 1);

    }

  }

  else {

    c_strncat(buffer, "(anonymous-", size - mxStringLength(buffer) - 1);

    length = mxStringLength(buffer);

    fxIntegerToString(the, profileID, buffer + length, size - length - 1);

    c_strncat(buffer, ")", size - mxStringLength(buffer) - 1);

  }

}

void fxBufferObjectName(txMachine* the, txString buffer, txSize size, txSlot* object, txString suffix)

{

  txSlot* slot = mxBehaviorGetProperty(the, object, mxID(_Symbol_toStringTag), 0, XS_ANY);

  if (slot && ((slot->kind == XS_STRING_KIND) || (slot->kind == XS_STRING_X_KIND)) && !c_isEmpty(slot->value.string)) {

    fxBufferName(buffer, slot->value.string, size - mxStringLength(buffer) - 1);

    c_strncat(buffer, suffix, size - mxStringLength(buffer) - 1);

  }

}

void fxBufferName(txString dst, txString src, txSize size)

{

  dst += mxStringLength(dst);

  for (;;) {

    txInteger c;

    txSize length;

    src = mxStringByteDecode(src, &c);

    if (c == C_EOF)

      break;

    length = mxStringByteLength(c);

    if (length > size)

      break;

    dst = mxStringByteEncode(dst, c);

    size -= length;

  }

  *dst = 0;

}

txString fxConcatString(txMachine* the, txSlot* a, txSlot* b)

{

  txSize aSize = mxStringLength(a->value.string);

  txSize bSize = mxStringLength(b->value.string);

  txSize resultSize = fxAddChunkSizes(the, fxAddChunkSizes(the, aSize, bSize), 1);

  txString result = (txString)fxNewChunk(the, resultSize);

  c_memcpy(result, a->value.string, aSize);

  c_memcpy(result + aSize, b->value.string, bSize + 1);

  a->value.string = result;

  a->kind = XS_STRING_KIND;

  return result;

}

txString fxConcatStringC(txMachine* the, txSlot* a, txString b)

{

  txSize aSize = mxStringLength(a->value.string);

  txSize bSize = mxStringLength(b);

  txSize resultSize = fxAddChunkSizes(the, fxAddChunkSizes(the, aSize, bSize), 1);

  txString result = C_NULL;

  if (a->kind == XS_STRING_KIND)

    result = (txString)fxRenewChunk(the, a->value.string, resultSize);

  if (!result) {

    result = (txString)fxNewChunk(the, resultSize);

    c_memcpy(result, a->value.string, aSize);

    a->value.string = result;

    a->kind = XS_STRING_KIND;

  }

  c_memcpy(result + aSize, b, bSize + 1);

  return result;

}

txString fxCopyString(txMachine* the, txSlot* a, txSlot* b)

{

  txString result = b->value.string;

  a->value.string = result;

  a->kind = b->kind;

  return result;

}

txString fxCopyStringC(txMachine* the, txSlot* a, txString b)

{

  txSize bSize = mxStringLength(b);

  txSize resultSize = fxAddChunkSizes(the, bSize, 1);

  txString result = (txString)fxNewChunk(the, resultSize);

  c_memcpy(result, b, resultSize);

  a->value.string = result;

  a->kind = XS_STRING_KIND;

  return result;

}

txBoolean fxIsCanonicalIndex(txMachine* the, txID id)

{

  txSlot* key = fxGetKey(the, id);

  if (key->flag & XS_DONT_ENUM_FLAG) {

    txString string = key->value.key.string;

    char buffer[256], c;

    txNumber number;

    c = c_read8(string);

    if (('+' != c) && ('-' != c) && ('.' != c) && ('I' != c) && ('N' != c) && !(('0' <= c) && ('9' >= c)))

      return 0;

    number = fxStringToNumber(the, string, 1);

    if (number == -0)

      return 1;

    fxNumberToString(the, number, buffer, sizeof(buffer), 0, 0);

    if (!c_strcmp(string, buffer)) {

      return 1;

    }

  }

  return 0;

}

int fxStringGetter(void* theStream)

{

  txStringStream* aStream = (txStringStream*)theStream;

  int result = C_EOF;

  if (aStream->offset < aStream->size) {

    result = *(aStream->slot->value.string + aStream->offset);

    aStream->offset++;

  }

  return result;

}

int fxStringCGetter(void* theStream)

{

  txStringCStream* aStream = (txStringCStream*)theStream;

  int result = C_EOF;

  if (aStream->offset < aStream->size) {

    result = *(aStream->buffer + aStream->offset);

    aStream->offset++;

  }

  return result;

}

void fxJump(txMachine* the)

{

  txJump* aJump = the->firstJump;

  c_longjmp(aJump->buffer, 1);

}