tecscde 0.6.0

data/lib/tecsgen/core/plugin.rb

@@ -0,0 +1,332 @@
+#
+#  TECS Generator
+#      Generator for TOPPERS Embedded Component System
+#
+#   Copyright (C) 2008-2017 by TOPPERS Project
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#   $Id: plugin.rb 2633 2017-04-02 06:02:05Z okuma-top $
+#++
+
+#== Plugin クラス
+# ThroughPlugin, SignaturePlugin, CelltypePlugin に include する
+class Plugin < Node
+# @error_backlog:: [msg1, msg2, ... ]   @locale が設定される前に発生したエラー
+
+  PluginArgProc = {
+    "silent" => Proc.new {|obj, rhs| obj.set_silent rhs },
+  }
+
+  def initialize
+    super
+    @b_silent = false
+    @locale = nil # set_locale が呼び出されるまで nil となる
+    @error_backlog = []
+  end
+
+  #=== Plugin#cdl_error
+  # set_locale が呼び出されるまで @error_backlog に保存し保留する
+  def cdl_error(*arg)
+    if @locale
+      Generator.error2(@locale, *arg)
+    else
+      @error_backlog << arg
+    end
+  end
+
+  #=== locale を設定する
+  # Node は initialize で locale を設定するが、plugin は parse とは
+  # 異なるタイミング new されるため、locale を再設定する
+  # このメソッドを2度呼び出すと @error_backlog のエラーが2度出力されてしまう
+  def set_locale(locale)
+    @locale = locale
+    @error_backlog.each {|arg|
+      Generator.error2(locale, *arg)
+    }
+  end
+
+### 構文解釈 または 意味解析段階で呼び出されるメソッド ###
+# generate 指定子の場合、構文解釈次第(end_of_parseで)呼び出される
+# generate 文の場合、出現次第呼び出される
+  ### 意味解析段階で呼び出されるメソッド ### <<< コメント誤り (V1.4.2)
+  #===  CDL ファイルの生成
+  #      typedef, signature, celltype, cell のコードを生成
+  #      重複して生成してはならない
+  #      すでに生成されている場合は出力しないこと。
+  #      もしくは同名の import により、重複を避けること。
+  # file::        FILE       生成するファイル
+  def gen_cdl_file(file)
+  end
+
+### コード生段階で呼び出されるメソッド ###
+  #=== プラグインは gen_ep_func を提供するか
+  # gen_ep_func 定義   ⇒ テンプレートではない、セルタイプコード(tCelltype.c)を生成
+  # gen_ep_func 未定義 ⇒ テンプレート(tCelltype_templ.c)を生成
+  def gen_ep_func?
+    self.class.method_defined?(:gen_ep_func_body)
+  end
+
+  #===  受け口関数の本体(C言語)を生成する
+  #     プラグインの場合、変更する必要のないセルタイプコードを生成する
+  #     このメソッドが未定義であれば、プラグインはセルタイプコードを生成しない (通常通りテンプレートを生成する)
+  #      gen_cdl_file の中で生成されたセルタイプに対して呼び出される
+  # file::           FILE        出力先ファイル (tCelltype.c)
+  # 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
+
+  #===  受け口関数の preamble (C言語)を生成する
+  #     必要なら preamble 部に出力する
+  #      gen_cdl_file の中でで生成されたセルタイプに対して呼び出される
+  # file::           FILE        出力先ファイル
+  # b_singleton::    bool        true if singleton
+  # ct_name::        Symbol
+  # global_ct_name:: string
+  def gen_preamble(file, b_singleton, ct_name, global_ct_name)
+    # デフォルトでは何も出力しない
+  end
+
+  #===  受け口関数の postamble (C言語)を生成する
+  #     必要なら postamble 部に出力する
+  #      gen_cdl_file の中で生成されたセルタイプに対して呼び出される
+  # file::           FILE        出力先ファイル
+  # b_singleton::    bool        true if singleton
+  # ct_name::        Symbol
+  # global_ct_name:: string
+  def gen_postamble(file, b_singleton, ct_name, global_ct_name)
+    # デフォルトでは何も出力しない
+  end
+
+  #=== gen_cdl_file の中で生成されたセルタイプに新しいセルが生成された
+  # どのセルタイプかは cell.get_celltype で分かる
+  #
+  # file::           FILE        出力先ファイル
+  # b_singleton::    bool        true if singleton
+  # ct_name::        Symbol
+  # global_ct_name:: string
+  def new_cell(cell)
+    # デフォルトでは何もしない
+  end
+
+### プラグイン引数の解釈 ###
+  def parse_plugin_arg
+    arg = @plugin_arg_str.dup
+
+    # 改行を消す
+    arg.gsub!(/\\\n/, "")
+
+    while arg != ""
+
+      # 前の空白読み飛ばす
+      arg.sub!(/\A\s*(?:\\\n)*\s*(.*)/, '\1')
+
+      #  識別子取得
+      if arg =~ /\A[a-zA-Z_]\w*/
+        ident = $~
+        arg = $'
+      else
+        cdl_error("P1001 plugin arg: cannot find identifier in $1", arg)
+        return
+      end
+
+      # 前の空白読み飛ばす
+      arg.sub!(/\A\s*(?:\\\n)*\s*(.*)/, '\1')
+
+      if arg =~ /=/
+        arg = $'
+      else
+        cdl_error("P1002 plugin arg: expecting \'=\' not \'$1\'", arg)
+        return
+      end
+
+      # 前の空白読み飛ばす
+      arg.sub!(/\A\s*(?:\\\n)*\s*(.*)/, '\1')
+
+      # 右辺文字列
+      if arg =~ /\A\\"(.*?)\\"\s*,/ # \"  \" で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A%(.*?)%\s*,/ # %   % で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A!(.*?)!\s*,/    # $   $ で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A'(.*?)'\s*,/    # $   $ で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A\\"(.*?)\\"\s*,/ # || にも [,$] にもできなかった
+        rhs = $1
+        remain = $'
+      # elsif arg =~ /\A(.*?)\s*$/ then
+      elsif arg =~ /\A\\"(.*?)\\"\s*\z/ # \"  \" で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A%(.*?)%\s*\z/ # %   % で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A!(.*?)!\s*\z/    # $   $ で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A'(.*?)'\s*\z/    # $   $ で囲まれている場合
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A\\"(.*?)\\"\s*\z/ # || にも [,$] にもできなかった
+        rhs = $1
+        remain = $'
+      elsif arg =~ /\A(.*?),/
+        rhs = $1
+        remain = $'
+        # 前の空白読み飛ばす
+        rhs.sub!(/\A\s*(.*)\s*\z/, '\1')
+      elsif arg =~ /\A(.*?)\s*\z/
+        rhs = $1
+        remain = $'
+      else
+        cdl_error("P1003 plugin arg: unexpected $1", arg)
+        return
+      end
+
+      # 0文字の文字列を to_sym すると例外発生するので空白文字とする
+      if rhs == ""
+        rhs = " "
+      end
+
+      arg = remain # arg の残りの部分
+      arg.sub!(/\A\s*(?:\\\n)*\s*(.*)/, '\1') # 前の空白読み飛ばす
+
+      # \ を外す
+      rhs = rhs.gsub(/\\(.)/, "\\1") # ここで $' が変わることに注意！
+      # print "parse_plugin_arg:  #{ident} #{rhs}\n"
+      @plugin_arg_list[ident] = rhs
+
+      check_plugin_arg(ident, rhs)
+    end
+    # @plugin_arg_list.each{|i,r|  print "ident: #{i}  rhs: #{r}\n" }
+  end
+
+  #=== プラグイン引数をチェックする
+  # @plugin_arg_check_proc_tab に従ってプラグイン引数をチェックすする
+  # 古い用法：子クラスでオーバーライドし、引数識別子が正しいかチェックする
+  # ident:: string: 引数識別子
+  # rhs:: string: 右辺文字列
+  def check_plugin_arg(ident, rhs)
+    dbgPrint "check_plugin_arg: #{ident} #{rhs.to_str}\n"
+    proc = nil
+    if @plugin_arg_check_proc_tab
+      proc = @plugin_arg_check_proc_tab[ident.to_s]
+    end
+    if proc.nil?
+      proc = PluginArgProc[ident.to_s]
+    end
+    if proc.instance_of? Proc
+      dbgPrint "calling: #{self.class.name}.#{proc}\n"
+      proc.call(self, rhs)
+    else
+      params = ""
+      delim = ""
+      @plugin_arg_check_proc_tab.each{|j, p|
+        params = "#{params}#{delim}#{j}"
+        delim = ", "
+      }
+      cdl_error("P1004 $1: unknown plugin argument\'s identifier\n  $2 are acceptible for RPCPlugin.", ident, params)
+    end
+  end
+
+  #=== プラグインのメッセージ出力
+  def print_msg(msg)
+    if @b_silent == true
+      return
+    end
+    print msg
+  end
+
+  #=== プラグイン引数 silent
+  def set_silent(rhs)
+    if rhs == "true" || rhs.nil?
+      @b_silent = true
+    end
+  end
+end
+
+#== 出力文字列を utf-8 から出力ファイルに convert する
+# tecsgen のソースコードは utf-8 で記述されている
+# これを、出力ファイルの文字コードに変換して出力する
+#
+# generate.rb で出力するものは message.rb で変換している
+# generate.rb で出力するものは APPFile クラスを使用している
+# mikan: CFile で出力したものに factory で追記できない (cdl ファイルの場合、追記できても意味がない)
+class CFile
+  def self.open(path, mode)
+    CFile.new(path, mode)
+  end
+
+  def initialize(path, mode)
+    mode += ":" + $Ruby19_File_Encode
+    @file = File.open(path, mode)
+  end
+
+  def print(str)
+    if $ENCODING_CONSOLE == Encoding::BINARY
+      @file.print(str)
+    else
+      @file.print(str.encode($ENCODING_CDL))
+    end
+  end
+
+  def puts(str)
+    if $ENCODING_CONSOLE == Encoding::BINARY
+      @file.print(str)
+    else
+      @file.print(str.encode($ENCODING_CDL))
+    end
+    @file.print("\n")
+  end
+
+  def printf(format, *arg)
+    if $ENCODING_CONSOLE == Encoding::BINARY
+      @file.print(sprintf(format, *arg))
+    else
+      @file.print(sprintf(format, *arg).encode($ENCODING_CDL))
+    end
+  end
+
+  def close
+    @file.close
+  end
+end

