From: H.G. Muller <h.g.muller@hccnet.nl>
Date: Fri, 13 Sep 2013 15:49:44 +0000 (+0200)
Subject: Implement analyze command
X-Git-Url: http://winboard.nl/cgi-bin?p=bonanza.git;a=commitdiff_plain;h=26a4f3f831c5e1d912bffcee61904165ffe55e72

Implement analyze command

To implement infinite analysis, the 'analyze' and 'exit' commands are added.
A search with flag_ponder set is used to do the analysis. When in analyze
mode, such a search will be automatically restarted after receiving a move
or undo command.
---

diff --git a/proce.c b/proce.c
index 214c78b..0f9223c 100644
--- a/proce.c
+++ b/proce.c
@@ -75,6 +75,8 @@ static int cmd_read( tree_t * restrict ptree, char **lasts );
 static int cmd_resign( tree_t * restrict ptree, char **lasts );
 static int cmd_time( char **lasts );
 static int cmd_undo( tree_t * restrict ptree );    // [HGM] undo
+static int cmd_analyze( tree_t * restrict ptree ); // [HGM] analyze
+static int cmd_exit( void );
 static int is_move( const char *str );
 
 
@@ -99,6 +101,7 @@ int move_list[1024], move_ptr;
 
 int myTime, hisTime, movesPerSession, inc, plyNr;
 char xboard_mode;
+char analyze_mode;
 
 static void
 SetTimes(void)
@@ -140,8 +143,8 @@ Out("# command = '%s'\n", line);
   IF("sd")       { sprintf(line, "limit depth %d", value); return 0; }
   IF("st")       { ; }
   IF("quit")     { return 0; }
-  IF("analyze")  { ; }
-  IF("exit")     { ; }
+  IF("analyze")  { return 0; }
+  IF("exit")     { return 0; }
   IF("variant")  { /* ignore, since it must be Shogi */; }
   IF("setboard") { ; }
   IF("option")   { ; }
