redcar-dev 0.12.17dev

data/lib/redcar/usage.rb

@@ -0,0 +1,42 @@
+
+module Redcar
+  
+  class Usage
+    def version_string
+      str = "Redcar #{Redcar::VERSION} ( #{RUBY_PLATFORM} )"
+      puts str
+    end
+    
+    def version_requested
+      if ARGV.include?("-v")
+        puts "Redcar #{Redcar::VERSION}"
+        exit
+      end
+    end
+
+    def help_requested
+      if ARGV.include?("-h") or ARGV.include?("--help")
+        puts
+        puts "Usage: redcar [OPTIONS] [FILE|DIR]*"
+        puts
+        puts " --multiple-instance  Don't attempt to open files and dirs in an already running instance"
+        puts "             --debug  JRuby debugging mode: activates the profiling commands in the Debug menu"
+        puts "--untitled-file=PATH  Open the given file as an untitled tab."
+        puts "      --ignore-stdin  Ignore stdin."
+        puts "              --fork  Detach from the console."
+        puts "         --no-window  Don't force opening a window on Redcar startup"
+        puts "     --home-dir=PATH  Use the specified directory as Redcar home directory"
+        puts "                  -w  Open the specified files and wait until they are closed"
+        puts "          -l[NUMBER]  Open a specified file at line NUMBER. Multiple comma-seperated args for multiple files are allowed."
+        puts "          --show-log  Print Redcar's log to stdout"
+        puts "   --log-level=LEVEL  Set the log level to LEVEL (default is info, options are debug, info, warn, error)"
+        puts "         --no-splash  Do not show the splash screen on startup"
+        #puts "To associate with right click in windows explorer:"
+        #puts
+        #puts "  C:> redcar --associate_with_any_right_click"
+        #puts
+        exit
+      end
+    end
+  end
+end

data/lib/redcar_quick_start.rb

@@ -0,0 +1,100 @@
+require 'socket'
+require 'rbconfig'
+
+module Redcar
+  DRB_PORTS = {"user" => 10021, "test" => 10022, "development" => 10021}
+  DONT_READ_STDIN_ARG = "--ignore-stdin"
+
+  def self.environment
+    :user
+  end
+  
+  def self.drb_port
+    DRB_PORTS[Redcar.environment.to_s]
+  end
+
+  def self.read_stdin
+    if not $stdin.tty? and not ARGV.include?(DONT_READ_STDIN_ARG)
+      data = ""
+      begin
+      data = $stdin.read
+      rescue Errno::EAGAIN
+      #  retry
+      rescue EOFError
+      end
+
+      if data.size > 0
+        require 'tmpdir'
+        file = File.join(Dir.tmpdir, "tmp#{$$}.txt")
+        File.open(file, 'w') {|f| f.write data}
+        ARGV.unshift "--untitled-file=#{file}", DONT_READ_STDIN_ARG
+      end
+    end
+  end
+
+  def self.try_to_load_via_drb
+    return if ARGV.find {|arg| arg == "--multiple-instance" || arg == '--help' || arg == '-h'}
+    begin
+      begin
+        TCPSocket.new('127.0.0.1', drb_port).close
+      rescue Errno::ECONNREFUSED
+        # no other instance is currently running...
+        return
+      end
+      puts 'attempting to start via running instance' if $VERBOSE
+
+      require 'drb' # late require to avoid loadup time
+      drb = DRbObject.new(nil, "druby://127.0.0.1:#{drb_port}")
+
+      if ARGV.any?
+        ARGV.each do |arg|
+          if arg =~ /--untitled-file=(.*)/
+            path = $1 if File.file?($1)
+            untitled = true
+          elsif arg !~ /^--/ # not --something
+            path = File.expand_path(arg)
+            if !File.exist?(path)
+              require 'fileutils'
+              FileUtils.mkdir_p File.dirname(path)
+              FileUtils.touch path
+            end
+          end
+          next unless path
+          drb_answer = drb.open_item_drb(path, untitled, ARGV.include?("-w"))
+          return unless drb_answer == 'ok'
+        end
+      else
+        return unless drb.open_item_drb('just_bring_to_front')
+      end
+      puts 'Success' if $VERBOSE
+      true
+    rescue Exception => e
+      puts e.class.to_s + ": " + e.message
+      puts e.backtrace
+      false
+    end
+  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
+
+  def self.null_device
+    case platform
+    when :windows
+      'nul'
+    else
+      '/dev/null'
+    end
+  end
+end

