Changeset 321 for EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/MrubyBridgePlugin.rb

Timestamp:

Aug 23, 2017, 9:27:43 AM (7 years ago)

Author:

coas-nagasima

Message:

文字コードを設定

File:

• EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/MrubyBridgePlugin.rb (modified) (20 diffs, 1 prop)

EcnlProtoTool/trunk/asp3_dcre/tecsgen/tecslib/plugin/MrubyBridgePlugin.rb

@@ -5 +5 @@
 #   Copyright (C) 2008-2015 by TOPPERS Project
 #
-#   上記著作権è€
-は，以下の(1)～(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
-#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
-#   変・再é
-å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
-#   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
-#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
-#       スコード中に含まれていること．
-#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
-#       用できる形で再é
-å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é
-å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
-#       è€
-マニュアルなど）に，上記の著作権表示，この利用条件および下記
-#       の無保証規定を掲載すること．
-#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
-#       用できない形で再é
-å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
-#       と．
-#     (a) 再é
-å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€
-マニュアルなど）に，上記の著
-#         作権表示，この利用条件および下記の無保証規定を掲載すること．
-#     (b) 再é
-å¸ƒã®å½¢æ
-‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
-#         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
-#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
-#       害からも，上記著作権è€
-およびTOPPERSプロジェクトをå
-è²¬ã™ã‚‹ã“と．
-#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
-#       由に基づく請求からも，上記著作権è€
-およびTOPPERSプロジェクトを
-#       å
-è²¬ã™ã‚‹ã“と．
+#   上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ
+#   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
+#   変・再配布（以下，利用と呼ぶ）することを無償で許諾する．
+#   (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
+#       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
+#       スコード中に含まれていること．
+#   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
+#       用できる形で再配布する場合には，再配布に伴うドキュメント（利用
+#       者マニュアルなど）に，上記の著作権表示，この利用条件および下記
+#       の無保証規定を掲載すること．
+#   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
+#       用できない形で再配布する場合には，次のいずれかの条件を満たすこ
+#       と．
+#     (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
+#         作権表示，この利用条件および下記の無保証規定を掲載すること．
+#     (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
+#         報告すること．
+#   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
+#       害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
+#       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
+#       由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを
+#       免責すること．
 #  
-#   本ソフトウェアは，無保証で提供されているものである．上記著作権è€
-お
-#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
-#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
-#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
-#   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
+#   本ソフトウェアは，無保証で提供されているものである．上記著作権者お
+#   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
+#   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
+#   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
+#   の責任を負わない．
 #  
-#   $Id: MrubyBridgePlugin.rb 1011 2016-07-11 02:20:01Z coas-nagasima $
+#   $Id$
 #
 
 # Todo:
-# 生成するもの
+# 生成するもの
 #  gen_cdl_file
-#    ブリッジ初期化セルタイプ (シグニチャごと)
-#       @@init_celltypes に記録
-#    ブリッジセルタイプ (シグニチャごと)
-#       @@celltypes に記録
-#    æ§‹é€ ä½“ã‚»ãƒ«ã‚¿ã‚¤ãƒ—
-#       @@struct_list に記録
+#    ブリッジ初期化セルタイプ (シグニチャごと)
+#       @@init_celltypes に記録
+#    ブリッジセルタイプ (シグニチャごと)
+#       @@celltypes に記録
+#    構造体セルタイプ
+#       @@struct_list に記録
 #  new_cell
-#    TECS 初期化セル(プロトタイプ宣言)
-#       @@VM_init_cells に記録
-#       @@VM_struct_list に記録
-#       @@VM_ptr_list に記録
+#    TECS 初期化セル(プロトタイプ宣言)
+#       @@VM_init_cells に記録
+#       @@VM_struct_list に記録
+#       @@VM_ptr_list に記録
 #  gen_post_code
-#    æ§‹é€ ä½“åˆæœŸåŒ–ã‚»ãƒ«
-#    ポインタ初期化セル
-#    TECS 初期化セル
+#    構造体初期化セル
+#    ポインタ初期化セル
+#    TECS 初期化セル
 #
-#   ep_func の作成
-#     signature, ãƒã‚¤ãƒ³ã‚¿ã€æ§‹é€ ä½“ … 初期化受け口＝mruby VM への登録
-#     ポインタ
-#   preamble の作成
-#     ãƒã‚¤ãƒ³ã‚¿ã€æ§‹é€ ä½“ … アクセス用コードの生成
-#     signature … ブリッジ関数のプロトタイプ宣言
-#   postamble の作成
-#     signature … ブリッジ関数の定義
+#   ep_func の作成
+#     signature, ポインタ、構造体 … 初期化受け口＝mruby VM への登録
+#     ポインタ
+#   preamble の作成
+#     ポインタ、構造体 … アクセス用コードの生成
+#     signature … ブリッジ関数のプロトタイプ宣言
+#   postamble の作成
+#     signature … ブリッジ関数の定義
 
 class MrubyBridgePlugin < SignaturePlugin
 
-  # プラグイン引数名 => Proc
+  # プラグイン引数名 => Proc
   MrubyBridgePluginArgProc = { 
       "ignoreUnsigned" => Proc.new { |obj,rhs| obj.set_ignoreUnsigned rhs },
@@ -89 +74 @@
   }
 
-  @@celltypes = { }             # {celltype_name => [ BridgePlugin のインスタンスのé
-åˆ— }
-  @@init_celltypes = { }        # {celltype_name => [ BridgePlugin のインスタンスのé
-åˆ— }
+  @@celltypes = { }             # {celltype_name => [ BridgePlugin のインスタンスの配列 }
+  @@init_celltypes = { }        # {celltype_name => [ BridgePlugin のインスタンスの配列 }
   @@struct_list = { }           # {struct_name=>StructType}
