X-Git-Url: http://winboard.nl/cgi-bin?p=uci2wb.git;a=blobdiff_plain;f=UCI2WB.c;h=ac6f7885355bf176a4c36cb8c1c4b433ba57a465;hp=77b671b7b633cefba7715f06e5f0076b82ec0635;hb=007b58c758fdb300cbe21a202f85ebe733f6a786;hpb=d4c964cc8830407dbc9efa12a1d50e4ce48b711a

diff --git a/UCI2WB.c b/UCI2WB.c
index 77b671b..ac6f788 100644
--- a/UCI2WB.c
+++ b/UCI2WB.c
@@ -1,4 +1,13 @@
-/************************* UCI2WB by H.G.Muller ****************************/
+/****************************************************************************/
+/*                           UCI2WB by H.G.Muller                           */
+/*                                                                          */
+/* UCI2WB is an adapter to run engines that communicate in various dialects */
+/* of the Universal Chess Interface in a GUI that supports XBoard protocol  */
+/* (CECP). It supports UCI (when used for Xiangqi: the 'Cyclone dialect'),  */
+/* as well as USI and UCCI when used with the flags -s or -x, respectively. */
+/* This version of UCI2WB is released under the GNU General Public License, */
+/* of which you should have received a copy together with this file.        */
+/****************************************************************************/
 
 #define VERSION "2.0"
 
@@ -32,7 +41,7 @@
 
 char move[2000][10], checkOptions[8192], iniPos[256], hashOpt[20], pause, pondering, suspended, ponder, post, hasHash, c, sc='c', *suffix, *variants;
 int mps, tc, inc, sTime, depth, myTime, hisTime, stm, computer = NONE, memory, oldMem=0, cores, moveNr, lastDepth, lastScore, startTime, debug;
-int statDepth, statScore, statNodes, statTime, currNr, size, collect, nr, sm, inex, on[500];
+int statDepth, statScore, statNodes, statTime, currNr, size, collect, nr, sm, inex, on[500], frc;
 char currMove[20], moveMap[500][10], /* for analyze mode */ canPonder[20], threadOpt[20];
 char board[100];  // XQ board for UCCI
 char *nameWord = "name ", *valueWord = "value ", *wTime = "w", *bTime = "b", *wInc = "winc", *bInc = "binc", newGame; // keywords that differ in UCCI
@@ -120,7 +129,7 @@ Play(int nr)
 	FromFEN(iniPos + 4); // in XQ iniPos always has just "fen " prefix
 	for(i=0; i<nr; i++) {
 	    int from=Sqr(move[i], 0), to=Sqr(move[i], 2);
-	    if(board[to]) last = i;
+	    if(board[to] || (board[from]|32)  == 'p' && move[i][1] != move[i][3]) last = i;
 	    board[to] = board[from]; board[from] = 0;
 	}
 	return last;
@@ -148,7 +157,7 @@ void
 StopPonder(int pondering)
 {
 	if(!pondering) return;
-	pause = 2;
+	pause = 1;
 	fprintf(toE, "stop\n"); fflush(toE); DPRINT("# stop\n"); // note: 'pondering' remains set until engine acknowledges 'stop' with 'bestmove'
 	Sync(PAUSE); // wait for engine to acknowledge 'stop' with 'bestmove'.
 }
@@ -236,7 +245,7 @@ Engine2GUI()
 	DPRINT("# engine said: %s", line), fflush(stdout);
 	if(sscanf(line, "%s", command) != 1) continue;
 	if(!strcmp(command, "bestmove")) {
-	    if(pause) { pondering = pause = 0; Sync(WAKEUP); continue; } // bestmove was reply to ponder miss or analysis result; ignore.
+	    if(pause == 1) { pondering = pause = 0; Sync(WAKEUP); continue; } // bestmove was reply to ponder miss or analysis result; ignore.
 	    else if(pondering) { pondering = 0; printf("%d 0 0 0 UCI violation! Engine moves during ponder\n", lastDepth+1); continue; } // ignore ponder search
 	    // move was a move to be played
 	    if(p = strstr(line+8, " draw")) *p = 0, printf("offer draw\n"); // UCCI
@@ -258,6 +267,7 @@ Engine2GUI()
 	    } else move[moveNr][0] = 0;
 	    Move4GUI(line+9);
 	    printf("move %s\n", line+9); // send move to GUI
