scout_realtime 0.5.1

data/lib/vendor/backports-3.3.5/lib/backports/extra/random/MT19937.rb

@@ -0,0 +1,76 @@
+class Random
+  # An implementation of Mersenne Twister MT19937 in Ruby
+  class MT19937
+    STATE_SIZE = 624
+    LAST_STATE = STATE_SIZE - 1
+    PAD_32_BITS = 0xffffffff
+
+    # See seed=
+    def initialize(seed)
+      self.seed = seed
+    end
+
+    LAST_31_BITS = 0x7fffffff
+    OFFSET = 397
+
+    # Generates a completely new state out of the previous one.
+    def next_state
+      STATE_SIZE.times do |i|
+        mix = @state[i] & 0x80000000 | @state[i+1 - STATE_SIZE] & 0x7fffffff
+        @state[i] = @state[i+OFFSET - STATE_SIZE] ^ (mix >> 1)
+        @state[i] ^= 0x9908b0df if mix.odd?
+      end
+      @last_read = -1
+    end
+
+    # Seed must be either an Integer (only the first 32 bits will be used)
+    # or an Array of Integers (of which only the first 32 bits will be used)
+    #
+    # No conversion or type checking is done at this level
+    def seed=(seed)
+      case seed
+      when Integer
+        @state = Array.new(STATE_SIZE)
+        @state[0] = seed & PAD_32_BITS
+        (1..LAST_STATE).each do |i|
+          @state[i] = (1812433253 * (@state[i-1]  ^ @state[i-1]>>30) + i)& PAD_32_BITS
+        end
+        @last_read = LAST_STATE
+      when Array
+        self.seed = 19650218
+        i=1
+        j=0
+        [STATE_SIZE, seed.size].max.times do
+          @state[i] = (@state[i] ^ (@state[i-1] ^ @state[i-1]>>30) * 1664525) + j + seed[j] & PAD_32_BITS
+          if (i+=1) >= STATE_SIZE
+            @state[0] = @state[-1]
+            i = 1
+          end
+          j = 0 if (j+=1) >= seed.size
+        end
+        (STATE_SIZE-1).times do
+          @state[i] = (@state[i] ^ (@state[i-1] ^ @state[i-1]>>30) * 1566083941) - i & PAD_32_BITS
+          if (i+=1) >= STATE_SIZE
+            @state[0] = @state[-1]
+            i = 1
+          end
+        end
+        @state[0] = 0x80000000
+      else
+        raise ArgumentError, "Seed must be an Integer or an Array"
+      end
+    end
+
+    # Returns a random Integer from the range 0 ... (1 << 32)
+    def random_32_bits
+      next_state if @last_read >= LAST_STATE
+      @last_read += 1
+      y = @state[@last_read]
+      # Tempering
+      y ^= (y >> 11)
+      y ^= (y << 7) & 0x9d2c5680
+      y ^= (y << 15) & 0xefc60000
+      y ^= (y >> 18)
+    end
+  end
+end

data/lib/vendor/backports-3.3.5/lib/backports/extra/random/bits_and_bytes.rb

@@ -0,0 +1,91 @@
+class Random
+  # Supplement the MT19937 class with methods to do
+  # conversions the same way as MRI.
+  # No argument checking is done here either.
+
+  class MT19937
+    FLOAT_FACTOR = 1.0/9007199254740992.0
+    # generates a random number on [0,1) with 53-bit resolution
+    def random_float
+      ((random_32_bits >> 5) * 67108864.0 + (random_32_bits >> 6)) * FLOAT_FACTOR;
+    end
+
+    # Returns an integer within 0...upto
+    def random_integer(upto)
+      n = upto - 1
+      nb_full_32 = 0
+      while n > PAD_32_BITS
+        n >>= 32
+        nb_full_32 += 1
+      end
+      mask = mask_32_bits(n)
+      begin
+        rand = random_32_bits & mask
+        nb_full_32.times do
+          rand <<= 32
+          rand |= random_32_bits
+        end
+      end until rand < upto
+      rand
+    end
+
+    def random_bytes(nb)
+      nb_32_bits = (nb + 3) / 4
+      random = nb_32_bits.times.map { random_32_bits }
+      random.pack("L" * nb_32_bits)[0, nb]
+    end
+
+    def state_as_bignum
+      b = 0
+      @state.each_with_index do |val, i|
+        b |= val << (32 * i)
+      end
+      b
+    end
+
+    def left # It's actually the number of words left + 1, as per MRI...
+      MT19937::STATE_SIZE - @last_read
+    end
+
+    def marshal_dump
+      [state_as_bignum, left]
+    end
+
+    def marshal_load(ary)
+      b, left = ary
+      @last_read = MT19937::STATE_SIZE - left
+      @state = Array.new(STATE_SIZE)
+      STATE_SIZE.times do |i|
+        @state[i] = b & PAD_32_BITS
+        b >>= 32
+      end
+    end
+
+    # Convert an Integer seed of arbitrary size to either a single 32 bit integer, or an Array of 32 bit integers
+    def self.convert_seed(seed)
+      seed = seed.abs
+      long_values = []
+      begin
+        long_values << (seed & PAD_32_BITS)
+        seed >>= 32
+      end until seed == 0
+
+      long_values.pop if long_values[-1] == 1 && long_values.size > 1 # Done to allow any kind of sequence of integers
+
+      long_values.size > 1 ? long_values : long_values.first
+    end
+
+    def self.[](seed)
+      new(convert_seed(seed))
+    end
+
+  private
+    MASK_BY = [1,2,4,8,16]
+    def mask_32_bits(n)
+      MASK_BY.each do |shift|
+        n |= n >> shift
+      end
+      n
+    end
+  end
+end

