Function triggerEvent

modules/drivers/w3csensor/sensor.c:390–453

}

void triggerEvent(xsSensor sensor, uint8_t eventKind, const char *errorMsg)
{
	xsMachine *the = sensor->the;
	EventHandler handler, prev;

	xsmcVars(2);

	sensor->servicing = true;
	for (handler = sensor->handlers; NULL != handler; handler = handler->next)
		handler->service = true;

again:
	for (handler = sensor->handlers; NULL != handler; handler = handler->next) {
		if ((eventKind != (handler->eventKind & kEventKindMask)) || !handler->service)
			continue;

		handler->service = false;

		xsTry {
			xsmcSetNewObject(xsVar(0));
			if (kEventKindReading == eventKind)
				xsmcSetString(xsVar(1), "reading");
			else if (kEventKindActivate == eventKind)
				xsmcSetString(xsVar(1), "activate");
			if (kEventKindError == eventKind)
				xsmcSetString(xsVar(1), "error");
			xsmcDefine(xsVar(0), xsID_type, xsVar(1), xsDontDelete | xsDontSet);

			xsmcSetNumber(xsVar(1), sensor->timestamp);
			xsmcDefine(xsVar(0), xsID_timeStamp, xsVar(1), xsDontDelete | xsDontSet);

			if (errorMsg) {
				xsmcSetString(xsVar(1), (char *)errorMsg);
				xsVar(1) = xsNew1(xsGlobal, xsID_Error, xsVar(1));
				xsmcSet(xsVar(0), xsID_error, xsVar(1));
			}

			xsResult = xsReference(handler->reference);
			if (kHandlerKindFunction == handler->handlerKind)
				xsCallFunction1(xsResult, sensor->obj, xsVar(0));
			else
				xsCall1(xsResult, xsID_handleEvent, xsVar(0));
		}
		xsCatch {
		}
		goto again;
	}

again2:
	for (handler = sensor->handlers, prev = NULL; NULL != handler; prev = handler, handler = handler->next) {
		handler->service = false;
		if (handler->removed) {
			if (prev)
				prev->next = handler->next;
			else
				sensor->handlers = handler->next;

			c_free(handler);