# class RemoteTkIp

### Public Class Methods

do_one_event(flag = nil) click to toggle source

    # File lib/remote-tk.rb, line 500
    def do_one_event(flag = nil)
      fail RuntimeError, 'not support "do_one_event" on the remote interpreter'
    end

get_eventloop_tick() click to toggle source

    # File lib/remote-tk.rb, line 512
    def get_eventloop_tick
      fail RuntimeError, 'not support "get_eventloop_tick" on the remote interpreter'
    end

get_eventloop_weight() click to toggle source

    # File lib/remote-tk.rb, line 524
    def get_eventloop_weight
      fail RuntimeError, 'not support "get_eventloop_weight" on the remote interpreter'
    end

get_no_event_wait() click to toggle source

    # File lib/remote-tk.rb, line 518
    def get_no_event_wait
      fail RuntimeError, 'not support "get_no_event_wait" on the remote interpreter'
    end

mainloop(*args) click to toggle source

    # File lib/remote-tk.rb, line 494
    def mainloop(*args)
      fail RuntimeError, 'not support "mainloop" on the remote interpreter'
    end

mainloop_abort_on_exception() click to toggle source

    # File lib/remote-tk.rb, line 503
    def mainloop_abort_on_exception
      fail RuntimeError, 'not support "mainloop_abort_on_exception" on the remote interpreter'
    end

mainloop_abort_on_exception=(mode) click to toggle source

    # File lib/remote-tk.rb, line 506
    def mainloop_abort_on_exception=(mode)
      fail RuntimeError, 'not support "mainloop_abort_on_exception=" on the remote interpreter'
    end

mainloop_watchdog(*args) click to toggle source

    # File lib/remote-tk.rb, line 497
    def mainloop_watchdog(*args)
      fail RuntimeError, 'not support "mainloop_watchdog" on the remote interpreter'
    end

manipulable?() click to toggle source

    # File lib/remote-tk.rb, line 142
    def self.manipulable?
      true
    end

new(*args, &b) click to toggle source

    # File lib/remote-tk.rb, line 58
    def new(*args, &b)
      ip = __new(*args)
      ip.eval_proc(&b) if b
      ip
    end

new(remote_ip, displayof=nil, timeout=5) click to toggle source

    # File lib/remote-tk.rb, line 66
      def initialize(remote_ip, displayof=nil, timeout=5)
        @interp = MultiTkIp.__getip
        if @interp.safe?
          fail SecurityError, "safe-IP cannot create RemoteTkIp"
        end

        @interp.allow_ruby_exit = false
        @appname = @interp._invoke('tk', 'appname')
        @remote = remote_ip.to_s.dup.freeze
        if displayof.kind_of?(TkWindow)
          @displayof = displayof.path.dup.freeze
        else
          @displayof = nil
        end
        if self.deleted?
          fail RuntimeError, "no Tk application named \"#{@remote}\""
        end

        @tk_windows = {}
        @tk_table_list = []
        @slave_ip_tbl = {}
        @slave_ip_top = {}

        @force_default_encoding ||= TkUtil.untrust([false])
        @encoding ||= TkUtil.untrust([nil])
        def @encoding.to_s; self.join(nil); end

        TkUtil.untrust(@tk_windows)    unless @tk_windows.tainted?
        TkUtil.untrust(@tk_table_list) unless @tk_table_list.tainted?
        TkUtil.untrust(@slave_ip_tbl)  unless @slave_ip_tbl.tainted?
        TkUtil.untrust(@slave_ip_top)  unless @slave_ip_top.tainted?

        @system = Object.new

        @threadgroup  = ThreadGroup.new

        @safe_level = [$SAFE]

        @wait_on_mainloop = [true, 0]

        @cmd_queue = Queue.new

    =begin
        @cmd_receiver, @receiver_watchdog = _create_receiver_and_watchdog()

        @threadgroup.add @cmd_receiver
        @threadgroup.add @receiver_watchdog

        @threadgroup.enclose
    =end
        @@DEFAULT_MASTER.assign_receiver_and_watchdog(self)

        @@IP_TABLE[@threadgroup] = self
        @@TK_TABLE_LIST.size.times{
          (tbl = {}).tainted? || TkUtil.untrust(tbl)
          @tk_table_list << tbl
        }

        @ret_val = TkVariable.new
        if timeout > 0 && ! _available_check(timeout)
          fail RuntimeError, "cannot create connection"
        end
        @ip_id = _create_connection

        class << self
          undef :instance_eval
        end

        self.freeze  # defend against modification
      end

