/*

 * Copyright (c) 2016-2025  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.

 */

#include "xsAll.h"

#ifndef mxCompile

static txSlot* fxBigIntCheck(txMachine* the, txSlot* it);

static txBigInt* fxIntegerToBigInt(txMachine* the, txSlot* slot);

static txBigInt* fxNumberToBigInt(txMachine* the, txSlot* slot);

static txBigInt* fxStringToBigInt(txMachine* the, txSlot* slot, txFlag whole);

#endif

#ifndef howmany

#define howmany(x, y) (((x) + (y) - 1) / (y))

#endif

#ifndef MAX

#define MAX(a, b) ((a) >= (b) ? (a) : (b))

#endif

#ifndef MIN

#define MIN(a, b) ((a) <= (b) ? (a) : (b))

#endif

const txU4 gxDataOne[1] = { 1 };

const txU4 gxDataZero[1] = { 0 };

const txBigInt gxBigIntNaN = { .sign=0, .size=0, .data=(txU4*)gxDataZero };

const txBigInt gxBigIntOne = { .sign=0, .size=1, .data=(txU4*)gxDataOne };

const txBigInt gxBigIntZero = { .sign=0, .size=1, .data=(txU4*)gxDataZero };

static txBigInt *fxBigInt_fit(txMachine* the, txBigInt *r);

#ifdef mxMetering

static void fxBigInt_meter(txMachine* the, int n);

#define mxBigInt_meter(N) if (the) fxBigInt_meter(the, N)

#else

#define mxBigInt_meter(N)

#endif

// BYTE CODE

#ifndef mxCompile

void fxBuildBigInt(txMachine* the)

{

  txSlot* slot;

  mxPush(mxObjectPrototype);

  slot = fxLastProperty(the, fxNewObjectInstance(the));

  slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_BigInt_prototype_toString), 0, mxID(_toLocaleString), XS_DONT_ENUM_FLAG);

  slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_BigInt_prototype_toString), 0, mxID(_toString), XS_DONT_ENUM_FLAG);

  slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_BigInt_prototype_valueOf), 0, mxID(_valueOf), XS_DONT_ENUM_FLAG);

  slot = fxNextStringXProperty(the, slot, "BigInt", mxID(_Symbol_toStringTag), XS_DONT_ENUM_FLAG | XS_DONT_SET_FLAG);

  mxBigIntPrototype = *the->stack;

  slot = fxBuildHostConstructor(the, mxCallback(fx_BigInt), 1, mxID(_BigInt));

  mxBigIntConstructor = *the->stack;

  slot = fxLastProperty(the, slot);

  slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_BigInt_asIntN), 2, mxID(_asIntN), XS_DONT_ENUM_FLAG);

  slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_BigInt_asUintN), 2, mxID(_asUintN), XS_DONT_ENUM_FLAG);

  slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_BigInt_bitLength), 1, mxID(_bitLength), XS_DONT_ENUM_FLAG);

  slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_BigInt_fromArrayBuffer), 1, mxID(_fromArrayBuffer), XS_DONT_ENUM_FLAG);

  mxPop();

}

void fx_BigInt(txMachine* the)

{

  if (mxTarget->kind != XS_UNDEFINED_KIND)

    mxTypeError("new: BigInt");

  if (mxArgc > 0)

    *mxResult = *mxArgv(0);

  fxToPrimitive(the, mxResult, XS_NUMBER_HINT);

  if (mxResult->kind == XS_NUMBER_KIND) {

    int fpclass = c_fpclassify(mxResult->value.number);

    txNumber check = c_trunc(mxResult->value.number);

    if ((fpclass != C_FP_NAN) && (fpclass != C_FP_INFINITE) && (mxResult->value.number == check))

      fxNumberToBigInt(the, mxResult);

    else

      mxRangeError("cannot coerce number to bigint");

  }

  else if (mxResult->kind == XS_INTEGER_KIND) {

    fxIntegerToBigInt(the, mxResult);

  }

  else

    fxToBigInt(the, mxResult, 1);

}

txNumber fx_BigInt_asAux(txMachine* the)

