/* event kernel services */

/*
 * Copyright (c) 1997-2010, 2013-2014 Wind River Systems, Inc.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 * 1) Redistributions of source code must retain the above copyright notice,
 * this list of conditions and the following disclaimer.
 *
 * 2) Redistributions in binary form must reproduce the above copyright notice,
 * this list of conditions and the following disclaimer in the documentation
 * and/or other materials provided with the distribution.
 *
 * 3) Neither the name of Wind River Systems nor the names of its contributors
 * may be used to endorse or promote products derived from this software without
 * specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include <micro_private.h>
#include "microkernel/event.h"
#include <toolchain.h>
#include <sections.h>

extern struct evstr _k_event_list[];

/**
 *
 * @brief Perform set event handler request
 *
 * @return N/A
 */

void _k_event_handler_set(struct k_args *A)
{
	kevent_t event = A->Args.e1.event;

	if (likely(event < _k_num_events)) {
		struct evstr *E = _k_event_list + A->Args.e1.event;

		if (E->func != NULL) {
			if (likely(A->Args.e1.func == NULL)) {
				/* uninstall handler */
				E->func = NULL;
				A->Time.rcode = RC_OK;
			} else {
				/* can't overwrite an existing handler */
				A->Time.rcode = RC_FAIL;
			}
		} else {
			/* install handler */
			E->func = A->Args.e1.func;
			E->status = 0;
			A->Time.rcode = RC_OK;
		}
	} else {
		A->Time.rcode = RC_FAIL; /* invalid eventnr */
	}
}

/**
 *
 * @brief Set event handler request
 *
 * This routine specifies the event handler that runs (in the context of the
 * K_swapper fiber) when the associated event is signaled. Specifying a non-NULL
 * handler installs a new handler, while specifying a NULL event handler removes
 * the existing event handler.
 *
 * A new event handler cannot be installed if one already exists for that event;
 * the old handler must be removed first. However, it is permitted to replace
 * the NULL event handler with itself.
 *
 * @return RC_FAIL if an event handler exists or the event number is invalid,
 *          else RC_OK
 */

int task_event_set_handler(kevent_t event,     /* event upon which to reigster */
		       kevent_handler_t handler /* function pointer to handler */
		       )
{
	struct k_args A;

	A.Comm = EVENTHANDLER;
	A.Args.e1.event = event;
	A.Args.e1.func = handler;
	KERNEL_ENTRY(&A);
	return A.Time.rcode;
}

/**
 *
 * @brief Finish handling a test for event request that timed out
 *
 * @return N/A
 */

void _k_event_test_timeout(struct k_args *A)
{
	kevent_t event = A->Args.e1.event;
	struct evstr *E = _k_event_list + event;

	FREETIMER(A->Time.timer);
	A->Time.rcode = RC_TIME;
	E->waiter = NULL;
	_k_state_bit_reset(A->Ctxt.proc, TF_EVNT);
}

/**
 *
 * @brief Perform test for event request
 *
 * @return N/A
 */

void _k_event_test(struct k_args *A)
{
	kevent_t event = A->Args.e1.event;

	if (likely(event < _k_num_events)) {
		struct evstr *E = _k_event_list + event;

		if (E->status) { /* the next event can be received */
			E->status = 0;
			A->Time.rcode = RC_OK;
		} else {
			if (likely(A->Time.ticks != TICKS_NONE)) {
				/* Caller will wait for the event */
				if (likely(E->waiter == NULL)) {
					A->Ctxt.proc = _k_current_task;
					E->waiter = A;
					_k_state_bit_set(_k_current_task, TF_EVNT);
#ifdef CONFIG_SYS_CLOCK_EXISTS
					if (A->Time.ticks == TICKS_UNLIMITED) {
						A->Time.timer = NULL;
					} else {
						A->Comm = EVENT_TMO;
						_k_timeout_alloc(A);
					}
#endif
				} else {
					A->Time.rcode = RC_FAIL; /* already a
								    waiter
								    present */
				}
			} else {
				/* Caller will not wait for the event */
				A->Time.rcode = RC_FAIL;
			}
		}
	} else {
		A->Time.rcode = RC_FAIL; /* illegal eventnr  */
	}
}

/**
 *
 * @brief Test for event request
 *
 * This routine tests an event to see if it has been signaled.
 *
 * @return RC_OK, RC_FAIL, RC_TIME on success, failure, timeout respectively
 */

int _task_event_recv(
	kevent_t event, /* event for which to test */
	int32_t time   /* maximum number of ticks to wait for event */
	)
{
	struct k_args A;

	A.Comm = EVENTTEST;
	A.Args.e1.event = event;
	A.Time.ticks = time;
	KERNEL_ENTRY(&A);
	return A.Time.rcode;
}

/**
 *
 * @brief Signal an event
 *
 * Lowest level event signalling routine, which is invoked directly when the
 * signal is issued by a task and indirectly when the signal is issued by a
 * fiber or ISR. The specified event number must be valid.
 *
 * @return N/A
 */

void _k_do_event_signal(kevent_t event)
{
	struct evstr *E = _k_event_list + event;
	struct k_args *A = E->waiter;
	int ret_val = 1; /* If no handler is available, then ret_val is 1 by default */

	if ((E->func) != NULL) { /* handler available */
		ret_val = (E->func)(event); /* call handler */
	}

	if (ret_val != 0) {
		E->status = 1;
	}
	/* if proc waiting, will be rescheduled */
	if (((A) != NULL) && (E->status != 0)) {
#ifdef CONFIG_SYS_CLOCK_EXISTS
		if (A->Time.timer != NULL) {
			_k_timeout_free(A->Time.timer);
			A->Comm = NOP;
		}
#endif
		A->Time.rcode = RC_OK;

		_k_state_bit_reset(A->Ctxt.proc, TF_EVNT);
		E->waiter = NULL;
		E->status = 0;
	}

#ifdef CONFIG_OBJECT_MONITOR
	E->Count++;
#endif
}

/**
 *
 * @brief Perform signal an event request
 *
 * @return N/A
 */

void _k_event_signal(struct k_args *A)
{
	kevent_t event = A->Args.e1.event;

	if (likely(event < _k_num_events)) {
		_k_do_event_signal(event);
		A->Time.rcode = RC_OK;
	} else {
		A->Time.rcode = RC_FAIL;
	}
}

/**
 *
 * @brief Signal an event request
 *
 * This routine signals the specified event from a task. If an event handler
 * is installed for that event, it will run; if no event handler is installed,
 * any task waiting on the event is released.
 *
 * @return RC_FAIL if event number is invalid, else RC_OK
 */

int task_event_send(kevent_t event /* event to signal */
					 )
{
	struct k_args A;

	A.Comm = EVENTSIGNAL;
	A.Args.e1.event = event;
	KERNEL_ENTRY(&A);
	return A.Time.rcode;
}

/**
 *
 * @brief Signal an event from a fiber
 *
 * This routine does NOT validate the specified event number.
 *
 * @return N/A
 */

FUNC_ALIAS(isr_event_send, fiber_event_send, void);

/**
 *
 * @brief Signal an event from an ISR
 *
 * This routine does NOT validate the specified event number.
 *
 * @return N/A
 */

void isr_event_send(kevent_t event /* event to signal */
					   )
{
	nano_isr_stack_push(&_k_command_stack, (uint32_t)event);
}