arcadia 0.7.0 → 0.8.0

data/ext/ae-search-in-files/ext/ack-in-files/ack-in-files.rb

@@ -0,0 +1,80 @@
+#
+#   ack-in-files.rb - Arcadia Ruby ide
+#   by Roger D. Pack
+#
+
+class AckInFilesService < ArcadiaExt
+  def on_before_build(_event)
+    Arcadia.attach_listener(AckInFilesListener.new(self),AckInFilesEvent)
+  end
+end
+
+class AckInFilesListener <  SearchInFilesListener
+  def initialize(_service)
+    @service = _service
+    create_find 'Ack in files'
+  end
+
+  def on_before_ack_in_files(_event)
+    on_before_search_in_files(_event)
+  end
+  
+   def do_find # overwrite
+    return if @find.e_what.text.strip.length == 0  || @find.e_filter.text.strip.length == 0  || @find.e_dir.text.strip.length == 0
+    @find.hide
+    if !defined?(@search_output)
+      @search_output = SearchOutput.new(@service)
+    else
+      @service.frame.show
+    end
+    begin
+      # unfortunately, it uses regex instead of glob. Oh well.
+      # ack -i ignore case
+      #   -H, --with-filename   Print the filename for each match
+      #  -G REGEX              Only search files that match REGEX
+      # ack -i -G .tcl Event
+      # ack -i -G .rb "Ack" "c:/dev/ruby/arcadia"
+      command = %!ack -i -G "#{@find.e_filter.text.gsub('*', '.*')}" "#{@find.e_what.text}" "#{@find.e_dir.text}"!
+
+      _search_title = 'ack result for : "'+@find.e_what.text+'" in :"'+@find.e_dir.text+'"'+' ['+@find.e_filter.text+'] ' + command
+      _filter = @find.e_dir.text+'/**/'+@find.e_filter.text
+      _node = @search_output.new_result(_search_title, '')
+      progress_stop=false
+      @progress_bar = TkProgressframe.new(@service.arcadia.layout.root, 2)
+      @progress_bar.title('Running')
+
+      answer = `#{command}`
+      answer_lines = answer.split("\n")
+      @progress_bar.destroy # destroy the old one
+      @progress_bar = TkProgressframe.new(@service.arcadia.layout.root, answer_lines.length)		  
+      @progress_bar.title('Parsing')
+      @progress_bar.on_cancel=proc{progress_stop=true}
+
+      # a now looks like
+      # "C:/dev/ruby/arcadia/conf/arcadia.res.rb:184:mzWCUixPU0sEqgO/8AoIsQbpkAbCQWpVeLJUpzhXd6v9eWZV1G1DosCBogAO"
+      # ...
+      answer_lines.each{|line|
+        # we'll assume no :number: in the path...if not it will mess us right up
+        line =~ /(.*):(\d+):(.*)/
+        _filename = $1
+        _lineno = $2
+        _text = $3
+        @search_output.add_result(_node, _filename, _lineno, _text)
+        @progress_bar.progress
+        break if progress_stop # early out
+      }
+      if answer_lines == []
+        @search_output.new_result('None found', '')
+      end
+      
+    rescue Exception => e
+      Arcadia.console(self, 'msg'=>e.message + e.backtrace.inspect, 'level'=>'error')
+      #Arcadia.new_error_msg(self, e.message)
+    ensure
+      @progress_bar.destroy if @progress_bar
+    end
+
+  end
+  
+  
+end

data/ext/ae-shell/ae-shell.conf

@@ -3,9 +3,12 @@ active=yes
 require=ext/ae-shell/ae-shell
 class=Shell
 
+win32::gems=win32-process,ruby-wmi
 
 #:::::::::::::::: output  ::::::::::::::::::::::<begin>
 ruby=ruby
 freebsd::ruby=ruby
 win32::ruby=ruby
-#:::::::::::::::: output  ::::::::::::::::::::::<end>
+win32::rubyw=rubyw
+rubyw=rubyw
+#:::::::::::::::: output  ::::::::::::::::::::::<end>

data/ext/ae-shell/ae-shell.rb

@@ -16,50 +16,89 @@ class Shell < ArcadiaExt
   def on_build(_event)
     @run_threads = Array.new
   end
-  
+
   def on_system_exec(_event)
     begin