@@ -153,7 +156,7 @@ Out("# command = '%s'\n", line);
   IF("usermove") { char fromX=line[9], fromY=line[10], toX=line[11], toY=line[12], promo=line[13];
                    int from;
 {int i,j;for(i=0;i<81;i+=9){printf("# ");for(j=0;j<9;j++)printf(" %3d", BOARD[i+j]);printf("\n");}}
-                   if(forceMode) strcpy(line, "move "), line += 5; else plyNr++, SetTimes();
+                   if(forceMode || analyze_mode) strcpy(line, "move "), line += 5; else plyNr++, SetTimes();
                    if(fromY == '@') { // drop
                        if(fromX >= 'a') fromX += 'A' - 'a';
                        switch(fromX) { // encode piece
@@ -175,7 +178,7 @@ Out("# from=%d\n",from);
                    plyNr++;
                    return 0;
                  }
-  IF("undo")     { ; }
+  IF("undo")     { return 0; }
   IF("remove")   { ; }
   IF("ping")     { Out("pong %d\n", value); }
   return 1;
@@ -201,6 +204,11 @@ proce_cui( tree_t * restrict ptree )
     if ( ! strcmp( token, "xboard" ) )  { xboard_mode = 1; game_status |= flag_noprompt; return 1; }
   }
 #endif
+  if ( ! strcmp( token, "analyze" ) )   { return cmd_analyze( ptree ); } // [HGM] analyze
+  if ( ! strcmp( token, "exit" ) )      { return cmd_exit(); }           // [HGM] analyze
+  if ( ! strcmp( token, "move" ) )      { return cmd_move( ptree, &last ); }
+  if ( ! strcmp( token, "undo" ) )      { return cmd_undo( ptree ); }    // [HGM] undo
+  analyze_mode = 0; // [HGM] analyze: all other commands terminate analysis
   if ( is_move( token ) ) { return cmd_usrmove( ptree, token, &last ); }
   if ( ! strcmp( token, "s" ) )         { return cmd_move_now(); }
   if ( ! strcmp( token, "beep" ) )      { return cmd_beep( &last); }
@@ -208,7 +216,6 @@ proce_cui( tree_t * restrict ptree )
   if ( ! strcmp( token, "display" ) )   { return cmd_display( ptree, &last ); }
   if ( ! strcmp( token, "hash" ) )      { return cmd_hash( &last ); }
   if ( ! strcmp( token, "limit" ) )     { return cmd_limit( &last ); }
-  if ( ! strcmp( token, "move" ) )      { return cmd_move( ptree, &last ); }
   if ( ! strcmp( token, "new" ) )       { return cmd_new( ptree, &last ); }
   if ( ! strcmp( token, "peek" ) )      { return cmd_peek( &last ); }
   if ( ! strcmp( token, "ping" ) )      { return cmd_ping(); }
@@ -219,7 +226,6 @@ proce_cui( tree_t * restrict ptree )
   if ( ! strcmp( token, "resign" ) )    { return cmd_resign( ptree, &last ); }
   if ( ! strcmp( token, "suspend" ) )   { return cmd_suspend(); }
   if ( ! strcmp( token, "time" ) )      { return cmd_time( &last ); }
-  if ( ! strcmp( token, "undo" ) )      { return cmd_undo( ptree ); }    // [HGM] undo
 #if defined(CSA_LAN)
   if ( ! strcmp( token, "connect" ) )   { return cmd_connect( ptree, &last ); }
 #endif
@@ -391,6 +397,22 @@ cmd_mnjmove( tree_t * restrict ptree, char **lasts, int is_alter )
 
 
 static int
+do_analyze( tree_t * restrict ptree )
+{ // [HGM] analyze: do a ponder search on the current position
+  int iret;
+  if ( get_elapsed( &time_start ) < 0 ) { return -1; }
+  time_limit = time_max_limit = 1e9; // kludge: use huge time to mimic infinity
+#ifdef XBOARD
+  Out("1 0 0 0 New Search\n"); // make sure lower depth is emitted, so XBoard undestand new search started
+#endif
+  game_status |= flag_pondering;
+  iret         = iterate( ptree, 0 );
+  game_status &= ~flag_pondering;
+  return iret;
+}
+
+
+static int
 cmd_undo( tree_t * restrict ptree )
 { // [HGM] undo: restart the game, and feed all moves except the last
   int i, last = move_ptr;
@@ -407,6 +429,34 @@ cmd_undo( tree_t * restrict ptree )
   for(i=0; i<last; i++) {
     make_move_root( ptree, move_list[i], 0);
   }
+
+  if ( analyze_mode ) return do_analyze ( ptree ); // [HGM] analyze: analysis should continue after undo
+
+  return 1;
+}
+
+
+static int
+cmd_analyze( tree_t * restrict ptree )
+{ // [HGM] analyze: switch on analyze mode, and start analyzing
+  AbortDifficultCommand;
+
+  analyze_mode = 1;
+  return do_analyze( ptree );
+}
+
+
+static int
+cmd_exit( void )
+{ // [HGM] analyze: switch off analysis mode
+  if ( !analyze_mode ) {
+    str_error = "was not analyzing";
+    return -2;
+  }
+
+  if ( game_status & flag_pondering ) { game_status |= flag_quit_ponder; return 2; }
+  analyze_mode = 0;
+
   return 1;
 }
 
@@ -1126,6 +1176,12 @@ cmd_move( tree_t * restrict ptree, char **lasts )
 
   if ( str == NULL )
     {
+      if ( analyze_mode ) // [HGM] analyze: in analysis mode we cannot set the engine thinking (but perhaps play PV move?)
+	  {
+	    str_error = str_bad_cmdline;
+	    return -2;
+	  }
+
       iret = get_elapsed( &time_turn_start );
       if ( iret < 0 ) { return iret; }
       
@@ -1134,6 +1190,12 @@ cmd_move( tree_t * restrict ptree, char **lasts )
     }
   else if ( ! strcmp( str, "restraint" ) )
     {
+      if ( analyze_mode ) // [HGM] analyze: in analysis mode we cannot set the engine thinking
+	  {
+	    str_error = str_bad_cmdline;
+	    return -2;
+	  }
+
       iret = get_elapsed( &time_turn_start );
       if ( iret < 0 ) { return iret; }
       
@@ -1169,6 +1231,8 @@ cmd_move( tree_t * restrict ptree, char **lasts )
 					  | flag_detect_hang
 					  | flag_rejections ) );
     if ( iret < 0 ) { return iret; }
+
+    if ( analyze_mode ) return do_analyze ( ptree ); // [HGM] analyze: analysis should continue after feeding moves
   }
   
   return 1;
diff --git a/readme.txt b/readme.txt
index 02641a8..233b772 100644
--- a/readme.txt
+++ b/readme.txt
@@ -304,6 +304,12 @@ directory to dump log files.
 5. Command List
 ---------------
 
+- analyze
+    Starts to ponder on the current position, until a command is
+    received. After a 'move' or 'undo' command pondering will continue
+    in the new position. To get out of this mode without side effects,
+    you can use the 'exit' command.
+
 - beep on
 - beep off
     These commands enable (on) or disable (off) a beep when Bonanza