redcar 0.2.9dev

data/plugins/project/spec/project/file_mirror_spec.rb

@@ -0,0 +1,78 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+class Redcar::Project
+  describe FileMirror do
+    def write_testfile_contents(val)
+      File.open(@filename, "w") {|f| f.print val}
+    end
+    
+    before do
+      @filename = "project_spec_testfile"
+      write_testfile_contents("wintersmith")
+      @mirror = FileMirror.new(@filename)
+    end
+    
+    after do
+      FileUtils.rm(@filename)
+    end
+    
+    describe "for a test file" do
+      it "tells you it exists" do
+        @mirror.exists?.should be_true
+      end
+      
+      it "tells you it has changed" do
+        @mirror.changed?.should be_true
+      end
+      
+      it "lets you get the contents of the file" do
+        @mirror.read.should == "wintersmith"
+      end
+
+      it "lets you save new contents" do
+        @mirror.commit("hiver")
+        @mirror.read.should == "hiver"
+      end
+      
+      describe "that you have read" do
+        before do
+          @mirror.read
+        end
+        
+        it "tells you it has not changed" do
+          @mirror.changed?.should be_false
+        end
+        
+        describe "and since committed" do
+          before do
+            @mirror.commit("hiver")
+          end
+          
+          it "tells you it has not changed" do
+            @mirror.changed?.should be_false
+          end
+        end
+        
+        describe "and has since changed on disk" do
+          before do
+            write_testfile_contents("the queen")
+          end
+          
+          it "tells you it has changed" do
+            @mirror.changed?.should be_true
+          end
+        end
+      end
+    end
+    
+    describe "for a nonexistent file" do
+      it "tells you if a file doesn't exist" do
+        FileMirror.new("nontestfile").exists?.should be_false
+      end
+      
+      it "returns an empty string for the contents" do
+        FileMirror.new("nontestfile").read.should == ""
+      end
+    end
+  end
+end

data/plugins/project/spec/spec_helper.rb

@@ -0,0 +1,4 @@
+$:.push File.join(File.dirname(__FILE__), '..', '..', '..', 'lib')
+
+require 'redcar'
+Redcar.require

data/plugins/redcar/plugin.yaml

@@ -0,0 +1,20 @@
+--- !ruby/object:FreeBASE::PluginConfiguration
+name: redcar
+description: Redcar 
+version: 1.0
+author: Daniel Lucraft
+autoload: true
+require_path: redcar/redcar.rb
+startup_module: Redcar::Top
+load_dependencies: 
+  core: "*"
+  application: "*"
+  application_swt: "*"
+  project: "*"
+  repl: "*"
+start_dependencies: 
+  core: "*"
+  application: "*"
+  application_swt: "*"
+  project: "*"
+  repl: "*"

data/plugins/redcar/redcar.rb

