zweikopf 0.0.1

data/.gitignore

@@ -0,0 +1,27 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+/target
+/lib
+/classes
+/checkouts
+pom.xml
+*.jar
+*.class
+.lein-deps-sum
+.lein-failures
+.lein-plugins

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--format progress

data/.travis.yml

@@ -0,0 +1,6 @@
+rvm:
+  - jruby
+jdk:
+  - openjdk6
+  - openjdk7
+script: "rake && lein2 test"

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in zweikopf.gemspec
+gemspec

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Oleksandr Petrov
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,41 @@
+# Zweihopf, a two-headed JVM friend of yours.
+
+Zweikopf helps you to interoperate between Clojure and JRuby on JVM.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'zweikopf'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install zweikopf
+
+# Performance
+
+## Conversion from Ruby hash to Clojure PersistentHash Map
+
+Most of time 52% according to the rough estimate is spent while converting from ruby Symbol to clojure Keyword.
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Added some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request
+
+# Copyright
+
+Copyright (C) 2011-2012 Alex Petrov, Maximilian Karasz, Daniel Steiner, Roman Flammer.
+
+Distributed under the Eclipse Public License, the same as Clojure.

data/Rakefile

@@ -0,0 +1,13 @@
+#!/usr/bin/env rake
+require "bundler/gem_tasks"
+require 'rspec/core/rake_task'
+
+desc 'Default: run the specs and features.'
+task :default => 'spec:all'
+
+namespace :spec do
+  desc "Run all specs"
+  RSpec::Core::RakeTask.new('all') do |t|
+    t.pattern = 'spec/{**/*_spec.rb}'
+  end
+end

data/lib/zweikopf/hash.rb

@@ -0,0 +1,40 @@
+java_import "clojure.lang.PersistentHashMap"
+java_import "clojure.lang.PersistentArrayMap"
+java_import "clojure.lang.Keyword"
+java_import "java.util.Map"
+
+module Zweikopf
+  module Hash
+    def self.empty
+      PersistentHashMap::EMPTY
+    end
+
+    def self.create(hash)
+      ret = empty.as_transient
+      hash.each do |k, v|
+        if v.is_a?(::Hash)
+          ret = ret.assoc(Keyword.intern(k.to_s), self.create(v))
+        else
+          ret = ret.assoc(Keyword.intern(k.to_s), v)
+        end
+      end
+      ret.persistent
+    end
+
+    def self.from_clj(clj_hash)
+      {}.tap do |ruby_map|
+        clj_hash.each do |k, v|
+          if v.is_a?(PersistentHashMap) || v.is_a?(PersistentArrayMap)
+            ruby_map[clj_to_ruby_symbol(k)] = self.from_clj(v)
+          else
+            ruby_map[clj_to_ruby_symbol(k)] = v
+          end
+        end
+      end
+    end # self.from_clj
+
+    def self.clj_to_ruby_symbol(keyword)
+      keyword.to_s.gsub(/:/, "").to_sym
+    end # self.clj_to_ruby_symbol
+  end
+end

data/lib/zweikopf/version.rb

@@ -0,0 +1,3 @@
+module Zweikopf
+  VERSION = "0.0.1"
+end

data/lib/zweikopf.rb

@@ -0,0 +1,6 @@
+require "zweikopf/hash"
+require "zweikopf/version"
+
+module Zweikopf
+
+end

data/project.clj

@@ -0,0 +1,5 @@
+(defproject zweikopf "0.1.0-SNAPSHOT"
+  :description "jruby clojure interop"
+  :dependencies [[org.clojure/clojure "1.4.0"]
+                 [org.jruby/jruby-complete "1.6.7.2"]]
+  :profiles {:dev {:dependencies []}})

data/spec/fixtures/clj_array1.clj

@@ -0,0 +1 @@
+[:a 1 :b 2 :c 3]

data/spec/fixtures/clj_deep_hash1.clj

@@ -0,0 +1 @@
+{:a 1 :b {:c 3 :d 4}}

data/spec/fixtures/clj_hash1.clj

@@ -0,0 +1 @@
+{:a 1 :b 2}

data/spec/fixtures/empty_hash.clj

@@ -0,0 +1 @@
+{}

data/spec/spec_helper.rb

@@ -0,0 +1,29 @@
+puts RUBY_PLATFORM
+
+require 'java'
+
+
+deps = File.join(File.dirname(__FILE__), "..", "deps")
+
+# Dir["#{deps}/\*.jar"].each do |jar|
+require "/Users/alexp/p/zweikopf/deps/clojure-1.4.0.jar" # jar
+# end
+
+
+java_import "clojure.lang.RT"
+
+require 'zweikopf'
+
+# Requires supporting ruby files with custom matchers and macros, etc,
+# in spec/support/ and its subdirectories.
+Dir["spec/support/**/*.rb"].each {|f| require f}
+
+RSpec.configure do |config|
+  config.treat_symbols_as_metadata_keys_with_true_values = true
+  config.run_all_when_everything_filtered = true
+  config.filter_run :focus
+
+  config.order = 'random'
+
+  config.include Spec::Loader
+end

