Function fxNewName

xs/sources/xsSymbol.c:326–356

}

txID fxNewName(txMachine* the, txSlot* theSlot)
{
	txU1* string;
	txU4 sum;
	txU4 modulo;
	txSlot* result;

	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;
	}
	result = fxFindKey(the);
	result->next = the->nameTable[modulo];
	result->flag = XS_INTERNAL_FLAG | XS_DONT_ENUM_FLAG;
	result->kind = XS_KEY_KIND;
	result->value.key.string = theSlot->value.string;
	result->value.key.sum = sum;
	the->nameTable[modulo] = result;
	return result->ID;
}

txID fxNewNameC(txMachine* the, txString theString)
{