source: UsbWattMeter/trunk/ecnl_lwip/echonet.tf@ 164

$ =====================================================================
$ 
$  TOPPERS ECHONET Lite Communication Middleware
$ 
$  Copyright (C) 2014-2016 Cores Co., Ltd. Japan
$ 
$  ã‹L’˜ìŒ ŽÒ‚́CˆÈ‰º‚Ì(1)`(4)‚ÌðŒ‚ð–ž‚½‚·ê‡‚ÉŒÀ‚èC–{ƒ\ƒtƒgƒEƒF
$  ƒAi–{ƒ\ƒtƒgƒEƒFƒA‚ð‰ü•Ï‚µ‚½‚à‚Ì‚ðŠÜ‚ށDˆÈ‰º“¯‚¶j‚ðŽg—pE•¡»E‰ü
$  •ÏEÄ”z•ziˆÈ‰ºC—˜—p‚ƌĂԁj‚·‚邱‚Ƃ𖳏ž‚Å‹–‘ø‚·‚éD
$  (1) –{ƒ\ƒtƒgƒEƒFƒA‚ðƒ\[ƒXƒR[ƒh‚ÌŒ`‚Å—˜—p‚·‚éê‡‚ɂ́Cã‹L‚Ì’˜ì
$      Œ •\Ž¦C‚±‚Ì—˜—pðŒ‚¨‚æ‚щº‹L‚Ì–³•ÛØ‹K’肪C‚»‚Ì‚Ü‚Ü‚ÌŒ`‚Ń\[
$      ƒXƒR[ƒh’†‚ÉŠÜ‚Ü‚ê‚Ä‚¢‚邱‚ƁD
$  (2) –{ƒ\ƒtƒgƒEƒFƒA‚ðCƒ‰ƒCƒuƒ‰ƒŠŒ`Ž®‚ȂǁC‘¼‚̃\ƒtƒgƒEƒFƒAŠJ”­‚ÉŽg
$      —p‚Å‚«‚éŒ`‚ōĔz•z‚·‚éê‡‚ɂ́CÄ”z•z‚É”º‚¤ƒhƒLƒ…
ƒƒ“ƒgi—˜—p
$      ŽÒƒ}ƒjƒ…
ƒAƒ‹‚Ȃǁj‚ɁCã‹L‚Ì’˜ìŒ •\Ž¦C‚±‚Ì—˜—pðŒ‚¨‚æ‚щº‹L
$      ‚Ì–³•ÛØ‹K’è‚ðŒfÚ‚·‚邱‚ƁD
$  (3) –{ƒ\ƒtƒgƒEƒFƒA‚ðC‹@Ší‚É‘g‚ݍž‚ނȂǁC‘¼‚̃\ƒtƒgƒEƒFƒAŠJ”­‚ÉŽg
$      —p‚Å‚«‚È‚¢Œ`‚ōĔz•z‚·‚éê‡‚ɂ́CŽŸ‚Ì‚¢‚¸‚ê‚©‚ÌðŒ‚ð–ž‚½‚·‚±
$      ‚ƁD
$    (a) Ä”z•z‚É”º‚¤ƒhƒLƒ…
ƒƒ“ƒgi—˜—pŽÒƒ}ƒjƒ…
ƒAƒ‹‚Ȃǁj‚ɁCã‹L‚Ì’˜
$        ìŒ •\Ž¦C‚±‚Ì—˜—pðŒ‚¨‚æ‚щº‹L‚Ì–³•ÛØ‹K’è‚ðŒfÚ‚·‚邱‚ƁD
$    (b) Ä”z•z‚ÌŒ`‘Ô‚ðC•Ê‚É’è‚ß‚é•û–@‚É‚æ‚Á‚āCTOPPERSƒvƒƒWƒFƒNƒg‚É
$        •ñ‚·‚邱‚ƁD
$  (4) –{ƒ\ƒtƒgƒEƒFƒA‚Ì—˜—p‚É‚æ‚è’¼Ú“I‚Ü‚½‚͊ԐړI‚ɐ¶‚¶‚é‚¢‚©‚Ȃ鑹
$      ŠQ‚©‚ç‚àCã‹L’˜ìŒ ŽÒ‚¨‚æ‚ÑTOPPERSƒvƒƒWƒFƒNƒg‚ð–Ɛӂ·‚邱‚ƁD
$      ‚Ü‚½C–{ƒ\ƒtƒgƒEƒFƒA‚̃†[ƒU‚Ü‚½‚̓Gƒ“ƒhƒ†[ƒU‚©‚ç‚Ì‚¢‚©‚Ȃ闝
$      —R‚ÉŠî‚­¿‹‚©‚ç‚àCã‹L’˜ìŒ ŽÒ‚¨‚æ‚ÑTOPPERSƒvƒƒWƒFƒNƒg‚ð
$      –Ɛӂ·‚邱‚ƁD
$ 
$  –{ƒ\ƒtƒgƒEƒFƒA‚́C–³•ÛØ‚Å’ñ‹Ÿ‚³‚ê‚Ä‚¢‚é‚à‚Ì‚Å‚ ‚éDã‹L’˜ìŒ ŽÒ‚¨
$  ‚æ‚ÑTOPPERSƒvƒƒWƒFƒNƒg‚́C–{ƒ\ƒtƒgƒEƒFƒA‚ÉŠÖ‚µ‚āC“Á’è‚ÌŽg—p–Ú“I
$  ‚ɑ΂·‚é“K‡«‚àŠÜ‚߂āC‚¢‚©‚È‚é•ÛØ‚às‚í‚È‚¢D‚Ü‚½C–{ƒ\ƒtƒgƒEƒF
$  ƒA‚Ì—˜—p‚É‚æ‚è’¼Ú“I‚Ü‚½‚͊ԐړI‚ɐ¶‚¶‚½‚¢‚©‚Ȃ鑹ŠQ‚ÉŠÖ‚µ‚Ä‚àC‚»
$  ‚̐ӔC‚𕉂í‚È‚¢D
$ 
$  @(#) $Id: echonet.tf 164 2016-03-07 11:33:50Z coas-nagasima $
$ 
$ =====================================================================

$ =====================================================================
$ echonet_cfg.h‚̐¶¬
$ =====================================================================

$FILE "echonet_cfg.h"$
/* echonet_cfg.h */$NL$
#ifndef TOPPERS_ECHONET_CFG_H$NL$
#define TOPPERS_ECHONET_CFG_H$NL$
$NL$

#include "echonet_app_config.h"$NL$
$NL$

$ ƒm[ƒhƒŠƒXƒg‚̍쐬
$ENOD.LIST = {}$
$LOCAL_NODE = {}$
$REMOTE_NODE = {}$

$FOREACH eobjid EOBJ.ORDER_LIST$
$       // ƒm[ƒhƒvƒƒtƒ@ƒCƒ‹ƒIƒuƒWƒFƒNƒg‚̏ꍇ
        $IF (EOBJ.EOBJATR[eobjid] & EOBJ_LOCAL_NODE) != 0$
                $LOCAL_NODE = APPEND(LOCAL_NODE, eobjid)$
$       // ‹@ŠíƒIƒuƒWƒFƒNƒg‚̏ꍇ
        $ELIF (EOBJ.EOBJATR[eobjid] & (EOBJ_SYNC_REMOTE_NODE|EOBJ_ASYNC_REMOTE_NODE)) != 0$
                $REMOTE_NODE = APPEND(REMOTE_NODE, eobjid)$
        $END$
$END$

$       // ƒ[ƒJƒ‹‚̃m[ƒhƒvƒƒtƒ@ƒCƒ‹‚Í‚P‚‚¾‚¯
$IF LENGTH(LOCAL_NODE) != 1$
        $ERROR$Local node must be only one.$END$
$END$

$ENOD.LIST = APPEND(LOCAL_NODE, REMOTE_NODE)$

#define TNUM_ENODID     $LENGTH(ENOD.LIST)$$NL$
$NL$

#define TNUM_EOBJID     $LENGTH(EOBJ.ID_LIST)$$NL$
$NL$
$FOREACH id EOBJ.ID_LIST$
        #define $id$    $+id$$NL$
$END$
$NL$

$FOREACH eobjid EOBJ.ID_LIST$
        $eprp_list = {}$
        $prp_map_cnt = 3$
$       // ƒm[ƒhƒvƒƒtƒ@ƒCƒ‹‚̏ꍇ
        $IF (EOBJ.EOBJATR[eobjid] & (EOBJ_LOCAL_NODE|EOBJ_SYNC_REMOTE_NODE|EOBJ_ASYNC_REMOTE_NODE)) != 0$
                $prp_map_cnt = prp_map_cnt + 5$
        $END$

        $FOREACH eprpno EPRP.ID_LIST$
                $IF EQ(EPRP.EOBJID[eprpno], eobjid)$
                        $eprp_list = APPEND(eprp_list, eprpno)$
                $END$

                $IF (EPRP.EPRPCD[eprpno] == 0x9D) || (EPRP.EPRPCD[eprpno] == 0x9E) || (EPRP.EPRPCD[eprpno] == 0x9F)$
                        $prp_map_cnt = prp_map_cnt - 1$
                $END$

$               // ƒm[ƒhƒvƒƒtƒ@ƒCƒ‹‚̏ꍇ
                $IF (EOBJ.EOBJATR[eobjid] & (EOBJ_LOCAL_NODE|EOBJ_SYNC_REMOTE_NODE|EOBJ_ASYNC_REMOTE_NODE)) != 0$
                        $IF (EPRP.EPRPCD[eprpno] >= 0xD3) && (EPRP.EPRPCD[eprpno] <= 0xD7)$
                                $prp_map_cnt = prp_map_cnt - 1$
                        $END$
                $END$
        $END$

        #define TNUM_$EOBJ.EOBJID[eobjid]$_EPRPNO       $LENGTH(eprp_list) + prp_map_cnt$$NL$
$END$$NL$

$FOREACH enodid ENOD.LIST$
        $eobj_count = 0$

        $FOREACH eobjid EOBJ.ID_LIST$
                $IF EQ(EOBJ.ENODID[eobjid], enodid)$
                        $eobj_count = eobj_count + 1$
                $END$
        $END$

        #define TNUM_$EOBJ.EOBJID[enodid]$_EOBJNO       $eobj_count$$NL$
$END$$NL$

#ifndef TNUM_ENODADR$NL$
#define TNUM_ENODADR 100$NL$
#endif$NL$
$NL$

#endif /* TOPPERS_ECHONET_CFG_H */$NL$

$ =====================================================================
$ echonet_cfg.c‚̐¶¬
$ =====================================================================

$FILE "echonet_cfg.c"$
/* echonet_cfg.c */$NL$
#include "echonet.h"$NL$
#include "echonet_cfg.h"$NL$
$NL$

$ 
$  ƒCƒ“ƒNƒ‹[ƒhƒfƒBƒŒƒNƒeƒBƒui#includej
$ 
/*$NL$
$SPC$*  Include Directives (#include)$NL$
$SPC$*/$NL$
$NL$
$INCLUDES$
$NL$

$ 
$  ƒIƒuƒWƒFƒNƒg‚ÌID”ԍ†‚ð•ÛŽ‚·‚é•Ï”
$ 
$IF USE_EXTERNAL_ID$
        /*$NL$
        $SPC$*  Variables for Object ID$NL$
        $SPC$*/$NL$
        $NL$
        $FOREACH id EOBJ.ID_LIST$
                const ID $id$_id$SPC$=$SPC$$+id$;$NL$
        $END$
$END$

$ 
$  ECHONET LiteƒvƒƒpƒeƒB
$ 
/*$NL$
$SPC$*  ECHONET Lite Property Functions$NL$
$SPC$*/$NL$
$NL$

$INCLUDE "echonet_chk.tf"$

$ ECHONET LiteƒvƒƒpƒeƒB‰Šú‰»ƒuƒƒbƒN‚̐¶¬
$IF LENGTH(EOBJ.ID_LIST) && LENGTH(EPRP.ID_LIST)$
        $FOREACH enodid ENOD.LIST$
                $INST_LIST = {}$
                $CLASS_LIST = {}$

                $FOREACH eobjid EOBJ.ID_LIST$
                        $IF EQ(EOBJ.ENODID[eobjid], enodid)$
                                $INST_LIST = APPEND(INST_LIST, eobjid)$

                                $M = -1$
                                $FOREACH id CLASS_LIST$
                                        $IF (EOBJ.EOJX1[eobjid] == EOBJ.EOJX1[id]) && (EOBJ.EOJX2[eobjid] == EOBJ.EOJX2[id])$
                                                $M = id$
                                        $END$
                                $END$
                                $IF M == -1$
                                        $CLASS_LIST = APPEND(CLASS_LIST, eobjid)$
                                $END$
                        $END$
                $END$

                /*$NL$
                $SPC$* ƒCƒ“ƒXƒ^ƒ“ƒX”$NL$
                $SPC$*/$NL$
                $inst_list_len = LENGTH(INST_LIST)$
                const uint8_t _echonet_$EOBJ.EOBJID[enodid]$_inst_count[] = {$NL$
                        $TAB$$FORMAT("0x%1$x, 0x%2$x, 0x%3$x", (inst_list_len & 0xFF0000) >> 16, (inst_list_len & 0xFF00) >> 8, inst_list_len & 0xFF)$$NL$
                };$NL$
                $NL$

                /*$NL$
                $SPC$* ƒNƒ‰ƒX”$NL$
                $SPC$*/$NL$
$               // ƒm[ƒhƒvƒƒtƒ@ƒCƒ‹‚àŠÜ‚ß‚éi + 1j
                $class_list_len = LENGTH(CLASS_LIST) + 1$
                const uint8_t _echonet_$EOBJ.EOBJID[enodid]$_class_count[] = {$NL$
                        $TAB$$FORMAT("0x%1$x, 0x%2$x", (class_list_len & 0xFF00) >> 8, class_list_len & 0xFF)$$NL$
                };$NL$
                $NL$

                /*$NL$
                $SPC$* ƒCƒ“ƒXƒ^ƒ“ƒXƒŠƒXƒg$NL$
                $SPC$*/$NL$
                $pos = 0$
                $IF inst_list_len > 84$
                        $ERROR EPRP.TEXT_LINE[eprpno]$E_PAR: $FORMAT(_("instance list count overflow, %1% %2% > 84"), enodid, inst_list_len)$$END$
                $END$
                const uint8_t _echonet_$EOBJ.EOBJID[enodid]$_inst_list[] = {$NL$
                $IF inst_list_len > 0xFE$
                        $TAB$0xFF, 
                $ELSE$
                        $TAB$$FORMAT("0x%1$x, ", inst_list_len)$
                $END$
                $JOINEACH id INST_LIST ", "$
                        $FORMAT("0x%1$x, 0x%2$x, 0x%3$x", +EOBJ.EOJX1[id], +EOBJ.EOJX2[id], +EOBJ.EOJX3[id])$
                $END$$NL$
                };$NL$
                $NL$

                /*$NL$
                $SPC$* ƒNƒ‰ƒXƒŠƒXƒg$NL$
                $SPC$*/$NL$
                $pos = 0$
                $class_list_len = LENGTH(CLASS_LIST)$
                $IF class_list_len > 84$
                        $ERROR EPRP.TEXT_LINE[eprpno]$E_PAR: $FORMAT(_("class list count overflow, %1% %2% > 84"), enodid, class_list_len)$$END$
                $END$
                const uint8_t _echonet_$EOBJ.EOBJID[enodid]$_class_list[] = {$NL$
                $IF class_list_len > 0xFE$
                        $TAB$0xFF, 
                $ELSE$
                        $TAB$$FORMAT("0x%1$x, ", class_list_len)$
                $END$
                $JOINEACH id CLASS_LIST ", "$
                        $FORMAT("0x%1$x, 0x%2$x", +EOBJ.EOJX1[id], +EOBJ.EOJX2[id])$
                $END$$NL$
                };$NL$
                $NL$
        $END$

        $FOREACH eobjid EOBJ.ID_LIST$
                $eprp_list = {}$
                $anno_list = {}$
                $set_list = {}$
                $get_list = { 0x9D, 0x9E, 0x9F }$
                $FOREACH i { 0 , 1 , ... , 15 }$
                        $anno_map[i] = 0x00$
                        $set_map[i] = 0x00$
                        $get_map[i] = 0x00$
                $END$
$               // 0x9DA0x9EA0x9F‚ÍON‚É‚µ‚Ä‚¨‚­
                $FOREACH i { 13 , 14 , 15 }$
                        $anno_map[i] = anno_map[i] | 0x02$
                        $get_map[i] = get_map[i] | 0x02$
                $END$
$               // ƒm[ƒhƒvƒƒtƒ@ƒCƒ‹‚̏ꍇ
                $IF (EOBJ.EOBJATR[eobjid] & (EOBJ_LOCAL_NODE|EOBJ_SYNC_REMOTE_NODE|EOBJ_ASYNC_REMOTE_NODE)) != 0$
                        $anno_map[5] = anno_map[5] | 0x20$
                        $anno_list = APPEND(anno_list, { 0xD5 })$
                        $FOREACH i { 3 , 4 , 6 , 7 }$
                                $get_map[i] = get_map[i] | 0x20$
                        $END$
                        $get_list = APPEND(get_list, { 0xD3, 0xD4, 0xD6, 0xD7 })$
                $END$

                $FOREACH eprpno EPRP.ID_LIST$
                        $IF EQ(EPRP.EOBJID[eprpno], eobjid)$
$                               // (0x80 <= eprpcd && eprpcd <= 0xFF)‚Å‚È‚¢ê‡iE_PARj
                                $IF !(0x80 <= EPRP.EPRPCD[eprpno] && EPRP.EPRPCD[eprpno] <= 0xFF)$
                                        $ERROR EPRP.TEXT_LINE[eprpno]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eprpcd", EPRP.EPRPCD[eprpno], eprpno, "ECN_DEF_EPRP")$$END$
                                $END$

$                               // eprpatr‚ªimEPC_RULE_SET] | [EPC_RULE_GET] | [EPC_RULE_ANNO] | [EPC_ANNOUNCEn| [EPC_VARIABLE]j‚Å‚È‚¢ê‡iE_RSATRj
                                $IF (EPRP.EPRPATR[eprpno] & ~(EPC_RULE_SET|EPC_RULE_GET|EPC_RULE_ANNO|EPC_ANNOUNCE|EPC_VARIABLE)) != 0$
                                        $ERROR EPRP.TEXT_LINE[eprpno]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eprpatr", EPRP.EPRPATR[eprpno], eprpno, "ECN_DEF_EPRP")$$END$
                                $END$

$                               // (0 <= eprpsz && eprpsz <= 255)‚Å‚È‚¢ê‡iE_PARj
                                $IF !(0 <= EPRP.EPRPSZ[eprpno] && EPRP.EPRPSZ[eprpno] <= 255)$
                                        $ERROR EPRP.TEXT_LINE[eprpno]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eprpsz", EPRP.EPRPSZ[eprpno], eprpno, "ECN_DEF_EPRP")$$END$
                                $END$

$                               // ƒvƒƒpƒeƒBƒ}ƒbƒv‚ɐݒè
                                $pos = EPRP.EPRPCD[eprpno] & 0xF$
                                $bit = (EPRP.EPRPCD[eprpno] >> 4) - 8$
                                $IF (EPRP.EPRPATR[eprpno] & EPC_ANNOUNCE) != 0$
                                        $anno_list = APPEND(anno_list, EPRP.EPRPCD[eprpno])$
                                        $anno_map[pos] = anno_map[pos] | (1 << bit)$
                                $END$
                                $IF (EPRP.EPRPATR[eprpno] & EPC_RULE_SET) != 0$
                                        $set_list = APPEND(set_list, EPRP.EPRPCD[eprpno])$
                                        $set_map[pos] = set_map[pos] | (1 << bit)$
                                $END$
                                $IF (EPRP.EPRPATR[eprpno] & EPC_RULE_GET) != 0$
                                        $get_list = APPEND(get_list, EPRP.EPRPCD[eprpno])$
                                        $get_map[pos] = get_map[pos] | (1 << bit)$
                                $END$

                                $eprp_list = APPEND(eprp_list, eprpno)$
                        $END$
                $END$

$               // •K{ƒAƒiƒEƒ“ƒXƒvƒƒpƒeƒB‚ª‚ ‚é‚©ƒ`ƒFƒbƒN
                $must_anno_map = GetPropertyInfo(EOBJ.EOJX1[eobjid], EOBJ.EOJX2[eobjid], EPC_ANNOUNCE)$
                $i = 0$
                $WHILE i < LENGTH(ResultOfGetPropertyInfo)$
                        $j = FIND(anno_list, +AT(ResultOfGetPropertyInfo, i))$
                        $IF !LENGTH(j)$
                                $ERROR$$FORMAT("Required announce property (0x%1$x) of %2% is not defined.", +AT(ResultOfGetPropertyInfo, i), eobjid)$$END$
                        $END$
                        $i = i + 1$
                $END$