data/spec/support/loader.rb

@@ -0,0 +1,17 @@
+java_import 'clojure.lang.Compiler'
+
+module Spec
+  # Helper module for loading Clojure code
+  module Loader
+
+    # Loads fixture from the file located under spec/fixtures
+    #
+    # @param [String/Symbol] fixture_name: name of the fixture to load
+    # @return [undefined]
+    #
+    # @api public
+    def load_fixture(fixture_name)
+      Compiler.load_file("spec/fixtures/#{fixture_name}.clj")
+    end
+  end
+end

data/spec/zweikopf/hash_spec.rb

@@ -0,0 +1,102 @@
+require 'spec_helper'
+
+describe Zweikopf::Hash do
+  describe :empty do
+    let(:empty_hash) { load_fixture(:empty_hash) }
+
+    it "returns empty clojure hash" do
+      Zweikopf::Hash.empty.should eql empty_hash
+    end
+  end
+
+  describe :create do
+
+
+    context "when given a non-recursive hash structure" do
+
+      #
+      # Environment
+      #
+
+      let(:hash) { load_fixture(:clj_hash1) }
+
+      #
+      # Examples
+      #
+
+      it "creates a Clojure hash" do
+        Zweikopf::Hash.create({:a => 1, :b => 2}).should eql hash
+      end
+    end
+
+    context "when given a recursive hash structure" do
+
+      #
+      # Environment
+      #
+
+      let(:hash) { load_fixture(:clj_deep_hash1) }
+
+      #
+      # Examples
+      #
+
+      it "creates a Clojure hash" do
+        Zweikopf::Hash.create({:a => 1, :b => {:c => 3, :d =>4}}).should eql hash
+      end
+    end
+  end
+
+  describe :from_clj do
+    context "given a non-recursive clojure hash structure" do
+
+      #
+      # Environment
+      #
+
+      let(:clj_hash) { load_fixture(:clj_hash1) }
+
+      #
+      # Examples
+      #
+
+      it "creates a Ruby hash" do
+        Zweikopf::Hash.from_clj(clj_hash).should eql({:a => 1, :b => 2})
+      end
+    end
+
+    context "when given a recursive hash structure" do
+
+      #
+      # Environment
+      #
+
+      let(:clj_hash) { load_fixture(:clj_deep_hash1) }
+
+      #
+      # Examples
+      #
+
+      it "creates a Clojure hash" do
+        Zweikopf::Hash.from_clj(clj_hash).should eql({:a => 1, :b => {:c => 3, :d =>4}})
+      end
+    end
+
+    context "when given a clojure array" do
+
+      #
+      # Environment
+      #
+
+      let(:clj_array) { load_fixture(:clj_array1) }
+
+      #
+      # Examples
+      #
+
+      it "creates a Ruby array" do
+        #
+      end
+    end
+  end
+end

data/spec/zweikopf/performance_spec.rb

@@ -0,0 +1,11 @@
+require 'spec_helper'
+
+describe :performance do
+  it "this spec simply shows performance" do
+    time_before = Time.now.to_f
+    100000.times do |i|
+      Zweikopf::Hash.create({:a => i, :b => i})
+    end
+    puts "Time elapsed: #{Time.now.to_f - time_before} seconds"
+  end
+end

data/src/zweikopf/core.clj

@@ -0,0 +1,33 @@
+(ns zweikopf.core
+  (:require [clojure.reflect :as r])
+  (:import [org.jruby RubyObject RubyHash RubyBasicObject
+            RubySymbol RubyHash$RubyHashEntry RubyArray]
+           [org.jruby.javasupport JavaUtil]))
+
+(defprotocol Clojurize
+  (clojurize [this]))
+
+(extend-protocol Clojurize
+  java.lang.Object
+  (clojurize [this] this)
+  RubyObject
+  (clojurize [this] (JavaUtil/convertRubyToJava this))
+  RubySymbol
+  (clojurize [^RubySymbol this]
+             (clojure.lang.Keyword/intern (.toString this)))
+  RubyHash
+  (clojurize [^RubyHash this]
+             (loop [[^RubyHash$RubyHashEntry entry & entries] (seq (.directEntrySet this))
+                    acc (transient {})]
+               (if entry
+                 (recur entries
+                        (assoc! acc (clojurize (.getKey entry))
+                                (clojurize (.getValue entry))))
+                 (persistent! acc))))
+  RubyArray
+  (clojurize [^RubyArray this]
+             (loop [[entry & entries] (seq this)
+                    acc (transient [])]
+               (if entry
+                 (recur entries (conj! acc (clojurize entry)))
+                 (persistent! acc)))))

