acpc_dealer 2.0.6 → 2.1.0

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/kuhn_3p_equilibrium_player.h

@@ -0,0 +1,107 @@
+/*
+Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
+*/
+
+#ifndef __KUHN_3P_EQUILIBRIUM_PLAYER_H__
+#define __KUHN_3P_EQUILIBRIUM_PLAYER_H__
+
+#include "game.h"
+#include "rng.h"
+#include "net.h"
+
+// Types ----------------
+typedef enum {
+  C11_INDEX = 0,
+  B11_INDEX,
+  B21_INDEX,
+  B23_INDEX,
+  B32_INDEX,
+  B33_INDEX,
+  B41_INDEX,
+  C21_INDEX,
+  C33_INDEX,
+  C34_INDEX,
+  NUM_PARAMS
+} ParameterIndex;
+
+typedef struct {
+  uint32_t seed;
+  rng_state_t get_action_rng;
+  const Game* game_def;
+  double params[NUM_PARAMS];
+} Kuhn3pEquilibriumPlayer;
+
+typedef enum{JACK_RANK = 9, QUEEN_RANK, KING_RANK, ACE_RANK} CardRank;
+
+typedef enum{A_POSITION = 0, B_POSITION, C_POSITION} PlayerPosition;
+
+// Constants -------------
+#define KUHN_SUIT 3
+#define JACK makeCard(JACK_RANK, KUHN_SUIT)
+#define QUEEN makeCard(QUEEN_RANK, KUHN_SUIT)
+#define KING makeCard(KING_RANK, KUHN_SUIT)
+#define ACE makeCard(ACE_RANK, KUHN_SUIT)
+
+#define KAPPA (1/24.0)
+
+static const int SUB_FAMILY_1_INDEPENDENT_PARAMS[] = {
+    B11_INDEX, B21_INDEX, B32_INDEX, C33_INDEX, C34_INDEX
+};
+
+static const int SUB_FAMILY_2_INDEPENDENT_PARAMS[] = {
+    B11_INDEX, B21_INDEX, B23_INDEX, B32_INDEX, C33_INDEX, C34_INDEX
+};
+
+static const int SUB_FAMILY_3_INDEPENDENT_PARAMS[] = {
+    B11_INDEX, B32_INDEX, C33_INDEX, C34_INDEX
+};
+
+// Necessary params for P1
+static const double A[][4] = {
+    {0.0, 0.0, 0.0,   0.0},
+    {0.0, 0.0, 0.0,   0.0},
+    {0.0, 0.0, 1/2.0, 0.0},
+    {0.0, 1.0, 1.0,   1.0}
+};
+
+// Necessary params for P2
+#define B12 0.0
+#define B13 0.0
+#define B14 0.0
+#define B22 0.0
+#define B24 0.0
+#define B31 0.0
+#define B34 0.0
+#define B42 1.0
+#define B43 1.0
+#define B44 1.0
+
+// Necessary params for P3
+#define C12 0.0
+#define C13 0.0
+#define C14 0.0
+#define C22 0.0
+#define C23 0.0
+#define C24 0.0
+#define C31 0.0
+#define C32 0.0
+static const double C4[] = {1.0, 1.0, 1.0, 1.0};
+
+// Functions -----------------
+double beta(const Kuhn3pEquilibriumPlayer* kuhn_3p_e_player);
+Kuhn3pEquilibriumPlayer new_kuhn_3p_equilibrium_player(
+    const Game const* game_def,
+    const double const* params,
+    uint32_t seed
+);
+Action action(
+    Kuhn3pEquilibriumPlayer* player,
+    MatchState view
+);
+void action_probs(
+    const Kuhn3pEquilibriumPlayer const* player,
+    MatchState view,
+    double* probs
+);
+
+#endif

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/main.c