{

  txNumber value, index;

  if (mxArgc < 1)

    index = 0;

  else {

    if (mxArgv(0)->kind == XS_UNDEFINED_KIND)

      index = 0;

    else {

      value = fxToNumber(the, mxArgv(0));

      if (c_isnan(value))

        index = 0;

      else {

        value = c_trunc(value);

        if (value < 0)

          mxRangeError("index < 0");

        index = value;

        if (index <= 0)

          index = 0;

        else if (index > C_MAX_SAFE_INTEGER)

          index = C_MAX_SAFE_INTEGER;

        if (value != index)

          mxRangeError("invalid index");

      }

    }

  }

  if (mxArgc < 2)

    mxTypeError("no bigint");

  return index;

}

void fx_BigInt_asIntN(txMachine* the)

{

  txInteger index = (txInteger)fx_BigInt_asAux(the);

  txBigInt* arg = fxToBigInt(the, mxArgv(1), 1);

  txBigInt* result;

  if (fxBigInt_iszero(arg)) {

    result = fxBigInt_dup(the, arg);

  }

  else {

    txBigInt* bits = fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index);

    txBigInt* mask = fxBigInt_usub(the, C_NULL, bits, (txBigInt *)&gxBigIntOne);

    result = fxBigInt_uand(the, C_NULL, arg, mask);

    if ((arg->sign) && !fxBigInt_iszero(result))

      result = fxBigInt_usub(the, C_NULL, bits, result);

    if (index && fxBigInt_comp(result, fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index - 1)) >= 0)

      result = fxBigInt_sub(the, C_NULL, result, bits);

    result = fxBigInt_fit(the, result);

  }

  mxResult->value.bigint = *result;

  mxResult->kind = XS_BIGINT_KIND;

//  txBigInt* bits = fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index);

//  txBigInt* result = fxBigInt_mod(the, C_NULL, fxToBigInt(the, mxArgv(1), 1), bits);

//  if (index && fxBigInt_comp(result, fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index - 1)) >= 0)

//    result = fxBigInt_sub(the, C_NULL, result, bits);

//  mxResult->value.bigint = *result;

//  mxResult->kind = XS_BIGINT_KIND;

}

void fx_BigInt_asUintN(txMachine* the)

{

  txInteger index = (txInteger)fx_BigInt_asAux(the);

  txBigInt* arg = fxToBigInt(the, mxArgv(1), 1);

  txBigInt* result;

  if (fxBigInt_iszero(arg)) {

    result = fxBigInt_dup(the, arg);

  }

  else {

    txBigInt* bits = fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index);

    txBigInt* mask = fxBigInt_sub(the, C_NULL, bits, (txBigInt *)&gxBigIntOne);

    result = fxBigInt_uand(the, C_NULL, arg, mask);

    if ((arg->sign) && !fxBigInt_iszero(result))

      result = fxBigInt_usub(the, C_NULL, bits, result);

    result = fxBigInt_fit(the, result);

  }

  mxResult->value.bigint = *result;

  mxResult->kind = XS_BIGINT_KIND;

//  fxToBigInt(the, mxArgv(1), 1);

//  mxResult->value.bigint = *fxBigInt_mod(the, C_NULL, &mxArgv(1)->value.bigint, fxBigInt_ulsl1(the, C_NULL, (txBigInt *)&gxBigIntOne, index));

//  mxResult->kind = XS_BIGINT_KIND;

}

void fx_BigInt_bitLength(txMachine *the)

{

  txBigInt* arg = fxToBigInt(the, mxArgv(0), 1);

  mxResult->value.integer = fxBigInt_bitsize(arg);;

  mxResult->kind = XS_INTEGER_KIND;

}

void fx_BigInt_fromArrayBuffer(txMachine* the)

