Add some debug prints
[hachu.git] / hachu.c
diff --git a/hachu.c b/hachu.c
index 2133ce9..f7846b8 100644 (file)
--- a/hachu.c
+++ b/hachu.c
 \r
 #define VERSION 0.0\r
 \r
-#define PATH level==0 || level==1 && path[0] == 0x55893\r
+//define PATH level==0 || level==1 && path[0] == 0x55893\r
+#define PATH 0\r
 \r
 #include <stdio.h>\r
+#include <stdlib.h>\r
+#include <string.h>\r
+#include <signal.h>\r
+#include <time.h>\r
+\r
+#ifdef WIN32 \r
+#    include <windows.h>\r
+#else\r
+#    include <sys/time.h>\r
+     int GetTickCount() // with thanks to Tord\r
+     { struct timeval t;\r
+       gettimeofday(&t, NULL);\r
+       return t.tv_sec*1000 + t.tv_usec/1000;\r
+     }\r
+#endif\r
 \r
 #define BW 24\r
 #define BH 12\r
@@ -65,10 +81,11 @@ typedef struct {
 } PieceDesc;\r
 \r
 typedef struct {\r
-  int from, to, piece, victim, new, booty, epSquare, epVictim, ep2Square, ep2Victim;\r
+  int from, to, piece, victim, new, booty, epSquare, epVictim, ep2Square, ep2Victim, savKeyL, savKeyH;\r
 } UndoInfo;\r
 \r
 int stm, xstm, hashKeyH, hashKeyL, framePtr, msp, nonCapts, retMSP, retFirst, level, chuFlag=1;\r
+int nodes, startTime, tlim1, tlim2;\r
 Move retMove, moveStack[10000], path[100];\r
 \r
 #define X 36 /* slider              */\r
@@ -658,10 +675,13 @@ AddMove (int i, int x, int y)
 }\r
 #endif\r
 \r
+int flag;\r
+\r
 inline int\r
 NewNonCapture (int x, int y, int promoFlags)\r
 {\r
   if(board[y] != EMPTY) return 1; // edge, capture or own piece\r
+//if(flag) printf("# add %c%d%c%d, pf=%d\n", x%BW+'a',x/BW,y%BW+'a',y/BW, promoFlags);\r
   if( (promoBoard[x] | promoBoard[y]) & promoFlags) { // piece can promote with this move\r
     moveStack[msp++] = moveStack[nonCapts];           // create space for promotion\r
     moveStack[nonCapts++] = x<<SQLEN | y | PROMOTE;   // push promotion\r
@@ -673,6 +693,7 @@ NewNonCapture (int x, int y, int promoFlags)
     }\r
   } else\r
     moveStack[msp++] = x<<SQLEN | y; // push normal move\r
+//if(flag) printf("msp=%d nc=%d\n", msp, nonCapts);    \r
   return 0;\r
 }\r
 \r
@@ -978,6 +999,8 @@ MakeMove(Move m, UndoInfo *u)
   u->piece = board[u->from];\r
   board[u->from] = EMPTY;\r
   u->booty = 0;\r
+  u->savKeyL = hashKeyL;\r
+  u->savKeyH = hashKeyH;\r
 \r
   if(m & (PROMOTE | DEFER)) {\r
     if(m & DEFER) {\r
@@ -1048,6 +1071,9 @@ UnMake(UndoInfo *u)
   p[u->new].pos = ABSENT; \r
   p[u->piece].pos = u->from; // this can be the same as above\r
   board[u->from] = u->piece;\r
+\r
+  hashKeyL = u->savKeyL;\r
+  hashKeyH = u->savKeyH;\r
 }\r
        \r
 void\r
@@ -1160,14 +1186,11 @@ Evaluate ()
   return 0;\r
 }\r
 \r
