modesty 0.1.0

data/vendor/redis-rb/benchmarking/speed.rb

@@ -0,0 +1,21 @@
+# Run with
+#
+#   $ ruby -Ilib benchmarking/speed.rb
+#
+
+require "benchmark"
+require "redis"
+
+r = Redis.new
+n = (ARGV.shift || 20000).to_i
+
+elapsed = Benchmark.realtime do
+  # n sets, n gets
+  n.times do |i|
+    key = "foo#{i}"
+    r[key] = key * 10
+    r[key]
+  end
+end
+
+puts '%.2f Kops' % (2 * n / 1000 / elapsed)

data/vendor/redis-rb/benchmarking/suite.rb

@@ -0,0 +1,24 @@
+require 'fileutils'
+
+def run_in_background(command)
+  fork { system command }
+end
+
+def with_all_segments(&block)
+  0.upto(9) do |segment_number|
+    block_size = 100000
+    start_index = segment_number * block_size
+    end_index = start_index + block_size - 1
+    block.call(start_index, end_index)
+  end
+end
+
+#with_all_segments do |start_index, end_index|
+#  puts "Initializing keys from #{start_index} to #{end_index}"
+#  system "ruby worker.rb initialize #{start_index} #{end_index} 0"
+#end
+
+with_all_segments do |start_index, end_index|
+  run_in_background "ruby worker.rb write #{start_index} #{end_index} 10"
+  run_in_background "ruby worker.rb read #{start_index} #{end_index} 1"
+end

data/vendor/redis-rb/benchmarking/thread_safety.rb

@@ -0,0 +1,38 @@
+# Run with
+#
+#   $ ruby -Ilib benchmarking/thread_safety.rb
+#
+
+begin
+  require "bench"
+rescue LoadError
+  $stderr.puts "`gem install bench` and try again."
+  exit 1
+end
+
+require "redis"
+
+def stress(redis)
+  redis.flushdb
+
+  n = (ARGV.shift || 2000).to_i
+
+  n.times do |i|
+    key = "foo:#{i}"
+    redis.set key, i
+    redis.get key
+  end
+end
+
+default = Redis.new
+thread_safe = Redis.new(:thread_safe => true)
+
+benchmark "Default" do
+  stress(default)
+end
+
+benchmark "Thread-safe" do
+  stress(thread_safe)
+end
+
+run 10

data/vendor/redis-rb/benchmarking/worker.rb

@@ -0,0 +1,71 @@
+BENCHMARK_ROOT = File.dirname(__FILE__)
+REDIS_ROOT = File.join(BENCHMARK_ROOT, "..", "lib")
+
+$: << REDIS_ROOT
+require 'redis'
+require 'benchmark'
+
+def show_usage
+  puts <<-EOL
+    Usage: worker.rb [read:write] <start_index> <end_index> <sleep_msec>
+  EOL
+end
+
+def shift_from_argv
+  value = ARGV.shift
+  unless value
+    show_usage
+    exit -1
+  end
+  value
+end
+
+operation = shift_from_argv.to_sym
+start_index = shift_from_argv.to_i
+end_index = shift_from_argv.to_i
+sleep_msec = shift_from_argv.to_i
+sleep_duration = sleep_msec/1000.0
+
+redis = Redis.new
+
+case operation
+  when :initialize
+
+    start_index.upto(end_index) do |i|
+      redis[i] = 0
+    end
+
+  when :clear
+
+    start_index.upto(end_index) do |i|
+      redis.delete(i)
+    end
+
+  when :read, :write
+
+    puts "Starting to #{operation} at segment #{end_index + 1}"
+
+    loop do
+      t1 = Time.now
+      start_index.upto(end_index) do |i|
+        case operation
+          when :read
+            redis.get(i)
+          when :write
+            redis.incr(i)
+          else
+            raise "Unknown operation: #{operation}"
+        end
+        sleep sleep_duration
+      end
+      t2 = Time.now
+
+      requests_processed = end_index - start_index
+      time = t2 - t1
+      puts "#{t2.strftime("%H:%M")} [segment #{end_index + 1}] : Processed #{requests_processed} requests in #{time} seconds - #{(requests_processed/time).round} requests/sec"
+    end
+
+  else
+    raise "Unknown operation: #{operation}"
+end
+

