Function PiuCode_search

tools/xsbug/SearchService.c:84–129

static void PiuCodeSearchData(xsMachine* the, KprCodeSearch self, xsStringValue data, xsIntegerValue size);

void PiuCode_search(xsMachine* the)
{
	KprCodeSearchRecord searchRecord;
	KprCodeSearch self = &searchRecord;
	xsStringValue pattern = xsToString(xsArg(0));
	xsBooleanValue caseless = xsToBoolean(xsArg(1));
	xsStringValue modifier = (caseless) ? "imu" : "mu";
	int c, i; 
	xsVars(XS_COUNT);
	xsTry {
		c_memset(self, 0, sizeof(KprCodeSearchRecord));
		xsResult = xsNewArray(0);
		xsVar(XS_MAP) = xsNew0(xsGlobal, xsID_Map);
		xsSet(xsGlobal, xsID("search/results"), xsVar(XS_MAP));
		if (!fxCompileRegExp(NULL, pattern, modifier, &self->code, &self->data, NULL, 0))
			xsUnknownError("invalid regexp");
		c = xsToInteger(xsGet(xsArg(2), xsID_length));
		for (i = 0; i < c; i++) {
	// 		if (!KprMessageContinue(self->message))
	// 			break;
			xsVar(XS_DIRECTORY) = xsGetIndex(xsArg(2), i);
			xsVar(XS_PATH) = xsGet(xsVar(XS_DIRECTORY), xsID_path);
			xsVar(XS_TITLE) = xsGet(xsVar(XS_DIRECTORY), xsID_name);
		#if mxLinux
			xsToStringBuffer(xsVar(XS_PATH), self->path, sizeof(self->path));
		#endif
		#if mxWindows
			xsToStringBufferW(xsVar(XS_PATH), self->path, sizeof(self->path));
		#endif
			PiuCodeSearchDirectory(the, self);
		}
		if (self->total > 100) {
			c = xsToInteger(xsGet(xsResult, xsID_length));
			for (i = 0; i < c; i++) {
	// 			if (!KprMessageContinue(self->message))
	// 				break;
				xsVar(XS_FILE) = xsGetIndex(xsResult, i);
				xsSet(xsVar(XS_FILE), xsID_expanded, xsFalse);
				xsSet(xsVar(XS_FILE), xsID_items, xsNull);
			}
		}
	}
	xsCatch {
	}
	fxDeleteRegExp(NULL, self->code, self->data);
}

void PiuCode_searchResults(xsMachine* the)
{