data/lib/regex_replace.rb

@@ -0,0 +1,221 @@
+
+class RegexReplace
+  COND_RE = /\(
+                \?(\d+):
+                (
+                  (
+                    \\\(|
+                    \\\)|
+                    \\:|
+                    [^():]
+                  )*
+                )
+                (
+                  :
+                  (
+                    (
+                      \\\(|
+                      \\\)|
+                      [^()]
+                    )*
+                  )
+                )?
+              \)
+             /x
+  
+  def initialize(re, replace)
+    if re.class.to_s.include? "Regexp"
+      @re = re
+    else
+      if defined? Oniguruma
+        @re = Oniguruma::ORegexp.new(re)
+      else
+        @re = Regexp.new(re)
+      end
+    end
+    @replace = replace
+  end
+  
+  def regexp_gsub(re, string, &blk)
+    if re.class.to_s == "Oniguruma::ORegexp"
+      re.gsub(string, &blk)
+    else
+      left = string.dup
+      newstr = ""
+      while left.length > 0
+        md = re.match(left)
+        if md
+          newstr << md.pre_match
+          r  = yield md
+          newstr << r
+          left = md.post_match
+        else
+          newstr << left
+          left = ""
+        end
+      end
+      newstr
+    end
+  end
+  
+  def regexp_sub(re, string, &blk)
+    if re.class.to_s == "Oniguruma::ORegexp"
+      re.sub(string, &blk)
+    else
+      md = re.match(string)
+      if md
+        r  = yield md
+        string[md.begin(0)..(md.end(0)-1)] = r
+      end
+      string
+    end
+  end
+  
+  def grep(string)
+    string = string.dup
+    regexp_gsub(@re, string) do |md|
+      parse_replace_string md, @replace.dup
+    end
+  end
+  
+  def rep(string)
+    string = string.dup
+    regexp_sub(@re, string) do |md|
+      parse_replace_string md, @replace.dup
+    end
+  end
+  
+  def inspect
+    "<RegexReplace: #{@re.inspect} -> #{@replace.inspect}>"
+  end
+  
+  private 
+  
+  def parse_replace_string(md, replace)
+    replace.gsub!(COND_RE) do |match|
+      if md[$1.to_i]
+        $2.gsub("\\(", "(").gsub("\\)", ")")
+      else
+        if $4
+          $5.gsub("\\(", "(").gsub("\\)", ")")
+        else
+          ""
+        end
+      end
+    end
+    replace.gsub!(/\$(\d+)/) do |match|
+      md[$1.to_i]
+    end
+    replace.gsub!(/\\U(.*?)(\\E|$)/) do |match|
+      $1.upcase
+    end
+    replace.gsub!(/\\L(.*?)(\\E|$)/) do |match|
+      $1.downcase
+    end
+    replace.gsub!(/\\u(.)/) do |match|
+      $1.upcase
+    end
+    replace.gsub!(/\\l(.)/) do |match|
+      $1.downcase
+    end
+    replace.gsub!(/\\[abefnrstv]/) do |match|
+      eval("\"\\#{match[-1..-1]}\"")
+    end
+    replace.gsub!("\\u", "")
+    replace.gsub!("\\l", "")
+    replace.gsub!("\\U", "")
+    replace.gsub!("\\L", "")
+    replace.gsub!("\\E", "")
+    replace
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  class TestRegexReplace < Test::Unit::TestCase
+    def test_simple
+      rr = RegexReplace.new("blackbird", 
+                            "laura")
+      assert_equal "foo laura bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_simple_blank
+      rr = RegexReplace.new("blackbird", 
+                            "laura")
+      assert_equal "", rr.rep("")
+    end
+    
+    def test_simple_global
+      rr = RegexReplace.new("blackbird", 
+                            "laura")
+      assert_equal "foo laura bar laura bar", rr.grep("foo blackbird bar blackbird bar")
+    end
+    
+    def test_simple_single
+      rr = RegexReplace.new("blackbird", 
+                            "laura")
+      assert_equal "foo laura bar blackbird bar", rr.rep("foo blackbird bar blackbird bar")
+    end
+    
+    def test_escape_characters
+      rr = RegexReplace.new("blackbird", 
+                            "lau\\nr\\ta")
+      assert_equal "foo lau\nr\ta bar blackbird bar", rr.rep("foo blackbird bar blackbird bar")
+      
+    end
+    
+    def test_full_match
+      rr = RegexReplace.new("bl(ackb)ird", 
+                            "laura$0")
+      assert_equal "foo laurablackbird bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_lonely_upcase
+      rr = RegexReplace.new("bl(ackb)ird", 
+                            "\\u")
+      assert_equal "foo  bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_capture1
+      rr = RegexReplace.new("bl(ackb)ird", 
+                            "laura$1")
+      assert_equal "foo lauraackb bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_capture2
+      rr = RegexReplace.new("bl(ackb)i(r)d", 
+                            "$2laura$1")
+      assert_equal "foo rlauraackb bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_upcase_string
+      rr = RegexReplace.new("bl(ackb)i(rd)", 
+                            "\\U$2\\Elaura$1")
+      assert_equal "foo RDlauraackb bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_upcase_letter
+      rr = RegexReplace.new("bl(ackb)i(rd)", 
+                            "\\u$2laura$1")
+      assert_equal "foo Rdlauraackb bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_combination
+      rr = RegexReplace.new("bl(ackb)i(rd)", 
+                            "\\l\\U$2\\Elaura$1")
+      assert_equal "foo rDlauraackb bar", rr.rep("foo blackbird bar")
+    end
+    
+    def test_conditional
+      rr = RegexReplace.new("(\\w+)|(\\W+)", 
+                            "(?1:\\L$1\\E)(?2:\\(_)")
+      assert_equal "textmate(_power(_editing", rr.grep("TextMate: Power Editing")
+    end
+    
+    def test_conditional_with_alternative
+      rr = RegexReplace.new("[[:alpha:]]+|( )", 
+                            "(?1:_:\\L$0)")
+      assert_equal "textmate:_power_editing", rr.grep("TextMate: Power Editing")
+    end
+  end
+end

