source: anotherchoice/tags/jsp-1.4.4-full-UTF8/config/windows/eventlog.c@ 363

/*
 *  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: eventlog.c,v 1.7 2003/12/15 07:19:22 takayuki Exp $
 */


#include <s_services.h>

#ifdef EVENTLOG_ENABLE

#include "jsp_kernel.h"
#include "task.h"
#include "semaphore.h"
#include "dataqueue.h"
#include "eventflag.h"
#include "mempfix.h"
#include "mailbox.h"

//#include <kernel_debug.h>

extern SEMCB    semcb_table[1];
extern UINT             tmax_semid;
extern FLGCB    flgcb_table[1];
extern UINT             tmax_flgid;
extern DTQCB    dtqcb_table[1];
extern UINT             tmax_dtqid;
extern MBXCB    mbxcb_table[1];
extern UINT             tmax_mbxid;
extern MPFCB    mpfcb_table[1];
extern UINT             tmax_mpfid;

/*
 *  イベントログ出力用 タスク状æ…
‹å–得関数
 *    (com_support.cはC++になるので、ここに置く)
 */

Inline BOOL is_inside_of(void * src, void * min, void * sup)
{       return ((long)src >= (long)min) && ((long)src <  (long)sup);    }

static void decode_waitstatus(TCB * tcb, unsigned int * objtype, int * objid)
{
        QUEUE * queue;

        if((tcb->tstat & TS_WAIT_SLEEP) != 0)
        {
                *objtype = TTW_SLP;
        }else
        {
                if((tcb->tstat & TS_WAIT_WOBJCB) != 0)
                {
                        do {
                                queue = tcb->task_queue.next;
                        } while( queue != &tcb->task_queue && is_inside_of(queue, tcb_table, &tcb_table[TNUM_TSK]) );

                        if(queue == &tcb->task_queue)
                                *objtype = 0;

                                /* セマフォ */
                        else if(is_inside_of(queue, semcb_table, &semcb_table[tmax_semid-1]))
                        {
                                *objtype = TTW_SEM;
                                *objid   = ((long)queue - (long)semcb_table) / sizeof(SEMCB) + 1;
                        }
                                /* イベントフラグ */
                        else if(is_inside_of(queue, flgcb_table, &flgcb_table[tmax_flgid-1]))
                        {
                                *objtype = TTW_FLG;
                                *objid   = ((long)queue - (long)flgcb_table) / sizeof(FLGCB) + 1;
                        }
                                /* データキュー */
                        else if(is_inside_of(queue, dtqcb_table, &dtqcb_table[tmax_dtqid-1]))
                        {
                                if(((long)queue % sizeof(DTQCB)) == (long)(&((DTQCB *)0)->rwait_queue))
                                        *objtype = TTW_RDTQ;
                                else
                                        *objtype = TTW_SDTQ;
                                *objid   = ((long)queue - (long)dtqcb_table) / sizeof(DTQCB) + 1;
                        }
                                /* メールボックス */
                        else if(is_inside_of(queue, mbxcb_table, &mbxcb_table[tmax_mbxid-1]))
                        {
                                *objtype = TTW_MBX;
                                *objid   = ((long)queue - (long)mbxcb_table) / sizeof(MBXCB) + 1;
                        }
                                /* 固定長メモリプール */
                        else if(is_inside_of(queue, mpfcb_table, &mpfcb_table[tmax_mpfid-1]))
                        {
                                *objtype = TTW_MPL;
                                *objid   = ((long)queue - (long)mpfcb_table) / sizeof(MPFCB) + 1;
                        }
                }else
                {
                                /* slp_tskではなく、オブジェクト待
ちキューにつながれていないタイムアウト付きの待
ち -> dly_tsk */
                        if(tcb->winfo->tmevtb != NULL)
                                *objtype = TTW_DLY;
                }
        }
}

void decode_taskstatus(TCB * tcb, int * tskid, unsigned int * tskstat, unsigned int * objtype, int * objid)
{
        int stat = tcb->tstat;

                /* タスクID */
        *tskid = TSKID(tcb);

                /* タスク状æ…
‹ */
        *tskstat = TTS_DMT;
        if((stat & TS_RUNNABLE) != 0)
        {
                *tskstat = TTS_RDY;
        }else
        {
                if((stat & TS_WAITING) != 0)
                {
                                /* 待
ち情
å ±ã®ãƒ‡ã‚³ãƒ¼ãƒ‰ */
                        decode_waitstatus((TCB *)tcb, objtype, objid);

                        if((stat & TS_SUSPENDED) != 0)
                                *tskstat = TTS_WAS;
                        else
                                *tskstat = TTS_WAI;
                }else
                {
                        if((stat & TS_SUSPENDED) != 0)
                                *tskstat = TTS_SUS;
                }
        }
}

#endif