engineyard-serverside 2.0.4 → 2.0.5.pre

data/lib/vendor/dataflow/Rakefile

@@ -1,36 +0,0 @@
-require "rubygems"
-require "rake/gempackagetask"
-require "rake/clean"
-require "spec/rake/spectask"
-require File.expand_path("./dataflow")
-
-Spec::Rake::SpecTask.new do |t|
-  t.spec_opts = ['--options', "\"#{File.dirname(__FILE__)}/spec/spec.opts\""]
-end
-
-desc "Run the specs"
-task :default => :spec
-
-spec = Gem::Specification.new do |s|
-  s.name              = "dataflow"
-  s.rubyforge_project = s.name
-  s.version           = Dataflow::VERSION
-  s.author            = "Larry Diehl"
-  s.email             = "larrytheliquid" + "@" + "gmail.com"
-  s.homepage          = "http://github.com/larrytheliquid/dataflow"
-  s.summary           = "Dataflow concurrency for Ruby (inspired by the Oz language)"
-  s.description       = s.summary
-  s.files             = %w[LICENSE HISTORY Rakefile README.textile dataflow.rb] + Dir["dataflow/**/*"] + Dir["examples/**/*"]
-  s.require_path      = '.'
-  s.test_files        = Dir["spec/**/*"]
-end
-
-Rake::GemPackageTask.new(spec) do |package|
-  package.gem_spec = spec
-end
-
-desc 'Install the package as a gem.'
-task :install => [:clean, :package] do
-  gem = Dir['pkg/*.gem'].first
-  sh "sudo gem install --no-rdoc --no-ri --local #{gem}"
-end

data/lib/vendor/dataflow/dataflow.rb

