Function PiuCode_findAgain

modules/piu/PC/Code/piuCode.c:1054–1091

}

void PiuCode_findAgain(xsMachine *the)
{
	PiuCode* self = PIU(Code, xsThis);
	PiuTextBuffer* results = (*self)->results;
	uint32_t argc = xsToUnsigned(xsArgc);
	xsIntegerValue direction = 1;
	int32_t count, index;
	PiuCodeResult result, wrap;
	if (argc > 0)
		direction = xsToInteger(xsArg(0));
	count = (((*results)->current - sizeof(PiuTextBufferRecord)) / (*self)->resultsSize) - 1;
	if (count) {
		xsResult = xsTrue;
		if (direction > 0) {
			result = wrap = (PiuCodeResult)((char*)(*results) + sizeof(PiuTextBufferRecord));
			for (index = 0; index < count; index++) {
				if ((*self)->to <= result->from) {
					PiuCodeSelect(self, result->from, result->to - result->from);
					return;
				}
				result = (PiuCodeResult)(((char*)result) + (*self)->resultsSize);
			}
		}
		else {
			result = wrap = (PiuCodeResult)((char*)(*results) + (*results)->current - (*self)->resultsSize - (*self)->resultsSize);
			for (index = count - 1; index >= 0; index--) {
				if ((*self)->from >= result->to) {
					PiuCodeSelect(self, result->from, result->to - result->from);
					return;
				}
				result = (PiuCodeResult)(((char*)result) - (*self)->resultsSize);
			}
		}
		PiuCodeSelect(self, wrap->from, wrap->to - wrap->from);
	}
	else
		xsResult = xsFalse;
}

void PiuCode_findBlock(xsMachine *the)
{