redcar-dev 0.12.17dev

data/plugins/macros/lib/macros/predictive/sequence_finder.rb

@@ -0,0 +1,112 @@
+
+module Redcar
+  module Macros
+    module Predictive
+      class SequenceFinder
+        MAX_LENGTH = 100
+        
+        attr_reader :super_sequence
+        attr_reader :state
+        
+        def initialize(super_sequence)
+          @super_sequence = super_sequence.reverse
+          @state          = {
+            :search_mode => :fully_repeated, 
+            :length_x => max_possible_repeat_length,
+            :length_y => nil
+          }
+        end
+          
+        def next
+          return nil if done?
+          seq = nil
+          until seq or done?
+            seq = detect_current
+            increment_state
+          end
+          seq
+        end
+        
+        def detect_current
+          case current_search_mode
+          when :fully_repeated
+            detect_fully_repeated_sequence(state[:length_x])
+          when :partially_repeated
+            detect_partially_repeated_sequence(state[:length_x], state[:length_y])
+          end
+        end
+        
+        def done?
+          @done
+        end
+        
+        def current_search_mode
+          @state[:search_mode]
+        end
+        
+        # in XX how long can X be?
+        def max_possible_repeat_length
+          super_sequence.length / 2
+        end
+        
+        # in XYX how long can X be?
+        def max_possible_repeated_portion_length
+          r = super_sequence.length / 2
+          if r*2 == super_sequence.length
+            r - 1
+          else
+            r
+          end
+        end
+        
+        # in XYX how long can Y be, given X?
+        def max_possible_non_repeated_portion_length(repeated_portion_length)
+          super_sequence.length - repeated_portion_length*2
+        end
+        
+        private
+        
+        def detect_fully_repeated_sequence(length)
+          candidate = super_sequence[0..(length - 1)]
+          confirmation = super_sequence[length..(2*length - 1)]
+          if candidate == confirmation
+            ActionSequence.new(candidate.reverse, 0)
+          end
+        end
+        
+        def detect_partially_repeated_sequence(length_x, length_y)
+          candidate_x = super_sequence[0..(length_x - 1)]
+          candidate_y = super_sequence[length_x..(length_x + length_y - 1)]
+          confirmation_x = super_sequence[(length_x + length_y)..(2*length_x + length_y - 1)]
+          if candidate_x == confirmation_x
+            ActionSequence.new(candidate_x.reverse + candidate_y.reverse, candidate_x.length)
+          end
+        end
+        
+        def increment_state
+          case current_search_mode
+          when :fully_repeated
+            if state[:length_x] > 1
+              state[:length_x] -= 1
+            else
+              state[:search_mode] = :partially_repeated
+              state[:length_x]    = max_possible_repeated_portion_length
+              state[:length_y]    = 1
+            end
+          when :partially_repeated
+            if state[:length_y] == max_possible_non_repeated_portion_length(state[:length_x])
+              state[:length_y] = 1
+              if state[:length_x] > 1
+                state[:length_x] -= 1
+              else
+                @done = true
+              end
+            else
+              state[:length_y] += 1
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/plugins/macros/plugin.rb

@@ -0,0 +1,9 @@
+
+Plugin.define do
+  name "macros"
+  version "1.0"
+  file "lib", "macros"
+  object "Redcar::Macros"
+  dependencies "application", ">0",
+              "edit_view",   ">0"
+end

data/plugins/macros/spec/macros/predictive/sequence_finder_spec.rb

