_curr_cmd_id()
Class Public methods
### â> definition is moved to TkUtil module def _get_eval_string(str, enc_mode = nil)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | return nil if str == Noneif str.kind_of?(TkObject) str = str.pathelsif str.kind_of?(String) str = _toUTF8(str) if enc_modeelsif str.kind_of?(Symbol) str = str.id2name str = _toUTF8(str) if enc_modeelsif str.kind_of?(Hash) str = hash_kv(str, enc_mode).join(" ")elsif str.kind_of?(Array) str = array2tk_list(str) str = _toUTF8(str) if enc_modeelsif str.kind_of?(Proc) str = install_cmd(str)elsif str == nil str = ""elsif str == false str = "0"elsif str == true str = "1"elsif (str.respond_to?(:to_eval)) str = str.to_eval() str = _toUTF8(str) if enc_modeelse str = str.to_s() || '' unless str.kind_of? String fail RuntimeError, "fail to convert the object to a string" end str = _toUTF8(str) if enc_modeendreturn str |
end
def _get_eval_string(obj, enc_mode = nil)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | case objwhen Numeric obj.to_swhen String (enc_mode)? _toUTF8(obj): objwhen Symbol (enc_mode)? _toUTF8(obj.id2name): obj.id2namewhen TkObject obj.pathwhen Hash hash_kv(obj, enc_mode).join(' ')when Array (enc_mode)? _toUTF8(array2tk_list(obj)): array2tk_list(obj)when Proc, Method, TkCallbackEntry install_cmd(obj)when false '0'when true '1'when nil ''when None nilelse if (obj.respond_to?(:to_eval)) (enc_mode)? _toUTF8(obj.to_eval): obj.to_eval else begin obj = obj.to_s || '' rescue fail RuntimeError, "fail to convert object '#{obj}' to string" end (enc_mode)? _toUTF8(obj): obj endend |
end private :_get_eval_string module_function :_get_eval_string
### â> definition is moved to TkUtil module def _get_eval_enc_str(obj)
1 2 | return obj if obj == None_get_eval_string(obj, true) |
end private :_get_eval_enc_str module_function :_get_eval_enc_str
### â> obsolete def ruby2tcl(v, enc_mode = nil)
1 2 3 4 5 6 7 | if v.kind_of?(Hash) v = hash_kv(v) v.flatten! v.collect{|e|ruby2tcl(e, enc_mode)}else _get_eval_string(v, enc_mode)end |
end private :ruby2tcl
### â> definition is moved to TkUtil module def _conv_args(args, enc_mode, *src_args)
1 2 3 4 5 6 7 8 9 10 11 12 13 | conv_args = []src_args.each{|arg| conv_args << _get_eval_string(arg, enc_mode) unless arg == None # if arg.kind_of?(Hash) # arg.each{|k, v| # args << '-' + k.to_s # args << _get_eval_string(v, enc_mode) # } # elsif arg != None # args << _get_eval_string(arg, enc_mode) # end}args + conv_args |
end private :_conv_args
Please login to continue.