Function fx_deepEqualEntries

modules/base/deepEqual/deepEqual.c:126–203

}

txBoolean fx_deepEqualEntries(txMachine* the, txSlot* limit, txBoolean strict, txBoolean paired)
{
	txSlot* leftInstance = (the->stack + 1)->value.reference;
	txSlot* letfTable = leftInstance->next;
	txSlot* leftList = letfTable->next;
	txSlot** leftAddress;
	txSlot* leftBase;
	txSlot* leftItem;
	txSlot* leftProperty;
	txSlot* rightInstance = the->stack->value.reference;
	txSlot* rightTable = rightInstance->next;
	txSlot* rightList = rightTable->next;
	txSlot** rightAddress;
	txSlot* rightBase;
	txSlot* rightItem;
	txSlot* rightProperty;
	txBoolean result;
	if (leftList->next->value.integer != rightList->next->value.integer)
		return 0;
		
	mxPushList();
	leftBase = the->stack;
	leftItem = leftList->value.list.first;
	leftAddress = &(leftBase->value.list.first);
	while (leftItem) {
		leftProperty = *leftAddress = fxDuplicateSlot(the, leftItem);
		leftItem = leftItem->next;
		leftAddress = &(leftProperty->next);
	}

	mxPushList();
	rightBase = the->stack;
	rightItem = rightList->value.list.first;
	rightAddress = &(rightBase->value.list.first);
	while (rightItem) {
		rightProperty = *rightAddress = fxDuplicateSlot(the, rightItem);
		rightItem = rightItem->next;
		rightAddress = &(rightProperty->next);
	}
			
	leftProperty = leftBase->value.list.first;
	while (leftProperty) {
		rightAddress = &(rightBase->value.list.first);
		while ((rightProperty = *rightAddress)) {
			mxPushSlot(leftProperty);
			mxPushSlot(rightProperty);
			result = fx_deepEqualSlots(the, limit, strict);
			if (paired) {
				if (result) {
					mxPushSlot(leftProperty->next);
					mxPushSlot(rightProperty->next);
					result = fx_deepEqualSlots(the, limit, strict);
				}
				if (result) {
					*rightAddress = rightProperty->next->next;
					break;
				}
				rightAddress = &(rightProperty->next->next);