redcar-clojure 0.2

data/lib/clojure.rb

@@ -0,0 +1,39 @@
+
+require 'clojure/repl_mirror'
+
+puts "loading the clojure plugin"
+
+module Redcar
+  class Clojure
+
+    def self.menus
+      Menu::Builder.build do
+        sub_menu "Plugins" do
+          sub_menu "REPL" do
+            item "Open Clojure REPL", OpenClojureREPL
+          end
+        end
+      end
+    end
+
+    def self.load_dependencies
+      unless @loaded
+        require File.join(vendor_dir, "clojure-1.2beta1.jar")
+        require File.join(vendor_dir, "clojure-contrib-1.2beta1.jar")
+        require File.join(vendor_dir, "org-enclojure-repl-server.jar")
+        require File.join(vendor_dir, "enclojure-wrapper.jar")
+        @loaded = true
+      end
+    end
+    
+    def self.vendor_dir
+      File.expand_path("../../vendor", __FILE__)
+    end
+
+    class OpenClojureREPL < Redcar::REPL::OpenREPL
+      def execute
+        open_repl(ReplMirror.new)
+      end
+    end
+  end
+end

data/lib/clojure/repl_mirror.rb

@@ -0,0 +1,65 @@
+
+module Redcar
+  class Clojure
+    class ReplMirror < Redcar::REPL::ReplMirror
+
+      def title
+        "Clojure REPL"
+      end
+
+      def grammar_name
+        "Clojure REPL"
+      end
+
+      def prompt
+        "user=>"
+      end
+
+      def evaluator
+        @evaluator ||= Evaluator.new(self)
+      end
+
+      def format_error(e)
+        "ERROR: #{e.message}\n\n#{e.backtrace.join("\n")}"
+      end
+
+      class Evaluator
+        attr_reader :wrapper
+
+        def self.load_dependencies
+          unless @loaded
+            Clojure.load_dependencies
+            import 'redcar.repl.Wrapper'
+            @loaded = true
+          end
+        end
+
+        def initialize(mirror)
+          Evaluator.load_dependencies
+          @mirror = mirror
+          @wrapper ||= begin
+            wrapper = Wrapper.new
+
+            @thread = Thread.new do
+              loop do
+                output = wrapper.getResult
+                output =~ /^(.*)\nuser=> /
+                @result = $1
+              end
+            end
+
+            wrapper
+          end
+        end
+
+        def execute(expr)
+          wrapper.sendToRepl(expr)
+          true until @result
+          str = @result
+          @result = nil
+          str
+        end
+      end
+    end
+  end
+end

data/plugin.rb

@@ -0,0 +1,9 @@
+
+Plugin.define do
+  name    "clojure"
+  version "1.0"
+  file    "lib", "clojure"
+  object  "Redcar::Clojure"
+  dependencies "redcar", ">0",
+               "repl",   ">0"
+end

data/vendor/Wrapper.clj

@@ -0,0 +1,16 @@
+(ns redcar.repl.Wrapper
+  (:require [org.enclojure.repl.main])
+  (:gen-class
+    :state state
+    :init init
+    :methods [[getResult [] String]
+              [sendToRepl [String] void]]))
+
+(defn -init []  
+  [[] (org.enclojure.repl.main/create-clojure-repl)])
+
+(defn -getResult [this]
+  ((:result-fn (.state this))))
+
+(defn -sendToRepl [this expr]
+  ((:repl-fn (.state this)) expr))

metadata

@@ -0,0 +1,56 @@
+--- !ruby/object:Gem::Specification
+name: redcar-clojure
+version: !ruby/object:Gem::Version
+  version: '0.2'
+  prerelease: 
+platform: ruby
+authors:
+- Daniel Lucraft
+- Delisa Mason
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-09-10 00:00:00.000000000 +01:00
+default_executable: 
+dependencies: []
+description: ''
+email:
+- dan@fluentradical.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/clojure/repl_mirror.rb
+- lib/clojure.rb
+- README.md
+- plugin.rb
+- vendor/clojure-1.2beta1.jar
+- vendor/clojure-contrib-1.2beta1.jar
+- vendor/enclojure-wrapper.jar
+- vendor/Wrapper.clj
+has_rdoc: true
+homepage: http://github.com/danlucraft/redcar-clojure
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.6.2
+signing_key: 
+specification_version: 3
+summary: A Redcar plugin for Clojure development
+test_files: []