redcar 0.3.2dev → 0.3.3

data/lib/openssl/test/ut_eof.rb

@@ -0,0 +1,128 @@
+require 'test/unit'
+
+module TestEOF
+  def test_eof_0
+    open_file("") {|f|
+      assert_equal("", f.read(0))
+      assert_equal("", f.read(0))
+      assert_equal("", f.read)
+      assert_nil(f.read(0))
+      assert_nil(f.read(0))
+    }
+    open_file("") {|f|
+      assert_nil(f.read(1))
+      assert_equal("", f.read)
+      assert_nil(f.read(1))
+    }
+    open_file("") {|f|
+      s = "x"
+      assert_equal("", f.read(nil, s))
+      assert_equal("", s)
+    }
+    open_file("") {|f|
+      s = "x"
+      assert_nil(f.read(10, s))
+      assert_equal("", s)
+    }
+  end
+
+  def test_eof_0_rw
+    return unless respond_to? :open_file_rw
+    open_file_rw("") {|f|
+      assert_equal("", f.read)
+      assert_equal("", f.read)
+      assert_equal(0, f.syswrite(""))
+      assert_equal("", f.read)
+    }
+  end
+
+  def test_eof_1
+    open_file("a") {|f|
+      assert_equal("", f.read(0))
+      assert_equal("a", f.read(1))
+      assert_equal("" , f.read(0))
+      assert_equal("" , f.read(0))
+      assert_equal("", f.read)
+      assert_nil(f.read(0))
+      assert_nil(f.read(0))
+    }
+    open_file("a") {|f|
+      assert_equal("a", f.read(1))
+      assert_nil(f.read(1))
+    }
+    open_file("a") {|f|
+      assert_equal("a", f.read(2))
+      assert_nil(f.read(1))
+      assert_equal("", f.read)
+      assert_nil(f.read(1))
+    }
+    open_file("a") {|f|
+      assert_equal("a", f.read)
+      assert_nil(f.read(1))
+      assert_equal("", f.read)
+      assert_nil(f.read(1))
+    }
+    open_file("a") {|f|
+      assert_equal("a", f.read(2))
+      assert_equal("", f.read)
+      assert_equal("", f.read)
+    }
+    open_file("a") {|f|
+      assert_equal("a", f.read)
+      assert_nil(f.read(0))
+    }
+    open_file("a") {|f|
+      s = "x"
+      assert_equal("a", f.read(nil, s))
+      assert_equal("a", s)
+    }
+    open_file("a") {|f|
+      s = "x"
+      assert_equal("a", f.read(10, s))
+      assert_equal("a", s)
+    }
+  end
+
+  def test_eof_2
+    open_file("") {|f|
+      assert_equal("", f.read)
+      assert(f.eof?)
+    }
+  end
+
+  def test_eof_3
+    open_file("") {|f|
+      assert(f.eof?)
+    }
+  end
+
+  module Seek
+    def open_file_seek(content, pos)
+      open_file(content) do |f|
+        f.seek(pos)
+        yield f
+      end
+    end
+
+    def test_eof_0_seek
+      open_file_seek("", 10) {|f|
+        assert_equal(10, f.pos)
+        assert_equal("", f.read(0))
+        assert_equal("", f.read)
+        assert_nil(f.read(0))
+        assert_equal("", f.read)
+      }
+    end
+
+    def test_eof_1_seek
+      open_file_seek("a", 10) {|f|
+        assert_equal("", f.read)
+        assert_equal("", f.read)
+      }
+      open_file_seek("a", 1) {|f|
+        assert_equal("", f.read)
+        assert_equal("", f.read)
+      }
+    end
+  end
+end

data/lib/redcar.rb

@@ -1,28 +1,154 @@
 
-$:.push File.join(File.dirname(__FILE__))
+$:.push File.expand_path(File.join(File.dirname(__FILE__)))
+
+require 'redcar/usage'
 
 require 'rbconfig'
 
