class MultiTkIp
Constants
- BASE_DIR
- INTERP_MUTEX
- INTERP_ROOT_CHECK
- INTERP_THREAD
- INTERP_THREAD_STATUS
- RUN_EVENTLOOP_ON_MAIN_THREAD
Ruby 1.9 !!!!!!!!!!!!!!!!!!!!!!!!!!
- WITH_ENCODING
- WITH_RUBY_VM
Attributes
cmd[R]
ip[R]
ret[RW]
target[RW]
Public Class Methods
_DEFAULT_MASTER()
click to toggle source
# File lib/remote-tk.rb, line 22 def self._DEFAULT_MASTER # work only once if @flag @flag = nil @@DEFAULT_MASTER else nil end end
_IP_TABLE()
click to toggle source
# File lib/remote-tk.rb, line 18 def self._IP_TABLE; @@IP_TABLE; end
_TK_TABLE_LIST()
click to toggle source
# File lib/remote-tk.rb, line 19 def self._TK_TABLE_LIST; @@TK_TABLE_LIST; end
__getip()
click to toggle source
# File lib/multi-tk.rb, line 1527 def self.__getip current = Thread.current if current.kind_of?(@@CALLBACK_SUBTHREAD) return current[:callback_ip] end if TclTkLib.mainloop_thread? != false && current[:callback_ip] return current[:callback_ip] end if current.group == ThreadGroup::Default @@DEFAULT_MASTER else ip = @@IP_TABLE[current.group] unless ip fail SecurityError, "cannot call Tk methods on #{Thread.current.inspect}" end ip end end
__init_ip_env__(table, script)
click to toggle source
# File lib/multi-tk.rb, line 957 def self.__init_ip_env__(table, script) ret = [] mtx = (Thread.current[:MultiTk_ip_Mutex] ||= Mutex.new) cond = (Thread.current[:MultiTk_ip_CondVar] ||= ConditionVariable.new) mtx.synchronize{ @init_ip_env_queue.enq([mtx, cond, ret, table, script]) cond.wait(mtx) } if ret[0].kind_of?(Exception) raise ret[0] else ret[0] end end
__pseudo_toplevel()
click to toggle source
# File lib/multi-tk.rb, line 846 def self.__pseudo_toplevel Thread.current.group == ThreadGroup::Default && MultiTkIp.__getip == @@DEFAULT_MASTER && self.__pseudo_toplevel_evaluable? && @pseudo_toplevel[1] end
__pseudo_toplevel=(m)
click to toggle source
# File lib/multi-tk.rb, line 852 def self.__pseudo_toplevel=(m) unless (Thread.current.group == ThreadGroup::Default && MultiTkIp.__getip == @@DEFAULT_MASTER) fail SecurityError, "no permission to manipulate" end # if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?) if m.respond_to?(:pseudo_toplevel_evaluable?) @pseudo_toplevel[0] = true @pseudo_toplevel[1] = m else fail ArgumentError, 'fail to set pseudo-toplevel' end self end
__pseudo_toplevel_evaluable=(mode)
click to toggle source
# File lib/multi-tk.rb, line 876 def self.__pseudo_toplevel_evaluable=(mode) unless (Thread.current.group == ThreadGroup::Default && MultiTkIp.__getip == @@DEFAULT_MASTER) fail SecurityError, "no permission to manipulate" end @pseudo_toplevel[0] = (mode)? true: false end
__pseudo_toplevel_evaluable?()
click to toggle source
# File lib/multi-tk.rb, line 868 def self.__pseudo_toplevel_evaluable? begin @pseudo_toplevel[0] && @pseudo_toplevel[1].pseudo_toplevel_evaluable? rescue Exception false end end
_conv_listelement(arg)
click to toggle source
# File lib/multi-tk.rb, line 2676 def _conv_listelement(arg) __getip._conv_listelement(arg) end
_create_console()
click to toggle source
# File lib/multi-tk.rb, line 2680 def _create_console __getip._create_console end
_eval(str)
click to toggle source
# File lib/multi-tk.rb, line 2584 def _eval(str) __getip._eval(str) end
_eval_with_enc(str)
click to toggle source
# File lib/multi-tk.rb, line 2600 def _eval_with_enc(str) __getip._eval_with_enc(str) end
_eval_without_enc(str)
click to toggle source
# File lib/multi-tk.rb, line 2592 def _eval_without_enc(str) __getip._eval_without_enc(str) end
_fromUTF8(str, encoding=nil)
click to toggle source
# File lib/multi-tk.rb, line 2612 def _fromUTF8(str, encoding=nil) __getip._fromUTF8(str, encoding) end
_get_global_var(var)
click to toggle source
# File lib/multi-tk.rb, line 2647 def _get_global_var(var) __getip._get_global_var(var) end
_get_global_var2(var, idx)
click to toggle source
# File lib/multi-tk.rb, line 2650 def _get_global_var2(var, idx) __getip._get_global_var2(var, idx) end
_get_variable(var, flag)
click to toggle source
# File lib/multi-tk.rb, line 2628 def _get_variable(var, flag) __getip._get_variable(var, flag) end
_get_variable2(var, idx, flag)
click to toggle source
# File lib/multi-tk.rb, line 2631 def _get_variable2(var, idx, flag) __getip._get_variable2(var, idx, flag) end
_invoke(*args)
click to toggle source
# File lib/multi-tk.rb, line 2588 def _invoke(*args) __getip._invoke(*args) end
_invoke_with_enc(*args)
click to toggle source
# File lib/multi-tk.rb, line 2604 def _invoke_with_enc(*args) __getip._invoke_with_enc(*args) end
_invoke_without_enc(*args)
click to toggle source
# File lib/multi-tk.rb, line 2596 def _invoke_without_enc(*args) __getip._invoke_without_enc(*args) end
_ip_id_()
click to toggle source
# File lib/multi-tk.rb, line 1519 def self._ip_id_ __getip._ip_id_ end
_merge_tklist(*args)
click to toggle source
# File lib/multi-tk.rb, line 2673 def _merge_tklist(*args) __getip._merge_tklist(*args) end
_proc_on_current_safelevel(cmd=nil, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2135 def MultiTkIp._proc_on_current_safelevel(cmd=nil, &blk) MultiTkIp.__getip._proc_on_current_safelevel(cmd, &blk) end
_proc_on_safelevel(cmd=nil, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2126 def MultiTkIp._proc_on_safelevel(cmd=nil, &blk) MultiTkIp.__getip._proc_on_safelevel(cmd, &blk) end
_return_value()
click to toggle source
# File lib/multi-tk.rb, line 2624 def _return_value __getip._return_value end
_set_global_var(var, value)
click to toggle source
# File lib/multi-tk.rb, line 2653 def _set_global_var(var, value) __getip._set_global_var(var, value) end
_set_global_var2(var, idx, value)
click to toggle source
# File lib/multi-tk.rb, line 2656 def _set_global_var2(var, idx, value) __getip._set_global_var2(var, idx, value) end
_set_variable(var, value, flag)
click to toggle source
# File lib/multi-tk.rb, line 2634 def _set_variable(var, value, flag) __getip._set_variable(var, value, flag) end
_set_variable2(var, idx, value, flag)
click to toggle source
# File lib/multi-tk.rb, line 2637 def _set_variable2(var, idx, value, flag) __getip._set_variable2(var, idx, value, flag) end
_split_tklist(str)
click to toggle source
# File lib/multi-tk.rb, line 2670 def _split_tklist(str) __getip._split_tklist(str) end
_thread_tkwait(mode, target)
click to toggle source
# File lib/multi-tk.rb, line 2620 def _thread_tkwait(mode, target) __getip._thread_tkwait(mode, target) end
_thread_vwait(var)
click to toggle source
# File lib/multi-tk.rb, line 2616 def _thread_vwait(var) __getip._thread_vwait(var) end
_toUTF8(str, encoding=nil)
click to toggle source
# File lib/multi-tk.rb, line 2608 def _toUTF8(str, encoding=nil) __getip._toUTF8(str, encoding) end
_unset_global_var(var)
click to toggle source
# File lib/multi-tk.rb, line 2659 def _unset_global_var(var) __getip._unset_global_var(var) end
_unset_global_var2(var, idx)
click to toggle source
# File lib/multi-tk.rb, line 2662 def _unset_global_var2(var, idx) __getip._unset_global_var2(var, idx) end
_unset_variable(var, flag)
click to toggle source
# File lib/multi-tk.rb, line 2640 def _unset_variable(var, flag) __getip._unset_variable(var, flag) end
_unset_variable2(var, idx, flag)
click to toggle source
# File lib/multi-tk.rb, line 2643 def _unset_variable2(var, idx, flag) __getip._unset_variable2(var, idx, flag) end
abort(msg = nil)
click to toggle source
# File lib/multi-tk.rb, line 2561 def abort(msg = nil) __getip.abort(msg) end
add_tk_procs(name, args=nil, body=nil)
click to toggle source
# File lib/multi-tk.rb, line 1876 def self.add_tk_procs(name, args=nil, body=nil) if name.kind_of?(Array) # => an array of [name, args, body] name.each{|param| self.add_tk_procs(*param)} else name = name.to_s @@ADD_TK_PROCS << [name, args, body] @@IP_TABLE.each{|tg, ip| ip._add_tk_procs(name, args, body) } end end
alias_delete(slave, cmd_name)
click to toggle source
# File lib/multi-tk.rb, line 3191 def self.alias_delete(slave, cmd_name) __getip.alias_delete(slave, cmd_name) self end
alias_info(slave, cmd_name)
click to toggle source
# File lib/multi-tk.rb, line 3182 def self.alias_info(slave, cmd_name) __getip.alias_info(slave, cmd_name) end
alias_target(aliascmd, slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3422 def self.alias_target(aliascmd, slave = '') __getip.alias_target(aliascmd, slave) end
aliases(slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3211 def self.aliases(slave = '') __getip.aliases(slave) end
alive?()
click to toggle source
# File lib/multi-tk.rb, line 1689 def self.alive? __getip.alive? end
allow_ruby_exit=(mode)
click to toggle source
# File lib/multi-tk.rb, line 2541 def allow_ruby_exit= (mode) __getip.allow_ruby_exit = mode end
allow_ruby_exit?()
click to toggle source
# File lib/multi-tk.rb, line 2537 def allow_ruby_exit? __getip.allow_ruby_exit? end
assign_receiver_and_watchdog(target)
click to toggle source
# File lib/multi-tk.rb, line 924 def self.assign_receiver_and_watchdog(target) ret = [nil] @assign_thread.raise(@assign_request.new(target, ret)) while ret[0] == nil unless @assign_thread.alive? raise RuntimeError, 'lost the thread to assign a receiver and a watchdog thread' end end if ret[0].kind_of?(Exception) raise ret[0] else ret[0] end end
bg_eval(*args, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2462 def bg_eval(*args, &blk) # class ==> interp object __getip.bg_eval(*args, &blk) end
Also aliased as: background_eval
bg_eval_proc(*args, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2435 def bg_eval_proc(*args, &blk) # class ==> interp object __getip.bg_eval_proc(*args, &blk) end
bg_eval_string(cmd, *eval_args)
click to toggle source
# File lib/multi-tk.rb, line 2450 def bg_eval_string(cmd, *eval_args) # class ==> interp object __getip.bg_eval_string(cmd, *eval_args) end
bgerror(cmd = Proc.new, slave = nil, &b)
click to toggle source
# File lib/multi-tk.rb, line 3364 def self.bgerror(cmd = Proc.new, slave = nil, &b) __getip.bgerror(cmd, slave, &b) end
cb_entry_class()
click to toggle source
# File lib/multi-tk.rb, line 1907 def self.cb_entry_class @@CB_ENTRY_CLASS end
cb_eval(cmd, *args)
click to toggle source
# File lib/tk.rb, line 1453 def INTERP.cb_eval(cmd, *args) TkUtil._get_eval_string(TkUtil.eval_cmd(cmd, *args)) end
create_table()
click to toggle source
# File lib/multi-tk.rb, line 1819 def self.create_table if __getip.slave? begin raise SecurityError, "slave-IP has no permission creating a new table" rescue SecurityError => e #p e.backtrace # Is called on a Ruby/Tk library? caller_info = e.backtrace[1] if caller_info =~ %r{^#{MultiTkIp::BASE_DIR}/(tk|tkextlib)/[^:]+\.rb:} # Probably, caller is a Ruby/Tk library --> allow creating else raise e end end end id = @@TK_TABLE_LIST.size obj = Object.new @@TK_TABLE_LIST << obj obj.instance_variable_set(:@id, id) obj.instance_variable_set(:@mutex, Mutex.new) obj.instance_eval{ def self.mutex @mutex end def self.method_missing(m, *args) MultiTkIp.tk_object_table(@id).__send__(m, *args) end } obj.freeze @@IP_TABLE.each{|tg, ip| ip._add_new_tables } return obj end
def_alias(slave, new_cmd, org_cmd, *args)
click to toggle source
# File lib/multi-tk.rb, line 3202 def self.def_alias(slave, new_cmd, org_cmd, *args) ret = __getip.def_alias(slave, new_cmd, org_cmd, *args) (ret == new_cmd)? self: nil end
default_encoding=(enc)
click to toggle source
# File lib/multi-tk.rb, line 3603 def default_encoding=(enc) __getip.default_encoding=(enc) end
default_master?()
click to toggle source
# File lib/multi-tk.rb, line 2473 def self.default_master? __getip == @@DEFAULT_MASTER end
delete()
click to toggle source
# File lib/multi-tk.rb, line 2545 def delete __getip.delete end
delete_cmd(slave, cmd)
click to toggle source
# File lib/multi-tk.rb, line 3241 def self.delete_cmd(slave, cmd) __getip.delete_cmd(slave, cmd) self end
delete_slaves(*args)
click to toggle source
# File lib/multi-tk.rb, line 3221 def self.delete_slaves(*args) __getip.delete_slaves(*args) self end
deleted?()
click to toggle source
# File lib/multi-tk.rb, line 2549 def deleted? __getip.deleted? end
do_one_event(flag = TclTkLib::EventFlag::ALL)
click to toggle source
# File lib/multi-tk.rb, line 2484 def do_one_event(flag = TclTkLib::EventFlag::ALL) __getip.do_one_event(flag) end
encoding=(enc)
click to toggle source
# File lib/multi-tk.rb, line 3607 def encoding=(enc) __getip.encoding=(enc) end
encoding_convertfrom(str, enc=None)
click to toggle source
# File lib/multi-tk.rb, line 3621 def encoding_convertfrom(str, enc=None) __getip.encoding_convertfrom(str, enc) end
Also aliased as: encoding_convert_from
encoding_convertto(str, enc=None)
click to toggle source
# File lib/multi-tk.rb, line 3626 def encoding_convertto(str, enc=None) __getip.encoding_convertto(str, enc) end
Also aliased as: encoding_convert_to
encoding_name()
click to toggle source
# File lib/multi-tk.rb, line 3611 def encoding_name __getip.encoding_name end
Also aliased as: encoding, default_encoding
encoding_obj()
click to toggle source
# File lib/multi-tk.rb, line 3615 def encoding_obj __getip.encoding_obj end
encoding_table()
click to toggle source
# File lib/multi-tk.rb, line 3591 def encoding_table __getip.encoding_table end
eval(*args, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2458 def eval(*args, &blk) # class ==> interp object __getip.eval(*args, &blk) end
eval_proc(*args, &blk)
click to toggle source
class method
# File lib/multi-tk.rb, line 2429 def eval_proc(*args, &blk) # class ==> interp object __getip.eval_proc(*args, &blk) end
Also aliased as: call
eval_string(cmd, *eval_args)
click to toggle source
# File lib/multi-tk.rb, line 2444 def eval_string(cmd, *eval_args) # class ==> interp object __getip.eval_string(cmd, *eval_args) end
Also aliased as: eval_str
exist?(slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3231 def self.exist?(slave = '') __getip.exist?(slave) end
exit(st = true)
click to toggle source
# File lib/multi-tk.rb, line 2565 def exit(st = true) __getip.exit(st) end
exit!(st = false)
click to toggle source
# File lib/multi-tk.rb, line 2569 def exit!(st = false) __getip.exit!(st) end
expose_cmd(slave, cmd, aliasname = nil)
click to toggle source
# File lib/multi-tk.rb, line 3255 def self.expose_cmd(slave, cmd, aliasname = nil) __getip.expose_cmd(slave, cmd, aliasname) self end
force_default_encoding=(mode)
click to toggle source
# File lib/multi-tk.rb, line 3595 def force_default_encoding=(mode) __getip.force_default_encoding=(mode) end
force_default_encoding?()
click to toggle source
# File lib/multi-tk.rb, line 3599 def force_default_encoding? __getip.force_default_encoding? end
get_cb_entry(cmd)
click to toggle source
# File lib/multi-tk.rb, line 1910 def self.get_cb_entry(cmd) @@CB_ENTRY_CLASS.new(__getip, cmd).freeze end
get_eventloop_tick()
click to toggle source
# File lib/multi-tk.rb, line 2498 def get_eventloop_tick __getip.get_eventloop_tick end
get_eventloop_weight()
click to toggle source
# File lib/multi-tk.rb, line 2510 def get_eventloop_weight __getip.get_eventloop_weight end
get_limit(limit_type, slave = '', slot = nil)
click to toggle source
# File lib/multi-tk.rb, line 3405 def self.get_limit(limit_type, slave = '', slot = nil) __getip.get_limit(limit_type, slave, slot) end
get_no_event_wait()
click to toggle source
# File lib/multi-tk.rb, line 2504 def get_no_event_wait __getip.get_no_event_wait end
has_mainwindow?()
click to toggle source
# File lib/multi-tk.rb, line 2553 def has_mainwindow? __getip.has_mainwindow? end
hide_cmd(slave, cmd, aliasname = nil)
click to toggle source
# File lib/multi-tk.rb, line 3269 def self.hide_cmd(slave, cmd, aliasname = nil) __getip.hide_cmd(slave, cmd, aliasname) self end
inherited(subclass)
click to toggle source
# File lib/multi-tk.rb, line 983 def self.inherited(subclass) # trust if on ThreadGroup::Default or @@DEFAULT_MASTER's ThreadGroup if @@IP_TABLE[Thread.current.group] == @@DEFAULT_MASTER begin class << subclass self.methods.each{|m| name = m.to_s begin unless name == '__id__' || name == '__send__' || name == 'freeze' undef_method(m) end rescue Exception # ignore all exceptions end } end ensure subclass.freeze fail SecurityError, "cannot create subclass of MultiTkIp on a untrusted ThreadGroup" end end end
init_ip_env(script = Proc.new)
click to toggle source
# File lib/multi-tk.rb, line 1853 def self.init_ip_env(script = Proc.new) @@INIT_IP_ENV << script if __getip.slave? begin raise SecurityError, "slave-IP has no permission initializing IP env" rescue SecurityError => e #p e.backtrace # Is called on a Ruby/Tk library? caller_info = e.backtrace[1] if caller_info =~ %r{^#{MultiTkIp::BASE_DIR}/(tk|tkextlib)/[^:]+\.rb:} # Probably, caller is a Ruby/Tk library --> allow creating else raise e end end end # @@IP_TABLE.each{|tg, ip| # ip._init_ip_env(script) # } @@DEFAULT_MASTER.__init_ip_env__(@@IP_TABLE, script) end
init_ip_internal()
click to toggle source
# File lib/multi-tk.rb, line 1900 def self.init_ip_internal __getip._init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS) end
invalid_namespace?()
click to toggle source
# File lib/multi-tk.rb, line 2557 def invalid_namespace? __getip.invalid_namespace? end
ip_name()
click to toggle source
# File lib/multi-tk.rb, line 1702 def self.ip_name __getip.ip_name end
mainloop(check_root = true)
click to toggle source
# File lib/multi-tk.rb, line 800 def self.mainloop(check_root = true) begin TclTkLib.set_eventloop_window_mode(true) @interp_thread.value ensure TclTkLib.set_eventloop_window_mode(false) end end
mainloop_abort_on_exception()
click to toggle source
# File lib/multi-tk.rb, line 2487 def mainloop_abort_on_exception # __getip.mainloop_abort_on_exception TclTkLib.mainloop_abort_on_exception end
mainloop_abort_on_exception=(mode)
click to toggle source
# File lib/multi-tk.rb, line 2491 def mainloop_abort_on_exception=(mode) # __getip.mainloop_abort_on_exception=(mode) TclTkLib.mainloop_abort_on_exception=(mode) end
mainloop_watchdog(check_root = true)
click to toggle source
# File lib/multi-tk.rb, line 2481 def mainloop_watchdog(check_root = true) __getip.mainloop_watchdog(check_root) end
make_safe()
click to toggle source
# File lib/multi-tk.rb, line 2521 def make_safe __getip.make_safe end
manipulable?()
click to toggle source
# File lib/multi-tk.rb, line 1733 def self.manipulable? true end
mark_trusted(slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3346 def self.mark_trusted(slave = '') __getip.mark_trusted(slave) self end
master?()
click to toggle source
# File lib/multi-tk.rb, line 1667 def self.master? __getip.master? end
method_missing(m, *args)
click to toggle source
# File lib/multi-tk.rb, line 1844 def self.method_missing(m, *args) MultiTkIp.tk_object_table(@id).__send__(m, *args) end
mutex()
click to toggle source
# File lib/multi-tk.rb, line 1841 def self.mutex @mutex end
new(target, ret)
click to toggle source
Calls superclass method
# File lib/multi-tk.rb, line 888 def self.new(target, ret) obj = super() obj.target = target obj.ret = ret obj end
new(ip, cmd)
click to toggle source
# File lib/multi-tk.rb, line 188 def initialize(ip, cmd) @ip = ip @safe = safe = $SAFE # @cmd = cmd cmd = MultiTkIp._proc_on_safelevel(&cmd) @cmd = proc{|*args| cmd.call(safe, *args)} self.freeze end
Also aliased as: __new
new_master(safe=nil, keys={}, &blk)
click to toggle source
# File lib/multi-tk.rb, line 1554 def new_master(safe=nil, keys={}, &blk) if MultiTkIp::WITH_RUBY_VM #### TODO !!!!!! fail RuntimeError, 'sorry, still not support multiple master-interpreters on RubyVM' end if safe.kind_of?(Hash) keys = safe elsif safe.kind_of?(Integer) raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash) if !keys.key?(:safe) && !keys.key?('safe') keys[:safe] = safe end elsif safe == nil # do nothing else raise ArgumentError, "unexpected argument(s)" end ip = __new(__getip, nil, keys) #ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given? if block_given? #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)} #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; yield}.call)} ip._proc_on_safelevel(&blk).call(ip.safe_level) end ip end
Also aliased as: new
new_safe_slave(safe=1, keys={}, &blk)
click to toggle source
# File lib/multi-tk.rb, line 1611 def new_safe_slave(safe=1, keys={}, &blk) if safe.kind_of?(Hash) keys = safe elsif safe.kind_of?(Integer) raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash) if !keys.key?(:safe) && !keys.key?('safe') keys[:safe] = safe end else raise ArgumentError, "unexpected argument(s)" end ip = __new(__getip, true, keys) # ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given? if block_given? #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)} #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; yield}.call)} ip._proc_on_safelevel(&blk).call(ip.safe_level) end ip end
Also aliased as: new_safeTk
new_slave(safe=nil, keys={}, &blk)
click to toggle source
# File lib/multi-tk.rb, line 1586 def new_slave(safe=nil, keys={}, &blk) if safe.kind_of?(Hash) keys = safe elsif safe.kind_of?(Integer) raise ArgumentError, "unexpected argument(s)" unless keys.kind_of?(Hash) if !keys.key?(:safe) && !keys.key?('safe') keys[:safe] = safe end elsif safe == nil # do nothing else raise ArgumentError, "unexpected argument(s)" end ip = __new(__getip, false, keys) # ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call) if block_given? if block_given? #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; Proc.new}.call)} #Thread.new{ip.eval_proc(proc{$SAFE=ip.safe_level; yield}.call)} ip._proc_on_safelevel(&blk).call(ip.safe_level) end ip end
Also aliased as: new_trusted_slave
path()
click to toggle source
# File lib/multi-tk.rb, line 1696 def self.path __getip.path end
recursion_limit(slave = '', limit = None)
click to toggle source
# File lib/multi-tk.rb, line 3414 def self.recursion_limit(slave = '', limit = None) __getip.recursion_limit(slave) end
remove_tk_procs(*names)
click to toggle source
# File lib/multi-tk.rb, line 1888 def self.remove_tk_procs(*names) names.each{|name| name = name.to_s @@ADD_TK_PROCS.delete_if{|elem| elem.kind_of?(Array) && elem[0].to_s == name } } @@IP_TABLE.each{|tg, ip| ip._remove_tk_procs(*names) } end
restart(app_name = nil, keys = {})
click to toggle source
# File lib/multi-tk.rb, line 2573 def restart(app_name = nil, keys = {}) init_ip_internal __getip._invoke('set', 'argv0', app_name) if app_name if keys.kind_of?(Hash) __getip._invoke('set', 'argv', _keys2opts(keys)) end __getip.restart end
safe?()
click to toggle source
# File lib/multi-tk.rb, line 2525 def safe? __getip.safe? end
safe_base?()
click to toggle source
# File lib/multi-tk.rb, line 2529 def safe_base? begin __getip.safe_base? rescue false end end
safe_level()
click to toggle source
# File lib/multi-tk.rb, line 336 def self.safe_level __getip.safe_level end
safe_level=(safe)
click to toggle source
# File lib/multi-tk.rb, line 330 def self.safe_level=(safe) self.set_safe_level(safe) end
set_eventloop_tick(tick)
click to toggle source
# File lib/multi-tk.rb, line 2495 def set_eventloop_tick(tick) __getip.set_eventloop_tick(tick) end
set_eventloop_weight(loop_max, no_event_tick)
click to toggle source
# File lib/multi-tk.rb, line 2507 def set_eventloop_weight(loop_max, no_event_tick) __getip.set_eventloop_weight(loop_max, no_event_tick) end
set_limit(limit_type, slave = '', opts = {})
click to toggle source
# File lib/multi-tk.rb, line 3380 def self.set_limit(limit_type, slave = '', opts = {}) __getip.set_limit(limit_type, slave, opts) end
set_no_event_wait(tick)
click to toggle source
# File lib/multi-tk.rb, line 2501 def set_no_event_wait(tick) __getip.set_no_event_wait(tick) end
set_safe_level(safe)
click to toggle source
# File lib/multi-tk.rb, line 327 def self.set_safe_level(safe) __getip.set_safe_level(safe) end
slave?()
click to toggle source
# File lib/multi-tk.rb, line 1674 def self.slave? not self.master? end
slaves(all = false)
click to toggle source
# File lib/multi-tk.rb, line 1724 def self.slaves(all = false) __getip.slaves(all) end
table()
click to toggle source
# File lib/multi-tk.rb, line 1514 def self.table @table end
tk_cmd_tbl()
click to toggle source
# File lib/multi-tk.rb, line 1810 def self.tk_cmd_tbl @@TK_CMD_TBL end
tk_object_table(id)
click to toggle source
# File lib/multi-tk.rb, line 1816 def self.tk_object_table(id) __getip._tk_table_list[id] end
tk_windows()
click to toggle source
# File lib/multi-tk.rb, line 1813 def self.tk_windows __getip._tk_windows end
to_eval()
click to toggle source
# File lib/multi-tk.rb, line 1708 def self.to_eval __getip.to_eval end
transfer_stderr(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3481 def self.transfer_stderr(dist, src = '') __getip.transfer_stderr(dist, src) self end
transfer_stdin(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3461 def self.transfer_stdin(dist, src = '') __getip.transfer_stdin(dist, src) self end
transfer_stdio(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3505 def self.transfer_stdio(dist, src = '') __getip.transfer_stdio(dist, src) self end
transfer_stdout(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3471 def self.transfer_stdout(dist, src = '') __getip.transfer_stdout(dist, src) self end
Private Class Methods
Public Instance Methods
__create_safe_slave_obj(safe_opts, app_name, tk_opts)
click to toggle source
# File lib/multi-tk.rb, line 1190 def __create_safe_slave_obj(safe_opts, app_name, tk_opts) raise SecurityError, "no permission to manipulate" unless self.manipulable? # safe interpreter ip_name = _create_slave_ip_name slave_ip = @interp.create_slave(ip_name, true) slave_ip.instance_eval{ @force_default_encoding ||= TkUtil.untrust([false]) @encoding ||= TkUtil.untrust([nil]) def @encoding.to_s; self.join(nil); end } @slave_ip_tbl[ip_name] = slave_ip def slave_ip.safe_base? true end @interp._eval("::safe::interpInit #{ip_name}") slave_ip._invoke('set', 'argv0', app_name) if app_name.kind_of?(String) if tk_opts tk_opts = __check_safetk_optkeys(tk_opts) if tk_opts.key?('use') @slave_ip_top[ip_name] = '' else tk_opts, top_path = __create_safetk_frame(slave_ip, ip_name, app_name, tk_opts) @slave_ip_top[ip_name] = top_path end @interp._eval("::safe::loadTk #{ip_name} #{_keys2opts(tk_opts)}") @interp._invoke('__replace_slave_tk_commands__', ip_name) else @slave_ip_top[ip_name] = nil end if safe_opts.key?('deleteHook') || safe_opts.key?(:deleteHook) @interp._eval("::safe::interpConfigure #{ip_name} " + _keys2opts(safe_opts)) else @interp._eval("::safe::interpConfigure #{ip_name} " + _keys2opts(safe_opts) + '-deleteHook {' + TkComm._get_eval_string(proc{|slave| self._default_delete_hook(slave) }) + '}') end [slave_ip, ip_name] end
__create_trusted_slave_obj(name, keys)
click to toggle source
# File lib/multi-tk.rb, line 1239 def __create_trusted_slave_obj(name, keys) raise SecurityError, "no permission to manipulate" unless self.manipulable? ip_name = _create_slave_ip_name slave_ip = @interp.create_slave(ip_name, false) slave_ip.instance_eval{ @force_default_encoding ||= TkUtil.untrust([false]) @encoding ||= TkUtil.untrust([nil]) def @encoding.to_s; self.join(nil); end } slave_ip._invoke('set', 'argv0', name) if name.kind_of?(String) slave_ip._invoke('set', 'argv', _keys2opts(keys)) @interp._invoke('load', '', 'Tk', ip_name) @interp._invoke('__replace_slave_tk_commands__', ip_name) @slave_ip_tbl[ip_name] = slave_ip [slave_ip, ip_name] end
__eval(str)
click to toggle source
# File lib/multi-tk.rb, line 2998 def __eval(str) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.__eval(str) end
__invoke(*args)
click to toggle source
# File lib/multi-tk.rb, line 3003 def __invoke(*args) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.__invoke(*args) end
__pseudo_toplevel()
click to toggle source
instance method
# File lib/multi-tk.rb, line 1995 def __pseudo_toplevel ip = MultiTkIp.__getip (ip == @@DEFAULT_MASTER || ip == self) && self.__pseudo_toplevel_evaluable? && @pseudo_toplevel[1] end
__pseudo_toplevel=(m)
click to toggle source
# File lib/multi-tk.rb, line 2001 def __pseudo_toplevel=(m) unless (Thread.current.group == ThreadGroup::Default && MultiTkIp.__getip == @@DEFAULT_MASTER) fail SecurityError, "no permission to manipulate" end # if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?) if m.respond_to?(:pseudo_toplevel_evaluable?) @pseudo_toplevel[0] = true @pseudo_toplevel[1] = m else fail ArgumentError, 'fail to set pseudo-toplevel' end self end
__pseudo_toplevel_evaluable=(mode)
click to toggle source
# File lib/multi-tk.rb, line 2025 def __pseudo_toplevel_evaluable=(mode) unless (Thread.current.group == ThreadGroup::Default && MultiTkIp.__getip == @@DEFAULT_MASTER) fail SecurityError, "no permission to manipulate" end @pseudo_toplevel[0] = (mode)? true: false end
__pseudo_toplevel_evaluable?()
click to toggle source
# File lib/multi-tk.rb, line 2017 def __pseudo_toplevel_evaluable? begin @pseudo_toplevel[0] && @pseudo_toplevel[1].pseudo_toplevel_evaluable? rescue Exception false end end
_add_new_tables()
click to toggle source
# File lib/multi-tk.rb, line 1760 def _add_new_tables (@@TK_TABLE_LIST.size - @tk_table_list.size).times{ @tk_table_list << TkUtil.untrust({}) } end
_add_tk_procs(name, args, body)
click to toggle source
# File lib/multi-tk.rb, line 1770 def _add_tk_procs(name, args, body) return if slave? @interp._invoke('proc', name, args, body) if args && body @interp._invoke('interp', 'slaves').split.each{|slave| @interp._invoke('interp', 'alias', slave, name, '', name) } end
_conv_listelement(arg)
click to toggle source
# File lib/multi-tk.rb, line 3126 def _conv_listelement(arg) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._conv_listelement(arg) end
_create_slave_object(keys={})
click to toggle source
# File lib/multi-tk.rb, line 1259 def _create_slave_object(keys={}) raise SecurityError, "no permission to manipulate" unless self.manipulable? ip = MultiTkIp.new_slave(self, keys={}) @slave_ip_tbl[ip.name] = ip end
_default_delete_hook(slave)
click to toggle source
# File lib/multi-tk.rb, line 1476 def _default_delete_hook(slave) raise SecurityError, "no permission to manipulate" unless self.manipulable? @slave_ip_tbl.delete(slave) top = @slave_ip_top.delete(slave) if top.kind_of?(String) # call default hook of safetk.tcl (ignore exceptions) if top == '' begin @interp._eval("::safe::disallowTk #{slave}") rescue warn("Warning: fail to call '::safe::disallowTk'") if $DEBUG end else # toplevel path begin @interp._eval("::safe::tkDelete {} #{top} #{slave}") rescue warn("Warning: fail to call '::safe::tkDelete'") if $DEBUG begin @interp._eval("destroy #{top}") rescue warn("Warning: fail to destroy toplevel") if $DEBUG end end end end end
_destroy_slaves_of_slaveIP(ip)
click to toggle source
# File lib/multi-tk.rb, line 351 def _destroy_slaves_of_slaveIP(ip) unless ip.deleted? # ip._split_tklist(ip._invoke('interp', 'slaves')).each{|name| ip._split_tklist(ip._invoke_without_enc('interp', 'slaves')).each{|name| name = _fromUTF8(name) begin # ip._eval_without_enc("#{name} eval {foreach i [after info] {after cancel $i}}") after_ids = ip._eval_without_enc("#{name} eval {after info}") ip._eval_without_enc("#{name} eval {foreach i {#{after_ids}} {after cancel $i}}") rescue Exception end begin # ip._invoke('interp', 'eval', name, 'destroy', '.') ip._invoke(name, 'eval', 'destroy', '.') rescue Exception end # safe_base? if ip._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0' begin ip._eval_without_enc("::safe::interpDelete #{name}") rescue Exception end end if ip._invoke('interp', 'exists', name) == '1' begin ip._invoke(name, 'eval', 'exit') rescue Exception end end unless ip.deleted? if ip._invoke('interp', 'exists', name) == '1' begin ip._invoke('interp', 'delete', name) rescue Exception end end end } end end
_eval(str)
click to toggle source
# File lib/multi-tk.rb, line 3008 def _eval(str) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._eval(str) end
_eval_with_enc(str)
click to toggle source
# File lib/multi-tk.rb, line 3028 def _eval_with_enc(str) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._eval_with_enc(str) end
_eval_without_enc(str)
click to toggle source
# File lib/multi-tk.rb, line 3018 def _eval_without_enc(str) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._eval_without_enc(str) end
_fromUTF8(str, encoding=nil)
click to toggle source
# File lib/multi-tk.rb, line 3043 def _fromUTF8(str, encoding=nil) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._fromUTF8(str, encoding) end
_get_global_var(var)
click to toggle source
# File lib/multi-tk.rb, line 3088 def _get_global_var(var) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._get_global_var(var) end
_get_global_var2(var, idx)
click to toggle source
# File lib/multi-tk.rb, line 3092 def _get_global_var2(var, idx) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._get_global_var2(var, idx) end
_get_variable(var, flag)
click to toggle source
# File lib/multi-tk.rb, line 3063 def _get_variable(var, flag) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._get_variable(var, flag) end
_get_variable2(var, idx, flag)
click to toggle source
# File lib/multi-tk.rb, line 3067 def _get_variable2(var, idx, flag) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._get_variable2(var, idx, flag) end
_init_ip_env(script)
click to toggle source
# File lib/multi-tk.rb, line 1766 def _init_ip_env(script) self.eval_proc{script.call(self)} end
_init_ip_internal(init_ip_env, add_tk_procs)
click to toggle source
# File lib/multi-tk.rb, line 1794 def _init_ip_internal(init_ip_env, add_tk_procs) #init_ip_env.each{|script| self.eval_proc{script.call(self)}} init_ip_env.each{|script| self._init_ip_env(script)} add_tk_procs.each{|name, args, body| if master? @interp._invoke('proc', name, args, body) if args && body else @set_alias_proc.call(name) end } end
_invoke(*args)
click to toggle source
# File lib/multi-tk.rb, line 3013 def _invoke(*args) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke(*args) end
_invoke_with_enc(*args)
click to toggle source
# File lib/multi-tk.rb, line 3033 def _invoke_with_enc(*args) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke_with_enc(*args) end
_invoke_without_enc(*args)
click to toggle source
# File lib/multi-tk.rb, line 3023 def _invoke_without_enc(*args) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke_without_enc(*args) end
_ip_id_()
click to toggle source
# File lib/multi-tk.rb, line 1522 def _ip_id_ # for RemoteTkIp '' end
_merge_tklist(*args)
click to toggle source
# File lib/multi-tk.rb, line 3122 def _merge_tklist(*args) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._merge_tklist(*args) end
_proc_on_current_safelevel(cmd=nil, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2130 def _proc_on_current_safelevel(cmd=nil, &blk) # require a block for eval safe = $SAFE cmd = _proc_on_safelevel(cmd, &blk) Proc.new{|*args| cmd.call(safe, *args)} end
_proc_on_safelevel(cmd=nil) { |*args| ... }
click to toggle source
instance & class method
# File lib/multi-tk.rb, line 2099 def _proc_on_safelevel(cmd=nil) # require a block for eval if cmd if cmd.kind_of?(Method) _proc_on_safelevel{|*args| cmd.call(*args)} else _proc_on_safelevel(&cmd) end else #Proc.new{|safe, *args| $SAFE=safe if $SAFE < safe; yield(*args)} Proc.new{|safe, *args| # avoid security error on Exception objects untrust_proc = proc{|err| begin err.untrust if err.respond_to?(:untrust) rescue SecurityError end err } $SAFE=safe if $SAFE < safe; begin yield(*args) rescue Exception => e fail untrust_proc.call(e) end } end end
_receiver_mainloop(check_root)
click to toggle source
# File lib/multi-tk.rb, line 601 def _receiver_mainloop(check_root) if @evloop_thread[0] && @evloop_thread[0].alive? @evloop_thread[0] else @evloop_thread[0] = Thread.new{ while !@interp.deleted? #if check_root # inf = @interp._invoke_without_enc('info', 'command', '.') # break if !inf.kind_of?(String) || inf != '.' #end break if check_root && !@interp.has_mainwindow? sleep 0.5 end } @evloop_thread[0] end end
_remove_tk_procs(*names)
click to toggle source
# File lib/multi-tk.rb, line 1778 def _remove_tk_procs(*names) return if slave? names.each{|name| name = name.to_s return if @interp.deleted? @interp._invoke('rename', name, '') return if @interp.deleted? @interp._invoke('interp', 'slaves').split.each{|slave| return if @interp.deleted? @interp._invoke('interp', 'alias', slave, name, '') rescue nil } } end
_return_value()
click to toggle source
# File lib/multi-tk.rb, line 3058 def _return_value raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._return_value end
_set_global_var(var, value)
click to toggle source
# File lib/multi-tk.rb, line 3096 def _set_global_var(var, value) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._set_global_var(var, value) end
_set_global_var2(var, idx, value)
click to toggle source
# File lib/multi-tk.rb, line 3100 def _set_global_var2(var, idx, value) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._set_global_var2(var, idx, value) end
_set_variable(var, value, flag)
click to toggle source
# File lib/multi-tk.rb, line 3071 def _set_variable(var, value, flag) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._set_variable(var, value, flag) end
_set_variable2(var, idx, value, flag)
click to toggle source
# File lib/multi-tk.rb, line 3075 def _set_variable2(var, idx, value, flag) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._set_variable2(var, idx, value, flag) end
_split_tklist(str)
click to toggle source
# File lib/multi-tk.rb, line 3118 def _split_tklist(str) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._split_tklist(str) end
_thread_tkwait(mode, target)
click to toggle source
# File lib/multi-tk.rb, line 3053 def _thread_tkwait(mode, target) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._thread_tkwait(mode, target) end
_thread_vwait(var)
click to toggle source
# File lib/multi-tk.rb, line 3048 def _thread_vwait(var) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._thread_vwait(var) end
_tk_cmd_tbl()
click to toggle source
# File lib/multi-tk.rb, line 1746 def _tk_cmd_tbl tbl = {} MultiTkIp.tk_cmd_tbl.each{|id, ent| tbl[id] = ent if ent.ip == self } tbl end
_tk_table_list()
click to toggle source
# File lib/multi-tk.rb, line 1756 def _tk_table_list @tk_table_list end
_tk_windows()
click to toggle source
# File lib/multi-tk.rb, line 1752 def _tk_windows @tk_windows end
_toUTF8(str, encoding=nil)
click to toggle source
# File lib/multi-tk.rb, line 3038 def _toUTF8(str, encoding=nil) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._toUTF8(str, encoding) end
_unset_global_var(var)
click to toggle source
# File lib/multi-tk.rb, line 3104 def _unset_global_var(var) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._unset_global_var(var) end
_unset_global_var2(var, idx)
click to toggle source
# File lib/multi-tk.rb, line 3108 def _unset_global_var2(var, idx) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._unset_global_var2(var, idx) end
_unset_variable(var, flag)
click to toggle source
# File lib/multi-tk.rb, line 3079 def _unset_variable(var, flag) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._unset_variable(var, flag) end
_unset_variable2(var, idx, flag)
click to toggle source
# File lib/multi-tk.rb, line 3083 def _unset_variable2(var, idx, flag) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._unset_variable2(var, idx, flag) end
abort(msg = nil)
click to toggle source
# File lib/multi-tk.rb, line 2950 def abort(msg = nil) raise SecurityError, "no permission to manipulate" unless self.manipulable? if master? && !safe? && allow_ruby_exit? if msg Kernel.abort(msg) else Kernel.abort end else # ignore msg delete 1 end end
alias_delete(slave, cmd_name)
click to toggle source
# File lib/multi-tk.rb, line 3186 def alias_delete(slave, cmd_name) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'alias', _slavearg(slave), cmd_name, '') self end
alias_info(slave, cmd_name)
click to toggle source
# File lib/multi-tk.rb, line 3178 def alias_info(slave, cmd_name) raise SecurityError, "no permission to manipulate" unless self.manipulable? _lst2ary(@interp._invoke('interp', 'alias', _slavearg(slave), cmd_name)) end
alias_target(aliascmd, slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3418 def alias_target(aliascmd, slave = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'target', _slavearg(slave), aliascmd) end
aliases(slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3207 def aliases(slave = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? _lst2ary(@interp._invoke('interp', 'aliases', _slavearg(slave))) end
alive?()
click to toggle source
# File lib/multi-tk.rb, line 1678 def alive? raise SecurityError, "no permission to manipulate" unless self.manipulable? begin return false unless @cmd_receiver.alive? return false if @interp.deleted? return false if @interp._invoke('interp', 'exists', '') == '0' rescue Exception return false end true end
allow_ruby_exit=(mode)
click to toggle source
# File lib/multi-tk.rb, line 2867 def allow_ruby_exit= (mode) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.allow_ruby_exit = mode end
allow_ruby_exit?()
click to toggle source
# File lib/multi-tk.rb, line 2862 def allow_ruby_exit? raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.allow_ruby_exit? end
bg_eval(*args, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2411 def bg_eval(*args, &blk) if block_given? bg_eval_proc(*args, &blk) elsif args[0] if args[0].respond_to?(:call) bg_eval_proc(*args) else bg_eval_string(*args) end else fail ArgumentError, "no argument to eval" end end
Also aliased as: background_eval
bg_eval_proc(*args)
click to toggle source
# File lib/multi-tk.rb, line 2341 def bg_eval_proc(*args) if block_given? cmd = Proc.new else unless (cmd = args.shift) fail ArgumentError, "A Proc or Method object is expected for 1st argument" end end Thread.new{ eval_proc(cmd, *args) eval_proc_core(false, proc{|safe, *params| $SAFE=safe if $SAFE < safe Thread.new(*params, &cmd).value }, safe_level, *args) } end
bg_eval_string(cmd, *eval_args)
click to toggle source
# File lib/multi-tk.rb, line 2380 def bg_eval_string(cmd, *eval_args) # cmd string ==> proc unless cmd.kind_of?(String) raise RuntimeError, "A String object is expected for the 'cmd' argument" end Thread.new{ eval_proc_core(true, proc{|safe| Kernel.eval("$SAFE=#{safe} if $SAFE < #{safe};" << cmd, *eval_args) }) } end
call(*args)
click to toggle source
def #eval_proc(*args)
# The scope of the eval-block of 'eval_proc' method is different from # the external. If you want to pass local values to the eval-block, # use arguments of eval_proc method. They are passed to block-arguments. if block_given? cmd = Proc.new else unless (cmd = args.shift) fail ArgumentError, "A Proc or Method object is expected for 1st argument" end end if TclTkLib.mainloop_thread? == true # call from eventloop current = Thread.current backup_ip = current[:callback_ip] current[:callback_ip] = self begin eval_proc_core(false, proc{|safe, *params| $SAFE=safe if $SAFE < safe cmd.call(*params) }, *args) ensure current[:callback_ip] = backup_ip end else eval_proc_core(true, proc{|safe, *params| $SAFE=safe if $SAFE < safe Thread.new(*params, &cmd).value }, *args) end
end
# File lib/multi-tk.rb, line 200 def call(*args) unless @ip.deleted? current = Thread.current backup_ip = current[:callback_ip] current[:callback_ip] = @ip begin ret = @ip.cb_eval(@cmd, *args) fail ret if ret.kind_of?(Exception) ret rescue TkCallbackBreak, TkCallbackContinue => e fail e rescue SecurityError => e # in 'exit', 'exit!', and 'abort' : security error --> delete IP if e.backtrace[0] =~ /^(.+?):(\d+):in `(exit|exit!|abort)'/ @ip.delete elsif @ip.safe? if @ip.respond_to?(:cb_error) @ip.cb_error(e) else nil # ignore end else fail e end rescue Exception => e fail e if e.message =~ /^TkCallback/ if @ip.safe? if @ip.respond_to?(:cb_error) @ip.cb_error(e) else nil # ignore end else fail e end ensure current[:callback_ip] = backup_ip end end end
cb_error(e)
click to toggle source
# File lib/multi-tk.rb, line 309 def cb_error(e) if @cb_error_proc[0].respond_to?(:call) @cb_error_proc[0].call(e) end end
cb_eval(cmd, *args)
click to toggle source
def #cb_eval(cmd, *args)
#self.eval_callback{ TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *args)) } #ret = self.eval_callback{ TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *args)) } ret = self.eval_callback(*args){|safe, *params| $SAFE=safe if $SAFE < safe TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *params)) } if ret.kind_of?(Exception) raise ret end ret
end
# File lib/multi-tk.rb, line 1928 def cb_eval(cmd, *args) self.eval_callback(*args, &_proc_on_safelevel{|*params| TkComm._get_eval_string(TkUtil.eval_cmd(cmd, *params)) }) end
def_alias(slave, new_cmd, org_cmd, *args)
click to toggle source
# File lib/multi-tk.rb, line 3196 def def_alias(slave, new_cmd, org_cmd, *args) raise SecurityError, "no permission to manipulate" unless self.manipulable? ret = @interp._invoke('interp', 'alias', _slavearg(slave), new_cmd, '', org_cmd, *args) (ret == new_cmd)? self: nil end
default_encoding=(enc)
click to toggle source
# File lib/multi-tk.rb, line 3645 def default_encoding=(enc) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.default_encoding = enc end
delete()
click to toggle source
# File lib/multi-tk.rb, line 2872 def delete raise SecurityError, "no permission to manipulate" unless self.manipulable? @slave_ip_tbl.each{|name, subip| _destroy_slaves_of_slaveIP(subip) begin subip._invoke('destroy', '.') unless subip.deleted? rescue Exception end begin # subip._eval_without_enc("foreach i [after info] {after cancel $i}") unless subip.deleted? after_ids = subip._eval_without_enc("after info") subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") end rescue Exception end # safe_base? if @interp._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0' begin @interp._eval_without_enc("::safe::interpDelete #{name}") rescue Exception else next if subip.deleted? end end if subip.respond_to?(:safe_base?) && subip.safe_base? && !subip.deleted? # do 'exit' to call the delete_hook procedure begin subip._eval_without_enc('exit') rescue Exception end else begin subip.delete unless subip.deleted? rescue Exception end end } begin # @interp._eval_without_enc("foreach i [after info] {after cancel $i}") after_ids = @interp._eval_without_enc("after info") @interp._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end begin @interp._invoke('destroy', '.') unless @interp.deleted? rescue Exception end if @safe_base && !@interp.deleted? # do 'exit' to call the delete_hook procedure @interp._eval_without_enc('exit') end @interp.delete self end
delete_cmd(slave, cmd)
click to toggle source
# File lib/multi-tk.rb, line 3235 def delete_cmd(slave, cmd) raise SecurityError, "no permission to manipulate" unless self.manipulable? slave_invoke = @interp._invoke('list', 'rename', cmd, '') @interp._invoke('interp', 'eval', _slavearg(slave), slave_invoke) self end
delete_slaves(*args)
click to toggle source
# File lib/multi-tk.rb, line 3215 def delete_slaves(*args) raise SecurityError, "no permission to manipulate" unless self.manipulable? slaves = args.collect{|s| _slavearg(s)} @interp._invoke('interp', 'delete', *slaves) if slaves.size > 0 self end
deleted?()
click to toggle source
# File lib/multi-tk.rb, line 2935 def deleted? raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.deleted? end
encoding=(enc)
click to toggle source
# File lib/multi-tk.rb, line 3650 def encoding=(enc) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.encoding = enc end
encoding_convertfrom(str, enc=None)
click to toggle source
# File lib/multi-tk.rb, line 3665 def encoding_convertfrom(str, enc=None) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.encoding_convertfrom(str, enc) end
Also aliased as: encoding_convert_from
encoding_convertto(str, enc=None)
click to toggle source
# File lib/multi-tk.rb, line 3671 def encoding_convertto(str, enc=None) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.encoding_convertto(str, enc) end
Also aliased as: encoding_convert_to
encoding_name()
click to toggle source
# File lib/multi-tk.rb, line 3654 def encoding_name raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.encoding_name end
Also aliased as: encoding, default_encoding
encoding_obj()
click to toggle source
# File lib/multi-tk.rb, line 3658 def encoding_obj raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.encoding_obj end
encoding_table()
click to toggle source
# File lib/multi-tk.rb, line 3632 def encoding_table @interp.encoding_table end
eval(*args, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2397 def eval(*args, &blk) if block_given? eval_proc(*args, &blk) elsif args[0] if args[0].respond_to?(:call) eval_proc(*args) else eval_string(*args) end else fail ArgumentError, "no argument to eval" end end
eval_callback(*args)
click to toggle source
Not stable, so disable this feature
# File lib/multi-tk.rb, line 2235 def eval_callback(*args) if block_given? cmd = Proc.new else cmd = args.shift end begin if @@CALLBACK_SUBTHREAD.table[self].index(Thread.current) last_th = nil else last_th = @@CALLBACK_SUBTHREAD.table[self][-1] end @@CALLBACK_SUBTHREAD.new(self){ @@CALLBACK_SUBTHREAD.table[self] << Thread.current begin last_th.join if last_th eval_proc_core(false, cmd, *args) rescue Exception=>e e ensure @@CALLBACK_SUBTHREAD.table[self].delete(Thread.current) end } end end
eval_proc(*args, &blk)
click to toggle source
# File lib/multi-tk.rb, line 2276 def eval_proc(*args, &blk) if block_given? cmd = _proc_on_safelevel(&blk) else unless (cmd = args.shift) fail ArgumentError, "A Proc or Method object is expected for 1st argument" end cmd = _proc_on_safelevel(&cmd) end if TclTkLib.mainloop_thread? == true # call from eventloop current = Thread.current backup_ip = current[:callback_ip] current[:callback_ip] = self begin eval_proc_core(false, cmd, *args) ensure current[:callback_ip] = backup_ip end else eval_proc_core(true, proc{|safe, *params| Thread.new{cmd.call(safe, *params)}.value }, *args) end end
Also aliased as: call
eval_string(cmd, *eval_args)
click to toggle source
# File lib/multi-tk.rb, line 2366 def eval_string(cmd, *eval_args) # cmd string ==> proc unless cmd.kind_of?(String) raise RuntimeError, "A String object is expected for the 'cmd' argument" end eval_proc_core(true, proc{|safe| Kernel.eval("$SAFE=#{safe} if $SAFE < #{safe};" << cmd, *eval_args) }) end
Also aliased as: eval_str
exist?(slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3226 def exist?(slave = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? ret = @interp._invoke('interp', 'exists', _slavearg(slave)) (ret == '1')? true: false end
exit(st = true)
click to toggle source
# File lib/multi-tk.rb, line 2965 def exit(st = true) raise SecurityError, "no permission to manipulate" unless self.manipulable? if master? && !safe? && allow_ruby_exit? Kernel.exit(st) else delete st end end
exit!(st = false)
click to toggle source
# File lib/multi-tk.rb, line 2975 def exit!(st = false) raise SecurityError, "no permission to manipulate" unless self.manipulable? if master? && !safe? && allow_ruby_exit? Kernel.exit!(st) else delete st end end
expose_cmd(slave, cmd, aliasname = nil)
click to toggle source
# File lib/multi-tk.rb, line 3246 def expose_cmd(slave, cmd, aliasname = nil) raise SecurityError, "no permission to manipulate" unless self.manipulable? if aliasname @interp._invoke('interp', 'expose', _slavearg(slave), cmd, aliasname) else @interp._invoke('interp', 'expose', _slavearg(slave), cmd) end self end
force_default_encoding=(mode)
click to toggle source
# File lib/multi-tk.rb, line 3636 def force_default_encoding=(mode) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.force_default_encoding = mode end
force_default_encoding?()
click to toggle source
# File lib/multi-tk.rb, line 3640 def force_default_encoding? raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.force_default_encoding? end
get_bgerror_handler(slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3368 def get_bgerror_handler(slave = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? procedure(@interp._invoke('interp', 'bgerror', _slavearg(slave))) end
get_limit(limit_type, slave = '', slot = nil)
click to toggle source
# File lib/multi-tk.rb, line 3384 def get_limit(limit_type, slave = '', slot = nil) raise SecurityError, "no permission to manipulate" unless self.manipulable? if slot num_or_str(@interp._invoke('interp', 'limit', _slavearg(slave), limit_type, slot)) else l = @interp._split_tklist(@interp._invoke_without_enc('interp', 'limit', _slavearg(slave), limit_type)) l.map!{|s| _fromUTF8(s)} r = {} until l.empty? key = l.shift[1..-1] val = l.shift val = num_or_str(val) if val r[key] = val end r end end
has_mainwindow?()
click to toggle source
# File lib/multi-tk.rb, line 2940 def has_mainwindow? raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.has_mainwindow? end
hide_cmd(slave, cmd, aliasname = nil)
click to toggle source
# File lib/multi-tk.rb, line 3260 def hide_cmd(slave, cmd, aliasname = nil) raise SecurityError, "no permission to manipulate" unless self.manipulable? if aliasname @interp._invoke('interp', 'hide', _slavearg(slave), cmd, aliasname) else @interp._invoke('interp', 'hide', _slavearg(slave), cmd) end self end
inspect()
click to toggle source
# File lib/multi-tk.rb, line 197 def inspect cmd.inspect end
invalid_namespace?()
click to toggle source
# File lib/multi-tk.rb, line 2945 def invalid_namespace? raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.invalid_namespace? end
ip_name()
click to toggle source
# File lib/multi-tk.rb, line 1699 def ip_name @ip_name || '' end
mainloop(check_root = true, restart_on_dead = false)
click to toggle source
def mainloop(check_root = true, restart_on_dead = true)
# File lib/multi-tk.rb, line 2737 def mainloop(check_root = true, restart_on_dead = false) raise SecurityError, "no permission to manipulate" unless self.manipulable? if WITH_RUBY_VM ### Ruby 1.9 !!!!!!!!!!! return @interp_thread.value if @interp_thread end #return self if self.slave? #return self if self != @@DEFAULT_MASTER if self != @@DEFAULT_MASTER if @wait_on_mainloop[0] begin @wait_on_mainloop[1] += 1 @cmd_queue.enq([@system, 'call_mainloop', Thread.current, check_root]) Thread.stop rescue MultiTkIp_OK => ret # return value if ret.value.kind_of?(Thread) return ret.value.value else return ret.value end rescue SystemExit => e # exit IP warn("Warning: " + e.inspect + " on " + self.inspect) if $DEBUG begin self._eval_without_enc('exit') rescue Exception end self.delete rescue StandardError => e if $DEBUG warn("Warning: " + e.class.inspect + ((e.message.length > 0)? ' "' + e.message + '"': '') + " on " + self.inspect) end return e rescue Exception => e return e ensure @wait_on_mainloop[1] -= 1 end end return end unless restart_on_dead @wait_on_mainloop[1] += 1 begin @interp.mainloop(check_root) rescue StandardError => e if $DEBUG warn("Warning: " + e.class.inspect + ((e.message.length > 0)? ' "' + e.message + '"': '') + " on " + self.inspect) end end begin @interp.mainloop(check_root) ensure @wait_on_mainloop[1] -= 1 end else loop do break unless self.alive? if check_root begin break if TclTkLib.num_of_mainwindows == 0 rescue StandardError break end end break if @interp.deleted? begin @wait_on_mainloop[1] += 1 @interp.mainloop(check_root) rescue StandardError => e if TclTkLib.mainloop_abort_on_exception != nil #STDERR.print("Warning: Tk mainloop receives ", $!.class.inspect, # " exception (ignore) : ", $!.message, "\n"); if $DEBUG warn("Warning: Tk mainloop receives " << e.class.inspect << " exception (ignore) : " << e.message); end end #raise e rescue Exception => e if TclTkLib.mainloop_abort_on_exception != nil #STDERR.print("Warning: Tk mainloop receives ", $!.class.inspect, # " exception (ignore) : ", $!.message, "\n"); if $DEBUG warn("Warning: Tk mainloop receives " << e.class.inspect << " exception (ignore) : " << e.message); end end raise e ensure @wait_on_mainloop[1] -= 1 Thread.pass # avoid eventloop conflict end end end self end
make_safe()
click to toggle source
# File lib/multi-tk.rb, line 2847 def make_safe raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.make_safe end
manipulable?()
click to toggle source
# File lib/multi-tk.rb, line 1728 def manipulable? return true if (Thread.current.group == ThreadGroup::Default) ip = MultiTkIp.__getip (ip == self) || ip._is_master_of?(@interp) end
mark_trusted(slave = '')
click to toggle source
# File lib/multi-tk.rb, line 3341 def mark_trusted(slave = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'marktrusted', _slavearg(slave)) self end
master?()
click to toggle source
# File lib/multi-tk.rb, line 1660 def master? if @ip_name false else true end end
mutex()
click to toggle source
# File lib/multi-tk.rb, line 93 def mutex; @mutex; end
path()
click to toggle source
# File lib/multi-tk.rb, line 1693 def path @ip_name || '' end
recursion_limit(slave = '', limit = None)
click to toggle source
# File lib/multi-tk.rb, line 3409 def recursion_limit(slave = '', limit = None) raise SecurityError, "no permission to manipulate" unless self.manipulable? number(@interp._invoke('interp', 'recursionlimit', _slavearg(slave), limit)) end
restart(app_name = nil, keys = {})
click to toggle source
# File lib/multi-tk.rb, line 2985 def restart(app_name = nil, keys = {}) raise SecurityError, "no permission to manipulate" unless self.manipulable? _init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS) @interp._invoke('set', 'argv0', app_name) if app_name if keys.kind_of?(Hash) @interp._invoke('set', 'argv', _keys2opts(keys)) end @interp.restart end
running_mainloop?()
click to toggle source
# File lib/multi-tk.rb, line 347 def running_mainloop? @wait_on_mainloop[1] > 0 end
safe?()
click to toggle source
# File lib/multi-tk.rb, line 2852 def safe? raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp.safe? end
safe_base?()
click to toggle source
# File lib/multi-tk.rb, line 2857 def safe_base? raise SecurityError, "no permission to manipulate" unless self.manipulable? @safe_base end
safe_level()
click to toggle source
# File lib/multi-tk.rb, line 333 def safe_level @safe_level[0] end
safe_level=(safe)
click to toggle source
# File lib/multi-tk.rb, line 324 def safe_level=(safe) set_safe_level(safe) end
safeip_add_to_access_path(dir)
click to toggle source
# File lib/multi-tk.rb, line 3572 def safeip_add_to_access_path(dir) ip = MultiTkIp.__getip ip._eval("::safe::interpAddToAccessPath #{@ip_name} #{dir}") end
safeip_configinfo(slot = nil)
click to toggle source
# File lib/multi-tk.rb, line 3527 def safeip_configinfo(slot = nil) ip = MultiTkIp.__getip ret = {} if slot conf = _lst2ary(ip._eval("::safe::interpConfigure " + @ip_name + " -#{slot}")) if conf[0] == '-deleteHook' if conf[1] =~ /^rb_out\S* (c(_\d+_)?\d+)/ ret[conf[0][1..-1]] = MultiTkIp._tk_cmd_tbl[$1] if conf[1] =~ /rb_out\S*(?:\s+(::\S*|[{](::.*)[}]|["](::.*)["]))? (c(_\d+_)?(\d+))/ ret[conf[0][1..-1]] = MultiTkIp._tk_cmd_tbl[$4] else ret[conf[0][1..-1]] = conf[1] end else ret[conf[0][1..-1]] = conf[1] end else Hash[*_lst2ary(ip._eval("::safe::interpConfigure " + @ip_name))].each{|k, v| if k == '-deleteHook' if v =~ /^rb_out\S* (c(_\d+_)?\d+)/ ret[k[1..-1]] = MultiTkIp._tk_cmd_tbl[$1] if v =~ /rb_out\S*(?:\s+(::\S*|[{](::.*)[}]|["](::.*)["]))? (c(_\d+_)?(\d+))/ ret[k[1..-1]] = MultiTkIp._tk_cmd_tbl[$4] else ret[k[1..-1]] = v end else ret[k[1..-1]] = v end } end ret end
safeip_configure(slot, value=None)
click to toggle source
# File lib/multi-tk.rb, line 3514 def safeip_configure(slot, value=None) # use for '-noStatics' option ==> {statics=>false} # for '-nestedLoadOk' option ==> {nested=>true} if slot.kind_of?(Hash) ip = MultiTkIp.__getip ip._eval('::safe::interpConfigure ' + @ip_name + ' ' + _keys2opts(slot)) else ip._eval('::safe::interpConfigure ' + @ip_name + ' ' + "-#{slot} #{_get_eval_string(value)}") end self end
safeip_delete()
click to toggle source
# File lib/multi-tk.rb, line 3567 def safeip_delete ip = MultiTkIp.__getip ip._eval("::safe::interpDelete " + @ip_name) end
safeip_find_in_access_path(dir)
click to toggle source
# File lib/multi-tk.rb, line 3577 def safeip_find_in_access_path(dir) ip = MultiTkIp.__getip ip._eval("::safe::interpFindInAccessPath #{@ip_name} #{dir}") end
safeip_set_log_cmd(cmd = Proc.new)
click to toggle source
# File lib/multi-tk.rb, line 3582 def safeip_set_log_cmd(cmd = Proc.new) ip = MultiTkIp.__getip ip._eval("::safe::setLogCmd #{@ip_name} #{_get_eval_string(cmd)}") end
set_bgerror_handler(cmd = Proc.new, slave = nil, &b)
click to toggle source
# File lib/multi-tk.rb, line 3351 def set_bgerror_handler(cmd = Proc.new, slave = nil, &b) raise SecurityError, "no permission to manipulate" unless self.manipulable? unless TkComm._callback_entry?(cmd) if !slave && b slave = cmd cmd = Proc.new(&b) end end slave = '' unless slave @interp._invoke('interp', 'bgerror', _slavearg(slave), cmd) end
set_cb_error(cmd = Proc.new)
click to toggle source
# File lib/multi-tk.rb, line 305 def set_cb_error(cmd = Proc.new) @cb_error_proc[0] = cmd end
set_limit(limit_type, slave = '', opts = {})
click to toggle source
# File lib/multi-tk.rb, line 3376 def set_limit(limit_type, slave = '', opts = {}) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'limit', _slavearg(slave), limit_type, opts) end
set_safe_level(safe)
click to toggle source
# File lib/multi-tk.rb, line 317 def set_safe_level(safe) if safe > @safe_level[0] @safe_level[0] = safe @cmd_queue.enq([@system, 'set_safe_level', safe]) end @safe_level[0] end
slave?()
click to toggle source
# File lib/multi-tk.rb, line 1671 def slave? not master? end
slaves(all = false)
click to toggle source
# File lib/multi-tk.rb, line 1712 def slaves(all = false) raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp','slaves').split.map!{|name| if @slave_ip_tbl.key?(name) @slave_ip_tbl[name] elsif all name else nil end }.compact! end
to_eval()
click to toggle source
# File lib/multi-tk.rb, line 1705 def to_eval @ip_name || '' end
transfer_stderr(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3476 def transfer_stderr(dist, src = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'transfer', src, 'stderr', dist) self end
transfer_stdin(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3456 def transfer_stdin(dist, src = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'transfer', src, 'stdin', dist) self end
transfer_stdio(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3498 def transfer_stdio(dist, src = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'transfer', src, 'stdin', dist) @interp._invoke('interp', 'transfer', src, 'stdout', dist) @interp._invoke('interp', 'transfer', src, 'stderr', dist) self end
transfer_stdout(dist, src = '')
click to toggle source
# File lib/multi-tk.rb, line 3466 def transfer_stdout(dist, src = '') raise SecurityError, "no permission to manipulate" unless self.manipulable? @interp._invoke('interp', 'transfer', src, 'stdout', dist) self end
wait_on_mainloop=(bool)
click to toggle source
# File lib/multi-tk.rb, line 343 def wait_on_mainloop=(bool) @wait_on_mainloop[0] = bool end
wait_on_mainloop?()
click to toggle source
# File lib/multi-tk.rb, line 340 def wait_on_mainloop? @wait_on_mainloop[0] end
Protected Instance Methods
_is_master_of?(tcltkip_obj)
click to toggle source
# File lib/multi-tk.rb, line 1737 def _is_master_of?(tcltkip_obj) tcltkip_obj.slave_of?(@interp) end
Private Instance Methods
__check_safetk_optkeys(optkeys)
click to toggle source
# File lib/multi-tk.rb, line 1054 def __check_safetk_optkeys(optkeys) # based on 'safetk.tcl' new_keys = {} optkeys.each{|k,v| new_keys[k.to_s] = v} # check 'display' if !new_keys.key?('display') begin #new_keys['display'] = @interp._invoke('winfo screen .') new_keys['display'] = @interp._invoke('winfo', 'screen', '.') rescue if ENV[DISPLAY] new_keys['display'] = ENV[DISPLAY] elsif !new_keys.key?('use') warn "Warning: no screen info or ENV[DISPLAY], so use ':0.0'" new_keys['display'] = ':0.0' end end end # check 'use' if new_keys.key?('use') # given 'use' case new_keys['use'] when TkWindow new_keys['use'] = TkWinfo.id(new_keys['use']) #assoc_display = @interp._eval('winfo screen .') assoc_display = @interp._invoke('winfo', 'screen', '.') when /^\..*/ new_keys['use'] = @interp._invoke('winfo', 'id', new_keys['use']) assoc_display = @interp._invoke('winfo', 'screen', new_keys['use']) else begin pathname = @interp._invoke('winfo', 'pathname', new_keys['use']) assoc_display = @interp._invoke('winfo', 'screen', pathname) rescue assoc_display = new_keys['display'] end end # match display? if assoc_display != new_keys['display'] if optkeys.key?(:display) || optkeys.key?('display') fail RuntimeError, "conflicting 'display'=>#{new_keys['display']} " + "and display '#{assoc_display}' on 'use'=>#{new_keys['use']}" else new_keys['display'] = assoc_display end end end # return new_keys end
__create_safetk_frame(slave_ip, slave_name, app_name, keys)
click to toggle source
# File lib/multi-tk.rb, line 1111 def __create_safetk_frame(slave_ip, slave_name, app_name, keys) # display option is used by ::safe::loadTk loadTk_keys = {} loadTk_keys['display'] = keys['display'] dup_keys = keys.dup # keys for toplevel : allow followings toplevel_keys = {} ['height', 'width', 'background', 'menu'].each{|k| toplevel_keys[k] = dup_keys.delete(k) if dup_keys.key?(k) } toplevel_keys['classname'] = 'SafeTk' toplevel_keys['screen'] = dup_keys.delete('display') # other keys used by pack option of container frame # create toplevel widget begin top = TkToplevel.new(toplevel_keys) rescue NameError => e fail e unless @interp.safe? fail SecurityError, "unable create toplevel on the safe interpreter" end msg = "Untrusted Ruby/Tk applet (#{slave_name})" if app_name.kind_of?(String) top.title "#{app_name} (#{slave_name})" else top.title msg end # procedure to delete slave interpreter slave_delete_proc = proc{ unless slave_ip.deleted? #if slave_ip._invoke('info', 'command', '.') != "" # slave_ip._invoke('destroy', '.') #end #slave_ip.delete slave_ip._eval_without_enc('exit') end begin top.destroy if top.winfo_exist? rescue # ignore end } tag = TkBindTag.new.bind('Destroy', slave_delete_proc) top.bindtags = top.bindtags.unshift(tag) # create control frame TkFrame.new(top, :bg=>'red', :borderwidth=>3, :relief=>'ridge') {|fc| fc.bindtags = fc.bindtags.unshift(tag) TkFrame.new(fc, :bd=>0){|f| TkButton.new(f, :text=>'Delete', :bd=>1, :padx=>2, :pady=>0, :highlightthickness=>0, :command=>slave_delete_proc ).pack(:side=>:right, :fill=>:both) f.pack(:side=>:right, :fill=>:both, :expand=>true) } TkLabel.new(fc, :text=>msg, :padx=>2, :pady=>0, :anchor=>:w).pack(:side=>:left, :fill=>:both, :expand=>true) fc.pack(:side=>:bottom, :fill=>:x) } # container frame for slave interpreter dup_keys['fill'] = :both unless dup_keys.key?('fill') dup_keys['expand'] = true unless dup_keys.key?('expand') c = TkFrame.new(top, :container=>true).pack(dup_keys) c.bind('Destroy', proc{top.destroy}) # return keys loadTk_keys['use'] = TkWinfo.id(c) [loadTk_keys, top.path] end
_check_and_return(thread, exception, wait=0)
click to toggle source
# File lib/multi-tk.rb, line 253 def _check_and_return(thread, exception, wait=0) unless thread unless exception.kind_of?(MultiTkIp_OK) msg = "#{exception.class}: #{exception.message}" if @interp.deleted? warn("Warning (#{self}): " + msg) return nil end if safe? warn("Warning (#{self}): " + msg) if $DEBUG return nil end begin @interp._eval_without_enc(@interp._merge_tklist('bgerror', msg)) rescue Exception => e warn("Warning (#{self}): " + msg) end end return nil end if wait == 0 # no wait Thread.pass if thread.stop? thread.raise exception end return thread end # wait to stop the caller thread wait.times{ if thread.stop? # ready to send exception thread.raise exception return thread end # wait Thread.pass } # unexpected error thread.raise RuntimeError, "the thread may not wait for the return value" return thread end
_create_receiver_and_watchdog(lvl = $SAFE)
click to toggle source
# File lib/multi-tk.rb, line 619 def _create_receiver_and_watchdog(lvl = $SAFE) lvl = $SAFE if lvl < $SAFE # command-procedures receiver receiver = Thread.new(lvl){|safe_level| last_thread = {} loop do break if @interp.deleted? thread, cmd, *args = @cmd_queue.deq if thread == @system # control command case cmd when 'set_safe_level' begin safe_level = args[0] if safe_level < args[0] rescue Exception end when 'call_mainloop' thread = args.shift _check_and_return(thread, MultiTkIp_OK.new(_receiver_mainloop(*args))) else # ignore end else # procedure last_thread[thread] = _receiver_eval_proc(last_thread[thread], safe_level, thread, cmd, *args) end end } # watchdog of receiver watchdog = Thread.new{ begin loop do sleep 1 if @interp.deleted? receiver.kill @cmd_queue.close end break unless receiver.alive? end rescue Exception # ignore all kind of Exception end # receiver is dead retry_count = 3 loop do Thread.pass begin thread, cmd, *args = @cmd_queue.deq(true) # non-block rescue ThreadError # queue is empty retry_count -= 1 break if retry_count <= 0 sleep 0.5 retry end next unless thread if thread.alive? if @interp.deleted? thread.raise RuntimeError, 'the interpreter is already deleted' else thread.raise RuntimeError, 'the interpreter no longer receives command procedures' end end end } # return threads [receiver, watchdog] end
_create_slave_ip_name()
click to toggle source
# File lib/multi-tk.rb, line 1043 def _create_slave_ip_name @@SLAVE_IP_ID.mutex.synchronize{ name = @@SLAVE_IP_ID.join('') @@SLAVE_IP_ID[1].succ! name.freeze } end
_keys2opts(src_keys)
click to toggle source
# File lib/multi-tk.rb, line 245 def _keys2opts(src_keys) return nil if src_keys == nil keys = {}; src_keys.each{|k, v| keys[k.to_s] = v} #keys.collect{|k,v| "-#{k} #{v}"}.join(' ') keys.collect{|k,v| "-#{k} #{TclTkLib._conv_listelement(TkComm::_get_eval_string(v))}"}.join(' ') end
_lst2ary(str)
click to toggle source
# File lib/multi-tk.rb, line 3135 def _lst2ary(str) return [] if str == "" idx = str.index('{') while idx and idx > 0 and str[idx-1] == ?\ idx = str.index('{', idx+1) end return str.split unless idx list = str[0,idx].split str = str[idx+1..-1] i = -1 brace = 1 str.each_byte {|c| c = c.chr i += 1 brace += 1 if c == '{' brace -= 1 if c == '}' break if brace == 0 } if i == 0 list.push '' elsif str[0, i] == ' ' list.push ' ' else list.push str[0..i-1] end #list += _lst2ary(str[i+1..-1]) list.concat(_lst2ary(str[i+1..-1])) list end
_parse_slaveopts(keys)
click to toggle source
# File lib/multi-tk.rb, line 1016 def _parse_slaveopts(keys) name = nil safe = false safe_opts = {} tk_opts = {} keys.each{|k,v| k_str = k.to_s if k_str == 'name' name = v elsif k_str == 'safe' safe = v elsif @@SAFE_OPT_LIST.member?(k_str) safe_opts[k_str] = v else tk_opts[k_str] = v end } if keys['without_tk'] || keys[:without_tk] [name, safe, safe_opts, nil] else [name, safe, safe_opts, tk_opts] end end
_receiver_eval_proc(last_thread, safe_level, thread, cmd, *args)
click to toggle source
# File lib/multi-tk.rb, line 581 def _receiver_eval_proc(last_thread, safe_level, thread, cmd, *args) if thread Thread.new{ last_thread.join if last_thread unless @interp.deleted? _receiver_eval_proc_core(safe_level, thread, cmd, *args) end } else Thread.new{ unless @interp.deleted? _receiver_eval_proc_core(safe_level, thread, cmd, *args) end } last_thread end end
_receiver_eval_proc_core(safe_level, thread, cmd, *args)
click to toggle source
# File lib/multi-tk.rb, line 395 def _receiver_eval_proc_core(safe_level, thread, cmd, *args) begin #ret = proc{$SAFE = safe_level; cmd.call(*args)}.call #ret = cmd.call(safe_level, *args) normal_ret = false ret = catch(:IRB_EXIT) do # IRB hack retval = cmd.call(safe_level, *args) normal_ret = true retval end unless normal_ret # catch IRB_EXIT exit(ret) end ret rescue SystemExit => e # delete IP unless @interp.deleted? @slave_ip_tbl.each{|name, subip| _destroy_slaves_of_slaveIP(subip) begin # subip._eval_without_enc("foreach i [after info] {after cancel $i}") after_ids = subip._eval_without_enc("after info") subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end begin subip._invoke('destroy', '.') unless subip.deleted? rescue Exception end # safe_base? if @interp._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0' begin @interp._eval_without_enc("::safe::interpDelete #{name}") rescue Exception else next if subip.deleted? end end if subip.respond_to?(:safe_base?) && subip.safe_base? && !subip.deleted? # do 'exit' to call the delete_hook procedure begin subip._eval_without_enc('exit') rescue Exception end else begin subip.delete unless subip.deleted? rescue Exception end end } begin # @interp._eval_without_enc("foreach i [after info] {after cancel $i}") after_ids = @interp._eval_without_enc("after info") @interp._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end begin @interp._invoke('destroy', '.') unless @interp.deleted? rescue Exception end if @safe_base && !@interp.deleted? # do 'exit' to call the delete_hook procedure @interp._eval_without_enc('exit') else @interp.delete unless @interp.deleted? end end if e.backtrace[0] =~ /^(.+?):(\d+):in `(exit|exit!|abort)'/ _check_and_return(thread, MultiTkIp_OK.new($3 == 'exit')) else _check_and_return(thread, MultiTkIp_OK.new(nil)) end # if master? && !safe? && allow_ruby_exit? if !@interp.deleted? && master? && !safe? && allow_ruby_exit? ObjectSpace.each_object(TclTkIp){|obj| obj.delete unless obj.deleted? } #exit(e.status) fail e end # break rescue SecurityError => e # in 'exit', 'exit!', and 'abort' : security error --> delete IP if e.backtrace[0] =~ /^(.+?):(\d+):in `(exit|exit!|abort)'/ ret = ($3 == 'exit') unless @interp.deleted? @slave_ip_tbl.each{|name, subip| _destroy_slaves_of_slaveIP(subip) begin # subip._eval_without_enc("foreach i [after info] {after cancel $i}") after_ids = subip._eval_without_enc("after info") subip._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end begin subip._invoke('destroy', '.') unless subip.deleted? rescue Exception end # safe_base? if @interp._eval_without_enc("catch {::safe::interpConfigure #{name}}") == '0' begin @interp._eval_without_enc("::safe::interpDelete #{name}") rescue Exception else next if subip.deleted? end end if subip.respond_to?(:safe_base?) && subip.safe_base? && !subip.deleted? # do 'exit' to call the delete_hook procedure begin subip._eval_without_enc('exit') rescue Exception end else begin subip.delete unless subip.deleted? rescue Exception end end } begin # @interp._eval_without_enc("foreach i [after info] {after cancel $i}") after_ids = @interp._eval_without_enc("after info") @interp._eval_without_enc("foreach i {#{after_ids}} {after cancel $i}") rescue Exception end begin @interp._invoke('destroy', '.') unless @interp.deleted? rescue Exception end if @safe_base && !@interp.deleted? # do 'exit' to call the delete_hook procedure @interp._eval_without_enc('exit') else @interp.delete unless @interp.deleted? end end _check_and_return(thread, MultiTkIp_OK.new(ret)) # break else # raise security error _check_and_return(thread, e) end rescue Exception => e # raise exception begin bt = _toUTF8(e.backtrace.join("\n")) if MultiTkIp::WITH_ENCODING bt.force_encoding('utf-8') else bt.instance_variable_set(:@encoding, 'utf-8') end rescue Exception bt = e.backtrace.join("\n") end begin @interp._set_global_var('errorInfo', bt) rescue Exception end _check_and_return(thread, e) else # no exception _check_and_return(thread, MultiTkIp_OK.new(ret)) end end
_slavearg(slave)
click to toggle source
# File lib/multi-tk.rb, line 3167 def _slavearg(slave) if slave.kind_of?(MultiTkIp) slave.path elsif slave.kind_of?(String) slave else slave.to_s end end
eval_proc_core(req_val, cmd, *args)
click to toggle source
instance method
# File lib/multi-tk.rb, line 2141 def eval_proc_core(req_val, cmd, *args) # check raise SecurityError, "no permission to manipulate" unless self.manipulable? unless cmd.kind_of?(Proc) || cmd.kind_of?(Method) raise RuntimeError, "A Proc/Method object is expected for the 'cmd' argument" end # on IP thread if @cmd_receiver == Thread.current || (!req_val && TclTkLib.mainloop_thread? != false) # callback begin ret = cmd.call(safe_level, *args) rescue SystemExit => e # exit IP warn("Warning: "+ e.inspect + " on " + self.inspect) if $DEBUG begin self._eval_without_enc('exit') rescue Exception => e end self.delete ret = nil rescue Exception => e if $DEBUG warn("Warning: " + e.class.inspect + ((e.message.length > 0)? ' "' + e.message + '"': '') + " on " + self.inspect) end begin bt = _toUTF8(e.backtrace.join("\n")) bt.instance_variable_set(:@encoding, 'utf-8') rescue Exception bt = e.backtrace.join("\n") end begin @interp._set_global_var('errorInfo', bt) rescue Exception end ret = e end return ret end # send cmd to the proc-queue unless req_val begin @cmd_queue.enq([nil, cmd, *args]) rescue Exception => e # ignore if $DEBUG warn("Warning: " + e.class.inspect + ((e.message.length > 0)? ' "' + e.message + '"': '') + " on " + self.inspect) end return e end return nil end # send and get return value by exception begin @cmd_queue.enq([Thread.current, cmd, *args]) Thread.stop rescue MultiTkIp_OK => ret # return value return ret.value rescue SystemExit => e # exit IP warn("Warning: " + e.inspect + " on " + self.inspect) if $DEBUG begin self._eval_without_enc('exit') rescue Exception end if !self.deleted? && !safe? && allow_ruby_exit? self.delete fail e else self.delete end rescue Exception => e if $DEBUG warn("Warning: " + e.class.inspect + ((e.message.length > 0)? ' "' + e.message + '"': '') + " on " + self.inspect) end return e end return nil end