tecscde 0.6.0

data/lib/tecsgen/plugin/ATK1AlarmPlugin.rb

@@ -0,0 +1,196 @@
+#
+#  TECS Generator Cell-type plugin
+#      for TOPPERS Embedded Component System
+#
+#   Copyright (C) 2008-2014 by TOPPERS Project TECS-WG
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#   $Id: ATK1AlarmPlugin.rb 2955 2018-05-07 10:23:26Z okuma-top $
+#++
+
+#== celltype プラグインの共通の親クラス
+class ATK1AlarmPlugin < CelltypePlugin
+# @celltype:: Celltype
+# @option:: String     :オプション文字列
+
+  # signature::     Celltype        シグニチャ（インスタンス）
+  def initialize(celltype, option)
+    super
+  end
+
+  #===  CDL ファイルの生成
+  #      typedef, signature, celltype, cell のコードを生成
+  #      重複して生成してはならない
+  #      すでに生成されている場合は出力しないこと。
+  #      もしくは同名の import により、重複を避けること。
+  # file::        FILE       生成するファイル
+#  def gen_cdl_file file
+#  end
+
+  def new_cell(cell)
+  end
+
+  #===  受け口関数の本体(C言語)を生成する
+  #     このメソッドが未定義の場合、ジェネレータは受け口関数のテンプレートを生成する
+  #     このメソッドが定義済みの場合、（テンプレートではなく、変更する必要のない）セルタイプコードを生成する
+  # file::           FILE        出力先ファイル
+  # b_singleton::    bool        true if singleton
+  # ct_name::        Symbol
+  # global_ct_name:: string
+  # sig_name::       string
+  # ep_name::        string
+  # func_name::      string
+  # func_global_name:: string
+  # func_type::      class derived from Type
+#  def gen_ep_func_body( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
+#  end
+
+  def gen_factory(file)
+    file2 = CFile.open("#{$gen}/ALARM_tecsgen.oil", "w")
+
+    # ALARM
+    @celltype.get_cell_list.each {|cell|
+
+    if cell.is_generate?
+
+      file2.print "\tALARM #{cell.get_name} {\n"
+
+      # COUNTER
+      join = cell.get_join_list.get_item(:counter)
+      if join
+        str = join.get_rhs.to_s.gsub(/^"(.*)"$/, '\1')
+        file2.print "\t\tCOUNTER = #{str};\n"
+      end
+
+      # ACTION
+      join = cell.get_join_list.get_item(:action)
+      if join
+        str = join.get_rhs.to_s.gsub(/^"(.*)"$/, '\1')
+      end
+
+      case str
+      when "SETEVENT"
+        file2.print "\t\tACTION = #{str} {\n"
+        join2 = cell.get_join_list.get_item(:task)
+        if join2
+          str = join2.get_rhs.to_s.gsub(/^"(.*)"$/, '\1')
+          file2.print "\t\t\tTASK = #{str};\n"
+        end
+        join2 = cell.get_join_list.get_item(:event)
+        if join2
+          str = join2.get_rhs.to_s.gsub(/^"(.*)"$/, '\1')
+          file2.print "\t\t\tEVENT = #{str};\n"
+        end
+        file2.print "\t\t};\n"
+      when "ACTIVATETASK"
+        file2.print "\t\tACTION = #{str} {\n"
+        join2 = cell.get_join_list.get_item(:task)
+        if join2
+          str = join2.get_rhs.to_s.gsub(/^"(.*)"$/, '\1')
+          file2.print "\t\t\tTASK = #{str};\n"
+        end
+        file2.print "\t\t};\n"
+      when "ALARMCALLBACK"
+        file2.print "\t\tACTION = #{str} {\n"
+        join2 = cell.get_join_list.get_item(:callbackName)
+        if join2
+          str = join2.get_rhs.to_s
+          file2.print "\t\t\tALARMCALLBACKNAME = #{str};\n"
+        end
+        file2.print "\t\t};\n"
+      else
+      end
+
+      # AUTOSTART
+      join = cell.get_join_list.get_item(:autoStart)
+      if join
+        str = join.get_rhs.to_s
+      end
+
+      if str == "TRUE"
+        file2.print "\t\tAUTOSTART = TRUE {\n"
+        join2 = cell.get_join_list.get_item(:alarmTime)
+        if join2
+          str = join2.get_rhs.to_s
+        file2.print "\t\t\tALARMTIME = #{str};\n"
+        end
+        join2 = cell.get_join_list.get_item(:cycleTime)
+        if join2
+          str = join2.get_rhs.to_s
+          file2.print "\t\t\tCYCLETIME = #{str};\n"
+        end
+        join2 = cell.get_join_list.get_item(:appMode)
+        delim = ""
+        if join2
+          join2.get_rhs.each {|mode|
+            str = mode.to_s.gsub(/^"(.*)"$/, '\1')
+            file2.print "\t\t\tAPPMODE = #{str};\n"
+            delim = ";"
+          }
+        end
+        file2.print "\t\t};\n"
+      else
+        file2.print "\t\tAUTOSTART = FALSE;\n"
+      end
+
+      file2.print "\t};\n"
+      file2.print "\n"
+
+    end
+  }
+
+  file2.close
+
+  # 追記するために AppFile を使う（文字コード変換されない）
+  file = AppFile.open("#{$gen}/tAlarm_tecsgen.#{$c_suffix}")
+  file.print "\n/* Generated by ATK1AlarmPlugin */\n"
+  @celltype.get_cell_list.each {|cell|
+    if cell.is_generate?
+      name_array = @celltype.get_name_array(cell)
+      join2 = cell.get_join_list.get_item(:callbackName)
+      if join2
+        str = join2.get_rhs.to_s.gsub(/^"(.*)"$/, '\1')
+        file.print <<EOT
+ALARMCALLBACK( #{str} );
+ALARMCALLBACK( #{str} )
+{
+    CELLCB *p_cellcb = #{name_array[8]};
+    cBody_main();
+}
+
+EOT
+      end
+    end
+  }
+
+  file.close
+  end
+end

data/lib/tecsgen/plugin/ATK1DelayTaskPlugin.rb

@@ -0,0 +1,106 @@
+#
+#  TECS Generator Cell-type plugin
+#      for TOPPERS Embedded Component System
+#
+#   Copyright (C) 2008-2014 by TOPPERS Project TECS-WG
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#   $Id: ATK1DelayTaskPlugin.rb 2955 2018-05-07 10:23:26Z okuma-top $
+#++
+
+#== celltype プラグインの共通の親クラス
+class ATK1DelayTaskPlugin < CelltypePlugin
+# @celltype:: Celltype
+# @option:: String     :オプション文字列
+
+  # signature::     Celltype        シグニチャ（インスタンス）
+  def initialize(celltype, option)
+    super
+  end
+
+  #===  CDL ファイルの生成
+  #      typedef, signature, celltype, cell のコードを生成
+  #      重複して生成してはならない
+  #      すでに生成されている場合は出力しないこと。
+  #      もしくは同名の import により、重複を避けること。
+  # file::        FILE       生成するファイル
+#  def gen_cdl_file file
+#  end
+
+  def new_cell(cell)
+#    join_list = cell.get_join_list
+#    a = join_list.get_item( :resource )
+#    if a == nil
+#     Generator.error( "resource: must be initialized")
+#    elsif ! a.get_rhs.instance_of? Array
+#      Generator.error( "resource: initializer must be in format of '{val1, val2 ...}'")
+#    end
+  end
+
+  #===  受け口関数の本体(C言語)を生成する
+  #     このメソッドが未定義の場合、ジェネレータは受け口関数のテンプレートを生成する
+  #     このメソッドが定義済みの場合、（テンプレートではなく、変更する必要のない）セルタイプコードを生成する
+  # file::           FILE        出力先ファイル
+  # b_singleton::    bool        true if singleton
+  # ct_name::        Symbol
+  # global_ct_name:: string
+  # sig_name::       string
+  # ep_name::        string
+  # func_name::      string
+  # func_global_name:: string
+  # func_type::      class derived from Type
+#  def gen_ep_func_body( file, b_singleton, ct_name, global_ct_name, sig_name, ep_name, func_name, func_global_name, func_type, params )
+#  end
+
+  def gen_factory(file)
+    # 追記するために AppFile を使う（文字コード変換されない）
+    file2 = AppFile.open("#{$gen}/tDelayTaskBody_factory.#{$h_suffix}")
+    file2.print "\n/* Generated by ATK1DelayTaskPlugin */\n\n"
+    @celltype.get_cell_list.each {|cell|
+      if cell.is_generate?
+        name_array = @celltype.get_name_array(cell)
+
+        join = cell.get_join_list.get_item(:event)
+        if join
+          str = join.get_rhs.to_s
+          if str =~ /&(.*)/
+            str = $1
+          end
+
+          file2.print "DeclareEvent( #{str} );\n"
+        end
+
+      end
+    }
+
+    file2.close
+  end
+end

data/lib/tecsgen/plugin/ATK1EventPlugin.rb

@@ -0,0 +1,147 @@
+#
+#  TECS Generator Cell-type plugin
+#      for TOPPERS Embedded Component System
+#
+#   Copyright (C) 2008-2014 by TOPPERS Project TECS-WG
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#   $Id
+#++
+
+#== ATK1 Event celltype プラグインクラス
+class ATK1EventPlugin < CelltypePlugin
+# @@instancies:: []     :セル実体群
+  @@instancies = []
+
+  #===  初期化
+  #      全てのセルの実体を意味解析後に参照する必要があるために
+  #      初期化時に singleton の instancies に格納する
+  # signature::     Celltype        シグニチャ（インスタンス）
+  def initialize(celltype, option)
+    super
+    @@instancies << self
+  end
+
+  #===  cellの生成
+  def new_cell(cell)
+  end
+
+  #===  意味解析実行後のコード生成
+  def self.gen_post_code(file)
+    @@instancies.each {|inst|
+      inst.gen_oil_code file
+    }
+  end
+
+  #===  OILファイル出力
+  def gen_oil_code(file)
+    file2 = CFile.open("#{$gen}/EVENT_tecsgen.oil", "w")
+
+    whole_mask = 0
+
+    # EVENT
+    @celltype.get_cell_list.each {|cell|
+
+#      if cell.is_generate?
+      join = cell.get_join_list.get_item(:mask)
+
+        # AUTO type search and change to zero
+        if join
+          # mask_bit = join.get_rhs.to_s.eval_cnst( nil )
+          mask_bit = join.get_rhs.to_s.to_i
+          mask_str = join.get_rhs.to_s
+          if mask_str == "AUTO"
+            new_rhs = Expression.create_integer_constant(32, @locale)
+            join.change_rhs new_rhs
+          else
+            mask_pattern = 1 << mask_bit
+            whole_mask |= mask_pattern
+          end
+        else
+          new_rhs = Expression.create_integer_constant(32, @locale)
+          join = Join.new(:mask, nil, new_rhs)
+          cell.new_join(join)
+        end
+
+#        file2.print "\t /* working #{join.get_rhs.to_s} */\n"
+#      end
+
+    }
+
+    mask_count = 0
+    mask_place = 0
+
+    @celltype.get_cell_list.each {|cell|
+
+#      if cell.is_generate?
+        # bit place to mask pattern
+      file2.print "\tEVENT #{cell.get_name} {\n"
+        join = cell.get_join_list.get_item(:mask)
+        if join
+          mask_bit = join.get_rhs.to_s.to_i
+          if mask_bit == 32
+            while 1
+              p("mask_count, current_mask")
+    p mask_count
+              current_mask = (1 << mask_count)
+    p current_mask
+              if 0 == whole_mask & current_mask
+                new_rhs = Expression.create_integer_constant(current_mask, @locale)
+                join.change_rhs new_rhs
+                whole_mask = whole_mask | current_mask
+                mask_place = mask_count
+                break
+              end
+              if current_mask >= 0x8000
+                mask_place = 0
+                break
+              end
+              mask_count = mask_count + 1
+            end
+          else
+            mask_place = join.get_rhs.to_s.to_i
+            current_mask = 1 << mask_place
+            new_rhs = Expression.create_integer_constant(current_mask, @locale)
+            join.change_rhs new_rhs
+          end
+          file2.print "\t\tMASK = #{mask_place};\n"
+        end
+
+        file2.print "\t};\n"
+        file2.print "\n"
+
+#      end
+
+    }
+
+    file2.close
+  end
+end