source: rtos_arduino/trunk/asp_1.9.2/kernel/genoffset.tf@ 136

$ ======================================================================
$ 
$   TOPPERS/ASP Kernel
$       Toyohashi Open Platform for Embedded Real-Time Systems/
$       Advanced Standard Profile Kernel
$ 
$   Copyright (C) 2011 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: genoffset.tf 2046 2011-04-03 02:33:08Z ertl-hiro $
$ 
$ =====================================================================

$ 
$  #defineディレクティブの生成
$ 
$FUNCTION DEFINE$
        #define $ARGV[1]$$TAB$$FORMAT("%d", +ARGV[2])$$NL$
$END$

$ 
$  ビットのサーチ
$ 
$FUNCTION SEARCH_BIT$
        $_val = ARGV[1]$
        $FOREACH _val_bit RANGE(0,7)$
                $IF (_val & 1) != 0$
                        $RESULT = _val_bit$
                $END$
                $_val = _val >> 1$
        $END$
$END$

$ 
$  ビットフィールドのオフセットとビット位置の定義の生成
$ 
$FUNCTION DEFINE_BIT$
        $label = ARGV[1]$
        $struct_size = ARGV[2]$
        $output_size = ARGV[3]$

        $top = SYMBOL(label)$
        $IF !LENGTH(top)$
                $ERROR$$FORMAT("label %1% not found", label)$$END$
        $ELSE$
                $val = 0$
                $FOREACH i RANGE(0,struct_size-1)$
                        $tmp_val = PEEK(top + i, 1)$
                        $IF val == 0 && tmp_val != 0$
                                $val = tmp_val$
                                $offset = i$
                        $END$
                $END$

                $IF val == 0$
                        $ERROR$$FORMAT("bit not found in %1%", ARGV[1])$$END$
                $ELSE$
                        $val_bit = SEARCH_BIT(val)$
                        $RESULT = {}$
                        $IF EQ(output_size, "W")$
                                $IF SIL_ENDIAN_BIG$
                                        $val_bit = val_bit + 24 - ((offset & 0x03) << 3)$
                                $ELSE$
                                        $val_bit = val_bit + ((offset & 0x03) << 3)$
                                $END$
                                $offset = offset & ~0x03$
                        $ELSE$$IF EQ(output_size, "H")$
                                $IF SIL_ENDIAN_BIG$
                                        $val_bit = val_bit + 8 - ((offset & 0x01) << 3)$
                                $ELSE$
                                        $val_bit = val_bit + ((offset & 0x01) << 3)$
                                $END$
                                $offset = offset & ~0x01$
                        $END$$END$
                $END$

                #define $label$$TAB$$FORMAT("%d", +offset)$$NL$
                #define $label$_bit$TAB$$FORMAT("%d", +val_bit)$$NL$
                #define $label$_mask$TAB$$FORMAT("0x%x", 1 << val_bit)$$NL$
        $END$
$END$

$ 
$  バイトé…
ç½®ã®ãƒã‚§ãƒƒã‚¯
$ 
$FUNCTION MAGIC_CHECK$
        $size = ARGV[1]$
        $check = ARGV[2]$

        $label = FORMAT("MAGIC_%d", +size)$
        $top = SYMBOL(label)$
        $IF !LENGTH(top)$
                $ERROR$$FORMAT("label %1% not found", label)$$END$
        $ELSE$
                $FOREACH offset RANGE(1,size)$
                        $IF SIL_ENDIAN_BIG$
                                $val = PEEK(top + offset - 1, 1)$
                        $ELSE$
                                $val = PEEK(top + size - offset, 1)$
                        $END$
                        $IF val != AT(check, offset - 1)$
                                $ERROR$$FORMAT("value check of %1% failed", label)$$END$
                        $END$
                $END$
        $END$
$END$

$MAGIC_CHECK(1, { 0x12 })$
$MAGIC_CHECK(2, { 0x12, 0x34 })$
$MAGIC_CHECK(4, { 0x12, 0x34, 0x56, 0x78 })$

$ 
$  ファイルヘッダの生成
$ 
$FILE "offset.h"$
/* offset.h */$NL$
$NL$