source: azure_iot_hub/trunk/azure_iohub/c-utility/adapters/threadapi_toppers.c@ 388

/*
 *  TOPPERS ECHONET Lite Communication Middleware
 * 
 *  Copyright (C) 2019 Cores Co., Ltd. Japan
 * 
 *  上記著作権者
は，以下の(1)～(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
 *  ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
 *  変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
 *  (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
 *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
 *      スコード中に含まれていること．
 *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
 *      用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
 *      者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
 *      の無保証規定を掲載すること．
 *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
 *      用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
 *      と．
 *    (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
 *        作権表示，この利用条件および下記の無保証規定を掲載すること．
 *    (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
 *        å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
 *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
 *      害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
 *      また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
 *      由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
 *      å…
è²¬ã™ã‚‹ã“と．
 * 
 *  本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
 *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
 *  に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
 *  アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
 *  ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
 * 
 *  @(#) $Id: threadapi_toppers.c 388 2019-05-22 11:25:18Z coas-nagasima $
 */
#include <stdint.h>
#include <stdlib.h>
#include <kernel.h>
#include <t_stdlib.h>
#include "azure_c_shared_utility/threadapi.h"
#include "azure_c_shared_utility/xlogging.h"

MU_DEFINE_ENUM_STRINGS(THREADAPI_RESULT, THREADAPI_RESULT_VALUES);

#ifdef TOPPERS_SUPPORT_DYNAMIC_CRE
#define MAX_THREADS 4
#define TASK_PRIORITY ((TMAX_TPRI + TMIN_TPRI) / 2)

typedef struct _thread
{
        ID tskid;
        int result;
} toppersThread;
static toppersThread threads[MAX_THREADS] = { 0 };
#endif

THREADAPI_RESULT ThreadAPI_Create(THREAD_HANDLE* threadHandle, THREAD_START_FUNC func, void* arg)
{
#ifndef TOPPERS_SUPPORT_DYNAMIC_CRE
        LogError("TOPPERS/ASP3 does not support multi-thread function.");
        return THREADAPI_ERROR;
#else
        THREADAPI_RESULT result;
        if ((threadHandle == NULL) ||
                (func == NULL))
        {
                result = THREADAPI_INVALID_ARG;
                LogError("(result = %s)", MU_ENUM_TO_STRING(THREADAPI_RESULT, result));
        }
        else {
                ER_ID ret;
                T_CTSK ctsk;
                toppersThread *thread = NULL;

                for (int i = 0; i < MAX_THREADS; i++) {
                        if (threads[i].tskid == 0) {
                                thread = &threads[i];
                                break;
                        }
                }

                memset(&ctsk, 0, sizeof(ctsk));

                ctsk.exinf = (intptr_t)arg;
                ctsk.task = (TASK)func;
                ctsk.itskpri = TASK_PRIORITY;

                ret = acre_tsk(&ctsk);
                if (ret > 0) {
                        if (thread == NULL) {
                                for (int i = 0; i < MAX_THREADS; i++) {
                                        if (threads[i].tskid == ret) {
                                                thread = &threads[i];
                                                break;
                                        }
                                }
                        }
                        if (thread != NULL) {
                                thread->result = 0;
                        }
                        if (act_tsk(ret) == E_OK) {
                                *threadHandle = (THREAD_HANDLE)(ret);
                                result = THREADAPI_OK;
                        }
                        else {
                                del_tsk(ret);
                                result = THREADAPI_ERROR;
                                LogError("(result = %s)", MU_ENUM_TO_STRING(THREADAPI_RESULT, result));
                        }
                }
                else {
                        result = THREADAPI_NO_MEMORY;
                        LogError("(result = %s)", MU_ENUM_TO_STRING(THREADAPI_RESULT, result));
                }
        }

        return result;
#endif
}

THREADAPI_RESULT ThreadAPI_Join(THREAD_HANDLE threadHandle, int *res)
{
#ifndef TOPPERS_SUPPORT_DYNAMIC_CRE
        LogError("TOPPERS/ASP3 does not support multi-thread function.");
        return THREADAPI_ERROR;
#else
        ID tskid = (ID)threadHandle;
        T_RTSK rtsk;
        toppersThread *thread = NULL;
        ER ret;

        for (;;) {
                ret = ref_tsk(tskid, &rtsk);
                if ((ret != E_OK) || (rtsk.tskstat == TTS_DMT))
                        break;

                dly_tsk(10000);
        }

        for (int i = 0; i < MAX_THREADS; i++) {
                if (threads[i].tskid == ret) {
                        thread = &threads[i];
                        break;
                }
        }

        if (thread != NULL) {
                *res = thread->result;
        }

        return THREADAPI_OK;
#endif
}

void ThreadAPI_Exit(int res)
{
        ER ret;
#ifdef TOPPERS_SUPPORT_DYNAMIC_CRE
        ID tskid;

        ret = get_tid(&tskid);
        if (ret != E_OK) {
                LogError("get_tid error. %s", itron_strerror(ret));
                return;
        }

        for (int i = 0; i < MAX_THREADS; i++) {
                if (threads[i].tskid == tskid) {
                        threads[i].result = res;
                        break;
                }
        }
#endif
        ret = ext_tsk();
        if (ret != E_OK) {
                LogError("ext_tsk error. %s", itron_strerror(ret));
        }
}

void ThreadAPI_Sleep(unsigned int milliseconds)
{
        ER ret;

        ret = dly_tsk((RELTIM)milliseconds * 1000);
        if (ret != E_OK) {
                LogError("dly_tsk error. %s", itron_strerror(ret));
        }
}