Function fxNewNameC

xs/sources/xsSymbol.c:358–394

}

txID fxNewNameC(txMachine* the, txString theString)
{
	txU1* string;
	txU4 sum;
	txU4 modulo;
	txSlot* result;

	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) {
				txID id = mxGetKeySlotID(result);
				if (id >= the->keyOffset)
					result->flag |= XS_DONT_DELETE_FLAG;
				return id;
			}
		}
		result = result->next;
	}
	result = fxFindKey(the);
	result->next = the->nameTable[modulo];
	result->flag = XS_INTERNAL_FLAG | XS_DONT_DELETE_FLAG | XS_DONT_ENUM_FLAG;
	result->kind = XS_KEY_KIND;
	result->value.key.string = C_NULL;
	result->value.key.sum = sum;
	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)
{