{

  txSlot* slot;

  txSlot* arrayBuffer = C_NULL;

  txSlot* bufferInfo;

  txBoolean sign = 0;

  int endian = EndianBig;

  txInteger length;

  txBigInt* bigint;

  txU1 *src, *dst;

  if (mxArgc < 1)

    mxTypeError("no argument");

  slot = mxArgv(0);

  if (slot->kind == XS_REFERENCE_KIND) {

    slot = slot->value.reference->next;

    if (slot && (slot->kind == XS_ARRAY_BUFFER_KIND))

      arrayBuffer = slot;

  }

  if (!arrayBuffer)

    mxTypeError("argument: not an ArrayBuffer instance");

  bufferInfo = arrayBuffer->next;

  length = bufferInfo->value.bufferInfo.length;

  if ((mxArgc > 1) && fxToBoolean(the, mxArgv(1)))

    sign = 1;

  if ((mxArgc > 2) && fxToBoolean(the, mxArgv(2)))

    endian = EndianLittle;

    if (sign)

        length--;

  if (length <= 0) {

    mxSyntaxError("argument: invalid ArrayBuffer instance");

//    mxResult->value.bigint = gxBigIntNaN;

//    mxResult->kind = XS_BIGINT_X_KIND;

    return;

  }

  bigint = fxBigInt_alloc(the, howmany(length, sizeof(txU4)));

  bigint->data[bigint->size - 1] = 0;

  src = (txU1*)(arrayBuffer->value.arrayBuffer.address);

  dst = (txU1*)(bigint->data);

  if (sign)

    bigint->sign = *src++;

#if mxBigEndian

  if (endian != EndianLittle) {

#else

  if (endian != EndianBig) {

#endif  

    c_memcpy(dst, src, length);

  }

  else {

    dst += length;

    while (length > 0) {

      dst--;

      *dst = *src;

      src++;

      length--;

    }

  }

  length = bigint->size - 1;

  while (length && (bigint->data[length] == 0))

    length--;

  bigint->size = length + 1;

  mxPullSlot(mxResult);

}

void fx_BigInt_prototype_toString(txMachine* the)

{

  txSlot* slot;

  txU4 radix;

  slot = fxBigIntCheck(the, mxThis);

  if (!slot) mxTypeError("this: not a bigint");

  if (mxArgc == 0)

    radix = 10;

  else if (mxIsUndefined(mxArgv(0)))

    radix = 10;

  else {

    radix = fxToInteger(the, mxArgv(0));

    if ((radix < 2) || (36 < radix))

      mxRangeError("invalid radix");

  }

  mxPushSlot(slot);

  fxBigintToString(the, the->stack, radix);

  mxPullSlot(mxResult);

}

void fx_BigInt_prototype_valueOf(txMachine* the)

{

  txSlot* slot = fxBigIntCheck(the, mxThis);

  if (!slot) mxTypeError("this: not a bigint");

  mxResult->kind = slot->kind;

  mxResult->value = slot->value;

}

void fxBigInt(txMachine* the, txSlot* slot, txU1 sign, txU2 size, txU4* data)

{

  txBigInt* bigint = fxBigInt_alloc(the, size);

  c_memcpy(bigint->data, data, size * sizeof(txU4));

  bigint->sign = sign;

  mxPullSlot(slot);

}

void fxBigIntX(txMachine* the, txSlot* slot, txU1 sign, txU2 size, txU4* data)

{

  slot->value.bigint.data = data;

  slot->value.bigint.size = size;

  slot->value.bigint.sign = sign;

  slot->kind = XS_BIGINT_X_KIND;

}

txSlot* fxBigIntCheck(txMachine* the, txSlot* it)

{

  txSlot* result = C_NULL;

  if ((it->kind == XS_BIGINT_KIND) || (it->kind == XS_BIGINT_X_KIND))

    result = it;

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

    txSlot* instance = it->value.reference;

    it = instance->next;

    if ((it) && (it->flag & XS_INTERNAL_FLAG) && ((it->kind == XS_BIGINT_KIND) || (it->kind == XS_BIGINT_X_KIND)))

      result = it;

  }

  return result;

}

void fxBigIntCoerce(txMachine* the, txSlot* slot)

{

  fxToBigInt(the, slot, 1);

}

txBoolean fxBigIntCompare(txMachine* the, txBoolean less, txBoolean equal, txBoolean more, txSlot* left, txSlot* right)

{

  int result;

  txNumber delta = 0;

  if (mxBigIntIsNaN(&left->value.bigint))

    return less & more & !equal;

  if (right->kind == XS_STRING_KIND)

    fxStringToBigInt(the, right, 1);

  if ((right->kind != XS_BIGINT_KIND) && (right->kind != XS_BIGINT_X_KIND)) {

    fxToNumber(the, right);

    result = c_fpclassify(right->value.number);

    if (result == C_FP_NAN)

      return less & more & !equal;

    if (result == C_FP_INFINITE)

      return (right->value.number > 0) ? less : more;

    delta = right->value.number - c_trunc(right->value.number);

    fxNumberToBigInt(the, right);

  }

  if (mxBigIntIsNaN(&right->value.bigint))

    return less & more & !equal;

  result = fxBigInt_comp(&left->value.bigint, &right->value.bigint);

  if (result < 0)

    return less;

    if (result > 0)

        return more;

  if (delta > 0)

    return less;

  if (delta < 0)

    return more;

  return equal;

}

