ey-deploy 0.7.0 → 0.7.1

data/lib/vendor/dataflow/spec/dataflow_spec.rb

@@ -0,0 +1,151 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+context 'Using "local" for local variables' do
+  describe 'An unbound Variable' do
+    it 'suspends if an unbound variable has a method called on it until it is bound' do
+      local do |big_cat, small_cat|
+        Thread.new { unify big_cat, small_cat.upcase }
+        unify small_cat, 'cat'
+        big_cat.should == 'CAT'
+      end
+    end
+
+    it 'suspends if an unbound variable has a method called on it until it is bound with nil' do
+      local do |is_nil, var_nil|
+        Thread.new { unify is_nil, var_nil.nil? }
+        unify var_nil, nil 
+        is_nil.should be_true
+      end
+    end
+
+    it 'suspends if an unbound variable has a method called on it until it is bound (with nested local variables)' do
+      local do |small_cat|
+        local do |big_cat|
+          Thread.new { unify big_cat, small_cat.upcase }
+          unify small_cat, 'cat'
+          big_cat.should == 'CAT'
+        end
+      end
+    end
+
+    it 'performs order-determining concurrency' do
+      local do |x, y, z|
+        Thread.new { unify y, x + 2 }
+        Thread.new { unify z, y + 3 }
+        Thread.new { unify x, 1 }
+        z.should == 6
+      end
+    end
+    
+    it 'binds on unification' do
+      local do |animal|
+        unify animal, 'cat'
+        animal.should == 'cat'
+      end
+    end
+  end
+end
+
+describe 'A bound Variable' do
+  it 'does not complain when unifying with an equal object' do
+    lambda do
+      local do |animal|
+        unify animal, 'cat'
+        unify animal, 'cat'        
+      end
+    end.should_not raise_error
+  end
+
+  it 'does not complain when unifying with an unequal object when shadowing' do
+    lambda do
+      local do |animal|
+        unify animal, 'cat'
+        local do |animal|
+          unify animal, 'dog'
+        end
+      end
+    end.should_not raise_error
+  end
+
+  it 'complains when unifying with an unequal object' do
+    lambda do
+      local do |animal|
+        unify animal, 'cat'
+        unify animal, 'dog'
+      end
+    end.should raise_error(Dataflow::UnificationError)
+  end
+end
+
+context 'Using "declare" for object-specific read-only attributes' do
+  class Store
+    include Dataflow
+    declare :animal, :big_cat, :small_cat, :x, :y, :z, :is_nil, :var_nil
+  end
+  before { @store = Store.new }
+  
+  describe 'An unbound Variable' do
+    it 'suspends if an unbound variable has a method called on it until it is bound' do
+      Thread.new { unify @store.big_cat, @store.small_cat.upcase }
+      unify @store.small_cat, 'cat'
+      @store.big_cat.should == 'CAT'
+    end
+
+    it 'suspends if an unbound variable has a method called on it until it is bound with nil' do
+      Thread.new { unify @store.is_nil, @store.var_nil.nil? }
+      unify @store.var_nil, nil 
+      @store.is_nil.should be_true
+    end
+
+    it 'performs order-determining concurrency' do
+      Thread.new { unify @store.y, @store.x + 2 }
+      Thread.new { unify @store.z, @store.y + 3 }
+      Thread.new { unify @store.x, 1 }
+      @store.z.should == 6
+    end
+    
+    it 'binds on unification' do
+      unify @store.animal, 'cat'
+      @store.animal.should == 'cat'
+    end
+  end
+
+  describe 'A bound Variable' do
+    it 'does not complain when unifying with an equal object' do
+      lambda do
+        unify @store.animal, 'cat'
+        unify @store.animal, 'cat'        
+      end.should_not raise_error
+    end
+
+    it 'complains when unifying with an unequal object' do
+      lambda do
+        unify @store.animal, 'cat'
+        unify @store.animal, 'dog'
+      end.should raise_error(Dataflow::UnificationError)
+    end
+  end
+end
+
+describe 'Binding a variable that proxies through another' do
+  it 'binds through successfully' do
+    local do |x, y|
+      lambda do
+        unify x, y
+        unify x, 1337
+        x.should == 1337
+        y.should == 1337
+      end.should_not raise_error
+    end
+  end
+end
+
+describe 'Using static/module method' do
+  it 'works like the mixin versions' do
+    Dataflow.local do |big_cat, small_cat|
+      Thread.new { Dataflow.unify big_cat, small_cat.upcase }
+      Dataflow.unify small_cat, 'cat'
+      big_cat.should == 'CAT'
+    end
+  end
+end

