redcar-dev 0.12.17dev

data/plugins/project/features/refresh_directory_tree.feature

@@ -0,0 +1,44 @@
+@project-fixtures
+Feature: Refresh directory tree
+
+  Scenario: Does not refresh instantly
+    Given I will choose "plugins/project/spec/fixtures/myproject" from the "open_directory" dialog
+    When I open a directory
+    Then I should see "lib,spec,README" in the tree
+    And I should not see "testyfile.txt" in the tree
+    When I touch the file "plugins/project/spec/fixtures/myproject/testyfile.txt"
+    Then I should not see "testyfile.txt" in the tree
+
+  Scenario: I can manually refresh the tree
+    Given I will choose "plugins/project/spec/fixtures/myproject" from the "open_directory" dialog
+    When I open a directory
+    Then I should see "lib,spec,README" in the tree
+    And I should not see "testyfile.txt" in the tree
+    When I touch the file "plugins/project/spec/fixtures/myproject/testyfile.txt"
+    And I refresh the directory tree
+    Then I should see "lib,spec,README,testyfile.txt" in the tree
+
+  Scenario: Changing windows refreshed the tree
+    Given I will choose "plugins/project/spec/fixtures/myproject" from the "open_directory" dialog
+    When I open a directory
+    Then I should see "lib,spec,README" in the tree
+    And I should not see "testyfile.txt" in the tree
+    When I touch the file "plugins/project/spec/fixtures/myproject/testyfile.txt"
+    When I open a new window
+    And I focus the window "myproject" with a command
+    Then I should see "lib,spec,README,testyfile.txt" in the tree
+    
+  Scenario: Refreshing the tree leaves rows expanded as they were before
+    Given I will choose "plugins/project/spec/fixtures/myproject" from the "open_directory" dialog
+    When I open a directory
+    And I expand the tree row "lib"
+    Then I should see "lib,foo_lib.rb,vendor" in the tree
+    And I refresh the directory tree
+    Then I should see "lib,foo_lib.rb,vendor" in the tree
+  
+  Scenario: Tree is moved
+    Given I will choose "plugins/project/spec/fixtures/myproject" from the "open_directory" dialog
+    When I open a directory
+    And I move the myproject fixture away
+    And I refresh the directory tree
+    Then I should not see "lib" in the tree  

data/plugins/project/features/step_definitions/directory_steps.rb

@@ -0,0 +1,35 @@
+
+When /I open a directory/ do
+  Redcar::Project::DirectoryOpenCommand.new.run
+end
+
+When /I close the directory/ do
+  Redcar::Project::Manager.focussed_project.close
+end
+
+When /^I refresh the directory tree$/ do
+  Redcar::Project::Manager.focussed_project.refresh
+end
+
+When /^I move the myproject fixture away$/ do
+  FileUtils.mv("plugins/project/spec/fixtures/myproject",
+               "plugins/project/spec/fixtures/myproject.bak")
+  @put_myproject_fixture_back = true
+end
+
+When /^I open a "([^"]*)" as a subproject of the current directory$/ do |arg1|
+  path = Redcar::Project::Manager.focussed_project.path
+  Redcar::Project::Manager.open_subproject(path,path + arg1)
+end
+
+Then /^"([^"]*)" in the project configuration files$/ do |arg1|
+  project = Redcar::Project::Manager.focussed_project
+  project.config_files(arg1).each do |file|
+    File.exist?(file).should == true
+  end
+end
+
+When /^"([^"]*)" goes missing$/ do |arg1|
+  FileUtils.rm(arg1)
+  File.exists?(arg1).should == false
+end

data/plugins/project/features/step_definitions/drb_steps.rb

