arcadia 0.1.2.1 → 0.1.3

data/ext/ae-complete-code/ae-complete-code.rb

@@ -1,80 +1,80 @@
-#
-#   ae-complete-code.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require "base/a-ext"
-
-
-class CompleteCode < ArcadiaExt
-
-	def before_build
-	end
-	
-	def build
-	end
-	
-	def after_build 
-	  @complete_command=full_command('rct-complete')
-	  @doc_command=full_command('rct-doc')
-	  @ri_command="ri -T -f plain"
-	  @finder_command="rct-meth-args -n"  #  ./a-libs.rb:741:AG#publish (_family, args = nil)
-	  if @complete_command !=nil #system(@rct_complete+" "+__FILE__)
-    		ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-    else
-   		 MsgContract.instance.out_error(self, "Extension ae-complete-code depend upon rct-complete(rcodetools) command (install it or update system path!)")
-    end
-	end
-	
-	def full_command(_command='rct-complete')
-		_ret = nil
-		RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
-		ENV['PATH'].split(_sep).each{|_path|
-			_file = File.join(_path, _command)
-			if FileTest.exist?(_file)
-	  			_ret = _file
-			end
-		}
-		_ret
-	end
-		
-	def do_editor_event(_event)
-     case _event.signature 
-     		when EditorContract::COMPLETE_CODE
-     		  if _event.context.file     		
-     		    _event.context.candidates = candidates(_event.context.file, _event.context.line, _event.context.col)
-     		    _event.handled(self)
-     			 end
-     end
-	end
-
-  def candidates(_file, _line, _col)
-		begin
-		  _options = "--completion-class-info --line="+_line+" --column="+_col
-		  #_options = "--line="+_line+" --column="+_col
-      _cmp_s = "|ruby "+@complete_command+" "+_options+" "+_file
-      _ret = nil
-      open(_cmp_s,"r") do
-        |f|
-        _ret = f.readlines.collect!{| line | line.chomp}
-        #p _ret
-      end
-      if _ret.length == 0
-        _cmp_s_d = _cmp_s+" 2>&1"
-	      _error = nil
-	      open(_cmp_s_d,"r") do
- 		       |f|
- 		       _error = f.readlines.collect!{| line | line.chomp}
-     		 end
-     		 if _error != nil && _error.length > 0
-	     			MsgContract.instance.out_error(self, "Syntax error in current source")
-        end
-      end
-      _ret
-  		rescue Exception => e
-  			 MsgContract.instance.out_error(self, e.to_s)
- 	  end
-  end
-  
-end
-
+#
+#   ae-complete-code.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "base/a-ext"
+
+
+class CompleteCode < ArcadiaExt
+
+	def before_build
+	end
+	
+	def build
+	end
+	
+	def after_build 
+	  @complete_command=full_command('rct-complete')
+	  @doc_command=full_command('rct-doc')
+	  @ri_command="ri -T -f plain"
+	  @finder_command="rct-meth-args -n"  #  ./a-libs.rb:741:AG#publish (_family, args = nil)
+	  if @complete_command !=nil #system(@rct_complete+" "+__FILE__)
+    		ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    else
+   		 MsgContract.instance.out_error(self, "Warning: Extension ae-complete-code depend upon rct-complete(rcodetools) command (install it or update system path!)")
+    end
+	end
+	
+	def full_command(_command='rct-complete')
+		_ret = nil
+		RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
+		ENV['PATH'].split(_sep).each{|_path|
+			_file = File.join(_path, _command)
+			if FileTest.exist?(_file)
+	  			_ret = _file
+			end
+		}
+		_ret
+	end
+		
+	def do_editor_event(_event)
+     case _event.signature 
+     		when EditorContract::COMPLETE_CODE
+     		  if _event.context.file     		
+     		    _event.context.candidates = candidates(_event.context.file, _event.context.line, _event.context.col)
+     		    _event.handled(self)
+     			 end
+     end
+	end
+
+  def candidates(_file, _line, _col)
+		begin
+		  _options = "--completion-class-info --line="+_line+" --column="+_col
+		  #_options = "--line="+_line+" --column="+_col
+      _cmp_s = "|ruby "+@complete_command+" "+_options+" "+_file
+      _ret = nil
+      open(_cmp_s,"r") do
+        |f|
+        _ret = f.readlines.collect!{| line | line.chomp}
+        #p _ret
+      end
+      if _ret.length == 0
+        _cmp_s_d = _cmp_s+" 2>&1"
+	      _error = nil
+	      open(_cmp_s_d,"r") do
+ 		       |f|
+ 		       _error = f.readlines.collect!{| line | line.chomp}
+     		 end
+     		 if _error != nil && _error.length > 0
+	     			MsgContract.instance.out_error(self, "Syntax error in current source")
+        end
+      end
+      _ret
+  		rescue Exception => e
+  			 MsgContract.instance.out_error(self, e.to_s)
+ 	  end
+  end
+  
+end
+