data/lib/vendor/dataflow/spec/equality_spec.rb

@@ -0,0 +1,40 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+describe 'Unifying a bound value' do
+  [nil, true, false,
+   :sym, "str", /regex/,
+   3, 2.0,
+   Object.new, Class.new.new,
+   [], {}].each do |type|
+    describe "for #{type.class} instances" do
+      it 'passes unification for an object of equal value' do
+        local do |var, var2|
+          unify var, type
+          var.should == type
+          type.should == var
+          lambda {unify var, type}.should_not raise_error
+
+          unify var2, type
+          var.should == var2
+          var2.should == var
+          lambda {unify var, var2}.should_not raise_error        
+        end
+      end
+
+      it 'fails unification for an object of inequal value' do
+        different = Object.new
+        local do |var, var2|
+          unify var, type
+          var.should_not == different
+          different.should_not == var
+          lambda {unify var, different}.should raise_error(Dataflow::UnificationError)
+
+          unify var2, different
+          var.should_not == var2
+          var2.should_not == var
+          lambda {unify var, different}.should raise_error(Dataflow::UnificationError)
+        end
+      end
+    end
+  end
+end

data/lib/vendor/dataflow/spec/flow_spec.rb

@@ -0,0 +1,25 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+describe 'Using flow without a parameter' do
+  it 'works like normal threads' do
+    local do |big_cat, small_cat|
+      flow { unify big_cat, small_cat.upcase }
+      unify small_cat, 'cat'
+      big_cat.should == 'CAT'
+    end
+  end
+end
+
+describe 'Using flow with a parameter' do
+  it 'binds the parameter to the last line of the block' do
+    local do |big_cat, small_cat, output|
+      flow(output) do
+        unify big_cat, small_cat.upcase
+        'returned'
+      end
+      unify small_cat, 'cat'
+      big_cat.should == 'CAT'
+      output.should == 'returned'
+    end
+  end
+end

data/lib/vendor/dataflow/spec/forker_spec.rb

@@ -0,0 +1,28 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+describe 'Setting a customer forker' do
+  before(:all) do
+    @original_forker = Dataflow.forker
+    Dataflow.forker = Class.new do
+      def self.synchronous_forker(&block)
+        block.call
+      end
+    end.method(:synchronous_forker)
+  end
+
+  after(:all) do
+    Dataflow.forker = @original_forker
+  end
+  
+  it 'uses the custom forker in #flow' do
+    local do |my_var|
+      flow(my_var) { 1337 }
+      my_var.should == 1337
+    end
+  end
+
+  it 'uses the custom forker in #need_later' do
+    my_var = need_later { 1337 }
+    my_var.should == 1337
+  end
+end

data/lib/vendor/dataflow/spec/future_queue_spec.rb

@@ -0,0 +1,31 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+describe 'A future queue' do
+  it 'accepts synchronous pushes and pops' do
+    local do |queue, first, second, third|
+      unify queue, Dataflow::FutureQueue.new
+      queue.pop first
+      queue.pop second
+      queue.push 1
+      queue.push 2
+      queue.push 3
+      queue.pop third  
+
+      [first, second, third].should == [1, 2, 3]
+    end
+  end
+
+  it 'accepts asynchronous pushes and pops' do
+    local do |queue, first, second, third|
+      unify queue, Dataflow::FutureQueue.new
+      Thread.new { queue.pop first }
+      Thread.new { queue.pop second }
+      Thread.new { queue.push 1 }
+      Thread.new { queue.push 2 }
+      Thread.new { queue.push 3 }
+      Thread.new { queue.pop third }
+
+      [first, second, third].sort.should == [1, 2, 3]
+    end
+  end
+end

data/lib/vendor/dataflow/spec/inspect_spec.rb

@@ -0,0 +1,19 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+describe "An unbound variable" do
+  it "should be inspectable for debugging purposes" do
+    local do |unbound|
+      unbound.inspect.should =~ /#<Dataflow::Variable:[0-9]+ unbound>/
+    end
+  end
+end
+
+describe "An bound variable" do
+  it "should proxy inspect" do
+    local do |bound|
+      bound.inspect
+      unify bound, "str"
+      bound.should == "str"
+    end
+  end
+end

data/lib/vendor/dataflow/spec/need_later_spec.rb

@@ -0,0 +1,12 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+describe 'A need_later expression' do
+  it 'returns a future to be calculated later' do
+    local do |x, y, z|
+      unify y, need_later { 4 }
+      unify z, need_later { x + y }
+      unify x, need_later { 3 }      
+      z.should == 7
+    end
+  end
+end

data/lib/vendor/dataflow/spec/port_spec.rb

@@ -0,0 +1,26 @@
+require "#{File.dirname(__FILE__)}/spec_helper"
+
+describe 'Syncronously sending to a Port' do
+  it 'extends the length of the stream and preserves order' do
+    local do |port, stream|
+      unify port, Dataflow::Port.new(stream)
+      port.send 1
+      port.send 2
+      stream.take(2).should == [1, 2]
+      port.send 3
+      stream.take(3).should == [1, 2, 3]
+    end
+  end
+end
+
+describe 'Asyncronously sending to a Port' do
+  it 'extends the length of the stream and does not preserve order' do
+    local do |port, stream|
+      unify port, Dataflow::Port.new(stream)
+      Thread.new {port.send 2}
+      Thread.new {port.send 8}
+      Thread.new {port.send 1024}
+      stream.take(3).sort.should == [2, 8, 1024]
+    end
+  end
+end

data/lib/vendor/dataflow/spec/spec.opts

@@ -0,0 +1 @@
+--color

data/lib/vendor/dataflow/spec/spec_helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'spec'
+require "#{File.dirname(__FILE__)}/../dataflow"
+require "#{File.dirname(__FILE__)}/../dataflow/equality"
+
+Thread.abort_on_exception = true
+
+Spec::Runner.configure do |config|
+  config.include Dataflow
+end

data/lib/vendor/open4/lib/open4.rb