+	    if(pause) { pause = 0; Sync(WAKEUP); } // release commands that came in during think
 	    if(lastScore == 100001 && iniPos[0] != 'f') { printf("%s {mate}\n", stm == BLACK ? "1-0" : "0-1"); computer = NONE; }
 	}
 	else if(!strcmp(command, "info")) {
@@ -297,6 +307,10 @@ Engine2GUI()
 	    if(p = strstr(line+6, " max "))  sscanf(p+1, "max %d", &max), *p = '\n';
 	    if(p = strstr(line+6, " default "))  sscanf(p+1, "default %[^\n]*", val), *p = '\n';
 	    if(!(p = strstr(line+6, " name "))) p = line+1; sscanf(p+6, "%[^\n]", name); // 'name' is omitted in UCCI
+	    if(!strcasecmp(name, "UCI_Chess960")) { frc=2; continue; }
+	    if(frc< 0 && (strstr(name, "960") || strcasestr(name, "frc")) && !strcmp(type, "check")) {
+		fprintf(toE, "setoption name %s value true\n", name); strcpy(val, "true"); // set non-standard suspected FRC options
+	    }
 	    if(!strcasecmp(name, "Threads")) { strcpy(threadOpt, name); continue; }
 	    if(!strcasecmp(name, "Ponder") || !strcasecmp(name, "USI_Ponder")) { strcpy(canPonder, name); continue; }
 	    if(!strcasecmp(name, "Hash") || !strcasecmp(name, "USI_Hash") || !strcasecmp(name, "hashsize")) {
@@ -332,6 +346,7 @@ Engine2GUI()
 	}
 	else if(!strcmp(command, "readyok")) { pause = 0; Sync(WAKEUP); } // resume processing of GUI commands
 	else if(sc == 'x'&& !strcmp(command, "ucciok") || sscanf(command, "u%ciok", &c)==1 && c==sc) {
+	    if(frc) printf("feature variants=\"normal,fischerandom\" oocastle=%d\n", frc<0); // unannounced FRC uses O-O castling
 	    printf("feature smp=1 memory=%d done=1\n", hasHash);
 	    if(unit == 2) unit = 1, fprintf(toE, "setoption usemillisec true\n");
 	    Sync(WAKEUP); // done with options
@@ -378,7 +393,7 @@ GUI2Engine()
 		}
 		fprintf(toE, "\n"); DPRINT("\n");
 	    // code for searchmoves goes here
-	    } else StartSearch("");
+	    } else { pause = 2; StartSearch(""); fflush(stdout); fflush(toE); Sync(PAUSE); } // block input during thinking
 	}
       nomove:
 	fflush(toE); fflush(stdout);
@@ -387,15 +402,15 @@ GUI2Engine()
 	sscanf(line, "%s", command);
 	if(!strcmp(command, "new")) {
 	    computer = BLACK; moveNr = 0; depth = -1; move[0][0] = 0;
-	    stm = WHITE; strcpy(iniPos, "position startpos");
-	    if(memory != oldMem && hasHash) fprintf(toE, "setoption name %s %s%d\n", hashOpt, valueWord, memory);
+	    stm = WHITE; strcpy(iniPos, "position startpos"); frc &= ~1;
+	    if(memory != oldMem && hasHash) fprintf(toE, "setoption %s%s %s%d\n", nameWord, hashOpt, valueWord, memory);
 	    oldMem = memory;
 	    // we can set other options here
 	    if(sc == 'x') { if(newGame) fprintf(toE, "setoption newgame\n"); } else // optional in UCCI
-	    fprintf(toE, "u%cinewgame\n", sc); fflush(toE);
 	    pause = 1; // wait for option settings to take effect
 	    fprintf(toE, "isready\n"); fflush(toE);
 	    Sync(PAUSE); // wait for readyok
+	    fprintf(toE, "u%cinewgame\n", sc); fflush(toE);
 	}
 	else if(!strcmp(command, "usermove")) {
 	    sscanf(line, "usermove %s", command); // strips off linefeed
@@ -405,8 +420,9 @@ GUI2Engine()
 	    if(pondering || computer == ANALYZE) {
 		if(pondering && !strcmp(command, move[moveNr])) { // ponder hit
 		    char *draw = drawOffer ? " draw" : ""; drawOffer = 0;
-		    pondering = 0; moveNr++; startTime = GetTickCount(); // clock starts running now
-		    fprintf(toE, "ponderhit%s\n", draw); DPRINT("# ponderhit%s\n", draw);
+		    pondering = 0; pause = 2; moveNr++; startTime = GetTickCount(); // clock starts running now
+		    fprintf(toE, "ponderhit%s\n", draw); DPRINT("# ponderhit%s\n", draw); fflush(toE); fflush(stdout);
+		    Sync(PAUSE); // block input during thinking
 		    goto nomove;
 		}
 		StopPonder(1);
@@ -430,7 +446,7 @@ GUI2Engine()
 	}
 	else if(!strcmp(command, "protover")) {
 	    if(!variants) variants = sc=='s' ? "shogi,5x5+5_shogi" : VARIANTS;
-	    printf("feature variants=\"%s\" setboard=1 usermove=1 debug=1 ping=1 reuse=0 exclude=1 pause=1 done=0\n", variants);
+	    printf("feature variants=\"%s\" setboard=1 usermove=1 debug=1 ping=1 reuse=0 exclude=1 pause=1 sigint=0 sigterm=0 done=0\n", variants);
 	    printf("feature option=\"UCI2WB debug output -check %d\"\n", debug);
 	    fprintf(toE, sc == 'x' ? "ucci\n" : "u%ci\n", sc); fflush(toE); // prompt UCI engine for options
 	    Sync(PAUSE); // wait for uciok
@@ -443,6 +459,7 @@ GUI2Engine()
 		    else r = strchr(strchr(q+4, ' ') + 1, ' '); // skip to second space (after e.p. square)
 		    *r = 0; sprintf(command, "%s%s %s %s", line+9, q+1, p, r+1);
                 } else strcpy(command, line+9);
+		if(frc == -1 && (p = strchr(command, ' '))) strncpy(p+3, "KQkq", 4); // unannounced FRC
 		sprintf(iniPos, "%s%sfen %s", iniPos[0]=='p' ? "position " : "", sc=='s' ? "s" : "", command);
 		iniPos[strlen(iniPos)-1] = sm = 0; collect = (computer == ANALYZE);
 	}
