Compactify timing code by figuring out who is black first
[uci2wb.git] / UCI2WB.c
index 5fe87b9..3354603 100644 (file)
--- a/UCI2WB.c
+++ b/UCI2WB.c
@@ -1,6 +1,6 @@
 /************************* UCI2WB by H.G.Muller ****************************/\r
 \r
-#define VERSION "1.8"\r
+#define VERSION "1.10"\r
 \r
 #include <stdio.h>\r
 #include <stdlib.h>\r
 #define NONE  2\r
 #define ANALYZE 3\r
 \r
-char move[2000][10], checkOptions[8192], iniPos[256], hashOpt[20], pause, pondering, ponder, post, hasHash, c, sc='c', *suffix, *variants;\r
+char move[2000][10], checkOptions[8192], iniPos[256], hashOpt[20], pause, pondering, suspended, ponder, post, hasHash, c, sc='c', *suffix, *variants;\r
 int mps, tc, inc, sTime, depth, myTime, hisTime, stm, computer = NONE, memory, oldMem=0, cores, moveNr, lastDepth, lastScore, startTime, debug;\r
-int statDepth, statScore, statNodes, statTime, currNr, size, collect, nr, sm, inex, on[500]; char currMove[20], moveMap[500][10]; // for analyze mode\r
+int statDepth, statScore, statNodes, statTime, currNr, size, collect, nr, sm, inex, on[500];\r
+char currMove[20], moveMap[500][10], /* for analyze mode */ canPonder[20], threadOpt[20];\r
+char board[100];  // XQ board for UCCI\r
+int unit = 1;\r
 \r
-FILE *toE, *fromE;\r
+FILE *toE, *fromE, *fromF;\r
 int pid;\r
 \r
 #ifdef WIN32\r
@@ -76,19 +79,66 @@ Sync (int action)
 #endif\r
 }\r
 \r
+void\r
+FromFEN(char *fen)\r
+{      int i=0;\r
+       while(*fen) {\r
+           char c = *fen++;\r
+           if(c >= 'A') board[i++] = c; else\r
+           if(c == '/') i++; else\r
+           if(c == ' ') break; else\r
+           while(c-- > '0' && i < 99) board[i++] = 0;\r
+           if(i >= 99) break;\r
+       }\r
+}\r
+\r
+char *\r
+ToFEN(int stm)\r
+{\r
+       int i, n=0; static char fen[200]; char *p = fen;\r
+       for(i=0; i<99; i++) {\r
+           char c = board[i];\r
+           if(c >= 'A')  { if(n) *p++ = '0' + n; n = 0;  *p++ = c; } else n ++;\r
+           if(i%10 == 8) { if(n) *p++ = '0' + n; n = -1; *p++ = '/'; }\r
+       }\r
+       sprintf(p-1, " %c - - 0 1", stm);\r
+       return fen;\r
+}\r
+\r
+int\r
+Sqr(char *m, int j)\r
+{\r
+       int n = m[j] - 'a' + 10*('9' - m[j+1]);\r
+       if(n < 0) n = 0; else if(n > 99) n = 99; return n;\r
+}\r
+\r
+int\r
+Play(int nr)\r
+{\r
+       int i, last = -1;\r
+       FromFEN(iniPos + 4); // in XQ iniPos always has just "fen " prefix\r
+       for(i=0; i<nr; i++) {\r
+           int from=Sqr(move[i], 0), to=Sqr(move[i], 2);\r
+           if(board[to]) last = i;\r
+           board[to] = board[from]; board[from] = 0;\r
+       }\r
+       return last;\r
+}\r
+\r
 void\r
 StartSearch(char *ponder)\r
 {      // send the 'go' command to engine. Suffix by ponder.\r
-       int nr = moveNr + (ponder[0] != 0); // we ponder for one move ahead!\r
-       fprintf(toE, "\ngo btime %d wtime %d", stm == BLACK ^ sc=='s' ? myTime : hisTime, stm == WHITE ^ sc=='s' ? myTime : hisTime);\r
-       DPRINT(    "\n# go btime %d wtime %d", stm == BLACK ^ sc=='s' ? myTime : hisTime, stm == WHITE ^ sc=='s' ? myTime : hisTime);\r
+       int x = (ponder[0] != 0);                   // during ponder stm is the opponent\r
+       int black = (stm == BLACK ^ x ^ sc == 's'); // set if our color is what the engine calls black\r
+       int nr = moveNr + x;                        // we ponder for one move ahead!\r
+       fprintf(toE, "\ngo%s btime %d wtime %d", ponder, black ? myTime : hisTime, !black ? myTime : hisTime);\r
+       DPRINT(    "\n# go%s btime %d wtime %d", ponder, black ? myTime : hisTime, !black ? myTime : hisTime);\r
        if(sTime > 0) { fprintf(toE, " movetime %d", sTime); DPRINT(" movetime %d", sTime); } else\r
        if(mps) { fprintf(toE, " movestogo %d", mps*(nr/(2*mps)+1)-nr/2); DPRINT(" movestogo %d", mps*(nr/(2*mps)+1)-nr/2); }\r
        if(inc && !suffix) { fprintf(toE, " winc %d binc %d", inc, inc); DPRINT(" winc %d binc %d", inc, inc); }\r
        if(depth > 0) { fprintf(toE, " depth %d", depth); DPRINT(" depth %d", depth); }\r
         if(suffix) { fprintf(toE, suffix, inc); DPRINT(suffix, inc); }\r
-       fprintf(toE, "%s\n", ponder);\r
-       DPRINT("%s\n", ponder);\r
+       fprintf(toE, "\n"); DPRINT("\n");\r
 }\r
 \r
 void\r
@@ -109,6 +159,15 @@ LoadPos(int moveNr)
        for(j=0; j<moveNr; j++) { fprintf(toE, " %s", move[j]); DPRINT(" %s", move[j]); }\r
 }\r
 \r
+void\r
+StartPonder()\r
+{\r
+       if(!move[moveNr][0]) return; // no ponder move\r
+       LoadPos(moveNr+1);\r
+       pondering = 1; lastDepth = 1;\r
+       StartSearch(" ponder");\r
+}\r
+\r
 char *Convert(char *pv)\r
 {   // convert Shogi coordinates to WB\r
     char *p, *q, c;\r
@@ -141,20 +200,32 @@ Move4GUI(char *m)
     }\r
 }\r
 \r
+int\r
+GetChar()\r
+{\r
+    int c;\r
+    if(fromF) {\r
+       if((c = fgetc(fromF)) != EOF) return c;\r
+       fclose(fromF); fromF = 0; printf("# end fake\n");\r
+    }\r
+    return fgetc(fromE);\r
+}\r
+\r
 void *\r
 Engine2GUI()\r
 {\r
     char line[1024], command[256];\r
 \r
+    if(fromF = fopen("DefectiveEngineOptions.ini", "r")) printf("# fake engine input\n");\r
     while(1) {\r
        int i=0, x; char *p, dummy;\r
 \r
        fflush(stdout); fflush(toE);\r
-       while((line[i] = x = fgetc(fromE)) != EOF && line[i] != '\n') i++;\r
+       while((line[i] = x = GetChar()) != EOF && line[i] != '\n') i++;\r
        line[++i] = 0;\r
        if(x == EOF) exit(0);\r
        DPRINT("# engine said: %s", line), fflush(stdout);\r
-       sscanf(line, "%s", command);\r
+       if(sscanf(line, "%s", command) != 1) continue;\r
        if(!strcmp(command, "bestmove")) {\r
            if(pause) { pondering = pause = 0; Sync(WAKEUP); continue; } // bestmove was reply to ponder miss or analysis result; ignore.\r
            // move was a move to be played\r
@@ -164,22 +235,19 @@ Engine2GUI()
            sscanf(line, "bestmove %s", move[moveNr++]);\r
            myTime -= (GetTickCount() - startTime)*1.02 + inc; // update own clock, so we can give correct wtime, btime with ponder\r
            if(mps && ((moveNr+1)/2) % mps == 0) myTime += tc; if(sTime) myTime = sTime; // new session or move starts\r
+           stm = WHITE+BLACK - stm;\r
            // first start a new ponder search, if pondering is on and we have a move to ponder on\r
            if(p = strstr(line+9, "ponder")) {\r
+             sscanf(p+7, "%s", move[moveNr]);\r
              if(computer != NONE && ponder) {\r
-               sscanf(p+7, "%s", move[moveNr]);\r
                DPRINT("# ponder on %s\n", move[moveNr]);\r
-               LoadPos(moveNr+1); // load position\r
-               // and set engine pondering\r
-               pondering = 1; lastDepth = 1;\r
-               StartSearch(" ponder");\r
+               StartPonder();\r
              }\r
              p[-1] = '\n'; *p = 0; // strip off ponder move\r
-           }\r
+           } else move[moveNr][0] = 0;\r
            Move4GUI(line+9);\r
            printf("move %s\n", line+9); // send move to GUI\r
-           if(lastScore == 100001 && iniPos[0] != 'f') { printf("%s {mate}\n", stm == WHITE ? "1-0" : "0-1"); computer = NONE; }\r
-           stm = WHITE+BLACK - stm;\r
+           if(lastScore == 100001 && iniPos[0] != 'f') { printf("%s {mate}\n", stm == BLACK ? "1-0" : "0-1"); computer = NONE; }\r
        }\r
        else if(!strcmp(command, "info")) {\r
            int d=0, s=0, t=0, n=0;\r
@@ -218,6 +286,8 @@ Engine2GUI()
            if(p = strstr(line+6, " max "))  sscanf(p+1, "max %d", &max), *p = '\n';\r
            if(p = strstr(line+6, " default "))  sscanf(p+1, "default %[^\n]*", val), *p = '\n';\r
            if(p = strstr(line+6, " name ")) sscanf(p+1, "name %[^\n]*", name);\r
+           if(!strcmp(name, "Threads")) { strcpy(threadOpt, name); continue; }\r
+           if(!strcmp(name, "Ponder") || !strcmp(name, "USI_Ponder")) { strcpy(canPonder, name); continue; }\r
            if(!strcmp(name, "Hash") || !strcmp(name, "USI_Hash")) {\r
                memory = oldMem = atoi(val); hasHash = 1; \r
                strcpy(hashOpt, name);\r
@@ -266,7 +336,7 @@ Move4Engine(char *m)
       m[2] = 'a'+'0'+size - m[2];\r
       m[3] = 'a'+'0'+size - m[3];\r
       if(m[4] == '=') m[4] = 0; // no '=' in USI format!\r
-      else if(m[4] != '\n') m[4] = '+'; // cater to WB 4.4 bug :-(\r
+      else if(m[4]) m[4] = '+'; // cater to WB 4.4 bug :-(\r
     }\r
 }\r
 \r
@@ -278,7 +348,7 @@ GUI2Engine()
     while(1) {\r
        int i, x;\r
 \r
-       if(computer == stm || computer == ANALYZE) {\r
+       if((computer == stm || computer == ANALYZE) && !suspended) {\r
            DPRINT("# start search\n");\r
            LoadPos(moveNr); // load position\r
            // and set engine thinking (note USI swaps colors!)\r
@@ -299,7 +369,7 @@ GUI2Engine()
        line[++i] = 0; if(x == EOF) { printf("# EOF\n"); exit(-1); }\r
        sscanf(line, "%s", command);\r
        if(!strcmp(command, "new")) {\r
-           computer = BLACK; moveNr = 0; depth = -1;\r
+           computer = BLACK; moveNr = 0; depth = -1; move[0][0] = 0;\r
            stm = WHITE; strcpy(iniPos, "position startpos");\r
            if(memory != oldMem && hasHash) fprintf(toE, "setoption name %s value %d\n", hashOpt, memory);\r
            oldMem = memory;\r
@@ -328,7 +398,7 @@ GUI2Engine()
            int sec = 0;\r
            sscanf(line, "level %d %d:%d %d", &mps, &tc, &sec, &inc) == 4 ||\r
            sscanf(line, "level %d %d %d", &mps, &tc, &inc);\r
-           tc = (60*tc + sec)*1000; inc *= 1000; sTime = 0;\r
+           tc = (60*tc + sec)*1000; inc *= 1000; sTime = 0; tc /= unit; inc /= unit;\r
        }\r
        else if(!strcmp(command, "option")) {\r
            char name[80], *p;\r
@@ -341,13 +411,13 @@ GUI2Engine()
        }\r
        else if(!strcmp(command, "protover")) {\r
            if(!variants) variants = sc=='s' ? "shogi,5x5+5_shogi" : VARIANTS;\r
-           printf("feature variants=\"%s\" setboard=1 usermove=1 debug=1 ping=1 reuse=0 exclude=1 done=0\n", variants);\r
+           printf("feature variants=\"%s\" setboard=1 usermove=1 debug=1 ping=1 reuse=0 exclude=1 pause=1 done=0\n", variants);\r
            printf("feature option=\"UCI2WB debug output -check %d\"\n", debug);\r
            fprintf(toE, "u%ci\n", sc); fflush(toE); // this prompts UCI engine for options\r
            Sync(PAUSE); // wait for uciok\r
        }\r
        else if(!strcmp(command, "setboard")) {\r
-               if(strstr(line+9, " b ")) stm = BLACK;\r
+               stm = (strstr(line+9, " b ") ? BLACK : WHITE);\r
                 if(p = strchr(line+9, '[')) { char c;\r
                     *p++ = 0; q = strchr(p, ']'); *q = 0; r = q + 4; \r
                    if(sc == 's') q[2] = 'w' + 'b' - q[2], strcpy(r=q+3, " 1\n"); // Shogi: reverse color\r
@@ -377,22 +447,31 @@ GUI2Engine()
            if(!(sm & 2)) goto nomove; // no moves enabled; continue current search\r
            if(computer == ANALYZE) StopPonder(1); // abort old analysis\r
        }\r
+       else if(!strcmp(command, "pause")) {\r
+           if(computer == stm) myTime -= GetTickCount() - startTime;\r
+           suspended = 1 + pondering; // remember if we were pondering, and stop search ignoring bestmove\r
+           StopPonder(pondering || computer == stm);\r
+       }\r
+       else if(!strcmp(command, "resume")) {\r
+           if(suspended == 2) StartPonder(); // restart interrupted ponder search\r
+           suspended = 0; // causes thinking to start in normal way if on move or analyzing\r
+       }\r
        else if(!strcmp(command, "xboard")) ;\r
        else if(!strcmp(command, "analyze"))computer = ANALYZE, collect = 1, sm = 0;\r
        else if(!strcmp(command, "exit"))   computer = NONE, StopPonder(1);\r
        else if(!strcmp(command, "force"))  computer = NONE, StopPonder(pondering);\r
        else if(!strcmp(command, "go"))     computer = stm;\r
-       else if(!strcmp(command, "time"))   sscanf(line+4, "%d", &myTime),  myTime  *= 10;\r
-       else if(!strcmp(command, "otim"))   sscanf(line+4, "%d", &hisTime), hisTime *= 10;\r
+       else if(!strcmp(command, "time"))   sscanf(line+4, "%d", &myTime),  myTime  = (10*myTime)/unit;\r
+       else if(!strcmp(command, "otim"))   sscanf(line+4, "%d", &hisTime), hisTime = (10*hisTime)/unit;\r
        else if(!strcmp(command, "post"))   post = 1;\r
        else if(!strcmp(command, "nopost")) post = 0;\r
-       else if(!strcmp(command, "easy"))   ponder = 0;\r
-       else if(!strcmp(command, "hard"))   ponder = 1;\r
+       else if(!strcmp(command, "easy") && !!*canPonder) ponder = 0, StopPonder(pondering), fprintf(toE, "setoption name %s value false\n", canPonder);\r
+       else if(!strcmp(command, "hard") && !!*canPonder) ponder = 1, fprintf(toE, "setoption name %s value true\n", canPonder), StartPonder();\r
        else if(!strcmp(command, "ping"))   pause = 1, fprintf(toE, "isready\n"), fflush(toE), Sync(PAUSE), printf("pong %s", line+5);\r
        else if(!strcmp(command, "memory")) sscanf(line, "memory %d", &memory);\r
-       else if(!strcmp(command, "cores"))  sscanf(line, "cores %d", &cores);\r
+       else if(!strcmp(command, "cores")&& !!*threadOpt) sscanf(line, "cores %d", &cores), fprintf(toE, "setoption name %s value %d\n", threadOpt, cores);\r
        else if(!strcmp(command, "sd"))     sscanf(line, "sd %d", &depth);\r
-       else if(!strcmp(command, "st"))     sscanf(line, "st %d", &sTime), sTime = 1000*sTime - 30, inc = 0;\r
+       else if(!strcmp(command, "st"))     sscanf(line, "st %d", &sTime), sTime = 1000*sTime - 30, inc = 0, sTime /= unit;\r
        else if(!strcmp(command, "quit"))   fprintf(toE, "quit\n"), fflush(toE), exit(0);\r
     }\r
 }\r