@@ -0,0 +1,166 @@
+
+module Redcar
+  module Top
+    class NewCommand < Command
+      key :osx     => "Cmd+N",
+          :linux   => "Ctrl+N",
+          :windows => "Ctrl+N"
+      
+      def execute
+        puts "new tab in #{win.inspect}"
+        tab = win.new_tab(Redcar::EditTab)
+        tab.title = "untitled"
+        tab.focus
+      end
+    end
+    
+    class NewNotebookCommand < Command
+      key :osx     => "Cmd+Alt+N",
+          :linux   => "Ctrl+Alt+N",
+          :windows => "Ctrl+Alt+N"
+
+      def execute
+        unless win.notebooks.length > 1
+          win.create_notebook
+        end
+      end
+    end
+    
+    class NewWindowCommand < Command
+      
+      def initialize(title=nil)
+        @title = title
+      end
+      
+      def execute
+        window = Redcar.app.new_window
+        window.title = @title if @title
+      end
+    end
+    
+    class CloseWindowCommand < Command
+      def initialize(window=nil)
+        @window = window
+      end
+    
+      def execute
+        (@window||win).close
+      end
+    end
+    
+    class RotateNotebooksCommand < Command
+          
+      def execute
+        win.rotate_notebooks
+      end
+    end
+    
+    class CloseNotebookCommand < Command
+          
+      def execute
+        unless win.notebooks.length == 1
+          win.close_notebook
+        end
+      end
+    end
+    
+    class MoveTabToOtherNotebookCommand < Command
+      # TODO: sensitize to multiple notebooks and open tab
+      key :osx     => "Cmd+Alt+O",  
+          :linux   => "Ctrl+Alt+O",
+          :windows => "Ctrl+Alt+O"
+
+      def execute
+        if tab = win.focussed_notebook.focussed_tab
+          current_notebook = tab.notebook
+          target_notebook = win.notebooks.detect {|nb| nb != current_notebook}
+          target_notebook.grab_tab_from(current_notebook, tab)
+        end
+      end
+    end
+
+    class PrintContents < EditTabCommand
+      key "Cmd+P"
+      
+      def execute
+        puts "printing contents"
+        tab = win.focussed_notebook.focussed_tab
+        p tab.edit_view.document.to_s
+      end
+    end
+    
+    class PrintHistoryCommand < Command
+      def execute
+        Redcar.history.each do |c|
+          puts c
+        end
+      end
+    end
+    
+    class PrintScopeTreeCommand < Command
+      def execute
+        tab = win.focussed_notebook.focussed_tab
+        puts tab.edit_view.controller.mate_text.parser.root.pretty(0)
+      end
+    end
+
+    class CloseTabCommand < TabCommand
+      key :osx     => "Cmd+W",
+          :linux   => "Ctrl+W",
+          :windows => "Ctrl+W"
+      
+      def execute
+        # TODO: should be win.focussed_notebook
+        if tab = win.focussed_notebook.focussed_tab
+          tab.close
+        end
+      end
+    end
+    
+    class ListTabsCommand < Command
+      def execute
+        p win.focussed_notebook.tabs.map {|tab| tab.class}
+      end
+    end
+    
+    def self.start
+      Redcar.gui = ApplicationSWT.gui
+      Redcar.app.controller = ApplicationSWT.new(Redcar.app)
+      builder = Menu::Builder.new do
+        sub_menu "File" do
+          item "New", NewCommand
+          item "New Notebook", NewNotebookCommand
+          item "New Window", NewWindowCommand
+          item "Open", Project::FileOpenCommand
+          separator
+          item "Save", Project::FileSaveCommand
+          item "Save As", Project::FileSaveAsCommand
+          separator
+          item "Close Tab", CloseTabCommand
+          item "Close Notebook", CloseNotebookCommand
+          item "Close Window", CloseWindowCommand
+        end
+        sub_menu "Debug" do
+          item "Print Command History", PrintHistoryCommand
+          item "Print Contents", PrintContents
+          item "List Tabs", ListTabsCommand
+          item "Print Scope Tree", PrintScopeTreeCommand
+          sub_menu "REPL" do
+            item "Open", REPL::OpenInternalREPL
+            item "Execute", REPL::CommitREPL
+          end
+        end
+        sub_menu "View" do
+          item "Rotate Notebooks", RotateNotebooksCommand
+          item "Move Tab To Other Notebook", MoveTabToOtherNotebookCommand
+        end
+        sub_menu "Help" do
+          item "Website", PrintHistoryCommand
+        end
+      end
+      
+      Redcar.app.menu = builder.menu
+      Redcar.app.new_window
+    end
+  end
+end

data/plugins/repl/lib/repl.rb

@@ -0,0 +1,44 @@
+
+require 'repl/internal_mirror'
+
+module Redcar
+  class REPL
+    class OpenInternalREPL < Command
+      
+      def execute
+        tab = win.new_tab(Redcar::EditTab)
+        edit_view = tab.edit_view
+        edit_view.document.mirror = InternalMirror.new
+        edit_view.cursor_offset = edit_view.document.length
+        tab.focus
+      end
+    end
+    
+    class ReplCommand < Command
+      sensitize :open_repl_tab
+    end
+    
+    def self.start
+      Sensitivity.new(:open_repl_tab, Redcar.app, false, [:tab_focussed]) do |tab|
+        tab and 
+        tab.is_a?(EditTab) and 
+        tab.edit_view.document.mirror.is_a?(REPL::InternalMirror)
+      end
+    end
+    
+    class CommitREPL < ReplCommand
+      key :linux   => "Ctrl+M",
+          :osx     => "Cmd+M",
+          :windows => "Ctrl+M"
+
+      def execute
+        edit_view = win.focussed_notebook.focussed_tab.edit_view
+        edit_view.document.save!
+        edit_view.cursor_offset = edit_view.document.length
+        edit_view.scroll_to_line(edit_view.document.line_count)
+      end
+    end
+  end
+end
+
+

data/plugins/repl/lib/repl/internal_mirror.rb

@@ -0,0 +1,98 @@
+
+module Redcar
+  class REPL
+    class InternalMirror
+      include Redcar::EditView::Mirror
+      
+      attr_reader :history, :results
+      
+      def initialize
+        @history, @results, @instance = [], [], Main.new
+      end
+
+      def title
+        "(internal)"
+      end
+      
+      # Get the complete history of commands and results as a pretty formatted
+      # string.
+      #
+      # @return [String]
+      def read
+        str = message
+        @history.zip(@results) do |command, result|
+          output, is_error = *result
+          str << prompt + command + "\n"
+          str << (is_error ? error_pointer : output_pointer)
+          str << output + "\n"
+        end
+        str << prompt
+      end
+
+      # Execute a new statement. Accepts the entire pretty formatted history,
+      # within which it looks for the last statement and executes it.
+      #
+      # @param [String] a string with at least one prompt and statement in it
+      def commit(contents)
+        command = contents.split(prompt).last
+        @history << command
+        begin
+          result, is_error = @instance.execute(command).inspect, false
+        rescue Object => e
+          result, is_error = format_error(e), true
+        end
+        @results << [result, is_error]
+        notify_listeners(:change)
+      end
+
+      # The Repl always exists because there is no external resource to 
+      # represent.
+      def exists?
+        true
+      end
+
+      # The Repl never changes except for after commit operations.
+      def changed?
+        false
+      end
+
+      private
+      
+      def message
+        "# Redcar REPL\n\n"
+      end
+      
+      def prompt
+        ">> "
+      end
+      
+      def output_pointer
+        "=> "
+      end
+      
+      def error_pointer
+        "x> "
+      end
+      
+      def format_error(e)
+        backtrace = e.backtrace.reject{|l| l =~ /internal_mirror/}
+        backtrace.unshift("(repl):1")
+        "#{e.class}: #{e.message}\n        #{backtrace.join("\n        ")}"
+      end
+      
+      class Main
+        def initialize
+          @binding = binding
+        end
+
+        def inspect
+          "main"
+        end
+
+        def execute(command)
+          eval(command, @binding)
+        end
+      end
+    end
+  end
+end