$               // •K{SETƒvƒƒpƒeƒB‚ª‚ ‚é‚©ƒ`ƒFƒbƒN
                $must_set_map = GetPropertyInfo(EOBJ.EOJX1[eobjid], EOBJ.EOJX2[eobjid], EPC_RULE_SET)$
                $i = 0$
                $WHILE i < LENGTH(ResultOfGetPropertyInfo)$
                        $j = FIND(set_list, +AT(ResultOfGetPropertyInfo, i))$
                        $IF !LENGTH(j)$
                                $ERROR$$FORMAT("Required set property (0x%1$x) of %2% is not defined.", +AT(ResultOfGetPropertyInfo, i), eobjid)$$END$
                        $END$
                        $i = i + 1$
                $END$

$               // •K{GETƒvƒƒpƒeƒB‚ª‚ ‚é‚©ƒ`ƒFƒbƒN
                $must_get_map = GetPropertyInfo(EOBJ.EOJX1[eobjid], EOBJ.EOJX2[eobjid], EPC_RULE_GET)$
                $i = 0$
                $WHILE i < LENGTH(ResultOfGetPropertyInfo)$
                        $j = FIND(get_list, +AT(ResultOfGetPropertyInfo, i))$
                        $IF !LENGTH(j)$
                                $ERROR$$FORMAT("Required get property (0x%1$x) of %2% is not defined.", +AT(ResultOfGetPropertyInfo, i), eobjid)$$END$
                        $END$
                        $i = i + 1$
                $END$

                /*$NL$
                $SPC$* ƒAƒiƒEƒ“ƒXƒvƒƒpƒeƒBƒ}ƒbƒv$NL$
                $SPC$*/$NL$
                $anno_list = LSORT(anno_list, "compare")$
                $anno_len = LENGTH(anno_list)$
                const uint8_t _echonet_$EOBJ.EOBJID[eobjid]$_anno_prpmap[] = {$NL$
                $TAB$$FORMAT("0x%1$x" , +anno_len)$, 
                $IF anno_len < 16$
                        $JOINEACH eprpcd anno_list ", "$
                                $FORMAT("0x%1$x" , +eprpcd)$
                        $END$$NL$
                        $anno_len = anno_len + 1$
                $ELSE$
                        $JOINEACH i anno_map ", "$
                                $FORMAT("0x%1$x" , +anno_map[i])$
                        $END$$NL$
                        $anno_len = 17$
                $END$
                };$NL$
                $NL$

                /*$NL$
                $SPC$* SETƒvƒƒpƒeƒBƒ}ƒbƒv$NL$
                $SPC$*/$NL$
                $set_list = LSORT(set_list, "compare")$
                $set_len = LENGTH(set_list)$
                const uint8_t _echonet_$EOBJ.EOBJID[eobjid]$_set_prpmap[] = {$NL$
                $TAB$$FORMAT("0x%1$x" , +set_len)$, 
                $IF set_len < 16$
                        $JOINEACH eprpcd set_list ", "$
                                $FORMAT("0x%1$x" , +eprpcd)$
                        $END$$NL$
                        $set_len = set_len + 1$
                $ELSE$
                        $JOINEACH i set_map ", "$
                                $FORMAT("0x%1$x" , +set_map[i])$
                        $END$$NL$
                        $set_len = 17$
                $END$
                };$NL$
                $NL$

                /*$NL$
                $SPC$* GETƒvƒƒpƒeƒBƒ}ƒbƒv$NL$
                $SPC$*/$NL$
                $get_list = LSORT(get_list, "compare")$
                $get_len = LENGTH(get_list)$
                const uint8_t _echonet_$EOBJ.EOBJID[eobjid]$_get_prpmap[] = {$NL$
                $TAB$$FORMAT("0x%1$x" , +get_len)$, 
                $IF get_len < 16$
                        $JOINEACH eprpcd get_list ", "$
                                $FORMAT("0x%1$x" , +eprpcd)$
                        $END$$NL$
                        $get_len = get_len + 1$
                $ELSE$
                        $JOINEACH i { 0 , 1 , ... , 15 } ", "$
                                $FORMAT("0x%1$x" , +get_map[i])$
                        $END$$NL$
                        $get_len = 17$
                $END$
                };$NL$
                $NL$

                /*$NL$
                $SPC$* ƒvƒƒpƒeƒB’è‹`$NL$
                $SPC$*/$NL$
                const EPRPINIB _echonet_$EOBJ.EOBJID[eobjid]$_eprpinib_table[TNUM_$EOBJ.EOBJID[eobjid]$_EPRPNO] = {$NL$
                $FOREACH eprpno eprp_list$
$                       // ECHONET LiteƒvƒƒpƒeƒB‰Šú‰»ƒuƒƒbƒN
                        $TAB${ ($EPRP.EPRPCD[eprpno]$), ($EPRP.EPRPATR[eprpno]$), ($EPRP.EPRPSZ[eprpno]$), ($EPRP.EXINF[eprpno]$), ($EPRP.EPRPSET[eprpno]$), ($EPRP.EPRPGET[eprpno]$) },$NL$
                $END$
$               // ó‘ÔƒAƒiƒEƒ“ƒXƒvƒƒpƒeƒBƒ}ƒbƒv
                $TAB${ (0x9D), (EPC_RULE_GET), $FORMAT("0x%1$x" , +anno_len)$, (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_anno_prpmap, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) },$NL$
$               // SetƒvƒƒpƒeƒBƒ}ƒbƒv
                $TAB${ (0x9E), (EPC_RULE_GET), $FORMAT("0x%1$x" , +set_len)$, (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_set_prpmap, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) },$NL$
$               // GetƒvƒƒpƒeƒBƒ}ƒbƒv
                $TAB${ (0x9F), (EPC_RULE_GET), $FORMAT("0x%1$x" , +get_len)$, (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_get_prpmap, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) }
$               // ƒm[ƒhƒvƒƒtƒ@ƒCƒ‹‚̏ꍇ
                $IF (EOBJ.EOBJATR[eobjid] & (EOBJ_LOCAL_NODE|EOBJ_SYNC_REMOTE_NODE|EOBJ_ASYNC_REMOTE_NODE)) != 0$
                        ,$NL$
$                       // ƒCƒ“ƒXƒ^ƒ“ƒX”
                        $TAB${ (0xD3), (EPC_RULE_GET), (3), (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_inst_count, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) },$NL$
$                       // ƒNƒ‰ƒX”
                        $TAB${ (0xD4), (EPC_RULE_GET), (2), (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_class_count, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) },$NL$
$                       // ƒCƒ“ƒXƒ^ƒ“ƒXƒŠƒXƒg’Ê’m
                        $TAB${ (0xD5), (EPC_RULE_ANNO), sizeof(_echonet_$EOBJ.EOBJID[eobjid]$_inst_list), (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_inst_list, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) },$NL$
$                       // ƒCƒ“ƒXƒ^ƒ“ƒXƒŠƒXƒgS
                        $TAB${ (0xD6), (EPC_RULE_GET), sizeof(_echonet_$EOBJ.EOBJID[eobjid]$_inst_list), (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_inst_list, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) },$NL$
$                       // ƒNƒ‰ƒXƒŠƒXƒgS
                        $TAB${ (0xD7), (EPC_RULE_GET), sizeof(_echonet_$EOBJ.EOBJID[eobjid]$_class_list), (intptr_t)_echonet_$EOBJ.EOBJID[eobjid]$_class_list, ((EPRP_SETTER *)NULL), ((EPRP_GETTER *)ecn_data_prop_get) }$NL$
                $ELSE$
                        $NL$
                $END$
                };$NL$
                $NL$
        $END$$NL$