data/test/zweikopf/core_test.clj

@@ -0,0 +1,23 @@
+(ns zweikopf.core-test
+  (:import [org.jruby.embed ScriptingContainer])
+  (:use clojure.test
+        zweikopf.core))
+
+(defn run-ruby-script [script]
+  (.runScriptlet (ScriptingContainer.) script))
+
+(deftest hash-test
+  (testing "Empty hash"
+    (is (= {} (clojurize (run-ruby-script "{}")))))
+  (testing "Non-empty hash"
+    (is (= {:a 1 :b 2} (clojurize (run-ruby-script "{:a => 1, :b =>2 }")))))
+  (testing "Deep hash"
+    (is (= {:a 1 :b {:c 3 :d 4}} (clojurize (run-ruby-script "{:a => 1, :b => {:c => 3, :d =>4}}"))))))
+
+(deftest array-test
+  (testing "Empty array"
+    (is (= [] (clojurize (run-ruby-script "[]")))))
+  (testing "Non-empty array"
+    (is (= [1 :a "b"]) (run-ruby-script "[1, :a, 'b']")))
+  (testing "Deep array"
+    (is (= [:a [:c :d] :e :f]) (run-ruby-script "[:a, [:c, :d], :e, :f]"))))

data/zweikopf.gemspec

@@ -0,0 +1,20 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path('../lib/zweikopf/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.authors       = ["Oleksandr Petrov"]
+  gem.email         = ["oleksandr.petrov@gmail.com"]
+  gem.description   = %q{Rubygem for jruby/clojure interop}
+  gem.summary       = %q{It's good, try it out!}
+  gem.homepage      = ""
+
+  gem.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  gem.files         = `git ls-files`.split("\n")
+  gem.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  gem.name          = "zweikopf"
+  gem.require_paths = ["lib"]
+  gem.version       = Zweikopf::VERSION
+
+  gem.add_development_dependency "rake"
+  gem.add_development_dependency "rspec"
+end

metadata

@@ -0,0 +1,107 @@
+--- !ruby/object:Gem::Specification 
+name: zweikopf
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.0.1
+platform: ruby
+authors: 
+  - Oleksandr Petrov
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2012-07-17 00:00:00 Z
+dependencies: 
+  - !ruby/object:Gem::Dependency 
+    name: rake
+    prerelease: false
+    requirement: &id001 !ruby/object:Gem::Requirement 
+      none: false
+      requirements: 
+        - - ">="
+          - !ruby/object:Gem::Version 
+            version: "0"
+    type: :development
+    version_requirements: *id001
+  - !ruby/object:Gem::Dependency 
+    name: rspec
+    prerelease: false
+    requirement: &id002 !ruby/object:Gem::Requirement 
+      none: false
+      requirements: 
+        - - ">="
+          - !ruby/object:Gem::Version 
+            version: "0"
+    type: :development
+    version_requirements: *id002
+description: Rubygem for jruby/clojure interop
+email: 
+  - oleksandr.petrov@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+  - .gitignore
+  - .rspec
+  - .travis.yml
+  - Gemfile
+  - LICENSE
+  - README.md
+  - Rakefile
+  - deps/clojure-1.4.0.jar
+  - lib/zweikopf.rb
+  - lib/zweikopf/hash.rb
+  - lib/zweikopf/version.rb
+  - project.clj
+  - spec/fixtures/clj_array1.clj
+  - spec/fixtures/clj_deep_hash1.clj
+  - spec/fixtures/clj_hash1.clj
+  - spec/fixtures/empty_hash.clj
+  - spec/spec_helper.rb
+  - spec/support/loader.rb
+  - spec/zweikopf/hash_spec.rb
+  - spec/zweikopf/performance_spec.rb
+  - src/zweikopf/core.clj
+  - test/zweikopf/core_test.clj
+  - zweikopf.gemspec
+homepage: ""
+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.8.24
+signing_key: 
+specification_version: 3
+summary: It's good, try it out!
+test_files: 
+  - spec/fixtures/clj_array1.clj
+  - spec/fixtures/clj_deep_hash1.clj
+  - spec/fixtures/clj_hash1.clj
+  - spec/fixtures/empty_hash.clj
+  - spec/spec_helper.rb
+  - spec/support/loader.rb
+  - spec/zweikopf/hash_spec.rb
+  - spec/zweikopf/performance_spec.rb
+  - test/zweikopf/core_test.clj
+has_rdoc: