arcadia 0.1.0

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

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

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

@@ -0,0 +1,582 @@
+#
+#   ae-debug.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "observer"
+
+class ArcadiaDebugWrapper
+  include Observable
+  attr_reader :last_command
+
+  def initialize
+    (RUBY_PLATFORM == 'i386-mswin32')?_cmd="cmd":_cmd='sh'
+    @io = IO.popen(_cmd,'w')
+    @last_command = _cmd
+    @stop = false
+    @transfer_file=ArcadiaDebugWrapper.transfer_file
+    @threads = Array.new
+  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
+      @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
+    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 : '+" read >>> "+@transfer_file+" : "+e.to_s )
+      #$arcadia.outln("\n read >>> "+@transfer_file+" � andato in errore :"+e.to_s ) if $arcadia
+    end
+  end
+end
+
+class ArcadiaDebug < ArcadiaExt
+
+  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
+
+  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 debug_begin
+    @breakpoints.clear
+    DebugContract.instance.debug_begin(DebugContract::TDebugObj.new(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
+      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
+  def debug_wrapper
+    return @adw
+  end
+
+  def update(dbg)
+    tobj = DebugContract::TDebugObj.new(self)
+    tobj.file = dbg[:file]
+    tobj.line = dbg[:line]
+    #sobj = @ae_editor_talker.info
+    if dbg[:file] != nil
+      DebugContract.instance.debug_step(tobj)
+      #$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