em-redislite 0.1

data/README.rdoc

@@ -0,0 +1,42 @@
+= Redis Lite 
+
+Eventmachine based adapter that talks redis 2.0 protocol
+
+== Installation
+
+  gem install em-redislite
+
+=== Dependencies
+
+* Ruby >= 1.9.1
+* eventmachine
+
+== Usage
+
+  require 'em/redislite'
+
+  EM.run do
+    client  = EM::Redis.connect  # defaults to { host: '127.0.0.1', port: 6379 }
+    client.errback {|error| $stderr.puts "Redis Error: #{error}"; EM.stop }
+
+    r = client.command :get, "mykey"
+    r.callback {|value| p value }
+    r.errback  {|error| p error }
+
+    # syntactic sugar for string and boolean commands
+    r = client.get "mykey"
+    r = client.set "mykey", "some value", 1800  # ttl
+
+    # you should be running redis in a private network or have it firewalled but ...
+    r = client.command :auth, "my super dooper password"  # should work as well
+  end
+
+== Testing
+
+There are no tests at the moment coz I'm a lazy slob.
+
+== License
+
+GNU GPLv3, so its free and comes with no guarantees. If it brings down your website or burns down your house, I will
+not be held responsible. Use it at your own risk. You can read all about GNU here: http://www.gnu.org and
+GNU GPLv3 here: http://www.gnu.org/licenses/gpl.txt.

data/em-redislite.gemspec

