Class | MultiTkIp |
In: |
tk/lib/remote-tk.rb
tk/lib/multi-tk.rb |
Parent: | Object |
remove methods for security
new | -> | __new |
new_master | -> | new |
new_slave | -> | new_trusted_slave |
new_safe_slave | -> | new_safeTk |
cmd | [R] | |
ip | [R] | |
ret | [RW] | |
target | [RW] |
# File tk/lib/remote-tk.rb, line 19 def self._DEFAULT_MASTER # work only once if @flag @flag = nil @@DEFAULT_MASTER else nil end end
# File tk/lib/multi-tk.rb, line 1096 def self.__getip current = Thread.current 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
# File tk/lib/multi-tk.rb, line 1753 def _fromUTF8(str, encoding=nil) __getip._fromUTF8(str, encoding) end
# File tk/lib/multi-tk.rb, line 1791 def _get_global_var2(var, idx) __getip._get_global_var2(var, idx) end
# File tk/lib/multi-tk.rb, line 1769 def _get_variable(var, flag) __getip._get_variable(var, flag) end
# File tk/lib/multi-tk.rb, line 1772 def _get_variable2(var, idx, flag) __getip._get_variable2(var, idx, flag) end
# File tk/lib/multi-tk.rb, line 1745 def _invoke_with_enc(*args) __getip._invoke_with_enc(*args) end
# File tk/lib/multi-tk.rb, line 1737 def _invoke_without_enc(*args) __getip._invoke_without_enc(*args) end
# File tk/lib/multi-tk.rb, line 1794 def _set_global_var(var, value) __getip._set_global_var(var, value) end
# File tk/lib/multi-tk.rb, line 1797 def _set_global_var2(var, idx, value) __getip._set_global_var2(var, idx, value) end
# File tk/lib/multi-tk.rb, line 1775 def _set_variable(var, value, flag) __getip._set_variable(var, value, flag) end
# File tk/lib/multi-tk.rb, line 1778 def _set_variable2(var, idx, value, flag) __getip._set_variable2(var, idx, value, flag) end
# File tk/lib/multi-tk.rb, line 1761 def _thread_tkwait(mode, target) __getip._thread_tkwait(mode, target) end
# File tk/lib/multi-tk.rb, line 1749 def _toUTF8(str, encoding=nil) __getip._toUTF8(str, encoding) end
# File tk/lib/multi-tk.rb, line 1803 def _unset_global_var2(var, idx) __getip._unset_global_var2(var, idx) end
# File tk/lib/multi-tk.rb, line 1781 def _unset_variable(var, flag) __getip._unset_variable(var, flag) end
# File tk/lib/multi-tk.rb, line 1784 def _unset_variable2(var, idx, flag) __getip._unset_variable2(var, idx, flag) end
# File tk/lib/multi-tk.rb, line 1365 def self.add_tk_procs(name, args=nil, body=nil) @@ADD_TK_PROCS << [name, args, body] @@IP_TABLE.each{|tg, ip| ip._add_tk_procs(name, args, body) } end
# File tk/lib/multi-tk.rb, line 2275 def self.alias_delete(slave, cmd_name) __getip.alias_delete(slave, cmd_name) self end
# File tk/lib/multi-tk.rb, line 2267 def self.alias_info(slave, cmd_name) __getip.alias_info(slave, cmd_name) end
# File tk/lib/multi-tk.rb, line 2486 def self.alias_target(aliascmd, slave = '') __getip.alias_target(aliascmd, slave) end
# File tk/lib/multi-tk.rb, line 650 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
# File tk/lib/multi-tk.rb, line 2434 def self.bgerror(cmd = Proc.new, slave = nil, &b) __getip.bgerror(cmd, slave, &b) end
# File tk/lib/multi-tk.rb, line 1340 def self.create_table #if __getip.slave? # raise SecurityError, "slave-IP has no permission creating a new table" #end id = @@TK_TABLE_LIST.size obj = Object.new @@TK_TABLE_LIST << obj obj.instance_eval "def self.method_missing(m, *args)\nMultiTkIp.tk_object_table(\#{id}).__send__(m, *args)\nend\n" obj.freeze @@IP_TABLE.each{|tg, ip| ip._add_new_tables } return obj end
# File tk/lib/multi-tk.rb, line 2285 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
# File tk/lib/multi-tk.rb, line 2320 def self.delete_cmd(slave, cmd) __getip.delete_cmd(slave, cmd) self end
# File tk/lib/multi-tk.rb, line 2302 def self.delete_slaves(*args) __getip.delete_slaves(*args) self end
# File tk/lib/multi-tk.rb, line 1625 def do_one_event(flag = TclTkLib::EventFlag::ALL) __getip.do_one_event(flag) end
class method
# File tk/lib/multi-tk.rb, line 1607 def eval_proc(*args, &blk) # class ==> interp object __getip.eval_proc(*args, &blk) end
# File tk/lib/multi-tk.rb, line 2333 def self.expose_cmd(slave, cmd, aliasname = nil) __getip.expose_cmd(slave, cmd, aliasname) self end
# File tk/lib/multi-tk.rb, line 1383 def self.get_cb_entry(cmd) @@CB_ENTRY_CLASS.new(__getip, cmd).freeze end
# File tk/lib/multi-tk.rb, line 2471 def self.get_limit(limit_type, slave = '', slot = nil) __getip.get_limit(limit_type, slave, slot) end
# File tk/lib/multi-tk.rb, line 2354 def self.hidden_cmds(slave = '') __getip.hidden_cmds(slave) end
# File tk/lib/multi-tk.rb, line 2346 def self.hide_cmd(slave, cmd, aliasname = nil) __getip.hide_cmd(slave, cmd, aliasname) self end
# File tk/lib/multi-tk.rb, line 675 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| begin unless m == '__id__' || m == '__send__' || m == '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
# File tk/lib/multi-tk.rb, line 1358 def self.init_ip_env(script = Proc.new) @@INIT_IP_ENV << script @@IP_TABLE.each{|tg, ip| ip._init_ip_env(script) } end
# File tk/lib/multi-tk.rb, line 1372 def self.init_ip_internal __getip._init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS) end
# File tk/lib/multi-tk.rb, line 2373 def self.invoke_hidden(slave, cmd, *args) __getip.invoke_hidden(slave, cmd, *args) end
# File tk/lib/multi-tk.rb, line 2393 def self.invoke_hidden_on_global(slave, cmd, *args) __getip.invoke_hidden_on_global(slave, cmd, *args) end
# File tk/lib/multi-tk.rb, line 2410 def self.invoke_hidden_on_namespace(slave, ns, cmd, *args) __getip.invoke_hidden_on_namespace(slave, ns, cmd, *args) end
# File tk/lib/multi-tk.rb, line 1619 def mainloop(check_root = true) __getip.mainloop(check_root) end
# File tk/lib/multi-tk.rb, line 1628 def mainloop_abort_on_exception # __getip.mainloop_abort_on_exception TclTkLib.mainloop_abort_on_exception end
# File tk/lib/multi-tk.rb, line 1632 def mainloop_abort_on_exception=(mode) # __getip.mainloop_abort_on_exception=(mode) TclTkLib.mainloop_abort_on_exception=(mode) end
# File tk/lib/multi-tk.rb, line 1622 def mainloop_watchdog(check_root = true) __getip.mainloop_watchdog(check_root) end
# File tk/lib/multi-tk.rb, line 2418 def self.mark_trusted(slave = '') __getip.mark_trusted(slave) self end
# File tk/lib/multi-tk.rb, line 614 def self.new(target, ret) obj = super() obj.target = target obj.ret = ret obj end
# File tk/lib/multi-tk.rb, line 938 def initialize(master, safeip=true, keys={}) if $SAFE >= 4 fail SecurityError, "cannot create a new interpreter at level #{$SAFE}" end if safeip == nil && $SAFE >= 2 fail SecurityError, "cannot create a master-ip at level #{$SAFE}" end if master.deleted? && safeip == nil fail RuntimeError, "cannot create a slave of a deleted interpreter" end if !master.deleted? && !master.master? && master.safe? fail SecurityError, "safe-slave-ip cannot create a new interpreter" end if safeip == nil && !master.master? fail SecurityError, "slave-ip cannot create a master-ip" end unless keys.kind_of? Hash fail ArgumentError, "expecting a Hash object for the 2nd argument" end @tk_windows = {} @tk_table_list = [] @slave_ip_tbl = {} @slave_ip_top = {} @cb_error_proc = [] @evloop_thread = [] @tk_windows.taint unless @tk_windows.tainted? @tk_table_list.taint unless @tk_table_list.tainted? @slave_ip_tbl.taint unless @slave_ip_tbl.tainted? @slave_ip_top.taint unless @slave_ip_top.tainted? @cb_error_proc.taint unless @cb_error_proc.tainted? @evloop_thread.taint unless @evloop_thread.tainted? name, safe, safe_opts, tk_opts = _parse_slaveopts(keys) safe = 4 if safe && !safe.kind_of?(Fixnum) @safe_base = false if safeip == nil # create master-ip @interp = TclTkIp.new(name, _keys2opts(tk_opts)) @ip_name = nil if safe safe = $SAFE if safe < $SAFE @safe_level = [safe] else @safe_level = [$SAFE] end else # create slave-ip if safeip || master.safe? @safe_base = true @interp, @ip_name = master.__create_safe_slave_obj(safe_opts, name, tk_opts) if safe safe = master.safe_level if safe < master.safe_level @safe_level = [safe] else @safe_level = [4] end else @interp, @ip_name = master.__create_trusted_slave_obj(name, tk_opts) if safe safe = master.safe_level if safe < master.safe_level @safe_level = [safe] else @safe_level = [master.safe_level] end end @set_alias_proc = proc{|name| master._invoke('interp', 'alias', @ip_name, name, '', name) }.freeze end @system = Object.new @wait_on_mainloop = [true, 0].taint # @wait_on_mainloop = [false, 0].taint @threadgroup = ThreadGroup.new @cmd_queue = Queue.new ?? @@DEFAULT_MASTER.assign_receiver_and_watchdog(self) @@IP_TABLE[@threadgroup] = self _init_ip_internal(@@INIT_IP_ENV, @@ADD_TK_PROCS) @@TK_TABLE_LIST.size.times{ (tbl = {}).tainted? || tbl.taint @tk_table_list << tbl } class << self undef :instance_eval end # dummy call for initialization self.eval_proc{ Tk.tk_call('set', 'tcl_patchLevel') } self.freeze # defend against modification end
# File tk/lib/multi-tk.rb, line 1121 def new_master(safe=nil, keys={}) 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)} end ip end
# File tk/lib/multi-tk.rb, line 1168 def new_safe_slave(safe=4, keys={}) 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)} end ip end
# File tk/lib/multi-tk.rb, line 1145 def new_slave(safe=nil, keys={}) 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)} end ip end
# File tk/lib/multi-tk.rb, line 2479 def self.recursion_limit(slave = '', limit = None) __getip.recursion_limit(slave) end
# File tk/lib/multi-tk.rb, line 1714 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
# File tk/lib/multi-tk.rb, line 1636 def set_eventloop_tick(tick) __getip.set_eventloop_tick(tick) end
# File tk/lib/multi-tk.rb, line 1648 def set_eventloop_weight(loop_max, no_event_tick) __getip.set_eventloop_weight(loop_max, no_event_tick) end
# File tk/lib/multi-tk.rb, line 2448 def self.set_limit(limit_type, slave = '', opts = {}) __getip.set_limit(limit_type, slave, opts) end
# File tk/lib/multi-tk.rb, line 1642 def set_no_event_wait(tick) __getip.set_no_event_wait(tick) end
# File tk/lib/multi-tk.rb, line 2512 def self.share_stderr(dist, src = '') __getip.share_stderr(dist, src) self end
# File tk/lib/multi-tk.rb, line 2494 def self.share_stdin(dist, src = '') __getip.share_stdin(dist, src) self end
# File tk/lib/multi-tk.rb, line 2550 def self.share_stdio(dist, src = '') __getip.share_stdio(dist, src) self end
# File tk/lib/multi-tk.rb, line 2503 def self.share_stdout(dist, src = '') __getip.share_stdout(dist, src) self end
# File tk/lib/multi-tk.rb, line 2539 def self.transfer_stderr(dist, src = '') __getip.transfer_stderr(dist, src) self end
# File tk/lib/multi-tk.rb, line 2521 def self.transfer_stdin(dist, src = '') __getip.transfer_stdin(dist, src) self end
# File tk/lib/multi-tk.rb, line 2561 def self.transfer_stdio(dist, src = '') __getip.transfer_stdio(dist, src) self end
# File tk/lib/multi-tk.rb, line 2530 def self.transfer_stdout(dist, src = '') __getip.transfer_stdout(dist, src) self end
# File tk/lib/multi-tk.rb, line 878 def __create_safe_slave_obj(safe_opts, app_name, tk_opts) # safe interpreter ip_name = _create_slave_ip_name slave_ip = @interp.create_slave(ip_name, true) @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)}") 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
# File tk/lib/multi-tk.rb, line 919 def __create_trusted_slave_obj__create_trusted_slave_obj(name, keys) ip_name = _create_slave_ip_name slave_ip = @interp.create_slave(ip_name, false) slave_ip._invoke('set', 'argv0', name) if name.kind_of?(String) slave_ip._invoke('set', 'argv', _keys2opts(keys)) @interp._invoke('load', '', 'Tk', ip_name) @slave_ip_tbl[ip_name] = slave_ip [slave_ip, ip_name] end
# File tk/lib/multi-tk.rb, line 1297 def _add_new_tables (@@TK_TABLE_LIST.size - @tk_table_list.size).times{ (tbl = {}).tainted? || tbl.taint @tk_table_list << tbl } end
# File tk/lib/multi-tk.rb, line 1308 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
# File tk/lib/multi-tk.rb, line 931 def _create_slave_object(keys={}) ip = MultiTkIp.new_slave(self, keys={}) @slave_ip_tbl[ip.name] = ip end
# File tk/lib/multi-tk.rb, line 1058 def _default_delete_hook(slave) @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("Waring: fail to call '::safe::disallowTk'") if $DEBUG end else # toplevel path begin @interp._eval("::safe::tkDelete {} #{top} #{slave}") rescue warn("Waring: fail to call '::safe::tkDelete'") if $DEBUG begin @interp._eval("destroy #{top}") rescue warn("Waring: fail to destroy toplevel") if $DEBUG end end end end end
# File tk/lib/multi-tk.rb, line 227 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 ?? unless ip.deleted? if ip._invoke('interp', 'exists', name) == '1' begin ip._invoke('interp', 'delete', name) rescue Exception end end end } end end
# File tk/lib/multi-tk.rb, line 2154 def _fromUTF8(str, encoding=nil) @interp._fromUTF8(str, encoding) end
# File tk/lib/multi-tk.rb, line 2192 def _get_global_var2(var, idx) @interp._get_global_var2(var, idx) end
# File tk/lib/multi-tk.rb, line 2170 def _get_variable(var, flag) @interp._get_variable(var, flag) end
# File tk/lib/multi-tk.rb, line 2173 def _get_variable2(var, idx, flag) @interp._get_variable2(var, idx, flag) end
# File tk/lib/multi-tk.rb, line 1316 def _init_ip_internal(init_ip_env, add_tk_procs) init_ip_env.each{|script| script.call(self)} 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
# File tk/lib/multi-tk.rb, line 2146 def _invoke_with_enc(*args) @interp._invoke_with_enc(*args) end
# File tk/lib/multi-tk.rb, line 2138 def _invoke_without_enc(*args) @interp._invoke_without_enc(*args) end
# File tk/lib/multi-tk.rb, line 473 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
# File tk/lib/multi-tk.rb, line 2195 def _set_global_var(var, value) @interp._set_global_var(var, value) end
# File tk/lib/multi-tk.rb, line 2198 def _set_global_var2(var, idx, value) @interp._set_global_var2(var, idx, value) end
# File tk/lib/multi-tk.rb, line 2176 def _set_variable(var, value, flag) @interp._set_variable(var, value, flag) end
# File tk/lib/multi-tk.rb, line 2179 def _set_variable2(var, idx, value, flag) @interp._set_variable2(var, idx, value, flag) end
# File tk/lib/multi-tk.rb, line 2162 def _thread_tkwait(mode, target) @interp._thread_tkwait(mode, target) end
# File tk/lib/multi-tk.rb, line 1283 def _tk_cmd_tbl tbl = {} MultiTkIp.tk_cmd_tbl.each{|id, ent| tbl[id] = ent if ent.ip == self } tbl end
# File tk/lib/multi-tk.rb, line 2150 def _toUTF8(str, encoding=nil) @interp._toUTF8(str, encoding) end
# File tk/lib/multi-tk.rb, line 2204 def _unset_global_var2(var, idx) @interp._unset_global_var2(var, idx) end
# File tk/lib/multi-tk.rb, line 2182 def _unset_variable(var, flag) @interp._unset_variable(var, flag) end
# File tk/lib/multi-tk.rb, line 2185 def _unset_variable2(var, idx, flag) @interp._unset_variable2(var, idx, flag) end
# File tk/lib/multi-tk.rb, line 2075 def abort(msg = nil) if master? if msg Kernel.abort(msg) else Kernel.abort end else # ignore msg delete 1 end end
# File tk/lib/multi-tk.rb, line 2271 def alias_delete(slave, cmd_name) @interp._invoke('interp', 'alias', _slavearg(slave), cmd_name, '') self end
# File tk/lib/multi-tk.rb, line 2264 def alias_info(slave, cmd_name) _lst2ary(@interp._invoke('interp', 'alias', _slavearg(slave), cmd_name)) end
# File tk/lib/multi-tk.rb, line 2483 def alias_target(aliascmd, slave = '') @interp._invoke('interp', 'target', _slavearg(slave), aliascmd) end
# File tk/lib/multi-tk.rb, line 2290 def aliases(slave = '') _lst2ary(@interp._invoke('interp', 'aliases', _slavearg(slave))) end
# File tk/lib/multi-tk.rb, line 1231 def alive? 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
# File tk/lib/multi-tk.rb, line 1548 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) ?? } end
# File tk/lib/multi-tk.rb, line 1587 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
# File tk/lib/multi-tk.rb, line 80 def call(*args) unless @ip.deleted? current = Thread.current backup_ip = current['callback_ip'] current['callback_ip'] = @ip begin @ip.cb_eval(@cmd, *args) 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 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
# File tk/lib/multi-tk.rb, line 185 def cb_error(e) if @cb_error_proc[0].respond_to?(:call) @cb_error_proc[0].call(e) end end
# File tk/lib/multi-tk.rb, line 1387 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 tk/lib/multi-tk.rb, line 2280 def def_alias(slave, new_cmd, org_cmd, *args) ret = @interp._invoke('interp', 'alias', _slavearg(slave), new_cmd, '', org_cmd, *args) (ret == new_cmd)? self: nil end
# File tk/lib/multi-tk.rb, line 2001 def delete @slave_ip_tbl.each{|name, subip| _destroy_slaves_of_slaveIP(subip) ?? 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
# File tk/lib/multi-tk.rb, line 2315 def delete_cmd(slave, cmd) slave_invoke = @interp._invoke('list', 'rename', cmd, '') @interp._invoke('interp', 'eval', _slavearg(slave), slave_invoke) self end
# File tk/lib/multi-tk.rb, line 2297 def delete_slaves(*args) slaves = args.collect{|s| _slavearg(s)} @interp._invoke('interp', 'delete', *slaves) if slaves.size > 0 self end
# File tk/lib/multi-tk.rb, line 2646 def encoding_convertfrom(str, enc=None) @interp.encoding_convertfrom(str, enc) end
# File tk/lib/multi-tk.rb, line 2651 def encoding_convertto(str, enc=None) @interp.encoding_convertto(str, enc) end
# File tk/lib/multi-tk.rb, line 1496 def eval_callback(*args) if block_given? cmd = Proc.new else cmd = args.shift end 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 end
# File tk/lib/multi-tk.rb, line 1512 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 tk/lib/multi-tk.rb, line 1573 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
# File tk/lib/multi-tk.rb, line 2307 def exist?(slave = '') ret = @interp._invoke('interp', 'exists', _slavearg(slave)) (ret == '1')? true: false end
# File tk/lib/multi-tk.rb, line 2089 def exit(st = true) if master? Kernel.exit(st) else delete st end end
# File tk/lib/multi-tk.rb, line 2098 def exit!(st = false) if master? && !safe? && allow_ruby_exit? Kernel.exit!(st) else delete st end end
# File tk/lib/multi-tk.rb, line 2325 def expose_cmd(slave, cmd, aliasname = nil) if aliasname @interp._invoke('interp', 'expose', _slavearg(slave), cmd, aliasname) else @interp._invoke('interp', 'expose', _slavearg(slave), cmd) end self end
# File tk/lib/multi-tk.rb, line 2438 def get_bgerror_handler(slave = '') procedure(@interp._invoke('interp', 'bgerror', _slavearg(slave))) end
# File tk/lib/multi-tk.rb, line 2452 def get_limit(limit_type, slave = '', slot = nil) 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
# File tk/lib/multi-tk.rb, line 2351 def hidden_cmds(slave = '') _lst2ary(@interp._invoke('interp', 'hidden', _slavearg(slave))) end
# File tk/lib/multi-tk.rb, line 2338 def hide_cmd(slave, cmd, aliasname = nil) if aliasname @interp._invoke('interp', 'hide', _slavearg(slave), cmd, aliasname) else @interp._invoke('interp', 'hide', _slavearg(slave), cmd) end self end
# File tk/lib/multi-tk.rb, line 1193 def inspect s = self.to_s.chop! if master? if @interp.deleted? s << ':deleted-master' else s << ':master' end else if @interp.deleted? s << ':deleted-slave' elsif @interp.safe? s << ':safe-slave' else s << ':trusted-slave' end end s << '>' end
# File tk/lib/multi-tk.rb, line 2358 def invoke_hidden(slave, cmd, *args) if args[-1].kind_of?(Hash) keys = _symbolkey2str(args.pop) else keys = [] end keys << _slavearg(slave) if Tk::TCL_MAJOR_VERSION > 8 || (Tk::TCL_MAJOR_VERSION == 8 && Tk::TCL_MINOR_VERSION >= 5) keys << '--' end keys << cmd keys.concat(args) @interp._invoke('interp', 'invokehidden', *keys) end
# File tk/lib/multi-tk.rb, line 2377 def invoke_hidden_on_global(slave, cmd, *args) if args[-1].kind_of?(Hash) keys = _symbolkey2str(args.pop) else keys = [] end keys << _slavearg(slave) keys << '-global' if Tk::TCL_MAJOR_VERSION > 8 || (Tk::TCL_MAJOR_VERSION == 8 && Tk::TCL_MINOR_VERSION >= 5) keys << '--' end keys << cmd keys.concat(args) @interp._invoke('interp', 'invokehidden', *keys) end
# File tk/lib/multi-tk.rb, line 2397 def invoke_hidden_on_namespace(slave, ns, cmd, *args) # for Tcl8.5 or later if args[-1].kind_of?(Hash) keys = _symbolkey2str(args.pop) else keys = [] end keys << _slavearg(slave) keys << '-namespace' << TkComm._get_eval_string(ns) keys << '--' << cmd keys.concat(args) @interp._invoke('interp', 'invokehidden', *keys) end
# File tk/lib/multi-tk.rb, line 1873 def mainloop(check_root = true, restart_on_dead = true) #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 if $SAFE >= 4 _receiver_mainloop(check_root).join else @cmd_queue.enq([@system, 'call_mainloop', Thread.current, check_root]) Thread.stop end 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: " + $! + " 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) 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 ?? raise e ensure @wait_on_mainloop[1] -= 1 Thread.pass # avoid eventloop conflict end end end self end
# File tk/lib/multi-tk.rb, line 2414 def mark_trusted(slave = '') @interp._invoke('interp', 'marktrusted', _slavearg(slave)) self end
# File tk/lib/multi-tk.rb, line 2475 def recursion_limit(slave = '', limit = None) number(@interp._invoke('interp', 'recursionlimit', _slavearg(slave), limit)) end
# File tk/lib/multi-tk.rb, line 2107 def restart(app_name = nil, keys = {}) _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
# File tk/lib/multi-tk.rb, line 2620 def safeip_add_to_access_path(dir) ip = MultiTkIp.__getip ip._eval("::safe::interpAddToAccessPath #{@ip_name} #{dir}") end
# File tk/lib/multi-tk.rb, line 2583 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] 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] else ret[k[1..-1]] = v end else ret[k[1..-1]] = v end } end ret end
# File tk/lib/multi-tk.rb, line 2570 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
# File tk/lib/multi-tk.rb, line 2615 def safeip_delete ip = MultiTkIp.__getip ip._eval("::safe::interpDelete " + @ip_name) end
# File tk/lib/multi-tk.rb, line 2625 def safeip_find_in_access_path(dir) ip = MultiTkIp.__getip ip._eval("::safe::interpFindInAccessPath #{@ip_name} #{dir}") end
# File tk/lib/multi-tk.rb, line 2630 def safeip_set_log_cmd(cmd = Proc.new) ip = MultiTkIp.__getip ip._eval("::safe::setLogCmd #{@ip_name} #{_get_eval_string(cmd)}") end
# File tk/lib/multi-tk.rb, line 2423 def set_bgerror_handler(cmd = Proc.new, slave = nil, &b) 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
# File tk/lib/multi-tk.rb, line 2445 def set_limit(limit_type, slave = '', opts = {}) @interp._invoke('interp', 'limit', _slavearg(slave), limit_type, opts) end
# File tk/lib/multi-tk.rb, line 193 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
# File tk/lib/multi-tk.rb, line 2508 def share_stderr(dist, src = '') @interp._invoke('interp', 'share', src, 'stderr', dist) self end
# File tk/lib/multi-tk.rb, line 2490 def share_stdin(dist, src = '') @interp._invoke('interp', 'share', src, 'stdin', dist) self end
# File tk/lib/multi-tk.rb, line 2544 def share_stdio(dist, src = '') @interp._invoke('interp', 'share', src, 'stdin', dist) @interp._invoke('interp', 'share', src, 'stdout', dist) @interp._invoke('interp', 'share', src, 'stderr', dist) self end
# File tk/lib/multi-tk.rb, line 2499 def share_stdout(dist, src = '') @interp._invoke('interp', 'share', src, 'stdout', dist) self end
# File tk/lib/multi-tk.rb, line 1264 def slaves(all = false) @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
# File tk/lib/multi-tk.rb, line 2535 def transfer_stderr(dist, src = '') @interp._invoke('interp', 'transfer', src, 'stderr', dist) self end
# File tk/lib/multi-tk.rb, line 2517 def transfer_stdin(dist, src = '') @interp._invoke('interp', 'transfer', src, 'stdin', dist) self end
# File tk/lib/multi-tk.rb, line 2555 def transfer_stdio(dist, src = '') @interp._invoke('interp', 'transfer', src, 'stdin', dist) @interp._invoke('interp', 'transfer', src, 'stdout', dist) @interp._invoke('interp', 'transfer', src, 'stderr', dist) self end
# File tk/lib/multi-tk.rb, line 2526 def transfer_stdout(dist, src = '') @interp._invoke('interp', 'transfer', src, 'stdout', dist) self end