$ELSE$
        TOPPERS_EMPTY_LABEL(const EPRPINIB, _echonet_eprpinib_table);$NL$
$END$

$ 
$  ECHONET LiteƒIƒuƒWƒFƒNƒg
$ 
/*$NL$
$SPC$*  ECHONET Lite Object Functions$NL$
$SPC$*/$NL$
$NL$

$ ECHONET LiteƒIƒuƒWƒFƒNƒgID”ԍ†‚̍őå’l
const ID _echonet_tmax_eobjid = (TMIN_EOBJID + TNUM_EOBJID - 1);$NL$
$NL$

$ ECHONET LiteƒIƒuƒWƒFƒNƒg‰Šú‰»ƒuƒƒbƒN‚̐¶¬
$IF LENGTH(EOBJ.ID_LIST)$
        const EOBJINIB _echonet_eobjinib_table[TNUM_EOBJID] = {$NL$
        $JOINEACH eobjid EOBJ.ID_LIST ",\n"$
$               // eobjatr‚ªimEOBJ_LOCAL_NODE] | [EOBJ_SYNC_REMOTE_NODE] | [EOBJ_ASYNC_REMOTE_NODE] | [EOBJ_DEVICEnj‚Å‚È‚¢ê‡iE_RSATRj
                $IF (EOBJ.EOBJATR[eobjid] & ~(EOBJ_LOCAL_NODE|EOBJ_SYNC_REMOTE_NODE|EOBJ_ASYNC_REMOTE_NODE|EOBJ_DEVICE)) != 0$
                        $ERROR EOBJ.TEXT_LINE[eobjid]$E_RSATR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eobjatr", EOBJ.EOBJATR[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                $END$

$               // ƒm[ƒhƒvƒƒtƒ@ƒCƒ‹ƒIƒuƒWƒFƒNƒg‚̏ꍇ
                $IF (EOBJ.EOBJATR[eobjid] & (EOBJ_LOCAL_NODE|EOBJ_SYNC_REMOTE_NODE|EOBJ_ASYNC_REMOTE_NODE)) != 0$
$                       // (enodid == EOBJ_NULL)‚Å‚È‚¢ê‡iE_PARj
                        $IF !EQ(EOBJ.ENODID[eobjid], EOBJ_NULL)$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "enodid", EOBJ.ENODID[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$

$                       // (eojx1 == EOJ_X1_PROFILE)‚Å‚È‚¢ê‡iE_PARj
                        $IF EOBJ.EOJX1[eobjid] != EOJ_X1_PROFILE$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eojx1", EOBJ.EOJX1[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$

$                       // (eojx2 == EOJ_X2_NODE_PROFILE)‚Å‚È‚¢ê‡iE_PARj
                        $IF EOBJ.EOJX2[eobjid] != EOJ_X2_NODE_PROFILE$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eojx2", EOBJ.EOJX2[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$

$                       // (1 <= eojx3 && eojx3 <= 2)‚Å‚È‚¢ê‡iE_PARj
                        $IF !(1 <= EOBJ.EOJX3[eobjid] && EOBJ.EOJX3[eobjid] <= 2)$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eojx3", EOBJ.EOJX3[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$
$               // ‹@ŠíƒIƒuƒWƒFƒNƒg‚̏ꍇ
                $ELSE$
$                       // (enodid != EOBJ_NULL)‚Å‚È‚¢ê‡iE_PARj
                        $IF EQ(EOBJ.ENODID[eobjid], EOBJ_NULL)$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "enodid", EOBJ.ENODID[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$

$                       // (0 <= eojx1 && eojx1 <= 255)‚Å‚È‚¢ê‡iE_PARj
                        $IF !(0 <= EOBJ.EOJX1[eobjid] && EOBJ.EOJX1[eobjid] <= 255)$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eojx1", EOBJ.EOJX1[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$

$                       // (0 <= eojx2 && eojx2 <= 255)‚Å‚È‚¢ê‡iE_PARj
                        $IF !(0 <= EOBJ.EOJX2[eobjid] && EOBJ.EOJX2[eobjid] <= 255)$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eojx2", EOBJ.EOJX2[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$

$                       // (0 <= eojx3 && eojx3 <= 255)‚Å‚È‚¢ê‡iE_PARj
                        $IF !(0 <= EOBJ.EOJX3[eobjid] && EOBJ.EOJX3[eobjid] <= 255)$
                                $ERROR EOBJ.TEXT_LINE[eobjid]$E_PAR: $FORMAT(_("illegal %1% `%2%\' of `%3%\' in %4%"), "eojx3", EOBJ.EOJX3[eobjid], eobjid, "ECN_CRE_EOBJ")$$END$
                        $END$
                $END$

$               // ECHONET LiteƒIƒuƒWƒFƒNƒg‰Šú‰»ƒuƒƒbƒN
                $TAB${ ($EOBJ.EOBJATR[eobjid]$), ($EOBJ.ENODID[eobjid]$), ($EOBJ.EXINF[eobjid]$), ($EOBJ.EOJX1[eobjid]$), ($EOBJ.EOJX2[eobjid]$), ($EOBJ.EOJX3[eobjid]$), _echonet_$EOBJ.EOBJID[eobjid]$_eprpinib_table, TNUM_$EOBJ.EOBJID[eobjid]$_EPRPNO }
        $END$$NL$
        };$NL$
        $NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(const EOBJINIB, _echonet_eobjinib_table);$NL$
$END$
$NL$

$ ECHONET Liteƒm[ƒhŠÇ—ƒuƒƒbƒN‚̐”
const int _echonet_tnum_enodid = TNUM_ENODID;$NL$
$NL$

$ 
$  ECHONET Liteƒm[ƒhŠÇ—ƒuƒƒbƒN
$ 
/*$NL$
$SPC$*  ECHONET Lite Node Functions$NL$
$SPC$*/$NL$
$NL$
$ ECHONET Liteƒm[ƒh‚ÆIPƒAƒhƒŒƒX‚̑Ήžî•ñƒuƒƒbƒN‚̐¶¬
$FOREACH enodid ENOD.LIST$
        $eobj_list = {}$
        $FOREACH eobjid EOBJ.ID_LIST$
                $IF EQ(EOBJ.ENODID[eobjid], enodid)$
                        $eobj_list = APPEND(eobj_list, eobjid)$
                $END$
        $END$
        /*$NL$
        $SPC$* ƒm[ƒh‚ɏŠ‘®‚·‚é‹@ŠíƒIƒuƒWƒFƒNƒg‚̈ꗗ$NL$
        $SPC$*/$NL$
        const EOBJINIB *_echonet_$EOBJ.EOBJID[enodid]$_eobjinib_table[TNUM_$EOBJ.EOBJID[enodid]$_EOBJNO] = {$NL$
        $JOINEACH eobjid eobj_list ",\n"$
                $TAB${ &_echonet_eobjinib_table[$eobjid$ - 1] }
        $END$$NL$
        };$NL$
$END$$NL$

$IF LENGTH(ENOD.LIST)$
        /*$NL$
        $SPC$* ECHONET Liteƒm[ƒhŠÇ—ƒuƒƒbƒN$NL$
        $SPC$*/$NL$
        EOBJCB _echonet_eobjcb_table[TNUM_ENODID] = {$NL$
        $JOINEACH enodid ENOD.LIST ",\n"$
                $TAB${ &_echonet_eobjinib_table[$enodid$ - 1], _echonet_$EOBJ.EOBJID[enodid]$_eobjinib_table, TNUM_$EOBJ.EOBJID[enodid]$_EOBJNO }
        $END$$NL$
        };$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(EOBJCB, _echonet_eobjcb_table);$NL$
$END$
$NL$

$ ECHONET Liteƒm[ƒh‚ÆIPƒAƒhƒŒƒX‚̑Ήžî•ñ‚̐”
const int _echonet_tnum_enodadr = TNUM_ENODADR;$NL$
$NL$

$ 
$  ECHONET Liteƒm[ƒh‚ÆIPƒAƒhƒŒƒX‚̑Ήžî•ñ
$ 
/*$NL$
$SPC$*  ECHONET Lite Node Functions$NL$
$SPC$*/$NL$
$NL$
$ ECHONET Liteƒm[ƒh‚ÆIPƒAƒhƒŒƒX‚̑Ήžî•ñƒuƒƒbƒN‚̐¶¬
$IF LENGTH(EOBJ.ID_LIST)$
        ENODADRB _echonet_enodadrb_table[TNUM_ENODADR] = {$NL$
        $JOINEACH enodid ENOD.LIST ",\n"$
                $IF enodid == 1$
                        $TAB$/* ENOD_MULTICAST_ID $TAB$*/ { true, ECHONET_MULTICAST_ADDR },$NL$
                        $TAB$/* ENOD_LOCAL_ID     $TAB$*/ { true, },$NL$
                        $TAB$/* ENOD_API_ID       $TAB$*/ { true, }
                $ELSE$
                        $TAB$/* ENOD_REMOTE_ID + $enodid - 4$$TAB$*/ { true, }
                $END$
        $END$$NL$
        };$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(ENODADRB, _echonet_enodadrb_table);$NL$
$END$
$NL$

$NL$
#include "kernel_cfg.h"$NL$
$NL$

$
$ ECHONET Lite ƒJ[ƒlƒ‹ƒIƒuƒWƒFƒNƒgID
$
const ID _echonet_ecn_svc_taskid = ECHONET_SVC_TASK;$NL$
const ID _echonet_ecn_udp_taskid = ECHONET_UDP_TASK;$NL$
const ID _echonet_ecn_api_mailboxid = ECHONET_API_MAILBOX;$NL$
const ID _echonet_ecn_svc_mailboxid = ECHONET_SVC_MAILBOX;$NL$
const ID _echonet_ecn_udp_mailboxid = ECHONET_UDP_MAILBOX;$NL$
const ID _echonet_ecn_mem_semid = ECHONET_MEM_SEMAPHORE;$NL$
$NL$