@@ -0,0 +1,40 @@
+require 'timeout'
+require 'drb'
+
+def drb
+  DRbObject.new(nil, "druby://127.0.0.1:#{Redcar.drb_port}")
+end
+
+def tempfile(text)
+  f = Tempfile.open("drb_testing")
+  f << text
+  f.close
+  f.path
+end
+
+Given /^I open "([^"]*)" using the redcar command$/ do |path|
+  drb_answer = drb.open_item_drb(File.expand_path(path))
+  drb_answer.should == "ok"
+end
+
+Given /^I open "([^"]*)" using the redcar command with "-w"$/ do |path|
+  DrbShelloutHelper.drb_system_thread = Thread.new(path) do
+    drb_answer = drb.open_item_drb(File.expand_path(path), false, true)
+  end
+end
+
+Given /^I pipe "([^"]*)" into redcar with "-w"$/ do |text|
+  DrbShelloutHelper.drb_system_thread = Thread.new(text) do
+    drb_answer = drb.open_item_drb(tempfile(text), true, true)
+  end
+end
+
+Given /^I pipe "([^"]*)" into redcar$/ do |text|
+  drb_answer = drb.open_item_drb(tempfile(text), true)
+  drb_answer.should == "ok"
+end
+
+Then /^the redcar command should (not )?have returned$/ do |returned|
+  (!!DrbShelloutHelper.drb_system_thread.status).should be !!returned # status is false for returned thread
+end
+

data/plugins/project/features/step_definitions/file_steps.rb

@@ -0,0 +1,66 @@
+
+Given /^I have open a file$/ do
+  Redcar::Project::OpenFileCommand.new.run
+end
+
+Given /^I will open a large file from the "([^"]*)" dialog$/ do |arg1|
+  Given %Q|I will choose "plugins/project/spec/fixtures/winter.txt" from the "open_file" dialog|
+  Redcar::Project::Manager.file_size_limit = 1
+end
+
+When /^I open a file$/ do
+  Redcar::Project::OpenFileCommand.new.run
+end
+
+Given /^I have opened "([^\"]*)"$/ do |arg1|
+  Redcar::Project::OpenFileCommand.new(File.expand_path(arg1)).run
+end
+
+Given /^I have opened "([^\"]*)" from the project$/ do |arg1|
+  project = Redcar::Project::Manager.focussed_project
+  Redcar::Project::OpenFileCommand.new(project.path + "/" + arg1).run
+end
+
+When /^I save the tab$/ do
+  Redcar::Project::SaveFileCommand.new.run
+end
+
+When /^I touch the file "([^\"]*)"$/ do |fn|
+  FileUtils.touch(fn)
+  add_test_file(fn)
+end
+
+When /^I put "([^\"]*)" into the file "([^\"]*)"$/ do |contents, path|
+  File.open(path, "w") {|fout| fout.print contents }
+end
+
+When /^I save the tab as$/ do
+  Redcar::Project::SaveFileAsCommand.new.run
+end
+
+Then /^the file "([^"]*)" should be deletable$/ do |path|
+  File.delete path
+  raise if File.exist? path
+end
+
+Then /^the file "([^\"]*)" should contain "([^\"]*)"$/ do |arg1, arg2|
+  File.read(arg1).should == arg2
+end
+
+When /^I put a lot of lines into the file "([^\"]*)"$/ do |file|
+  File.open(file, "w") do |f|
+    200.times { |i| f.puts(i * 20) }
+  end
+end
+
+def add_test_file(fn)
+  (@test_files ||= []) << File.expand_path(fn)
+end
+
+def remove_test_files
+  (@test_files||[]).each { |fn| FileUtils.rm_f(fn) }
+end
+
+After do
+  remove_test_files
+end

data/plugins/project/features/step_definitions/find_file_steps.rb

