@agoric/xsnap 0.14.3-u14.0 → 0.14.3-u16.1

package/moddable/xs/sources/xsDefaults.c

@@ -0,0 +1,134 @@
+/*
+ * 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"
+
+const txDefaults ICACHE_FLASH_ATTR gxDefaults  = {
+	fxNewAsyncInstance,
+	fxRunAsync,
+	fxNewGeneratorInstance,
+	fxNewGeneratorFunctionInstance,
+	fxNewAsyncGeneratorInstance,
+	fxNewAsyncGeneratorFunctionInstance,
+	fxRunForAwaitOf,
+	fxNewArgumentsSloppyInstance,
+	fxNewArgumentsStrictInstance,
+	fxRunEval,
+	fxRunEvalEnvironment,
+	fxRunProgramEnvironment,
+#ifdef mxMultipleThreads
+	C_NULL,
+	C_NULL,
+#else
+	fxInitializeSharedCluster,
+	fxTerminateSharedCluster,
+#endif
+	fxNewFunctionLength,
+	fxNewFunctionName,
+	fxRunImport,
+	fxDefinePrivateProperty,
+	fxGetPrivateProperty,
+	fxSetPrivateProperty,
+	fxCleanupFinalizationRegistries,
+	fxCaptureErrorStack,
+};
+
+const txBehavior* ICACHE_RAM_ATTR gxBehaviors[XS_BEHAVIOR_COUNT]  = {
+	&gxOrdinaryBehavior,
+	&gxArgumentsSloppyBehavior,
+	&gxOrdinaryBehavior,
+	&gxArrayBehavior,
+	&gxEnvironmentBehavior,
+	&gxGlobalBehavior,
+	&gxModuleBehavior,
+	&gxProxyBehavior,
+	&gxStringBehavior,
+	&gxTypedArrayBehavior
+};
+
+const txTypeDispatch ICACHE_FLASH_ATTR gxTypeDispatches[mxTypeArrayCount] = {
+	{ 8, 3, fxBigInt64Getter, fxBigInt64Setter, fxBigIntCoerce, fxBigInt64Compare, _getBigInt64, _setBigInt64, _BigInt64Array },
+	{ 8, 3, fxBigUint64Getter, fxBigUint64Setter, fxBigIntCoerce, fxBigUint64Compare, _getBigUint64, _setBigUint64, _BigUint64Array },
+	{ 4, 2, fxFloat32Getter, fxFloat32Setter, fxNumberCoerce, fxFloat32Compare, _getFloat32, _setFloat32, _Float32Array },
+	{ 8, 3, fxFloat64Getter, fxFloat64Setter, fxNumberCoerce, fxFloat64Compare, _getFloat64, _setFloat64, _Float64Array },
+	{ 1, 0, fxInt8Getter, fxInt8Setter, fxIntCoerce, fxInt8Compare, _getInt8, _setInt8, _Int8Array },
+	{ 2, 1, fxInt16Getter, fxInt16Setter, fxIntCoerce, fxInt16Compare, _getInt16, _setInt16, _Int16Array },
+	{ 4, 2, fxInt32Getter, fxInt32Setter, fxIntCoerce, fxInt32Compare, _getInt32, _setInt32, _Int32Array },
+	{ 1, 0, fxUint8Getter, fxUint8Setter, fxUintCoerce, fxUint8Compare, _getUint8, _setUint8, _Uint8Array },
+	{ 2, 1, fxUint16Getter, fxUint16Setter, fxUintCoerce, fxUint16Compare, _getUint16, _setUint16, _Uint16Array },
+	{ 4, 2, fxUint32Getter, fxUint32Setter, fxUintCoerce, fxUint32Compare, _getUint32, _setUint32, _Uint32Array },
+	{ 1, 0, fxUint8Getter, fxUint8ClampedSetter, fxNumberCoerce, fxUint8Compare, _getUint8, _setUint8, _Uint8ClampedArray }
+};
+
+const txTypeAtomics ICACHE_FLASH_ATTR gxTypeAtomics[mxTypeArrayCount] = {
+	{ fxInt64Add, fxInt64And, fxInt64CompareExchange, fxInt64Exchange, fxInt64Load, fxInt64Or, fxInt64Store, fxInt64Sub, fxInt64Xor, fxInt64Wait },
+	{ fxUint64Add, fxUint64And, fxUint64CompareExchange, fxUint64Exchange, fxUint64Load, fxUint64Or, fxUint64Store, fxUint64Sub, fxUint64Xor, C_NULL },
+	{ C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL },
+	{ C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL },
+	{ fxInt8Add, fxInt8And, fxInt8CompareExchange, fxInt8Exchange, fxInt8Load, fxInt8Or, fxInt8Store, fxInt8Sub, fxInt8Xor, C_NULL },
+	{ fxInt16Add, fxInt16And, fxInt16CompareExchange, fxInt16Exchange, fxInt16Load, fxInt16Or, fxInt16Store, fxInt16Sub, fxInt16Xor, C_NULL },
+	{ fxInt32Add, fxInt32And, fxInt32CompareExchange, fxInt32Exchange, fxInt32Load, fxInt32Or, fxInt32Store, fxInt32Sub, fxInt32Xor, fxInt32Wait },
+	{ fxUint8Add, fxUint8And, fxUint8CompareExchange, fxUint8Exchange, fxUint8Load, fxUint8Or, fxUint8Store, fxUint8Sub, fxUint8Xor, C_NULL },
+	{ fxUint16Add, fxUint16And, fxUint16CompareExchange, fxUint16Exchange, fxUint16Load, fxUint16Or, fxUint16Store, fxUint16Sub, fxUint16Xor, C_NULL },
+	{ fxUint32Add, fxUint32And, fxUint32CompareExchange, fxUint32Exchange, fxUint32Load, fxUint32Or, fxUint32Store, fxUint32Sub, fxUint32Xor, C_NULL },
+	{ C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL, C_NULL }
+};
+
+const txTypeBigInt ICACHE_FLASH_ATTR gxTypeBigInt = {
+	fxBigIntCompare,
+	fxBigIntDecode,
+	fxBigintToArrayBuffer,
+	fxBigIntToInstance,
+	fxBigIntToNumber,
+	fxBigintToString,
+	fxBigInt_add,
+	fxBigInt_and,
+	fxBigInt_dec,
+	fxBigInt_div,
+	fxBigInt_exp,
+	fxBigInt_inc,
+	fxBigInt_lsl,
+	fxBigInt_lsr,
+	fxBigInt_mul,
+	fxBigInt_neg,
+	fxBigInt_nop,
+	fxBigInt_not,
+	fxBigInt_or,
+	fxBigInt_rem,
+	fxBigInt_sub,
+	fxBigInt_xor,
+};

package/moddable/xs/sources/xsError.c

@@ -0,0 +1,353 @@
+/*
+ * 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* fx_Error_aux(txMachine* the, txError error, txInteger i);
+
+void fxBuildError(txMachine* the)
+{
+	txSlot* slot;
+	txSlot* prototype;
+	txSlot* instance;
+	mxPush(mxObjectPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextHostFunctionProperty(the, slot, mxCallback(fx_Error_toString), 0, mxID(_toString), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "Error", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	slot = fxNextHostAccessorProperty(the, slot, mxCallback(fx_Error_prototype_get_stack), C_NULL, mxID(_stack), XS_DONT_ENUM_FLAG);
+	mxErrorPrototype = *the->stack;
+	prototype = fxBuildHostConstructor(the, mxCallback(fx_Error), 1, mxID(_Error));
+	mxErrorConstructor = *the->stack;
+	mxPop();
+	mxPush(mxErrorPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextStringXProperty(the, slot, "AggregateError", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	mxAggregateErrorPrototype = *the->stack;
+	instance = fxBuildHostConstructor(the, mxCallback(fx_AggregateError), 2, mxID(_AggregateError));
+	instance->value.instance.prototype = prototype;
+	mxAggregateErrorConstructor = *the->stack;
+	mxPop();
+	mxPush(mxErrorPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextStringXProperty(the, slot, "EvalError", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	mxEvalErrorPrototype = *the->stack;
+	instance = fxBuildHostConstructor(the, mxCallback(fx_EvalError), 1, mxID(_EvalError));
+	instance->value.instance.prototype = prototype;
+	mxEvalErrorConstructor = *the->stack;
+	mxPop();
+	mxPush(mxErrorPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextStringXProperty(the, slot, "RangeError", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	mxRangeErrorPrototype = *the->stack;
+	instance = fxBuildHostConstructor(the, mxCallback(fx_RangeError), 1, mxID(_RangeError));
+	instance->value.instance.prototype = prototype;
+	mxRangeErrorConstructor = *the->stack;
+	mxPop();
+	mxPush(mxErrorPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextStringXProperty(the, slot, "ReferenceError", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	mxReferenceErrorPrototype = *the->stack;
+	instance = fxBuildHostConstructor(the, mxCallback(fx_ReferenceError), 1, mxID(_ReferenceError));
+	instance->value.instance.prototype = prototype;
+	mxReferenceErrorConstructor = *the->stack;
+	mxPop();
+	mxPush(mxErrorPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextStringXProperty(the, slot, "SyntaxError", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	mxSyntaxErrorPrototype = *the->stack;
+	instance = fxBuildHostConstructor(the, mxCallback(fx_SyntaxError), 1, mxID(_SyntaxError));
+	instance->value.instance.prototype = prototype;
+	mxSyntaxErrorConstructor = *the->stack;
+	mxPop();
+	mxPush(mxErrorPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextStringXProperty(the, slot, "TypeError", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	mxTypeErrorPrototype = *the->stack;
+	instance = fxBuildHostConstructor(the, mxCallback(fx_TypeError), 1, mxID(_TypeError));
+	instance->value.instance.prototype = prototype;
+	mxTypeErrorConstructor = *the->stack;
+	mxPop();
+	mxPush(mxErrorPrototype);
+	slot = fxLastProperty(the, fxNewObjectInstance(the));
+	slot = fxNextStringXProperty(the, slot, "URIError", mxID(_name), XS_DONT_ENUM_FLAG);
+	slot = fxNextStringXProperty(the, slot, "", mxID(_message), XS_DONT_ENUM_FLAG);
+	mxURIErrorPrototype = *the->stack;
+	instance = fxBuildHostConstructor(the, mxCallback(fx_URIError), 1, mxID(_URIError));
+	instance->value.instance.prototype = prototype;
+	mxURIErrorConstructor = *the->stack;
+	mxPop();
+}
+
+void fxCaptureErrorStack(txMachine* the, txSlot* internal, txSlot* frame)
+{
+	txSlot* slot = internal->value.reference = fxNewSlot(the);
+	slot->kind = XS_INSTANCE_KIND;
+	slot->value.instance.garbage = C_NULL;
+	slot->value.instance.prototype = C_NULL;
+	while (frame->next) {
+		txSlot* environment = mxFrameToEnvironment(frame);
+		txSlot* function = frame + 3; 
+		if (function->kind == XS_REFERENCE_KIND) {
+			function = function->value.reference;
+			if (mxIsFunction(function)) {
+				txSlot* name = mxBehaviorGetProperty(the, function, mxID(_name), 0, XS_OWN);
+				slot = slot->next = fxNewSlot(the);
+				slot->flag = XS_GET_ONLY;
+				slot->kind = XS_KEY_KIND;
+				slot->ID = environment->ID;
+				slot->value.key.string = C_NULL;
+				slot->value.key.sum = environment->value.environment.line;
+				if (name && ((name->kind == XS_STRING_KIND) || (name->kind == XS_STRING_X_KIND))) {
+					if (name->kind == XS_STRING_X_KIND)
+						slot->kind = XS_KEY_X_KIND;
+					slot->value.key.string = name->value.string;
+				}
+				else {
+					txSlot* code = mxFunctionInstanceCode(function);
+					if (code->ID != XS_NO_ID) {
+						txSlot* key = fxGetKey(the, code->ID);
+						if (key) {
+							if (key->kind == XS_KEY_X_KIND)
+								slot->kind = XS_KEY_X_KIND;
+							slot->value.key.string = key->value.key.string;
+						}
+					}
+				}
+			}
+		}
+		frame = frame->next;
+	}
+}
+
+void fx_Error(txMachine* the)
+{
+	fx_Error_aux(the, XS_UNKNOWN_ERROR, 0);
+}
+
+txSlot* fx_Error_aux(txMachine* the, txError error, txInteger i)
+{
+	txSlot* instance;
+	txSlot* slot;
+	if (mxIsUndefined(mxTarget))
+		mxPushSlot(mxFunction);
+	else
+		mxPushSlot(mxTarget);
+	fxGetPrototypeFromConstructor(the, &mxErrorPrototypes(error));
+	instance = fxNewObjectInstance(the);
+	mxPullSlot(mxResult);
+	slot = instance->next = fxNewSlot(the);
+	slot->flag = XS_INTERNAL_FLAG;
+	slot->kind = XS_ERROR_KIND;
+	slot->value.error.info = C_NULL;
+	slot->value.error.which = error;
+	if (gxDefaults.captureErrorStack)
+		gxDefaults.captureErrorStack(the, slot, the->frame->next);
+	if ((mxArgc > i) && (mxArgv(i)->kind != XS_UNDEFINED_KIND)) {
+		fxToString(the, mxArgv(i));
+		slot = fxNextSlotProperty(the, slot, mxArgv(i), mxID(_message), XS_DONT_ENUM_FLAG);
+	}
+	i++;
+	if ((mxArgc > i) && (mxArgv(i)->kind == XS_REFERENCE_KIND)) {
+		if (mxBehaviorHasProperty(the, mxArgv(i)->value.reference, mxID(_cause), 0)) {
+			mxPushSlot(mxArgv(i));
+			mxGetID(mxID(_cause));
+			slot = fxNextSlotProperty(the, slot, the->stack, mxID(_cause), XS_DONT_ENUM_FLAG);
+			mxPop();
+		}
+	}
+	return slot;
+}
+
+void fx_Error_toString(txMachine* the)
+{
+	txSlot* name;
+	txSlot* message;
+	if (mxThis->kind != XS_REFERENCE_KIND)
+		mxTypeError("this is no Error instance");
+	mxPushSlot(mxThis);
+	mxGetID(mxID(_name));
+	if (the->stack->kind == XS_UNDEFINED_KIND) 
+		fxStringX(the, the->stack, "Error");
+	else	
+		fxToString(the, the->stack);
+	name = the->stack;
+	mxPushSlot(mxThis);
+	mxGetID(mxID(_message));
+	if (the->stack->kind == XS_UNDEFINED_KIND) 
+		*the->stack = mxEmptyString;
+	else	
+		fxToString(the, the->stack);
+	message = the->stack;
+	if (c_isEmpty(name->value.string))
+		*mxResult = *message;
+	else if (c_isEmpty(message->value.string))
+		*mxResult = *name;
+	else {
+		fxStringX(the, mxResult, "");
+		fxConcatString(the, mxResult, name);
+		fxConcatStringC(the, mxResult, ": ");
+		fxConcatString(the, mxResult, message);
+	}
+	the->stack += 2;
+}
+
+void fx_AggregateError(txMachine* the)
+{
+	txSlot* stack = the->stack;
+	txSlot* property = fx_Error_aux(the, XS_AGGREGATE_ERROR, 1);
+	txSlot* array;
+	txSlot** address;
+	txIndex length = 0;
+	txSlot* iterator;
+	txSlot* next;
+	txSlot* value;
+	txSlot* slot;
+	
+	mxPush(mxArrayPrototype);
+	array = fxNewArrayInstance(the);
+	fxNextSlotProperty(the, property, the->stack, mxID(_errors), XS_DONT_ENUM_FLAG);
+	address = &array->next->next;
+	mxTemporary(iterator);
+	mxTemporary(next);
+	fxGetIterator(the, mxArgv(0), iterator, next, 0);
+	mxTemporary(value);
+	while (fxIteratorNext(the, iterator, next, value)) {
+		mxTry(the) {
+			*address = slot = fxNewSlot(the);
+			slot->kind = value->kind;
+			slot->value = value->value;
+			address = &slot->next;
+			length++;
+		}
+		mxCatch(the) {
+			fxIteratorReturn(the, iterator);
+			fxJump(the);
+		}
+	}
+	array->next->value.array.length = length;
+	fxCacheArray(the, array);
+	
+	the->stack = stack;
+}
+
+void fx_EvalError(txMachine* the)
+{
+	fx_Error_aux(the, XS_EVAL_ERROR, 0);
+}
+
+void fx_RangeError(txMachine* the)
+{
+	fx_Error_aux(the, XS_RANGE_ERROR, 0);
+}
+
+void fx_ReferenceError(txMachine* the)
+{
+	fx_Error_aux(the, XS_REFERENCE_ERROR, 0);
+}
+
+void fx_SyntaxError(txMachine* the)
+{
+	fx_Error_aux(the, XS_SYNTAX_ERROR, 0);
+}
+
+void fx_TypeError(txMachine* the)
+{
+	fx_Error_aux(the, XS_TYPE_ERROR, 0);
+}
+
+void fx_URIError(txMachine* the)
+{
+	fx_Error_aux(the, XS_URI_ERROR, 0);
+}
+
+void fx_Error_prototype_get_stack(txMachine* the)
+{
+	txSlot* slot;
+	if (mxThis->kind != XS_REFERENCE_KIND)
+		mxTypeError("this is no Error instance");
+	slot = mxThis->value.reference->next;
+	if (slot && (slot->kind == XS_ERROR_KIND)) {
+		fxStringX(the, mxResult, "");
+		mxPushSlot(mxThis);
+		mxGetID(mxID(_name));
+		if (the->stack->kind != XS_UNDEFINED_KIND)  {
+			fxToString(the, the->stack);
+			fxConcatString(the, mxResult, the->stack);
+		}
+		else
+			fxConcatStringC(the, mxResult, "Error");
+		mxPop();
+		mxPushSlot(mxThis);
+		mxGetID(mxID(_message));
+		if (the->stack->kind != XS_UNDEFINED_KIND) {
+			fxToString(the, the->stack);
+			if (!c_isEmpty(the->stack->value.string)) {
+				fxConcatStringC(the, mxResult, ": ");
+				fxConcatString(the, mxResult, the->stack);
+			}
+		}
+		mxPop();
+		slot = slot->value.reference;
+		if (slot) {
+			slot = slot->next;
+			while (slot) {
+				fxConcatStringC(the, mxResult, "\n at");
+				if ((slot->value.key.string != C_NULL) && (mxStringLength(slot->value.key.string))) {
+					fxConcatStringC(the, mxResult, " ");
+					fxConcatString(the, mxResult, slot);
+				}
+				fxConcatStringC(the, mxResult, " (");
+				if (slot->ID != XS_NO_ID) {
+					fxIDToString(the, slot->ID, the->nameBuffer, sizeof(the->nameBuffer));
+					fxConcatStringC(the, mxResult, the->nameBuffer);
+					fxConcatStringC(the, mxResult, ":");
+					fxIntegerToString(the, (txInteger)slot->value.key.sum, the->nameBuffer, sizeof(the->nameBuffer));
+					fxConcatStringC(the, mxResult, the->nameBuffer);
+				}
+				fxConcatStringC(the, mxResult, ")");
+				slot = slot->next;
+			}
+		}
+	}
+}