-  @@ptr_list = { }              # {ptr_celltype_name=> @@TYPE_MAP の対応するもの}
+  @@ptr_list = { }              # {ptr_celltype_name=> @@TYPE_MAP の対応するもの}
   @@VM_list = { }               # VM_name => true
-  @@VM_celltypes = {  }             # VM_name => { @celltype_name => セルのé
-åˆ— }
+  @@VM_celltypes = {  }             # VM_name => { @celltype_name => セルの配列 }
   @@VM_struct_list = { }           # {name=>StructType}
-  @@VM_ptr_list = { }              # { VM_name => {name=> @@TYPE_MAP の対応するもの} }
+  @@VM_ptr_list = { }              # { VM_name => {name=> @@TYPE_MAP の対応するもの} }
   @@TYPE_MAP = {           # type_str   class             GET_SET
     :char_t            => [:char_t,    "Char",     :Char,  :INT   ],
@@ -116 +98 @@
 
     :int               => [:int,       "Int",      :Int,  :INT   ], 
-    :char              => [:char,      "Char",     :Char, :INT   ],    # char は char_t として扱う
+    :char              => [:char,      "Char",     :Char, :INT   ],    # char は char_t として扱う
     :short             => [:short,     "Short",    :Int,  :INT   ],
     :long              => [:long,      "Long",     :Int,  :INT   ],
@@ -138 +120 @@
   # included  or excluded functions
 
-  ### ロードされた時点で実行される ###
-
-  # -I に $(TECSPATH)/mruby ã‚’è¿½åŠ 
+  ### ロードされた時点で実行される ###
+
+  # -I に $(TECSPATH)/mruby を追加
   # TECSGEN::Makefile.add_obj "$(MRUBY_MAIN_OBJ)"
   TECSGEN::Makefile.add_ldflag "-lmruby -L$(MRUBYPATH)/lib -lm"
@@ -148 +130 @@
 
 
-  #=== プラグインインスタンスの初期化
-  # 戻り値、引数の型が使用可能なものかチェックする
+  #=== プラグインインスタンスの初期化
+  # 戻り値、引数の型が使用可能なものかチェックする
   #
   def initialize( signature, option )
@@ -178 +160 @@
 
     if signature.get_function_head_array == nil then
-      return   # 以前に文法エラー発生
+      return   # 以前に文法エラー発生
     end
 
@@ -257 +239 @@
         when FloatType
         when PtrType
-          ttype_org = type_org.get_type       # ポインタの指しているå
-ˆã®åž‹
-          ttype = ttype_org.get_original_type # 上記の typedef ã•ã‚Œã¦ã„ã‚‹å ´åˆã€å
-ƒã®åž‹
+          ttype_org = type_org.get_type       # ポインタの指している先の型
+          ttype = ttype_org.get_original_type # 上記の typedef されている場合、元の型
           register_ptr_type ttype_org
 
@@ -298 +278 @@
   end
 
-  #=== æ§‹é€ ä½“ã®ãƒ¡ãƒ³ãƒãƒ¼ã®åž‹ã®ãƒã‚§ãƒƒã‚¯
+  #=== 構造体のメンバーの型のチェック
   def check_struct_member struct_type
     #p "tag name:#{struct_type.get_name}"
@@ -345 +325 @@
       return
     end
-    tstr = ttype.get_type_str.sub( /const /, "" )    # const は無視
-    tstr = tstr.sub( /volatile /, "" )               # volatile も無視
+    tstr = ttype.get_type_str.sub( /const /, "" )    # const は無視
+    tstr = tstr.sub( /volatile /, "" )               # volatile も無視
     if @b_ignoreUnsigned then
-      tstr = tstr.sub( /unsigned /, "" )             # volatile も無視
-      tstr = tstr.sub( /uint/, "int" )               # volatile も無視
-      tstr = tstr.sub( /[cs]char/, "char" )          # volatile も無視
+      tstr = tstr.sub( /unsigned /, "" )             # volatile も無視
+      tstr = tstr.sub( /uint/, "int" )               # volatile も無視
+      tstr = tstr.sub( /[cs]char/, "char" )          # volatile も無視
     end
     return @@TYPE_MAP[ tstr.to_sym ]
   end
 
-  #===  CDL ファイルの生成
-  #      typedef, signature, celltype, cell コードを生成
-  #file::        FILE       生成するファイル
+  #===  CDL ファイルの生成
+  #      typedef, signature, celltype, cell コードを生成
+  #file::        FILE       生成するファイル
   def gen_cdl_file(file)
 
-    # ブリッジセルタイプの生成
+    # ブリッジセルタイプの生成
     if @@celltypes[ @celltype_name ] == nil then
       @@celltypes[ @celltype_name ] = [ self ]
@@ -389 +369 @@
 EOT
 
-      # æ§‹é€ ä½“ã‚»ãƒ«ã‚¿ã‚¤ãƒ—ã®ç”Ÿæˆ
+      # 構造体セルタイプの生成
       @struct_list.each{ |name, sttype|
         if @@struct_list[ name ] == nil then
@@ -410 +390 @@
   end
 
-  #=== gen_cdl_file で定義したセルタイプに 新しいセルが定義された
-  # cell のセルタイプの名前は @celltype_name
+  #=== gen_cdl_file で定義したセルタイプに 新しいセルが定義された
+  # cell のセルタイプの名前は @celltype_name
   def new_cell cell
     if cell.get_celltype.get_name != @celltype_name then
@@ -430 +410 @@
       file = CFile.open( initializer_celltype_cdl, "w" )
 
-      # TECS 初期化セル(プロトタイプ宣言)
+      # TECS 初期化セル(プロトタイプ宣言)
       print_msg "  MrubyBridgePlugin: join your VM's cInitialize to #{vm_name}_TECSInitializer.eInitialize\n"
 
@@ -475 +455 @@
   end
 
-  #=== プラグインが CDL の POST コードを生成
-  # tmp_plugin_post_code.cdl への出力
+  #=== プラグインが CDL の POST コードを生成
+  # tmp_plugin_post_code.cdl への出力
   def self.gen_post_code file
 
@@ -498 +478 @@
 # EOT
 
-# gen_post_code で生成した celltype は gen_ep_func が呼び出されない #847
+# gen_post_code で生成した celltype は gen_ep_func が呼び出されない #847
 #    @@struct_list.each{ |name,sttype|
 #      file.print <<EOT
@@ -566 +546 @@
   end
 
-  ####### 以下コード生成段階 ######
-
-  #===  å—ã‘å£é–¢æ•°ã®æœ¬ä½“ã‚³ãƒ¼ãƒ‰ã‚’ç”Ÿæˆï¼ˆé ­éƒ¨ã¨æœ«å°¾ã¯åˆ¥é€”å‡ºåŠ›ï¼‰
-  #ct_name:: Symbol    (プラグインで生成された) セルタイプ名 ．Symbol として送られてくる
+  ####### 以下コード生成段階 ######
+
+  #===  受け口関数の本体コードを生成（頭部と末尾は別途出力）
+  #ct_name:: Symbol    (プラグインで生成された) セルタイプ名 ．Symbol として送られてくる
   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 )
     if @@celltypes[ ct_name ] then
@@ -673 +653 @@
   end
 
-  #===  受け口関数の preamble (C言語)を生成する
-  #     å¿
-要なら preamble 部に出力する
-  #file::           FILE        出力å
-ˆãƒ•ã‚¡ã‚¤ãƒ«
+  #===  受け口関数の preamble (C言語)を生成する
+  #     必要なら preamble 部に出力する
+  #file::           FILE        出力先ファイル
   #b_singleton::    bool        true if singleton
   #ct_name::        Symbol
@@ -1135 +1113 @@
     if( param.get_size ) then
       sz_str = param.get_size.to_s
-    elsif param.get_string then      # mikan とりあえず size_is と string の同時指定 (二重ポインタ) はなし
+    elsif param.get_string then      # mikan とりあえず size_is と string の同時指定 (二重ポインタ) はなし
       sz_str = param.get_string.to_s
     else
       sz_str = "1"
     end
-    # unsigned åž‹ã®å ´åˆã«ã¯ cast がå¿
-要
+    # unsigned 型の場合には cast が必要
     if ttype.get_original_type.get_type_str != param.get_type.get_type.get_type_str then
       cast_str = "(#{param.get_type.get_type_str})"
@@ -1171 +1148 @@
   end
 
-  #=== プラグイン引数 ignoreUnsigned
+  #=== プラグイン引数 ignoreUnsigned
   def set_ignoreUnsigned rhs
     if rhs == "true" || rhs == nil then
@@ -1177 +1154 @@
     end
   end
-  #=== プラグイン引数 include
+  #=== プラグイン引数 include
   def set_include rhs
     funcs = rhs.split ','
@@ -1195 +1172 @@
     }
   end
-  #=== プラグイン引数 exclude
+  #=== プラグイン引数 exclude
   def set_exclude rhs
     funcs = rhs.split ','