void fxBigIntDecode(txMachine* the, txSize size)

{

  txBigInt* bigint;

  mxPushUndefined();

  bigint = &the->stack->value.bigint;

  bigint->data = fxNewChunk(the, size);

  bigint->size = size >> 2;

  bigint->sign = 0;

#if mxBigEndian

  {

    txS1* src = (txS1*)the->code;

    txS1* dst = (txS1*)bigint->data;

    while (size) {

      dst[3] = *src++;

      dst[2] = *src++;

      dst[1] = *src++;

      dst[0] = *src++;

      dst += 4;

      size--;

    }

  }

#else

  c_memcpy(bigint->data, the->code, size);

#endif  

  the->stack->kind = XS_BIGINT_KIND;

}

#endif  

void fxBigIntEncode(txByte* code, txBigInt* bigint, txSize size)

{

#if mxBigEndian

  {

    txS1* src = (txS1*)bigint->data;

    txS1* dst = (txS1*)code;

    while (size) {

      dst[3] = *src++;

      dst[2] = *src++;

      dst[1] = *src++;

      dst[0] = *src++;

      dst += 4;

      size--;

    }

  }

#else

  c_memcpy(code, bigint->data, size);

#endif

}

#ifndef mxCompile

txSlot* fxBigIntToInstance(txMachine* the, txSlot* slot)

{

  txSlot* instance;

  txSlot* internal;

  mxPush(mxBigIntPrototype);

  instance = fxNewObjectInstance(the);

  internal = instance->next = fxNewSlot(the);

  internal->flag = XS_INTERNAL_FLAG;

  internal->kind = slot->kind;

  internal->value = slot->value;

  if (the->frame->flag & XS_STRICT_FLAG)

    instance->flag |= XS_DONT_PATCH_FLAG;

  mxPullSlot(slot);

  return instance;

}

#endif

txSize fxBigIntMeasure(txBigInt* bigint)

{

  return bigint->size * sizeof(txU4);

}

txSize fxBigIntMaximum(txSize length)

{

  return sizeof(txU4) * (1 + (((txSize)c_ceil((txNumber)length * c_log(10) / c_log(2))) / 32));

}

txSize fxBigIntMaximumB(txSize length)

{

  return sizeof(txU4) * (1 + howmany(1, mxBigIntWordSize) + (length / 32));

}

txSize fxBigIntMaximumO(txSize length)

{

  return sizeof(txU4) * (1 + howmany(3, mxBigIntWordSize) + ((length * 3) / 32));

}

txSize fxBigIntMaximumX(txSize length)

{

  return sizeof(txU4) * (1 + howmany(4, mxBigIntWordSize) + ((length * 4) / 32));

}

void fxBigIntParse(txBigInt* bigint, txString p, txSize length, txInteger sign)

{

  txU4 data[1] = { 0 };

  txBigInt digit = { .sign=0, .size=1, .data=data };

  bigint->sign = 0;

  bigint->size = 1;

  bigint->data[0] = 0;

  while (length) {

    char c = *p++;

    data[0] = c - '0';

    fxBigInt_uadd(NULL, bigint, fxBigInt_umul1(NULL, bigint, bigint, 10), &digit);

    length--;

  }

  if ((bigint->size > 1) || (bigint->data[0] != 0))

    bigint->sign = sign;

}

void fxBigIntParseB(txBigInt* bigint, txString p, txSize length)

{

  txU4 data[1] = { 0 };

  txBigInt digit = { .sign=0, .size=1, .data=data };

  bigint->sign = 0;

  bigint->size = 1;

  bigint->data[0] = 0;

  while (length) {

    char c = *p++;

    data[0] = c - '0';

    fxBigInt_uadd(NULL, bigint, fxBigInt_ulsl1(NULL, bigint, bigint, 1), &digit);

    length--;

  }

}

void fxBigIntParseO(txBigInt* bigint, txString p, txSize length)