data/lib/tasks/app-bundle.rake

@@ -0,0 +1,63 @@
+desc "Build a MacOS X App bundle"
+task :app_bundle do
+  require 'erb'
+
+  redcar_icon = "redcar-icon-beta.png"
+
+  bundle_contents = File.join("pkg", "Redcar.app", "Contents")
+  FileUtils.rm_rf bundle_contents if File.exist? bundle_contents
+  macos_dir = File.join(bundle_contents, "MacOS")
+  resources_dir = File.join(bundle_contents, "Resources")
+  FileUtils.mkdir_p macos_dir
+  FileUtils.mkdir_p resources_dir
+
+  info_plist_template = ERB.new <<-PLIST
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>CFBundleExecutable</key>
+	<string>redcar</string>
+	<key>CFBundleIconFile</key>
+	<string><%= redcar_icon %></string>
+	<key>CFBundleIdentifier</key>
+	<string>com.redcareditor.Redcar</string>
+	<key>CFBundleInfoDictionaryVersion</key>
+	<string>6.0</string>
+	<key>CFBundlePackageType</key>
+	<string>APPL</string>
+	<key>CFBundleSignature</key>
+	<string>????</string>
+	<key>CFBundleVersion</key>
+	<string><%= Spec.version %></string>
+	<key>LSMinimumSystemVersion</key>
+	<string>10.5</string>
+</dict>
+</plist>
+  PLIST
+  File.open(File.join(bundle_contents, "Info.plist"), "w") do |f|
+    f << info_plist_template.result(binding)
+  end
+
+  File.open(File.join(macos_dir, "redcar"), "w") do |f|
+    f << '#!/bin/sh
+          MACOS=$(cd "$(dirname "$0")"; pwd)
+          RESOURCES="$(cd "${MACOS}/../Resources/"; pwd)"
+          BIN="${RESOURCES}/bin/redcar"
+          JRUBY="${RESOURCES}/.redcar/assets/jruby-complete-*.jar"
+          java -cp $JRUBY -Djruby.fork.enabled=true org.jruby.Main "$BIN" --home-dir="${RESOURCES}" --ignore-stdin $@'
+  end
+  File.chmod 0777, File.join(macos_dir, "redcar")
+
+  Spec.files.each do |f|
+    unless File.directory?(f)
+      FileUtils.mkdir_p File.join(resources_dir, File.dirname(f))
+      FileUtils.cp f, File.join(resources_dir, f)
+    end
+  end
+
+  FileUtils.cp_r File.join(resources_dir, "share", "icons", redcar_icon), resources_dir
+
+  puts(install_cmd = "#{File.expand_path("../../bin/redcar", __FILE__)} --home-dir=#{resources_dir} install")
+  system(install_cmd)
+end