@@ -0,0 +1,142 @@
+
+require File.dirname(__FILE__) + '/../../spec_helper'
+
+describe Redcar::Macros::Predictive::SequenceFinder do
+  SequenceFinder = Redcar::Macros::Predictive::SequenceFinder
+  
+  describe "fully repeated sequences (XYXY)" do
+    it "should return nil if there are no repeated sequences" do
+      SequenceFinder.new(%w(a b c)).next.should be_nil
+    end
+    
+    it "should find repeated sequence of length 1" do
+      SequenceFinder.new(%w(a a)).next.actions.should == %w(a)
+    end
+    
+    it "should find repeated sequence of length 2" do
+      SequenceFinder.new(%w(a b a b)).next.actions.should == %w(a b)
+    end
+    
+    it "should find repeated sequence of length 3" do
+      SequenceFinder.new(%w(a b c a b c)).next.actions.should == %w(a b c)
+    end
+    
+    it "should find repeated sequence of length 3 with padding at the front" do
+      SequenceFinder.new(%w(x x a b c a b c)).next.actions.should == %w(a b c)
+    end
+    
+    it "should choose the longest option when there are multiple options" do
+      SequenceFinder.new(%w(a b c c a b c c)).next.actions.should == %w(a b c c)
+    end
+
+    it "should cycle through fully repeated options" do
+      seq_finder = SequenceFinder.new(%w(a b c c a b c c))
+      seq1 = seq_finder.next
+      seq1.actions.should == %w(a b c c)
+      
+      seq2 = seq_finder.next
+      seq2.actions.should == %w(c)
+    end
+  end
+  
+  describe "partially repeated sequences (XYX)" do
+    it "should find partially repeated sequence of length 2, matched by 1" do
+      seq = SequenceFinder.new(%w(a b a)).next
+      seq.actions.should == %w(a b)
+      seq.skip_length.should == 1
+    end
+    
+    it "should find partially repeated sequence of length 3, matched by 1" do
+      seq = SequenceFinder.new(%w(a b c a)).next
+      seq.actions.should == %w(a b c)
+      seq.skip_length.should == 1
+    end
+
+    it "should find partially repeated sequence of length 3, matched by 2" do
+      seq = SequenceFinder.new(%w(a b c a b)).next
+      seq.actions.should == %w(a b c)
+      seq.skip_length.should == 2
+    end
+    
+    it "should find partially repeated sequence of length 3, matched by 2 with padding" do
+      seq = SequenceFinder.new(%w(x x X x X x a b c a b)).next
+      seq.actions.should == %w(a b c)
+      seq.skip_length.should == 2
+    end
+    
+    it "should choose the longest X and shortest Y" do
+      seq = SequenceFinder.new(%w(a b r a c a d a b r a)).next
+      seq.actions.should == %w(a b r a c a d)
+      seq.skip_length.should == 4
+    end
+    
+    it "should cycle through fully repeated options and partially repeated options" do
+      seq_finder = SequenceFinder.new(%w(a b c c a b c c))
+      seq1 = seq_finder.next
+      seq1.actions.should == %w(a b c c)
+      seq1.skip_length.should == 0
+      
+      seq2 = seq_finder.next
+      seq2.actions.should == %w(c)
+      seq2.skip_length.should == 0
+      
+      seq3 = seq_finder.next
+      seq3.actions.should == %w(b c c a)
+      seq3.skip_length.should == 3
+    end
+
+  end
+end
+
+
+
+
+__END__
+  describe "find candidate sequences" do
+    it "should find from 1 length partial repeat" do
+      assert_equal [[1, 2, 3]],
+        Redcar::DynamicMacros.find_repeated_sequences([3, 1, 2, 3, 4, 5])
+    end
+    
+    it "should find two possibilities from 2 length partial repeat" do
+      assert_equal [[1, 2, 3], [3, 1, 2]],
+        Redcar::DynamicMacros.find_repeated_sequences([2, 3, 1, 2, 3])
+    end
+    
+    it "should find three possibilites from complete repetition of length 3 sequence" do
+      assert_equal [[1, 2, 3], [3, 1, 2], [2, 3, 1]],
+        Redcar::DynamicMacros.find_repeated_sequences([1, 2, 3, 1, 2, 3])
+    end
+    
+    it "should find a lot of possibilities from a short repeated sequence"do
+      assert_equal [[2, 1], [1, 2, 1, 2], [2, 1, 2, 1], [1, 2], [1, 2, 1, 2], [1, 2, 1, 2, 1, 2]],
+        Redcar::DynamicMacros.find_repeated_sequences([2, 1, 2, 1, 2, 1, 2, 4])
+    end
+  end
+  
+  it "should find most likely repeated sequence" do
+    assert_equal {:seq => [1, 2, 3], :length => 1, :gap => 2},
+      Redcar::DynamicMacros.find_repeated_sequence([3, 1, 2, 3, 4, 5])
+    assert_equal {:seq => [[1, 2, 3], :length => 2, :gap => 1},
+      Redcar::DynamicMacros.find_repeated_sequence([2, 3, 1, 2, 3])
+    assert_equal {:seq => [[1, 2, 3], :length => 3, :gap => 0},
+      Redcar::DynamicMacros.find_repeated_sequence([1, 2, 3, 1, 2, 3])
+    assert_equal {:seq => [[2, 1], :length => 2, :gap => 0},
+      Redcar::DynamicMacros.find_repeated_sequence([2, 1, 2, 1, 2, 1, 2, 4])
+    assert_equal {:seq => [%w{a b c c}.reverse, :length => 4, :gap => 0},
+      Redcar::DynamicMacros.find_repeated_sequence("abccabcc".split(//).reverse)
+    assert_equal {:seq => [%w{a b r a c a d}.reverse, :length => 4, :gap => 3},
+      Redcar::DynamicMacros.find_repeated_sequence("abracadabra".split(//).reverse)
+  end
+  
+  it "should 3"
+    assert_equal {:seq => %w{a b r a c a d}.reverse, :length => 4, :gap => 3},
+      Redcar::DynamicMacros.find_repeated_sequence("abracadabra".split(//).reverse)
+    assert_equal {:seq => %w{b r a c a d a}.reverse, :length => 3, :gap => 4},
+      Redcar::DynamicMacros.find_repeated_sequence("abracadabra".split(//).reverse, 4, 3)
+    assert_equal {:seq => %w{r a c a d a b}.reverse, :length => 2, :gap => 5},
+      Redcar::DynamicMacros.find_repeated_sequence("abracadabra".split(//).reverse, 3, 4)
+    assert_equal {:seq => %w{a b r}.reverse, :length => 1, :gap => 2},
+      Redcar::DynamicMacros.find_repeated_sequence("abracadabra".split(//).reverse, 2, 5)
+  end
+end

data/plugins/macros/spec/spec_helper.rb

@@ -0,0 +1,6 @@
+
+$:.push File.join(File.dirname(__FILE__), '..', '..', '..', 'lib')
+require 'redcar'
+Redcar.environment = :test
+Redcar.no_gui_mode!
+Redcar.load_unthreaded

data/plugins/macros/views/macro_manager.html.erb

@@ -0,0 +1,92 @@
+<!DOCTYPE html>
+<html>
+  <head>
+    <title>Macro Manager</title>
+    <% watermark  = File.expand_path(File.join(Redcar.root, %w(plugins html_view views watermark-48.png))) %>
+    <% redcar_css = File.expand_path(File.join(Redcar.root, %w(plugins html_view views default.css))) %>
+    <% jquery_path = File.expand_path(File.join(Redcar.root, %w(plugins html_view assets jquery-1.4.min.js))) %>
+    <link rel="stylesheet" href="file://<%= redcar_css %>" type="text/css" media="screen">
+    <script type="text/javascript" src="file://<%= jquery_path %>"></script>
+<!--    <script type="text/javascript" src="file://<%= Redcar::HtmlView.jquery_path %>"></script>-->
+  </head>
+  <body>
+    <div id="top">
+      <img src="file://<%=watermark%>" id="watermark"/>
+      <h1>Macro Manager</h1>
+    </div>
+    <div class="main">
+      <h4>Unsaved Macros</h4>
+      <% if Macros.session_macros.any? %>
+        <table>
+          <% Macros.session_macros.each_with_index do |macro, i| %>
+            <tr>
+              <th class="macro-name"><%= macro.name %></th>
+              <td><a class="show-actions" href="#">Show Actions</a></td>
+              <td><a class="assign-name" href="#">Assign Name and Save</a></td>
+              <td><a class="delete-macro" href="#">Delete Macro</a></td>
+            </tr>
+            <%= macro_steps(macro) %>
+          <% end %>
+        </table>
+      <% else %>
+        <p>None</p>
+      <% end %>
+
+      <h4>Saved Macros</h4>
+      <% if Macros.saved_macros.any? %>
+          <table>
+          <% Macros.saved_macros.reverse.each do |macro| %>
+            <tr>
+              <th class="macro-name"><%= macro.name %></th>
+              <td><a class="show-actions" href="#">Show Actions</a></td>
+              <td><a class="rename-macro" href="#">Rename</a></td>
+              <td><a class="delete-macro" href="#">Delete Macro</a></td>
+            </tr>
+          <%= macro_steps(macro) %>
+          <% end %>
+        </table>
+      <% else %>
+        <p>None</p>
+      <% end %>
+    </div>
+  </body>
+</html>
+
+<script language="javascript">
+  $("a.assign-name").click(function(e) {
+    e.preventDefault();
+    var macroName = $(this).parent().parent().find(".macro-name").text();
+    try {
+      Controller.assignName(macroName);
+      Controller.reloadIndex();
+    } catch(e) {
+      alert(e.message);
+    }
+  });
+  $("a.show-actions").click(function(e) {
+    e.preventDefault();
+    var actions = $(this).parent().parent().next(".macro-actions");
+    actions.toggle();
+  });
+
+  $("a.rename-macro").click(function(e) {
+    e.preventDefault();
+    var macroName = $(this).parent().parent().find(".macro-name").text();
+    try {
+      Controller.renameMacro(macroName);
+      Controller.reloadIndex();
+    } catch(e) {
+      alert(e.message);
+    }
+  });
+  $("a.delete-macro").click(function(e) {
+    e.preventDefault();
+    var macroName = $(this).parent().parent().find(".macro-name").text();
+    try {
+      Controller.deleteMacro(macroName);
+      Controller.reloadIndex();
+    } catch(e) {
+      alert(e.message);
+    }
+  });
+</script>

data/plugins/my_plugin/lib/my_plugin.rb

@@ -0,0 +1,47 @@
+module Redcar
+  # This class is your plugin. Try adding new commands in here
+  # and putting them in the menus.
+  class MyPlugin
+  
+    # This method is run as Redcar is booting up.
+    def self.menus
+      # Here's how the plugin menus are drawn. Try adding more
+      # items or sub_menus.
+      Menu::Builder.build do
+        sub_menu "Plugins" do
+          sub_menu "My Plugin", :priority => 139 do
+            item "Hello World!", HelloWorldCommand
+            item "Edit My Plugin", EditMyPluginCommand
+          end
+        end
+      end
+    end
+
+    # Example command: showing a dialog box.
+    class HelloWorldCommand < Redcar::Command
+      def execute
+        Application::Dialog.message_box("Hello World!")
+      end
+    end
+
+    # Command to open a new window, make the project my_plugin
+    # and open this file.
+    class EditMyPluginCommand < Redcar::Command
+      def execute
+        # Open the project in a new window
+        Project::Manager.open_project_for_path("plugins/my_plugin")
+        
+        # Create a new edittab
+        tab  = Redcar.app.focussed_window.new_tab(Redcar::EditTab)
+        
+        # A FileMirror's job is to wrap up the file in an interface that the Document understands.
+        mirror = Project::FileMirror.new(File.join(Redcar.root, "plugins", "my_plugin", "lib", "my_plugin.rb"))
+        tab.edit_view.document.mirror = mirror
+
+        # Make sure the tab is focussed and the user can't undo the insertion of the document text
+        tab.edit_view.reset_undo
+        tab.focus
+      end
+    end
+  end
+end

data/plugins/my_plugin/plugin.rb

@@ -0,0 +1,8 @@
+
+Plugin.define do
+  name    "my_plugin"
+  version "1.0"
+  file    "lib", "my_plugin"
+  object  "Redcar::MyPlugin"
+  dependencies "redcar", ">0"
+end

data/plugins/open_default_app/lib/open_default_app.rb

@@ -0,0 +1,61 @@
+module Redcar
+
+  class OpenDefaultApp
+
+    def self.project_context_menus(tree, node, controller)
+      Menu::Builder.build do
+        if node and node.path
+          item ("Open Default App"){OpenDefaultAppCommand.new(node.path).run }
+        end
+      end
+    end
+
+    class OpenDefaultAppCommand < Redcar::Command
+      import java.awt.Desktop
+
+      attr_reader :path
+
+      def initialize(path)
+        @path = path
+      end
+
+      def execute(options=nil)
+        @path ||= options[:value]
+        begin
+          file  = java::io::File.new(path)
+          if Desktop.is_desktop_supported()
+            desktop = Desktop.get_desktop
+            desktop.open(file)
+          end
+        rescue Object => e
+          Application::Dialog.message_box("A default application could not be found for this type of file.")
+        end
+      end
+    end
+  end
+
+  class OpenDefaultBrowserCommand < Redcar::Command
+    import java.awt.Desktop
+
+    attr_reader :uri
+
+    def self.supported?
+      Desktop.is_desktop_supported()
+    end
+
+    def initialize(uri)
+      @uri = uri
+    end
+
+    def execute
+      begin
+        return unless OpenDefaultBrowserCommand.supported?
+        URI::parse(@uri)
+        parsed_uri = java.net.URI.new(@uri)
+        Desktop.get_desktop.browse(parsed_uri)
+      rescue URI::InvalidURIError
+        raise ArgumentError, "Invalid URI given"
+      end
+    end
+  end
+end