-#    _cmd_ = "|ruby #{File.dirname(__FILE__)}/sh.rb #{_event.command} 2>&1"
-#    p _cmd_
-#    Thread.new do
-#      open(_cmd_,"r"){|f|
-#          Arcadia.new_debug_msg(self, f.read)
-#      }
-#    end
-    _cmd_ = "#{_event.command}"
-    if is_windows?
-      io = IO.popen(_cmd_)
-    else
-      Process.fork{
-        open(_cmd_,"r"){|f|
-          Arcadia.console(self,'msg'=>f.read, 'level'=>'debug')
-          #Arcadia.new_debug_msg(self, f.read)
+      #    _cmd_ = "|ruby #{File.dirname(__FILE__)}/sh.rb #{_event.command} 2>&1"
+      #    p _cmd_
+      #    Thread.new do
+      #      open(_cmd_,"r"){|f|
+      #          Arcadia.new_debug_msg(self, f.read)
+      #      }
+      #    end
+      _cmd_ = "#{_event.command}"
+      if is_windows?
+        io = IO.popen(_cmd_)
+        Arcadia.console(self,'msg'=>io.read, 'level'=>'debug')
+      else
+        Process.fork{
+          open(_cmd_,"r"){|f|
+            Arcadia.console(self,'msg'=>f.read, 'level'=>'debug')
+            #Arcadia.new_debug_msg(self, f.read)
+          }
         }
-      }
-    end
+      end
     rescue Exception => e
       Arcadia.console(self,'msg'=>e, 'level'=>'debug')
       #Arcadia.new_debug_msg(self, e)
     end
-
   end
-  
+
+  @@next_number = 0
   def on_run_ruby_file(_event)
     _filename = _event.file
     _filename = @arcadia['pers']['run.file.last'] if _filename == "*LAST"
     if _filename && File.exists?(_filename)
       begin
+        Arcadia.console(self,'msg'=>"Running #{_filename}...", 'level'=>'debug') # info?
+        start_time = Time.now
         @arcadia['pers']['run.file.last']=_filename if _event.persistent
-        _cmd_ = "|"+@arcadia['conf']['shell.ruby']+" "+_filename+" 2>&1"
-        open(_cmd_,"r"){|f|
-           _readed = f.read
-           Arcadia.console(self,'msg'=>_readed, 'level'=>'debug')
-           #Arcadia.new_debug_msg(self, _readed)
-           _event.add_result(self, 'output'=>_readed)
-        }
+        executable = @arcadia['conf']['shell.ruby']
+        executable = @arcadia['conf']['shell.rubyw'] if is_windows?
+        _cmd_ = "#{executable} -C'#{File.dirname(_filename)}' '#{_filename}'"
+        
+        if is_windows?
+          # use win32-process gem to startup a child process [not sure if linux needs something like this, too]
+          require 'win32/process'
+          require 'ruby-wmi'
+          output_file_name = "out_#{@@next_number += 1}_#{Process.pid}.txt"
+          output = File.open(output_file_name, 'wb')
+          child = Process.create :command_line => _cmd_,  :startup_info => {:stdout => output, :stderr => output}
+          timer=nil
+          procy = proc {
+            still_alive = WMI::Win32_Process.find(:first, :conditions => {:ProcessId => child.process_id})
+            if(!still_alive)
+              output.close
+              timer.stop
+              File.open(output_file_name, 'r') do |f|
+                _readed = f.read
+                _readed.strip!
+                _readed += "\n" + "Done with #{_filename} in #{Time.now - start_time}s"
+                Arcadia.console(self,'msg'=>_readed, 'level'=>'debug')
+                _event.add_result(self, 'output'=>_readed)
+              end
+              File.delete output_file_name
+            end
+          }
+
+          timer=TkAfter.new(1000,-1,procy) # -1 = repeating every 1000ms...
+          timer.start
+        else
+          _cmd_ = "|#{_cmd_} 2>&1"
+          Thread.new {
+            begin
+              open(_cmd_, "r"){|f|
+                _readed = f.read
+                Arcadia.console(self,'msg'=>_readed, 'level'=>'debug')
+                _event.add_result(self, 'output'=>_readed)
+              }
+            rescue Exception => e
+              Arcadia.console(self,'msg'=>e.to_s, 'level'=>'debug')
+            end
+          }
+        end
       rescue Exception => e
-        Arcadia.console(self,'msg'=>e, 'level'=>'debug')
-        #Arcadia.new_debug_msg(self, e)
+        Arcadia.console(self,'msg'=>e.to_s, 'level'=>'debug')
       end
     end
   end
@@ -69,17 +108,17 @@ class Shell < ArcadiaExt
     (RUBY_PLATFORM.include?('mswin32'))?_cmd="cmd":_cmd='sh'
     if is_windows?
       Thread.new{
-        Arcadia.console(self,'msg'=>'begin', 'level'=>'debug')      
+        Arcadia.console(self,'msg'=>'begin', 'level'=>'debug')
         #Arcadia.new_debug_msg(self, 'inizio')
         @io = IO.popen(_cmd,'r+')
         @io.puts(command)
         result = ''
         while line = @io.gets
-           result << line
-        end 
+          result << line
+        end
         #Arcadia.new_debug_msg(self, result)
         Arcadia.console(self,'msg'=>result, 'level'=>'debug')
-        
+
       }
     else
       Process.fork{
@@ -91,18 +130,14 @@ class Shell < ArcadiaExt
     end
   end
 
-
-
   def is_windows?
-    !(RUBY_PLATFORM =~ /(win|w)32$/).nil?
-    #RUBY_PLATFORM.include?('win')
+    RUBY_PLATFORM =~ /mingw|mswin/
   end
 
-
   def run_last
     run($arcadia['pers']['run.file.last'])
   end
-  
+
   def run_current
     current_editor = $arcadia['editor'].raised
     run(current_editor.file) if current_editor
@@ -125,15 +160,15 @@ class Shell < ArcadiaExt
           _cmd_ = "|"+$arcadia['conf']['shell.ruby']+" "+_filename+" 2>&1"
           #  Arcadia.new_debug_msg(self, _cmd_)
           @cmd = open(_cmd_,"r"){|f|
-              Arcadia.console(self, 'msg'=>f.read ,'level'=>'debug')          
-              #Arcadia.new_debug_msg(self, f.read)
+            Arcadia.console(self, 'msg'=>f.read ,'level'=>'debug')
+            #Arcadia.new_debug_msg(self, f.read)
           }
         end
       rescue Exception => e
-        Arcadia.console(self, 'msg'=>e ,'level'=>'debug')          
+        Arcadia.console(self, 'msg'=>e ,'level'=>'debug')
         #Arcadia.new_debug_msg(self, e)
       end
     end
   end
 
-end
+end

data/ext/test-shutdown-after-startup/test-shutdown-after-startup.conf

@@ -0,0 +1,4 @@
+name=shutdown early
+active=yes
+require=ext/test-shutdown-after-startup/test-shutdown-after-startup.rb
+class=ShutdownEarly

data/ext/test-shutdown-after-startup/test-shutdown-after-startup.rb

@@ -0,0 +1,20 @@
+#
+# an extension that triggers a shutdown after startup--should you want
+# to profile the startup speed, for example
+#
+
+class ShutdownEarly < ArcadiaExt
+  def on_after_build(_event)
+    if File.exist? 'shutdown_immediately'
+      # TODO a different call like "all set up"
+      cancel = proc {
+        puts 'exit'
+        Arcadia.broadcast_event(QuitEvent.new(self))
+      }
+
+      cancel.call
+      timer=TkAfter.new(10,-1,proc {cancel.call}) # 10ms, loop = -1
+      timer.start
+    end
+  end
+end

data/lib/a-commons.rb

@@ -103,6 +103,18 @@ class FixedFrameWrapper < AbstractFrameWrapper
   def raised?
     Arcadia.layout.raised?(@domain, @name)
   end
+
+  def maximized?
+    Arcadia.layout.domain(@domain) && Arcadia.layout.domain(@domain)['root'].maximized?
+  end
+
+  def maximize
+    Arcadia.layout.domain(@domain)['root'].maximize
+  end
+
+  def resize
+    Arcadia.layout.domain(@domain)['root'].resize
+  end
   
   def free
     Arcadia.layout.unregister_panel(self)
@@ -178,6 +190,7 @@ class ArcadiaExt
   attr_reader :arcadia
   def initialize(_arcadia, _name=nil)
     @arcadia = _arcadia
+    @arcadia.register(self)
     Arcadia.attach_listener(self, BuildEvent)
     Arcadia.attach_listener(self, ExitQueryEvent)
     Arcadia.attach_listener(self, FinalizeEvent)
@@ -192,6 +205,7 @@ class ArcadiaExt
     #ObjectSpace.define_finalizer(self, self.method(:finalize).to_proc)
   end
   
+  
   def conf_array(_name)
     res = []
     value = @arcadia['conf'][_name]
@@ -199,11 +213,20 @@ class ArcadiaExt
     res
   end
   
-  def frame(_n=0)
-	  if @frames[_n] == nil && @frames_points[_n]
+  def frame_def_visible?(_n=0)
+    @arcadia.layout.domains.include?(@frames_points[_n])
+    #@frames_points[_n] != '-1.-1'
+  end
+  
+  def frame_visible?(_n=0)
+    @frames[_n] != nil && @frames[_n].hinner_frame && TkWinfo.mapped?(@frames[_n].hinner_frame)
+  end
+  
+  def frame(_n=0,create_if_not_exist=true)
+	  if @frames[_n] == nil && @frames_points[_n] && create_if_not_exist
 	    (@frames_labels[_n].nil?)? _label = @name : _label = @frames_labels[_n]
 	    (@frames_names[_n].nil?)? _name = @name : _name = @frames_names[_n]
-	    @frames[_n] =  FixedFrameWrapper.new(@name, @frames_points[_n], _name, _label)
+	    @frames[_n] = FixedFrameWrapper.new(@name, @frames_points[_n], _name, _label)
 	  end
     return @frames[_n]
   end
@@ -230,6 +253,19 @@ class ArcadiaExt
     end
   end
   
+  def maximized?(_n=0)
+    ret= false
+    ret=@frames[_n].maximized? if @frames[_n]
+    ret
+  end
+
+  def maximize(_n=0)
+    @frames[_n].maximize if @frames[_n]
+  end
+  
+  def resize(_n=0)
+    @frames[_n].resize if @frames[_n]
+  end
 end
 
 
@@ -282,6 +318,10 @@ class Event
     @results = Array.new
   end
   
+  def add_finalize_callback(_proc)
+    ObjectSpace.define_finalizer(self, _proc) 
+  end
+  
   def add_result(_sender, _args=nil)
     if self.class::Result
       res = self.class::Result.new(_sender, _args)
@@ -308,7 +348,7 @@ module EventBus #(or SourceEvent)
     #before fase
     event_classes.each do |_c|
       _process_fase(_c, _event, 'before')
-      break if _event.is_breaked?
+      break if _event.is_breaked? # not responding to this means "you need to pass in an instance, not a class name
     end unless _event.is_breaked?
     # fase
     event_classes.each do |_c|
@@ -357,14 +397,16 @@ module EventBus #(or SourceEvent)
       sub_method_name = _method_name(_event.class, suf)
       @@listeners[_class].each do|_listener|
          if _listener.respond_to?(sub_method_name)
-       _listener.send(sub_method_name, _event)
+           _listener.send(sub_method_name, _event)
          elsif _listener.respond_to?(method_name)
            _listener.send(method_name, _event)
          end
+         break if _event.is_breaked?
       end
     else
       @@listeners[_class].each do|_listener|
         _listener.send(method_name, _event) if _listener.respond_to?(method_name)
+        break if _event.is_breaked?
       end
     end
   end
@@ -418,7 +460,7 @@ module Autils
 	def full_in_path_command(_command=nil)
 	  return nil if _command.nil?
 		_ret = nil
-		RUBY_PLATFORM.include?('win32') ? _sep = ';':_sep=':'
+		RUBY_PLATFORM =~ /win32|mingw/ ? _sep = ';':_sep=':'
 		ENV['PATH'].split(_sep).each{|_path|
 			_file = File.join(_path, _command)
 			if FileTest.exist?(_file)
@@ -429,8 +471,7 @@ module Autils
 	end
 
   def is_windows?
-    !(RUBY_PLATFORM =~ /(win|w)32$/).nil?
-    #RUBY_PLATFORM.include?('win')
+    RUBY_PLATFORM =~ /mingw|mswin/
   end
 	
 end
@@ -455,6 +496,16 @@ module Configurable
                 _line = ''
               end
             end
+            var_ruby_version = _line.split(':@:')
+            if var_ruby_version.length > 1
+              version = var_ruby_version[0]
+              if (RUBY_VERSION[0..version.length-1]==version)
+                _line = var_ruby_version[1]
+              else
+                _line = ''
+              end
+            end
+            
             var = _line.split('=')
             if var.length > 1
               _value = var[1].strip
@@ -470,6 +521,8 @@ module Configurable
         f.close unless f.nil?
       end
       return r_hash      
+    else
+      puts 'warning--file does not exist', _property_file
     end
   end
   
@@ -594,7 +647,7 @@ class Application
 
   def initialize(_ap=ApplicationParams.new)
     @@instance = self
-    eval('$'+_ap.name+'=self')
+    eval('$'+_ap.name+'=self') # set $arcadia to this instance
     publish('applicationParams', _ap)
     publish(_ap.name,self)
     @first_run = false
@@ -602,7 +655,9 @@ class Application
     if !File.exists?(self['applicationParams'].persistent_file)
       File.new(self['applicationParams'].persistent_file, File::CREAT).close
     end
+    # read in the settings'
     publish('conf', properties_file2hash(self['applicationParams'].config_file)) if self['applicationParams'].config_file
+    publish('origin_conf', Hash.new.update(self['conf'])) if self['conf']
     publish('pers', properties_file2hash(self['applicationParams'].persistent_file)) if self['applicationParams'].persistent_file
     yield(self) if block_given?
   end
@@ -619,8 +674,8 @@ class Application
 	  self['conf'][_property]
   end
   
-  def sys_info
-    "[Platform = #{RUBY_PLATFORM}] [Ruby version = #{RUBY_VERSION}]"
+  def Application.sys_info
+    "[Platform = #{RUBY_PLATFORM}]\n[Ruby version = #{RUBY_VERSION}]"
   end
   
   def Application.conf_group(_group)
@@ -639,6 +694,18 @@ class Application
     @@conf_groups[_group]
   end
 
+  def Application.del_conf_group(_group)
+      glen=_group.length
+      @@instance['conf'].keys.sort.each{|k|
+        if k[0..glen] == "#{_group}."
+          @@instance['conf'].delete(k)
+        end
+      }
+  end
+
+  def Application.del_conf(_k)
+    @@instance['conf'].delete(_k)
+  end
 
   def prepare
   end
@@ -652,9 +719,37 @@ class Application
     end
   end
 
+  def local_file_config
+    File.join(local_dir, File.basename(self['applicationParams'].config_file))
+  end
+  
+  def update_local_config
+      # local_dir is ~/arcadia
+      if FileTest.exist?(local_file_config)
+        if FileTest.writable?(local_dir)
+          f = File.new(local_file_config, "w")
+          begin
+            if f
+              p = self['conf']
+              if p
+                p.keys.sort.each{|key|
+                  if self['origin_conf'][key] == self['conf'][key]
+                    f.syswrite('#'+key+'='+self['conf'][key]+"\n") # write it as a comment since it isn't a real change
+                  else
+                    f.syswrite(key+'='+self['conf'][key]+"\n")
+                  end
+                }
+              end
+            end
+          ensure
+            f.close unless f.nil?
+          end
+        end
+      end
+  end
+  
   # this method load config file from local directory for personalizations
   def load_local_config(_create_if_not_exist=true)
-      local_file_config = File.join(local_dir,File.basename(self['applicationParams'].config_file))
       if FileTest.exist?(local_file_config)
         self['conf'].update(self.properties_file2hash(local_file_config))
       elsif _create_if_not_exist
@@ -696,13 +791,14 @@ class Application
   end
   
   def local_dir
-    _local_dir = File.join(ENV["HOME"],'.'+self['applicationParams'].name)  if ENV["HOME"] 
+    home = File.expand_path '~'
+    _local_dir = File.join(home,'.'+self['applicationParams'].name) if home
     if _local_dir && !File.exist?(_local_dir)
-      if FileTest.exist?(ENV["HOME"])
+      if FileTest.exist?(home)
         Dir.mkdir(_local_dir)
         @first_run = true
       else
-        msg = "Locad dir "+'"'+ENV["HOME"]+'"'+" must be writable!"
+        msg = "Local dir "+'"'+home+'"'+" must be writable!"
         Arcadia.dialog(self, 'type'=>'ok', 'title' => "(#{self['applicationParams'].name})", 'msg' => msg, 'level'=>'error')
         exit
       end
@@ -722,19 +818,19 @@ class Application
     if @objs[_name]
       return @objs[_name]
     else
-      raise RuntimeError, "resurce '"+_name+"' unavabled ", caller
+      return nil
+      #raise RuntimeError, "resurce '"+_name+"' unavabled ", caller
     end
   end
 
   def []=(_name, _value)
-    if @objs[_name]
-      @objs[_name] = _value
-    end
+    @objs[_name] = _value
+#    if @objs[_name]
+#      @objs[_name] = _value
+#    end
   end
 
 
   def run
   end
-end
-
-
+end