data/lib/tecsgen/core/pluginModule.rb

@@ -0,0 +1,165 @@
+#
+#  TECS Generator
+#      Generator for TOPPERS Embedded Component System
+#
+#   Copyright (C) 2008-2017 by TOPPERS Project
+#--
+#   上記著作権者は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
+#
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
+#
+#   $Id: pluginModule.rb 2633 2017-04-02 06:02:05Z okuma-top $
+#++
+
+#== プラグインをロードする側のモジュール
+# @@loaded_plugin_list:: {Symbol=>Integer}
+module PluginModule
+
+  @@loaded_plugin_list = {}
+
+  #=== プラグインをロードする
+  # return:: PluginClass
+  # V1.4.1 まで return:: true : 成功、 false : 失敗
+  #
+  # #{plugin_name}.rb をロードし、plugin_name クラスのオブジェクトを生成する．
+  # plugin_name が MultiPlugin の場合、get_plugin により、superClass のプラグインオブジェクトをロードする．
+  #
+  # すでにロードされているものは、重複してロードしない
+  # load 時の例外はこのメソッドの中でキャッチされて false が返される
+  def load_plugin(plugin_name, superClass)
+    dbgPrint "PluginModule: load_plugin: #{plugin_name}\n"
+    begin
+      unless @@loaded_plugin_list[plugin_name.to_sym]
+        @@loaded_plugin_list[plugin_name.to_sym] = 0
+        if $verbose
+          print("load '#{plugin_name}.rb'\n")
+        end
+        # "#{plugin_name}.rb" をロード（システム用ではないので、fatal エラーにしない）
+        if require_tecsgen_lib("#{plugin_name}.rb", false) == false
+          cdl_error("P2001 $1.rb : fail to load plugin", plugin_name)
+          return nil
+        end
+      end
+
+      plClass = Object.const_get plugin_name
+      if plClass <= superClass # plClass inherits superClass
+        return plClass
+      elsif plClass <= MultiPlugin # plClass inherits MultiPlugin
+        dbgPrint "pluginClass=#{plClass}\n"
+        plugin_object = plClass.get_plugin superClass
+        dbgPrint "pluginClass=#{plugin_object}\n"
+        if plugin_object.nil?
+          cdl_error("P9999 '$1': MultiPlugin not support '$2'", plugin_name, superClass.name)
+        end
+        @@loaded_plugin_list[plugin_name.to_sym] = :MultiPlugin
+        return plugin_object
+      else
+        cdl_error("P2002 $1: not kind of $2", plugin_name, superClass.name)
+        return nil
+      end
+    rescue Exception => evar
+      if $debug
+        p evar.class
+        pp evar.backtrace
+      end
+      cdl_error("P2003 $1: load failed", plugin_name)
+      return nil
+    end
+    # ここへは来ない
+    return nil
+  end
+
+  #=== プラグインの gen_cdl_file を呼びして cdl ファイルを生成させ、解釈を行う
+  def generate_and_parse(plugin_object)
+    if plugin_object.nil? # プラグインのロードに失敗している（既にエラー）
+      return
+    end
+    plugin_name = plugin_object.class.name.to_sym
+    if @@loaded_plugin_list[plugin_name] == :MultiPlugin
+      p "#{plugin_name}: MultiPlugin"
+      return
+    elsif @@loaded_plugin_list[plugin_name].nil?
+      # raise "#{plugin_name} might have different name "
+      ## プラグインのファイル名と、プラグインのクラス名が相違する場合
+      # MultiPlugin の get_plugin で返されたケースでは nil になっている
+      @@loaded_plugin_list[plugin_name] = 0
+    end
+    count = @@loaded_plugin_list[plugin_name]
+    @@loaded_plugin_list[plugin_name] += 1
+    tmp_file_name = "#{$gen}/tmp_#{plugin_name}_#{count}.cdl"
+
+    begin
+      tmp_file = CFile.open(tmp_file_name, "w")
+    rescue Exception => evar
+      cdl_error("P2004 $1: open error \'$2\'", plugin_name, tmp_file_name)
+      print_exception(evar)
+    end
+    dbgPrint "generate_and_parse: #{plugin_object.class}: gen_cdl_file\n"
+    begin
+      plugin_object.gen_cdl_file(tmp_file)
+    rescue Exception => evar
+      cdl_error("P2005 $1: plugin error in gen_through_cell_code ", plugin_name)
+      print_exception(evar)
+    end
+    begin
+      tmp_file.close
+    rescue Exception => evar
+      cdl_error("P2006 $1: close error \'$2\'", plugin_name, tmp_file_name)
+      print_exception(evar)
+    end
+
+    generator = Generator.new
+    generator.set_plugin(plugin_object)
+    generator.parse([tmp_file_name])
+    generator.finalize
+  end
+
+  #=== プラグインが CDL の POST コードを生成
+  # tmp_plugin_post_code.cdl への出力
+  def self.gen_plugin_post_code(file)
+    dbgPrint "PluginModule #{@@loaded_plugin_list}\n"
+    @@loaded_plugin_list.each{|plugin_name, count|
+      if count == :MultiPlugin
+        next
+      end
+      dbgPrint "PluginModule: #{plugin_name}\n"
+      eval_str = "#{plugin_name}.gen_post_code( file )"
+      if $verbose
+        print "gen_plugin_post_code: #{eval_str}\n"
+      end
+      begin
+        eval(eval_str)
+      rescue Exception => evar
+        Generator.error("P2007 $1: fail to generate post code", plugin_name)
+
+        print_exception(evar)
+      end
+    }
+  end
+
+end