@@ -0,0 +1,403 @@
+# vim: ts=2:sw=2:sts=2:et:fdm=marker
+require 'fcntl'
+require 'timeout'
+require 'thread'
+
+module Open4
+#--{{{
+  VERSION = '1.1.0'
+  def self.version() VERSION end
+
+  class Error < ::StandardError; end
+
+  def popen4(*cmd, &b)
+#--{{{
+    pw, pr, pe, ps = IO.pipe, IO.pipe, IO.pipe, IO.pipe
+
+    verbose = $VERBOSE
+    begin
+      $VERBOSE = nil
+      ps.first.fcntl(Fcntl::F_SETFD, Fcntl::FD_CLOEXEC)
+      ps.last.fcntl(Fcntl::F_SETFD, Fcntl::FD_CLOEXEC)
+
+      cid = fork {
+        pw.last.close
+        STDIN.reopen pw.first
+        pw.first.close
+
+        pr.first.close
+        STDOUT.reopen pr.last
+        pr.last.close
+
+        pe.first.close
+        STDERR.reopen pe.last
+        pe.last.close
+
+        STDOUT.sync = STDERR.sync = true
+
+        begin
+          exec(*cmd)
+          raise 'forty-two' 
+        rescue Exception => e
+          Marshal.dump(e, ps.last)
+          ps.last.flush
+        end
+        ps.last.close unless (ps.last.closed?)
+        exit!
+      }
+    ensure
+      $VERBOSE = verbose
+    end
+
+    [pw.first, pr.last, pe.last, ps.last].each{|fd| fd.close}
+
+    begin
+      e = Marshal.load ps.first
+      raise(Exception === e ? e : "unknown failure!")
+    rescue EOFError # If we get an EOF error, then the exec was successful
+      42
+    ensure
+      ps.first.close
+    end
+
+    pw.last.sync = true
+
+    pi = [pw.last, pr.first, pe.first]
+
+    if b 
+      begin
+        b[cid, *pi]
+        Process.waitpid2(cid).last
+      ensure
+        pi.each{|fd| fd.close unless fd.closed?}
+      end
+    else
+      [cid, pw.last, pr.first, pe.first]
+    end
+#--}}}
+  end
+  alias open4 popen4
+  module_function :popen4
+  module_function :open4
+
+  class SpawnError < Error
+#--{{{
+    attr 'cmd'
+    attr 'status'
+    attr 'signals'
+    def exitstatus
+      @status.exitstatus
+    end
+    def initialize cmd, status
+      @cmd, @status = cmd, status
+      @signals = {} 
+      if status.signaled?
+        @signals['termsig'] = status.termsig
+        @signals['stopsig'] = status.stopsig
+      end
+      sigs = @signals.map{|k,v| "#{ k }:#{ v.inspect }"}.join(' ')
+      super "cmd <#{ cmd }> failed with status <#{ exitstatus.inspect }> signals <#{ sigs }>"
+    end
+#--}}}
+  end
+
+  class ThreadEnsemble
+#--{{{
+    attr 'threads'
+
+    def initialize cid
+      @cid, @threads, @argv, @done, @running = cid, [], [], Queue.new, false
+      @killed = false
+    end
+
+    def add_thread *a, &b
+      @running ? raise : (@argv << [a, b])
+    end
+
+#
+# take down process more nicely
+#
+    def killall
+      c = Thread.critical
+      return nil if @killed
+      Thread.critical = true
+      (@threads - [Thread.current]).each{|t| t.kill rescue nil}
+      @killed = true
+    ensure
+      Thread.critical = c
+    end
+
+    def run
+      @running = true
+
+      begin
+        @argv.each do |a, b|
+          @threads << Thread.new(*a) do |*a|
+            begin
+              b[*a]
+            ensure
+              killall rescue nil if $!
+              @done.push Thread.current
+            end
+          end
+        end
+      rescue
+        killall
+        raise
+      ensure
+        all_done
+      end
+
+      @threads.map{|t| t.value}
+    end
+
+    def all_done
+      @threads.size.times{ @done.pop }
+    end
+#--}}}
+  end
+
+  def to timeout = nil
+#--{{{
+    Timeout.timeout(timeout){ yield }
+#--}}}
+  end
+  module_function :to
+
+  def new_thread *a, &b
+#--{{{
+    cur = Thread.current
+    Thread.new(*a) do |*a|
+      begin
+        b[*a]
+      rescue Exception => e
+        cur.raise e
+      end
+    end
+#--}}}
+  end
+  module_function :new_thread
+
+  def getopts opts = {}
+#--{{{
+    lambda do |*args|
+      keys, default, ignored = args
+      catch('opt') do
+        [keys].flatten.each do |key|
+          [key, key.to_s, key.to_s.intern].each do |key|
+            throw 'opt', opts[key] if opts.has_key?(key)
+          end
+        end
+        default
+      end
+    end
+#--}}}
+  end
+  module_function :getopts
+
+  def relay src, dst = nil, t = nil
+#--{{{
+    send_dst =
+      if dst.respond_to?(:call)
+        lambda{|buf| dst.call(buf)}
+      elsif dst.respond_to?(:<<)
+        lambda{|buf| dst << buf }
+      else
+        lambda{|buf| buf }
+      end
+
+    unless src.nil?
+      if src.respond_to? :gets
+        while buf = to(t){ src.gets }
+          send_dst[buf]
+        end
+
+      elsif src.respond_to? :each
+        q = Queue.new
+        th = nil
+
+        timer_set = lambda do |t|
+          th = new_thread{ to(t){ q.pop } }
+        end
+
+        timer_cancel = lambda do |t|
+          th.kill if th rescue nil
+        end
+
+        timer_set[t]
+        begin
+          src.each do |buf|
+            timer_cancel[t]
+            send_dst[buf]
+            timer_set[t]
+          end
+        ensure
+          timer_cancel[t]
+        end
+
+      elsif src.respond_to? :read
+        buf = to(t){ src.read }
+        send_dst[buf]
+
+      else
+        buf = to(t){ src.to_s }
+        send_dst[buf]
+      end
+    end
+#--}}}
+  end
+  module_function :relay
+
+  def spawn arg, *argv 
+#--{{{
+    argv.unshift(arg)
+    opts = ((argv.size > 1 and Hash === argv.last) ? argv.pop : {})
+    argv.flatten!
+    cmd = argv.join(' ')
+
+
+    getopt = getopts opts
+
+    ignore_exit_failure = getopt[ 'ignore_exit_failure', getopt['quiet', false] ]
+    ignore_exec_failure = getopt[ 'ignore_exec_failure', !getopt['raise', true] ]
+    exitstatus = getopt[ %w( exitstatus exit_status status ) ]
+    stdin = getopt[ %w( stdin in i 0 ) << 0 ]
+    stdout = getopt[ %w( stdout out o 1 ) << 1 ]
+    stderr = getopt[ %w( stderr err e 2 ) << 2 ]
+    pid = getopt[ 'pid' ]
+    timeout = getopt[ %w( timeout spawn_timeout ) ]
+    stdin_timeout = getopt[ %w( stdin_timeout ) ]
+    stdout_timeout = getopt[ %w( stdout_timeout io_timeout ) ]
+    stderr_timeout = getopt[ %w( stderr_timeout ) ]
+    status = getopt[ %w( status ) ]
+    cwd = getopt[ %w( cwd dir ) ]
+
+    exitstatus =
+      case exitstatus
+        when TrueClass, FalseClass
+          ignore_exit_failure = true if exitstatus
+          [0]
+        else
+          [*(exitstatus || 0)].map{|i| Integer i}
+      end
+
+    stdin ||= '' if stdin_timeout
+    stdout ||= '' if stdout_timeout
+    stderr ||= '' if stderr_timeout
+
+    started = false
+
+    status =
+      begin
+        chdir(cwd) do
+          Timeout::timeout(timeout) do
+            popen4(*argv) do |c, i, o, e|
+              started = true
+
+              %w( replace pid= << push update ).each do |msg|
+                break(pid.send(msg, c)) if pid.respond_to? msg 
+              end
+
+              te = ThreadEnsemble.new c
+
+              te.add_thread(i, stdin) do |i, stdin|
+                relay stdin, i, stdin_timeout
+                i.close rescue nil
+              end
+
+              te.add_thread(o, stdout) do |o, stdout|
+                relay o, stdout, stdout_timeout
+              end
+
+              te.add_thread(e, stderr) do |o, stderr|
+                relay e, stderr, stderr_timeout
+              end
+
+              te.run
+            end
+          end
+        end
+      rescue
+        raise unless(not started and ignore_exec_failure)
+      end
+
+    raise SpawnError.new(cmd, status) unless
+      (ignore_exit_failure or (status.nil? and ignore_exec_failure) or exitstatus.include?(status.exitstatus))
+
+    status
+#--}}}
+  end
+  module_function :spawn
+
+  def chdir cwd, &block
+    return(block.call Dir.pwd) unless cwd
+    Dir.chdir cwd, &block
+  end
+  module_function :chdir
+
+  def background arg, *argv 
+#--{{{
+    require 'thread'
+    q = Queue.new
+    opts = { 'pid' => q, :pid => q }
+    case argv.last
+      when Hash
+        argv.last.update opts
+      else
+        argv.push opts
+    end
+    thread = Thread.new(arg, argv){|arg, argv| spawn arg, *argv}
+    sc = class << thread; self; end
+    sc.module_eval {
+      define_method(:pid){ @pid ||= q.pop }
+      define_method(:spawn_status){ @spawn_status ||= value }
+      define_method(:exitstatus){ @exitstatus ||= spawn_status.exitstatus }
+    }
+    thread
+#--}}}
+  end
+  alias bg background
+  module_function :background
+  module_function :bg
+
+  def maim pid, opts = {}
+#--{{{
+    getopt = getopts opts
+    sigs = getopt[ 'signals', %w(SIGTERM SIGQUIT SIGKILL) ]
+    suspend = getopt[ 'suspend', 4 ]
+    pid = Integer pid
+    existed = false
+    sigs.each do |sig|
+      begin
+        Process.kill sig, pid
+        existed = true 
+      rescue Errno::ESRCH
+        return(existed ? nil : true)
+      end
+      return true unless alive? pid
+      sleep suspend
+      return true unless alive? pid
+    end
+    return(not alive?(pid)) 
+#--}}}
+  end
+  module_function :maim
+
+  def alive pid
+#--{{{
+    pid = Integer pid
+    begin
+      Process.kill 0, pid
+      true
+    rescue Errno::ESRCH
+      false
+    end
+#--}}}
+  end
+  alias alive? alive
+  module_function :alive
+  module_function :'alive?'
+#--}}}
+end
+
+def open4(*cmd, &b) cmd.size == 0 ? Open4 : Open4::popen4(*cmd, &b) end