@@ -0,0 +1,84 @@
+/*
+Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
+*/
+
+#include <stdlib.h>
+#include <assert.h>
+#include <netdb.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include "game.h"
+#include "rng.h"
+#include "net.h"
+#include "kuhn_3p_equilibrium_player.h"
+#include "player_config.h"
+
+int main(int argc, char **argv)
+{
+  PlayerConfig config = new_player_config_from_argv(argc, argv);
+
+  connect_to_dealer(&config.dealer);
+
+  int len, r;
+  MatchState state;
+  char line[ MAX_LINE_LEN ];
+
+  Kuhn3pEquilibriumPlayer player = new_kuhn_3p_equilibrium_player(
+      config.game,
+      config.params,
+      config.seed
+  );
+
+  /* play the game! */
+  while( fgets( line, MAX_LINE_LEN, config.dealer.fromServer ) ) {
+    /* ignore comments */
+    if( line[ 0 ] == '#' || line[ 0 ] == ';' ) {
+      continue;
+    }
+
+    len = readMatchState( line, config.game, &state );
+    if( len < 0 ) {
+      fprintf( stderr, "ERROR: could not read state %s", line );
+      exit( EXIT_FAILURE );
+    }
+
+    if(stateFinished( &state.state)) {
+      /* ignore the game over message */
+      continue;
+    }
+
+    if(currentPlayer(config.game, &state.state) != state.viewingPlayer) {
+      /* we're not acting */
+      continue;
+    }
+
+    /* add a colon (guaranteed to fit because we read a new-line in fgets) */
+    line[ len ] = ':';
+    ++len;
+
+    Action action_to_send = action(&player, state);
+
+        /* do the action! */
+    assert(isValidAction(config.game, &state.state, 0, &action_to_send));
+    r = printAction(config.game, &action_to_send, MAX_LINE_LEN - len - 2, &line[len]);
+
+    if( r < 0 ) {
+      fprintf( stderr, "ERROR: line too long after printing action\n" );
+      exit( EXIT_FAILURE );
+    }
+    len += r;
+    line[ len ] = '\r';
+    ++len;
+    line[ len ] = '\n';
+    ++len;
+
+    if( fwrite(line, 1, len, config.dealer.toServer) != len ) {
+      fprintf( stderr, "ERROR: could not get send response to server\n" );
+      exit(EXIT_FAILURE);
+    }
+    fflush(config.dealer.toServer);
+  }
+
+  return EXIT_SUCCESS;
+}

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/player_config.c