data/plugins/repl/plugin.yaml

@@ -0,0 +1,12 @@
+--- !ruby/object:FreeBASE::PluginConfiguration
+name: repl
+description: Adds REPL-style tabs to Redcar.
+version: 1.0
+author: Daniel Lucraft
+autoload: true
+require_path: repl/lib/repl.rb
+startup_module: Redcar::REPL
+load_dependencies: 
+  edit_view: "*"
+start_dependencies: 
+  edit_view: "*"

data/plugins/repl/spec/repl/internal_mirror_spec.rb

@@ -0,0 +1,147 @@
+require File.join(File.dirname(__FILE__), "..", "spec_helper")
+
+class Redcar::REPL
+  describe InternalMirror do
+    before do
+      @mirror = InternalMirror.new
+      @changed_event = false
+      @mirror.add_listener(:change) { @changed_event = true }
+    end
+    
+    def commit_test_text1
+      text = <<-RUBY
+# Redcar REPL
+
+>> $internal_repl_test = 707
+RUBY
+      @mirror.commit(text.chomp)
+    end
+    
+    def result_test_text1
+      (<<-RUBY).chomp
+# Redcar REPL
+
+>> $internal_repl_test = 707
+=> 707
+>> 
+RUBY
+    end
+
+    def commit_test_text2
+              text = <<-RUBY
+# Redcar REPL
+
+>> $internal_repl_test = 707
+=> 707
+>> $internal_repl_test = 909
+RUBY
+      @mirror.commit(text.chomp)
+    end
+    
+    def result_test_text2
+      (<<-RUBY).chomp
+# Redcar REPL
+
+>> $internal_repl_test = 707
+=> 707
+>> $internal_repl_test = 909
+=> 909
+>> 
+RUBY
+    end
+
+    describe "with no history" do
+      it "should exist" do
+        @mirror.should be_exist
+      end
+      
+      it "should have a message and a prompt" do
+        @mirror.read.should == (<<-RUBY).chomp
+# Redcar REPL
+
+>> 
+RUBY
+      end
+      
+      it "should have a title" do
+        @mirror.title.should == "(internal)"
+      end
+      
+      it "should not be changed" do
+        @mirror.should_not be_changed
+      end
+      
+      describe "when executing" do
+        it "should execute committed text" do
+          commit_test_text1
+          $internal_repl_test.should == 707
+        end
+
+        it "should emit changed event when text is executed" do
+          commit_test_text1
+          @changed_event.should be_true
+        end
+
+        it "should now have the command and the result at the end" do
+          commit_test_text1
+          @mirror.read.should == result_test_text1
+        end
+        
+        it "should display errors" do
+          @mirror.commit(">> nil.foo")
+          @mirror.read.should == (<<-RUBY).chomp
+# Redcar REPL
+
+>> nil.foo
+x> NoMethodError: undefined method `foo' for nil:NilClass
+        (repl):1
+>> 
+RUBY
+        # ` RUBY
+        end
+      end
+    end
+    
+    describe "with a history" do
+      before do
+        commit_test_text1
+      end
+      
+      it "should not have changed" do
+        @mirror.changed?.should be_false
+      end
+      
+      it "should display the history and prompt correctly" do
+        @mirror.read.should == result_test_text1
+      end
+      
+      describe "when executing" do
+        it "should execute committed text" do
+          commit_test_text2
+          $internal_repl_test.should == 909
+        end
+        
+        it "should show the correct history" do
+          commit_test_text2
+          @mirror.read.should == result_test_text2
+        end
+      end
+    end
+    
+    describe "when executing" do
+      it "should execute inside a main object" do
+        @mirror.commit(">> self")
+        @mirror.results.last.should == ["main", false]
+      end
+      
+      it "should persist local variables" do
+        @mirror.commit(">> a = 13")
+        @mirror.commit(">> a")
+        @mirror.results.last.should == ["13", false]
+      end
+    end
+  end
+end
+
+
+