crapshoot 0.1.0

data/lib/crapshoot/parser/scan.rl

@@ -0,0 +1,62 @@
+%%{
+  machine scanner;
+
+  action _number { @mark_num = p }
+  action number { @num_stack.push atos(data[@mark_num..p-1]) }
+
+  action constant { @tokens << Tokens::Constant.new(@num_stack.pop) }
+  action series {
+    drop = @drop_current
+    @drop_current = nil
+    sides = @num_stack.pop
+    count = @num_stack.pop
+    @tokens << Tokens::Series.new(count, sides, drop)
+  }
+  action arithmetic { @tokens << Tokens::Arithmetic.new(data[p-1].chr) }
+
+  action drop { @drop_current = data[p-1].chr }
+
+  Number = digit+ >_number %number;
+
+  Constant = Number %constant;
+
+  Drop = '^' | 'v' %drop;
+  Series = Number 'd' Number Drop? %series;
+
+  Arithmetic = ('+' | '-') %arithmetic;
+
+  UnaryExpression = Series | Constant;
+  BinaryExpression = UnaryExpression (space* Arithmetic space* UnaryExpression)+;
+  Expression = UnaryExpression | BinaryExpression;
+
+  main := Expression;
+}%%
+
+module Crapshoot
+  module Parser
+    class Scan
+      def initialize
+        @tokens = []
+        @num_stack = []
+      end
+
+      def parse(line)
+        data = line.codepoints.to_a
+        stack = []
+        p = 0
+        ts = 0
+        te = 0
+        act = 0
+        eof = data.length
+        %% write data;
+        %% write init;
+        %% write exec;
+        return @tokens
+      end
+
+      def atos(a)
+        a.map(&:chr).join
+      end
+    end
+  end
+end

data/lib/crapshoot/postfixer.rb

@@ -0,0 +1,23 @@
+module Crapshoot
+  class Postfixer
+    def postfixify(infix_tokens)
+      @infix_orig = infix_tokens
+      @infix = @infix_orig.dup
+      @postfix = []
+      until @infix.empty?
+        step
+      end
+
+      return @postfix
+    end
+
+    def step
+      candidate = @infix.shift
+      unless candidate.independent
+        dependency = @infix.shift
+        @postfix.push dependency
+      end
+      @postfix.push candidate
+    end
+  end
+end

data/lib/crapshoot/scanner.rb

@@ -0,0 +1,38 @@
+require File.join(File.dirname(__FILE__), 'parser', 'scan.rb')
+%w{ base constant series arithmetic }.each do |f|
+  require File.join(File.dirname(__FILE__), 'tokens', f)
+end
+
+module Crapshoot
+  class Scanner
+    def initialize
+      @parser = Parser::Scan.new
+    end
+
+    def parse(line)
+      @line = line
+      begin
+        @result = @parser.parse @line
+        return @result
+      rescue => e
+        @exception = e
+        return nil
+      end
+    end
+
+    def successful?
+      @result
+    end
+
+    def inspect_errors
+      return 'No error' if successful?
+      backtrace = @exception.backtrace
+      filtered_backtrace = []
+      backtrace.each do |i|
+        break if i.include? __FILE__
+        filtered_backtrace << i
+      end
+      return "#{ @exception.message } at #{ filtered_backtrace.join("\n")}"
+    end
+  end
+end

data/lib/crapshoot/tokens/arithmetic.rb

@@ -0,0 +1,24 @@
+module Crapshoot
+  module Tokens
+    class Arithmetic < Base
+      def initialize(operation)
+        @operation = operation
+      end
+
+      def independent
+        false
+      end
+
+      def eval(stack)
+        r = stack.pop
+        l = stack.pop
+        @result = l.send(@operation.to_sym, r)
+        @result
+      end
+
+      def inspect
+        "<Crapshoot::Tokens::Arithmetic operation=#{@operation}>"
+      end
+    end
+  end
+end

data/lib/crapshoot/tokens/base.rb

@@ -0,0 +1,9 @@
+module Crapshoot
+  module Tokens
+    class Base
+      def independent
+        true
+      end
+    end
+  end
+end

data/lib/crapshoot/tokens/constant.rb

@@ -0,0 +1,17 @@
+module Crapshoot
+  module Tokens
+    class Constant < Base
+      def initialize(number)
+        @value = number.to_i
+      end
+
+      def eval(stack)
+        return @value
+      end
+
+      def inspect
+        "<Crapshoot::Tokens::Constant value=#{@value}>"
+      end
+    end
+  end
+end

data/lib/crapshoot/tokens/series.rb