data/lib/vendor/backports-3.3.5/lib/backports/extra/random/implementation.rb

@@ -0,0 +1,93 @@
+class Random
+  # Implementation corresponding to the actual Random class of Ruby
+  # The actual random generator (mersenne twister) is in MT19937.
+  # Ruby specific conversions are handled in bits_and_bytes.
+  # The high level stuff (argument checking) is done here.
+  #
+  module Implementation
+    attr_reader :seed
+
+    def initialize(seed = 0)
+      super()
+      srand(seed)
+    end
+
+    def srand(new_seed = 0)
+      new_seed = Backports.coerce_to_int(new_seed)
+      old, @seed = @seed, new_seed.nonzero? || Random.new_seed
+      @mt = MT19937[ @seed ]
+      old
+    end
+
+    def rand(limit = Backports::Undefined)
+      case limit
+        when Backports::Undefined
+          @mt.random_float
+        when Float
+          limit * @mt.random_float unless limit <= 0
+        when Range
+          _rand_range(limit)
+        else
+          limit = Backports.coerce_to_int(limit)
+          @mt.random_integer(limit) unless limit <= 0
+      end || raise(ArgumentError, "invalid argument #{limit}")
+    end
+
+    def bytes(nb)
+      nb = Backports.coerce_to_int(nb)
+      raise ArgumentError, "negative size" if nb < 0
+      @mt.random_bytes(nb)
+    end
+
+    def ==(other)
+      other.is_a?(Random) &&
+        seed == other.seed &&
+        left == other.send(:left) &&
+        state == other.send(:state)
+    end
+
+    def marshal_dump
+      @mt.marshal_dump << @seed
+    end
+
+    def marshal_load(ary)
+      @seed = ary.pop
+      @mt = MT19937.allocate
+      @mt.marshal_load(ary)
+    end
+
+  private
+    def state
+      @mt.state_as_bignum
+    end
+
+    def left
+      @mt.left
+    end
+
+    def _rand_range(limit)
+      range = limit.end - limit.begin
+      if (!range.is_a?(Float)) && range.respond_to?(:to_int) && range = Backports.coerce_to_int(range)
+        range += 1 unless limit.exclude_end?
+        limit.begin + @mt.random_integer(range) unless range <= 0
+      elsif range = Backports.coerce_to(range, Float, :to_f)
+        if range < 0
+          nil
+        elsif limit.exclude_end?
+          limit.begin + @mt.random_float * range unless range <= 0
+        else
+          # cheat a bit... this will reduce the nb of random bits
+          loop do
+            r = @mt.random_float * range * 1.0001
+            break limit.begin + r unless r > range
+          end
+        end
+      end
+    end
+  end
+
+  def self.new_seed
+    Kernel::srand # use the built-in seed generator
+    Kernel::srand # return the generated seed
+  end
+end

data/lib/vendor/backports-3.3.5/lib/backports/extra/random/load.rb

@@ -0,0 +1,17 @@
+require "backports/tools"
+require "backports/extra/random/MT19937"
+require "backports/extra/random/bits_and_bytes"
+require "backports/extra/random/implementation"
+
+class Random
+  include Implementation
+  class << self
+    include Implementation
+  end
+
+  def inspect
+    "#<#{self.class.name}:#{object_id}>"
+  end
+
+  srand
+end

data/lib/vendor/backports-3.3.5/lib/backports/force/array_map.rb

@@ -0,0 +1 @@
+require 'backports/force/enumerable_map'

data/lib/vendor/backports-3.3.5/lib/backports/force/enumerable_map.rb

@@ -0,0 +1,3 @@
+Backports.make_block_optional Enumerable, :map, :test_on => 1..2
+Backports.make_block_optional Array, :map, :test_on => [1, 2]
+

data/lib/vendor/backports-3.3.5/lib/backports/force/hash_select.rb