+require 'redcar/ruby_extensions'
+require 'redcar/instance_exec'
 require 'redcar/usage'
 
+require 'forwardable'
+require 'yaml'
+
+# ## Loading and Initialization
+#
+# Every feature in Redcar is written as a plugin. This module contains a few
+# methods to bootstrap the plugins by loading the PluginManager.
+#
+# Once loaded, bin/redcar will start the gui pump, which will run
+# Redcar.gui.start. This starts the GUI library's event loop and hands over
+# control to the GUI.
+#
+# ## Application
+#
+# The top class of Redcar is a {Redcar::Application}, which handles the creation
+# of Redcar::Windows. {Redcar::Application} is a good place to start
+# to see how the Redcar models are created.
+#
+# {Redcar::ApplicationSWT} is the start point for the SWT GUI, which listens
+# for events from the {Redcar::Application} model and reflects them in the GUI.
+#
+# This structure of a model and a controller that listens to it is repeated for
+# each part of Redcar reflected in the GUI.
+#
+#   * {Redcar::Window} has {Redcar::ApplicationSWT::Window}
+#   * {Redcar::Notebook} has {Redcar::ApplicationSWT::Notebook}
+#   * {Redcar::EditTab} has {Redcar::EditViewSWT::EditTab}
+#
+# and so on.
 module Redcar
-  VERSION         = '0.3.2dev'
+  VERSION         = '0.3.3'
   VERSION_MAJOR   = 0
   VERSION_MINOR   = 3
-  VERSION_RELEASE = 2
+  VERSION_RELEASE = 3
+  
+  ENVIRONMENTS = [:user, :debug, :test]
+
+  def self.environment=(env)
+    unless ENVIRONMENTS.include?(env)
+      raise "environment must be one of #{ENVIRONMENTS.inspect}"
+    end
+    @environment = env
+  end
+  
+  def self.environment
+    @environment
+  end
 
   def self.ensure_jruby
-    if Config::CONFIG["RUBY_INSTALL_NAME"] == "jruby"
-      boot
-    else
+    if Config::CONFIG["RUBY_INSTALL_NAME"] != "jruby"
       require 'redcar/runner'
       runner = Redcar::Runner.new
       runner.spin_up
     end
   end
+
+  def self.root
+    File.expand_path(File.join(File.dirname(__FILE__), ".."))
+  end
+
+  def self.plugin_manager
+    @plugin_manager ||= begin
+      m = PluginManager.new
+      m.add_plugin_source(File.join(root, "plugins"))
+      m.add_plugin_source(File.join(user_dir, "plugins"))
+      m
+    end
+  end
+
+  # Tells the plugin manager to load plugins, and prints debug output.
+  def self.load
+    $:.push File.expand_path(File.join(File.dirname(__FILE__), "plugin_manager", "lib"))
+    require 'plugin_manager'
+    
+    $:.push File.expand_path(File.join(File.dirname(__FILE__), "openssl", "lib"))
+    require 'openssl'
+
+    plugin_manager.load
+    if plugin_manager.unreadable_definitions.any?
+      puts "Couldn't read definition files: "
+      puts plugin_manager.unreadable_definitions.map {|d| "  * " + d}
+    end
+    if plugin_manager.plugins_with_errors.any?
+      puts "There was an error loading plugins: "
+      puts plugin_manager.plugins_with_errors.map {|d| "  * " + d.name}
+    end
+    if ENV["PLUGIN_DEBUG"]
+      puts "Loaded plugins:"
+      puts plugin_manager.loaded_plugins.map {|d| "  * " + d.name}
+      puts
+      puts "Unloaded plugins:"
+      puts plugin_manager.unloaded_plugins.map {|d| "  * " + d.name}
+
+    end
+  end
+
+  # Starts the GUI.
+  def self.pump
+    Redcar.gui.start
+  end
+
+  # Platform symbol
+  #
+  # @return [:osx/:windows/:linux]
+  def self.platform
+    case Config::CONFIG["target_os"]
+    when /darwin/
+      :osx
+    when /mswin|mingw/
+      :windows
+    when /linux/
+      :linux
+    end
+  end
+
+  # Platform specific ~/.redcar
+  #
+  # @return [String] expanded path
+  def self.user_dir
+    if platform == :windows
+      if ENV['USERPROFILE'].nil?
+        userdir = "C:/My Documents/.redcar/"
+      else
+        userdir = File.join(ENV['USERPROFILE'], ".redcar")
+      end
+    else
+      userdir = File.join(ENV['HOME'], ".redcar") unless ENV['HOME'].nil?
+    end
+    File.expand_path(userdir)
+  end
   