@@ -0,0 +1,42 @@
+module Crapshoot
+  module Tokens
+    class Series < Base
+      def initialize(count, sides, drop = nil)
+        @count = count.to_i
+        @sides = sides.to_i
+        @drop = drop
+      end
+
+      def eval(stack)
+        results_array = (1..@count).to_a.map{ roll_a_die }.sort
+        @result = results_array.inject(&:+)
+        roll_description = results_array.join '+'
+
+        case @drop
+        when '^'
+          max = results_array[0]
+          @result -= max
+          roll_description += '-#{max}'
+        when 'v'
+          min = results_array[-1]
+          @result -= min
+          roll_description += '-#{min}'
+        end
+        @description = "(#{roll_description})"
+
+        return @result
+      end
+
+      def inspect
+        "<Crapshoot::Tokens::Series dice=#{@count}d#{@sides} drop=#{@drop or 'nothing'}>"
+      end
+
+      private
+
+      def roll_a_die
+        # +1 because we can roll a zero
+        ActiveSupport::SecureRandom.random_number(@sides) + 1
+      end
+    end
+  end
+end

data/test/helper.rb

@@ -0,0 +1,18 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'crapshoot'
+
+class Test::Unit::TestCase
+end

data/test/test_crapshoot.rb

@@ -0,0 +1,19 @@
+require 'helper'
+
+class TestCrapshoot < Test::Unit::TestCase
+  def self.should_roll(from, options)
+    keys = options.keys
+
+    should "successfully evaluate #{from.inspect}" do
+      result = Crapshoot.roll from
+      keys.each do |k|
+        constraint = options[k]
+        assert result.send(k.to_sym, constraint), "#{result} was not #{k} #{constraint}"
+      end
+    end
+  end
+  context 'The Crapshoot module' do
+    should_roll '4d6', '>='=>4, '<='=>24
+    should_roll '4d6 + 200', '>='=>204, '<='=>224
+  end
+end

data/test/test_evaluator.rb

@@ -0,0 +1,39 @@
+require 'helper'
+
+class TestEvaluator < Test::Unit::TestCase
+  include Crapshoot::Tokens
+  def self.should_evaluate(from, options)
+    keys = options.keys
+
+    should "successfully evaluate #{from.inspect}" do
+      result = @evaluator.evaluate from
+      keys.each do |k|
+        constraint = options[k]
+        assert result.send(k.to_sym, constraint), "#{result} was not #{k} #{constraint}"
+      end
+    end
+  end
+
+  context 'an evaluator' do
+    setup do
+      @evaluator = Crapshoot::Evaluator.new
+    end
+
+    five = Constant.new '5'
+    plus = Arithmetic.new '+'
+    minus = Arithmetic.new '-'
+    six = Constant.new '6'
+    series1 = Series.new '5', '6', nil
+    series2 = Series.new '4', '20', 'v'
+    series3 = Series.new '20', '2'
+    series4 = Series.new '20', 1, 'v'
+    series5 = Series.new '20', 1, '^'
+
+    should_evaluate [five, six, plus], '=='=> 11
+    should_evaluate [series1, series1, plus], '>=' => 10, '<=' => 60
+    should_evaluate [five, series2, plus], '>=' => 8, '<=' => 65
+    should_evaluate [series3], '>=' => 20, '<=' => 40
+    should_evaluate [series4], '=='=>19
+    should_evaluate [series5], '=='=>19
+  end
+end

data/test/test_postfixer.rb

@@ -0,0 +1,28 @@
+require 'helper'
+
+class TestPostfixer < Test::Unit::TestCase
+  include Crapshoot::Tokens
+  def self.should_postfixify(from, to)
+    should "postfixify #{from.inspect} to #{to.inspect}" do
+      candidate = @postfixer.postfixify from
+      assert_equal to, candidate
+    end
+  end
+  context 'a postfixer' do
+    setup do
+      @postfixer = Crapshoot::Postfixer.new
+    end
+
+    five = Constant.new '5'
+    plus = Arithmetic.new '+'
+    minus = Arithmetic.new '-'
+    six = Constant.new '6'
+    series1 = Series.new '5', '6', nil
+    series2 = Series.new '4', '20', 'v'
+
+    should_postfixify([five, plus, six],
+                      [five, six, plus])
+    should_postfixify([series1, plus, six, minus, series2],
+                      [series1, six, plus, series2, minus])
+  end
+end

data/test/test_scanner.rb