@@ -0,0 +1,9 @@
+class Hash
+  if {}.select{} == []
+    def select_with_hash_return
+      return to_enum(:select) unless block_given?
+      Hash[select_without_hash_return{|k, v| yield [k, v]}]
+    end
+    Backports.alias_method_chain self, :select, :hash_return
+  end
+end

data/lib/vendor/backports-3.3.5/lib/backports/force/string_length.rb

@@ -0,0 +1,10 @@
+# encoding: utf-8
+
+class String
+  if "é".length > 1 && "é".scan(/./).length == 1
+    def length
+      unpack("U*").length
+    end
+    alias_method :size,       :length
+  end
+end

data/lib/vendor/backports-3.3.5/lib/backports/force/string_size.rb

@@ -0,0 +1 @@
+require 'backports/force/string_length'

data/lib/vendor/backports-3.3.5/lib/backports/rails/array.rb

@@ -0,0 +1,6 @@
+class Array
+  # See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Array/ExtractOptions.html]
+  def extract_options!
+    last.is_a?(::Hash) ? pop : {}
+  end unless method_defined? :extract_options!
+end

data/lib/vendor/backports-3.3.5/lib/backports/rails/enumerable.rb

@@ -0,0 +1,12 @@
+module Enumerable
+  # Standard in rails... See official documentation[http://api.rubyonrails.org/classes/Enumerable.html]
+  # Modified from rails 2.3 to not rely on size
+  def sum(identity = 0, &block)
+    if block_given?
+      map(&block).sum(identity)
+    else
+      inject { |sum, element| sum + element } || identity
+    end
+  end unless method_defined? :sum
+
+end

data/lib/vendor/backports-3.3.5/lib/backports/rails/hash.rb

@@ -0,0 +1,31 @@
+class Hash
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
+  def reverse_merge(other_hash)
+    other_hash.merge(self)
+  end unless method_defined? :reverse_merge
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
+  def reverse_merge!(other_hash)
+    replace(reverse_merge(other_hash))
+  end unless method_defined? :reverse_merge!
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
+  def symbolize_keys
+    Hash[map{|key,value| [(key.to_sym rescue key) || key, value] }]
+  end unless method_defined? :symbolize_keys
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
+  def symbolize_keys!
+    self.replace(self.symbolize_keys)
+  end unless method_defined? :symbolize_keys!
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
+  def stringify_keys
+    Hash[map{|key,value| [key.to_s, value] }]
+  end unless method_defined? :stringify_keys
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Hash/Keys.html]
+  def stringify_keys!
+    self.replace(self.stringify_keys)
+  end unless method_defined? :stringify_keys!
+end

data/lib/vendor/backports-3.3.5/lib/backports/rails/kernel.rb

@@ -0,0 +1,6 @@
+class Object
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/Object.html]
+  def try(method_id, *args, &block)
+    send(method_id, *args, &block) unless self.nil?
+  end unless method_defined? :try
+end

data/lib/vendor/backports-3.3.5/lib/backports/rails/module.rb

@@ -0,0 +1,6 @@
+class Module
+  # Standard in rails... See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/Module.html]
+  def alias_method_chain(target, feature, &block)
+    Backports.alias_method_chain(self, target, feature, &block)
+  end unless method_defined? :alias_method_chain
+end

data/lib/vendor/backports-3.3.5/lib/backports/rails/string.rb

@@ -0,0 +1,42 @@
+class String
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
+  def camelize(first_letter = :upper)
+    if first_letter == :upper
+      gsub(/\/(.?)/) { "::#{$1.upcase}" }.gsub(/(?:^|_)(.)/) { $1.upcase }
+    else
+      self[0..0].downcase + camelize[1..-1]
+    end
+  end unless method_defined? :camelize
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
+  def constantize
+    names = split('::')
+    names.shift if names.empty? || names.first.empty?
+
+    constant = Object
+    names.each do |name|
+      constant = constant.const_defined?(name) ? constant.const_get(name) : constant.const_missing(name)
+    end
+    constant
+  end unless method_defined? :constantize
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
+  def dasherize
+    gsub(/_/, '-')
+  end unless method_defined? :dasherize
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
+  def demodulize
+    gsub(/^.*::/, '')
+  end unless method_defined? :demodulize
+
+  # Standard in rails. See official documentation[http://api.rubyonrails.org/classes/ActiveSupport/CoreExtensions/String/Inflections.html]
+  def underscore
+    gsub(/::/, '/').
+      gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+      gsub(/([a-z\d])([A-Z])/,'\1_\2').
+      tr("-", "_").
+      downcase
+  end unless method_defined? :underscore
+
+end

data/lib/vendor/backports-3.3.5/lib/backports/rails.rb

@@ -0,0 +1,4 @@
+require "backports/tools"
+%w(array enumerable hash kernel module string).each do |lib|
+  require "backports/rails/#{lib}"
+end