@@ -0,0 +1,252 @@
+/*
+Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
+*/
+
+#include <stdlib.h>
+#include <assert.h>
+#include <string.h>
+#include <stdio.h>
+#include <stdarg.h>
+#include <unistd.h>
+#include <sys/time.h>
+#include "rng.h"
+#include "commander.h"
+#include "player_config.h"
+
+static void parse(
+    const char* to_parse,
+    const char* template,
+    const char* error_message,
+    size_t num_targets,
+    ...
+)
+{
+  va_list scan_targets;
+  va_start(scan_targets, num_targets);
+
+  if(vsscanf(to_parse, template, scan_targets) < num_targets) {
+    fprintf(stderr, "ERROR: %s: %s\n", error_message, to_parse);
+    exit(EXIT_FAILURE);
+  }
+  va_end(scan_targets);
+}
+
+static void c11(command_t *self) {
+  assert(self->data);
+
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%lf",
+      "Invalid C11 parameter",
+      1,
+      &config->params[C11_INDEX]
+  );
+}
+
+static void b11(command_t *self) {
+  assert(self->data);
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%lf",
+      "Invalid B11 parameter",
+      1,
+      &config->params[B11_INDEX]
+  );
+}
+
+static void b21(command_t *self) {
+  assert(self->data);
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%lf",
+      "Invalid B21 parameter",
+      1,
+      &config->params[B21_INDEX]
+  );
+}
+
+static void b23(command_t *self) {
+  assert(self->data);
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%lf",
+      "Invalid B23 parameter",
+      1,
+      &config->params[B23_INDEX]
+  );
+}
+
+static void b32(command_t *self) {
+  assert(self->data);
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%lf",
+      "Invalid B32 parameter",
+      1,
+      &config->params[B32_INDEX]
+  );
+}
+
+static void c33(command_t *self) {
+  assert(self->data);
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%lf",
+      "Invalid C33 parameter",
+      1,
+      &config->params[C33_INDEX]
+  );
+}
+
+static void c34(command_t *self) {
+  assert(self->data);
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%lf",
+      "Invalid C34 parameter",
+      1,
+      &config->params[C34_INDEX]
+  );
+}
+
+static void r(command_t *self) {
+  assert(self->data);
+  PlayerConfig* config = self->data;
+  parse(
+      self->arg,
+      "%"SCNu32,
+      "Invalid random seed",
+      1,
+      &config->seed
+  );
+}
+
+static void parse_game_def(command_t *self)
+{
+  assert(self->data);
+
+  PlayerConfig* config = self->data;
+
+  FILE* file = fopen(self->arg, "r");
+  if (!file) {
+    fprintf( stderr, "ERROR: could not open game %s\n", self->arg );
+    exit( EXIT_FAILURE );
+  }
+
+  config->game = readGame( file );
+  if (!config->game) {
+    fprintf( stderr, "ERROR: could not read game %s\n", self->arg );
+    exit( EXIT_FAILURE );
+  }
+  fclose( file );
+}
+
+static void get_host(command_t *self)
+{
+  if (!self->arg) {
+    return;
+  }
+  assert(self->data);
+
+  PlayerConfig* config = self->data;
+
+  memset(config->dealer.host, 0, HOST_NAME_MAX * sizeof(*config->dealer.host));
+  strncpy(config->dealer.host, self->arg, HOST_NAME_MAX);
+}
+
+static void get_port(command_t *self)
+{
+  assert(self->data);
+
+  PlayerConfig* config = self->data;
+
+  parse(
+      self->arg,
+      "%"SCNu16,
+      "Invalid port",
+      1,
+      &config->dealer.port
+  );
+}
+
+PlayerConfig new_player_config()
+{
+  // If no random seed is given, initialize the player's random number seed
+  // using time
+  struct timeval tv;
+  gettimeofday(&tv, NULL);
+  rng_state_t rng;
+  init_genrand(&rng, tv.tv_usec);
+
+  PlayerConfig this = {
+      .dealer = new_dealer_connection(),
+      .game = NULL,
+      .params = {0},
+      .seed = genrand_int32(&rng)
+  };
+
+  return this;
+}
+
+PlayerConfig new_player_config_from_argv(int argc, char** argv)
+{
+  command_t cmd;
+  command_init(&cmd, argv[0], "0.0.1");
+
+  command_option(
+      &cmd,
+      "-n",
+      "--host [host name]",
+      "Name of the host on which dealer is running (defaults to 'localhost')",
+      get_host
+  );
+  command_option(
+      &cmd,
+      "-p",
+      "--port <port number>",
+      "Port number to connect to dealer",
+      get_port
+  );
+  command_option(
+      &cmd,
+      "-g",
+      "--game <file name>",
+      "Game definition file name",
+      parse_game_def
+  );
+  command_option(
+      &cmd,
+      "-r",
+      "--seed [non-negative integer]",
+      "Random seed, defaults to a random random seed based on system time.",
+      r
+  );
+
+  command_option(&cmd, "-0", "--c11 <probability>", "C11 value", c11);
+  command_option(&cmd, "-1", "--b11 <probability>", "B11 value", b11);
+  command_option(&cmd, "-2", "--b21 [probability]", "B21 value", b21);
+  command_option(&cmd, "-3", "--b23 [probability]", "B23 value", b23);
+  command_option(&cmd, "-4", "--b32 <probability>", "B32 value", b32);
+  command_option(&cmd, "-8", "--c33 <probability>", "C33 value", c33);
+  command_option(&cmd, "-9", "--c34 <probability>", "C34 value", c34);
+
+  if( argc < 14 ) {
+    command_help(&cmd);
+    exit(EXIT_SUCCESS);
+  }
+
+  PlayerConfig config = new_player_config();
+  cmd.data = &config;
+
+  command_parse(&cmd, argc, argv);
+  command_free(&cmd);
+
+  return config;
+}

data/vendor/project_acpc_server/kuhn_3p_equilibrium_player/src/player_config.h

@@ -0,0 +1,21 @@
+/*
+Copyright (C) 2013 by the Computer Poker Research Group, University of Alberta
+*/
+
+#ifndef __PLAYER_CONFIG_H__
+#define __PLAYER_CONFIG_H__
+
+#include "dealer_connection.h"
+#include "kuhn_3p_equilibrium_player.h"
+
+typedef struct {
+  DealerConnection dealer;
+  Game *game;
+  double params[NUM_PARAMS];
+  uint32_t seed;
+} PlayerConfig;
+
+PlayerConfig new_player_config();
+PlayerConfig new_player_config_from_argv(int argc, char** argv);
+
+#endif