arcadia 0.1.3 → 0.2.0

data/ext/ae-debug/ae-debug.conf

@@ -1,7 +0,0 @@
-name=debug
-label=Debug
-frame=1.0
-active=yes
-require=ext/ae-debug/ae-debug
-class=ArcadiaDebug
-

data/ext/ae-debug/ae-debug.rb

@@ -1,601 +0,0 @@
-#
-#   ae-debug.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require "observer"
-
-class ArcadiaDebugWrapper
-  include Observable
-  attr_reader :last_command
-	attr_reader :debugging
-  def initialize
-    (RUBY_PLATFORM.include?('mswin32'))?_cmd="cmd":_cmd='sh'
-    @io = IO.popen(_cmd,'w')
-    @last_command = _cmd
-    @stop = false
-    @transfer_file=ArcadiaDebugWrapper.transfer_file
-    @threads = Array.new
-    @debugging = false
-  end
-
-  def ArcadiaDebugWrapper.transfer_file
-    '~transfer-debug-file.tmp'
-  end
-
-  def start_debug(_file=nil)
-    @breakpoint_id=0
-    @file=_file
-    if File.exist?(@transfer_file)
-      File.delete(@transfer_file)
-    end
-    if _file
-      @main_thread = Thread.new{
-        command($arcadia['conf']['shell.ruby']+" -r ext/ae-debug/debug1.57 "+_file)
-        @last_command = 'debug'
-        read
-      }
-    end
-  end
-
-  def quit_debug
-    command("q\ny\n")
-    command("exit\n")
-    @threads.each{|t|
-      if t.alive?
-        t.kill
-      end
-    }
-    @main_thread.kill
-  end
-
-  def step_over
-    @threads << Thread.new{
-      command("n")
-      read
-    }
-  end
-
-  def step_into
-    @threads << Thread.new{
-      command("s")
-      read
-    }
-  end
-
-  def resume
-    Thread.new{
-      command("c")
-      read
-    }
-  end
-
-  def finish
-    Thread.new{
-      command("fin")
-      read
-    }
-  end
-
-  def v_global
-    @threads << Thread.new{
-      command("v g")
-      read
-    }
-  end
-
-  def v_local
-    @threads << Thread.new{
-      command("v l")
-      read
-    }
-  end
-
-  def v_instance(_obj)
-    @threads << Thread.new{
-      command("v i "+_obj)
-      read
-    }
-  end
-
-  def breakpoint_set(_pos, _context=nil)
-    @threads << Thread.new{
-      if _context
-        command("b "+_context+':'+_pos)
-      else
-        command("b "+_pos)
-      end
-      read
-    }
-    @breakpoint_id = 	@breakpoint_id + 1 if @breakpoint_id
-  end
-
-  def breckpoint_del(_id)
-    @threads << Thread.new{
-      if _id
-        command("del "+_id)
-      else
-        command("del")
-      end
-      read
-    }
-  end
-
-  def command(_command)
-    begin
-      @debugging = true
-      @io.puts(_command)
-      @last_command = _command
-    rescue Exception => e
-      $arcadia.outln("\n"+" error on :"+" command >>> "+_command+' : '+e.to_s ) if $arcadia
-    end
-  end
-
-  def stop
-    @stop = true
-  end
-
-  def read
-#    t_i = 0
-#    t_out = 5
-#    while !File.exist?(@transfer_file) && t_i < t_out
-#      sleep(t_i)
-#      t_i = t_i + 1
-#    end
-#    if !File.exist?(@transfer_file)
-#      return
-#    end
-
-    begin
-      while !File.exist?(@transfer_file)
-      end
-      if File.exist?(@transfer_file)
-        while !File.stat(@transfer_file).readable?
-        end
-        File.open(@transfer_file) do |f|
-          $ppp = Marshal.load(f)
-        end
-        while !File.stat(@transfer_file).writable? 
-        end
-        File.delete(@transfer_file) if File.exist?(@transfer_file)
-        changed
-        notify_observers($ppp)
-      end
-    rescue Exception => e
-      MsgContract.instance.out_debug(self, "\n"+'Error on : '+" reading >>> "+@transfer_file+" : "+e.to_s )
-    ensure
-      @debugging = false
-    end
-  end
-end
-
-class ArcadiaDebug < ArcadiaExt
-
-  class VariablesViewText < TkTitledFrame
-    attr_reader :text
-
-    def initialize(parent=nil, title='...', maximize_to=nil ,keys=nil)
-      super(parent, title, maximize_to, keys)
-      @top_label.configure(:background => 'red')
-      @text = TkText.new(self.frame,
-      'relief' =>  'flat',
-      'wrap' =>  'none'
-      ){|j|
-        parent = TkWinfo.parent(j)
-        TkScrollbar.new(parent){|s|
-          command proc{|*args| j.yview(*args)}
-          j.yscrollcommand proc{|first,last| s.set first,last}
-        }.pack('side'=>'right', 'fill'=>'y')
-        TkScrollbar.new(parent){|s|
-          command proc{|*args| j.xview(*args)}
-          orient 'horizontal'
-          j.xscrollcommand proc{|first,last| s.set first,last}
-        }.pack('side'=>'bottom', 'fill'=>'x')
-      }.place(
-      'relwidth' => '1',
-      'relx' => 0,
-      'x' => '0',
-      'y' => '0',
-      'relheight' => '1',
-      'rely' => 0,
-      'height' => '-15',
-      'bordermode' =>
-      'inside',
-      'width' => '-15'
-      )
-      place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
-    end
-  end
-
-  class VariablesViewProperties < TkTitledScrollFrame
-    attr_reader :inspector
-
-    def initialize(parent=nil, title='...', maximize_to=nil ,keys=nil)
-      super(parent, title, maximize_to, keys)
-      @inspector=InspectListReadOnly.new(self.frame.cwin)
-      place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1)
-    end
-
-  end
-
-
-  class ArcadiaDebugInfo
-
-    def initialize(_parent=nil)
-      @nb = Tk::BWidget::NoteBook.new(_parent){
-        tabbevelsize 0
-        internalborderwidth 2
-        activeforeground 'red'
-        activebackground 'yellow'
-        borderwidth 1
-        side $arcadia['conf']['editor.tabs.side']
-        font $arcadia['conf']['editor.tabs.font']
-        pack('fill'=>'both', :expand => 'yes')
-      }
-
-      @nb_variables = @nb.insert('end','var' ,'text'=>'Variables' )
-
-      @hsplitter = AGTkOSplittedFrames.new(@nb_variables,220)
-
-      @hsplitter2 = AGTkOSplittedFrames.new(@hsplitter.top_frame,80)
-      @vvl=VariablesViewText.new(@hsplitter2.top_frame,'Local')
-      @vvi=VariablesViewText.new(@hsplitter2.bottom_frame,'Instance(self)')
-      @vvg=VariablesViewText.new(@hsplitter.bottom_frame,'Global')
-      font = $arcadia['conf']['inspectors.debug.tabs.font']
-      font_b = $arcadia['conf']['inspectors.debug.tabs.font.bold']
-      @vvl.text.tag_configure('key',
-        'foreground' => 'blue',
-        'font'=> font
-      )
-      @vvl.text.tag_configure('value',
-        'foreground' => 'black',
-        'font'=> font
-      )
-      @vvl.text.tag_configure('sep',
-        'foreground' => 'gray',
-        'font'=> font
-      )
-
-      @vvi.text.tag_configure('key',
-        'foreground' => 'blue',
-        'font'=> font
-      )
-
-      @vvi.text.tag_configure('value',
-        'foreground' => 'black',
-        'font'=> font
-      )
-
-      @vvi.text.tag_configure('sep',
-        'foreground' => 'gray',
-        'font'=> font
-      )
-
-      @vvg.text.tag_configure('key',
-        'foreground' => '#018869',
-        'font'=> font
-      )
-
-      @vvg.text.tag_configure('value',
-        'foreground' => 'black' ,
-        'font'=> font
-      )
-
-      @vvg.text.tag_configure('sep',
-        'foreground' => 'gray',
-        'font'=> font
-      )
-
-      @nb.raise('var')
-    end
-
-    def hash_to_str(_hash, _ind=0)
-      str = ''
-      _hash.each{|key,val|
-        str = str + "/s"*_ind+ key.to_s+' => '+val.to_s+"\n"
-        if val.kind_of?(Hash)
-          str = str + hash_to_str(val,_ind+2)
-        end
-      }
-      return str
-    end
-
-    def update_globals(_vars)
-      @vvg.text.delete('1.0','end')
-      if _vars != nil
-        str = ''
-        _vars.each{|key,val|
-          @vvg.text.insert('end',key.to_s.ljust(18),'key')
-          @vvg.text.insert('end','','sep')
-          @vvg.text.insert('end',val.to_s+"\n",'value')
-        }
-      end
-    end
-    def update_locals(_vars)
-      @vvl.text.delete('1.0','end')
-      if _vars != nil
-        #				@vvl.inspector.updatelines(_vars)
-        _vars.each{|key,val|
-          @vvl.text.insert('end',key.to_s.ljust(18),'key')
-          @vvl.text.insert('end','','sep')
-          @vvl.text.insert('end',val.to_s+"\n",'value')
-        }
-      end
-    end
-
-    def update_instances(_vars)
-      @vvi.text.delete('1.0','end')
-      if _vars != nil
-        _vars.each{|key,val|
-          @vvi.text.insert('end',key.to_s.ljust(18),'key')
-          @vvi.text.insert('end','','sep')
-          @vvi.text.insert('end',val.to_s+"\n",'value')
-        }
-      end
-    end
-
-  end
-
-
-  def before_build
-    ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-  		@breakpoints = Hash.new
-  		@static_breakpoints = Array.new
-  end
-  
-  def build
-  end
-  
-  def debug_state
-  end
-  
-  def breakpoint_suf(_file,_line)
-    return _line.to_s + "-" + _file.to_s
-  end
-  
-	def breakpoint_add(_file,_line)
-    if @adw
-      @breakpoints[breakpoint_suf(_file,_line)] = @adw.breakpoint_set(_line, _file)
-		else
-	   	@static_breakpoints << {:file=>_file,:line=>_line}
-		end
-	end
-
-	def breakpoint_del(_file,_line)
-   		if @adw
-   			 @adw.breakpoint_del(@breakpoints.delete(breakpoint_suf(_file,_line)))
-   		end
-     @static_breakpoints.delete_if{|b| (b[:file]==_file && b[:line]==_line)}
-	end
-
-	def do_editor_event(_event)
-     #@arcadia.outln('in debug  _sender ----> '+_sender.to_s)	  
-     #@arcadia.outln('in debug  _event.signature ----> '+_event.signature)
-     case _event.signature 
-     		when EditorContract::BREAKPOINT_AFTER_CREATE
-     		  self.breakpoint_add(_event.context.file, _event.context.line)
-     		when EditorContract::BREAKPOINT_AFTER_DELETE
-     		  self.breakpoint_del(_event.context.file, _event.context.line)
-     		when EditorContract::BUFFER_AFTER_RAISE
-     		  @raised_file=_event.context.file
-     end
-	end
-
-  def can_exit_query
-    if @adw
-      query = (Tk.messageBox('icon' => 'question', 'type' => 'yesno',
-      'title' => '(Arcadia) Debug',
-      'message' => "Debug in course, do you want to exit?")=='yes')
-      if query
-        debug_quit
-        return true
-      else
-        return false
-      end
-    else
-      return true
-    end
-  end
-
-
-
-  def debug_begin
-    @breakpoints.clear
-    DebugContract.instance.debug_begin(self)
-  end
-
-
-  def debug_last
-    debug($arcadia['pers']['run.file.last'])
-  end
-
-  def debug_current
-    debug(@raised_file) if @raised_file!=nil
-  end
-
-  def debug(_filename=nil)
-    if _filename
-      begin
-        self.debug_begin
-        @debug_button_box = Tk::BWidget::ButtonBox.new(self.frame){
-          homogeneous true
-        }.pack('anchor'=>'w')#('fill'=>'x')
-        @debug_button_box.add(
-          'name'=>'debug_next',
-          'command'=>proc{self.debug_next},
-          'helptext'=>'step next',
-          'image'=> TkPhotoImage.new('dat' => DEBUG_NEXT_GIF),
-          'relief'=>'flat'
-        )
-        @debug_button_box.add(
-          'name'=>'debug_into',
-          'command'=>proc{self.debug_into},
-          'helptext'=>'step into',
-          'image'=> TkPhotoImage.new('dat' => DEBUG_INTO_GIF),
-          'relief'=>'flat'
-        )
-        @debug_button_box.add(
-          'name'=>'debug_fin',
-          'helptext'=>'step over',
-          'command'=>proc{self.debug_fin},
-          'image'=> TkPhotoImage.new('dat' => DEBUG_OUT_GIF),
-          'relief'=>'flat'
-        )
-        @debug_button_box.add(
-          'name'=>'debug_resume',
-          'helptext'=>'resume',
-          'image'=> TkPhotoImage.new('dat' => DEBUG_RESUME_GIF),
-          'command'=>proc{self.debug_resume},
-          'relief'=>'flat'
-        )
-
-        @debug_button_box.configure(:state=>'disabled')
-        @debug_info = ArcadiaDebugInfo.new(self.frame)
-        $arcadia['pers']['run.file.last']=_filename
-        @adw = ArcadiaDebugWrapper.new
-        @adw.add_observer(self)
-        @adw.start_debug(_filename)
-        #@arcadia['editor'].debug_begin
-        MsgContract.instance.out_simple(self,"\n<begin debug>")
-
-        #@arcadia['shell'].outln("\n<begin debug>")
-      rescue Exception => e
-        MsgContract.instance.out_debug(self,"---> "+e.to_s)
-        #@arcadia['shell'].outln("---> "+e.to_s )
-      end
-    end
-  end
-
-  def debug_next
-    if @adw
-      begin
-        @debug_button_box.configure(:state=>'disabled')
-        @adw.step_over
-      rescue Exception => e
-        MsgContract.instance.out_debug(self,"---> "+e.to_s)
-        #@arcadia['shell'].outln("---> "+e.to_s )
-      end
-    end
-  end
-
-  def debug_resume
-    if @adw
-      begin
-        @debug_button_box.configure(:state=>'disabled')
-        @adw.resume
-      rescue Exception => e
-        MsgContract.instance.out_debug(self, "debug_resume:---> "+e.to_s)
-        #@arcadia['shell'].outln("debug_resume:---> "+e.to_s )
-      end
-    end
-  end
-
-  def debug_into
-    if @adw
-      begin
-        @debug_button_box.configure(:state=>'disabled')
-        @adw.step_into
-      rescue Exception => e
-        MsgContract.instance.out_debug(self, "---> "+e.to_s)
-       # @arcadia['shell'].outln("---> "+e.to_s )
-      end
-    end
-  end
-
-  def debug_fin
-    if @adw
-      begin
-        @debug_button_box.configure(:state=>'disabled')
-        @adw.finish
-      rescue Exception => e
-        MsgContract.instance.out_debug(self, "---> "+e.to_s)
-        #@arcadia['shell'].outln("---> "+e.to_s )
-      end
-    end
-  end
-
-  def debug_quit
-    if @adw 
-      if @adw.debugging
-        Thread.new{
-          Tk.messageBox('icon' => 'info', 
-          						'type' => 'ok',
-        						 'title' => '(Arcadia) Debug',
-        						 'message' => "Debug in course, wait next step to exit")
-        }
-      else
-        begin
-          self.frame_free
-          #self.debug_end
-          @adw.quit_debug
-          @adw = nil
-          #$arcadia['editor'].debug_end
-          MsgContract.instance.out_debug(self, "\n<end debug>")
-  
-          #@arcadia['shell'].outln("\n<end debug>")
-        rescue Exception => e
-          MsgContract.instance.out_debug(self, "debug_quit:---> "+e.to_s)
-          #@arcadia['shell'].outln("debug_quit:---> "+e.to_s )
-        end
-      end
-    end
-  end
-  def debug_wrapper
-    return @adw
-  end
-
-  def update(dbg)
-    if dbg[:file] != nil
-      DebugContract.instance.debug_step(self, 'file'=> dbg[:file], 'line'=>dbg[:line])
-      #$arcadia['editor'].open_file_in_debug(dbg[:file], dbg[:line])
-    end
-    if @adw.last_command == 'debug' && @static_breakpoints.length > 0
-      #set breakpoint
-      @sindex = 0
-      _line = @static_breakpoints[@sindex][:line]
-      _file = @static_breakpoints[@sindex][:file]
-      self.breakpoint_add(_file, _line)
-      @sindex = @sindex + 1
-      return
-    elsif 	@adw.last_command[0..1] == 'b ' && @sindex < @static_breakpoints.length
-      _line = @static_breakpoints[@sindex][:line]
-      _file = @static_breakpoints[@sindex][:file]
-      self.breakpoint_add(_file, _line)
-      @sindex = @sindex + 1
-      return
-    end
-    if dbg[:error_text] != nil
-      str = "\n"+dbg[:file]+':'+dbg[:line].to_s
-      str = str + ":\t" +dbg[:error_text].to_s+'('+dbg[:error_class].to_s+')'
-      MsgContract.instance.out_debug(self, str)
-      #@arcadia['shell'].outln(str,'error')
-    end
-    if dbg[:callers] != nil
-      str = ''
-      dbg[:callers].each{|caller|
-        str = str+"\n     from:"+caller.to_s
-      }
-
-    end
-    if str
-      MsgContract.instance.out_debug(self, str)
-      #@arcadia['shell'].outln(str)
-    end
-    update_variables(dbg)
-    @debug_button_box.configure(:state=>'normal')
-  end
-
-  def update_variables(dbg)
-    if @adw.last_command == 'v g'
-      @debug_info.update_globals(dbg[:variables])
-      @adw.v_local
-    elsif @adw.last_command == 'v l'
-      @debug_info.update_locals(dbg[:variables])
-      @adw.v_instance('self')
-    elsif @adw.last_command == 'v i self'
-      @debug_info.update_instances(dbg[:variables])
-    elsif @adw.last_command[0..1] !='v '
-      @adw.v_global
-    end
-  end
-end