{

  txU4 data[1] = { 0 };

  txBigInt digit = { .sign=0, .size=1, .data=data };

  bigint->sign = 0;

  bigint->size = 1;

  bigint->data[0] = 0;

  while (length) {

    char c = *p++;

    data[0] = c - '0';

    fxBigInt_uadd(NULL, bigint, fxBigInt_ulsl1(NULL, bigint, bigint, 3), &digit);

    length--;

  }

}

void fxBigIntParseX(txBigInt* bigint, txString p, txSize length)

{

  txU4 data[1] = { 0 };

  txBigInt digit = { .sign=0, .size=1, .data=data };

  bigint->sign = 0;

  bigint->size = 1;

  bigint->data[0] = 0;

  while (length) {

    char c = *p++;

    if (('0' <= c) && (c <= '9'))

      data[0] = c - '0';

    else if (('a' <= c) && (c <= 'f'))

      data[0] = 10 + c - 'a';

    else

      data[0] = 10 + c - 'A';

    fxBigInt_uadd(NULL, bigint, fxBigInt_ulsl1(NULL, bigint, bigint, 4), &digit);

    length--;

  }

}

#ifndef mxCompile

void fxBigintToArrayBuffer(txMachine* the, txSlot* slot, txU4 total, txBoolean sign, int endian)

