Function fxStringAccessorGetter

xs/sources/xsString.c:407–443

}

void fxStringAccessorGetter(txMachine* the)
{
	txSlot* string = C_NULL;
	txID id = the->scratch.value.at.id;
	txIndex index = the->scratch.value.at.index;
	if ((mxThis->kind == XS_STRING_KIND) || (mxThis->kind == XS_STRING_X_KIND))
		string = mxThis;
	else {
		txSlot* instance = fxToInstance(the, mxThis);
		while (instance) {
			if ((instance->flag & XS_EXOTIC_FLAG) && (instance->next->ID == XS_STRING_BEHAVIOR)) {
				string = instance->next;
				break;
			}
			instance = fxGetPrototype(the, instance);
		}
	}
	if (string) {
		if (id == mxID(_length)) {
			mxResult->value.integer = fxCacheUnicodeLength(the, string->value.string);
			mxResult->kind = XS_INTEGER_KIND;
		}
		else {
			txInteger from = fxCacheUnicodeToUTF8Offset(the, string->value.string, index);
			if (from >= 0) {
				txInteger to = fxUnicodeToUTF8Offset(string->value.string + from, 1);
				if (to >= 0) {
					to += from;
					mxResult->value.string = fxNewChunk(the, to - from + 1);
					c_memcpy(mxResult->value.string, string->value.string + from, to - from);
					mxResult->value.string[to - from] = 0;
					mxResult->kind = XS_STRING_KIND;
				}
			}
		}
	}
}

void fxStringAccessorSetter(txMachine* the)
{