data/vendor/redis-rb/examples/basic.rb

@@ -0,0 +1,15 @@
+require 'redis'
+
+r = Redis.new
+
+r.del('foo')
+
+puts
+
+p'set foo to "bar"'
+r['foo'] = 'bar'
+
+puts
+
+p 'value of foo'
+p r['foo']

data/vendor/redis-rb/examples/dist_redis.rb

@@ -0,0 +1,43 @@
+require "redis"
+require "redis/distributed"
+
+r = Redis::Distributed.new %w[redis://localhost:6379 redis://localhost:6380 redis://localhost:6381 redis://localhost:6382]
+
+r.flushdb
+
+r['urmom'] = 'urmom'
+r['urdad'] = 'urdad'
+r['urmom1'] = 'urmom1'
+r['urdad1'] = 'urdad1'
+r['urmom2'] = 'urmom2'
+r['urdad2'] = 'urdad2'
+r['urmom3'] = 'urmom3'
+r['urdad3'] = 'urdad3'
+p r['urmom']
+p r['urdad']
+p r['urmom1']
+p r['urdad1']
+p r['urmom2']
+p r['urdad2']
+p r['urmom3']
+p r['urdad3']
+
+r.rpush 'listor', 'foo1'
+r.rpush 'listor', 'foo2'
+r.rpush 'listor', 'foo3'
+r.rpush 'listor', 'foo4'
+r.rpush 'listor', 'foo5'
+
+p r.rpop('listor')
+p r.rpop('listor')
+p r.rpop('listor')
+p r.rpop('listor')
+p r.rpop('listor')
+
+puts "key distribution:"
+
+r.ring.nodes.each do |node|
+  p [node.client, node.keys("*")]
+end
+r.flushdb
+p r.keys('*')

data/vendor/redis-rb/examples/incr-decr.rb

@@ -0,0 +1,17 @@
+require 'redis'
+
+r = Redis.new
+
+puts
+p 'incr'
+r.del 'counter'
+
+p r.incr('counter')
+p r.incr('counter')
+p r.incr('counter')
+
+puts
+p 'decr'
+p r.decr('counter')
+p r.decr('counter')
+p r.decr('counter')

data/vendor/redis-rb/examples/list.rb

@@ -0,0 +1,26 @@
+require 'rubygems'
+require 'redis'
+
+r = Redis.new
+
+r.del 'logs'
+
+puts
+
+p "pushing log messages into a LIST"
+r.rpush 'logs', 'some log message'
+r.rpush 'logs', 'another log message'
+r.rpush 'logs', 'yet another log message'
+r.rpush 'logs', 'also another log message'
+
+puts
+p 'contents of logs LIST'
+
+p r.lrange('logs', 0, -1)
+
+puts
+p 'Trim logs LIST to last 2 elements(easy circular buffer)'
+
+r.ltrim('logs', -2, -1)
+
+p r.lrange('logs', 0, -1)

data/vendor/redis-rb/examples/pubsub.rb

@@ -0,0 +1,31 @@
+require "redis"
+
+puts <<-EOS
+To play with this example use redis-cli from another terminal, like this:
+
+  $ redis-cli publish one hello
+
+Finally force the example to exit sending the 'exit' message with:
+
+  $ redis-cli publish two exit
+
+EOS
+
+redis = Redis.connect
+
+trap(:INT) { puts; exit }
+
+redis.subscribe(:one, :two) do |on|
+  on.subscribe do |channel, subscriptions|
+    puts "Subscribed to ##{channel} (#{subscriptions} subscriptions)"
+  end
+
+  on.message do |channel, message|
+    puts "##{channel}: #{message}"
+    redis.unsubscribe if message == "exit"
+  end
+
+  on.unsubscribe do |channel, subscriptions|
+    puts "Unsubscribed from ##{channel} (#{subscriptions} subscriptions)"
+  end
+end

data/vendor/redis-rb/examples/sets.rb

@@ -0,0 +1,36 @@
+require 'rubygems'
+require 'redis'
+
+r = Redis.new
+
+r.del 'foo-tags'
+r.del 'bar-tags'
+
+puts
+p "create a set of tags on foo-tags"
+
+r.sadd 'foo-tags', 'one'
+r.sadd 'foo-tags', 'two'
+r.sadd 'foo-tags', 'three'
+
+puts
+p "create a set of tags on bar-tags"
+
+r.sadd 'bar-tags', 'three'
+r.sadd 'bar-tags', 'four'
+r.sadd 'bar-tags', 'five'
+
+puts
+p 'foo-tags'
+
+p r.smembers('foo-tags')
+
+puts
+p 'bar-tags'
+
+p r.smembers('bar-tags')
+
+puts
+p 'intersection of foo-tags and bar-tags'
+
+p r.sinter('foo-tags', 'bar-tags')

data/vendor/redis-rb/examples/unicorn/config.ru

@@ -0,0 +1,3 @@
+run lambda { |env|
+  [200, {"Content-Type" => "text/plain"}, [$redis.randomkey]]
+}

data/vendor/redis-rb/examples/unicorn/unicorn.rb

@@ -0,0 +1,20 @@
+require "redis"
+
+worker_processes 3
+
+# If you set the connection to Redis *before* forking,
+# you will cause forks to share a file descriptor.
+#
+# This causes a concurrency problem by which one fork
+# can read or write to the socket while others are
+# performing other operations.
+#
+# Most likely you'll be getting ProtocolError exceptions
+# mentioning a wrong initial byte in the reply.
+#
+# Thus we need to connect to Redis after forking the
+# worker processes.
+
+after_fork do |server, worker|
+  $redis = Redis.connect
+end

data/vendor/redis-rb/lib/redis.rb

@@ -0,0 +1,676 @@
+require 'socket'
+
+class Redis
+  VERSION = "2.1.1"
+
+  class ProtocolError < RuntimeError
+    def initialize(reply_type)
+      super(<<-EOS.gsub(/(?:^|\n)\s*/, " "))
+      Got '#{reply_type}' as initial reply byte.
+      If you're running in a multi-threaded environment, make sure you
+      pass the :thread_safe option when initializing the connection.
+      If you're in a forking environment, such as Unicorn, you need to
+      connect to Redis after forking.
+      EOS
+    end
+  end
+
+  def self.deprecate(message, trace = caller[0])
+    $stderr.puts "\n#{message} (in #{trace})"
+  end
+
+  attr :client
+
+  def self.connect(options = {})
+    options = options.dup
+
+    require "uri"
+
+    url = URI(options.delete(:url) || ENV["REDIS_URL"] || "redis://127.0.0.1:6379/0")
+
+    options[:host]     ||= url.host
+    options[:port]     ||= url.port
+    options[:password] ||= url.password
+    options[:db]       ||= url.path[1..-1].to_i
+
+    new(options)
+  end
+
+  def self.current
+    Thread.current[:redis] ||= Redis.connect
+  end
+
+  def self.current=(redis)
+    Thread.current[:redis] = redis
+  end
+
+  def initialize(options = {})
+    if options[:thread_safe]
+      @client = Client::ThreadSafe.new(options)
+    else
+      @client = Client.new(options)
+    end
+  end
+
+  def auth(password)
+    @client.call(:auth, password)
+  end
+
+  def select(db)
+    @client.db = db
+    @client.call(:select, db)
+  end
+
+  def info
+    Hash[*@client.call(:info).split(/:|\r\n/)]
+  end
+
+  def config(action, *args)
+    response = @client.call(:config, action, *args)
+    response = Hash[*response] if action == :get
+    response
+  end
+
+  def flushdb
+    @client.call(:flushdb)
+  end
+
+  def flushall
+    @client.call(:flushall)
+  end
+
+  def save
+    @client.call(:save)
+  end
+
+  def bgsave
+    @client.call(:bgsave)
+  end
+
+  def bgrewriteaof
+    @client.call(:bgrewriteaof)
+  end
+
+  def get(key)
+    @client.call(:get, key)
+  end
+
+  def getset(key, value)
+    @client.call(:getset, key, value)
+  end
+
+  def mget(*keys)
+    @client.call(:mget, *keys)
+  end
+
+  def append(key, value)
+    @client.call(:append, key, value)
+  end
+
+  def substr(key, start, stop)
+    @client.call(:substr, key, start, stop)
+  end
+
+  def strlen(key)
+    @client.call(:strlen, key)
+  end
+
+  def hgetall(key)
+    Hash[*@client.call(:hgetall, key)]
+  end
+
+  def hget(key, field)
+    @client.call(:hget, key, field)
+  end
+
+  def hdel(key, field)
+    @client.call(:hdel, key, field)
+  end
+
+  def hkeys(key)
+    @client.call(:hkeys, key)
+  end
+
+  def keys(pattern = "*")
+    _array @client.call(:keys, pattern)
+  end
+
+  def randomkey
+    @client.call(:randomkey)
+  end
+
+  def echo(value)
+    @client.call(:echo, value)
+  end
+
+  def ping
+    @client.call(:ping)
+  end
+
+  def lastsave
+    @client.call(:lastsave)
+  end
+
+  def dbsize
+    @client.call(:dbsize)
+  end
+
+  def exists(key)
+    _bool @client.call(:exists, key)
+  end
+
+  def llen(key)
+    @client.call(:llen, key)
+  end
+
+  def lrange(key, start, stop)
+    @client.call(:lrange, key, start, stop)
+  end
+
+  def ltrim(key, start, stop)
+    @client.call(:ltrim, key, start, stop)
+  end
+
+  def lindex(key, index)
+    @client.call(:lindex, key, index)
+  end
+
+  def linsert(key, where, pivot, value)
+    @client.call(:linsert, key, where, pivot, value)
+  end
+
+  def lset(key, index, value)
+    @client.call(:lset, key, index, value)
+  end
+
+  def lrem(key, count, value)
+    @client.call(:lrem, key, count, value)
+  end
+
+  def rpush(key, value)
+    @client.call(:rpush, key, value)
+  end
+
+  def rpushx(key, value)
+    @client.call(:rpushx, key, value)
+  end
+
+  def lpush(key, value)
+    @client.call(:lpush, key, value)
+  end
+
+  def lpushx(key, value)
+    @client.call(:lpushx, key, value)
+  end
+
+  def rpop(key)
+    @client.call(:rpop, key)
+  end
+
+  def blpop(*args)
+    @client.call_without_timeout(:blpop, *args)
+  end
+
+  def brpop(*args)
+    @client.call_without_timeout(:brpop, *args)
+  end
+
+  def rpoplpush(source, destination)
+    @client.call(:rpoplpush, source, destination)
+  end
+
+  def lpop(key)
+    @client.call(:lpop, key)
+  end
+
+  def smembers(key)
+    @client.call(:smembers, key)
+  end
+
+  def sismember(key, member)
+    _bool @client.call(:sismember, key, member)
+  end
+
+  def sadd(key, value)
+    _bool @client.call(:sadd, key, value)
+  end
+
+  def srem(key, value)
+    _bool @client.call(:srem, key, value)
+  end
+
+  def smove(source, destination, member)
+    _bool @client.call(:smove, source, destination, member)
+  end
+
+  def spop(key)
+    @client.call(:spop, key)
+  end
+
+  def scard(key)
+    @client.call(:scard, key)
+  end
+
+  def sinter(*keys)
+    @client.call(:sinter, *keys)
+  end
+
+  def sinterstore(destination, *keys)
+    @client.call(:sinterstore, destination, *keys)
+  end
+
+  def sunion(*keys)
+    @client.call(:sunion, *keys)
+  end
+
+  def sunionstore(destination, *keys)
+    @client.call(:sunionstore, destination, *keys)
+  end
+
+  def sdiff(*keys)
+    @client.call(:sdiff, *keys)
+  end
+
+  def sdiffstore(destination, *keys)
+    @client.call(:sdiffstore, destination, *keys)
+  end
+
+  def srandmember(key)
+    @client.call(:srandmember, key)
+  end
+
+  def zadd(key, score, member)
+    _bool @client.call(:zadd, key, score, member)
+  end
+
+  def zrank(key, member)
+    @client.call(:zrank, key, member)
+  end
+
+  def zrevrank(key, member)
+    @client.call(:zrevrank, key, member)
+  end
+
+  def zincrby(key, increment, member)
+    @client.call(:zincrby, key, increment, member)
+  end
+
+  def zcard(key)
+    @client.call(:zcard, key)
+  end
+
+  def zrange(key, start, stop, options = {})
+    command = CommandOptions.new(options) do |c|
+      c.bool :with_scores
+    end
+
+    @client.call(:zrange, key, start, stop, *command.to_a)
+  end
+
+  def zrangebyscore(key, min, max, options = {})
+    command = CommandOptions.new(options) do |c|
+      c.splat :limit
+      c.bool  :with_scores
+    end
+
+    @client.call(:zrangebyscore, key, min, max, *command.to_a)
+  end
+
+  def zcount(key, start, stop)
+    @client.call(:zcount, key, start, stop)
+  end
+
+  def zrevrange(key, start, stop, options = {})
+    command = CommandOptions.new(options) do |c|
+      c.bool :with_scores
+    end
+
+    @client.call(:zrevrange, key, start, stop, *command.to_a)
+  end
+
+  def zremrangebyscore(key, min, max)
+    @client.call(:zremrangebyscore, key, min, max)
+  end
+
+  def zremrangebyrank(key, start, stop)
+    @client.call(:zremrangebyrank, key, start, stop)
+  end
+
+  def zscore(key, member)
+    @client.call(:zscore, key, member)
+  end
+
+  def zrem(key, member)
+    _bool @client.call(:zrem, key, member)
+  end
+
+  def zinterstore(destination, keys, options = {})
+    command = CommandOptions.new(options) do |c|
+      c.splat :weights
+      c.value :aggregate
+    end
+
+    @client.call(:zinterstore, destination, keys.size, *(keys + command.to_a))
+  end
+
+  def zunionstore(destination, keys, options = {})
+    command = CommandOptions.new(options) do |c|
+      c.splat :weights
+      c.value :aggregate
+    end
+
+    @client.call(:zunionstore, destination, keys.size, *(keys + command.to_a))
+  end
+
+  def move(key, db)
+    _bool @client.call(:move, key, db)
+  end
+
+  def setnx(key, value)
+    _bool @client.call(:setnx, key, value)
+  end
+
+  def del(*keys)
+    @client.call(:del, *keys)
+  end
+
+  def rename(old_name, new_name)
+    @client.call(:rename, old_name, new_name)
+  end
+
+  def renamenx(old_name, new_name)
+    _bool @client.call(:renamenx, old_name, new_name)
+  end
+
+  def expire(key, seconds)
+    _bool @client.call(:expire, key, seconds)
+  end
+
+  def persist(key)
+    _bool @client.call(:persist, key)
+  end
+
+  def ttl(key)
+    @client.call(:ttl, key)
+  end
+
+  def expireat(key, unix_time)
+    _bool @client.call(:expireat, key, unix_time)
+  end
+
+  def hset(key, field, value)
+    _bool @client.call(:hset, key, field, value)
+  end
+
+  def hsetnx(key, field, value)
+    _bool @client.call(:hsetnx, key, field, value)
+  end
+
+  def hmset(key, *attrs)
+    @client.call(:hmset, key, *attrs)
+  end
+
+  def mapped_hmset(key, hash)
+    hmset(key, *hash.to_a.flatten)
+  end
+
+  def hmget(key, *fields)
+    @client.call(:hmget, key, *fields)
+  end
+
+  def mapped_hmget(key, *fields)
+    Hash[*fields.zip(hmget(key, *fields)).flatten]
+  end
+
+  def hlen(key)
+    @client.call(:hlen, key)
+  end
+
+  def hvals(key)
+    @client.call(:hvals, key)
+  end
+
+  def hincrby(key, field, increment)
+    @client.call(:hincrby, key, field, increment)
+  end
+
+  def discard
+    @client.call(:discard)
+  end
+
+  def hexists(key, field)
+    _bool @client.call(:hexists, key, field)
+  end
+
+  def monitor(&block)
+    @client.call_loop(:monitor, &block)
+  end
+
+  def debug(*args)
+    @client.call(:debug, *args)
+  end
+
+  def sync
+    @client.call(:sync)
+  end
+
+  def [](key)
+    get(key)
+  end
+
+  def []=(key,value)
+    set(key, value)
+  end
+
+  def set(key, value)
+    @client.call(:set, key, value)
+  end
+
+  def setex(key, ttl, value)
+    @client.call(:setex, key, ttl, value)
+  end
+
+  def mset(*args)
+    @client.call(:mset, *args)
+  end
+
+  def mapped_mset(hash)
+    mset(*hash.to_a.flatten)
+  end
+
+  def msetnx(*args)
+    @client.call(:msetnx, *args)
+  end
+
+  def mapped_msetnx(hash)
+    msetnx(*hash.to_a.flatten)
+  end
+
+  def mapped_mget(*keys)
+    Hash[*keys.zip(mget(*keys)).flatten]
+  end
+
+  def sort(key, options = {})
+    command = CommandOptions.new(options) do |c|
+      c.value :by
+      c.splat :limit
+      c.multi :get
+      c.words :order
+      c.value :store
+    end
+
+    @client.call(:sort, key, *command.to_a)
+  end
+
+  def incr(key)
+    @client.call(:incr, key)
+  end
+
+  def incrby(key, increment)
+    @client.call(:incrby, key, increment)
+  end
+
+  def decr(key)
+    @client.call(:decr, key)
+  end
+
+  def decrby(key, decrement)
+    @client.call(:decrby, key, decrement)
+  end
+
+  def type(key)
+    @client.call(:type, key)
+  end
+
+  def quit
+    @client.call(:quit)
+  rescue Errno::ECONNRESET
+  ensure
+    @client.disconnect
+  end
+
+  def shutdown
+    @client.call(:shutdown)
+  end
+
+  def slaveof(host, port)
+    @client.call(:slaveof, host, port)
+  end
+
+  def pipelined
+    original, @client = @client, Pipeline.new
+    yield
+    original.call_pipelined(@client.commands) unless @client.commands.empty?
+  ensure
+    @client = original
+  end
+
+  def watch(*keys)
+    @client.call(:watch, *keys)
+  end
+
+  def unwatch
+    @client.call(:unwatch)
+  end
+
+  def exec
+    @client.call(:exec)
+  end
+
+  def multi(&block)
+    result = @client.call :multi
+
+    return result unless block_given?
+
+    begin
+      yield(self)
+    rescue Exception => e
+      discard
+      raise e
+    end
+
+    exec
+  end
+
+  def publish(channel, message)
+    @client.call(:publish, channel, message)
+  end
+
+  def subscribed?
+    @client.kind_of? SubscribedClient
+  end
+
+  def unsubscribe(*channels)
+    raise RuntimeError, "Can't unsubscribe if not subscribed." unless subscribed?
+    @client.unsubscribe(*channels)
+  end
+
+  def punsubscribe(*channels)
+    raise RuntimeError, "Can't unsubscribe if not subscribed." unless subscribed?
+    @client.punsubscribe(*channels)
+  end
+
+  def subscribe(*channels, &block)
+    subscription(:subscribe, channels, block)
+  end
+
+  def psubscribe(*channels, &block)
+    subscription(:psubscribe, channels, block)
+  end
+
+  def id
+    @client.id
+  end
+
+  def inspect
+    "#<Redis client v#{Redis::VERSION} connected to #{id} (Redis v#{info["redis_version"]})>"
+  end
+
+  def method_missing(command, *args)
+    @client.call(command, *args)
+  end
+
+  class CommandOptions
+    def initialize(options)
+      @result = []
+      @options = options
+      yield(self)
+    end
+
+    def bool(name)
+      insert(name) { |argument, value| [argument] }
+    end
+
+    def value(name)
+      insert(name) { |argument, value| [argument, value] }
+    end
+
+    def splat(name)
+      insert(name) { |argument, value| [argument, *value] }
+    end
+
+    def multi(name)
+      insert(name) { |argument, value| [argument].product(Array(value)).flatten }
+    end
+
+    def words(name)
+      insert(name) { |argument, value| value.split(" ") }
+    end
+
+    def to_a
+      @result
+    end
+
+    def insert(name)
+      @result += yield(name.to_s.upcase.gsub("_", ""), @options[name]) if @options[name]
+    end
+  end
+
+private
+
+  def _bool(value)
+    value == 1
+  end
+
+  def _array(value)
+    value.kind_of?(Array) ? value : value.split(" ")
+  end
+
+  def subscription(method, channels, block)
+    return @client.call(method, *channels) if subscribed?
+
+    begin
+      original, @client = @client, SubscribedClient.new(@client)
+      @client.send(method, *channels, &block)
+    ensure
+      @client = original
+    end
+  end
+
+end
+
+require "redis/connection" unless defined?(Redis::Connection)
+require "redis/client"
+require "redis/pipeline"
+require "redis/subscribe"
+require "redis/compat"