{

  txBigInt* bigint = fxToBigInt(the, slot, 1);

  txU4 length = howmany(fxBigInt_bitsize(bigint), 8);

  txU4 offset = 0;

  txU1 *src, *dst;

  if (length == 0)

    length = 1;

  if (length < total) {

    if (endian == EndianBig)

      offset = total - length;

  }

  else {

    total = length;

  }

  if (sign) {

    if (total >= 0x7FFFFFFF)

      mxRangeError("byteLength too big");

    offset++;

    total++;

  }

  fxConstructArrayBufferResult(the, mxThis, total);

  src = (txU1*)(bigint->data);

  dst = (txU1*)(mxResult->value.reference->next->value.arrayBuffer.address);

  if (sign)

    *dst = bigint->sign;

  dst += offset;

#if mxBigEndian

  if (endian != EndianLittle) {

#else

  if (endian != EndianBig) {

#endif  

    c_memcpy(dst, src, length);

  }

  else {

    src += length;

    while (length > 0) {

      src--;

      *dst = *src;

      dst++;

      length--;

    }

  }

}

txNumber fxBigIntToNumber(txMachine* the, txSlot* slot)

{

  txBigInt* bigint = &slot->value.bigint;

  txNumber base = 4294967296;

  txNumber number = 0;

  int i;

  for (i = bigint->size; --i >= 0;)

    number = (number * base) + bigint->data[i];

  if (bigint->sign)

    number = -number;

  slot->value.number = number;

  slot->kind = XS_NUMBER_KIND;

  return number;

}

typedef struct {

    uint32_t k;

    uint32_t base_to_k;

} BaseChunk32;

static const BaseChunk32 base_chunks32[] ICACHE_FLASH_ATTR = {

    {31, 0x80000000},

    {19, 1162261467},

    {15, 1073741824},

    {13, 1220703125},

    {12, 2176782336},

    {11, 1977326743},

    {10, 1073741824},

    {10, 3486784401},

    { 9, 1000000000},   // base 10

    { 8, 214358881},

    { 8, 429981696},

    { 7, 62748517},

    { 7, 105413504},

    { 7, 170859375},

    { 7, 268435456},

    { 6, 24137569},

    { 6, 34012224},

    { 6, 470427017},

    { 6, 64000000},

    { 6, 85766121},

    { 6, 113379904},

    { 6, 148035889},

    { 6, 191102976},

    { 5, 9765625},

    { 5, 11881376},

    { 5, 14348907},

    { 5, 17210368},

    { 5, 20537907},

    { 5, 24300000},

    { 5, 28430241},

    { 5, 32768000},

    { 5, 39135393},

    { 5, 45435424},

    { 5, 52521875},

    { 5, 60466176}

};

void fxBigintToString(txMachine* the, txSlot* slot, txU4 radix)

{

  static const char gxDigits[] ICACHE_FLASH_ATTR = "0123456789abcdefghijklmnopqrstuvwxyz";

  txSize length, offset;

  txSlot* result;

  txSlot* stack;

  if (0 == radix) radix = 10;

  const BaseChunk32 *bc = base_chunks32 + (radix - 2);

  if (mxBigIntIsNaN(&slot->value.bigint)) {

    fxStringX(the, slot, "NaN");

    return;

  }

  mxBigInt_meter(slot->value.bigint.size);

  mxPushUndefined();

  result = the->stack;

  mxPushSlot(slot);

  fxBigInt_dup(the, &the->stack->value.bigint);

  stack = the->stack;

  length = 1 + bc->k + (txSize)c_ceil((txNumber)(stack->value.bigint.size + 1) * 32 * c_log(2) / c_log(radix));

  if (stack->value.bigint.sign)

    length++;

  offset = length;

  result->value.string = fxNewChunk(the, length);

  result->kind = XS_STRING_KIND;

  result->value.string[--offset] = 0;

  int32_t nonZeroWords = stack->value.bigint.size;

  do {

    uint64_t carry = 0;

    for (uint32_t i = stack->value.bigint.size - 1, count = nonZeroWords, base_to_k = bc->base_to_k; count > 0; --count) {

      carry = (carry << 32) | stack->value.bigint.data[i];

      stack->value.bigint.data[i--] = (uint32_t)(carry / base_to_k);

      carry %= base_to_k;

    }

    uint32_t remainder = (uint32_t)carry, k = bc->k;

    do {

      result->value.string[--offset] = c_read8(gxDigits + (remainder % radix));

            remainder /= radix;

        } while (--k);

    while (nonZeroWords && (0 == stack->value.bigint.data[stack->value.bigint.size - nonZeroWords]))

      nonZeroWords -= 1;

  } while (nonZeroWords);

  while (('0' == result->value.string[offset]) && result->value.string[offset + 1])

    offset++;

  if (stack->value.bigint.sign)

    result->value.string[--offset] = '-';

  c_memmove(result->value.string, result->value.string + offset, length - offset);

  mxPop();

  mxPop();

  mxPullSlot(slot);

}

txS8 fxToBigInt64(txMachine* the, txSlot* slot)

{

  return (txS8)fxToBigUint64(the, slot);

}

txU8 fxToBigUint64(txMachine* the, txSlot* slot)

{

  txBigInt* bigint = fxToBigInt(the, slot, 1);

  txU8 result = bigint->data[0];

  if (bigint->size > 1)

    result |= (txU8)(bigint->data[1]) << 32;

  if (bigint->sign && result) {

    result--;

    result = 0xFFFFFFFFFFFFFFFFll - result;

  }

  return result;

}

txBigInt* fxIntegerToBigInt(txMachine* the, txSlot* slot)

{

  txInteger integer = slot->value.integer;

  txBigInt* bigint = &slot->value.bigint;

  txU1 sign = 0;

  if (integer < 0) {

    integer = -integer;

    sign = 1;

  }

  bigint->data = fxNewChunk(the, sizeof(txU4));

  bigint->data[0] = (txU4)integer;

  bigint->sign = sign;

  bigint->size = 1;

  slot->kind = XS_BIGINT_KIND;

  return bigint;

}

txBigInt* fxNumberToBigInt(txMachine* the, txSlot* slot)

{

  txBigInt* bigint = &slot->value.bigint;

  txNumber number = slot->value.number;

  txNumber limit = 4294967296;

  txU1 sign = 0;

  txU2 size = 1;

  if (number < 0) {

    number = -number;

    sign = 1;

  }

  while (number >= limit) {

    size++;

    number /= limit;

  }

  bigint->data = fxNewChunk(the, fxMultiplyChunkSizes(the, size, sizeof(txU4)));

  bigint->size = size;

  while (size > 0) {

    txU4 part = (txU4)number;

    number -= part;

    size--;

    bigint->data[size] = part;

    number *= limit;

  }

  bigint->sign = sign;

  slot->kind = XS_BIGINT_KIND;

  return bigint;

}

txBigInt* fxStringToBigInt(txMachine* the, txSlot* slot, txFlag whole)

{

  txString s = slot->value.string;

  txString p = fxSkipSpaces(s);

  txSize offset, length;

  txInteger sign = 0;

  txBigInt bigint = {.sign=0, .size=0, .data=C_NULL };

  char c = *p;

  if (c == '0') {

    char d = *(p + 1);

    if (whole && ((d == 'B') || (d == 'b') || (d == 'O') || (d == 'o') || (d == 'X') || (d == 'x'))) {

      p += 2;

      offset = mxPtrDiff(p - s);

      if ((d == 'B') || (d == 'b')) {

        while (((c = *p)) && ('0' <= c) && (c <= '1'))

          p++;

        length = mxPtrDiff(p - s - offset);

        p = fxSkipSpaces(p);

        if ((length > 0) && (*p == 0)) {

          bigint.data = fxNewChunk(the, fxBigIntMaximumB(length));

          fxBigIntParseB(&bigint, slot->value.string + offset, length);

        }

      }

      else if ((d == 'O') || (d == 'o')) {

        while (((c = *p)) && ('0' <= c) && (c <= '7'))

          p++;

        length = mxPtrDiff(p - s - offset);

        p = fxSkipSpaces(p);

        if ((length > 0) && (*p == 0)) {

          bigint.data = fxNewChunk(the, fxBigIntMaximumO(length));

          fxBigIntParseO(&bigint, slot->value.string + offset, length);

        }

      }

      else if ((d == 'X') || (d == 'x')) {

        while (((c = *p)) && ((('0' <= c) && (c <= '9')) || (('a' <= c) && (c <= 'f')) || (('A' <= c) && (c <= 'F'))))

          p++;

        length = mxPtrDiff(p - s - offset);

        p = fxSkipSpaces(p);

        if ((length > 0) && (*p == 0)) {

          bigint.data = fxNewChunk(the, fxBigIntMaximumX(length));

          fxBigIntParseX(&bigint, slot->value.string + offset, length);

        }

      }

      goto bail;

    }

  }

  if (c == '-') {

    sign = 1;

    p++;

  }

  else if (c == '+') {

    p++;

  }

  offset = mxPtrDiff(p - s);

  while (((c = *p)) && ('0' <= c) && (c <= '9'))

    p++;

  length = mxPtrDiff(p - s - offset);

  p = fxSkipSpaces(p);

  if (*p == 0) {

    bigint.data = fxNewChunk(the, fxBigIntMaximum(length));

    fxBigIntParse(&bigint, slot->value.string + offset, length, sign);

  }

bail:

  if (bigint.data) {

    slot->value.bigint = bigint;

    slot->kind = XS_BIGINT_KIND;

  }

  else {

    slot->value.bigint = gxBigIntNaN;

    slot->kind = XS_BIGINT_X_KIND;

  }

  return &slot->value.bigint;

}

txBigInt* fxToBigInt(txMachine* the, txSlot* slot, txFlag strict)

{

again:

  switch (slot->kind) {

  case XS_BOOLEAN_KIND:

    slot->value.bigint = *fxBigInt_dup(the, (txBigInt *)((slot->value.boolean) ? &gxBigIntOne : &gxBigIntZero));

    slot->kind = XS_BIGINT_KIND;

    break;

  case XS_INTEGER_KIND:

    if (strict)

      mxTypeError("cannot coerce number to bigint");

    fxIntegerToBigInt(the, slot); 

    break;

  case XS_NUMBER_KIND:

    if (strict)

      mxTypeError("cannot coerce number to bigint");

    fxNumberToBigInt(the, slot);  

    break;

  case XS_STRING_KIND:

  case XS_STRING_X_KIND:

    fxStringToBigInt(the, slot, 1);

    if (mxBigIntIsNaN(&slot->value.bigint))

      mxSyntaxError("cannot coerce string to bigint");

    break;

  case XS_BIGINT_KIND:

  case XS_BIGINT_X_KIND:

    break;

  case XS_SYMBOL_KIND:

    mxTypeError("cannot coerce symbol to bigint");

    break;

  case XS_REFERENCE_KIND:

    fxToPrimitive(the, slot, XS_NUMBER_HINT);

    goto again;

  default:

    mxTypeError("cannot coerce to bigint");

    break;

  }

  return &slot->value.bigint;

}

void fxFromBigInt64(txMachine* the, txSlot* slot, txS8 it)

{

  txU1 sign = 0;

  txU8 value = 0;

  if (it < 0) {

    if (it & 0x7FFFFFFFFFFFFFFFll)

      value = -it;

    else

      value = (txU8)it;

    sign = 1;

  }

  else

    value = it;

  if (value > 0x00000000FFFFFFFFll) {

    slot->value.bigint.data = fxNewChunk(the, 2 * sizeof(txU4));

    slot->value.bigint.data[0] = (txU4)value;

    slot->value.bigint.data[1] = (txU4)(value >> 32);

    slot->value.bigint.size = 2;

  }

  else {

    slot->value.bigint.data = fxNewChunk(the, sizeof(txU4));

    slot->value.bigint.data[0] = (txU4)value;

    slot->value.bigint.size = 1;

  }

    slot->value.bigint.sign = sign;

  slot->kind = XS_BIGINT_KIND;

}

void fxFromBigUint64(txMachine* the, txSlot* slot, txU8 value)

{

  if (value > 0x00000000FFFFFFFFll) {

    slot->value.bigint.data = fxNewChunk(the, 2 * sizeof(txU4));

    slot->value.bigint.data[0] = (txU4)(value);

    slot->value.bigint.data[1] = (txU4)(value >> 32);

    slot->value.bigint.size = 2;

  }

  else {

    slot->value.bigint.data = fxNewChunk(the, sizeof(txU4));

    slot->value.bigint.data[0] = (txU4)value;

    slot->value.bigint.size = 1;

  }

    slot->value.bigint.sign = 0;

  slot->kind = XS_BIGINT_KIND;

}

#endif

txBigInt *fxBigInt_alloc(txMachine* the, txU4 size)

{

#ifndef mxCompile

  txBigInt* bigint;

  if (size > 0xFFFF) {

    fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);

  }

  mxPushUndefined();

  bigint = &the->stack->value.bigint;

  bigint->data = fxNewChunk(the, fxMultiplyChunkSizes(the, size, sizeof(txU4)));

  bigint->size = size;

  bigint->sign = 0;

  the->stack->kind = XS_BIGINT_KIND;

  return bigint;

#else

  return NULL;

#endif

}

