/*
  Stockfish, a UCI chess playing engine derived from Glaurung 2.1
  Copyright (C) 2004-2008 Tord Romstad (Glaurung author)
  Copyright (C) 2008-2010 Marco Costalba, Joona Kiiski, Tord Romstad

  Stockfish is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  Stockfish is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/


////
//// Includes
////

#include <cassert>
#include <cctype>
#include <iostream>
#include <sstream>
#include <string>

#include "evaluate.h"
#include "misc.h"
#include "move.h"
#include "movegen.h"
#include "position.h"
#include "search.h"
#include "ucioption.h"

using namespace std;


namespace {

  // FEN string for the initial position
  const string StartPositionFEN = "rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR w KQkq - 0 1";

  // UCIParser is a class for parsing UCI input. The class
  // is actually a string stream built on a given input string.
  typedef istringstream UCIParser;

  // Local functions
  void set_option(UCIParser& up);
  void set_position(Position& pos, UCIParser& up);
  bool go(Position& pos, UCIParser& up);
  void perft(Position& pos, UCIParser& up);
}


/// execute_uci_command() takes a string as input, uses a UCIParser
/// object to parse this text string as a UCI command, and calls
/// the appropriate functions. In addition to the UCI commands,
/// the function also supports a few debug commands.

bool execute_uci_command(const string& cmd) {

  static Position pos(StartPositionFEN, false, 0); // The root position
  UCIParser up(cmd);
  string token;

  up >> token; // operator>>() skips any whitespace

  if (token == "quit")
      return false;

  else if (token == "go")
      return go(pos, up);

  else if (token == "uci")
      cout << "id name " << engine_name()
           << "\nid author " << engine_authors()
           << "\n" << Options.print_all()
           << "\nuciok" << endl;

  else if (token == "ucinewgame")
      pos.from_fen(StartPositionFEN, false);

  else if (token == "isready")
      cout << "readyok" << endl;

  else if (token == "position")
      set_position(pos, up);

  else if (token == "setoption")
      set_option(up);

  else if (token == "d")
      pos.print();

  else if (token == "eval")
  {
      read_evaluation_uci_options(pos.side_to_move());
      cout << trace_evaluate(pos) << endl;
  }

  else if (token == "key")
      cout << "key: " << hex     << pos.get_key()
           << "\nmaterial key: " << pos.get_material_key()
           << "\npawn key: "     << pos.get_pawn_key() << endl;

  else if (token == "perft")
      perft(pos, up);

  else if (token == "flip")
  {
      Position p(pos, pos.thread());
      pos.flipped_copy(p);
  }
  else
      cout << "Unknown command: " << cmd << endl;

  return true;
}


////
//// Local functions
////

namespace {

  // set_position() is called when Stockfish receives the "position" UCI
  // command. The input parameter is a UCIParser. It is assumed
  // that this parser has consumed the first token of the UCI command
  // ("position"), and is ready to read the second token ("startpos"
  // or "fen", if the input is well-formed).

  void set_position(Position& pos, UCIParser& up) {

    string fen, token;

    up >> token; // operator>>() skips any whitespace

    if (token == "startpos")
    {
        pos.from_fen(StartPositionFEN, false);
        up >> token; // Consume "moves" token
    }
    else if (token == "fen")
    {
        while (up >> token && token != "moves")
            fen += token + " ";

        pos.from_fen(fen, Options["UCI_Chess960"].value<bool>());
    }
    else return;

    // Parse move list (if any)
    while (up >> token)
        pos.do_setup_move(move_from_uci(pos, token));
  }


  // set_option() is called when Stockfish receives the "setoption" UCI
  // command. The input parameter is a UCIParser. It is assumed
  // that this parser has consumed the first token of the UCI command
  // ("setoption"), and is ready to read the second token ("name", if
  // the input is well-formed).

  void set_option(UCIParser& up) {

    string value = "true"; // UCI buttons don't have a "value" field
    string token, name;

    up >> token; // Consume "name" token
    up >> name;  // Read option name

    // Handle names with included spaces
    while (up >> token && token != "value")
        name += " " + token;

    up >> value; // Read option value

    // Handle values with included spaces
    while (up >> token)
        value += " " + token;

    if (Options.find(name) != Options.end())
        Options[name].set_value(value);
    else
        cout << "No such option: " << name << endl;
  }


  // go() is called when Stockfish receives the "go" UCI command. The
  // input parameter is a UCIParser. It is assumed that this
  // parser has consumed the first token of the UCI command ("go"),
  // and is ready to read the second token. The function sets the
  // thinking time and other parameters from the input string, and
  // calls think() (defined in search.cpp) with the appropriate
  // parameters. Returns false if a quit command is received while
  // thinking, returns true otherwise.

  bool go(Position& pos, UCIParser& up) {

    string token;
    Move searchMoves[MOVES_MAX];
    int movesToGo, depth, nodes, moveTime, numOfMoves;
    bool infinite, ponder;
    int time[2] = {0, 0}, inc[2] = {0, 0};

    searchMoves[0] = MOVE_NONE;
    infinite = ponder = false;
    movesToGo = depth = nodes = moveTime = numOfMoves = 0;

    while (up >> token)
    {
        if (token == "infinite")
            infinite = true;
        else if (token == "ponder")
            ponder = true;
        else if (token == "wtime")
            up >> time[0];
        else if (token == "btime")
            up >> time[1];
        else if (token == "winc")
            up >> inc[0];
        else if (token == "binc")
            up >> inc[1];
        else if (token == "movestogo")
            up >> movesToGo;
        else if (token == "depth")
            up >> depth;
        else if (token == "nodes")
            up >> nodes;
        else if (token == "movetime")
            up >> moveTime;
        else if (token == "searchmoves")
        {
            while (up >> token)
                searchMoves[numOfMoves++] = move_from_uci(pos, token);

            searchMoves[numOfMoves] = MOVE_NONE;
        }
    }

    assert(pos.is_ok());

    return think(pos, infinite, ponder, time, inc, movesToGo,
                 depth, nodes, moveTime, searchMoves);
  }

  void perft(Position& pos, UCIParser& up) {

    int depth, tm;
    int64_t n;

    if (!(up >> depth))
        return;

    tm = get_system_time();

    n = perft(pos, depth * ONE_PLY);

    tm = get_system_time() - tm;
    std::cout << "\nNodes " << n
              << "\nTime (ms) " << tm
              << "\nNodes/second " << int(n / (tm / 1000.0)) << std::endl;
  }
}