arcadia 0.4.0 → 0.5.0

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: arcadia
 version: !ruby/object:Gem::Version 
-  version: 0.4.0
+  version: 0.5.0
 platform: ruby
 authors: 
 - Antonio Galeone
@@ -9,18 +9,9 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-07-29 00:00:00 +02:00
+date: 2008-08-31 00:00:00 +02:00
 default_executable: 
 dependencies: 
-- !ruby/object:Gem::Dependency 
-  name: rcodetools
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Requirement 
-    requirements: 
-    - - ">="
-      - !ruby/object:Gem::Version 
-        version: 0.5.0.0
-    version: 
 - !ruby/object:Gem::Dependency 
   name: ruby-debug
   version_requirement: 
@@ -76,9 +67,6 @@ files:
 - ext/ae-rad/ae-rad-palette.rb
 - ext/ae-rad/ae-rad.conf
 - ext/ae-rad/ae-rad.rb
-- ext/ae-complete-code
-- ext/ae-complete-code/ae-complete-code.conf
-- ext/ae-complete-code/ae-complete-code.rb
 - ext/ae-shell
 - ext/ae-shell/sh.rb
 - ext/ae-shell/ae-shell.conf
@@ -86,26 +74,15 @@ files:
 - ext/ae-output
 - ext/ae-output/ae-output.rb
 - ext/ae-output/ae-output.conf
-- ext/ae-output-event
-- ext/ae-output-event/ae-output-event.conf
 - ext/ae-file-history
 - ext/ae-file-history/ae-file-history.rb
 - ext/ae-file-history/ae-file-history.conf
-- ext/ae-doc-code
-- ext/ae-doc-code/ae-doc-code.rb
-- ext/ae-doc-code/ae-doc-code.conf
-- ext/ae-event-log
-- ext/ae-event-log/ae-event-log.rb
-- ext/ae-event-log/ae-event-log.conf
 - ext/ae-ruby-debug
 - ext/ae-ruby-debug/ae-ruby-debug.conf
 - ext/ae-ruby-debug/ae-ruby-debug.rb
 - ext/ae-search-in-files
 - ext/ae-search-in-files/ae-search-in-files.conf
 - ext/ae-search-in-files/ae-search-in-files.rb
-- ext/ae-flag
-- ext/ae-flag/ae-flag.conf
-- ext/ae-flag/ae-flag.rb
 - tcl/BWidget-1.8.0
 - tcl/BWidget-1.8.0/scrollw.tcl
 - tcl/BWidget-1.8.0/dropsite.tcl

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

@@ -1,6 +0,0 @@
-name=complete_code
-labels=Complete code
-frames=1.0
-active=yes
-require=ext/ae-complete-code/ae-complete-code
-class=CompleteCode

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

@@ -1,74 +0,0 @@
-#
-#   ae-complete-code.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-class CompleteCode < ArcadiaExt
-	def on_after_build(_event) 
-	  @complete_command=full_command('rct-complete')
-	  @doc_command=full_command('rct-doc')
-	  @ri_command="ri -T -f plain"
-	  @finder_command="rct-meth-args -n"
-	  if @complete_command !=nil #system(@rct_complete+" "+__FILE__)
-    		Arcadia.attach_listener(self, CompleteCodeEvent)
-    else
-      Arcadia.console(self, 'msg'=>"Warning: Extension ae-complete-code depend upon rct-complete(rcodetools) command (install it or update system path!)", 'level'=>'error')
-   		 #Arcadia.new_error_msg(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 on_complete_code(_event)
-	  if _event.file
-	    _event.add_result(self,'candidates'=>candidates(_event.file, _event.row, _event.col))
-	  end
-	end
-		
-  def enance(_file, line)
-  
-  end
-
-  def candidates(_file, _line, _col)
-		begin
-		  _options = "--completion-class-info --dev --fork --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
-          Arcadia.console(self, 'msg'=>"Syntax error in current source", 'level'=>'error')
-	     		 #Arcadia.new_error_msg(self, "Syntax error in current source")
-        end
-      end
-      _ret
-  		rescue Exception => e
-        Arcadia.console(self, 'msg'=>e.to_s, 'level'=>'error')
-  			 #Arcadia.new_error_msg(self, e.to_s)
- 	  end
-  end
-  
-end
-

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