@@ -0,0 +1,7 @@
+When /^I prefer not to see files like "([^"]*)" in the find file dialog$/ do |pattern|
+  Redcar::Project::FileList.add_hide_file_pattern(/#{pattern}/)
+end
+
+When /^I open the find file dialog$/ do
+  Redcar::Project::FindFileCommand.new.run
+end

data/plugins/project/features/step_definitions/project_tree_steps.rb

@@ -0,0 +1,7 @@
+Then /^"([^\"]*)" should be selected in the project tree$/ do |filename|
+  Redcar::Project::Manager.focussed_project.tree.selection.first.text == filename
+end
+
+When /^I prefer to not highlight the focussed tab$/ do
+  Redcar::Project::Manager.reveal_files = false
+end

data/plugins/project/features/sub_project.feature

@@ -0,0 +1,15 @@
+@project-fixtures
+Feature: Opening subprojects with shared configuration files
+
+  Background:
+    Given I will choose "plugins/project/spec/fixtures/myproject" from the "open_directory" dialog
+    When I open a directory
+
+  Scenario: Opening a subproject
+    When I open a "/test1" as a subproject of the current directory
+    Then I should see "a.txt,b.txt,c.txt" in the tree
+    And "test_config" in the project configuration files
+
+  Scenario: Title of window reflects open subproject
+    When I open a "/test1" as a subproject of the current directory
+    Then the window should have title "Subproject: test1 in myproject"

data/plugins/project/features/support/env.rb

@@ -0,0 +1,35 @@
+
+module DrbShelloutHelper
+  def self.drb_system_thread
+    $drb_system_thread
+  end
+
+  def self.drb_system_thread= value
+    $drb_system_thread = value
+  end
+
+  def self.kill_thread
+    if !($drb_system_thread.nil?) and $drb_system_thread.status
+      $drb_system_thread.kill
+    end
+  end
+end
+
+require File.dirname(__FILE__) + "/../../spec/fixture_helper"
+
+def filter_storage
+  Redcar::Project::FindFileDialog.storage
+end
+
+Before("@project-fixtures") do
+  ProjectFixtureHelper.create_project_fixtures
+  ProjectFixtureHelper.make_subproject_fixtures
+  @original_file_size_limit = Redcar::Project::Manager.file_size_limit
+end
+
+After("@project-fixtures") do
+  Redcar::Project::Manager.reveal_files = true
+  ProjectFixtureHelper.clear_project_fixtures
+  DrbShelloutHelper.kill_thread
+  Redcar::Project::Manager.file_size_limit = @original_file_size_limit
+end

data/plugins/project/features/watch_for_modified_files.feature

@@ -0,0 +1,109 @@
+@project-fixtures
+Feature: Watch for modified files
+  If an open file has changed on disc since the last time the user looked at it,
+  then reload the contents. Alert the user if they have made modifications.
+
+  Background:
+    Given I will choose "plugins/project/spec/fixtures/winter.txt" from the "open_file" dialog
+    When I open a file
+
+  Scenario: Without modifications
+    Then there should be one edit tab
+    And I should see "Wintersmith" in the edit tab
+    When I open a new edit tab
+    And I wait "2" seconds
+    And I put "Summer" into the file "plugins/project/spec/fixtures/winter.txt"
+    And I close the focussed tab
+    And the edit tab updates its contents
+    Then I should see "Summer" in the edit tab
+
+  Scenario: With modifications, reloading from disc
+    Then there should be one edit tab
+    And I should see "Wintersmith" in the edit tab
+    And I replace the contents with "FOFOOF"
+    When I open a new edit tab
+    And I wait "2" seconds
+    And I put "Summer" into the file "plugins/project/spec/fixtures/winter.txt"
+    Given I will choose "yes" from the "message_box" dialog
+    And I close the focussed tab
+    And the edit tab updates its contents
+    Then I should see "Summer" in the edit tab
+
+  Scenario: With modifications, keeping modified version
+    Then there should be one edit tab
+    And I should see "Wintersmith" in the edit tab
+    And I replace the contents with "Newton"
+    When I open a new edit tab
+    And I wait "2" seconds
+    And I put "Summer" into the file "plugins/project/spec/fixtures/winter.txt"
+    Given I will choose "no" from the "message_box" dialog
+    And I close the focussed tab
+    And the edit tab updates its contents
+    Then I should see "Newton" in the edit tab
+
+  Scenario: With modifications, keeping modified version, twice
+    Then there should be one edit tab
+    And I should see "Wintersmith" in the edit tab
+    And I replace the contents with "Newton"
+    When I open a new edit tab
+    And I wait "2" seconds
+    And I put "Summer" into the file "plugins/project/spec/fixtures/winter.txt"
+    Given I will choose "no" from the "message_box" dialog
+    And I close the focussed tab
+    And the edit tab updates its contents
+    Then I should see "Newton" in the edit tab
+    When I open a new edit tab
+    Then I should not see a "message_box" dialog for the rest of the feature
+    And I close the focussed tab
+
+  Scenario: Keep in the same position in the file when reloading
+    Given I close the focussed tab
+    And I put a lot of lines into the file "plugins/project/spec/fixtures/winter.txt"
+    When I open a file
+    And I move to line 100
+    Then there should be one edit tab
+    When I open a new edit tab
+    And I wait "2" seconds
+    And I put a lot of lines into the file "plugins/project/spec/fixtures/winter.txt"
+    And I close the focussed tab
+    Then the cursor should be on line 100
+
+  Scenario: Move to the top if the line you were on is no longer there
+    Given I close the focussed tab
+    And I put a lot of lines into the file "plugins/project/spec/fixtures/winter.txt"
+    When I open a file
+    And I move to line 100
+    Then there should be one edit tab
+    When I open a new edit tab
+    And I wait "2" seconds
+    And I put "Summer" into the file "plugins/project/spec/fixtures/winter.txt"
+    And I close the focussed tab
+    And the edit tab updates its contents
+    Then the cursor should be on line 0
+
+  Scenario: The file being mirrored by the current unmodified tab is externally deleted
+    Then there should be one edit tab
+    And I should see "Wintersmith" in the edit tab
+    When I open a new window with title "new"
+    When I wait "2" seconds
+    And "plugins/project/spec/fixtures/winter.txt" goes missing
+    And I close the window "new" through the gui
+    And I focus the window "Redcar" through the gui
+    Then there should be one edit tab
+    And the edit tab updates its contents
+    And my active tab should have an "exclamation" icon
+
+  Scenario: The file being mirrored by the current modified tab is externally deleted
+    Then there should be one edit tab
+    And I should see "Wintersmith" in the edit tab
+    When I replace the contents with "Jenny Green Eyes"
+    And I open a new window with title "new"
+    And I wait "2" seconds
+    And "plugins/project/spec/fixtures/winter.txt" goes missing
+    And I close the window "new" through the gui
+    And I focus the window "Redcar" through the gui
+    Then my active tab should have an "exclamation" icon
+    When I save the tab
+    Then my active tab should have an "file" icon
+
+

data/plugins/project/lib/project.rb

@@ -0,0 +1,266 @@
+
+unless defined?(DRb)
+  require 'drb/drb'
+end
+
+require "project/adapters/remote_protocols/protocol"
+require "project/adapters/remote_protocols/sftp"
+require "project/adapters/remote_protocols/ftp"
+
+require "project/adapters/local"
+require "project/adapters/remote"
+
+require "project/support/trash"
+
+require "project/commands"
+require "project/dir_mirror"
+require "project/dir_controller"
+require "project/project_tree_controller"
+require "project/drb_service"
+require "project/file_list"
+require "project/file_mirror"
+require "project/find_file_dialog"
+require "project/find_recent_dialog"
+require "project/manager"
+require "project/recent"
+require "project/sub_project"
+
+module Redcar
+  class Project
+    RECENT_FILES_LENGTH = 20
+
+    def self.window_projects
+      @window_projects ||= {}
+    end
+
+    attr_reader :window, :tree, :path, :adapter
+    attr_accessor :listeners
+
+    def initialize(path, adapter=Adapters::Local.new)
+      @adapter = adapter
+      @path   = File.expand_path(path)
+      @listeners ||= {}
+      dir_mirror = Project::DirMirror.new(@path, adapter)
+      if dir_mirror.exists?
+        @tree   = Tree.new(dir_mirror, Project::DirController.new)
+        @window = nil
+        file_list_resource.compute unless remote?
+      else
+        raise "#{path} doesn't seem to exist"
+      end
+    end
+
+    def remote?
+      adapter.is_a?(Adapters::Remote)
+    end
+
+    def ready?
+      @tree && @path
+    end
+
+    def inspect
+      "<Project #{path}>"
+    end
+
+    def open(win)
+      lock
+      @window = win
+      if current_project = Project.window_projects[window]
+        current_project.close
+      end
+      window.treebook.add_tree(@tree)
+      attach_listeners
+      window.title = File.basename(@tree.tree_mirror.path)
+      Manager.open_project_sensitivity.recompute
+      Project.window_projects[window] = self
+      Redcar.plugin_manager.objects_implementing(:project_loaded).each do |i|
+        i.project_loaded(self)
+      end
+      Recent.store_path(path)
+      Manager.storage['last_open_dir'] = path
+      self
+    end
+
+    def lock
+      File.open(lock_filename, "w") do |fout|
+        fout.puts "#{$$}: Locked by #{$$} at #{Time.now}"
+      end
+    end
+
+    def lock_filename
+      File.join(config_dir, "redcar.lock")
+    end
+
+    def locked?
+      File.exist?(lock_filename)
+    end
+
+    def unlock
+      if locked?
+        if locked_by_this_process?
+          FileUtils.rm_rf(lock_filename)
+        else
+          raise "locked by another process"
+        end
+      else
+        raise "project not locked"
+      end
+    end
+
+    def locked_by_this_process?
+      return false unless locked?
+      locking_pid = File.read(lock_filename).split(":").first
+      locking_pid == $$.to_s
+    end
+
+    def close
+      return unless @window
+      this_window = window
+      @window = nil
+      this_window.treebook.remove_tree(@tree)
+      Project.window_projects.delete(this_window)
+      this_window.title = Window::DEFAULT_TITLE
+      Manager.open_project_sensitivity.recompute
+      Redcar.plugin_manager.objects_implementing(:project_closed).each do |i|
+        i.project_closed(self,this_window)
+      end
+      listeners = {}
+      unlock if locked?
+    end
+
+    def attach_listeners
+      attach_notebook_listeners
+      window.treebook.add_listener(:tree_removed, &method(:tree_removed))
+    end
+
+    def attach_notebook_listeners
+      window.add_listener(:notebook_focussed, &method(:notebook_focussed))
+      window.add_listener(:notebook_removed, &method(:notebook_closed))
+      window.add_listener(:new_notebook, &method(:notebook_added))
+      if notebooks = window.notebooks
+        notebooks.each do |nb|
+          notebook_added(nb)
+        end
+      end
+    end
+
+    def notebook_focussed(notebook)
+      if notebook.focussed_tab and tree and Project::Manager.reveal_file?(self)
+        RevealInProjectCommand.new.run
+      end
+    end
+
+    def notebook_added(notebook)
+      @listeners.merge!(notebook => notebook.add_listener(:tab_focussed) do |tab|
+        RevealInProjectCommand.new.run if tree and window and Project::Manager.reveal_file?(self)
+      end)
+    end
+
+    def notebook_closed(notebook)
+      @listeners.delete(notebook)
+    end
+
+    def tree_removed(tree)
+      close if tree == @tree
+    end
+
+    # Refresh the DirMirror Tree for the given Window, if
+    # there is one.
+    def refresh
+      @tree.refresh
+      file_list_resource.compute unless remote?
+    end
+
+    def contains_path?(path)
+      File.expand_path(path) =~ /^#{Regexp.escape(@path)}($|\/|\\)/
+    end
+
+    # A list of files previously opened in this session for this project
+    #
+    # @return [Array<String>] an array of paths
+    def recent_files
+      @recent_files ||= []
+    end
+
+    def add_to_recent_files(new_file)
+      new_file = File.expand_path(new_file)
+      if recent_files.include?(new_file)
+        recent_files.delete(new_file)
+      end
+      recent_files << new_file
+      if recent_files.length > RECENT_FILES_LENGTH
+        recent_files.shift
+      end
+    end
+
+    def file_list
+      raise "can't access a file list for a remote project" if remote?
+      @file_list ||= FileList.new(path)
+    end
+
+    def file_list_resource
+      @resource ||= Resource.new("refresh file list for #{@path}") do
+        file_list.update
+        send_refresh_to_plugins
+      end
+    end
+
+    def refresh_modified_file(path)
+      file_list.update(path)
+      @tree.refresh
+      send_refresh_to_plugins
+    end
+
+    def all_files
+      file_list.all_files
+    end
+
+    def send_refresh_to_plugins
+      Redcar.plugin_manager.objects_implementing(:project_refresh_task_type).each do |object|
+        task = object.project_refresh_task_type.new(self)
+        if Redcar::Resource.compute_synchronously
+          task.execute
+        else
+          Redcar::Resource.task_queue.submit(task)
+        end
+      end
+    end
+
+    def lost_application_focus
+      @lost_application_focus = true
+    end
+
+    def gained_focus
+      refresh
+      @lost_application_focus = nil
+    end
+
+    def config_dir
+      if Redcar.platform == :windows && Redcar.environment != :test 
+        dir = File.join(path, "._redcar")
+      else
+        dir = File.join(path, ".redcar")
+      end
+      unless File.directory? dir
+        FileUtils.mkdir_p(dir)
+        if Redcar.platform == :windows
+          system("attrib.exe +H \"#{dir}") # make hidden for cmd directory listings
+        end
+      end
+      dir
+    end
+
+    def home_dir
+      @path
+    end
+
+    def config_files(glob)
+      file_glob = File.join("{#{config_dir},#{Redcar.user_dir}}", glob)
+      Dir[file_glob]
+    end
+    
+    def search(query)
+      ProjectSearch::WordSearch.new(self, query, false, 0)
+    end
+  end
+end