data/ext/ae-doc-code/ae-doc-code.rb

@@ -1,289 +1,288 @@
-#
-#   ae-doc-code.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-require "base/a-ext"
-
-class DocCode < ArcadiaExt
-
-  def before_build
-  end
-  
-  def build
-  end
-  
-  def after_build 
-    @doc_command=full_command('rct-doc')
-    @doc_command=full_command('RCT-DOC') if @doc_command == nil
-    @ri_command=full_command('ri')
-    if @ri_command !=nil #system(@rct_complete+" "+__FILE__)
-      ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-    else
-      MsgContract.instance.out_error(self, "Extension ae-doc-code depend upon ri command!")
-    end
-    if @doc_command == nil #system(@rct_complete+" "+__FILE__)
-      MsgContract.instance.out_error(self, "Warning: Extension ae-doc-code depend upon rct-doc command!")
-    end
-  end
-  
-  def full_command(_command='ri')
-    _ret = nil
-    RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
-    ENV['PATH'].split(_sep).each{|_path|
-      _file = File.join(_path, _command)
-      if FileTest.exist?(_file)
-        _ret = _file
-      end
-    }
-    _ret
-  end
-    
-  def do_editor_event(_event)
-     case _event.signature 
-       when EditorContract::DOC_CODE
-         if _event.context.file && @doc_command != nil    
-           _event.context.doc = doc(_event.context)
-           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
-             raise_doc_code(_event.context)
-           else
-             build_doc_tree
-           end
-         elsif _event.context.doc_entry
-           _event.context.doc = doc_entry(_event.context.doc_entry)
-           _event.context.text = _event.context.doc_entry
-           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
-             raise_doc_code(_event.context)
-           else
-             build_doc_tree
-           end
-         elsif _event.context.file && @doc_command == nil    
-           build_doc_tree
-         end
-         _event.handled(self)
-     end
-  end
-
-  def build_doc_tree
-    if !@doc_tree
-      
-      @image_class =  TkPhotoImage.new('dat' => ARROW_RIGHT_GIF)
-      @image_def =  TkPhotoImage.new('dat' => TREE_NODE_DEF_GIF)
-      @image_def_class =  TkPhotoImage.new('dat' => TREE_NODE_DEFCLASS_GIF)
-      
-      
-      do_select_item = proc{|_self|
-        if _self.selection_get[0].length >0
-          _selected = rif_2_node(_self.selection_get[0])
-        end
-        if _selected
-          EditorContract.instance.doc_code(self, 'doc_entry'=>_selected)	    
-        end
-      }
-      _background = conf('color.background')
-      _foreground = conf('color.foreground')
-      @doc_tree = Tk::BWidget::Tree.new(self.frame){
-          relief 'flat'
-          showlines false
-          deltay 18
-          background _background
-          crossfill _foreground
-          selectcommand proc{ do_select_item.call(self) } 
-          place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
-      }
-      
-      _scrollcommand = proc{|*args| @doc_tree.yview(*args)}
-      _scrollbar = TkScrollbar.new(self.frame){|s|
-         width 8
-         command _scrollcommand
-      }.pack('side'=>'right', 'fill'=>'y')
-      @doc_tree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
-  
-      names = doc_entry('--list-names')
-
-      @progress_bar = TkProgressframe.new(@arcadia.layout.root, names.length)		  
-      @progress_bar.title('Building doc')
-      @cancell=false
-      @progress_bar.on_cancel=proc{cancel}
-      #@hash_rif = Hash.new    		
-      @level = 0
-      @last_nodes = Array.new
-      Thread.new do
-        _last_value = ''
-        #p 'n�='+ names.length.to_s
-        names.sort.each do |value|
-          _value = value.chomp.strip
-          if _value != _last_value
-            node(_value)
-            @progress_bar.title(_value)
-            _last_value = _value
-          end
-          @progress_bar.progress
-          if @cancell
-            @progress_bar.destroy
-            @progress_bar = nil
-            break
-          end
-        end
-        progress_bar.destroy if @progress_bar != nil
-      end
-    end
-  end
-  
-  def cancel
-    @cancell=true
-  end
-  
-  def node_2_rif(_path)
-    return  _path.gsub('#','@M@').gsub('::','@C@').gsub('|','@P@').gsub('^','@U@')
-  end
-  
-  def rif_2_node(_rif)
-    return  _rif.gsub('@M@','#').gsub('@C@', '::').gsub('@P@', '|').gsub('@U@', '^')
-  end
-
-  def node(_path)
-    # _rif = @hash_rif.length
-    _rif = node_2_rif(_path)
-    _parent_found = false
-    while !_parent_found && @level > 0 do
-      @level = @level - 1
-      if  (@last_nodes[@level] != nil) && _path.include?(@last_nodes[@level]) 
-        _full_value = _path.sub(@last_nodes[@level],'')
-        if _full_value[0..1].include?('#')
-          _sep = '#'
-          _value = _full_value[1.._full_value.length-1]
-          _parent_found  = true
-        elsif _full_value[0..2].include?('::')
-          _sep = '::'
-          _value = _full_value[2.._full_value.length-1]
-          _parent_found  = true
-        else
-          _parent_found  = false
-        end
-      end
-    end
-    if _parent_found 
-      _parent_path = @last_nodes[@level]
-      #_parent_rif = @hash_rif[_parent_path]
-      _parent_rif = node_2_rif(_parent_path)
-      @level = @level + 1
-    else
-      _parent_rif = 'root'
-      _sep = ''
-      _value = _path
-    end
-
-     #@hash_rif[_path]= _rif
-     @last_nodes[@level] = _path
-     _background = conf('color.background')
-
-      if _sep.length == 0
-        _image = @image_class
-      elsif _sep.include?('#')
-        _image = @image_def
-      elsif _sep.include?('::')
-        _image = @image_def_class
-      end
-
-     @doc_tree.insert('end', _parent_rif ,_rif, {
-           'text' =>  _value ,
-           'helptext' => _path,
-           'deltax'=>-1,
-           'image'=>_image
-         }
-       )
-      @level = @level + 1
-  end
-
-  def raise_doc_code(_context)
-    if @docFrame
-      @docFrame.tkText.delete('1.0','end')
-    else
-      _height = 140
-      _width = 550
-      _context.xdoc =  TkWinfo.screenwidth(@arcadia.layout.root)/2  if !_context.xdoc 
-      _context.ydoc =  TkWinfo.screenheight(@arcadia.layout.root)/2  if !_context.ydoc 
-      _x = _context.xdoc - _width/2
-      _y = _context.ydoc - _height -20
-      @docFrame = TkDocframe.new(@arcadia.layout.root).place('x'=>_x, 'y'=>_y, 'width'=>_width, 'height'=>_height)
-      do_close = proc{
-         @docFrame.destroy
-         @docFrame = nil
-         Tk.callback_break
-      }
-      @docFrame.on_close = do_close
-      @docFrame.tkText.bind_append('KeyPress'){|e|
-        case e.keysym
-          when 'Escape'
-            do_close.call
-          end
-       }
-       @docFrame.tkText.font(conf('font'))
-       @docFrame.tkText.foreground(conf('color.foreground'))
-       @docFrame.tkText.background(conf('color.background'))
-    end
-    
-    if _context.doc
-      @docFrame.tkText.insert('end', _context.doc.to_s)
-      @docFrame.title(_context.text) if _context.text
-    else
-      MsgContract.instance.out_simple(self, 'nulla di dire !')
-    end
-  end
-
-
-
-  def doc_entry(_entry=nil)
-    _ret = nil
-    if _entry
-      _cmp_doc = "|ruby "+@ri_command+" -T -f plain "+_entry
-      open (_cmp_doc) do |f|
-         _ret = f.readlines 
-      end
-    end
-    _ret
-  end
-  
-  def doc(_context)
-    begin
-      _options = "--line="+_context.line+" --column="+_context.col
-      _cmp_s = "|ruby " + @doc_command +" --use-method-analyzer "+_options +" " +_context.file
-      _ret = nil
-      _doc = nil
-      open(_cmp_s,"r") do
-        |f|
-        _doc = f.readlines.collect!{| line | line.chomp}.to_s.strip
-      end
-      if _doc.length > 0
-        _context.text = _doc.to_s
-        _ret = doc_entry(_context.text)
-      end
-      _ret
-  
-    rescue Exception => e
-      _msg = e.to_s + "\n"
-      e.backtrace.each{|line| _msg = _msg + line + "\n"}
-      MsgContract.instance.out_error(self, _msg)
-    end
-  end
-  
-end
-
-class TkDocframe < TkFloatTitledFrame
-  attr_reader :tkText
-  def initialize(parent=nil, *args)
-    super(parent)
-    @tkText = TkText.new(self.frame, 
-        'wrap'=>'none',
-        'relief'=>'groove'
-    ){|j|
-      TkScrollbar.new(j){|s|
-        width 8
-        command proc{|*args| j.yview(*args)}
-        j.yscrollcommand proc{|first,last| s.set first,last}
-      }.pack('side'=>'right', 'fill'=>'y')
-    }.place('x'=>0, 'y'=>0, 'relheight'=> 1, 'relwidth'=> 1)
-    
-  end
-end
+#
+#   ae-doc-code.rb - Arcadia Ruby ide
+#   by Antonio Galeone <antonio-galeone@rubyforge.org>
+#
+
+require "base/a-ext"
+
+class DocCode < ArcadiaExt
+
+  def before_build
+  end
+  
+  def build
+  end
+  
+  def after_build 
+    @doc_command=full_command('rct-doc')
+    @doc_command=full_command('RCT-DOC') if @doc_command == nil
+    @ri_command=full_command('ri')
+    if @ri_command !=nil #system(@rct_complete+" "+__FILE__)
+      ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
+    else
+      MsgContract.instance.out_error(self, "Extension ae-doc-code depend upon ri command!")
+    end
+    if @doc_command == nil #system(@rct_complete+" "+__FILE__)
+      MsgContract.instance.out_error(self, "Warning: Extension ae-doc-code depend upon rct-doc command!")
+    end
+  end
+  
+  def full_command(_command='ri')
+    _ret = nil
+    RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
+    ENV['PATH'].split(_sep).each{|_path|
+      _file = File.join(_path, _command)
+      if FileTest.exist?(_file)
+        _ret = _file
+      end
+    }
+    _ret
+  end
+    
+  def do_editor_event(_event)
+     case _event.signature 
+       when EditorContract::DOC_CODE
+         if _event.context.file && @doc_command != nil    
+           _event.context.doc = doc(_event.context)
+           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
+             raise_doc_code(_event.context)
+#           else
+#             build_doc_tree
+           end
+         elsif _event.context.doc_entry
+           _event.context.doc = doc_entry(_event.context.doc_entry)
+           _event.context.text = _event.context.doc_entry
+           if  _event.context.doc != nil &&  _event.context.doc.length >0    		
+             raise_doc_code(_event.context)
+#           else
+#             build_doc_tree
+           end
+#         elsif _event.context.file && @doc_command == nil    
+#           build_doc_tree
+         end
+         _event.handled(self)
+       when EditorContract::BUILD_DOC_TREE
+         build_doc_tree
+     end
+  end
+
+  def build_doc_tree
+    if !@doc_tree
+      @image_class =  TkPhotoImage.new('dat' => ARROW_RIGHT_GIF)
+      @image_def =  TkPhotoImage.new('dat' => TREE_NODE_DEF_GIF)
+      @image_def_class =  TkPhotoImage.new('dat' => TREE_NODE_DEFCLASS_GIF)
+      do_select_item = proc{|_self|
+        if _self.selection_get[0].length >0
+          _selected = rif_2_node(_self.selection_get[0])
+        end
+        if _selected
+          EditorContract.instance.doc_code(self, 'doc_entry'=>_selected)	    
+        end
+      }
+      _background = conf('color.background')
+      _foreground = conf('color.foreground')
+      @doc_tree = Tk::BWidget::Tree.new(self.frame){
+          relief 'flat'
+          showlines false
+          deltay 18
+          background _background
+          crossfill _foreground
+          selectcommand proc{ do_select_item.call(self) } 
+          place('relwidth' => 1,'relx' => 0,'x' => '0','y' => '0','relheight' => '1')
+      }
+      
+      _scrollcommand = proc{|*args| @doc_tree.yview(*args)}
+      _scrollbar = TkScrollbar.new(self.frame){|s|
+         width 8
+         command _scrollcommand
+      }.pack('side'=>'right', 'fill'=>'y')
+      @doc_tree.yscrollcommand proc{|first,last| _scrollbar.set(first,last)}
+  
+      names = doc_entry('--list-names')
+
+      @progress_bar = TkProgressframe.new(@arcadia.layout.root, names.length)		  
+      @progress_bar.title('Building doc')
+      @cancell=false
+      @progress_bar.on_cancel=proc{cancel}
+      #@hash_rif = Hash.new    		
+      @level = 0
+      @last_nodes = Array.new
+      Thread.new do
+        _last_value = ''
+        #p 'n�='+ names.length.to_s
+        names.sort.each do |value|
+          _value = value.chomp.strip
+          if _value != _last_value
+            node(_value)
+            @progress_bar.title(_value)
+            _last_value = _value
+          end
+          @progress_bar.progress
+          if @cancell
+            @progress_bar.destroy
+            @progress_bar = nil
+            break
+          end
+        end
+        progress_bar.destroy if @progress_bar != nil
+      end
+    end
+  end
+  
+  def cancel
+    @cancell=true
+  end
+  
+  def node_2_rif(_path)
+    return  _path.gsub('#','@M@').gsub('::','@C@').gsub('|','@P@').gsub('^','@U@')
+  end
+  
+  def rif_2_node(_rif)
+    return  _rif.gsub('@M@','#').gsub('@C@', '::').gsub('@P@', '|').gsub('@U@', '^')
+  end
+
+  def node(_path)
+    # _rif = @hash_rif.length
+    _rif = node_2_rif(_path)
+    _parent_found = false
+    while !_parent_found && @level > 0 do
+      @level = @level - 1
+      if  (@last_nodes[@level] != nil) && _path.include?(@last_nodes[@level]) 
+        _full_value = _path.sub(@last_nodes[@level],'')
+        if _full_value[0..1].include?('#')
+          _sep = '#'
+          _value = _full_value[1.._full_value.length-1]
+          _parent_found  = true
+        elsif _full_value[0..2].include?('::')
+          _sep = '::'
+          _value = _full_value[2.._full_value.length-1]
+          _parent_found  = true
+        else
+          _parent_found  = false
+        end
+      end
+    end
+    if _parent_found 
+      _parent_path = @last_nodes[@level]
+      #_parent_rif = @hash_rif[_parent_path]
+      _parent_rif = node_2_rif(_parent_path)
+      @level = @level + 1
+    else
+      _parent_rif = 'root'
+      _sep = ''
+      _value = _path
+    end
+
+     #@hash_rif[_path]= _rif
+     @last_nodes[@level] = _path
+     _background = conf('color.background')
+
+      if _sep.length == 0
+        _image = @image_class
+      elsif _sep.include?('#')
+        _image = @image_def
+      elsif _sep.include?('::')
+        _image = @image_def_class
+      end
+
+     @doc_tree.insert('end', _parent_rif ,_rif, {
+           'text' =>  _value ,
+           'helptext' => _path,
+           'deltax'=>-1,
+           'image'=>_image
+         }
+       )
+      @level = @level + 1
+  end
+
+  def raise_doc_code(_context)
+    if @docFrame
+      @docFrame.tkText.delete('1.0','end')
+    else
+      _height = 140
+      _width = 550
+      _context.xdoc =  TkWinfo.screenwidth(@arcadia.layout.root)/2  if !_context.xdoc 
+      _context.ydoc =  TkWinfo.screenheight(@arcadia.layout.root)/2  if !_context.ydoc 
+      _x = _context.xdoc - _width/2
+      _y = _context.ydoc - _height -20
+      @docFrame = TkDocframe.new(@arcadia.layout.root).place('x'=>_x, 'y'=>_y, 'width'=>_width, 'height'=>_height)
+      do_close = proc{
+         @docFrame.destroy
+         @docFrame = nil
+         Tk.callback_break
+      }
+      @docFrame.on_close = do_close
+      @docFrame.tkText.bind_append('KeyPress'){|e|
+        case e.keysym
+          when 'Escape'
+            do_close.call
+          end
+       }
+       @docFrame.tkText.font(conf('font'))
+       @docFrame.tkText.foreground(conf('color.foreground'))
+       @docFrame.tkText.background(conf('color.background'))
+    end
+    
+    if _context.doc
+      @docFrame.tkText.insert('end', _context.doc.to_s)
+      @docFrame.title(_context.text) if _context.text
+    else
+      MsgContract.instance.out_simple(self, 'nulla di dire !')
+    end
+  end
+
+
+
+  def doc_entry(_entry=nil)
+    _ret = nil
+    if _entry
+      _cmp_doc = "|ruby "+@ri_command+" -T -f plain "+_entry
+      open (_cmp_doc) do |f|
+         _ret = f.readlines 
+      end
+    end
+    _ret
+  end
+  
+  def doc(_context)
+    begin
+      _options = "--line="+_context.line+" --column="+_context.col
+      _cmp_s = "|ruby " + @doc_command +" --use-method-analyzer "+_options +" " +_context.file
+      _ret = nil
+      _doc = nil
+      open(_cmp_s,"r") do
+        |f|
+        _doc = f.readlines.collect!{| line | line.chomp}.to_s.strip
+      end
+      if _doc.length > 0
+        _context.text = _doc.to_s
+        _ret = doc_entry(_context.text)
+      end
+      _ret
+  
+    rescue Exception => e
+      _msg = e.to_s + "\n"
+      e.backtrace.each{|line| _msg = _msg + line + "\n"}
+      MsgContract.instance.out_error(self, _msg)
+    end
+  end
+  
+end
+
+class TkDocframe < TkFloatTitledFrame
+  attr_reader :tkText
+  def initialize(parent=nil, *args)
+    super(parent)
+    @tkText = TkText.new(self.frame, 
+        'wrap'=>'none',
+        'relief'=>'groove'
+    ){|j|
+      TkScrollbar.new(j){|s|
+        width 8
+        command proc{|*args| j.yview(*args)}
+        j.yscrollcommand proc{|first,last| s.set first,last}
+      }.pack('side'=>'right', 'fill'=>'y')
+    }.place('x'=>0, 'y'=>0, 'relheight'=> 1, 'relwidth'=> 1)
+    
+  end
+end