acpc_dealer_data 0.0.1

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/.yardopts

@@ -0,0 +1,7 @@
+--protected
+--no-private
+lib/**/*.rb
+ext/**/*.c
+-
+*.md
+doc/**/*

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in acpc_dealer_data.gemspec
+gemspec

data/LICENSE.md

@@ -0,0 +1,17 @@
+License
+=========
+
+Copyright © 2012 by the Computer Poker Research Group, University of Alberta.
+
+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, sublicence, 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.
+
+Except as contained in this notice, the name(s) of the above copyright holders shall not be used in advertising or otherwise to promote the sale, use or other dealings in this Software without prior written authorization.
+
+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.
+
+Credits
+-------
+
+Dustin Morrill: morrill@ualberta.ca

data/README.md

@@ -0,0 +1,45 @@
+ACPC Dealer Data
+==================
+
+The [Annual Computer Poker Competition Dealer Data][ACPC Dealer Data GitHub] gem contains utilities for extracting information from [<em>ACPC Dealer Server</em>][ACPC competition server] logs.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'acpc_dealer_data'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install acpc_dealer_data
+
+## Usage
+
+See the [documentation][docs] for information on available classes, modules, and constants.
+
+## Contributing
+
+See the [issue tracker](https://github.com/dmorrill10/acpc_dealer_data/issues) for currently known issues, or to log new ones.
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Added some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request
+
+Copyright
+---------
+Copyright &copy; 2012 by the Computer Poker Research Group, University of Alberta. See [LICENSE](LICENSE.md) for details.
+
+<!---
+    Link references
+    ================
+-->
+
+[ACPC Dealer Data GitHub]: https://github.com/dmorrill10/acpc_dealer_data#readme
+[ACPC competition server]: http://www.computerpokercompetition.org/index.php?option=com_rokdownloads&view=folder&Itemid=59
+[docs]: http://rubydoc.info/github/dmorrill10/acpc_dealer_data/frames

data/Rakefile

@@ -0,0 +1,12 @@
+#!/usr/bin/env rake
+require "bundler/gem_tasks"
+
+require 'rake'
+require 'rake/testtask'
+
+Rake::TestTask.new do |t|
+  t.libs << "lib" << 'spec/support'
+  t.test_files = FileList['spec/**/*_spec.rb']
+  t.verbose = true
+  t.warning = true
+end

data/acpc_dealer_data.gemspec

@@ -0,0 +1,27 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path('../lib/acpc_dealer_data/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.authors       = ["Dustin Morrill"]
+  gem.email         = ["morrill@ualberta.ca"]
+  gem.description   = %q{ACPC Dealer data}
+  gem.summary       = %q{Gem to parse, manipulate, and use data from the ACPC Dealer program.}
+  gem.homepage      = "https://github.com/dmorrill10/acpc_dealer_data"
+
+  gem.add_dependency 'acpc_dealer'
+  gem.add_dependency 'acpc_poker_types'
+  gem.add_dependency 'celluloid'
+  gem.add_dependency 'dmorrill10-utils', '~>1.0.0'
+
+  
+  gem.add_development_dependency 'mocha'
+  gem.add_development_dependency 'simplecov'
+  gem.add_development_dependency 'turn'
+
+  gem.files         = `git ls-files`.split($\)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.name          = "acpc_dealer_data"
+  gem.require_paths = ["lib"]
+  gem.version       = AcpcDealerData::VERSION
+end

data/lib/acpc_dealer_data.rb

@@ -0,0 +1,10 @@
+require "acpc_dealer_data/version"
+
+require 'acpc_dealer_data/action_messages'
+require 'acpc_dealer_data/hand_data'
+require 'acpc_dealer_data/hand_results'
+require 'acpc_dealer_data/poker_match_data'
+require 'acpc_dealer_data/match_definition'
+
+module AcpcDealerData
+end

data/lib/acpc_dealer_data/action_messages.rb

@@ -0,0 +1,90 @@
+
+require 'acpc_poker_types/match_state'
+require 'acpc_poker_types/poker_action'
+
+require_relative 'match_definition'
+
+class ActionMessages
+
+  attr_reader :data, :final_score, :match_def
+
+  def self.parse_to_message(to_message)
+    if to_message.strip.match(
+      /^TO\s*(\d+)\s*at\s*[\d\.]+\s+(\S+)$/
+    )
+      {seat: $1.to_i - 1, state: MatchState.parse($2)}
+    else
+      nil
+    end
+  end
+
+  def self.parse_from_message(from_message)
+    if from_message.strip.match(
+/^FROM\s*(\d+)\s*at\s*[\d\.]+\s*(#{MatchState::LABEL}\S+):([#{PokerAction::LEGAL_ACPC_CHARACTERS.to_a.join('')}]\s*\d*)$/
+    )
+      {seat: $1.to_i - 1, state: MatchState.parse($2), action: PokerAction.new($3)}
+    else
+      nil
+    end
+  end
+
+  def self.parse_score(score_string)
+    if score_string.strip.match(
+      /^SCORE:([\d\-\.|]+):([\w|]+)$/
+      )
+       
+      stack_changes = $1.split '|'
+      players = $2.split '|'
+         
+      players.each_index.inject({}) do |player_results, j|
+         player_results[players[j].to_sym] = stack_changes[j].to_r
+         player_results
+      end
+    else
+      nil
+    end
+  end
+
+  def self.parse_to_or_from_message(message)
+    parsed_message = ActionMessages.parse_to_message(message)
+    if parsed_message.nil?
+      ActionMessages.parse_from_message(message)
+    else
+      parsed_message
+    end
+  end
+
+  def self.parse_file(acpc_log_file_path, player_names, game_def_directory)
+    File.open(acpc_log_file_path, 'r') do |file| 
+      ActionMessages.parse file, player_names, game_def_directory
+    end
+  end
+
+  alias_new :parse
+
+  def initialize(acpc_log_statements, player_names, game_def_directory)
+    @final_score = nil
+    @match_def = nil
+    @data = acpc_log_statements.inject([]) do |accumulating_data, log_line|
+      if @match_def.nil?
+        @match_def = MatchDefinition.parse(log_line, player_names, game_def_directory)
+      else
+        parsed_message = ActionMessages.parse_to_or_from_message(log_line)
+        if parsed_message
+          if (
+            accumulating_data.empty? || 
+            accumulating_data.last.first[:state].hand_number != parsed_message[:state].hand_number
+          )
+            accumulating_data << []
+          end
+
+          accumulating_data.last << parsed_message
+        else
+          @final_score = ActionMessages.parse_score(log_line) unless @final_score
+        end
+      end
+
+      accumulating_data
+    end
+  end
+end

data/lib/acpc_dealer_data/hand_data.rb

@@ -0,0 +1,164 @@
+
+require 'dmorrill10-utils/class'
+
+require_relative 'match_definition'
+
+# Monkey patch for easy boundary checking
+class Array
+  def in_bounds?(i)
+    i < length
+  end
+end
+
+class HandData
+
+  exceptions :match_definitions_do_not_match, :invalid_data
+
+  attr_reader :chip_distribution, :match_def, :turn_number, :data, :seat
+
+  # State messages are organized by seat
+  Turn = Struct.new :state_messages, :action_message
+
+  def initialize(match_def, action_data, result)
+    @match_def = match_def
+    
+    set_chip_distribution! result
+
+    set_data! action_data
+
+    @turn_number = nil
+    @seat = nil
+  end
+
+  def ==(other)
+    @match_def == other.match_def &&
+    @chip_distribution == other.chip_distribution &&
+    @data == other.data
+  end
+
+  def for_every_turn!(seat=0)
+    @seat = seat
+    @data.each_index do |i|
+      @turn_number = i
+
+      yield @turn_number
+    end
+
+    @turn_number = nil
+    self
+  end
+
+  def current_match_state(seat=@seat)
+    if @turn_number
+      @data[@turn_number].state_messages[seat]
+    else
+      nil
+    end
+  end
+
+  def next_action
+    if @turn_number
+      @data[@turn_number].action_message
+    else
+      nil
+    end
+  end
+
+  def last_match_state(seat=@seat)
+    if @turn_number && @turn_number != 0
+      @data[@turn_number-1].state_messages[seat]
+    else
+      nil
+    end
+  end
+
+  def last_action
+    if @turn_number && @turn_number != 0
+      @data[@turn_number-1].action_message
+    else
+      nil
+    end
+  end
+
+  def final_turn?
+    if @turn_number
+      @turn_number >= @data.length - 1
+    else
+      nil
+    end
+  end
+
+  protected
+
+  def set_chip_distribution!(result)
+    @chip_distribution = []
+    result.each do |player_name, amount|
+      begin
+        @chip_distribution[@match_def.player_names.index(player_name.to_s)] = amount
+      rescue TypeError
+        raise PlayerNamesDoNotMatch
+      end
+    end
+  end
+
+  def set_data!(action_data)
+    number_of_state_messages = @match_def.game_def.number_of_players
+
+    @data = []
+    message_number = 0
+    while message_number < action_data.length
+      state_messages = action_data[message_number..message_number+number_of_state_messages-1]
+
+      assert_messages_have_no_actions state_messages
+
+      state_messages = process_state_messages state_messages
+
+      assert_messages_are_well_defined state_messages
+
+      message_number += number_of_state_messages
+
+      action_message = if action_data.in_bounds?(message_number) && 
+        action_data[message_number][:action]
+
+        message_number += 1
+        action_data[message_number-1]
+      else
+        assert_message_is_from_final_turn action_data, message_number, state_messages
+
+        nil
+      end
+
+      @data << Turn.new(state_messages, action_message)
+    end
+  end
+
+  private
+
+  def process_state_messages(state_messages)
+    state_messages.inject([]) do |messages, raw_messages|
+      messages[raw_messages[:seat]] = raw_messages[:state]
+      messages
+    end
+  end
+
+  def assert_messages_have_no_actions(state_messages)
+    if state_messages.any? { |message| !message[:action].nil? }
+      raise InvalidData, state_messages.find do |message| 
+        !message[:action].nil?
+      end.inspect
+    end
+  end
+
+  def assert_messages_are_well_defined(state_messages)
+    if state_messages.any? { |message| message.nil? }
+      raise InvalidData, state_messages.find { |message| message.nil? }.inspect
+    end
+  end
+
+  def assert_message_is_from_final_turn(action_data, message_number, state_messages)
+    if action_data.in_bounds?(message_number+1) && 
+      state_messages.last.round == action_data[message_number+1][:state].round
+      raise InvalidData, action_data[message_number].inspect
+    end
+  end
+end

data/lib/acpc_dealer_data/hand_results.rb

@@ -0,0 +1,71 @@
+
+require 'dmorrill10-utils/class'
+
+require_relative 'match_definition'
+
+class HandResults
+
+  attr_reader :data, :final_score, :match_def
+
+  def self.parse_state(state_string)
+    if state_string.strip.match(
+      /^STATE:\d+:[cfr\d\/]+:[^:]+:([\d\-\.|]+):([\w|]+)$/
+      )
+       
+      stack_changes = $1.split '|'
+      players = $2.split '|'
+         
+      players.each_index.inject({}) do |player_results, j|
+         player_results[players[j].to_sym] = stack_changes[j].to_r
+         player_results
+      end
+    else
+      nil
+    end
+  end
+
+  def self.parse_score(score_string)
+    if score_string.strip.match(
+      /^SCORE:([\d\-\.|]+):([\w|]+)$/
+      )
+       
+      stack_changes = $1.split '|'
+      players = $2.split '|'
+         
+      players.each_index.inject({}) do |player_results, j|
+         player_results[players[j].to_sym] = stack_changes[j].to_r
+         player_results
+      end
+    else
+      nil
+    end
+  end
+
+  def self.parse_file(acpc_log_file_path, player_names, game_def_directory)
+    File.open(acpc_log_file_path, 'r') do |file| 
+      HandResults.parse file, player_names, game_def_directory
+    end
+  end
+
+  alias_new :parse
+
+  def initialize(acpc_log_statements, player_names, game_def_directory)
+    @final_score = nil
+    @match_def = nil
+    
+    @data = acpc_log_statements.inject([]) do |accumulating_data, log_line|
+      if @match_def.nil?
+        @match_def = MatchDefinition.parse(log_line, player_names, game_def_directory)
+      else
+        parsed_message = HandResults.parse_state(log_line)
+        if parsed_message
+          accumulating_data << parsed_message
+        else
+          @final_score = HandResults.parse_score(log_line) unless @final_score
+        end
+      end
+      
+      accumulating_data
+    end
+  end
+end