nrepl 0.0.1

data/.gitignore

@@ -0,0 +1,18 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+lib/nrepl/snippets.rb

data/.pryrc

@@ -0,0 +1,3 @@
+require 'nrepl'
+
+include Nrepl

data/.tm_properties

@@ -0,0 +1,2 @@
+projectDirectory = $CWD
+include = "{$include,.pryrc,.gitignore}"

data/Gemfile

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

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 Scott Fleckenstein
+
+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,39 @@
+# Nrepl
+
+Nrepl is a ruby library to communicate with a clojure nrepl
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'nrepl'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install nrepl
+
+## Usage
+
+### Connecting to an existing repl
+
+```ruby
+repl = Nrepl::Repl.connect(1234) # connect to port 1234
+```
+
+### Evaluating code in the repl
+
+```ruby
+repl.eval "(+ 3 3)" # => an array of responses messages from the repl
+```
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/lib/nrepl.rb

@@ -0,0 +1,9 @@
+require "nrepl/version"
+
+require 'active_support/core_ext/hash'
+require 'active_support/core_ext/object'
+require 'nrepl/core_ext/hash'
+
+module Nrepl
+  autoload :Repl, 'nrepl/repl'
+end

data/lib/nrepl/core_ext/hash.rb

@@ -0,0 +1,5 @@
+class Hash
+  def delete_blank
+    delete_if{|k, v| v.blank? or (v.instance_of?(Hash) && v.delete_blank.empty?)}
+  end
+end

data/lib/nrepl/repl.rb

@@ -0,0 +1,158 @@
+require 'socket'
+require 'retriable'
+require 'bencode'
+
+
+module Nrepl
+  class Repl
+    attr_accessor :session
+    attr_accessor :debug
+    
+    ##
+    # Connects to an already running nrepl server
+    # 
+    # @param [Fixnum] port The port the server is running on
+    # @return [Nrepl::Repl] a repl instance
+    def self.connect(port)
+      new(port)
+    end
+    
+    ##
+    # Starts a new clojure process at the current working directory
+    # 
+    # @param [Fixnum,nil] port An optional port number, otherwise leiningen
+    #  will pick the port
+    # @return [Nrepl::Repl] a repl instance
+    def self.start(port=nil)
+      read, write = IO.pipe
+      
+      pid = fork do
+        read.close
+        Process.setsid
+        STDOUT.reopen write
+        STDERR.reopen write
+        STDIN.reopen  "/dev/null", "r"
+        exec "bash -c 'lein repl :headless :port #{port}'"
+      end
+      
+      write.close
+      line = read.gets
+      case line
+      when /Address already in use/ ;
+        # no-op, just connect to existing repl
+      when /nREPL server started on port (\d+)/
+        port = $~[1].to_i
+      else
+        raise "Unknown error launching repl: #{line}"
+        Process.kill(pid)
+        Process.waitpid(pid)
+      end
+      read.close
+
+      new(port)
+    end
+    
+    def initialize(port)
+      @port = port
+      @session = nil
+      @debug = false
+    end
+    
+    def debug!
+      @debug = true
+      self
+    end
+    
+    ##
+    # Returns true if we can get a socket connection to this repl
+    # 
+    # @return [Boolean] true if running, false if not
+    def running?
+      !!get_socket(0)
+    end
+    
+    ##
+    # Clones the bindings for the provided session and sets the new session to
+    # current
+    # 
+    # @param [String,nil] session The optional prototype session to clone from
+    # @return [String] the new session id
+    def clone_session(session=nil)
+      response = send(op:"clone", session:session).first
+      @session = response["new-session"]
+      @session
+    end
+    
+    ##
+    # Closes the provided sessions
+    # 
+    # @param [String,nil] session An optional session identifier, otherwise the
+    #   current session will be closed
+    def close_session(session=nil)
+      result = send(op:"close", session:session)
+    end
+    
+    ##
+    # Returns a list of sessions known to the repl
+    # 
+    # @return [<String>] An array of session ids
+    def list_sessions
+      response = send(op:"ls-sessions").first
+      response["sessions"]
+    end
+    
+    ##
+    # Evaluates code on the repl, returning an array of responses
+    # 
+    # @param [String] code The code to run
+    def eval(code, &block)
+      result = send(op:"eval", code:code, &block)
+    end
+    
+    ##
+    # Sends a raw command to the repl, returning an array of responses
+    # 
+    def send(command)
+      command = command.reverse_merge(session: @session).delete_blank
+      
+      sock = get_socket
+      
+      sock.print command.bencode
+      
+      puts ">>> #{command.inspect}" if @debug
+      
+      responses = []
+      done = false
+      
+      begin
+        until done
+          retriable timeout: 0.2, tries: 100 do
+            raw = sock.recv(100000) #TODO: figure out better way to ensure we've drained the receive buffer besides large magic number
+            decoded = raw.bdecode
+          
+            puts "<<< #{decoded}" if @debug
+            responses << decoded
+            yield decoded if block_given?
+          
+            status = responses.last["status"]
+            done = status.include?("done") || status.include?("error")
+          end
+        end
+      rescue BEncode::DecodeError
+        # TODO
+      end
+      
+      responses
+    end
+    
+    
+    
+    def get_socket(tries = 3)
+      retriable on: [Errno::ECONNREFUSED], tries: tries, interval: 3 do
+        TCPSocket.new("localhost", @port)
+      end
+    rescue Errno::ECONNREFUSED
+      nil
+    end
+  end
+end

data/lib/nrepl/version.rb

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

data/nrepl.gemspec

@@ -0,0 +1,25 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'nrepl/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "nrepl"
+  gem.version       = Nrepl::VERSION
+  gem.authors       = ["Scott Fleckenstein"]
+  gem.email         = ["nullstyle@gmail.com"]
+  gem.description   = %q{nrepl is a library used to connect a clojure nrepl}
+  gem.summary       = %q{nrepl is a library used to connect a clojure nrepl}
+  gem.homepage      = "https://github.com/nullstyle/nrepl"
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+  
+  gem.add_dependency "bencode",       "~> 0.7.0"
+  gem.add_dependency "retriable",     "~> 1.3.3"
+  gem.add_dependency "activesupport", "~> 3.2.11"
+  
+  gem.add_development_dependency "pry", "~> 0.9.11.4"
+end

metadata

@@ -0,0 +1,122 @@
+--- !ruby/object:Gem::Specification
+name: nrepl
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Scott Fleckenstein
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-02-06 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bencode
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.7.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.7.0
+- !ruby/object:Gem::Dependency
+  name: retriable
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.3.3
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.3.3
+- !ruby/object:Gem::Dependency
+  name: activesupport
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 3.2.11
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 3.2.11
+- !ruby/object:Gem::Dependency
+  name: pry
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.9.11.4
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.9.11.4
+description: nrepl is a library used to connect a clojure nrepl
+email:
+- nullstyle@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .pryrc
+- .tm_properties
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- lib/nrepl.rb
+- lib/nrepl/core_ext/hash.rb
+- lib/nrepl/repl.rb
+- lib/nrepl/version.rb
+- nrepl.gemspec
+homepage: https://github.com/nullstyle/nrepl
+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.23
+signing_key: 
+specification_version: 3
+summary: nrepl is a library used to connect a clojure nrepl
+test_files: []
+has_rdoc: