pegasus 0.0.1

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,21 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## PROJECT::SPECIFIC

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Joe Edelman
+
+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.rdoc

@@ -0,0 +1,17 @@
+= pegasus
+
+Description goes here.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2010 Joe Edelman. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,41 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "pegasus"
+    gem.summary = %Q{pegasus: unicorn-steady, redis-backed, shared-nothing worker processes}
+    gem.description = %Q{pegasus: unicorn-steady, redis-backed, shared-nothing worker processes}
+    gem.email = "joe@citizenlogistics.com"
+    gem.homepage = "http://github.com/citizenlogistics/pegasus"
+    gem.authors = ["Joe Edelman"]
+    gem.add_dependency 'configurer'
+    gem.add_dependency 'unicorn_horn'
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "pegasus #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/bin/pegasus

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+require 'unicorn_horn'
+require ARGV.shift
+UnicornHorn::Runner.new( eval "[#{ARGV.join(',')}]" ).start

data/lib/pegasus/service/class_methods.rb

@@ -0,0 +1,68 @@
+module Pegasus
+  module ClassMethods
+    def instance; @instance ||= new; end
+
+    extend Forwardable
+    def_delegators :redis, :rpush, :llen, :lindex, :get, :set, :del, :lpop, :incrby
+
+    def playout svcs = nil
+      @svcs = svcs.map{ |s| s.instance } if svcs
+      true while @svcs.any?{ |s| s.play }
+    end
+
+    def blpop key, timeout = 0
+      true while (x = blocking_redis.blpop(key, 10)).blank?
+      x
+    end
+
+    def queue_with_ticket(ticket, *a)
+      a[0] = "do_#{a[0]}"
+      logger.debug "queueing #{a.inspect}"
+      rpush wait_queue_key, "#{Time.unix} #{ticket || '-'} #{serializer.dump(a)}"
+      trouble?
+    end
+
+    def next_ticket_no
+      if !@max or @current && @current >= @max
+        @max = incrby tickets_key, 1000
+        @min = @max - 1000
+        @current = @min
+      end
+      @current += 1
+      "#{ticket_prefix}#{@current}"
+    end
+
+    def wait ticket_no
+      @instance.playout if @instance
+      logger.debug "waiting on ticket #{ticket_no}"
+      blpop ticket_no, 0
+      del ticket_no
+    end
+
+    def track *a
+      ticket_no = next_ticket_no
+      queue_with_ticket(ticket_no, *a)
+      ticket_no
+    end
+
+    def method_missing(*a)
+      super unless method_defined? "do_#{a.first}"
+      raise "blocks are not allowed for queued methods" if block_given?
+      queue_with_ticket(nil, *a)
+    end
+
+    def trouble?
+      return false unless next_task = lindex(wait_queue_key, 0)
+      seconds_behind = Time.unix - next_task.split(' ', 2)[0].to_i
+      return false unless seconds_behind > 5
+      logger.warn "#{wait_queue_key} is running #{seconds_behind}s behind"
+      return false unless seconds_behind > 20
+      return false unless current_task = get(processing_key)
+      t, etc = current_task.split(' ', 2)
+      seconds = Time.unix - t.to_i
+      return false unless seconds > 20
+      logger.warn "has been #{etc ? "running task #{etc.inspect}" : "idle"} for #{seconds}s"
+      return true
+    end
+  end
+end

data/lib/pegasus/service/instance_methods.rb

@@ -0,0 +1,45 @@
+module Pegasus
+  class Service
+    module InstanceMethods
+
+      def run_task taskspec = nil
+        taskspec or begin
+          return unless pair = blpop(wait_queue_key, 10)
+          taskspec = pair[1]
+        end
+        set processing_key, "#{Time.unix} #{taskspec}"
+        queued_at, ticket_no, task_marshal = taskspec.split(' ', 3)
+        args = serializer.load(task_marshal)
+        logger.debug "running task #{args.inspect}"
+        result = "-"
+        begin
+          send(*args)
+        rescue Exception => e
+          logger.error("ERROR running task #{taskspec.inspect}: #{e.message}:: #{e.backtrace.join("\n\t")}")
+          result = serializer.dump(e)
+          raise e if raise_errors
+        end
+        unless ticket_no == '-'
+          logger.debug "posting ticket #{ticket_no}"
+          rpush ticket_no, result
+        end
+        set processing_key, Time.unix
+      end
+
+      alias_method :call, :run_task
+
+      def do_noop
+        logger.info "#{self.class.name} NOOP"
+      end
+
+      def play
+        while next_task = lpop(wait_queue_key)
+          run_task next_task
+          did_something = true
+        end
+        did_something
+      end
+
+    end
+  end
+end

data/lib/pegasus/service.rb

@@ -0,0 +1,26 @@
+require 'thread'
+require 'pegasus/service/class_methods'
+require 'pegasus/service/instance_methods'
+
+module Pegasus
+  class Service
+    extend Configurer
+    config :redis           do Thread.current[:redis]          ||= ::Redis.new; end
+    config :blocking_redis  do Thread.current[:blocking_redis] ||= ::Redis.new(:timeout=>0); end
+    config :logger          do Logger.new(STDERR); end
+    config :serializer      do Marshal; end
+    config :redis_prefix    do "redis_svc_" end
+    config :wait_queue_key  do "#{redis_prefix}wait_#{name}"; end
+    config :processing_key  do "#{redis_prefix}process_#{name}"; end
+    config :tickets_key     do "#{redis_prefix}tickets_#{name}"; end
+    config :ticket_prefix   do "#{redis_prefix}ticket_#{name}_"; end
+    config :raise_errors    do true; end
+
+    extend Forwardable
+    def_delegators :redis, :rpush, :llen, :lindex, :get, :set, :del, :lpop, :incrby, :blpop
+
+    extend ClassMethods
+    def_delegators 'self.class', :track, :wait
+    include InstanceMethods
+  end
+end

data/lib/pegasus.rb

@@ -0,0 +1,3 @@
+require 'forwardable'
+require 'configurer'
+require 'pegasus/service'

data/test/helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'pegasus'
+
+class Test::Unit::TestCase
+end

data/test/test_pegasus.rb

@@ -0,0 +1,7 @@
+require 'helper'
+
+class TestPegasus < Test::Unit::TestCase
+  should "probably rename this file and start testing for real" do
+    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

metadata

@@ -0,0 +1,99 @@
+--- !ruby/object:Gem::Specification 
+name: pegasus
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Joe Edelman
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-09-09 00:00:00 -04:00
+default_executable: pegasus
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: configurer
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: unicorn_horn
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id002
+description: "pegasus: unicorn-steady, redis-backed, shared-nothing worker processes"
+email: joe@citizenlogistics.com
+executables: 
+- pegasus
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/pegasus
+- lib/pegasus.rb
+- lib/pegasus/service.rb
+- lib/pegasus/service/class_methods.rb
+- lib/pegasus/service/instance_methods.rb
+- test/helper.rb
+- test/test_pegasus.rb
+has_rdoc: true
+homepage: http://github.com/citizenlogistics/pegasus
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: "pegasus: unicorn-steady, redis-backed, shared-nothing worker processes"
+test_files: 
+- test/helper.rb
+- test/test_pegasus.rb