data/plugins/application/features/main_menu.feature

@@ -0,0 +1,9 @@
+Feature: Main menu
+
+  Scenario: There should be File and Help menus
+    Then there should be a main menu
+    And the main menu should contain "File, Help" entries
+  
+  Scenario: There should be a File|New entry
+    Then there should be a main menu
+    And the "File" menu should contain a "New" entry

data/plugins/application/features/navigation_history.feature

@@ -0,0 +1,66 @@
+Feature: Navigation History
+
+Background:
+  Given I have opened "plugins/application/spec/application/navigation_history_spec.rb"
+  And I move to line 2
+  And I run the command Redcar::OutlineView::OpenOutlineViewCommand
+  And I select the outline view
+  Then the cursor should be on line 1
+  And I run the command Redcar::OutlineView::OpenOutlineViewCommand
+  When I set the outline filter to "con"
+  And I wait 2 seconds
+  And I select the outline view
+  Then the cursor should be on line 14
+  Given I have opened "plugins/application/lib/application/navigation_history.rb"
+  And I move to line 5
+  And I run the command Redcar::OutlineView::OpenOutlineViewCommand
+  And I select the outline view
+  Then the cursor should be on line 0
+
+Scenario: Backward/forward history
+  When I run the command Redcar::Top::BackwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 5
+  When I run the command Redcar::Top::BackwardNavigationCommand
+  Then the focussed document path is "plugins/application/spec/application/navigation_history_spec.rb"
+  And the cursor should be on line 14
+  When I run the command Redcar::Top::BackwardNavigationCommand
+  Then the focussed document path is "plugins/application/spec/application/navigation_history_spec.rb"
+  And the cursor should be on line 1
+  When I run the command Redcar::Top::BackwardNavigationCommand
+  Then the focussed document path is "plugins/application/spec/application/navigation_history_spec.rb"
+  And the cursor should be on line 2
+  When I run the command Redcar::Top::ForwardNavigationCommand
+  Then the focussed document path is "plugins/application/spec/application/navigation_history_spec.rb"
+  And the cursor should be on line 1
+  When I run the command Redcar::Top::ForwardNavigationCommand
+  Then the focussed document path is "plugins/application/spec/application/navigation_history_spec.rb"
+  And the cursor should be on line 14
+  When I run the command Redcar::Top::ForwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 5
+  When I run the command Redcar::Top::ForwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 0
+
+Scenario: Change middle history
+  When I run the command Redcar::Top::BackwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 5
+  When I run the command Redcar::Top::ForwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 0
+  When I run the command Redcar::Top::BackwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 5
+  And I run the command Redcar::OutlineView::OpenOutlineViewCommand
+  When I set the outline filter to "can"
+  And I wait 2 seconds
+  And I select the outline view
+  Then the cursor should be on line 21
+  When I run the command Redcar::Top::BackwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 5
+  When I run the command Redcar::Top::ForwardNavigationCommand
+  Then the focussed document path is "plugins/application/lib/application/navigation_history.rb"
+  And the cursor should be on line 21