@@ -0,0 +1,44 @@
+require 'helper'
+
+class TestScanner < Test::Unit::TestCase
+  include Crapshoot::Tokens
+  def self.should_parse(line, *sequence)
+    should "parse #{line.inspect} without error" do
+      @scanner.parse(line)
+
+      assert @scanner.successful?,
+        "Failed to parse #{line.inspect}: #{@scanner.inspect_errors}"
+    end
+
+    unless sequence.empty?
+      should "parse #{line.inspect} into #{sequence.inspect}" do
+        result = @scanner.parse(line)
+        result.zip sequence do |r, c|
+          assert_kind_of c, r
+        end
+      end
+    end
+  end
+
+  context 'a scanner' do
+    setup do
+      @scanner = Crapshoot::Scanner.new
+    end
+
+    should_parse '4', Constant
+    should_parse '4d6', Series
+    should_parse '1 + 2', Constant, Arithmetic, Constant
+    should_parse '1+2', Constant, Arithmetic, Constant
+    should_parse '4d6 + 4d6', Series, Arithmetic, Series
+    should_parse '4d6v', Series
+    should_parse '4d6 + 2', Series, Arithmetic, Constant
+    should_parse '15', Constant
+    should_parse '14d100v + 8d8 + 3', Series, Arithmetic, Series, Arithmetic, Constant
+
+    should 'have an error string' do
+      @scanner.parse 'fffff'
+      assert @scanner.inspect_errors
+    end
+  end
+
+end

metadata

@@ -0,0 +1,305 @@
+--- !ruby/object:Gem::Specification 
+name: crapshoot
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- Bryce Kerley
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-28 00:00:00 -05:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: crapshoot
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  prerelease: false
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 3
+        - 0
+        version: "3.0"
+  type: :runtime
+  prerelease: false
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: shoulda
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  prerelease: false
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: bundler
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 0
+        - 0
+        version: 1.0.0
+  type: :development
+  prerelease: false
+  version_requirements: *id004
+- !ruby/object:Gem::Dependency 
+  name: jeweler
+  requirement: &id005 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 5
+        - 2
+        version: 1.5.2
+  type: :development
+  prerelease: false
+  version_requirements: *id005
+- !ruby/object:Gem::Dependency 
+  name: rcov
+  requirement: &id006 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  prerelease: false
+  version_requirements: *id006
+- !ruby/object:Gem::Dependency 
+  name: guard-test
+  requirement: &id007 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 1
+        - 4
+        version: 0.1.4
+  type: :development
+  prerelease: false
+  version_requirements: *id007
+- !ruby/object:Gem::Dependency 
+  name: treetop
+  requirement: &id008 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 4
+        - 9
+        version: 1.4.9
+  type: :development
+  prerelease: false
+  version_requirements: *id008
+- !ruby/object:Gem::Dependency 
+  name: shoulda
+  requirement: &id009 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  prerelease: false
+  version_requirements: *id009
+- !ruby/object:Gem::Dependency 
+  name: bundler
+  requirement: &id010 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 0
+        - 0
+        version: 1.0.0
+  type: :development
+  prerelease: false
+  version_requirements: *id010
+- !ruby/object:Gem::Dependency 
+  name: jeweler
+  requirement: &id011 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 5
+        - 2
+        version: 1.5.2
+  type: :development
+  prerelease: false
+  version_requirements: *id011
+- !ruby/object:Gem::Dependency 
+  name: rcov
+  requirement: &id012 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :development
+  prerelease: false
+  version_requirements: *id012
+- !ruby/object:Gem::Dependency 
+  name: guard-test
+  requirement: &id013 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 1
+        - 4
+        version: 0.1.4
+  type: :development
+  prerelease: false
+  version_requirements: *id013
+- !ruby/object:Gem::Dependency 
+  name: treetop
+  requirement: &id014 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 4
+        - 9
+        version: 1.4.9
+  type: :development
+  prerelease: false
+  version_requirements: *id014
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  requirement: &id015 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 3
+        - 0
+        version: "3.0"
+  type: :runtime
+  prerelease: false
+  version_requirements: *id015
+description: Crapshoot is a dice-rolling gem that parses complicated notation for most of your pen-and-paper gaming needs.
+email: bkerley@brycekerley.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE.txt
+- README.rdoc
+files: 
+- .document
+- Gemfile
+- Gemfile.lock
+- Guardfile
+- LICENSE.txt
+- README.rdoc
+- Rakefile
+- VERSION
+- crapshoot.gemspec
+- lib/crapshoot.rb
+- lib/crapshoot/evaluator.rb
+- lib/crapshoot/parser/scan.rb
+- lib/crapshoot/parser/scan.rl
+- lib/crapshoot/postfixer.rb
+- lib/crapshoot/scanner.rb
+- lib/crapshoot/tokens/arithmetic.rb
+- lib/crapshoot/tokens/base.rb
+- lib/crapshoot/tokens/constant.rb
+- lib/crapshoot/tokens/series.rb
+- test/helper.rb
+- test/test_crapshoot.rb
+- test/test_evaluator.rb
+- test/test_postfixer.rb
+- test/test_scanner.rb
+has_rdoc: true
+homepage: http://github.com/bkerley/crapshoot
+licenses: 
+- MIT
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: -352312256047208438
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: The alpha and omega of rolling dice
+test_files: 
+- test/helper.rb
+- test/test_crapshoot.rb
+- test/test_evaluator.rb
+- test/test_postfixer.rb
+- test/test_scanner.rb