source: kernel/genoffset.tf

$ ======================================================================
$ 
$   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$
$ 
$ =====================================================================

$ 
$  #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$