set_eventloop_tick(*args) click to toggle source

    # File lib/remote-tk.rb, line 509
    def set_eventloop_tick(*args)
      fail RuntimeError, 'not support "set_eventloop_tick" on the remote interpreter'
    end

set_eventloop_weight(*args) click to toggle source

    # File lib/remote-tk.rb, line 521
    def set_eventloop_weight(*args)
      fail RuntimeError, 'not support "set_eventloop_weight" on the remote interpreter'
    end

set_no_event_wait(*args) click to toggle source

    # File lib/remote-tk.rb, line 515
    def set_no_event_wait(*args)
      fail RuntimeError, 'not support "set_no_event_wait" on the remote interpreter'
    end

### Public Instance Methods

__eval(str) click to toggle source

    # File lib/remote-tk.rb, line 338
    def __eval(str)
      _appsend(false, false, str)
    end

__invoke(*args) click to toggle source

    # File lib/remote-tk.rb, line 355
    def __invoke(*args)
      _appsend(false, false, *args)
    end

_conv_listelement(str) click to toggle source

    # File lib/remote-tk.rb, line 449
    def _conv_listelement(str)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._conv_listelement(str)
    end

_create_console() click to toggle source

    # File lib/remote-tk.rb, line 454
    def _create_console
      fail RuntimeError, 'not support "_create_console" on the remote interpreter'
    end

_eval(str) click to toggle source

    # File lib/remote-tk.rb, line 341
    def _eval(str)
      _appsend(nil, false, str)
    end

_eval_with_enc(str) click to toggle source

    # File lib/remote-tk.rb, line 347
    def _eval_with_enc(str)
      _appsend(true, false, str)
    end

_eval_without_enc(str) click to toggle source

    # File lib/remote-tk.rb, line 344
    def _eval_without_enc(str)
      _appsend(false, false, str)
    end

_fromUTF8(str, encoding=nil) click to toggle source

    # File lib/remote-tk.rb, line 373
    def _fromUTF8(str, encoding=nil)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._fromUTF8(str, encoding)
    end

_get_global_var(var_name) click to toggle source

    # File lib/remote-tk.rb, line 418
    def _get_global_var(var_name)
      _appsend(false, 'set', TkComm::_get_eval_string(var_name))
    end

_get_global_var2(var_name, index_name) click to toggle source

    # File lib/remote-tk.rb, line 421
    def _get_global_var2(var_name, index_name)
      _appsend(false, 'set', "#{TkComm::_get_eval_string(var_name)}(#{TkComm::_get_eval_string(index_name)})")
    end

_get_variable(var_name, flag) click to toggle source

    # File lib/remote-tk.rb, line 391
    def _get_variable(var_name, flag)
      # ignore flag
      _appsend(false, 'set', TkComm::_get_eval_string(var_name))
    end

_get_variable2(var_name, index_name, flag) click to toggle source

    # File lib/remote-tk.rb, line 395
    def _get_variable2(var_name, index_name, flag)
      # ignore flag
      _appsend(false, 'set', "#{TkComm::_get_eval_string(var_name)}(#{TkComm::_get_eval_string(index_name)})")
    end

_invoke(*args) click to toggle source

    # File lib/remote-tk.rb, line 351
    def _invoke(*args)
      _appsend(nil, false, *args)
    end

_invoke_with_enc(*args) click to toggle source

    # File lib/remote-tk.rb, line 364
    def _invoke_with_enc(*args)
      _appsend(true, false, *args)
    end

_invoke_without_enc(*args) click to toggle source

    # File lib/remote-tk.rb, line 361
    def _invoke_without_enc(*args)
      _appsend(false, false, *args)
    end

