1 files changed, 110 insertions, 0 deletions
diff --git a/bindings/ruby/quackle_runner.rb b/bindings/ruby/quackle_runner.rb
new file mode 100644
index 0000000..d466cfc
--- /dev/null
+++ b/bindings/ruby/quackle_runner.rb
@@ -0,0 +1,110 @@
+require_relative 'quackle'
+
+# Some higher-level functions over the quackle bindings.
+
+module Quackle
+  PLAYER_TYPES = {
+    speedy: "Speedy Player",
+    championship: "Championship Player",
+    championship_20s: "Twenty Second Championship Player",
+    championship_5m: "Five Minute Championship Player",
+  }
+
+  module GCGUtils
+    def self.load_game(path)
+      gamereader = GCGIO.new
+      gamePath = Util.stdStringToQString(path)
+      gamereader.read(gamePath, Logania::MaintainBoardPreparation)
+    end
+  end
+
+  module RunnerUtils
+    def initialize_dm(lexicon, alphabet, datadir)
+      # Set up the data manager
+      dm = DataManager.new
+      dm.setComputerPlayers(ComputerPlayerCollection.fullCollection)
+      dm.setBackupLexicon(lexicon)
+      dm.setAppDataDirectory(datadir)
+
+      # Set up the alphabet
+      abc = AlphabetParameters.findAlphabetFile(alphabet)
+      abc2 = Util.stdStringToQString(abc) #convert to qstring
+      fa = FlexibleAlphabetParameters.new
+
+      fail unless fa.load(abc2)
+      dm.setAlphabetParameters(fa)
+
+      # Set up the board
+      board = BoardParameters.new
+      dm.setBoardParameters(board)
+
+      # Find the lexicon
+      dawg = LexiconParameters.findDictionaryFile(lexicon + '.dawg')
+      gaddag = LexiconParameters.findDictionaryFile(lexicon + '.gaddag')
+      dm.lexiconParameters.loadDawg(dawg)
+      dm.lexiconParameters.loadGaddag(gaddag)
+
+      dm.strategyParameters.init(lexicon)
+      return dm
+    end
+
+    def computer_player(type)
+      name = PLAYER_TYPES[type]
+      if name
+        player, found = @dm.computerPlayers.playerForName(name)
+        if not found
+          raise NameError("Could not initialize computer player #{name}")
+        end
+        player.computerPlayer
+      else
+        raise ArgumentError("Unknown computer player: #{type}")
+      end
+    end
+  end
+
+  class AIRunner
+    include RunnerUtils
+
+    attr_accessor :dm, :game, :players
+
+    def initialize(lexicon:, alphabet:, datadir:, random_seed: nil)
+      @dm = initialize_dm(lexicon, alphabet, datadir)
+      @dm.seedRandomNumbers(random_seed) if random_seed
+    end
+
+    def init_game(players)
+      @game = Game.new
+      @players = PlayerList.new
+      players.each_with_index do |(name, type), i|
+        player = Player::new(name, Player::ComputerPlayerType, i)
+        player.setComputerPlayer(computer_player(type))
+        @players << player
+      end
+
+      game.setPlayers(@players)
+      game.associateKnownComputerPlayers
+      game.addPosition
+    end
+
+    def current_position
+      game.currentPosition
+    end
+
+    def current_player
+      current_position.currentPlayer
+    end
+
+    def board
+      current_position.board
+    end
+
+    def make_move
+      game.haveComputerPlay
+    end
+
+    def game_over?
+      current_position.gameOver
+    end
+  end
+
+end