source: anotherchoice/tags/jsp-1.4.4-full-UTF8/kernel/wait.c@ 26

/*
 *  TOPPERS/JSP Kernel
 *      Toyohashi Open Platform for Embedded Real-Time Systems/
 *      Just Standard Profile Kernel
 * 
 *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
 *                              Toyohashi Univ. of Technology, JAPAN
 * 
 *  上記著作権者
は，以下の (1)〜(4) の条件か，Free Software Foundation 
 *  によってå…
¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
 *  è¿°ã•ã‚Œã¦ã„ã‚‹æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ï¼ˆæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢
 *  を改変したものを含む．以下同じ）を使用・複製・改変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
 *  利用と呼ぶ）することを無償で許諾する．
 *  (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
 *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
 *      スコード中に含まれていること．
 *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
 *      用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
 *      者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
 *      の無保証規定を掲載すること．
 *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
 *      用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
 *      と．
 *    (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
 *        作権表示，この利用条件および下記の無保証規定を掲載すること．
 *    (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
 *        å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
 *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
 *      害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
 * 
 *  本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
 *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，その適用可能性も
 *  含めて，いかなる保証も行わない．また，本ソフトウェアの利用により直
 *  æŽ¥çš„ã¾ãŸã¯é–“æŽ¥çš„ã«ç”Ÿã˜ãŸã„ã‹ãªã‚‹æå®³ã«é–¢ã—ã¦ã‚‚ï¼Œãã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
 * 
 *  @(#) $Id: wait.c,v 1.6 2003/06/04 01:46:16 hiro Exp $
 */

/*
 *      待
ち状æ…
‹ç®¡ç†ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«
 */

#include "jsp_kernel.h"
#include "wait.h"

/*
 *  待
ち状æ…
‹ã¸ã®ç§»è¡Œï¼ˆã‚¿ã‚¤ãƒ アウト指定）
 *
 */
#ifdef __waimake

void
make_wait_tmout(WINFO *winfo, TMEVTB *tmevtb, TMO tmout)
{
        make_non_runnable(runtsk);
        runtsk->winfo = winfo;
        if (tmout > 0) {
                winfo->tmevtb = tmevtb;
                tmevtb_enqueue(tmevtb, (RELTIM) tmout,
                                        (CBACK) wait_tmout, (VP) runtsk);
        }
        else {
                assert(tmout == TMO_FEVR);
                winfo->tmevtb = NULL;
        }
}

#endif /* __waimake */

/*
 *  待
ち解除のためのタスク状æ…
‹ã®æ›´æ–°
 *
 *  tcb で指定されるタスクを，待
ち解除するようタスク状æ…
‹ã‚’更新する．待

 *  ち解除するタスクが実行できる状æ…
‹ã«ãªã‚‹å ´åˆã¯ï¼Œãƒ¬ãƒ‡ã‚£ã‚­ãƒ¥ãƒ¼ã«ã¤ãªãï¼Ž
 *  また，ディスパッチが必
è¦ãªå ´åˆã«ã¯ TRUE を返す．
 */
Inline BOOL
make_non_wait(TCB *tcb)
{
        assert(TSTAT_WAITING(tcb->tstat));

        if (!(TSTAT_SUSPENDED(tcb->tstat))) {
                /*
                 *  待
ち状æ…
‹ã‹ã‚‰å®Ÿè¡Œã§ãã‚‹çŠ¶æ…
‹ã¸ã®é·ç§»
                 */
                return(make_runnable(tcb));
        }
        else {
                /*
                 *  二重待
ち状æ…
‹ã‹ã‚‰å¼·åˆ¶å¾…
ち状æ…
‹ã¸ã®é·ç§»
                 */
                tcb->tstat = TS_SUSPENDED;
                LOG_TSKSTAT(tcb);
                return(FALSE);
        }
}

/*
 *  待
ち解除
 */
#ifdef __waicmp

BOOL
wait_complete(TCB *tcb)
{
        if (tcb->winfo->tmevtb != NULL) {
                tmevtb_dequeue(tcb->winfo->tmevtb);
        }
        tcb->winfo->wercd = E_OK;
        return(make_non_wait(tcb));
}