@@ -1,124 +0,0 @@
-require 'monitor'
-
-module Dataflow
-  VERSION = "0.3.1"
-  class << self
-    attr_accessor :forker
-  end
-  self.forker = Thread.method(:fork)
-
-  def self.included(cls)
-    class << cls
-      def declare(*readers)
-        readers.each do |name|
-          class_eval <<-RUBY
-            def #{name}
-              return @__dataflow_#{name}__ if defined? @__dataflow_#{name}__
-              Variable::LOCK.synchronize { @__dataflow_#{name}__ ||= Variable.new }
-            end
-          RUBY
-        end
-      end
-    end
-  end
-
-  def local(&block)
-    return Variable.new unless block_given?
-    vars = Array.new(block.arity) { Variable.new }
-    block.call *vars
-  end
-
-  def unify(variable, value)
-    variable.__unify__ value
-  end
-
-  def by_need(&block)
-    Variable.new &block
-  end
-
-  def barrier(*variables)
-    variables.each{|v| v.__wait__ }
-  end
-
-  def flow(output=nil, &block)
-    Dataflow.forker.call do
-      result = block.call
-      unify output, result if output
-    end
-  end
-
-  def need_later(&block)
-    local do |future|
-      flow(future) { block.call }
-      future
-    end
-  end
-
-  extend self
-
-  # Note that this class uses instance variables directly rather than nicely
-  # initialized instance variables in get/set methods for memory and
-  # performance reasons
-  class Variable
-    # Briefly disable the warning we would get when undefining object_id.
-    # We actually rely on the ability to do that, so...
-    v = $VERBOSE; $VERBOSE = nil
-    instance_methods.each { |m| undef_method(m) unless m =~ /^__|instance_eval/ }
-    $VERBOSE = v # back to sanity
-    LOCK = Monitor.new
-    def initialize(&block) @__trigger__ = block if block_given? end
-
-    # Lazy-load conditions to be nice on memory usage
-    def __binding_condition__() @__binding_condition__ ||= LOCK.new_cond end
-
-    def __unify__(value)
-      LOCK.synchronize do
-        __activate_trigger__ if @__trigger__
-        if @__bound__
-          return @__value__.__unify__(value) if @__value__.__dataflow__? rescue nil
-          raise UnificationError, "#{@__value__.inspect} != #{value.inspect}" if self != value
-        else
-          @__value__ = value
-          @__bound__ = true
-          __binding_condition__.broadcast # wakeup all method callers
-          @__binding_condition__ = nil # GC
-        end
-      end
-      @__value__
-    end
-
-    def __activate_trigger__
-      @__value__ = @__trigger__.call
-      @__bound__ = true
-      @__trigger__ = nil # GC
-    end
-
-    def __wait__
-      LOCK.synchronize do
-        unless @__bound__
-          if @__trigger__
-            __activate_trigger__
-          else
-            __binding_condition__.wait
-          end
-        end
-      end unless @__bound__
-    end
-
-    def method_missing(name, *args, &block)
-      return "#<Dataflow::Variable:#{__id__} unbound>" if !@__bound__ && name == :inspect
-      __wait__
-      @__value__.__send__(name, *args, &block)
-    end
-
-    def __dataflow__?
-      true
-    end
-  end
-
-  UnificationError = Class.new StandardError
-end
-
-require "#{File.dirname(__FILE__)}/dataflow/port"
-require "#{File.dirname(__FILE__)}/dataflow/actor"
-require "#{File.dirname(__FILE__)}/dataflow/future_queue"

data/lib/vendor/dataflow/dataflow/actor.rb

@@ -1,22 +0,0 @@
-module Dataflow
-  class Actor < Thread
-    def initialize(&block)
-      @stream = Variable.new
-      @port = Port.new(@stream)
-      # Run this block in a new thread
-      super { instance_eval &block }
-    end
-
-    def send message
-      @port.send message
-    end
-
-  private
-    
-    def receive
-      result = @stream.head
-      @stream = @stream.tail
-      result
-    end
-  end
-end

data/lib/vendor/dataflow/dataflow/equality.rb

@@ -1,44 +0,0 @@
-# The purpose of this file is to make equality use method calls in as
-# many Ruby implementations as possible. If method calls are used,
-# then equality operations using dataflow variaables becomes seemless
-# I realize overriding core classes is a pretty nasty hack, but if you
-# have a better idea that also passes the equality_specs then I'm all
-# ears. Please run the rubyspec before committing changes to this file.
-
-class Object
-  alias original_equality ==
-
-  def ==(other)
-    object_id == other.object_id
-  end
-end
-
-class Symbol
-  alias original_equality ==
-
-  def ==(other)
-    object_id == other.object_id
-  end
-end
-
-class Regexp
-  alias original_equality ==
-
-  if /lol/.respond_to?(:encoding)
-    def ==(other)
-      other.is_a?(Regexp) &&
-      casefold? == other.casefold? &&
-      encoding == other.encoding &&
-      options == other.options &&
-      source == other.source
-    end
-  else
-    def ==(other)
-      other.is_a?(Regexp) &&
-      casefold? == other.casefold? &&
-      kcode == other.kcode &&
-      options == other.options &&
-      source == other.source
-    end
-  end
-end

data/lib/vendor/dataflow/dataflow/future_queue.rb

@@ -1,24 +0,0 @@
-module Dataflow
-  class FutureQueue
-    include Dataflow
-    declare :push_port, :pop_port
-    
-    def initialize
-      local do |pushed, popped|
-        unify push_port, Dataflow::Port.new(pushed)
-        unify pop_port, Dataflow::Port.new(popped)
-        
-        Thread.new {
-          loop do
-            barrier pushed.head, popped.head
-            unify popped.head, pushed.head
-            pushed, popped = pushed.tail, popped.tail
-          end
-        }
-      end
-    end
-
-    def push(x) push_port.send x end
-    def pop(x) pop_port.send x end
-  end
-end

data/lib/vendor/dataflow/dataflow/port.rb

@@ -1,54 +0,0 @@
-require 'thread'
-
-module Dataflow
-  class Port  
-    include Dataflow
-    LOCK = Mutex.new
-
-    class Stream
-      include Dataflow
-      declare :head, :tail
-    
-      # Defining each allows us to use the enumerable mixin
-      # None of the list can be garbage collected less the head is
-      # garbage collected, so it will grow indefinitely even though
-      # the function isn't recursive.
-      include Enumerable
-      def each
-        s = self
-        loop do
-          yield s.head
-          s = s.tail
-        end
-      end
-
-      # Backported Enumerable#take for any 1.8.6 compatible Ruby
-      unless method_defined?(:take)
-        def take(num)
-          result = []
-          each_with_index do |x, i|
-            return result if num == i
-            result << x
-          end
-        end
-      end
-    end
-  
-    # Create a stream object, bind it to the input variable
-    # Instance variables are necessary because @end is state
-    def initialize(x)
-      @end = Stream.new
-      unify x, @end
-    end
-  
-    # This needs to be synchronized because it uses @end as state
-    def send value
-      LOCK.synchronize do
-        unify @end.head, value
-        unify @end.tail, Stream.new
-        @end = @end.tail
-      end
-    end
-  end
-end
-

data/lib/vendor/dataflow/examples/barrier.rb

@@ -1,9 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-include Dataflow
-
-local do |lock1, lock2|
-  flow { unify lock1, :unlocked }
-  flow { unify lock2, :unlocked }
-  barrier lock1, lock2
-  puts "Barrier broken!"  
-end

data/lib/vendor/dataflow/examples/data_driven.rb

@@ -1,17 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-include Dataflow
-
-local do |stream, doubles, triples, squares|
-  unify stream, Array.new(5) { Dataflow::Variable.new }
-  
-  Thread.new { unify doubles, stream.map {|n| n*2 } }
-  Thread.new { unify triples, stream.map {|n| n*3 } }
-  Thread.new { unify squares, stream.map {|n| n**2 } }  
-
-  Thread.new { stream.each {|x| unify x, rand(100) } }
-
-  puts "original: #{stream.inspect}"
-  puts "doubles:  #{doubles.inspect}"
-  puts "triples:  #{triples.inspect}"
-  puts "squares:  #{squares.inspect}"  
-end

data/lib/vendor/dataflow/examples/dataflow_http_gets.rb

@@ -1,13 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-require 'net/http'
-include Dataflow
-
-# Be gentle running this one
-Thread.abort_on_exception = true
-local do |stream, branding_occurences, number_of_mentions|
-  unify stream, Array.new(10) { Dataflow::Variable.new }
-  stream.each {|s| Thread.new(s) {|v| unify v, Net::HTTP.get_response(URI.parse("http://www.cuil.com/search?q=#{rand(1000)}")).body } }
-  Thread.new { unify branding_occurences, stream.map {|http_body| http_body.scan /cuil/ } }
-  Thread.new { unify number_of_mentions, branding_occurences.map {|occurences| occurences.length } }
-  puts number_of_mentions.inspect
-end

data/lib/vendor/dataflow/examples/flow.rb

@@ -1,20 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-include Dataflow
-
-# flow without parameters
-local do |x|
-  flow do 
-    # other stuff
-    unify x, 1337
-  end
-  puts x
-end
-
-# flow with an output parameter
-local do |x|
-  flow(x) do
-    # other stuff
-    1337
-  end
-  puts x
-end

data/lib/vendor/dataflow/examples/future_http_gets.rb

@@ -1,12 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-require 'net/http'
-include Dataflow
-
-# Be gentle running this one
-Thread.abort_on_exception = true
-local do |stream, branding_occurences, number_of_mentions|
-  unify stream, Array.new(10) { need_later { Net::HTTP.get_response(URI.parse("http://www.cuil.com/search?q=#{rand(1000)}")).body } }
-  unify branding_occurences, need_later { stream.map {|http_body| http_body.scan /cuil/ } }
-  unify number_of_mentions, need_later { branding_occurences.map {|occurences| occurences.length } }
-  puts number_of_mentions.inspect
-end

data/lib/vendor/dataflow/examples/future_queue.rb

@@ -1,11 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-include Dataflow
-
-local do |queue, first, second|
-  unify queue, Dataflow::FutureQueue.new
-  queue.pop first
-  queue.push 1
-  queue.push 2
-  queue.pop second
-  puts "first:  #{first}, second: #{second}"
-end

data/lib/vendor/dataflow/examples/instance_variables.rb

@@ -1,15 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-
-class AnimalHouse
-  include Dataflow
-  declare :small_cat, :big_cat
-
-  def fetch_big_cat
-    Thread.new { unify big_cat, small_cat.upcase }
-    unify small_cat, 'cat'
-    big_cat
-  end
-end
-
-puts AnimalHouse.new.fetch_big_cat
-

data/lib/vendor/dataflow/examples/laziness.rb

@@ -1,9 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-include Dataflow
-
-local do |x, y, z|
-  Thread.new { unify y, by_need { 4 } }
-  Thread.new { unify z, x + y }
-  Thread.new { unify x, by_need { 3 } }  
-  puts z
-end

data/lib/vendor/dataflow/examples/local_variables.rb

@@ -1,11 +0,0 @@
-require "#{File.dirname(__FILE__)}/../dataflow"
-include Dataflow
-
-local do |x, y, z|
-  # notice how the order automatically gets resolved
-  Thread.new { unify y, x + 2 }
-  Thread.new { unify z, y + 3 }
-  Thread.new { unify x, 1 }
-  puts z
-end
-