# -*- coding: utf-8 -*- # # mruby => TECS bridge # # Copyright (C) 2008-2015 by TOPPERS Project # # 上記著作権者は，以下の(1)～(4)の条件を満たす場合に限り，本ソフトウェ # ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改 # 変・再配布（以下，利用と呼ぶ）することを無償で許諾する． # (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作 # 権表示，この利用条件および下記の無保証規定が，そのままの形でソー # スコード中に含まれていること． # (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使 # 用できる形で再配布する場合には，再配布に伴うドキュメント（利用 # 者マニュアルなど）に，上記の著作権表示，この利用条件および下記 # の無保証規定を掲載すること． # (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使 # 用できない形で再配布する場合には，次のいずれかの条件を満たすこ # と． # (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著 # 作権表示，この利用条件および下記の無保証規定を掲載すること． # (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに # 報告すること． # (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損 # 害からも，上記著作権者およびTOPPERSプロジェクトを免責すること． # また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理 # 由に基づく請求からも，上記著作権者およびTOPPERSプロジェクトを # 免責すること． # # 本ソフトウェアは，無保証で提供されているものである．上記著作権者お # よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的 # に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ # アの利用により直接的または間接的に生じたいかなる損害に関しても，そ # の責任を負わない． # # $Id$ # # Todo: # 生成するもの # gen_cdl_file # ブリッジ初期化セルタイプ (シグニチャごと) # @@init_celltypes に記録 # ブリッジセルタイプ (シグニチャごと) # @@celltypes に記録 # 構造体セルタイプ # @@struct_list に記録 # new_cell # TECS 初期化セル(プロトタイプ宣言) # @@VM_init_cells に記録 # @@VM_struct_list に記録 # @@VM_ptr_list に記録 # gen_post_code # 構造体初期化セル # ポインタ初期化セル # TECS 初期化セル # # ep_func の作成 # signature, ポインタ、構造体 … 初期化受け口＝mruby VM への登録 # ポインタ # preamble の作成 # ポインタ、構造体 … アクセス用コードの生成 # signature … ブリッジ関数のプロトタイプ宣言 # postamble の作成 # signature … ブリッジ関数の定義 class MrubyBridgePlugin < SignaturePlugin # プラグイン引数名 => Proc MrubyBridgePluginArgProc = { "ignoreUnsigned" => Proc.new { |obj,rhs| obj.set_ignoreUnsigned rhs }, "include" => Proc.new { |obj,rhs| obj.set_include rhs }, "exclude" => Proc.new { |obj,rhs| obj.set_exclude rhs }, } @@celltypes = { } # {celltype_name => [ BridgePlugin のインスタンスの配列 } @@init_celltypes = { } # {celltype_name => [ BridgePlugin のインスタンスの配列 } @@struct_list = { } # {struct_name=>StructType} @@ptr_list = { } # {ptr_celltype_name=> @@TYPE_MAP の対応するもの} @@VM_list = { } # VM_name => true @@VM_celltypes = { } # VM_name => { @celltype_name => セルの配列 } @@VM_struct_list = { } # {name=>StructType} @@VM_ptr_list = { } # { VM_name => {name=> @@TYPE_MAP の対応するもの} } @@TYPE_MAP = { # type_str class GET_SET :char_t => [:char_t, "Char", :Char, :INT ], :uchar_t => [:uchar_t, "UChar", :Char, :INT ], :schar_t => [:schar_t, "SChar", :Char, :INT ], :bool_t => [:bool_t, "Bool", :Bool, :BOOL ], :int8_t => [:int8_t, "Int8", :Int, :INT ], :int16_t => [:int16_t, "Int16", :Int, :INT ], :int32_t => [:int32_t, "Int32", :Int, :INT ], :int64_t => [:int64_t, "Int64", :Int, :INT ], :uint8_t => [:uint8_t, "UInt8", :Int, :INT ], :uint16_t => [:uint16_t, "UInt16", :Int, :INT ], :uint32_t => [:uint32_t, "UInt32", :Int, :INT ], :uint64_t => [:uint64_t, "UInt64", :Int, :INT ], :int => [:int, "Int", :Int, :INT ], :char => [:char, "Char", :Char, :INT ], # char は char_t として扱う :short => [:short, "Short", :Int, :INT ], :long => [:long, "Long", :Int, :INT ], :"unsigned char" => [:uchar_t, "UChar", :Char, :INT ], :"unsigned int" => [:"unsigned int", "UInt", :Int, :INT ], :"unsigned short" => [:"unsigned short", "UShort", :Int, :INT ], :"unsigned long" => [:"unsigned long", "ULong", :Int, :INT ], :"signed char" => [:schar_t, "SChar", :Char, :INT ], :"signed int" => [:int, "Int", :Int, :INT ], :"signed short" => [:short, "Short", :Int, :INT ], :"signed long" => [:long, "Long", :Int, :INT ], :float32_t => [:float32_t, "Float32", :Float, :FLOAT ], :double64_t => [:double64_t,"Double64", :Float, :FLOAT ], :float => [:float, "Float32", :Float, :FLOAT ], :double => [:double, "Double64", :Float, :FLOAT ] } # included or excluded functions ### ロードされた時点で実行される ### # -I に $(TECSPATH)/mruby を追加 # TECSGEN::Makefile.add_obj "$(MRUBY_MAIN_OBJ)" TECSGEN::Makefile.add_ldflag "-lmruby -L$(MRUBYPATH)/lib -lm" TECSGEN::Makefile.add_search_path "$(MRUBYPATH)/include" TECSGEN::Makefile.add_var "MRUBYPATH", "..", "CHANGE this to suitable path" # TECSGEN::Makefile.add_var "MRUBY_MAIN_OBJ", "$(_TECS_OBJ_DIR)tecs_mruby.o", "CHANGE this if your have your main" #=== プラグインインスタンスの初期化 # 戻り値、引数の型が使用可能なものかチェックする # def initialize( signature, option ) super if ! $no_banner STDERR << "MrubyBridgePlugin: version 1.2.0 (Suitable for mruby ver 1.2.0. Has backward compatibility with ver 1.1.0)\n" end @b_ignoreUnsigned = false @includes = [] @excludes = [] @struct_list = { } @ptr_list = { } @plugin_arg_check_proc_tab = MrubyBridgePluginArgProc parse_plugin_arg @celltype_name = :"t#{@signature.get_global_name}" @init_celltype_name = :"#{@celltype_name}_Initializer" # this variable is sometimes not used. rhs coded directry. @class_name = :"T#{@signature.get_global_name}" @func_head_array = [] if @includes.length > 0 && @excludes.length > 0 then cdl_error( "MRB1011 both include && exclude are specified" ) end if signature.get_function_head_array == nil then return # 以前に文法エラー発生 end signature.get_function_head_array.each{ |func_head| if @includes.length > 0 then if @includes.index func_head.get_name then dbgPrint "MrubyBridgePlugin: #{func_head.get_name} INCLUDED\n" @func_head_array << func_head else dbgPrint "MrubyBridgePlugin: #{func_head.get_name} NOT included\n" end elsif @excludes.length > 0 then if @excludes.index( func_head.get_name ) == nil then dbgPrint "MrubyBridgePlugin: #{func_head.get_name} NOT excluded\n" @func_head_array << func_head else dbgPrint "MrubyBridgePlugin: #{func_head.get_name} EXCLUDED\n" end else @func_head_array << func_head end } if @func_head_array.length == 0 then cdl_error( "MRB1012 '$1' no function remained by exclude", @signature.get_name ) end check_name_and_return_type @func_head_array check_parameter_type @func_head_array end #=== check function name & return type def check_name_and_return_type func_head_array b_init = false; b_init_cell = false func_head_array.each{ |func_head| if( func_head.get_name == :initialize )then cdl_warning( "MRW2001 initialize: internally defined. change to initialize_cell in ruby" ) b_init = true elsif( func_head.get_name == :initialize_cell )then b_init_cell = true end rtype = func_head.get_return_type.get_original_type case rtype when BoolType, IntType, FloatType, VoidType else cdl_error( "MRB1001 cannot return type $1", rtype.get_type_str ) end } if( b_init && b_init_cell )then cdl_warning( "MRB1002 initialize: internally defined. change to initialize_cell in ruby" ) end end #=== check paramter type def check_parameter_type func_head_array # check type of parameters func_head_array.each{ |fh| fh.get_paramlist.get_items.each{ |param_decl| case param_decl.get_direction when :SEND, :RECEIVE cdl_error( "MRB1003 $1: $2 parameter cannot be used in mruby Bridge", param_decl.get_name, param_decl.get_direction.to_s.downcase ) end type = param_decl.get_type type_org = type.get_original_type type_str = type.get_type_str + type.get_type_str_post b_ng = false case type_org when IntType case type_org.get_bit_size when 8, 16, 32, 64 when -1, -2, -3, -4, -11 else b_ng = true end when BoolType when FloatType when PtrType ttype_org = type_org.get_type # ポインタの指している先の型 ttype = ttype_org.get_original_type # 上記の typedef されている場合、元の型 register_ptr_type ttype_org if( type_org.get_string.to_s == "-1" ) then case param_decl.get_direction when :OUT, :INOUT cdl_error( "MRB9999 string specifier without length cannot be used for out & inout parameter") end end case ttype when IntType bit_size = ttype.get_bit_size # if bit_size < 0 && bit_size != -1 then # b_ng = true # end when FloatType when BoolType when StructType if( type_org.get_size || type_org.get_string || type_org.get_count ) then cdl_error( "MRB1004 $1: size_is, count_is, string cannot be specified for struct pointer", param_decl.get_name ) end check_struct_member ttype_org else b_ng = true end when StructType check_struct_member type_org else # ArrayType, FuncType, EnumType, VoidType b_ng = true end if b_ng then cdl_error( "MRB1005 $1: type $2 cannot be used in mruby Bridge", param_decl.get_name, type_str ) end } } end #=== 構造体のメンバーの型のチェック def check_struct_member struct_type #p "tag name:#{struct_type.get_name}" # sttype = Namespace.find_tag( struct_type.get_name ) sttype = struct_type.get_original_type if sttype.get_name == nil then cdl_error( "MRB10007 tagless-struct cannot be handled") end sttype.get_members_decl.get_items.each { |d| t = d.get_type.get_original_type case t when IntType, FloatType, BoolType else cdl_error( "MRB1006 $1: type $2 not allowed for struct member", d.get_name, d.get_type.get_type_str + d.get_type.get_type_str_post ) end } st_name = :"t{}" if @struct_list[ sttype.get_name ] == nil then # print_msg " MrubyBridgePlugin: [struct] #{struct_type.get_type_str} => class TECS::Struct#{sttype.get_name}\n" print " MrubyBridgePlugin: [struct] #{struct_type.get_type_str} => class TECS::Struct#{sttype.get_name}\n" @struct_list[ sttype.get_name ] = sttype end end def register_ptr_type ttype t_org = ttype.get_original_type tment = get_type_map_ent t_org if tment == nil then return cdl_error( "MRB1008 unknown pointer type '$1'", ttype.get_type_str ) end ptr_celltype_name = :"t#{tment[1]}Pointer" if @@ptr_list[ ptr_celltype_name ] == nil then # print_msg " MrubyBridgePlugin: [pointer] #{ttype.get_type_str}* => class TECS::#{tment[1]}Pointer\n" print " MrubyBridgePlugin: [pointer] #{ttype.get_type_str}* => class TECS::#{tment[1]}Pointer\n" @@ptr_list[ ptr_celltype_name ] = tment end if @ptr_list[ ptr_celltype_name ] == nil then @ptr_list[ ptr_celltype_name ] = tment end end def get_type_map_ent ttype # structure type is registerd in check_struct_member if ttype.kind_of? StructType return end 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 も無視 end return @@TYPE_MAP[ tstr.to_sym ] end #=== CDL ファイルの生成 # typedef, signature, celltype, cell コードを生成 #file:: FILE 生成するファイル def gen_cdl_file(file) # ブリッジセルタイプの生成 if @@celltypes[ @celltype_name ] == nil then @@celltypes[ @celltype_name ] = [ self ] @@init_celltypes[ @init_celltype_name ] = true print_msg < [celltype] nMruby::#{@celltype_name} => [class] TECS::#{@class_name} EOT file.print < ); /**** Ruby => TECS Bridge Celltype (MBP500) ****/ namespace nMruby{ // bridge celltype [idx_is_id,active] // not actually active, to avoid warning W1002, W1007 celltype #{@celltype_name} { call #{@signature.get_namespace_path.to_s} cTECS; attr { [omit] char_t *VMname = "VM"; }; }; // bridge initializer celltype celltype #{@init_celltype_name} { entry sInitializeTECSBridge eInitialize; }; }; EOT # 構造体セルタイプの生成 @struct_list.each{ |name, sttype| if @@struct_list[ name ] == nil then file.print < sttype } end } @ptr_list.each{ |ptr_celltype_name, tment| if @@VM_ptr_list[ vm_name ] then @@VM_ptr_list[ vm_name ][ ptr_celltype_name ] = tment else @@VM_ptr_list[ vm_name ] = { ptr_celltype_name => tment } end } end #=== プラグインが CDL の POST コードを生成 # tmp_plugin_post_code.cdl への出力 def self.gen_post_code file # file.print <object_class ); mrb_define_method( mrb, rc, "initialize", MrubyBridge_#{@celltype_name}_initialize, MRB_ARGS_REQ(1) ); MRB_SET_INSTANCE_TT(rc, MRB_TT_DATA); EOT @func_head_array.each{ |f| if ! f.is_function? then next end if f.get_name != :initialize then func_name = f.get_name else func_name = :initialize_cell end ret_type = f.get_return_type n_param = 0 f.get_paramlist.get_items.each{ |param| case param.get_direction when :IN, :INOUT, :OUT n_param += 1 when :SEND, :RECEIVE raise "send, receive" end } if n_param > 0 then p_str = "MRB_ARGS_REQ( #{n_param} )" else p_str = "MRB_ARGS_NONE()" end file.print <object_class); MRB_SET_INSTANCE_TT(a, MRB_TT_DATA); mrb_define_method(mrb, a, "initialize", #{type}Pointer_initialize, MRB_ARGS_REQ(1)); mrb_define_method(mrb, a, "[]", #{type}Pointer_aget, MRB_ARGS_REQ(1)); mrb_define_method(mrb, a, "value", #{type}Pointer_get_val, MRB_ARGS_NONE()); mrb_define_method(mrb, a, "[]=", #{type}Pointer_aset, MRB_ARGS_REQ(2)); mrb_define_method(mrb, a, "value=", #{type}Pointer_set_val, MRB_ARGS_REQ(1)); mrb_define_method(mrb, a, "size", #{type}Pointer_size, MRB_ARGS_NONE()); mrb_define_method(mrb, a, "length", #{type}Pointer_size, MRB_ARGS_NONE()); EOT if t[2] == :Char then file.print <object_class); MRB_SET_INSTANCE_TT(a, MRB_TT_DATA); mrb_define_method(mrb, a, "initialize", Struct_#{tag}_initialize, MRB_ARGS_NONE()); EOT structType.get_members_decl.get_items.each{ |d| file.print " STRUCT_INIT_MEMBER( #{tag}, #{d.get_name} )\n" } end #=== 受け口関数の preamble (C言語)を生成する # 必要なら preamble 部に出力する #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 ) if @@celltypes[ ct_name ] then gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name ) gen_preamble_instance( file, b_singleton, ct_name, global_ct_name ) gen_preamble_instance_initialize( file, b_singleton, ct_name, global_ct_name ) gen_preamble_bridge_func( file, b_singleton, ct_name, global_ct_name ) elsif @@init_celltypes[ ct_name ] then gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name ) gen_preamble_instance_proto( file, b_singleton, ct_name, global_ct_name ) elsif @@ptr_list[ ct_name ] then gen_preamble_ptr( file, b_singleton, ct_name, global_ct_name ) elsif @@struct_list[ ct_name ] then gen_preamble_struct( file, b_singleton, ct_name, global_ct_name ) else raise "Unknown #{ct_name}" end end def gen_preamble_mruby( file, b_singleton, ct_name, global_ct_name ) file.print <name != NULL; ntc++ ){ if( strcmp( ntc->name, RSTRING_PTR( name ) ) == 0 ) break; } if( ntc->name == 0 ){ mrb_raise(mrb, E_ARGUMENT_ERROR, "cell not found"); } tecs_cb = (struct tecs_#{@celltype_name} *)mrb_malloc(mrb, sizeof(struct tecs_#{@celltype_name}) ); tecs_cb->cbp = ntc->cbp; DATA_PTR( self ) = (void *)tecs_cb; return self; } EOT end def gen_preamble_bridge_func( file, b_singleton, ct_name, global_ct_name ) @func_head_array.each{ |f| if ! f.is_function? then next end if f.get_name != :initialize then func_name = f.get_name else func_name = :initialize_cell end ret_type = f.get_return_type ret_type0 = f.get_return_type.get_original_type b_void = ret_type0.is_void? plist = f.get_paramlist.get_items file.print <cbp; EOT file.print " /* variables for return & parameter (MBP110) */\n" if ! b_void then file.print " ", ret_type.get_type_str, "\tret_val", ret_type.get_type_str_post, ";\n" end arg_str = "" n_param = 0 n_scalar = 0 n_ptr = 0 n_struct = 0 plist.each{ |param| case param.get_direction when :IN, :INOUT, :OUT type = param.get_type.get_original_type case type when IntType file.print " mrb_int mrb_", param.get_name, ";\n" file.print " #{param.get_type.get_type_str} #{param.get_name}#{param.get_type.get_type_str_post};\n" arg_str += "i" n_param += 1 n_scalar += 1 when FloatType file.print " mrb_float mrb_", param.get_name, ";\n" file.print " #{param.get_type.get_type_str} #{param.get_name}#{param.get_type.get_type_str_post};\n" arg_str += "f" n_param += 1 n_scalar += 1 when BoolType file.print " mrb_value mrb_", param.get_name, ";\n" file.print " #{param.get_type.get_type_str} #{param.get_name}#{param.get_type.get_type_str_post};\n" arg_str += "o" n_param += 1 n_scalar += 1 when PtrType file.print " mrb_value mrb_", param.get_name, ";\n" file.print " #{param.get_type.get_type_str} #{param.get_name}#{param.get_type.get_type_str_post};\n" arg_str += "o" n_param += 1 n_ptr += 1 when StructType file.print " mrb_value mrb_", param.get_name, ";\n" file.print " #{param.get_type.get_type_str} *#{param.get_name}#{param.get_type.get_type_str_post};\n" arg_str += "o" n_param += 1 n_struct += 1 else raise "Unkown type" end end } if n_param > 0 then file.print " /* retrieve arguments (MBP111) */\n" file.print " mrb_get_args(mrb, \"#{arg_str}\"" plist.each{ |param| case param.get_direction when :IN, :INOUT, :OUT type = param.get_type.get_original_type case type when IntType file.print ", &mrb_", param.get_name when FloatType file.print ", &mrb_", param.get_name when BoolType file.print ", &mrb_", param.get_name when PtrType file.print ", &mrb_", param.get_name when StructType file.print ", &mrb_", param.get_name else raise "Unkown type" end end } file.print " );\n" if n_scalar > 0 || n_struct > 0 then file.print " /* convert mrb to C (MBP112) */\n" end plist.each{ |param| case param.get_direction when :IN, :INOUT, :OUT type = param.get_type.get_original_type case type when IntType ttype = type.get_original_type tment = get_type_map_ent ttype file.print " VALCHECK_#{tment[1]}( mrb, mrb_#{param.get_name} );\n" file.print " #{param.get_name} = (#{param.get_type.get_type_str})mrb_#{param.get_name};\n" when FloatType file.print " #{param.get_name} = (#{param.get_type.get_type_str})mrb_#{param.get_name};\n" when BoolType file.print " #{param.get_name} = mrb_test( mrb_#{param.get_name} );\n" when PtrType ttype = type.get_type.get_original_type case ttype when StructType file.print " CHECK_STRUCT( #{ttype.get_name}, mrb_#{param.get_name} );\n" file.print " #{param.get_name} = (struct #{ttype.get_name}*)DATA_PTR(mrb_#{param.get_name});\n" when IntType when FloatType when BoolType else raise "cannot handle type" end when StructType file.print " CHECK_STRUCT( #{type.get_name}, mrb_#{param.get_name} );\n" file.print " #{param.get_name} = (struct #{type.get_name}*)DATA_PTR(mrb_#{param.get_name});\n" else raise( "canot treat class" ) end end } if n_ptr > 0 then file.print " /* convert mrb to C for pointer types (MBP113) */\n" end plist.each{ |param| case param.get_direction when :IN, :INOUT, :OUT type = param.get_type.get_original_type case type when IntType when FloatType when BoolType when PtrType case type.get_type.get_original_type when StructType when IntType ptrMrb2C file, type, param when FloatType ptrMrb2C file, type, param when BoolType ptrMrb2C file, type, param else raise "cannot handle type" end when StructType else raise( "canot treat class" ) end end } end file.print " /* calling target (MBP120) */\n" if ! b_void then file.print " ret_val = " else file.print " " end delim = "" file.print "cTECS_", f.get_name, "( " plist.each{ |param| if param.get_type.get_original_type.kind_of? StructType then aster = "*" else aster = "" end file.print delim, aster, param.get_name delim = ", " } file.print " );\n" file.print " /* return (MBP130) */\n" case ret_type0 when BoolType file.print " return ret_val ? mrb_true_value() : mrb_false_value();\n" when IntType file.print " return mrb_fixnum_value( ret_val );\n" when FloatType file.print " return mrb_float_value( mrb, ret_val );\n" when VoidType file.print " return mrb_nil_value();\n" else raise "unknown type" end file.print "}\n" } end def ptrMrb2C file, type, param ttype = type.get_type.get_original_type tment = get_type_map_ent ttype tstr = tment[1] =begin case ttype when IntType bit_size = ttype.get_bit_size case bit_size when -1, -11 tstr = "Char" when 8, 16, 32, 64 tstr = "Int#{bit_size}" when -2 tstr = "Short" when -3 tstr = "Int" when -4 tstr = "Long" when -5 tstr = "IntPtr" else raise "not handle type" end when FloatType if ttype.get_bit_size == 32 then tstr = "Float32" else tstr = "Double64" end when BoolType tstr = "Bool" when StructType raise "not handle type 2 #{ttype}" else raise "not handle type 2 #{ttype}" end =end if( param.get_size ) then sz_str = param.get_size.to_s elsif param.get_string then # mikan とりあえず size_is と string の同時指定 (二重ポインタ) はなし sz_str = param.get_string.to_s else sz_str = "1" end # 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})" else cast_str = "" end modify = "" case param.get_direction when :OUT, :INOUT case tstr when "Char", "SChar", "UChar" modify = "Mod" end end if param.is_nullable? then nullable = "Nullable" else nullable = "" end # file.print " CHECK_POINTER( #{tstr}, mrb_#{param.get_name}, #{sz_str} );\n" # file.print " #{param.get_name} = #{cast_str}((struct #{tstr}PointerBody*)(DATA_PTR(mrb_#{param.get_name})))->buf;\n" file.print " #{param.get_name} = CheckAndGet#{tstr}Pointer#{modify}#{nullable}( mrb, mrb_#{param.get_name}, #{sz_str} );\n" end def get_celltype_name @celltype_name end #=== プラグイン引数 ignoreUnsigned def set_ignoreUnsigned rhs if rhs == "true" || rhs == nil then @b_ignoreUnsigned = true end end #=== プラグイン引数 include def set_include rhs funcs = rhs.split ',' funcs.each{ |rhs_func| found = false rhs_func.gsub!( /\s/, "" ) @signature.get_function_head_array.each{ |a| if rhs_func.to_sym == a.get_name then found = true end } if found == false then cdl_error( "MRB1009 include function '$1' not found in signagture '$2'", rhs, @signature.get_name ) else @includes << rhs_func.to_sym end } end #=== プラグイン引数 exclude def set_exclude rhs funcs = rhs.split ',' funcs.each{ |rhs_func| found = false rhs_func.gsub!( /\s/, "" ) @signature.get_function_head_array.each{ |a| if rhs_func.to_sym == a.get_name then found = true end } if found == false then cdl_error( "MRB1010 exclude function '$1' not found in signagture '$2", rhs, @signature.get_name ) else @excludes << rhs_func.to_sym end } end end