-  def self.boot
-    require 'redcar/boot'
+  class << self
+    attr_accessor :app
+    attr_reader :gui
+  end
+
+  # Set the application GUI.
+  def self.gui=(gui)
+    raise "can't set gui twice" if @gui
+    @gui = gui
   end
 end
 

data/lib/redcar/installer.rb

@@ -1,10 +1,35 @@
 
-require 'open-uri'
+require 'net/http'
 require 'fileutils'
 
 module Redcar
   class Installer
-  
+  	def initialize
+  	  if ENV['http_proxy']
+  	    proxy = URI.parse(ENV['http_proxy'])
+        @connection = Net::HTTP::Proxy(proxy.host, proxy.port, proxy.user, proxy.password)
+      else
+  	    @connection = Net::HTTP
+      end
+  	end
+  	
+    def associate_with_any_right_click
+      raise 'this is currently only for windows' unless Redcar.platform == :windows  	  
+      require 'rbconfig'
+      require 'win32/registry'
+      # associate it with the current rubyw.exe
+      rubyw_bin = File.join([Config::CONFIG['bindir'], Config::CONFIG['ruby_install_name']]) << 'w' << Config::CONFIG['EXEEXT']
+      rubyw_bin.gsub!('/', '\\') # executable name wants back slashes
+      for type, english_text  in {'*' => 'Open with Redcar', 'Directory' => 'Open with Redcar (dir)'}
+        name = Win32::Registry::HKEY_LOCAL_MACHINE.create "Software\\classes\\#{type}\\shell\\open_with_redcar"
+        name.write_s nil, english_text
+        dir = Win32::Registry::HKEY_LOCAL_MACHINE.create "Software\\classes\\#{type}\\shell\\open_with_redcar\\command"
+        command = %!"#{rubyw_bin}" "#{File.expand_path($0)}" "%1"!
+        dir.write_s nil, command
+      end
+      puts 'Associated.'
+    end
+
   	def install
   	  unless File.writable?(JRUBY_JAR_DIR)
   	    puts "Don't have permission to write to #{JRUBY_JAR_DIR}. Please rerun with sudo."
@@ -38,12 +63,18 @@ module Redcar
     
     JRUBY_JAR_DIR = File.expand_path(File.join(File.dirname(__FILE__), ".."))
     
