source: azure_iot_hub/trunk/asp3_dcre/tecsgen/tecslib/plugin/HRP2PostHook.rb@ 388

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

#require "HRP2KernelObjectPlugin"
require_tecsgen_lib "HRP2KernelObjectPlugin.rb"

class HRP2PostHook
    #@celltype:: Celltype
    def initialize( celltype )
        puts "new post hook #{celltype.get_name}"
        @celltype = celltype
    end

    def generate
        # カーネルオブジェクトのセルタイプはメモリ保護しない
#=begin
        # TODO: テストのために無効化
        if HRP2KernelObjectPlugin.include_celltype?( @celltype )
            puts "nothing is generated for kernel object component"
            return
        end
#=end

        rlist = @celltype.get_region_list
        if @celltype.is_singleton?
            # singletonã®å ´åˆ
            puts "<singleton>"

            if rlist.length == 0
                file = AppFile.open( "#{$gen}/tecsgen.cfg" )
            else
                file = AppFile.open( "#{$gen}/tecsgen_#{rlist[0].get_param.to_s}.cfg" )
            end
            # セル管理ブロックとスケルトンのメモリ保護
            file.print "ATT_MOD(\"#{@celltype.get_global_name}_tecsgen.o\");\n"
            if !@celltype.is_all_entry_inline?
                # セルタイプコードのメモリ保護
                file.print "ATT_MOD(\"#{@celltype.get_global_name}.o\");\n"
            end

            file.close

        else
            # singletonã§ãªã„å ´åˆ
            puts "<non-singleton>"

            # スケルトンとセルタイプコードの保護
            if (rlist.length == 1) && 
                (@celltype.get_n_cell_gen == @celltype.get_n_cell_gen_r( rlist[0] ))
                # 所属する保護ドメインが1ã¤ã®å ´åˆ
                puts "<private celltype>"
                file = AppFile.open( "#{$gen}/tecsgen_#{rlist[0].get_param.to_s}.cfg" )
            else
                # 無所属 or æ‰€å±žã™ã‚‹ä¿è­·ãƒ‰ãƒ¡ã‚¤ãƒ³ãŒè¤‡æ•°ã®å ´åˆ
                puts "<shared celltype>"
                file = AppFile.open( "#{$gen}/tecsgen.cfg" )
            end

            # スケルトンのメモリ保護
            file.print "ATT_MOD(\"#{@celltype.get_global_name}_tecsgen.o\");\n"
            if !@celltype.is_all_entry_inline?
                # セルタイプコードのメモリ保護
                file.print "ATT_MOD(\"#{@celltype.get_global_name}.o\");\n"
            end
            file.close

            # セル管理ブロックの保護
            rlist.each { |reg|
                file = AppFile.open( "#{$gen}/tecsgen_#{reg.get_param.to_s}.cfg" )
                file.print "ATT_MOD(\"#{@celltype.get_global_name}_#{reg.get_name.to_s}_tecsgen.o\");\n"
                file.close
            }

        end
    end
end