cmd.c

   1 /*
   2  *      This program is free software; you can redistribute it and/or modify
   3  *      it under the terms of the GNU General Public License as published by
   4  *      the Free Software Foundation; either version 2 of the License, or
   5  *      (at your option) any later version.
   6  *
   7  *      This program is distributed in the hope that it will be useful,
   8  *      but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  *      GNU General Public License for more details.
  11  *
  12  *      You should have received a copy of the GNU General Public License
  13  *      along with this program; if not, write to the Free Software
  14  *      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  15  */
  16 #include "common.h"
  17 #include "board.h"
  18 #include "engine.h"
  19 #include "move.h"
  20 #include "search.h"
  21
  22 /* forward declarations of functions */
  23 static void init_protover_2(void);
  24 static int parse_cmd(char *cmd);
  25
  26 /* wait for a command */
  27 void
  28 loopcmd(void)
  29 {
  30         int res;
  31         int move;
  32         int engine_xboard;
  33         char cmd[MAX_STRING];
  34         char move_buf[MAX_STRING];
  35         pthread_t tid;
  36
  37         while (TRUE) {
  38                 if (get_engine_value(&e.side) == brd.wtm &&
  39                                 !get_engine_value(&e.force_mode)) {
  40                         /* start thinking in separate thread */
  41                         res = pthread_create(&tid, 0, process_turn, 0);
  42
  43                         /* error occured */
  44                         if (res) {
  45                                 fprintf(stderr, "pthread error: %s\n", strerror(res));
  46                                 perform_cleanup();
  47                                 exit(res);
  48                         }
  49
  50                         pthread_mutex_lock(&e.mutex);
  51                         e.tid = tid;
  52                         e.side = NOBODY;
  53                         pthread_mutex_unlock(&e.mutex);
  54
  55                 } else {
  56                         engine_xboard = get_engine_value(&e.xboard_mode);
  57                         if (!engine_xboard && !get_engine_value(&e.thinking))
  58                                 fprintf(stdout, "[%s]$ ", program_name);
  59
  60                         /* Ctrl+D */
  61                         if (!fgets(cmd, MAX_STRING, stdin)) {
  62                                 perform_cleanup();
  63                                 exit(0);
  64                         }
  65
  66                         if (!strcmp(cmd, "\n"))
  67                                 continue;
  68
  69                         if (parse_cmd(cmd) || get_engine_value(&e.thinking))
  70                                 continue;
  71
  72                         /* check if we have received a move */
  73                         sscanf(cmd, "%s", move_buf);
  74
  75                         /* parse according to the notation we are using */
  76                         if (get_engine_value(&e.san_notation) || !engine_xboard)
  77                                 move = parse_move_san(move_buf);
  78                         else
  79                                 move = parse_move_coord(move_buf);
  80
  81                         if (!move)
  82                                 fprintf(stdout, "Error (unknown command): %s\n", move_buf);
  83                         else {
  84                                 /* OK, it is a legal move - make it */
  85                                 make_move(move, FALSE);
  86                                 set_engine_value(&e.side, brd.wtm);
  87                         }
  88                 }
  89         }
  90 }
  91
  92 static int
  93 parse_cmd(char *cmd)
  94 {
  95         int val;
  96         char *filename;
  97         pthread_t tid;
  98         struct epd_info_t *ei;
  99         struct moves_t moves;
 100
 101         /* start thinking */
 102         if (!strncmp(cmd, "go", 2)) {
 103                 if (!get_engine_value(&e.thinking)) {
 104                         set_engine_value(&e.force_mode, FALSE);
 105                         set_engine_value(&e.side, brd.wtm);
 106                 }
 107                 /* display current board to console */
 108         } else if (!strncmp(cmd, "board", 5))
 109                 print_board();
 110
 111         /* xboard send this command */
 112         else if (!strncmp(cmd, "xboard", 6))
 113                 set_engine_value(&e.xboard_mode, TRUE);
 114         /* stop thinking */
 115         else if (!strncmp(cmd, "force", 5)) {
 116                 set_engine_value(&e.force_mode, TRUE);
 117                 set_engine_value(&e.side, NOBODY);
 118                 set_engine_value((int *)&e.stop_time, 0);
 119                 if (e.tid) {
 120                         val = pthread_join(e.tid, 0);
 121                         if (val)
 122                                 fprintf(stderr, "Error occured: %s\n", strerror(val));
 123                         e.tid = 0;
 124                 }
 125                 /* move now command */
 126         } else if (!strncmp(cmd, "?", 1))
 127                 set_engine_value((int *)&e.stop_time, 0);
 128
 129         /* xboard support version protocol version 2. we  should reply
 130            by 'feature' command */
 131         else if (!strncmp(cmd, "protover 2", 10)) {
 132                 set_engine_value(&e.san_notation, TRUE);
 133                 init_protover_2();
 134
 135                 /* start new game */
 136         } else if (!strncmp(cmd, "new", 3)) {
 137                 new_game();
 138                 set_engine_value(&e.force_mode, FALSE);
 139                 set_engine_value(&e.max_depth, MAX_PLY);
 140                 set_engine_value(&e.side, BLACK);
 141                 /* display thinking */
 142         } else if (!strncmp(cmd, "post", 4))
 143                 set_engine_value(&e.post_mode, TRUE);
 144
 145         /* do not display thinking */
 146         else if (!strncmp(cmd, "nopost", 6))
 147                 set_engine_value(&e.post_mode, FALSE);
 148
 149         /* time remaining for the engine */
 150         else if (sscanf(cmd, "time %d", &val) == 1) {
 151                 set_engine_value(&e.max_time, val / \
 152                                 get_engine_value(&e.time_div));
 153                 set_engine_value(&e.max_depth, MAX_PLY);
 154                 set_engine_value(&e.fixed_time, FALSE);
 155
 156         } else if (sscanf(cmd, "otim %d", &val) == 1) {
 157                 /* handle but skip this */
 158         } else if (sscanf(cmd, "st %d", &val) == 1) {
 159                 set_engine_value(&e.max_time, val);
 160                 set_engine_value(&e.max_depth, MAX_PLY);
 161                 set_engine_value(&e.fixed_time, TRUE);
 162
 163                 /* set search depth */
 164         } else if (sscanf(cmd, "sd %d", &val) == 1) {
 165                 set_engine_value(&e.max_time, 100000);
 166                 set_engine_value(&e.max_depth, val);
 167
 168         /* we can't change some parameters while searching */
 169         /* enable/disable NULL move pruning (CLI command) */
 170         } else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "null on", 7))
 171                 e.null_pruning = TRUE;
 172         else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "null off", 8))
 173                 e.null_pruning = FALSE;
 174
 175         /* enable/disable Late Move Reductions (CLI command) */
 176         else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "lmr on", 6))
 177                 e.lmr = TRUE;
 178         else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "lmr off", 7))
 179                 e.lmr = FALSE;
 180
 181         /* enable/disable Delta Pruning (CLI command) */
 182         else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "delta on", 8))
 183                 e.delta_pruning = TRUE;
 184         else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "delta off", 9))
 185                 e.delta_pruning = FALSE;
 186
 187         /* enable/disable Futility Pruning (CLI command) */
 188         else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "futil on", 8))
 189                 e.futility_pruning = TRUE;
 190         else if (!get_engine_value(&e.thinking) && !strncmp(cmd, "futil off", 9))
 191                 e.futility_pruning = FALSE;
 192
 193         else if (!strncmp(cmd, "epd", 3)) {
 194                 if (!get_engine_value(&e.thinking)) {
 195                         /* EPD - solve test positions */
 196                         ei = malloc(sizeof(struct epd_info_t));
 197                         filename = malloc(MAX_STRING);
 198
 199                         sscanf(cmd, "epd %s %d %d %d", filename, &ei->think_time, \
 200                                         &ei->max_tests, &ei->first_test);
 201
 202                         ei->filename = filename;
 203                         pthread_create(&tid, 0, run_epd_test, ei);
 204                 }
 205                 /* setup board from FEN position */
 206         } else if (!strncmp(cmd, "setboard", 8)) {
 207                 if (!setup_board(cmd + 9))
 208                         fprintf(stdout, "Invalid FEN position: %s\n", cmd + 9);
 209                 set_engine_value(&e.side, NOBODY);
 210
 211                 /* print FEN to stdout */
 212         } else if (!strncmp(cmd, "fen", 3))
 213                 fprintf(stdout, "%s\n", current_fen_position(cmd));
 214
 215         /* takeback last move */
 216         else if (!strncmp(cmd, "undo", 4)) {
 217                 set_engine_value(&e.side, NOBODY);
 218                 if (game_history.count)
 219                         takeback();
 220
 221                 /* exit engine */
 222         } else if (!strncmp(cmd, "quit", 4)) {
 223                 perform_cleanup();
 224                 exit(0);
 225
 226                 /* reply with 'pong' command */
 227         } else if (sscanf(cmd, "ping %d", &val) == 1)
 228                 fprintf(stdout, "pong %d\n", val);
 229
 230         /* print possible moves to stdout */
 231         else if (!strncmp(cmd, "moves", 5)) {
 232                 gen_legal_moves(&moves);
 233                 print_moves_san(&moves);
 234         } else
 235                 /* invalid command, maybe it is a move */
 236                 return FALSE;
 237
 238         return TRUE;
 239 }
 240
 241 /* default xboard parameters */
 242 static void
 243 init_protover_2(void)
 244 {
 245         /* disable Unix signals SIGINT and SIGTERM and tell some of our
 246            parameters */
 247         fprintf(stdout, "feature myname \"%s\"\n" \
 248                 "feature san=1\n" \
 249                 "feature colors=0\n" \
 250                 "feature setboard=1\n" \
 251                 "feature sigint=0\n" \
 252                 "feature sigterm=0\n" \
 253                 "feature ping=1\n" \
 254                 "feature done=1\n", program_name);
 255 }