Subversion Repositories Games.Chess Giants

   hChessEngineStdinRd = NULL;

   hChessEngineStdinRd = NULL;

   hChessEngineStdinWr = NULL;

   hChessEngineStdinWr = NULL;

   hChessEngineStdoutRd = NULL;

   hChessEngineStdoutRd = NULL;

   hChessEngineStdoutWr = NULL;

   hChessEngineStdoutWr = NULL;

   player->wants_hint = false;

   player->wants_hint = false;

   // build the chess engine module path and pathname

   // build the chess engine module path and pathname

   swprintf_s (chessenginemodule_path, WCHAR_SIZEOF (chessenginemodule_path), L"%s/engines/%s", app_path, options.engine.program);

   swprintf_s (chessenginemodule_path, WCHAR_SIZEOF (chessenginemodule_path), L"%s/engines/%s", app_path, options.engine.program);

   // prepare the pipes' security attributes

   // prepare the pipes' security attributes

   saAttr.nLength = sizeof (SECURITY_ATTRIBUTES);

   saAttr.nLength = sizeof (SECURITY_ATTRIBUTES);

   saAttr.bInheritHandle = true; // set the bInheritHandle flag so pipe handles are inherited

   saAttr.bInheritHandle = true; // set the bInheritHandle flag so pipe handles are inherited

   saAttr.lpSecurityDescriptor = NULL;

   saAttr.lpSecurityDescriptor = NULL;

   si.dwFlags = STARTF_USESTDHANDLES;

   si.dwFlags = STARTF_USESTDHANDLES;

   si.hStdInput = hChessEngineStdinRd;

   si.hStdInput = hChessEngineStdinRd;

   si.hStdOutput = hChessEngineStdoutWr;

   si.hStdOutput = hChessEngineStdoutWr;

   si.hStdError = hChessEngineStdoutWr;

   si.hStdError = hChessEngineStdoutWr;

   if (!CreateProcess (chessenginemodule_pathname, // module pathname

   if (!CreateProcess (chessenginemodule_pathname, // module pathname

                       NULL, NULL,

                       NULL, NULL,

                       true, // handles are inherited

                       true, // handles are inherited

                       CREATE_NO_WINDOW | DETACHED_PROCESS | CREATE_NEW_PROCESS_GROUP,

                       CREATE_NO_WINDOW | DETACHED_PROCESS | CREATE_NEW_PROCESS_GROUP,

                       NULL,

                       NULL,

                       chessenginemodule_path, // process path

                       chessenginemodule_path, // process path

   {

   {

      Debug_Log (L"===Found initialization file, parsing...===\n");

      Debug_Log (L"===Found initialization file, parsing...===\n");

      // SMP HACK -- is our engine Crafty or GNU Chess ? if so, set the max CPUs to use to core max - 1

      // SMP HACK -- is our engine Crafty or GNU Chess ? if so, set the max CPUs to use to core max - 1

      // (the computer will look like hung if all CPU is taken)

      // (the computer will look like hung if all CPU is taken)

      {

      {

         GetSystemInfo (&sysinfo); // get the number of cores and build the corresponding engine initialization order

         GetSystemInfo (&sysinfo); // get the number of cores and build the corresponding engine initialization order

         Player_SendBuffer_Add (player, 1000, L"mt %d\n", max (1, sysinfo.dwNumberOfProcessors - 1));

         Player_SendBuffer_Add (player, 1000, L"mt %d\n", max (1, sysinfo.dwNumberOfProcessors - 1));

      }

      }

      fclose (fp); // finished, close the file

      fclose (fp); // finished, close the file

   }

   }

   // everything's okay, set engine name as the player's name

   // everything's okay, set engine name as the player's name

   return (true); // finished

   return (true); // finished

}

}

   unsigned long exit_code;

   unsigned long exit_code;

   unsigned long handle_flags;

   unsigned long handle_flags;

   int attempt_index;

   int attempt_index;

   // send the engine a quit command

   // send the engine a quit command

   Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

   Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

   PlayerEngine_Send (player);

   PlayerEngine_Send (player);

   // close the pipe handles

   // close the pipe handles

   if (hChessEngineStdinRd)

   if (hChessEngineStdinRd)

      // has the game ended already ?

      // has the game ended already ?

      if (the_board.game_state > STATE_PLAYING)

      if (the_board.game_state > STATE_PLAYING)

         continue; // ignore all that the engine tells us. Game is over already.

         continue; // ignore all that the engine tells us. Game is over already.

      // is it a hint ?

      // is it a hint ?

      {

      {

         is_hint = true;

         is_hint = true;

      }

      }

      // else is it a normal move ?

      // else is it a normal move ?

      {

      {

         is_hint = false;

         is_hint = false;

      }

      }

      // else it's any other sort of line

      // else it's any other sort of line

      else

      else

      // is it NOT a hint, are blunders allowed, should we do one now AND can we do one now ?

      // is it NOT a hint, are blunders allowed, should we do one now AND can we do one now ?

      if (!is_hint && (options.engine.blunder_chances > 0) && (rand () % 100 < options.engine.blunder_chances)

      if (!is_hint && (options.engine.blunder_chances > 0) && (rand () % 100 < options.engine.blunder_chances)

          && Move_FindRandomMove (&the_board.moves[the_board.move_count - 1], player->color, &move))

          && Move_FindRandomMove (&the_board.moves[the_board.move_count - 1], player->color, &move))

      {

      {

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         if (wcscmp (options.engine.program, L"Crafty") == 0)

         if (wcscmp (options.engine.program, L"Crafty") == 0)

            Player_SendBuffer_Add (player, 1000, L"disp\n");

            Player_SendBuffer_Add (player, 1000, L"disp\n");

         Debug_Log (L"===Discarding engine move, forcing a blunderous move (%s) instead===\n", Move_BuildString (&move)); // blunder

         Debug_Log (L"===Discarding engine move, forcing a blunderous move (%s) instead===\n", Move_BuildString (&move)); // blunder

      }

      }

   if (the_board.was_setup)

   if (the_board.was_setup)

   {

   {

      Debug_Log (L"===Got board setup notification from interface===\n");

      Debug_Log (L"===Got board setup notification from interface===\n");

      // send a new game command to the chess engine

      // send a new game command to the chess engine

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      // just set up the board from its Forsyth-Edwards notation

      // just set up the board from its Forsyth-Edwards notation

      Debug_Log (L"===setting up board using FEN string===\n");

      Debug_Log (L"===setting up board using FEN string===\n");

      // instruct it about its allowed search depth BEFORE each table set (this ensures engine will be "ready" to handle the command)

      // instruct it about its allowed search depth BEFORE each table set (this ensures engine will be "ready" to handle the command)

      // then get the current game state in FEN format and feed it to the engine

      // then get the current game state in FEN format and feed it to the engine

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      // and reset current obstinacy

      // and reset current obstinacy

      current_obstinacy = 0;

      current_obstinacy = 0;

   // have we been notified that players are swapping colors ? (N.B. when this happens in human vs. computer mode, it's always that the human player is *GIVING* his turn)

   // have we been notified that players are swapping colors ? (N.B. when this happens in human vs. computer mode, it's always that the human player is *GIVING* his turn)

   if (the_board.want_playerswap)

   if (the_board.want_playerswap)

   {

   {

      Debug_Log (L"===Got player SWAP notification from interface===\n");

      Debug_Log (L"===Got player SWAP notification from interface===\n");

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

   }

   }

   // have we been notified that the current player just changed ?

   // have we been notified that the current player just changed ?

   if (the_board.has_playerchanged)

   if (the_board.has_playerchanged)

            if (wcscmp (options.engine.program, L"Crafty") == 0)

            if (wcscmp (options.engine.program, L"Crafty") == 0)

               Player_SendBuffer_Add (player, 1000, L"disp\n");

               Player_SendBuffer_Add (player, 1000, L"disp\n");

            // instruct it about its allowed search depth BEFORE each move (this ensures engine will be "ready" to handle the command)

            // instruct it about its allowed search depth BEFORE each move (this ensures engine will be "ready" to handle the command)

            // then build the move string, and send the move string to the engine

            // then build the move string, and send the move string to the engine

            Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

            Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

            Player_SendBuffer_Add (player, 1000, Move_BuildString (&the_board.moves[the_board.move_count - 1]));

            Player_SendBuffer_Add (player, 1000, Move_BuildString (&the_board.moves[the_board.move_count - 1]));

            Player_SendBuffer_Add (player, 1000, L"\n"); // end the send buffer with a carriage return

            Player_SendBuffer_Add (player, 1000, L"\n"); // end the send buffer with a carriage return

         }

         }

         // else game has not started yet, but it's our turn

         // else game has not started yet, but it's our turn

         else

         else

         {

         {

            Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

            Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         }

         }

      }

      }

   }

   }

      // does our opponent want a hint ?

      // does our opponent want a hint ?

      if (current_player->wants_hint)

      if (current_player->wants_hint)

      {

      {

         current_player->wants_hint = false; // don't ask twice

         current_player->wants_hint = false; // don't ask twice

         Debug_Log (L"===Hint requested, asking engine for it===\n");

         Debug_Log (L"===Hint requested, asking engine for it===\n");

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

      }

      }

      // does our opponent want to cancel a move ?

      // does our opponent want to cancel a move ?

      if (current_player->wants_cancel)

      if (current_player->wants_cancel)

         // just set up the board from its Forsyth-Edwards notation

         // just set up the board from its Forsyth-Edwards notation

         Debug_Log (L"===setting up board using FEN string===\n");

         Debug_Log (L"===setting up board using FEN string===\n");

         // instruct it about its allowed search depth BEFORE each table set (this ensures engine will be "ready" to handle the command)

         // instruct it about its allowed search depth BEFORE each table set (this ensures engine will be "ready" to handle the command)

         // then get the current game state in FEN format and feed it to the engine

         // then get the current game state in FEN format and feed it to the engine

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         Player_SendBuffer_Add (player, 1000, L"\n"); // since the format string was read from the options, don't forget to end it with a carriage return

         if (wcscmp (options.engine.program, L"Crafty") == 0)

         if (wcscmp (options.engine.program, L"Crafty") == 0)

            Player_SendBuffer_Add (player, 1000, L"disp\n");

            Player_SendBuffer_Add (player, 1000, L"disp\n");