Function PiuCode_find

modules/piu/PC/Code/piuCode.c:1013–1052

}

void PiuCode_find(xsMachine *the)
{
	PiuCode* self = PIU(Code, xsThis);
	uint32_t argc = xsToUnsigned(xsArgc);
	xsStringValue pattern = NULL;
	xsBooleanValue caseless = 0;
	PiuTextBuffer* results = (*self)->results;
	PiuCodeResult result;
	if (argc > 1)
		caseless = xsToBoolean(xsArg(1));
	if (argc > 0)
		pattern = xsToString(xsArg(0));
	if ((*self)->code || (*self)->data) {
		fxDeleteRegExp(NULL, (*self)->code, (*self)->data);
		(*self)->code = NULL;
		(*self)->data = NULL;
	}	
	if (pattern && pattern[0]) {
		xsStringValue modifier = (caseless) ? "imu" : "mu";
		fxCompileRegExp(NULL, pattern, modifier, &(*self)->code, &(*self)->data, NULL, 0);
	}
	PiuCodeSearch(self, (*self)->size);
	result = (PiuCodeResult)((char*)(*results) + sizeof(PiuTextBufferRecord));
	if (result->count >= 0) {
		xsResult = xsTrue;
		while (result->count >= 0) {
			if ((*self)->from <= result->from) {
				PiuCodeSelect(self, result->from, result->to - result->from);
				return;
			}
			result = (PiuCodeResult)(((char*)result) + (*self)->resultsSize);
		}
		result = (PiuCodeResult)((char*)(*results) + sizeof(PiuTextBufferRecord));
		PiuCodeSelect(self, result->from, result->to - result->from);
	}
	else {
		xsResult = xsFalse;
		PiuCodeSelect(self, (*self)->from, 0);
	}
}

void PiuCode_findAgain(xsMachine *the)
{