arcadia 0.3.1 → 0.4.0

data/README

@@ -1,8 +1,8 @@
 = Arcadia Ruby Ide
-version 0.3.1
+version 0.4.0
 
 by Antonio Galeone
-on Feb 23, 2008
+on Jul 29, 2008
 
 
 == About
@@ -18,7 +18,10 @@ Some of Arcadia ruby ide project features include:
 * Highly extensibility architecture.
 
 == In this release
-* [fix] fixed a bug on code completion
+* [fix]  bug-fixing
+* [mod]  Improved file-history
+* [mod]  Improved editor
+* [mod]  Improved debugger
 
 == How to install
 There are two way:
@@ -108,10 +111,11 @@ under ~/.arcadia  directory. The format of property definition are:
 
 == Requirement
 I include into distribution also the BWidget lib (under tcl directory) so
-are require realy only the standard tcl tk lib (tested on tcl tk 8.4).
+are require realy only the standard tcl tk lib (tested on tcl tk 8.4 & tcl tk 8.5).
 I have tested arcadia with ruby 1.8.4, 1.8.5, 1.8.6 on 
 * FreeBsd6.x, 
-* Vector linux 5.8, 
+* Vector linux 5.*,
+* Archlinux
 * Windows 2000/XP, 
 * Cygwin (note: same page fault error on dll under cygwin may be solved in this way:
   by ash.exe exec "/bin/rebaseall"). 

data/bin/arcadia

@@ -1,13 +1,13 @@
-#!/usr/bin/env ruby
-#
-#   arcadia - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-$pwd = Dir.pwd
-Dir.chdir("#{File.dirname(__FILE__)}/..")
-if FileTest.exist?('conf/arcadia.init.rb')
-  require 'conf/arcadia.init'
-end
-require "lib/a-core"
-Arcadia.new.run
+#!/usr/bin/env ruby
+#
+#   arcadia - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+$pwd = Dir.pwd
+Dir.chdir("#{File.dirname(__FILE__)}/..")
+if FileTest.exist?('conf/arcadia.init.rb')
+  require 'conf/arcadia.init'
+end
+require "lib/a-core"
+Arcadia.new.run

data/bin/arcadia.bat

@@ -0,0 +1 @@
+ruby arcadia

data/conf/arcadia.conf

@@ -18,9 +18,10 @@ layout.split.2=0.1r70%
 #:::::::::::::::::::::::::::::::::::::::::::::::::<begin>
 font.h1=
 font.h2=
-font.h3=courier 11
+font.h3=courier 10
 freebsd::font.h3=courier 12
 win::font.h3={Courier New} 9
+darwin::font.h3={Courier New} 12
 font.h4=
 font.h5=
 font.h6=
@@ -258,10 +259,10 @@ user_toolbar_show=yes
 
 #:::::::::::::::: splash group    ::::::::::::::::::::::<begin>
 splash.show=yes
-splash.title.font=Courier 30 bold
-splash.subtitle.font=Courier 12 bold
-splash.version.font=Courier 10
-splash.credits.font=Courier 10
+splash.title.font=Courier 28 bold
+splash.subtitle.font=Courier 10 bold
+splash.version.font=Courier 9
+splash.credits.font=Courier 9
 splash.banner.font=Courier 8 italic
 
 win::splash.title.font=Ariel 26 bold

data/conf/arcadia.init.rb

@@ -1,34 +1,34 @@
-# In this file init configuration
-
-begin
-  require 'tk'
-rescue LoadError => e
-print <<EOL
- +--------------------------------------------+
- |      Arcadia require ruby-tk extension     |
- |      and tcl/tk run-time                   |
- |      you must install before run ...       |
- +--------------------------------------------+
-EOL
-i=30
-l=i
-msg=e.message
-while l < msg.length
-  while l < msg.length-1 && msg[l..l]!="\s"
-    l=l+1
-  end
-  msg = msg[0..l]+"\n"+"\s"*4+msg[l+1..-1]
-  l=l+i
-end
-print <<EOL
- ---Tk LoadError Details-----------------------
-    Platform : "#{RUBY_PLATFORM}"          
-    Ruby version : "#{RUBY_VERSION}"
-    Message : 
-    "#{msg}"
- ----------------------------------------------
-EOL
-exit
-end
-
-Tk.tk_call "eval","set auto_path [concat $::auto_path tcl]"
+# In this file init configuration
+
+begin
+  require 'tk'
+rescue LoadError => e
+print <<EOL
+ ----------------------------------------------
+       Arcadia require ruby-tk extension     
+       and tcl/tk run-time                   
+       you must install before run ...       
+ ----------------------------------------------
+EOL
+i=30
+l=i
+msg=e.message
+while l < msg.length
+  while l < msg.length-1 && msg[l..l]!="\s"
+    l=l+1
+  end
+  msg = msg[0..l]+"\n"+"\s"*4+msg[l+1..-1]
+  l=l+i
+end
+print <<EOL
+ ---Tk LoadError Details-----------------------
+    Platform : "#{RUBY_PLATFORM}"          
+    Ruby version : "#{RUBY_VERSION}"
+    Message : 
+    "#{msg}"
+ ----------------------------------------------
+EOL
+exit
+end
+
+Tk.tk_call "eval","set auto_path [concat $::auto_path tcl]"

