Function fxSetArrayLength

xs/sources/xsArray.c:717–755

}

txBoolean fxSetArrayLength(txMachine* the, txSlot* array, txIndex length)
{
	txSlot* address = array->value.array.address;
	txSlot* chunk = address;
	txBoolean success = 1;
	if (address) {
		txSize size = (((txChunk*)(((txByte*)chunk) - sizeof(txChunk)))->size) / sizeof(txSlot);
		txSlot* result = address + size;
		txSlot* limit = result;
		txIndex at;
		while (result > address) {
			result--;
			at = *((txIndex*)result);
			if (length > at) {
				result++;
				break;
			}
			else if (result->flag & XS_DONT_DELETE_FLAG) {
				result++;
				length = at + 1;
				success = 0;
				break;
			}
		}
		if (result < limit) {
			if (result > address) {
				size = mxPtrDiff(result - address);
				chunk = (txSlot*)fxNewChunk(the, fxMultiplyChunkSizes(the, size, sizeof(txSlot)));
				address = array->value.array.address;
				c_memcpy(chunk, address, size * sizeof(txSlot));
			}
			else
				chunk = C_NULL;
		}	
	}
	array->value.array.length = length;
	array->value.array.address = chunk;
	return success;
}

void fxSortArrayItems(txMachine* the, txSlot* function, txSlot* array, txNumber LENGTH, txSlot* target)
{