@@ -0,0 +1,16 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+	s.name          = %q{em-redislite}
+	s.version       = '0.1'
+	s.summary       = 'A lightweight EM based Redis adapter'
+	s.description   = 'A very simple EventMachine based adapter that talks Redis protocol'
+	s.authors       = [ 'Bharanee Rathna' ]
+	s.email         = %q{deepfryed@gmail.com}
+	s.homepage      = %q{http://github.com/deepfryed/em-redislite}
+	s.files         = %w(README.rdoc em-redislite.gemspec) + Dir.glob("{lib,tests}/**/*")
+	s.require_paths = %w(lib)
+	s.platform      = Gem::Platform::RUBY
+
+	s.add_dependency('eventmachine')
+end

data/lib/em/redis/sugar.rb

@@ -0,0 +1,34 @@
+class EM::Redis::Client
+  COMMANDS = {
+    string:  %w(get strlen getset setnx setex setbit getbit mset msetnx mget incr incrby decr decrby
+                append setrange getrange),
+    boolean: %w(exists del type keys randomkey rename renamenx dbsize expire persist ttl select move
+                flushdb flushall),
+  }.freeze
+
+  COMMANDS[:string].each  {|c| send(:define_method, c) {|*args| command(c, *args) }}
+  COMMANDS[:boolean].each {|c| send(:define_method, c) {|*args|
+    defer = EM::DefaultDeferrable.new
+    req   = command(c, *args)
+    req.callback {|r| defer.succeed(r == '1') }
+    req.errback  {|e| defer.fail(e) }
+    defer
+  }}
+
+  # set here is special since it combines :set and optional :expire
+  def set key, value, ttl = nil
+    if ttl
+      defer = EM::DefaultDeferrable.new
+      req   = command(:set, key, value)
+      req.callback do
+        req = command(:expire, key, ttl)
+        req.callback {|r| defer.succeed(r == '1') }
+        req.errback  {|e| defer.fail(e) }
+      end
+      req.errback {|e| defer.fail(e) }
+      defer
+    else
+      command(:set, key, value)
+    end
+  end
+end

data/lib/em/redis.rb

@@ -0,0 +1,102 @@
+require 'eventmachine'
+module EM
+  module Redis
+    class Error < StandardError; end
+
+    DEFAULTS = { host: '127.0.0.1', port: 6379 }
+
+    def self.connect options = {}
+      options = DEFAULTS.merge(options)
+      begin
+        EM.connect options[:host], options[:port], Client, { host: options[:host], port: options[:port] }
+      rescue ConnectionError => e
+        client = Client.new ''
+        client.fail(Error.new(e.message))
+        client
+      end
+    end
+
+    class Client < Connection
+      include Deferrable
+
+      def initialize options
+        @options = options
+      end
+
+      def post_init
+        @buffer     = ''
+        @want_bytes = 0
+        @want_lines = 0
+        @pool       = []
+        @lines      = []
+      end
+
+      def command name, *args
+        defer = DefaultDeferrable.new
+        @pool << defer
+        send_data "*#{args.length + 1}\r\n" +
+                  "$#{name.length}\r\n#{name}\r\n" +
+                  args.map(&:to_s).inject('') {|a,v| a + "$#{v.bytesize}\r\n#{v}\r\n"}
+        defer
+      end
+
+      def on_error msg, dns_error = false
+        unbind(msg)
+      end
+
+      def reset_errback &block
+        @errbacks = [ block ]
+      end
+
+      def reconnect!
+        EM.reconnect @options[:host], @options[:port], self
+      end
+
+      def unbind msg = 'lost connection'
+        error = Error.new(msg)
+        @pool.each {|r| r.fail(error) }
+        @pool = []
+        fail error
+      end
+
+      def receive_data data
+        @buffer << data
+        while index = @buffer.index("\r\n")
+          if @want_bytes > 0
+            break unless @buffer.bytesize >= @want_bytes + 2
+            data = @buffer.slice!(0, @want_bytes + 2)
+            process_bytes(data[0..@want_bytes-1])
+          else
+            process_response @buffer.slice!(0, index+2).strip
+          end
+        end
+      end
+
+      def process_bytes data
+        @want_bytes = 0
+        if @want_lines > 0
+          @lines.push(data)
+          if @lines.length == @want_lines
+            @pool.shift.succeed(@lines)
+            @lines, @want_lines = [], 0
+          end
+        else
+          @pool.shift.succeed(data)
+        end
+      end
+
+      def process_response data
+        case data[0]
+          when '+' then @pool.shift.succeed(data[1..-1])
+          when '-' then @pool.shift.fail(Error.new(data[1..-1]))
+          when ':' then @pool.shift.succeed(data[1..-1])
+          when '$' then @want_bytes = data[1..-1].to_i
+          when '*' then @want_lines = data[1..-1].to_i
+          else     fail Error.new("Unknown data format: #{data}")
+        end
+
+        process_bytes(nil) if @want_bytes < 0
+      end
+    end # Client
+  end # Redis
+end # EM

data/lib/em-redislite.rb

@@ -0,0 +1,2 @@
+require_relative 'em/redis'
+require_relative 'em/redis/sugar'

data/tests/helper.rb

@@ -0,0 +1,15 @@
+require 'minitest/spec'
+require_relative '../lib/em-redislite'
+
+class MiniTest::Unit::TestCase
+  def em_run &block
+    EM.run do
+      client = EM::Redis.connect
+      r      = client.command :flushdb
+      r.callback {|value| block.yield(client) }
+      r.errback  {|error| $stderr.puts error.inspect; Kernel.exit(1) }
+    end
+  end
+end
+
+MiniTest::Unit.autorun

data/tests/test_command_expire.rb

@@ -0,0 +1,21 @@
+require_relative 'helper'
+
+describe 'Command Expire' do
+  it 'should support set with expiry' do
+    @success = false
+    em_run do |client|
+      r = client.set 'mykey', 'foobar', 1
+      r = client.get 'mykey'
+      r.callback do |value|
+        EM.stop unless value == 'foobar'
+        EM.add_timer(2) do
+          r = client.get 'mykey'
+          r.callback {|value| @success = assert_nil value; EM.stop }
+          r.errback  {|error| EM.stop }
+        end
+      end
+      r.errback  {|error| EM.stop }
+    end
+    assert @success
+  end
+end

data/tests/test_commands.rb

@@ -0,0 +1,74 @@
+require_relative 'helper'
+
+describe 'Commands' do
+  it 'should support set' do
+    @success = false
+    em_run do |client|
+      r = client.set 'mykey', 'foobar'
+      r.callback {|value| @success = assert_equal 'OK', value;  EM.stop }
+      r.errback  {|error| EM.stop }
+    end
+    assert @success
+  end
+
+  it 'should support get' do
+    @success = false
+    em_run do |client|
+      r = client.set 'mykey', 'foo1234'
+      r = client.get 'mykey'
+      r.callback {|value| @success = assert_equal 'foo1234', value; EM.stop }
+      r.errback  {|error| EM.stop }
+    end
+    assert @success
+  end
+
+  it 'should support get with nil' do
+    @success = false
+    em_run do |client|
+      r = client.get 'mykey1234'
+      r.callback {|value| @success = assert_nil value; EM.stop }
+      r.errback  {|error| EM.stop }
+    end
+    assert @success
+  end
+
+  it 'should support mget' do
+    @success = false
+    em_run do |client|
+      r = client.set  'mykey1', 'foo1234'
+      r = client.set  'mykey2', 'bar1234'
+      r = client.mget 'mykey1', 'mykey2'
+
+      r.callback {|value| @success = assert_equal %w(foo1234 bar1234), value; EM.stop }
+      r.errback  {|error| EM.stop }
+    end
+    assert @success
+  end
+
+  it 'should support incr and incrby' do
+    @success = false
+    em_run do |client|
+      client.incr   'mykey'
+      client.incrby 'mykey', 2
+
+      r = client.get  'mykey'
+      r.callback {|value| @success = assert_equal '3', value; EM.stop }
+      r.errback  {|error| EM.stop }
+    end
+    assert @success
+  end
+
+  it 'should support decr and decrby' do
+    @success = false
+    em_run do |client|
+      client.set    'mykey', 5
+      client.decr   'mykey'
+      client.decrby 'mykey', 2
+
+      r = client.get  'mykey'
+      r.callback {|value| @success = assert_equal '2', value; EM.stop }
+      r.errback  {|error| EM.stop }
+    end
+    assert @success
+  end
+end

data/tests/test_connection.rb

@@ -0,0 +1,22 @@
+require_relative 'helper'
+
+describe 'Connection' do
+  it 'should connect and return a client' do
+    EM.run {
+      client = EM::Redis.connect
+      assert_kind_of EM::Redis::Client, client
+      EM.stop
+    }
+  end
+
+  it 'should defer fail on failed connection' do
+    EM.run {
+      failed = false
+      client = EM::Redis.connect host: 'tardis', port: 0
+      assert_kind_of EM::Redis::Client, client
+      client.errback { failed = true }
+      assert failed
+      EM.stop
+    }
+  end
+end

metadata

@@ -0,0 +1,83 @@
+--- !ruby/object:Gem::Specification 
+name: em-redislite
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  version: "0.1"
+platform: ruby
+authors: 
+- Bharanee Rathna
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-19 00:00:00 +11:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: eventmachine
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: A very simple EventMachine based adapter that talks Redis protocol
+email: deepfryed@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- README.rdoc
+- em-redislite.gemspec
+- lib/em-redislite.rb
+- lib/em/redis/sugar.rb
+- lib/em/redis.rb
+- tests/helper.rb
+- tests/test_command_expire.rb
+- tests/test_commands.rb
+- tests/test_connection.rb
+has_rdoc: true
+homepage: http://github.com/deepfryed/em-redislite
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: A lightweight EM based Redis adapter
+test_files: []
+