redcar 0.2.9dev

data/plugins/edit_view_swt/lib/edit_view_swt/document.rb

@@ -0,0 +1,31 @@
+
+module Redcar
+  class EditViewSWT
+    class Document
+      include Redcar::Observable
+      attr_reader :swt_document
+      
+      def initialize(model, swt_document)
+        @model = model
+        @swt_document = swt_document
+      end
+      
+      def to_s
+        @swt_document.get
+      end
+      
+      def length
+        @swt_document.length
+      end
+      
+      def line_count
+        @swt_document.get_number_of_lines
+      end
+      
+      def text=(text)
+        @swt_document.set(text)
+        notify_listeners(:set_text)
+      end
+    end
+  end
+end

data/plugins/edit_view_swt/lib/edit_view_swt/edit_tab.rb

@@ -0,0 +1,33 @@
+module Redcar
+  class EditViewSWT
+    class Tab < ApplicationSWT::Tab
+      include Redcar::Observable
+      
+      attr_reader :item, :edit_view
+      
+      def initialize(model, notebook)
+        super
+        @model.add_listener(:changed_title) { |title| @item.text = title }
+      end
+      
+      def create_tab_widget
+        @edit_view = EditViewSWT.new(model.edit_view, self)
+        @widget = @edit_view.widget
+        @item.control = @widget
+      end
+      
+      # Focuses the CTabItem within the CTabFolder, and gives the keyboard
+      # focus to the EditViewSWT.
+      def focus
+        super
+        edit_view.focus
+      end
+      
+      # Close the EditTab, disposing of any resources along the way.
+      def close
+        @edit_view.dispose
+        super
+      end
+    end
+  end
+end

data/plugins/edit_view_swt/plugin.yaml

@@ -0,0 +1,14 @@
+--- !ruby/object:FreeBASE::PluginConfiguration
+name: edit_view_swt
+description: SWT adapters for the EditView 
+version: 1.0
+author: Daniel Lucraft
+autoload: true
+require_path: edit_view_swt/lib/edit_view_swt.rb
+startup_module: Redcar::EditViewSWT
+load_dependencies: 
+  core: "*"
+  application_swt: "*"
+start_dependencies: 
+  core: "*"
+  application_swt: "*"

data/plugins/edit_view_swt/vendor/dummy

@@ -0,0 +1 @@
+dummy

data/plugins/edit_view_swt/vendor/java-mateview.rb

@@ -0,0 +1,12 @@
+
+Dir[File.dirname(__FILE__) + "/*.jar"].each {|fn| require fn }
+
+module JavaMateView
+  import com.redcareditor.mate.MateText
+  import com.redcareditor.mate.Grammar
+  import com.redcareditor.mate.Bundle
+  import com.redcareditor.mate.Parser
+  import com.redcareditor.theme.Theme
+  import com.redcareditor.theme.ThemeManager
+end
+

data/plugins/project/features/fixtures/winter.txt

@@ -0,0 +1 @@
+Wintersmith

data/plugins/project/features/open_and_save_files.feature

@@ -0,0 +1,22 @@
+Feature: Open and save files
+
+  Scenario: Open a file
+    Given I will choose "plugins/project/features/fixtures/winter.txt" from the "open_file" dialog
+    When I open a file
+    Then there should be one edit tab
+    And I should see "Wintersmith" in the edit tab
+  
+  Scenario: Save a file
+    Given I have opened "plugins/project/features/fixtures/winter.txt"
+    When I replace the contents with "Hi!"
+    And I save the tab
+    Then the file "plugins/project/features/fixtures/winter.txt" should contain "Hi!"
+    And I should see "Hi!" in the edit tab
+
+  Scenario: Save a file As
+    Given I have opened "plugins/project/features/fixtures/winter.txt"
+    And I will choose "plugins/project/features/fixtures/winter2.txt" from the "save_file" dialog
+    And I save the tab as
+    Then the file "plugins/project/features/fixtures/winter2.txt" should contain "Wintersmith"
+    And I should see "Wintersmith" in the edit tab
+

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