_ip_id_() click to toggle source

    # File lib/remote-tk.rb, line 151
    def _ip_id_
      @ip_id
    end

_merge_tklist(*args) click to toggle source

    # File lib/remote-tk.rb, line 444
    def _merge_tklist(*args)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._merge_tklist(*args)
    end

_return_value() click to toggle source

    # File lib/remote-tk.rb, line 386
    def _return_value
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._return_value
    end

_set_global_var(var_name, value) click to toggle source

    # File lib/remote-tk.rb, line 425
    def _set_global_var(var_name, value)
      _appsend(false, 'set', TkComm::_get_eval_string(var_name), TkComm::_get_eval_string(value))
    end

_set_global_var2(var_name, index_name, value) click to toggle source

    # File lib/remote-tk.rb, line 428
    def _set_global_var2(var_name, index_name, value)
      _appsend(false, 'set', "#{TkComm::_get_eval_string(var_name)}(#{TkComm::_get_eval_string(index_name)})", TkComm::_get_eval_string(value))
    end

_set_variable(var_name, value, flag) click to toggle source

    # File lib/remote-tk.rb, line 400
    def _set_variable(var_name, value, flag)
      # ignore flag
      _appsend(false, 'set', TkComm::_get_eval_string(var_name), TkComm::_get_eval_string(value))
    end

_set_variable2(var_name, index_name, value, flag) click to toggle source

    # File lib/remote-tk.rb, line 404
    def _set_variable2(var_name, index_name, value, flag)
      # ignore flag
      _appsend(false, 'set', "#{TkComm::_get_eval_string(var_name)}(#{TkComm::_get_eval_string(index_name)})", TkComm::_get_eval_string(value))
    end

_split_tklist(str) click to toggle source

    # File lib/remote-tk.rb, line 439
    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/remote-tk.rb, line 382
    def _thread_tkwait(mode, target)
      _appsend(false, 'thread_tkwait', mode, target)
    end

_thread_vwait(var_name) click to toggle source

    # File lib/remote-tk.rb, line 378
    def _thread_vwait(var_name)
      _appsend(false, 'thread_vwait', var_name)
    end

_toUTF8(str, encoding=nil) click to toggle source

    # File lib/remote-tk.rb, line 368
    def _toUTF8(str, encoding=nil)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?
      @interp._toUTF8(str, encoding)
    end

_unset_global_var(var_name) click to toggle source

    # File lib/remote-tk.rb, line 432
    def _unset_global_var(var_name)
      _appsend(false, 'unset', TkComm::_get_eval_string(var_name))
    end

_unset_global_var2(var_name, index_name) click to toggle source

    # File lib/remote-tk.rb, line 435
    def _unset_global_var2(var_name, index_name)
      _appsend(false, 'unset', "#{var_name}(#{index_name})")
    end

_unset_variable(var_name, flag) click to toggle source

    # File lib/remote-tk.rb, line 409
    def _unset_variable(var_name, flag)
      # ignore flag
      _appsend(false, 'unset', TkComm::_get_eval_string(var_name))
    end

_unset_variable2(var_name, index_name, flag) click to toggle source

    # File lib/remote-tk.rb, line 413
    def _unset_variable2(var_name, index_name, flag)
      # ignore flag
      _appsend(false, 'unset', "#{var_name}(#{index_name})")
    end

allow_ruby_exit=(mode) click to toggle source

    # File lib/remote-tk.rb, line 290
    def allow_ruby_exit= (mode)
      fail RuntimeError, 'cannot change mode of the remote interpreter'
    end

allow_ruby_exit?() click to toggle source

    # File lib/remote-tk.rb, line 286
    def allow_ruby_exit?
      false
    end

appsend(async, *args) click to toggle source

    # File lib/remote-tk.rb, line 237
    def appsend(async, *args)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?

      if async != true && async != false && async != nil
        args.unshift(async)
        async = false
      end
      if @displayof
        Tk.appsend_displayof(@remote, @displayof, async, *args)
      else
        Tk.appsend(@remote, async, *args)
      end
    end

