tecscde 0.6.0

data/lib/tecsgen/plugin/ATK1ISRPlugin.rb

@@ -0,0 +1,174 @@
+#
+#  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: ATK1ISRPlugin.rb 2955 2018-05-07 10:23:26Z okuma-top $
+#++
+
+#== celltype プラグインの共通の親クラス
+class ATK1ISRPlugin < 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}/ISR_tecsgen.oil", "w")
+
+    # ISR
+    @celltype.get_cell_list.each {|cell|
+
+    if cell.is_generate?
+
+      file2.print "\tISR #{cell.get_name} {\n"
+
+      # CATEGORY
+      join = cell.get_join_list.get_item(:category)
+      if join
+        file2.print "\t\tCATEGORY = #{join.get_rhs};\n"
+      end
+
+      # PRIORITY
+      join = cell.get_join_list.get_item(:priority)
+      if join
+        file2.print "\t\tPRIORITY = #{join.get_rhs};\n"
+      end
+
+      # ENTRY (entryはtecsgenの予約語のためNumberを付加)
+      join = cell.get_join_list.get_item(:entryNumber)
+      if join
+        file2.print "\t\tENTRY = #{join.get_rhs};\n"
+      end
+
+      # RESOURCE
+      join2 = cell.get_join_list.get_item(:resource)
+      delim = ""
+      if join2
+        join2.get_rhs.each {|res|
+          str = res.to_s.gsub(/^"(.*)"$/, '\1')
+          file2.print "\t\tRESOURCE = #{str};\n"
+          delim = ";"
+        }
+      end
+
+      # MESSAGE
+      join2 = cell.get_join_list.get_item(:message)
+      delim = ""
+      if join2
+        join2.get_rhs.each {|msg|
+          str = msg.to_s.gsub(/^"(.*)"$/, '\1')
+          file2.print "\t\tMESSAGE = #{str};\n"
+          delim = ";"
+        }
+      end
+
+      file2.print "\t};\n"
+      file2.print "\n"
+
+    end
+  }
+
+  file2.close
+
+  # 追記するために AppFile を使う（文字コード変換されない）
+  file = AppFile.open("#{$gen}/tISR_tecsgen.#{$c_suffix}")
+  file.print "\n/* Generated by ATK1ISRPlugin */\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(:category)
+      if join2
+        str = join2.get_rhs.to_s
+        if str == "1"
+          file.print <<EOT
+#if defined( OMIT_ISR1_ENTRY )
+EOT
+          file.print "/* ISR1入り口未生成時は本関数を割込み関数指定する  */\n"
+          file.print <<EOT
+#pragma INTERRUPT  #{cell.get_name}
+#endif  /* OMIT_ISR1_ENTRY  */
+void  RxHwSerialInt( void );
+void
+RxHwSerialInt( void )
+EOT
+        else
+          file.print <<EOT
+ISR(#{cell.get_name})
+EOT
+        end
+      end
+
+      file.print <<EOT
+{
+    CELLCB *p_cellcb = #{name_array[8]};
+    cBody_main();
+}
+
+EOT
+    end
+  }
+
+  file.close
+  end
+end

data/lib/tecsgen/plugin/ATK1KernelPlugin.rb