@@ -0,0 +1,24 @@
+
+Given /^I have open a file$/ do
+  Redcar::Project::FileOpenCommand.new.run
+end
+
+When /^I open a file$/ do
+  Redcar::Project::FileOpenCommand.new.run
+end
+
+Given /^I have opened "([^\"]*)"$/ do |arg1|
+  Redcar::Project::FileOpenCommand.new(arg1).run
+end
+
+When /^I save the tab$/ do
+  Redcar::Project::FileSaveCommand.new.run
+end
+
+When /^I save the tab as$/ do
+  Redcar::Project::FileSaveAsCommand.new.run
+end
+
+Then /^the file "([^\"]*)" should contain "([^\"]*)"$/ do |arg1, arg2|
+  File.read(arg1).should == arg2
+end

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

@@ -0,0 +1,15 @@
+RequireSupportFiles File.dirname(__FILE__) + "/../../../edit_view/features/"
+
+def reset_project_fixtures
+  fixtures_path = File.expand_path(File.dirname(__FILE__) + "/../fixtures")
+  File.open(fixtures_path + "/winter.txt", "w") {|f| f.print "Wintersmith" }
+  FileUtils.rm_rf(fixtures_path + "/winter2.txt")
+end
+
+Before do
+  reset_project_fixtures
+end
+
+After do
+  reset_project_fixtures
+end

data/plugins/project/lib/project.rb

@@ -0,0 +1,79 @@
+
+require "project/file_mirror"
+require "project/dir_mirror"
+
+module Redcar
+  class Project
+    class FileOpenCommand < Command
+      key :osx     => "Cmd+O",
+          :linux   => "Ctrl+O",
+          :windows => "Ctrl+O"
+      
+      def initialize(path = nil)
+        @path = path
+      end
+    
+      def execute
+        tab  = win.new_tab(Redcar::EditTab)
+        path = get_path
+        if path
+          puts "open file: " + path.to_s
+          mirror = FileMirror.new(path)
+          tab.edit_view.document.mirror = mirror
+        end
+        tab.focus
+      end
+      
+      private
+      
+      def get_path
+        @path || begin
+          path = Application::Dialog.open_file(win, :filter_path => File.expand_path("~"))
+        end
+      end
+    end
+    
+    class FileSaveCommand < EditTabCommand
+      key :osx     => "Cmd+S",
+          :linux   => "Ctrl+S",
+          :windows => "Ctrl+S"
+
+      def execute
+        tab = win.focussed_notebook.focussed_tab
+        puts "saving document"
+        tab.edit_view.document.save!
+      end
+    end
+    
+    class FileSaveAsCommand < EditTabCommand
+      key :osx     => "Cmd+Shift+S",
+          :linux   => "Ctrl+Shift+S",
+          :windows => "Ctrl+Shift+S"
+
+      
+      def initialize(path = nil)
+        @path = path
+      end
+
+      def execute
+        tab = win.focussed_notebook.focussed_tab
+        path = get_path
+        puts "saving document as #{path}"
+        if path
+          contents = tab.edit_view.document.to_s
+          new_mirror = FileMirror.new(path)
+          new_mirror.commit(contents)
+          tab.edit_view.document.mirror = new_mirror
+        end
+      end
+      
+      private
+      
+      def get_path
+        @path || begin
+          path = Application::Dialog.save_file(win, :filter_path => File.expand_path("~"))
+        end
+      end
+    end
+  end
+end

data/plugins/project/lib/project/dir_mirror.rb

@@ -0,0 +1,53 @@
+
+module Redcar
+  class Project
+    class DirMirror
+      include Redcar::TreeView::Mirror
+      
+      # @param [String] a path to a directory
+      def initialize(path)
+        @path = File.expand_path(path)
+        @changed = true
+      end
+      
+      # Does the directory exist?
+      def exists?
+        File.exist?(@path)
+      end
+      
+      # Have the toplevel nodes changed?
+      def changed?
+        @changed
+      end
+      
+      def top
+        @changed = false
+        Node.create_all_from_path(@path)
+      end
+      
+      class Node
+        def self.create_all_from_path(path)
+          Dir[path + "/*"].map {|fn| Node.new(fn)}
+        end
+        
+        include Redcar::TreeView::Mirror::NodeMirror
+        
+        def initialize(path)
+          @path = path
+        end
+        
+        def text
+          File.basename(@path)
+        end
+        
+        def leaf?
+          File.file?(@path)
+        end
+        
+        def children
+          Node.create_all_from_path(@path)
+        end
+      end
+    end
+  end
+end

data/plugins/project/lib/project/file_mirror.rb

