jrclj 1.0.0

data/lib/jrclj.rb

@@ -0,0 +1,48 @@
+require 'java'
+
+#Dir["#{File.dirname(__FILE__)}/*.jar"].each { |jar| puts "requiring: #{jar}"; require jar }
+import "clojure.lang.RT"
+
+class JRClj
+  def initialize *pkgs
+    @mappings = {}
+    @ns_map  = RT.var "clojure.core", "ns-map"
+    @symbol  = RT.var "clojure.core", "symbol"
+    @require = RT.var "clojure.core", "require"
+    _import "clojure.core"
+    pkgs.each do |pkg|
+      _import pkg
+    end
+  end
+
+  def _import pkg_name, sym=nil, sym_alais=nil
+    @require.invoke @symbol.invoke(pkg_name)
+    if sym
+      sym_alias ||= sym
+      @mappings[sym_alias] = RT.var pkg_name, sym
+      return
+    end
+    pkg = @symbol.invoke pkg_name
+    @ns_map.invoke(pkg).each do |sym,var|
+      @mappings[sym.to_s] = var
+    end
+  end
+
+  def _invoke m, *args
+    fun = @mappings[m.to_s] || @mappings[m.to_s.gsub "_", "-"]
+    unless fun
+      raise "Error, no current binding for symbol=#{m}"
+    end
+    fun.invoke(*args)
+  end
+
+  def _alias new, old
+    @mappings[new] = @mappings[old]
+  end
+
+  def method_missing symbol, *args
+    _invoke symbol, *args
+  end
+
+end
+ 

data/spec/jrclj_spec.rb

@@ -0,0 +1,24 @@
+require 'java'
+$:.push "#{File.dirname(__FILE__)}/../lib"
+require 'jrclj'
+
+describe JRClj do
+  it "should support core functions" do
+    core = JRClj.new
+    core.+(3, 2).should == 5
+    core./(3, 2).should == 1.5
+    core.inc(2).should == 3
+  end
+
+  it "should support loading other libraries (contrib)" do
+    str_utils = JRClj.new 'clojure.contrib.str-utils'
+    str_utils.str_join(":", [1,2,3]).should == "1:2:3"
+  end
+
+  it "should support calling weirdly named symbols via aliasing" do
+    clj_xpath = JRClj.new 'com.github.kyleburton.clj-xpath'
+    clj_xpath._alias "x_txt", "$x:text"
+    clj_xpath._invoke("$x:text", "//foo", "<foo>bar</foo>").should == "bar"
+    clj_xpath.x_txt("//foo", "<foo>bar</foo>").should == "bar"
+  end
+end

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification 
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+email: kyle.burton@gmail.com
+cert_chain: []
+
+summary: Bridge Library for working with Clojure from JRuby
+post_install_message: 
+extra_rdoc_files: []
+
+homepage: http://github.com/kyleburton/jrclj
+signing_key: 
+name: jrclj
+rdoc_options: []
+
+rubyforge_project: 
+autorequire: 
+licenses: []
+
+executables: []
+
+description: |
+  Helper library for working with Clojure from JRuby.
+specification_version: 3
+default_executable: 
+files: 
+- lib/jrclj.rb
+- spec/jrclj_spec.rb
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - '>='
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+extensions: []
+
+rubygems_version: 1.3.5
+requirements: []
+
+authors: 
+- Kyle Burton
+date: 2010-03-07 05:00:00 +00:00
+platform: ruby
+test_files: []
+
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+require_paths: 
+- lib
+dependencies: []
+
+bindir: bin
+has_rdoc: true