decider 0.10.0 → 2.0.0

data/.document

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

data/.gitignore

@@ -0,0 +1,5 @@
+*.sw?
+.DS_Store
+coverage
+rdoc
+pkg

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Mike Skalnik
+
+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,14 @@
+= decider
+
+After constantly opening up irb so that Ruby can make a decision for
+me, I decided to make a tiny gem that makes deciding easy. 
+
+= Example
+ $ decider yes no
+ no
+ $ decider one two three
+ two
+ 
+== Copyright
+
+Copyright (c) 2009 Mike Skalnik. See LICENSE for details.

data/Rakefile

@@ -1,10 +1,56 @@
-# frozen_string_literal: true
+require 'rubygems'
+require 'rake'
 
-require "bundler/gem_tasks"
-require "minitest/test_task"
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "decider"
+    gem.summary = %Q{A small gem that helps you decide between a few choices}
+    gem.email = "mike.skalnik@gmail.com"
+    gem.homepage = "http://github.com/skalnik/decider"
+    gem.authors = ["Mike Skalnik"]
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
 
-Minitest::TestTask.create
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
 
-require "standard/rake"
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/*_test.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/*_test.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  if File.exist?('VERSION.yml')
+    config = YAML.load(File.read('VERSION.yml'))
+    version = "#{config[:major]}.#{config[:minor]}.#{config[:patch]}"
+  else
+    version = ""
+  end
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "decider #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
 
-task default: %i[test standard]

data/VERSION

@@ -0,0 +1 @@
+2.0.0

data/bin/8ball

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'decider'
+
+possible_results = ["Signs point to yes.",
+                    "Yes.",
+                    "Reply hazy, try again.",
+                    "Without a doubt.",
+                    "My sources say no.",
+                    "As I see it, yes.",
+                    "You may rely on it.",
+                    "Concentrate and ask again.",
+                    "Outlook not so good.",
+                    "It is decidedly so.",
+                    "Better not tell you now.",
+                    "Very doubtful.",
+                    "Yes - definitely.",
+                    "It is certain.",
+                    "Cannot predict now.",
+                    "Most likely.",
+                    "Ask again later.",
+                    "My reply is no.",
+                    "Outlook good.",
+                    "Don't count on it."]
+unless ARGV[0]
+  puts 'The 8 ball needs a question to answer!'
+  exit
+end
+puts Decider::decide *possible_results

data/bin/decider

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'decider'
+
+puts Decider::decide *ARGV

data/lib/decider.rb

@@ -1,392 +1,7 @@
-# frozen_string_literal: true
-
-require_relative "decider/reactor"
-require_relative "decider/view"
-
 module Decider
-  StateAlreadyDefined = Class.new(StandardError)
-  StateNotDefined = Class.new(StandardError)
-
-  Pair = Data.define(:left, :right)
-
-  class Left
-    attr_reader :value
-
-    def initialize(value)
-      @value = value
-    end
-
-    def deconstruct
-      [:left, value]
-    end
-
-    def ==(other)
-      value == other.value
-    end
+  extend self
+  
+  def decide(*choices)
+    choices.shuffle[0]
   end
-
-  class Right
-    attr_reader :value
-
-    def initialize(value)
-      @value = value
-    end
-
-    def deconstruct
-      [:right, value]
-    end
-
-    def ==(other)
-      value == other.value
-    end
-  end
-
-  class Module < ::Module
-    DECIDE_FALLBACK = proc { [nil, proc {}] }
-    EVOLVE_FALLBACK = proc { [nil, proc { state }] }
-
-    Decide = Data.define(:command, :state, :_events) do
-      def emit(*events)
-        _events.push(*events)
-      end
-    end
-    Evolve = Data.define(:state, :event) do
-      def self.build(state, event)
-        new(state: state, event: event)
-      end
-    end
-    Terminal = Data.define(:state)
-
-    def initialize(initial_state:, deciders:, evolutions:, terminal:)
-      case initial_state
-      in Proc
-        define_method(:initial_state) do
-          initial_state.call
-        end
-      else
-        define_method(:initial_state) do
-          initial_state
-        end
-      end
-
-      define_method(:decide) do |command, state|
-        context = Decide.new(command: command, state: state, _events: [])
-
-        deciders.find(DECIDE_FALLBACK) do |args, _|
-          case args
-          in [Proc => fn]
-            context.instance_exec(&fn)
-          in [ctype]
-            command in ^ctype
-          in [ctype, stype]
-            [command, state] in [^ctype, ^stype]
-          else
-            false
-          end
-        end => [_, handler]
-
-        context.instance_exec(&handler)
-        context._events
-      end
-
-      define_method(:evolve) do |*args|
-        if args.empty?
-          ->(state, event) { evolve(state, event) }
-        else
-          context = Evolve.build(*args)
-
-          evolutions.find(EVOLVE_FALLBACK) do |args, _|
-            case args
-            in [Proc => fn]
-              context.instance_exec(&fn)
-            in [etype]
-              context_event = context.event
-              context_event in ^etype
-            in [stype, etype]
-              context_state = context.state
-              context_event = context.event
-              [context_state, context_event] in [^stype, ^etype]
-            else
-              false
-            end
-          end => [_, handler]
-
-          context.instance_exec(&handler)
-        end
-      end
-
-      define_method(:terminal?) do |state|
-        context = Terminal.new(state: state)
-
-        context.instance_exec(&terminal)
-      end
-
-      define_method(:lmap_on_command) do |fn|
-        Decider.lmap_on_command(fn, self)
-      end
-
-      define_method(:lmap_on_state) do |fn|
-        Decider.lmap_on_state(fn, self)
-      end
-
-      define_method(:map) do |fn|
-        Decider.map(fn, self)
-      end
-
-      define_method(:rmap_on_state) do |fn|
-        Decider.rmap_on_state(fn, self)
-      end
-
-      define_method(:dimap_on_state) do |fl:, fr:|
-        Decider.dimap_on_state(fl, fr, self)
-      end
-
-      define_method(:lmap_on_event) do |fn|
-        Decider.lmap_on_event(fn, self)
-      end
-
-      define_method(:rmap_on_event) do |fn|
-        Decider.rmap_on_event(fn, self)
-      end
-
-      define_method(:dimap_on_event) do |fl:, fr:|
-        Decider.dimap_on_event(fl, fr, self)
-      end
-
-      define_method(:many) do
-        Decider.many(self)
-      end
-
-      define_method(:apply) do |f|
-        Decider.apply(self, f)
-      end
-    end
-  end
-
-  class Builder
-    DEFAULT = Object.new
-
-    def initialize
-      @initial_state = DEFAULT
-      @deciders = {}
-      @evolutions = {}
-      @terminal = proc { false }
-    end
-
-    def build(&block)
-      instance_exec(&block) if block_given?
-
-      raise StateNotDefined if @initial_state == DEFAULT
-
-      decider = Class.new
-
-      mod = Module.new(
-        initial_state: @initial_state,
-        deciders: deciders,
-        evolutions: evolutions,
-        terminal: terminal
-      )
-
-      decider.extend(mod)
-
-      decider
-    end
-
-    private
-
-    attr_reader :deciders, :evolutions, :terminal
-
-    def initial_state(state = DEFAULT, &block)
-      raise StateAlreadyDefined if @initial_state != DEFAULT
-
-      @initial_state =
-        if block_given?
-          block
-        else
-          state
-        end
-    end
-
-    def decide(*args, &block)
-      deciders[args] = block
-    end
-
-    def evolve(*args, &block)
-      evolutions[args] = block
-    end
-
-    def terminal?(&block)
-      @terminal = block
-    end
-  end
-  private_constant :Builder
-
-  def self.define(&block)
-    builder = Builder.new
-    builder.build(&block)
-  end
-
-  def self.compose(left, right)
-    define do
-      initial_state Pair.new(
-        left: left.initial_state,
-        right: right.initial_state
-      )
-
-      decide proc { command in [:left, _] } do
-        left.decide(command.value, state.left).each { emit Left.new(_1) }
-      end
-
-      decide proc { command in [:right, _] } do
-        right.decide(command.value, state.right).each { emit Right.new(_1) }
-      end
-
-      evolve proc { event in [:left, _] } do
-        state.with(
-          left: left.evolve(state.left, event.value)
-        )
-      end
-
-      evolve proc { event in [:right, _] } do
-        state.with(
-          right: right.evolve(state.right, event.value)
-        )
-      end
-
-      terminal? do
-        left.terminal?(state.left) && right.terminal?(state.right)
-      end
-    end
-  end
-
-  def self.lmap_on_command(fn, decider)
-    define do
-      initial_state decider.initial_state
-
-      decide proc { true } do
-        decider.decide(fn.call(command), state).each(&method(:emit))
-      end
-
-      evolve proc { true } do
-        decider.evolve(state, event)
-      end
-
-      terminal? do
-        decider.terminal?(state)
-      end
-    end
-  end
-
-  def self.lmap_on_state(fn, decider)
-    dimap_on_state(fn, ->(state) { state }, decider)
-  end
-
-  def self.map(fn, decider)
-    dimap_on_state(->(state) { state }, fn, decider)
-  end
-
-  def self.rmap_on_state(fn, decider)
-    dimap_on_state(->(state) { state }, fn, decider)
-  end
-
-  def self.dimap_on_state(fl, fr, decider)
-    define do
-      initial_state fr.call(decider.initial_state)
-
-      decide proc { true } do
-        decider.decide(command, fl.call(state)).each(&method(:emit))
-      end
-
-      evolve proc { true } do
-        fr.call(decider.evolve(fl.call(state), event))
-      end
-
-      terminal? do
-        decider.terminal?(fl.call(state))
-      end
-    end
-  end
-
-  def self.lmap_on_event(fn, decider)
-    dimap_on_event(fn, ->(event) { event }, decider)
-  end
-
-  def self.rmap_on_event(fn, decider)
-    dimap_on_event(->(event) { event }, fn, decider)
-  end
-
-  def self.dimap_on_event(fl, fr, decider)
-    define do
-      initial_state decider.initial_state
-
-      decide proc { true } do
-        decider.decide(command, state).each do |event|
-          emit fr.call(event)
-        end
-      end
-
-      evolve proc { true } do
-        decider.evolve(state, fl.call(event))
-      end
-
-      terminal? do
-        decider.terminal?(state)
-      end
-    end
-  end
-
-  def self.many(decider)
-    define do
-      initial_state({})
-
-      decide proc { [command, state] in [[_id, _], Hash] } do
-        command => [id, command]
-
-        ds = state.fetch(id) { decider.initial_state }
-
-        decider.decide(command, ds).each do |event|
-          emit [id, event]
-        end
-      end
-
-      evolve proc { [state, event] in [Hash, [_id, _]] } do
-        event => [id, event]
-
-        ds = state.fetch(id) { decider.initial_state }
-        ds = decider.evolve(ds, event)
-
-        state.merge(id => ds)
-      end
-
-      terminal? do
-        state.any? && state.all? { |_, ds| decider.terminal?(ds) }
-      end
-    end
-  end
-
-  def self.apply(f, x)
-    map2(->(f, x) { f.call(x) }, f, x)
-  end
-
-  def self.map2(fn, dx, dy)
-    define do
-      initial_state fn.call(dx.initial_state, dy.initial_state)
-
-      decide proc { true } do
-        dx.decide(command, state).each(&method(:emit))
-        dy.decide(command, state).each(&method(:emit))
-      end
-
-      evolve proc { true } do
-        fn.call(
-          dx.evolve(state, event),
-          dy.evolve(state, event)
-        )
-      end
-
-      terminal? do
-        dx.terminal?(state) && dy.terminal?(state)
-      end
-    end
-  end
-end
+end

data/test/decider_test.rb

@@ -0,0 +1,12 @@
+require 'test_helper'
+
+class DeciderTest < Test::Unit::TestCase
+  should "pick the the only choice if given one" do
+    assert_equal 'one', Decider::decide('one')
+  end
+  
+  should "pick one of the given choices" do
+    choices = ['one', 'two', 'three']
+    assert_contains choices, Decider::decide(*choices)
+  end
+end

data/test/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 'decider'
+
+class Test::Unit::TestCase
+end