@@ -0,0 +1,70 @@
+
+require "digest/sha1"
+
+module Redcar
+  class Project
+    # Represents a local file. Implements the EditView::Mirror interface so it
+    # can be used as a mirror for a Redcar::Document. This is how files are 
+    # loaded in Redcar. EditView contains a Document which contains a Mirror
+    # which reflects a file.
+    class FileMirror
+      include Redcar::EditView::Mirror
+      
+      # @param [String] a path to a file
+      def initialize(path)
+        @path = path
+      end
+      
+      # Load the contents of the file from disk
+      #
+      # @return [String]
+      def read
+        return "" unless exists?
+        contents = load_contents
+        @hash = Digest::SHA1.hexdigest(contents)
+        contents
+      end
+      
+      # Does the file exist?
+      #
+      # @return [Boolean]
+      def exists?
+        File.exists?(@path)
+      end
+      
+      # Has the file changed since the last time it was read or commited?
+      # If it has never been read then this is true by default.
+      #
+      # @return [Boolean]
+      def changed?
+        @hash != Digest::SHA1.hexdigest(load_contents)
+      end
+      
+      # Save new file contents.
+      #
+      # @param [String] new contents
+      # @return [unspecified]
+      def commit(contents)
+        save_contents(contents)
+        @hash = Digest::SHA1.hexdigest(contents)
+      end
+      
+      # The filename.
+      #
+      # @return [String]
+      def title
+        @path.split("/").last
+      end
+      
+      private
+      
+      def load_contents
+        File.read(@path)
+      end
+      
+      def save_contents(contents)
+        File.open(@path, "w") {|f| f.print contents }
+      end
+    end
+  end
+end

data/plugins/project/plugin.yaml

@@ -0,0 +1,12 @@
+--- !ruby/object:FreeBASE::PluginConfiguration
+name: project
+description: Projects 
+version: 1.0
+author: Daniel Lucraft
+autoload: true
+require_path: project/lib/project.rb
+startup_module: Redcar::Project
+load_dependencies: 
+  edit_view: "*"
+start_dependencies: 
+  edit_view: "*"

data/plugins/project/spec/project/dir_mirror_spec.rb

@@ -0,0 +1,76 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+class Redcar::Project
+  describe DirMirror do
+    before do
+      @dirname = "project_spec_testdir"
+      @files = {"Carnegie"    => "steel", 
+                "Rockefeller" => "oil",
+                "subdir"      => {
+                  "Ford" => "cars"
+                }}
+      write_dir_contents(@dirname, @files)
+      @mirror = DirMirror.new(File.expand_path(@dirname))
+    end
+
+    describe "for a directory" do
+    
+      it "tells you the directory exists" do
+        @mirror.exists?.should be_true
+      end
+      
+      it "tells you it has changed" do
+        @mirror.changed?.should be_true
+      end
+      
+      describe "top level contents" do
+        it "the nodes are the contents of the directory" do
+          top_nodes = @mirror.top
+          top_nodes.length.should == 3
+          top_nodes.map {|n| n.text}.should == %w(Carnegie Rockefeller subdir)
+        end
+        
+        it "files are leaf nodes" do
+          top_nodes = @mirror.top
+          top_nodes.detect {|n| n.text == "Carnegie"}.leaf?.should be_true
+          top_nodes.detect {|n| n.text == "Rockefeller"}.leaf?.should be_true
+        end
+        
+        it "subdirectories are not leaf nodes" do
+          top_nodes = @mirror.top
+          top_nodes.detect {|n| n.text == "subdir"}.leaf?.should be_false
+        end
+        
+        it "isn't changed after you have got the top nodes" do
+          @mirror.top
+          @mirror.changed?.should be_false
+        end
+        
+        describe "sub directory contents" do
+          it "the nodes return their children" do
+            subdir_node = @mirror.top.detect {|n| n.text == "subdir"}
+            sub_nodes = subdir_node.children
+            sub_nodes.length.should == 1
+            sub_nodes.map {|n| n.text}.should == %w(Ford)
+          end
+        end
+      end
+    end
+    
+    after do
+      FileUtils.rm_r(@dirname)
+    end
+    
+    def write_dir_contents(dirname, files)
+      FileUtils.mkdir_p(dirname)
+      files.each do |filename, contents|
+        if contents.is_a?(Hash)
+          write_dir_contents(dirname + "/" + filename, contents)
+        else
+          File.open(dirname + "/" + filename, "w") {|f| f.print contents}
+        end
+      end
+    end
+    
+  end
+end