#endif /* __waicmp */

/*
 *  タイムアウトに伴う待
ち解除
 */
#ifdef __waitmo

void
wait_tmout(TCB *tcb)
{
        if ((tcb->tstat & TS_WAIT_WOBJ) != 0) {
                queue_delete(&(tcb->task_queue));
        }
        tcb->winfo->wercd = E_TMOUT;
        if (make_non_wait(tcb)) {
                reqflg = TRUE;
        }
}

#endif /* __waitmo */
#ifdef __waitmook

void
wait_tmout_ok(TCB *tcb)
{
        tcb->winfo->wercd = E_OK;
        if (make_non_wait(tcb)) {
                reqflg = TRUE;
        }
}

#endif /* __waitmook */

/*
 *  待
ち状æ…
‹ã®å¼·åˆ¶è§£é™¤
 */
#ifdef __waican

void
wait_cancel(TCB *tcb)
{
        if (tcb->winfo->tmevtb != NULL) {
                tmevtb_dequeue(tcb->winfo->tmevtb);
        }
        if ((tcb->tstat & TS_WAIT_WOBJ) != 0) {
                queue_delete(&(tcb->task_queue));
        }
}

#endif /* __waican */
#ifdef __wairel

BOOL
wait_release(TCB *tcb)
{
        wait_cancel(tcb);
        tcb->winfo->wercd = E_RLWAI;
        return(make_non_wait(tcb));
}

#endif /* __wairel */

/*
 *  タスクの優å…
ˆåº¦é †ã®å¾…
ちキューへの挿å…
¥
 */
Inline void
queue_insert_tpri(TCB *tcb, QUEUE *queue)
{
        QUEUE   *entry;
        UINT    priority = tcb->priority;

        for (entry = queue->next; entry != queue; entry = entry->next) {
                if (priority < ((TCB *) entry)->priority) {
                        break;
                }
        }
        queue_insert_prev(entry, &(tcb->task_queue));
}

/*
 *  実行中のタスクの同期・通信オブジェクトの待
ちキューへの挿å…
¥
 */
Inline void
wobj_queue_insert(WOBJCB *wobjcb)
{
        if ((wobjcb->wobjinib->wobjatr & TA_TPRI) != 0) {
                queue_insert_tpri(runtsk, &(wobjcb->wait_queue));
        }
        else {
                queue_insert_prev(&(wobjcb->wait_queue),
                                        &(runtsk->task_queue));
        }
}

/*
 *  同期・通信オブジェクトに対する待
ち状æ…
‹ã¸ã®ç§»è¡Œ
 */
#ifdef __wobjwai

void
wobj_make_wait(WOBJCB *wobjcb, WINFO_WOBJ *winfo)
{
        runtsk->tstat = (TS_WAITING | TS_WAIT_WOBJ | TS_WAIT_WOBJCB);
        make_wait(&(winfo->winfo));
        wobj_queue_insert(wobjcb);
        winfo->wobjcb = wobjcb;
        LOG_TSKSTAT(runtsk);
}

#endif /* __wobjwai */
#ifdef __wobjwaitmo

void
wobj_make_wait_tmout(WOBJCB *wobjcb, WINFO_WOBJ *winfo,
                                        TMEVTB *tmevtb, TMO tmout)
{
        runtsk->tstat = (TS_WAITING | TS_WAIT_WOBJ | TS_WAIT_WOBJCB);
        make_wait_tmout(&(winfo->winfo), tmevtb, tmout);
        wobj_queue_insert(wobjcb);
        winfo->wobjcb = wobjcb;
        LOG_TSKSTAT(runtsk);
}

#endif /* __wobjwaitmo */
/*
 *  タスクの優å…
ˆåº¦å¤‰æ›´æ™‚の処理
 */
#ifdef __wobjpri

void
wobj_change_priority(WOBJCB *wobjcb, TCB *tcb)
{
        if ((wobjcb->wobjinib->wobjatr & TA_TPRI) != 0) {
                queue_delete(&(tcb->task_queue));
                queue_insert_tpri(tcb, &(wobjcb->wait_queue));
        }
}

#endif /* __wobjpri */