302 lines
7.2 KiB
C
302 lines
7.2 KiB
C
/* 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);
|
|
}
|