create_slave(name, safe=false) click to toggle source

    # File lib/remote-tk.rb, line 265
    def create_slave(name, safe=false)
      if safe
        safe_opt = ''
      else
        safe_opt = '-safe'
      end
      _appsend(false, false, "interp create #{safe_opt} -- #{name}")
    end

delete() click to toggle source

    # File lib/remote-tk.rb, line 294
    def delete
      _appsend(false, true, 'exit')
    end

deleted?() click to toggle source

    # File lib/remote-tk.rb, line 298
    def deleted?
      raise SecurityError, "no permission to manipulate" unless self.manipulable?

      if @displayof
        lst = @interp._invoke_without_enc('winfo', 'interps',
                                          '-displayof', @displayof)
      else
        lst = @interp._invoke_without_enc('winfo', 'interps')
      end
      # unless @interp._split_tklist(lst).index(@remote)
      unless @interp._split_tklist(lst).index(_toUTF8(@remote))
        true
      else
        false
      end
    end

do_one_event(flag = nil) click to toggle source

    # File lib/remote-tk.rb, line 464
    def do_one_event(flag = nil)
      fail RuntimeError, 'not support "do_one_event" on the remote interpreter'
    end

get_eventloop_tick() click to toggle source

    # File lib/remote-tk.rb, line 476
    def get_eventloop_tick
      fail RuntimeError, 'not support "get_eventloop_tick" on the remote interpreter'
    end

get_eventloop_weight() click to toggle source

    # File lib/remote-tk.rb, line 488
    def get_eventloop_weight
      fail RuntimeError, 'not support "get_eventloop_weight" on the remote interpreter'
    end

get_no_event_wait() click to toggle source

    # File lib/remote-tk.rb, line 482
    def get_no_event_wait
      fail RuntimeError, 'not support "get_no_event_wait" on the remote interpreter'
    end

has_mainwindow?() click to toggle source

    # File lib/remote-tk.rb, line 315
    def has_mainwindow?
      raise SecurityError, "no permission to manipulate" unless self.manipulable?

      begin
        inf = @interp._invoke_without_enc('info', 'command', '.')
      rescue Exception
        return nil
      end
      if !inf.kind_of?(String) || inf != '.'
        false
      else
        true
      end
    end

invalid_namespace?() click to toggle source

    # File lib/remote-tk.rb, line 330
    def invalid_namespace?
      false
    end

is_rubytk?() click to toggle source

    # File lib/remote-tk.rb, line 231
    def is_rubytk?
      return false if _appsend(false, false, 'info', 'command', 'ruby') == ""
      [ _appsend(false, false, 'ruby', 'RUBY_VERSION'),
        _appsend(false, false, 'set', 'tk_patchLevel') ]
    end

mainloop() click to toggle source

    # File lib/remote-tk.rb, line 458
    def mainloop
      fail RuntimeError, 'not support "mainloop" on the remote interpreter'
    end

mainloop_abort_on_exception() click to toggle source

    # File lib/remote-tk.rb, line 467
    def mainloop_abort_on_exception
      fail RuntimeError, 'not support "mainloop_abort_on_exception" on the remote interpreter'
    end

mainloop_abort_on_exception=(mode) click to toggle source

    # File lib/remote-tk.rb, line 470
    def mainloop_abort_on_exception=(mode)
      fail RuntimeError, 'not support "mainloop_abort_on_exception=" on the remote interpreter'
    end

mainloop_watchdog() click to toggle source

    # File lib/remote-tk.rb, line 461
    def mainloop_watchdog
      fail RuntimeError, 'not support "mainloop_watchdog" on the remote interpreter'
    end

make_safe() click to toggle source

    # File lib/remote-tk.rb, line 274
    def make_safe
      fail RuntimeError, 'cannot change safe mode of the remote interpreter'
    end

manipulable?() click to toggle source

    # File lib/remote-tk.rb, line 138
    def manipulable?
      return true if (Thread.current.group == ThreadGroup::Default)
      MultiTkIp.__getip == @interp && ! @interp.safe?
    end

rb_appsend(async, *args) click to toggle source

    # File lib/remote-tk.rb, line 251
    def rb_appsend(async, *args)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?

      if async != true && async != false && async != nil
        args.unshift(async)
        async = false
      end
      if @displayof
        Tk.rb_appsend_displayof(@remote, @displayof, async, *args)
      else
        Tk.rb_appsend(@remote, async, *args)
      end
    end