-int flag;\r
-\r
 int\r
 Search (int alpha, int beta, int difEval, int depth, int oldPromo, int promoSuppress)\r
 {\r
   int i, j, k, firstMove, oldMSP = msp, curMove, sorted, bad, phase, king, iterDep, replyDep, nextVictim, to, defer, dubious, bestMoveNr;\r
-  int savHashL = hashKeyL, savHashH = hashKeyH;\r
-  int score, bestScore, curEval;\r
+  int score, bestScore, curEval, iterAlpha;\r
   Move move, nullMove;\r
   UndoInfo tb;\r
 if(PATH) printf("search(%d) %d-%d eval=%d, stm=%d\n",depth,alpha,beta,difEval,stm),fflush(stdout);\r
@@ -1189,11 +1212,11 @@ if(PATH) printf("search(%d) %d-%d eval=%d, stm=%d\n",depth,alpha,beta,difEval,st
   alpha -= (alpha < curEval);\r
   beta  -= (beta <= curEval);\r
 \r
-  firstMove = curMove = sorted = nonCapts = msp += 20; // leave 20 empty slots in front of move list\r
+  firstMove = curMove = sorted = msp += 20; // leave 20 empty slots in front of move list\r
   phase = 0; iterDep=1; replyDep = (depth < 1 ? depth : 1) - 1;\r
   do {\r
 if(flag && depth>= 0) printf("iter %d:%d\n", depth,iterDep),fflush(stdout);\r
-    bestScore = -INF; bestMoveNr = 0;\r
+    iterAlpha = alpha; bestScore = -INF; bestMoveNr = 0;\r
     for(curMove = firstMove; ; curMove++) { // loop over moves\r
 if(flag && depth>= 0) printf("phase=%d: first/curr/last = %d / %d / %d\n", phase, firstMove, curMove, msp);fflush(stdout);\r
       // MOVE SOURCE\r
@@ -1207,7 +1230,7 @@ if(flag && depth>= 0) printf("phase=%d: first/curr/last = %d / %d / %d\n", phase
 #if 0\r
            if(curEval >= beta) {\r
              stm ^= WHITE;\r
-             score = -Search(-beta, -alpha, difEval, depth-3, promoSuppress & SQUARE, ABSENT);\r
+             score = -Search(-beta, -iterAlpha, difEval, depth-3, promoSuppress & SQUARE, ABSENT);\r
              stm ^= WHITE;\r
              if(score >= beta) { msp = oldMSP; return score + (score < curEval); }\r
            }\r
@@ -1246,6 +1269,7 @@ if(flag && depth>= 0) printf("phase=%d: first/curr/last = %d / %d / %d\n", phase
            if(depth <= 0) goto cutoff;\r
            phase = 6;\r
          case 6: // non-captures\r
+           nonCapts = msp;\r
            nullMove = GenNonCapts(oldPromo);\r
            phase = 7;\r
            sorted = msp; // do not sort noncapts\r
@@ -1290,24 +1314,24 @@ if(PATH) pmap(attacks, stm);
         if(score == -INF) { moveStack[curMove] = 0; goto abortMove; }\r
       }\r
 #if 1\r
-      score = -Search(-beta, -alpha, -difEval - tb.booty, replyDep, promoSuppress & ~PROMOTE, defer);\r
+      score = -Search(-beta, -iterAlpha, -difEval - tb.booty, replyDep, promoSuppress & ~PROMOTE, defer);\r
 #else\r
       score = 0;\r
 #endif\r
     abortMove:\r
+\r
+\r
 attacks -= 2*BSIZE;\r
 level--;\r
       UnMake(&tb);\r
-      hashKeyL = savHashL;\r
-      hashKeyH = savHashH;\r
       xstm = stm; stm ^= WHITE;\r
 #if 1\r
 if(PATH) printf("%d:%2d:%d %3d %6x %-10s %6d %6d\n", level, depth, iterDep, curMove, moveStack[curMove], MoveToText(moveStack[curMove], 0), score, bestScore);\r
       // ALPHA-BETA STUFF\r
       if(score > bestScore) {\r
        bestScore = score; bestMoveNr = curMove;\r
-       if(score > alpha) {\r
-         alpha = score;\r
+       if(score > iterAlpha) {\r
+         iterAlpha = score;\r
          if(curMove < firstMove + 5) { // if not too much work, sort move to front\r
            int i;\r
            for(i=curMove; i>firstMove; i--) {\r
@@ -1329,6 +1353,9 @@ if(PATH) printf("%d:%2d:%d %3d %6x %-10s %6d %6d\n", level, depth, iterDep, curM
 #endif\r
     } // next move\r
   cutoff:\r
+    if(!level) { // root node\r
+      if(GetTickCount() - startTime > tlim1) break; // do not start iteration we can (most likely) not finish\r
+    }\r
     replyDep = iterDep;\r
   } while(++iterDep <= depth); // next depth\r
   retMSP = msp;\r
@@ -1528,15 +1555,16 @@ MapFromScratch(attacks);
   if(i>=retMSP) {  // no exact match\r
     if(deferred) { // but maybe non-sensical deferral\r
       int flags = p[board[f]].promoFlag;\r
+printf("# deferral of %d\n", deferred);\r
       i = deferred; // in any case we take that move\r
       if(!(flags & promoBoard[t] & (CANT_DEFER | LAST_RANK))) { // but change it into a deferral if that is allowed\r
        moveStack[i] &= ~PROMOTE;\r
        if(p[board[f]].value == 40) p[board[f]].promoFlag &= LAST_RANK; else\r
-       if(!(flags & promoBoard[t])) moveStack[i] |= DEFER; // came from outside zone, so essential deferral\r
+       if(!(flags & promoBoard[f])) moveStack[i] |= DEFER; // came from outside zone, so essential deferral\r
       }\r
     }\r
     if(i >= retMSP)\r
-      for(i=20; i<retMSP; i++) printf("# %d. %08x %08x %s\n", i-20, moveStack[i], ret, MoveToText(moveStack[i], 0));\r
+      for(i=retFirst; i<retMSP; i++) printf("# %d. %08x %08x %s\n", i-20, moveStack[i], ret, MoveToText(moveStack[i], 0));\r
   }\r
   return (i >= retMSP ? INVALID : moveStack[i]);\r
 }\r
@@ -1562,7 +1590,7 @@ flag=0;
   if(!cnt) { // no moves from given square\r
     if(sqr != lastPut) return; // refrain from sending empty FEN\r
     // we lifted a piece for second leg of move\r
-    for(i=20; i<retMSP; i++) {\r
+    for(i=retFirst; i<retMSP; i++) {\r
       if(lastLift == (moveStack[i]>>SQLEN & SQUARE)) {\r
        int e, t = moveStack[i] & SQUARE;\r
        if(t < SPECIAL) continue; // only special moves\r
@@ -1597,9 +1625,16 @@ flag=0;
 int\r
 SearchBestMove (int stm, int timeLeft, int mps, int timeControl, int inc, int timePerMove, MOVE *move, MOVE *ponderMove)\r
 {\r
-  int score;\r
+  int score, targetTime, movesLeft = 50;\r
+  if(mps) movesLeft = mps - (moveNr>>1)%mps;\r
+  targetTime = timeLeft*10 / (movesLeft + 1) + 1000 * inc;\r
+  if(timePerMove > 0) targetTime = timeLeft * 5;\r
+  startTime = GetTickCount();\r
+  tlim1 = 0.3*targetTime;\r
+  tlim2 = 1.9*targetTime;\r
+  nodes = 0;\r
 MapFromScratch(attacks);\r
-  score = Search(-INF-1, INF+1, 0, 3, sup1, sup2);\r
+  score = Search(-INF-1, INF+1, 0, 20, sup1, sup2);\r
   *move = retMove;\r
   *ponderMove = INVALID;\r
   return score;\r
@@ -1642,7 +1677,7 @@ printf("# setup done");fflush(stdout);
       int maxDepth;                            // used by search\r
       MOVE move, ponderMove;\r
       int i, score;\r
-      char inBuf[80], command[80];\r
+      char inBuf[8000], command[80];\r
 \r
   Init();\r
   SetUp(chuArray, chuPieces);\r
@@ -1714,7 +1749,7 @@ printf("in: %s\n", command);
           continue;\r
         }\r
         if(!strcmp(command, "protover")){\r
-          printf("feature ping=1 setboard=1 colors=0 usermove=1 memory=1 debug=1\n");\r
+          printf("feature ping=1 setboard=1 colors=0 usermove=1 memory=1 debug=1 sigint=0 sigterm=0\n");\r
           printf("feature variants=\"chu,12x12+0_fairy\"\n");\r
           printf("feature highlight=1\n");\r
           printf("feature option=\"Resign -check 0\"\n");           // example of an engine-defined option\r