source: asp3_wo_tecs/trunk/kernel/mempfix.tf@ 302

$
$   TOPPERS/ASP Kernel
$       Toyohashi Open Platform for Embedded Real-Time Systems/
$       Advanced Standard Profile Kernel
$ 
$   Copyright (C) 2007 by TAKAGI Nobuhisa
$   Copyright (C) 2007-2014 by Embedded and Real-Time Systems Laboratory
$               Graduate School of Information Science, Nagoya Univ., JAPAN
$ 
$   上記著作権者
は，以下の(1)〜(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
$   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
$   変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
$   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
$       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
$       スコード中に含まれていること．
$   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
$       用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
$       者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
$       の無保証規定を掲載すること．
$   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
$       用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
$       と．
$     (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
$         作権表示，この利用条件および下記の無保証規定を掲載すること．
$     (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
$         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
$   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
$       害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
$       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
$       由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
$       å…
è²¬ã™ã‚‹ã“と．
$ 
$   本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
$   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
$   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
$   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
$   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
$ 
$   $Id: mempfix.tf 480 2016-01-03 07:37:12Z ertl-hiro $
$ 

$
$               固定長メモリプール機能のテンプレートファイル
$

$
$  kernel_cfg.hの生成
$
$FILE "kernel_cfg.h.new"$

#define TNUM_MPFID      $LENGTH(MPF.ID_LIST)$$NL$
$FOREACH id MPF.ID_LIST$
        #define $id$    $+id$$NL$
$END$

$
$  kernel_cfg.cの生成
$
$FILE "kernel_cfg.c"$

/*$NL$
$SPC$*  Fixed-sized Memorypool Functions$NL$
$SPC$*/$NL$
$NL$

$
$  固定長メモリプールのID番号を保持する変数
$
$IF USE_EXTERNAL_ID$
        $FOREACH id MPF.ID_LIST$
                const ID $id$_id = $+id$;$NL$
        $END$
$END$

$
$  固定長メモリプールID番号の最大値
$
const ID _kernel_tmax_mpfid = (TMIN_MPFID + TNUM_MPFID - 1);$NL$
$NL$

$
$  固定長メモリプール初期化ブロック
$
$IF LENGTH(MPF.ID_LIST)$
        $FOREACH mpfid MPF.ID_LIST$
$               // mpfatrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI2225ï¼½
$               //（TA_TPRIä»¥å¤–ã®ãƒ“ãƒƒãƒˆãŒã‚»ãƒƒãƒˆã•ã‚Œã¦ã„ã‚‹å ´åˆï¼‰
                $IF (MPF.MPFATR[mpfid] & ~TA_TPRI) != 0$
                        $ERROR MPF.TEXT_LINE[mpfid]$E_RSATR:$SPC$
                                $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"),
                                                        "mpfatr", MPF.MPFATR[mpfid], mpfid, "CRE_MPF")$
                        $END$
                $END$

$               // blkcntが0ä»¥ä¸‹ã®å ´åˆï¼ˆE_PAR）［NGKI2229ï¼½
                $IF MPF.BLKCNT[mpfid] <= 0$
                        $ERROR MPF.TEXT_LINE[mpfid]$E_PAR:$SPC$
                                $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"),
                                                        "blkcnt", MPF.BLKCNT[mpfid], mpfid, "CRE_MPF")$
                        $END$
                $END$

$               // blkszが0ä»¥ä¸‹ã®å ´åˆï¼ˆE_PAR）［NGKI2230ï¼½
                $IF MPF.BLKSZ[mpfid] <= 0$
                        $ERROR MPF.TEXT_LINE[mpfid]$E_PAR:$SPC$
                                $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"),
                                                        "blksz", MPF.BLKSZ[mpfid], mpfid, "CRE_MPF")$
                        $END$
                $END$

$               // å›ºå®šé•·ãƒ¡ãƒ¢ãƒªãƒ—ãƒ¼ãƒ«é ˜åŸŸ
                $IF EQ(MPF.MPF[mpfid], "NULL")$
                        static MPF_T _kernel_mpf_$mpfid$[($MPF.BLKCNT[mpfid]$)$SPC$
                                                                        * COUNT_MPF_T($MPF.BLKSZ[mpfid]$)];$NL$
                $END$

$               // mpfmbがNULLã§ãªã„å ´åˆï¼ˆE_NOSPT）［ASPS0166ï¼½
                $IF !EQ(MPF.MPFMB[mpfid], "NULL")$
                        $ERROR MPF.TEXT_LINE[mpfid]$E_NOSPT:$SPC$
                                $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"),
                                                        "mpfmb", MPF.MPFMB[mpfid], mpfid, "CRE_MPF")$
                        $END$
                $END$

$               // å›ºå®šé•·ãƒ¡ãƒ¢ãƒªãƒ—ãƒ¼ãƒ«ç®¡ç†é ˜åŸŸ
                static MPFMB _kernel_mpfmb_$mpfid$[$MPF.BLKCNT[mpfid]$];$NL$
        $END$

$       // 固定長メモリプール初期化ブロック
        const MPFINIB _kernel_mpfinib_table[TNUM_MPFID] = {$NL$
        $JOINEACH mpfid MPF.ID_LIST ",\n"$
                $TAB${$SPC$
                        ($MPF.MPFATR[mpfid]$),$SPC$
                        ($MPF.BLKCNT[mpfid]$),$SPC$
                        ROUND_MPF_T($MPF.BLKSZ[mpfid]$),$SPC$
                        $IF EQ(MPF.MPF[mpfid],"NULL")$
                                _kernel_mpf_$mpfid$
                        $ELSE$
                                (void *)($MPF.MPF[mpfid]$)
                        $END$,$SPC$
                        _kernel_mpfmb_$mpfid$$SPC$
                }$END$$NL$
        };$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(const MPFINIB, _kernel_mpfinib_table);$NL$
$END$$NL$

$
$  固定長メモリプール管理ブロックと固定長メモリプール機能初期化関数
$
$IF LENGTH(MPF.ID_LIST)$
        MPFCB _kernel_mpfcb_table[TNUM_MPFID];$NL$
        $initfuncs = APPEND(initfuncs, "_kernel_initialize_mempfix();")$
$ELSE$
        TOPPERS_EMPTY_LABEL(MPFCB, _kernel_mpfcb_table);$NL$
$END$$NL$