ready?(timeout=5) click to toggle source

    # File lib/remote-tk.rb, line 224
    def ready?(timeout=5)
      if timeout < 0
        fail ArgumentError, "timeout must be positive number"
      end
      _available_check(timeout)
    end

restart() click to toggle source

    # File lib/remote-tk.rb, line 334
    def restart
      fail RuntimeError, 'cannot restart the remote interpreter'
    end

safe?() click to toggle source

    # File lib/remote-tk.rb, line 278
    def safe?
      _appsend(false, false, 'interp issafe')
    end

safe_base?() click to toggle source

    # File lib/remote-tk.rb, line 282
    def safe_base?
      false
    end

set_eventloop_tick(*args) click to toggle source

    # File lib/remote-tk.rb, line 473
    def set_eventloop_tick(*args)
      fail RuntimeError, 'not support "set_eventloop_tick" on the remote interpreter'
    end

set_eventloop_weight(*args) click to toggle source

    # File lib/remote-tk.rb, line 485
    def set_eventloop_weight(*args)
      fail RuntimeError, 'not support "set_eventloop_weight" on the remote interpreter'
    end

set_no_event_wait(*args) click to toggle source

    # File lib/remote-tk.rb, line 479
    def set_no_event_wait(*args)
      fail RuntimeError, 'not support "set_no_event_wait" on the remote interpreter'
    end

### Protected Instance Methods

_is_master_of?(tcltkip_obj) click to toggle source

    # File lib/remote-tk.rb, line 146
    def _is_master_of?(tcltkip_obj)
      tcltkip_obj == @interp
    end

### Private Instance Methods

_appsend(enc_mode, async, *cmds) click to toggle source

    # File lib/remote-tk.rb, line 197
    def _appsend(enc_mode, async, *cmds)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?

      p ['_appsend', [@remote, @displayof], enc_mode, async, cmds] if $DEBUG
      if $SAFE >= 1 && cmds.find{|obj| obj.tainted?}
        fail SecurityError, "cannot send tainted commands at level #{$SAFE}"
      end

      cmds = @interp._merge_tklist(*TkUtil::_conv_args([], enc_mode, *cmds))
      if @displayof
        if async
          @interp.__invoke('send', '-async', '-displayof', @displayof,
                           '--', @remote, *cmds)
        else
          @interp.__invoke('send', '-displayof', @displayof,
                           '--', @remote, *cmds)
        end
      else
        if async
          @interp.__invoke('send', '-async', '--', @remote, *cmds)
        else
          @interp.__invoke('send', '--', @remote, *cmds)
        end
      end
    end

_available_check(timeout = 5) click to toggle source

    # File lib/remote-tk.rb, line 155
    def _available_check(timeout = 5)
      raise SecurityError, "no permission to manipulate" unless self.manipulable?

      return nil if timeout < 1
      @ret_val.value = ''
      @interp._invoke('send', '-async', @remote,
                      'send', '-async', Tk.appname,
                      "set #{@ret_val.id} ready")
      Tk.update
      if @ret_val != 'ready'
        (1..(timeout*5)).each{
          sleep 0.2
          Tk.update
          break if @ret_val == 'ready'
        }
      end
      @ret_val.value == 'ready'
    end

_create_connection() click to toggle source

    # File lib/remote-tk.rb, line 175
      def _create_connection
        raise SecurityError, "no permission to manipulate" unless self.manipulable?

        ip_id = '_' + @interp._invoke('send', @remote, <<-'EOS') + '_'
          if {[catch {set _rubytk_control_ip_id_} ret] != 0} {
            set _rubytk_control_ip_id_ 0
          } else {
            set _rubytk_control_ip_id_ [expr $ret + 1]
          }
          return $_rubytk_control_ip_id_
        EOS

        @interp._invoke('send', @remote, <<-EOS)
          proc rb_out#{ip_id} args {
            send #{@appname} rb_out \$args
          }
        EOS

        ip_id
      end