data/conf/arcadia.res.rb

@@ -1340,3 +1340,9 @@ pBMKA7ykCEjW58fvoQCU9gYAcYIPMHcKeU0xBj4BBgNQM3gGRmqIFIQ/JYaX
 fRR4Ent9fwBqgoFphpZ5Pm0DRq1gAbJ6SqsVa11ZJZ+XFH0vwS9pvXkrVFNi
 awKVYxYIsw0D09TV1tcNGBEAOw==
 EOS
+
+
+ICON_FOLDER_OPEN_GIF=<<EOS
+R0lGODlhEAAQAIAAAGaZ/////yH5BAEAAAEALAAAAAAQABAAAAImjI+pq+DP
+wptgwXORi2kbCnpSSH2VdYlatanrCDen283khN0ZpxQAOw==
+EOS

data/ext/ae-breakpoints/ae-breakpoints.conf

@@ -0,0 +1,10 @@
+#========================================
+#========================================
+name=breakpoints
+labels=Breakpoints
+frames=1.1
+active=yes
+require=ext/ae-breakpoints/ae-breakpoints
+class=Breakpoints
+#========================================
+#========================================

data/ext/ae-breakpoints/ae-breakpoints.rb

@@ -0,0 +1,349 @@
+#
+#   ae-breakpoints.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+class Breakpoints < ArcadiaExt
+  def on_before_build(_event)
+    @ui_builded = false
+    @breakpoints =Array.new
+    Arcadia.attach_listener(self, DebugEvent)
+  end
+
+  def on_build(_event)
+    load_persistent_breakpoints
+  end
+
+  def on_finalize(_event)
+    _breakpoints = '';
+    @breakpoints.each{|point|
+      if point[:file] != nil
+        _breakpoints=_breakpoints+'|' if _breakpoints.strip.length > 0
+        _breakpoints=_breakpoints + "#{point[:file]}@@@#{point[:line]}@@@#{point[:active]}"
+#        _file_node = file2node_name(point[:file]) 
+#        _line_node = line2node_name(_file_node, point[:line])
+#        _check = @tree_break.itemcget(_line_node, 'window')
+#        if _check
+#          _breakpoints="#{_breakpoints}@@@#{_check.cget('variable').value}"
+#        end
+      end
+    }
+    Arcadia.persistent('breakpoints', _breakpoints)
+  end
+
+  def load_persistent_breakpoints
+    b = Arcadia.persistent('breakpoints')
+    if b
+      _files_list =b.split("|")
+      _files_list.each do |value| 
+        _file,_line,_active = value.split('@@@')
+        if _file && _line && _active
+          Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'active'=>_active.to_i))
+        end
+      end
+    end
+  end
+
+
+  def ensure_build_ui
+    if !@ui_builded
+      build_ui
+    end
+  end  
+
+  def build_ui
+    do_select_item = proc{|_self|
+      if _self.selection_get[0].length >0
+      	_selected = ""
+      	_self.selection_get[0].each{|_block|
+       	 _selected = _selected + _block.to_s + "\s" 
+      	}
+      	_selected = _selected.strip
+      else
+        _selected = _self.selection_get[0]
+      end
+      _node_name, _line = _selected.split('_')
+      if _node_name && _line
+        _file = _self.itemcget(_node_name, 'text')
+        if _file
+ 	        Arcadia.process_event(OpenBufferEvent.new(self,'file'=>_file, 'row'=>_line))
+        end
+      end
+      #p "selected = #{_selected}"
+    }
+
+    @tree_break = Tk::BWidget::Tree.new(self.frame.hinner_frame, Arcadia.style('treepanel')){
+      #showlines true
+      deltay 18
+      padx 25
+      selectcommand proc{ do_select_item.call(self) } 
+    }.place('relwidth' => 1,'relheight' => '1')
+    
+    build_popup
+    
+    @ui_builded = true
+  end
+
+
+  def unbuild_ui
+    if @ui_builded
+     
+      @ui_builded = false
+    end
+  end
+  
+  def raise_clear_selected(_delete=false)
+    _file, _line = get_tree_selection(@tree_break)
+    if _file && _line
+       Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'delete'=>_delete))
+    elsif _file
+       _node_name = file2node_name(_file)
+       sons = @tree_break.nodes(_node_name)
+       if sons
+         sons.each{|son|
+           _nil, _l = son.split('_')
+           Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l, 'delete'=>_delete)) if _l
+         }
+      end
+    end
+  end
+  
+  def build_popup
+    _pop_up = TkMenu.new(
+      :parent=>@tree_break,
+      :tearoff=>0,
+      :title => 'Menu'
+    )
+    _pop_up.configure(Arcadia.style('menu'))
+    _title_item = _pop_up.insert('end',
+      :command,
+      :label=>'...',
+      :state=>'disabled',
+      :background=>Arcadia.conf('titlelabel.background'),
+      :hidemargin => true
+    )
+
+    _pop_up.insert('end',
+      :command,
+      :label=>'Clear breakpoint',
+      :hidemargin => false,
+      :command=> proc{raise_clear_selected}
+    )
+
+    _pop_up.insert('end',
+      :command,
+      :label=>'Delete breakpoint',
+      :hidemargin => false,
+      :command=> proc{raise_clear_selected(true)}
+    )
+
+
+    @tree_break.textbind_append("Button-3",
+      proc{|*x|
+        _x = TkWinfo.pointerx(@tree_break)
+        _y = TkWinfo.pointery(@tree_break)
+        _selected = @tree_break.selection_get[0]
+        _file, _line = get_tree_selection(@tree_break)
+        _label = _file
+        if _line
+          _label << " line: #{_line}"
+        end
+        _pop_up.entryconfigure(0,'label'=>_label)
+
+        _pop_up.popup(_x,_y)
+      })
+  end
+  
+  def get_tree_selection(_tree)
+    _ret = Array.new
+    _selected = _tree.selection_get[0]
+    _node_name, _line = _selected.split('_')
+    _ret << _tree.itemcget(_node_name, 'text')
+    _ret << _line if _line
+    _ret
+  end
+
+
+  def on_debug(_event)
+    case _event
+      when SetBreakpointEvent
+        ensure_build_ui
+        @breakpoints << {:file=>_event.file,:line=>_event.row, :active=>_event.active}
+        self.breakpoint_add(File.expand_path(_event.file), _event.row, _event.active==1)
+      when UnsetBreakpointEvent
+        if @ui_builded
+          if _event.delete
+            @breakpoints.delete_if{|b| (b[:file]==_event.file && b[:line]==_event.row)}
+          else
+            @breakpoints.collect! {|b| 
+              if b[:file]==_event.file && b[:line]==_event.row
+                b[:active]=0
+              end
+              b
+            } 
+          end
+          self.breakpoint_del(File.expand_path(_event.file), _event.row, _event.delete)
+          #self.breakpoint_del(File.expand_path(_event.file), _event.row, _event.sender != self)
+        end
+    end
+  end
+  
+  def on_debug_step_info(_event)
+    #Arcadia.console(self, :msg=> "ae-breakpoints -> DebugStepInfoEvent")
+    if @ui_builded
+      self.breakpoint_select(_event.file, _event.row)
+    end
+  end
+
+  def file2node_name(_file)
+    _file = File.expand_path(_file)
+    #_file = File.basename(_file)
+    _s = ""
+    _file.gsub("/",_s).gsub(".",_s).gsub(":",_s).gsub("\\",_s).gsub("-",_s)
+  end
+
+  def new_check_button(_node_name, _value=1)
+    _command = proc {|_checkbutton|
+      _file_node_name, _line = _node_name.split('_')
+      _file = @tree_break.itemcget(_file_node_name, 'text')
+      if _checkbutton.cget('variable').value.to_i==0
+        if _file && _line
+          Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line))
+        elsif _file
+          sons = @tree_break.nodes(_node_name)
+          if sons
+             sons.each{|son|
+                _nil, _l = son.split('_')
+                Arcadia.process_event(UnsetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l)) if _l
+             }
+          end
+        end
+      else
+        if _file && _line
+          Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_line, 'active'=>1))
+        elsif _file
+          sons = @tree_break.nodes(_node_name)
+          if sons
+             sons.each{|son|
+                _nil, _l = son.split('_')
+                Arcadia.process_event(SetBreakpointEvent.new(self, 'file'=>_file, 'row'=>_l, 'active'=>1)) if _l
+             }
+          end
+        end
+        
+      end
+    } 
+    TkCheckButton.new(@tree_break, Arcadia.style('checkbox')){
+      #text _label
+      indicatoron  true
+      padx 0
+      pady 0
+      variable TkVariable.new(_value)
+      background   Arcadia.style('treepanel')['background']
+      borderwidth 0
+      command proc{_command.call(self)}
+      relief 'flat'
+    }
+#    _item_on_img = TkPhotoImage.new('dat' => ON_GIF)
+#    @item_off_img = TkPhotoImage.new('dat' => OFF_GIF)
+#    @b_item_onoff = TkButton.new(@tree_break, Arcadia.style('button')){
+#        image  _item_on_img
+#        anchor 'nw'
+#    }.bind("1",proc{   })
+  end
+  
+  def line2node_name(_parent, _line)
+    "#{_parent}_#{_line.to_s}"
+  end
+  
+  def breakpoint_add(_file,_line, _active=true)
+    _file_node = file2node_name(_file) 
+    _line_node = line2node_name(_file_node, _line)
+    (_active)?_check_value=1 : _check_value=0
+    if !@tree_break.exist?(_file_node)
+      @tree_break.insert('end', 'root' ,_file_node, {
+        'open'=>true,
+        'anchor'=>'w',
+        'text' =>  _file,
+        'deltax'=>-1,
+        'window' => new_check_button(_file_node, _check_value)
+      }.update(Arcadia.style('treeitem')))
+    elsif _active
+      _check = @tree_break.itemcget(_file_node, 'window')
+      _check.cget('variable').value=1
+    end
+    
+    if !@tree_break.exist?(_line_node)
+      @tree_break.insert('end', _file_node ,_line_node, {
+        'open'=>true,
+        'anchor'=>'w',
+        'text' =>  "line: #{_line}",
+        'deltax'=>-1,
+        'window' => new_check_button(_line_node, _check_value)
+      }.update(Arcadia.style('treeitem')))
+      @tree_break.reorder(_file_node,@tree_break.nodes(_file_node).sort)
+    elsif _active
+      _check = @tree_break.itemcget(_line_node, 'window')
+      _check.cget('variable').value=1 
+    end
+  end
+
+  def breakpoint_del(_file,_line, _delete=false)
+    _file_node = file2node_name(_file) 
+    _line_node = line2node_name(_file_node, _line)
+    if @tree_break.exist?(_line_node)
+      begin
+        if _delete
+          _sc = @tree_break.cget('selectcommand')
+          @tree_break.configure('selectcommand'=>nil)
+          @tree_break.delete(_line_node)
+        else
+          _check = @tree_break.itemcget(_line_node, 'window')
+          _check.cget('variable').value=0 
+        end
+        _bro = @tree_break.nodes(_file_node)
+        if _bro.nil? || _bro.length == 0 
+          if _delete
+            @tree_break.delete(_file_node) 
+          else
+            _check = @tree_break.itemcget(_file_node, 'window')
+            _check.cget('variable').value=0 
+          end
+        elsif _bro.length > 0 && !_delete
+          is_checked = false
+          _bro.each{|n|
+            _check = @tree_break.itemcget(n, 'window')
+            v = _check.cget('variable').value
+            is_checked = is_checked || v.to_i==1
+          }
+          if !is_checked
+            _check = @tree_break.itemcget(_file_node, 'window')
+            _check.cget('variable').value=0 
+          end
+        end
+      ensure
+        @tree_break.configure('selectcommand'=>_sc) if _delete
+      end
+
+    end
+  end
+
+  def breakpoint_select(_file, _line)
+    _file_node = file2node_name(_file) 
+    _line_node = line2node_name(_file_node, _line)
+    @tree_break.selection_clear
+    #p "line node = #{_line_node}"
+    if @tree_break.exist?(_line_node)
+      @tree_break.open_tree(_file_node, false)
+      @tree_break.selection_add(_line_node)
+      @tree_break.see(_line_node)
+    end
+  end
+
+  
+  def breakpoint_list_free
+    @tree_break.delete(@tree_break.nodes('root'))
+  end
+  
+  
+end