@agoric/xsnap 0.14.3-u13.0 → 0.14.3-u16.0

package/moddable/xs/sources/xsSymbol.c

@@ -0,0 +1,503 @@
+/*
+ * 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.
+ */
+
+#include "xsAll.h"
+
+static txSlot* fxCheckSymbol(txMachine* the, txSlot* it);
+
+void fxBuildSymbol(txMachine* the)
+{
+	txSlot* slot;
+	mxPush(mxObjectPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextHostAccessorProperty(the, slot, mxCallback(fx_Symbol_prototype_get_description), C_NULL, mxID(_description), XS_DONT_ENUM_FLAG);
+	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Symbol_prototype_toString), 0, mxID(_toString), XS_DONT_ENUM_FLAG);
+	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Symbol_prototype_valueOf), 0, mxID(_valueOf), XS_DONT_ENUM_FLAG);
+	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Symbol_prototype_toPrimitive), 1, mxID(_Symbol_toPrimitive), XS_DONT_ENUM_FLAG | XS_DONT_SET_FLAG);
+	slot = fxNextStringXProperty(the, slot, "Symbol", mxID(_Symbol_toStringTag), XS_DONT_ENUM_FLAG | XS_DONT_SET_FLAG);
+	mxSymbolPrototype = *the->stack;
+	slot = fxBuildHostConstructor(the, mxCallback(fx_Symbol), 0, mxID(_Symbol));
+	mxSymbolConstructor = *the->stack;
+	slot = fxLastProperty(the, slot);
+	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Symbol_for), 1, mxID(_for), XS_DONT_ENUM_FLAG);
+	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Symbol_keyFor), 1, mxID(_keyFor), XS_DONT_ENUM_FLAG);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_asyncIterator), mxID(_asyncIterator), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_hasInstance), mxID(_hasInstance), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_isConcatSpreadable), mxID(_isConcatSpreadable), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_iterator), mxID(_iterator), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_match), mxID(_match), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_matchAll), mxID(_matchAll), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_replace), mxID(_replace), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_search), mxID(_search), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_species), mxID(_species), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_split), mxID(_split), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_toPrimitive), mxID(_toPrimitive), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_toStringTag), mxID(_toStringTag), XS_GET_ONLY);
+	slot = fxNextSymbolProperty(the, slot, mxID(_Symbol_unscopables), mxID(_unscopables), XS_GET_ONLY);
+	mxPop();
+}
+
+txSlot* fxNewSymbolInstance(txMachine* the)
+{
+	txSlot* instance;
+	instance = fxNewObjectInstance(the);
+	fxNextSymbolProperty(the, instance, XS_NO_ID, XS_NO_ID, XS_INTERNAL_FLAG);
+	return instance;
+}
+
+void fx_Symbol(txMachine* the)
+{
+	txID id;
+	txSlot* description;
+	if (mxTarget->kind != XS_UNDEFINED_KIND)
+		mxTypeError("new Symbol");
+	if ((mxArgc > 0) && (mxArgv(0)->kind != XS_UNDEFINED_KIND)) {
+		fxToString(the, mxArgv(0));
+		description = fxNewSlot(the);
+		description->kind = mxArgv(0)->kind;
+		description->value.string = mxArgv(0)->value.string;
+	}
+	else
+		description = C_NULL;
+	id = the->keyIndex;
+	if (id == the->keyCount)
+		fxGrowKeys(the, 1);
+	the->keyArray[id - the->keyOffset] = description;
+	the->keyIndex++;
+	mxResult->kind = XS_SYMBOL_KIND;
+	mxResult->value.symbol = id;
+}
+
+void fx_Symbol_for(txMachine* the)
+{
+	txString string;
+	txU1* p;
+	txU4 sum;
+	txU4 modulo;
+	txSlot* result;
+	txID id;
+	if (mxArgc < 1)
+		mxSyntaxError("no key parameter");
+	string = fxToString(the, mxArgv(0));
+	p = (txU1*)string;
+	sum = 0;
+	while(*p != 0) {
+		sum = (sum << 1) + *p++;
+	}
+	sum &= 0x7FFFFFFF;
+	modulo = sum % the->symbolModulo;
+	result = the->symbolTable[modulo];
+	while (result != C_NULL) {
+		if (result->value.key.sum == sum)
+			if (c_strcmp(result->value.key.string, string) == 0)
+				break;
+		result = result->next;
+	}
+	if (result == C_NULL) {
+		id = the->keyIndex;
+		if (id == the->keyCount)
+			fxGrowKeys(the, 1);
+		result = fxNewSlot(the);
+		result->next = the->symbolTable[modulo];
+		result->kind = (mxArgv(0)->kind == XS_STRING_X_KIND) ? XS_KEY_X_KIND : XS_KEY_KIND;
+		result->ID = id;
+		result->value.key.string = mxArgv(0)->value.string;
+		result->value.key.sum = sum;
+		the->keyArray[id - the->keyOffset] = result;
+		the->keyIndex++;
+		the->symbolTable[modulo] = result;
+	}
+	mxResult->kind = XS_SYMBOL_KIND;
+	mxResult->value.symbol = result->ID;
+}
+
+void fx_Symbol_keyFor(txMachine* the)
+{
+	txSlot* key;
+	if ((mxArgc == 0) || (mxArgv(0)->kind != XS_SYMBOL_KIND))
+		mxTypeError("sym is no symbol");
+	key = fxGetKey(the, mxArgv(0)->value.symbol);
+	if (key && ((key->kind == XS_KEY_KIND) || (key->kind == XS_KEY_X_KIND)) && ((key->flag & XS_DONT_ENUM_FLAG) == 0)) {
+		mxResult->kind = (key->kind == XS_KEY_KIND) ? XS_STRING_KIND : XS_STRING_X_KIND;
+		mxResult->value.string = key->value.key.string;
+	}
+}
+
+void fx_Symbol_prototype_get_description(txMachine* the)
+{
+	txSlot* slot = fxCheckSymbol(the, mxThis);
+	if (!slot) mxTypeError("this is no symbol");
+	slot = fxGetKey(the, slot->value.symbol);
+	if (slot) {
+		if ((slot->kind == XS_KEY_KIND) || (slot->kind == XS_KEY_X_KIND)) {
+			mxResult->kind = (slot->kind == XS_KEY_KIND) ? XS_STRING_KIND : XS_STRING_X_KIND;
+			mxResult->value.string = slot->value.key.string;
+		}
+		else if ((slot->kind == XS_STRING_KIND) || (slot->kind == XS_STRING_X_KIND)) {
+			mxResult->kind = slot->kind;
+			mxResult->value = slot->value;
+		}
+	}
+}
+
+void fx_Symbol_prototype_toPrimitive(txMachine* the)
+{
+	txSlot* slot = fxCheckSymbol(the, mxThis);
+	if (!slot) mxTypeError("this is no symbol");
+	mxResult->kind = slot->kind;
+	mxResult->value = slot->value;
+}
+
+void fx_Symbol_prototype_toString(txMachine* the)
+{
+	txSlot* slot = fxCheckSymbol(the, mxThis);
+	if (!slot) mxTypeError("this is no symbol");
+	mxResult->kind = slot->kind;
+	mxResult->value = slot->value;
+	fxSymbolToString(the, mxResult);
+}
+
+void fx_Symbol_prototype_valueOf(txMachine* the)
+{
+	txSlot* slot = fxCheckSymbol(the, mxThis);
+	if (!slot) mxTypeError("this is no symbol");
+	mxResult->kind = slot->kind;
+	mxResult->value = slot->value;
+}
+
+txSlot* fxCheckSymbol(txMachine* the, txSlot* it)
+{
+	txSlot* result = C_NULL;
+	if (it->kind == XS_SYMBOL_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_SYMBOL_KIND))
+			result = it;
+	}
+	return result;
+}
+
+void fxSymbolToString(txMachine* the, txSlot* slot)
+{
+	txSlot* key = fxGetKey(the, slot->value.symbol);
+	fxStringX(the, slot, "Symbol(");
+	if (key) {
+		if ((key->kind == XS_KEY_KIND) || (key->kind == XS_KEY_X_KIND))
+			fxConcatString(the, slot, key);
+		else if ((key->kind == XS_STRING_KIND) || (key->kind == XS_STRING_X_KIND))
+			fxConcatString(the, slot, key);
+	}
+	fxConcatStringC(the, slot, ")");
+}
+
+txSlot* fxGetKey(txMachine* the, txID theID)
+{
+	if ((0 < theID) && (theID < the->keyCount)) {
+		if (theID < the->keyOffset)
+			return the->keyArrayHost[theID];
+		else
+			return the->keyArray[theID - the->keyOffset];
+	}
+	return C_NULL;
+}
+
+char* fxGetKeyName(txMachine* the, txID theID)
+{
+	txSlot* key;
+	if ((0 < theID) && (theID < the->keyCount)) {
+		if (theID < the->keyOffset)
+			key = the->keyArrayHost[theID];
+		else
+			key = the->keyArray[theID - the->keyOffset];
+		if (key)
+			return key->value.string;
+	}
+	return C_NULL;
+}
+
+txID fxFindName(txMachine* the, txString theString)
+{
+	txU1* aString;
+	txU4 aSum;
+	txU4 aModulo;
+	txSlot* result;
+	
+	aString = (txU1*)theString;
+	aSum = 0;
+	while (*aString != 0) {
+		aSum = (aSum << 1) + *aString++;
+	}
+	aSum &= 0x7FFFFFFF;
+	aModulo = aSum % the->nameModulo;
+	result = the->nameTable[aModulo];
+	while (result != C_NULL) {
+		if (result->value.key.sum == aSum)
+			if (c_strcmp(result->value.key.string, theString) == 0)
+				return mxGetKeySlotID(result);
+		result = result->next;
+	}
+	return 0;
+}
+
+txBoolean fxIsKeyName(txMachine* the, txID theID)
+{
+	txSlot* key = fxGetKey(the, theID);
+	return (key && (key->flag & XS_DONT_ENUM_FLAG)) ? 1 : 0;
+}
+
+txBoolean fxIsKeySymbol(txMachine* the, txID theID)
+{
+	txSlot* key = fxGetKey(the, theID);
+	return (!key || !(key->flag & XS_DONT_ENUM_FLAG)) ? 1 : 0;
+}
+
+txID fxNewName(txMachine* the, txSlot* theSlot)
+{
+	txU1* string;
+	txU4 sum;
+	txU4 modulo;
+	txSlot* result;
+	txID id;
+
+	string = (txU1*)theSlot->value.string;
+	sum = 0;
+	while(*string != 0) {
+		sum = (sum << 1) + *string++;
+	}
+	sum &= 0x7FFFFFFF;
+	modulo = sum % the->nameModulo;
+	result = the->nameTable[modulo];
+	while (result != C_NULL) {
+		if (result->value.key.sum == sum) {
+			if (c_strcmp(result->value.key.string, theSlot->value.string) == 0)
+				return mxGetKeySlotID(result);
+		}
+		result = result->next;
+	}
+
+	id = the->keyIndex;
+	if (id == the->keyCount)
+		fxGrowKeys(the, 1);
+	result = fxNewSlot(the);
+	result->next = the->nameTable[modulo];
+	result->flag = XS_DONT_ENUM_FLAG;
+	result->kind = XS_KEY_KIND;
+	result->ID = id;
+	result->value.key.string = theSlot->value.string;
+	result->value.key.sum = sum;
+	the->keyArray[id - the->keyOffset] = result;
+	the->keyIndex++;
+	the->nameTable[modulo] = result;
+	return result->ID;
+}
+
+txID fxNewNameC(txMachine* the, txString theString)
+{
+	txU1* string;
+	txU4 sum;
+	txU4 modulo;
+	txSlot* result;
+	txID id;
+
+	string = (txU1*)theString;
+	sum = 0;
+	while(c_read8(string) != 0) {
+		sum = (sum << 1) + c_read8(string++);
+	}
+	sum &= 0x7FFFFFFF;
+	modulo = sum % the->nameModulo;
+	result = the->nameTable[modulo];
+	while (result != C_NULL) {
+		if (result->value.key.sum == sum) {
+			if (c_strcmp(result->value.key.string, theString) == 0)
+				return mxGetKeySlotID(result);
+		}
+		result = result->next;
+	}
+
+	id = the->keyIndex;
+	if (id == the->keyCount)
+		fxGrowKeys(the, 1);
+	result = fxNewSlot(the);
+	result->next = the->nameTable[modulo];
+	result->flag = XS_DONT_ENUM_FLAG;
+	result->kind = XS_KEY_KIND;
+	result->ID = id;
+	result->value.key.string = C_NULL;
+	result->value.key.sum = sum;
+	the->keyArray[id - the->keyOffset] = result;
+	the->keyIndex++;
+	the->nameTable[modulo] = result;
+	result->value.key.string = (txString)fxNewChunk(the, mxStringLength(theString) + 1);
+	c_strcpy(result->value.key.string, theString);
+	return result->ID;
+}
+
+txID fxNewNameX(txMachine* the, txString theString)
+{
+	txU1* string;
+	txU4 sum;
+	txU4 modulo;
+	txSlot* result;
+	txID id;
+	
+	string = (txU1*)theString;
+	sum = 0;
+	while (c_read8(string) != 0) {
+		sum = (sum << 1) + c_read8(string++);
+	}
+	sum &= 0x7FFFFFFF;
+	modulo = sum % the->nameModulo;
+	result = the->nameTable[modulo];
+	while (result != C_NULL) {
+		if (result->value.key.sum == sum) {
+			if (c_strcmp(result->value.key.string, theString) == 0)
+				return mxGetKeySlotID(result);
+		}
+		result = result->next;
+	}
+
+	id = the->keyIndex;
+	if (id == the->keyCount)
+		fxGrowKeys(the, 1);
+	result = fxNewSlot(the);
+	result->next = the->nameTable[modulo];
+	result->flag = XS_DONT_ENUM_FLAG;
+	result->kind = XS_KEY_X_KIND;
+	result->ID = id;
+	result->value.key.string = theString;
+	result->value.key.sum = sum;
+	the->keyArray[id - the->keyOffset] = result;
+	the->keyIndex++;
+	the->nameTable[modulo] = result;
+	return result->ID;
+}
+
+txSlot* fxAt(txMachine* the, txSlot* slot)
+{
+	txIndex index;
+	txString string;
+again:
+	if ((slot->kind == XS_INTEGER_KIND) && fxIntegerToIndex(the->dtoa, slot->value.integer, &index)) {
+		slot->value.at.id = XS_NO_ID;
+		slot->value.at.index = index;
+	}
+	else if ((slot->kind == XS_NUMBER_KIND) && fxNumberToIndex(the->dtoa, slot->value.number, &index)) {
+		slot->value.at.id = XS_NO_ID;
+		slot->value.at.index = index;
+	}
+	else if (slot->kind == XS_SYMBOL_KIND) {
+		slot->value.at.id = slot->value.symbol;
+		slot->value.at.index = 0;
+	}
+    else {
+        if (slot->kind == XS_REFERENCE_KIND) {
+            fxToPrimitive(the, slot, XS_STRING_HINT);
+            goto again;
+        }
+        string = fxToString(the, slot);
+        if (fxStringToIndex(the->dtoa, string, &index)) {
+            slot->value.at.id = XS_NO_ID;
+            slot->value.at.index = index;
+        }
+        else {
+			txID id;
+            if (slot->kind == XS_STRING_X_KIND)
+                id = fxNewNameX(the, string);
+            else
+                id = fxNewName(the, slot);
+            slot->value.at.id = id;
+            slot->value.at.index = 0;
+        }
+    }
+	slot->kind = XS_AT_KIND;
+	return slot;
+}
+
+void fxKeyAt(txMachine* the, txID id, txIndex index, txSlot* slot)
+{
+	if (id) {
+		txSlot* key = fxGetKey(the, id);
+		if (key && (key->flag & XS_DONT_ENUM_FLAG)) {
+			if (key->kind == XS_KEY_KIND) {
+				slot->kind = XS_STRING_KIND;
+				slot->value.string = key->value.key.string;
+			}
+			else{
+				slot->kind = XS_STRING_X_KIND;
+				slot->value.string = key->value.key.string;
+			}
+		}
+		else {
+			slot->kind = XS_SYMBOL_KIND;
+			slot->value.symbol = id;
+		}
+	}
+	else {
+		char buffer[16];
+		fxCopyStringC(the, slot, fxNumberToString(the->dtoa, index, buffer, sizeof(buffer), 0, 0));
+	}
+}
+
+void fxIDToString(txMachine* the, txID id, txString theBuffer, txSize theSize)
+{
+	if ((0 < id) && (id < the->keyCount)) {
+		txSlot* key;
+
+		if (id < the->keyOffset)
+			key = the->keyArrayHost[id];
+		else
+			key = the->keyArray[id - the->keyOffset];
+		if (key) {
+			txKind kind = mxGetKeySlotKind(key);
+			if ((kind == XS_KEY_KIND) || (kind == XS_KEY_X_KIND))
+				c_snprintf(theBuffer, theSize, "%s", key->value.key.string);
+			else if ((kind == XS_STRING_KIND) || (kind == XS_STRING_X_KIND))
+				c_snprintf(theBuffer, theSize, "[%s]", key->value.string);
+			else
+				*theBuffer = 0;
+		}
+		else
+			*theBuffer = 0;
+	}
+	else {
+		theBuffer[0] = '?';
+		theBuffer[1] = 0;
+	}
+}