-    JRUBY = %w(
-      http://jruby.kenai.com/downloads/1.4.0/jruby-complete-1.4.0.jar
-      /jruby/jcodings.jar
-      /jruby/jdom.jar
-      /jruby/joni.jar
-    )
+    JRUBY = [
+      "http://jruby.kenai.com/downloads/1.4.0/jruby-complete-1.4.0.jar",
+      "/jruby/jcodings.jar",
+      "/jruby/jdom.jar",
+      "/jruby/joni.jar"
+    ]
+    
+    JOPENSSL = {
+      "/jruby/bcmail-jdk14-139-#{Redcar::VERSION}.jar" => "lib/openssl/lib/bcmail-jdk14-139.jar",
+      "/jruby/bcprov-jdk14-139-#{Redcar::VERSION}.jar" => "lib/openssl/lib/bcprov-jdk14-139.jar",
+      "/jruby/jopenssl-#{Redcar::VERSION}.jar"         => "lib/openssl/lib/jopenssl.jar",
+    }
 
     REDCAR_JARS = {
       "/java-mateview-#{Redcar::VERSION}.jar" => "plugins/edit_view_swt/vendor/java-mateview.jar"
@@ -54,6 +85,9 @@ module Redcar
       JRUBY.each do |jar_url|
         download(jar_url, File.join(JRUBY_JAR_DIR, File.basename(jar_url)))
       end
+      JOPENSSL.each do |jar_url, relative_path|
+        download(jar_url, File.join(File.dirname(__FILE__), "..", "..", relative_path))
+      end
     end
     
     def grab_common_jars
@@ -90,9 +124,10 @@ module Redcar
         uri = ASSET_HOST + uri
       end
       FileUtils.mkdir_p(File.dirname(path))
-      write_out = open(path, "wb")
-      write_out.write(open(uri).read)
-      write_out.close
+      File.open(path, "wb") do |write_out|
+        write_out.print @connection.get(URI.parse(uri))
+      end
+
       puts "  downloaded #{uri}\n          to #{path}\n"
     end
   end

data/lib/redcar/runner.rb

@@ -20,6 +20,7 @@ module Redcar
       if false
         command = "jruby #{java_args} \"#{bin}\" #{ARGV.join(' ')}"
       else
+        ENV['RUBYOPT'] = nil # disable other native args
         command = "java #{java_args} -cp \"#{jruby_complete}\" org.jruby.Main \"#{bin}\" #{ARGV.join(' ')}"
       end
       exec(command)
@@ -33,4 +34,4 @@ module Redcar
       end
     end
   end
-end
+end

data/lib/redcar/usage.rb

@@ -3,7 +3,7 @@ module Redcar
   
   class Usage
     def version_string
-      str = "Redcar #{Redcar::VERSION} (jruby )"
+      str = "Redcar #{Redcar::VERSION} ( #{RUBY_PLATFORM} )"
       puts str
     end
     
@@ -16,16 +16,23 @@ module Redcar
 
     def help_requested
       if ARGV.include?("-h") or ARGV.include?("--help")
-        puts "Redcar #{Redcar::VERSION}"
         puts
-        puts "       --font=FONT  Choose font"
-        puts "  --font-size=SIZE  Choose font point size"
-        puts "     --theme=THEME  Choose Textmate theme"
+        puts "        --font=FONT  Choose font"
+        puts "   --font-size=SIZE  Choose font point size"
+        puts "      --theme=THEME  Choose Textmate theme"
+        puts "--multiple-instance  Don't attempt to run from an existing instance"
+        puts "          --verbose  Set $VERBOSE to true"
+        puts "        filename1, filename2, dirname1, dirname2 ..."
+        puts
         puts
         puts "To download jars:"
         puts
         puts "   $ [sudo] redcar install"
         puts
+        #puts "To associate with right click in windows explorer:"
+        #puts
+        #puts "  C:> redcar --associate_with_any_right_click"
+        #puts
         exit
       end
     end

data/lib/redcar_quick_start.rb

@@ -0,0 +1,37 @@
+require 'socket'
+
+module Redcar
+
+  # attempt to load via drb if available
+  def self.try_to_load_via_drb
+    return if ARGV.include?("--multiple-instance")    
+    port = 9999
+    begin
+      begin
+        TCPSocket.new('127.0.0.1', port).close
+      rescue Errno::ECONNREFUSED 
+        # no other instance is currently running...
+        return
+      end
+      puts 'attempting to start via running instance'
+      require 'drb' # late require to avoid loadup time
+      drb = DRbObject.new(nil, "druby://127.0.0.1:#{port}")
+      
+      if ARGV.any?
+        ARGV.each do |arg|
+          if drb.open_item_drb(File.expand_path(arg)) != 'ok'
+            return
+          end        
+        end
+      else
+       return unless drb.open_item_drb('just_bring_to_front')
+      end
+      puts 'Success'
+      true
+    rescue Exception => e
+      puts e.class.to_s + ": " + e.message
+      puts e.backtrace
+      false
+    end
+  end
+end