ATRONIX: Add functions to update an event

This could optimize the event handling performance by removing duplicate
events

(cherry picked from commit 6142624)

Author: Oldes

src/core/a-lib.c

@@ -498,6 +498,32 @@ extern int Do_Callback(REBSER *obj, u32 name, RXIARG *args, RXIARG *result);
 	return 0;
 }
 
+/***********************************************************************
+**
+*/	RL_API int RL_Update_Event(REBEVT *evt)
+/*
+**	Updates an application event (e.g. GUI) to the event port.
+**
+**	Returns:
+**		Returns 1 if updated, or 0 if event appended, and -1 if full.
+**	Arguments:
+**		evt - A properly initialized event structure. The
+**			 model and type of the event are used to address 
+**           the unhandled event in the queue, when it is found,
+**           it will be replaced with this one
+**
+***********************************************************************/
+
+{
+	REBVAL *event = Find_Event(evt->model, evt->type);
+
+	if (event) {
+		event->data.event = *evt;
+		return 1;
+	}
+	
+	return RL_Event(evt) - 1;
+}
 
 RL_API void *RL_Make_Block(u32 size)
 /*

src/core/p-event.c

@@ -96,7 +96,35 @@ REBREQ *req;		//!!! move this global
 
 	return value;
 }
+/***********************************************************************
+**
+*/	REBVAL *Find_Event (REBINT model, REBINT type)
+/*
+**		Find the event in the queue by the model and type
+**		Return a pointer to the event value.
+**
+**
+***********************************************************************/
+{
+	REBVAL *port;
+	REBVAL *value;
+	REBVAL *state;
+
+	port = Get_System(SYS_PORTS, PORTS_SYSTEM);
+	if (!IS_PORT(port)) return NULL; // verify it is a port object
 
+	// Get queue block:
+	state = VAL_BLK_SKIP(port, STD_PORT_STATE);
+	if (!IS_BLOCK(state)) return NULL;
+	for(value = VAL_BLK(state); value != VAL_BLK_TAIL(state); ++ value){
+		if (VAL_EVENT_MODEL(value) == model
+			&& VAL_EVENT_TYPE(value) == type){
+			return value;
+		}
+	}
+
+	return NULL;
+}
 
 /***********************************************************************
 **