@@ -450,6 +467,7 @@ GUI2Engine()
 		if(!strcmp(line+8, "shogi\n")) size = 9, strcpy(iniPos, "position startpos");
 		if(!strcmp(line+8, "5x5+5_shogi\n")) size = 5, strcpy(iniPos, "position startpos");
 		if(!strcmp(line+8, "xiangqi\n")) strcpy(iniPos, "fen rnbakabnr/9/1c5c1/p1p1p1p1p/9/9/P1P1P1P1P/1C5C1/9/RNBAKABNR r");
+		if(!strcmp(line+8, "fischerandom\n")) { frc |= 1; if(frc > 0) fprintf(toE, "setoption name UCI_Chess960 value true\n"); }
 	}
 	else if(!strcmp(command, "undo") && (i=1) || !strcmp(command, "remove") && (i=2)) {
 	    if(pondering || computer == ANALYZE) StopPonder(1);
@@ -486,7 +504,7 @@ GUI2Engine()
 	else if(!strcmp(command, "nopost")) post = 0;
 	else if(!strcmp(command, "easy") && !!*canPonder) ponder = 0, StopPonder(pondering), fprintf(toE, "setoption %s%s %sfalse\n", nameWord, canPonder, valueWord);
 	else if(!strcmp(command, "hard") && !!*canPonder) ponder = 1, fprintf(toE, "setoption %s%s %strue\n", nameWord, canPonder, valueWord), StartPonder();
-	else if(!strcmp(command, "ping"))   { static int done; if(!done) pause = 1, fprintf(toE, "isready\n"), fflush(toE), printf("# send isready\n"), fflush(stdout), Sync(PAUSE); done = 1; printf("pong %s", line+5); }
+	else if(!strcmp(command, "ping"))   { /* static int done; if(!done) pause = 1, fprintf(toE, "isready\n"), fflush(toE), printf("# send isready\n"), fflush(stdout), Sync(PAUSE); done = 1;*/ printf("po%s", line+2); }
 	else if(!strcmp(command, "memory")) sscanf(line, "memory %d", &memory);
 	else if(!strcmp(command, "cores")&& !!*threadOpt) sscanf(line, "cores %d", &cores), fprintf(toE, "setoption %s%s %s%d\n", nameWord, threadOpt, valueWord, cores);
 	else if(!strcmp(command, "sd"))     sscanf(line, "sd %d", &depth);
@@ -594,6 +612,8 @@ main(int argc, char **argv)
         if(argc > 3) suffix = argv[3];
 
         if(sc == 'x') nameWord = valueWord = bTime = "", wTime = "opp", bInc = "increment", wInc = "oppincrement", unit = 1000; // switch to UCCI keywords
+	else if(sc == 'f' ) frc = -1, sc = 'c';   // UCI for unannounced Chess960
+	else if(sc == 'n') sc = 'c'; // UCI for normal Chess
 
 	// spawn engine proc
 	if(StartEngine(argv[1], dir) != NO_ERROR) { perror(argv[1]), exit(-1); }