void fxBigInt_free(txMachine* the, txBigInt *bigint)

{

#ifndef mxCompile

  if (bigint == &the->stack->value.bigint)

    the->stack++;

//  else

//    fprintf(stderr, "oops\n");

#endif

}

int fxBigInt_comp(txBigInt *a, txBigInt *b)

{

  if (a->sign != b->sign)

    return(a->sign ? -1: 1);

  else if (a->sign)

    return(fxBigInt_ucomp(b, a));

  else

    return(fxBigInt_ucomp(a, b));

}

int fxBigInt_ucomp(txBigInt *a, txBigInt *b)

{

  int i;

  if (a->size != b->size)

    return(a->size > b->size ? 1: -1);

  for (i = a->size; --i >= 0;) {

    if (a->data[i] != b->data[i])

      return(a->data[i] > b->data[i] ? 1: -1);

  }

  return(0);

}

int fxBigInt_iszero(txBigInt *a)

{

  return(a->size == 1 && a->data[0] == 0);

}

void

fxBigInt_fill0(txBigInt *r)

{

  c_memset(r->data, 0, r->size * sizeof(txU4));

}

void fxBigInt_copy(txBigInt *a, txBigInt *b)

{

  c_memmove(a->data, b->data, b->size * sizeof(txU4));

  a->size = b->size;

  a->sign = b->sign;

}

txBigInt *fxBigInt_dup(txMachine* the, txBigInt *a)

{

  txBigInt *r = fxBigInt_alloc(the, a->size);

  fxBigInt_copy(r, a);

  return(r);

}

int

fxBigInt_ffs(txBigInt *a)

{

  int i;

  txU4 w = a->data[a->size - 1];

  for (i = 0; i < (int)mxBigIntWordSize && !(w & ((txU4)1 << (mxBigIntWordSize - 1 - i))); i++)

    ;

  return(i);

}

txBigInt *fxBigInt_fit(txMachine* the, txBigInt *r)

{

  int i = r->size;

  while (i > 0) {

    i--;

    if (r->data[i])

      break;

  }

  r->size = (txU2)(i + 1);

  mxBigInt_meter(r->size);

  return r;

}

#if mxWindows

int

fxBigInt_bitsize(txBigInt *e)

{

  return(e->size * mxBigIntWordSize - fxBigInt_ffs(e));

}

#else

int

fxBigInt_bitsize(txBigInt *a)

{

  int i = a->size;