@@ -1,15 +0,0 @@
-name=doc_code
-labels=Doc
-frames=1.1
-active=yes
-require=ext/ae-doc-code/ae-doc-code
-class=DocCode
-
-font=courier 12
-font.bold=courier 12 bold
-freebsd::font=courier 12
-freebsd::font.bold=courier 12 bold
-win::font={Courier New} 9
-win::font.bold={Courier New} 9 bold 
-color.background=#ffffc1
-color.foreground=#408080

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

@@ -1,300 +0,0 @@
-#
-#   ae-doc-code.rb - Arcadia Ruby ide
-#   by Antonio Galeone <antonio-galeone@rubyforge.org>
-#
-
-
-class DocCode < ArcadiaExt
-  def on_after_build(_event) 
-    @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__)
-      Arcadia.attach_listener(self, DocCodeEvent)
-      #ArcadiaContractListener.new(self, EditorContract, :do_editor_event)
-    else
-      Arcadia.console(self, 'msg'=>"Warning: Extension ae-doc-code depend upon ri command!", 'level'=>'error')
-      #Arcadia.new_error_msg(self, "Warning: Extension ae-doc-code depend upon ri command!")
-    end
-    if @doc_command == nil #system(@rct_complete+" "+__FILE__)
-      Arcadia.console(self, 'msg'=>"Warning: Extension ae-doc-code depend upon rct-doc command!", 'level'=>'error')
-      #Arcadia.new_error_msg(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 on_doc_code(_event)
-    if _event.file && @doc_command != nil 
-      res = _event.add_result(self)
-      res.doc = doc(_event)
-    elsif _event.doc_entry
-      _event.add_result(self, 'doc'=>doc_entry(_event.doc_entry),'title'=>_event.doc_entry)
-    end
-  end
-
-  def on_after_doc_code(_event)
-    res = _event.results[0]
-    if res !=nil &&  res.doc != nil &&  res.doc.length >0    		
-      raise_doc_code(_event)
-    end
-  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
-#      _x = 0 if _x < 0
-#      _y = 0 if _y < 0
-#      @docFrame = TkDocframe.new(@arcadia.layout.root).place('x'=>_x, 'y'=>_y, 'width'=>_width, 'height'=>_height)
-      
-      @docFrame = TkDocframe.new(self.frame)
-#      do_close = proc{
-#         @docFrame.tframe.destroy
-#         @docFrame = nil
-#         Tk.callback_break
-#      }
-#      @docFrame.tframe.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
-    res = _context.results[0]
-    if res.doc
-      @docFrame.tkText.insert('end', res.doc.to_s)
-      @docFrame.tframe.title(res.title) if res.title
-    else
-      Arcadia.console(self,'msg'=>'???')
-      #Arcadia.new_msg(self, 'nulla di dire !')
-    end
-  end
-
-  def doc_entry(_entry=nil)
-    _ret = nil
-    if _entry
-      _cmp_doc = "|ruby #{@ri_command} -T -f plain #{_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.row+" --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.results[0].title = _doc.to_s if _context.results[0]
-        _ret = doc_entry(_context.results[0].title)
-      end
-      _ret
-  
-    rescue Exception => e
-      _msg = e.to_s + "\n"
-      e.backtrace.each{|line| _msg = _msg + line + "\n"}
-      Arcadia.console(self, 'msg'=>_msg, 'level'=>'error')
-      #Arcadia.new_error_msg(self, _msg)
-    end
-  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)
-#           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)
-#           end
-#         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, Arcadia.style('scrollbar')){|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
-end
-
-class TkDocframe
-  attr_reader :tkText
-  attr_reader :tframe
-  def initialize(_tframe)
-    @tframe = _tframe
-    @tkText = TkText.new(_tframe.hinner_frame, 
-        'wrap'=>'none',
-        'relief'=>'groove'
-    ){|j|
-      TkScrollbar.new(j, Arcadia.style('scrollbar')){|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