@@ -0,0 +1,287 @@
+#
+#  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: ATK1KernelPlugin.rb 2955 2018-05-07 10:23:26Z okuma-top $
+#++
+
+#== celltype プラグインの共通の親クラス
+class ATK1KernelPlugin < CelltypePlugin
+# @celltype:: Celltype
+# @option:: String     :オプション文字列
+  @@cell_list = []
+
+  # 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
+    @@cell_list << 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}/Kernel_tecsgen.oil", "w")
+
+    # Kernel
+    @celltype.get_cell_list.each {|cell|
+
+      if cell.is_generate?
+
+        file2.print "\tOS #{cell.get_name} {\n"
+
+        # STATUS
+        join = cell.get_join_list.get_item(:status)
+        if join
+          str = join.get_rhs.to_s.gsub(/^"(.*)"$/, '\1')
+          file2.print "\t\tSTATUS = #{str};\n"
+        end
+
+        # STARTUPHOOK
+        join = cell.get_join_list.get_item(:useStartupHook)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tSTARTUPHOOK = #{str};\n"
+        end
+
+        # ERRORHOOK
+        join = cell.get_join_list.get_item(:useErrorHook)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tERRORHOOK = #{str};\n"
+        end
+
+        # SHUTDOWNHOOK
+        join = cell.get_join_list.get_item(:useShutdownHook)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tSHUTDOWNHOOK = #{str};\n"
+        end
+
+        # PRETASKHOOK
+        join = cell.get_join_list.get_item(:usePreTaskHook)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tPRETASKHOOK = #{str};\n"
+        end
+
+        # POSTASKHOOK
+        join = cell.get_join_list.get_item(:usePostTaskHook)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tPOSTTASKHOOK = #{str};\n"
+        end
+
+        # USEGETSERVICEID
+        join = cell.get_join_list.get_item(:useGetServiceId)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tUSEGETSERVICEID = #{str};\n"
+        end
+
+        # USEPARAMETERACCESS
+        join = cell.get_join_list.get_item(:useParameterAccess)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tUSEPARAMETERACCESS = #{str};\n"
+        end
+
+        # USERESSCHEDULER
+        join = cell.get_join_list.get_item(:useResourceScheduler)
+        if join
+          str = join.get_rhs.to_s
+          file2.print "\t\tUSERESSCHEDULER = #{str};\n"
+        end
+
+        file2.print "\t};\n\n"
+
+      end
+
+    }
+
+    file2.close
+
+    # 追記するために AppFile を使う（文字コード変換されない）
+    file2 = AppFile.open("#{$gen}/tKernel_tecsgen.#{$c_suffix}")
+    file2.print "\n/* Generated by ATK1KernelPlugin */\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(:useStartupHook)
+        if join
+          str = join.get_rhs.to_s
+          if str == "TRUE"
+            file2.print <<EOT
+#ifdef USE_STARTUPHOOK
+void StartupHook(void)
+{
+/*    CELLCB *p_cellcb = #{name_array[8]}; */
+    INT32 i;
+    for(i = 0; i < N_CP_cStartupHookBody; i++){
+        cStartupHookBody_main(i);
+    }
+}
+#endif /* USE_STARTUPHOOK */
+EOT
+          end
+        end
+
+        join = cell.get_join_list.get_item(:useErrorHook)
+        if join
+          str = join.get_rhs.to_s
+          if str == "TRUE"
+            file2.print <<EOT
+#ifdef USE_ERRORHOOK
+void ErrorHook(StatusType ercd)
+{
+/*    CELLCB *p_cellcb = #{name_array[8]}; */
+    cErrorHookBody_main( ercd );
+}
+#endif /* USE_ERRORHOOK */
+
+EOT
+          end
+        end
+
+        join = cell.get_join_list.get_item(:useShutdownHook)
+        if join
+          str = join.get_rhs.to_s
+          if str == "TRUE"
+            file2.print <<EOT
+#ifdef USE_SHUTDOWNHOOK
+void ShutdownHook(StatusType ercd)
+{
+/*    CELLCB *p_cellcb = #{name_array[8]}; */
+    INT32 i;
+    for(i = 0; i < N_CP_cShutdownHookBody; i++){
+        cShutdownHookBody_main( i, ercd );
+    }
+}
+#endif /* USE_SHUTDOWNHOOK */
+
+EOT
+          end
+        end
+
+        join = cell.get_join_list.get_item(:usePreTaskHook)
+        if join
+          str = join.get_rhs.to_s
+          if str == "TRUE"
+            file2.print <<EOT
+#ifdef USE_PRETASKHOOK
+void PreTaskHook(void)
+{
+/*    CELLCB *p_cellcb = #{name_array[8]}; */
+    cPreTaskHookBody_main();
+}
+#endif /* USE_PRETASKHOOK */
+
+EOT
+          end
+        end
+
+        join = cell.get_join_list.get_item(:usePostTaskHook)
+        if join
+          str = join.get_rhs.to_s
+          if str == "TRUE"
+            file2.print <<EOT
+#ifdef USE_POSTTASKHOOK
+void PostTaskHook(void)
+{
+/*    CELLCB *p_cellcb = #{name_array[8]}; */
+    cPostTaskHookBody_main();
+}
+#endif /* USE_POSTTASKHOOK */
+
+EOT
+          end
+        end
+
+      end
+    }
+
+    file2.close
+  end
+
+  def self.gen_post_code(file)
+    @@cell_list.each {|cell|
+      join = cell.get_join_list.get_item(:useResourceScheduler)
+      if join
+        flag = join.get_rhs.to_s
+        if flag == "TRUE"
+          file.print <<EOT
+cell tResource RES_SCHEDULER {
+	property = "STANDARD";
+};
+EOT
+        else
+          file.print <<EOT
+EOT
+        end
+      end
+    }
+  end
+end