Implement Dai Shogi
authorH.G. Muller <h.g.muller@hccnet.nl>
Mon, 9 Jul 2012 15:12:37 +0000 (17:12 +0200)
committerH.G. Muller <h.g.muller@hccnet.nl>
Thu, 12 Jul 2012 10:13:25 +0000 (12:13 +0200)
The board format was made variable, and the relevant parameters are set
during Init() according to the current variant (now passed as parameter).
LookUp() now searches the requested piece in multiple lists, depending
on the current variant. E.g. for Dai it searches daiPieces, followed by
chuPieces. The WB variant command is now interpreted, by comparing
the mentioned variat to the list of variants. Support for plain Knight
moves was added. The suppression of promotions after an initial deferral
was made subject to chuFlag.

hachu.c

diff --git a/hachu.c b/hachu.c
index 8ca5cc7..40c31e5 100644 (file)
--- a/hachu.c
+++ b/hachu.c
@@ -8,11 +8,10 @@
 \r
 // TODO:\r
 // in GenCapts we do not generate jumps of more than two squares yet\r
-// Chu rules for Lion capture\r
 // promotions by pieces with Lion power stepping in & out the zone in same turn\r
 // promotion on capture\r
 \r
-#define VERSION "0.0"\r
+#define VERSION "0.1beta"\r
 \r
 //define PATH level==0 || level==1 && path[0] == 0x55893\r
 #define PATH 0\r
      }\r
 #endif\r
 \r
-#define BW 24\r
-#define BH 12\r
-#define BSIZE BW*BH*2\r
-#define ZONE 4\r
+#define BW bWidth\r
+#define BH bHeight\r
+#define BHMAX 15\r
+#define BWMAX (2*BHMAX)\r
+#define BSIZE BWMAX*BHMAX\r
+#define ZONE  zone\r
 \r
 #define ONE 0\r
 \r
@@ -85,13 +86,14 @@ typedef struct {
   int from, to, piece, victim, new, booty, epSquare, epVictim, ep2Square, ep2Victim, revMoveCount, savKeyL, savKeyH;\r
 } UndoInfo;\r
 \r
+int bWidth, bHeight, bsize, zone, currentVariant;\r
 int stm, xstm, hashKeyH, hashKeyL, framePtr, msp, nonCapts, rootEval, retMSP, retFirst, pvPtr, level, cnt50, chuFlag=1;\r
 int nodes, startTime, tlim1, tlim2;\r
 Move retMove, moveStack[10000], path[100], repStack[300], pv[1000];\r
 \r
 #define X 36 /* slider              */\r
-#define J -1 /* jump                */\r
-#define N -2 /* Knight              */\r
+#define N -1 /* Knight              */\r
+#define J -2 /* jump                */\r
 #define D -3 /* linear double move  */\r
 #define T -4 /* linear triple move  */\r
 #define L -5 /* true Lion move      */\r
@@ -268,7 +270,7 @@ char daiArray[] = "LN:STICSGKGSCI:STNL/:RV.:CS.:FL.:BT:DE:BT.:FL.:CS.:RV/.:VO.:A
                  "r:fd:sm:vmb:dh:dk:fk:dk:dhb:vm:sm:fdr/.:vo.:ab.:ew:ph:ln:kn:ew.:ab.:vo./:rv.:cs.:fl.:bt:de:bt.:fl.:cs.:rv/ln:sticsgkgsci:stnl";\r
 \r
 typedef struct {\r
-  int boardWidth, boardFiles, zoneDepth, boardRanks; // board sizes\r
+  int boardWidth, boardFiles, boardRanks, zoneDepth; // board sizes\r
   char *name;  // WinBoard name\r
   char *array; // initial position\r
 } VariantDesc;\r
@@ -418,24 +420,37 @@ typedef struct {
 \r
 int squareKey[BSIZE];\r
 \r
-int rawBoard[BSIZE + 11*BW + 6];\r
+int rawBoard[BSIZE + 11*BHMAX + 6];\r
 //int attacks[2*BSIZE];   // attack map\r
 int attackMaps[200*BSIZE], *attacks = attackMaps;\r
 char distance[2*BSIZE]; // distance table\r
 char promoBoard[BSIZE];\r
 signed char PST[2*BSIZE];\r
 \r
-#define board (rawBoard + 6*BW + 3)\r
+#define board (rawBoard + 6*BHMAX + 3)\r
 #define dist  (distance + BSIZE)\r
 \r
 PieceDesc *\r
-LookUp (char *name, PieceDesc *list)\r
+ListLookUp (char *name, PieceDesc *list)\r
 { // find piece of given name in list of descriptors\r
   int i=0;\r
   while(list->name && strcmp(name, list->name)) i++, list++;\r
   return (list->name == NULL ? NULL : list);\r
 }\r
 \r
+PieceDesc *\r
+LookUp (char *name, int var)\r
+{ // search piece of given name in all lists relevant for given variant\r
+  PieceDesc *desc;\r
+  switch(var) {\r
+    case 1: // Dai\r
+      desc = ListLookUp(name, daiPieces);\r
+      if(desc) return desc;\r
+    case 0: // Chu\r
+      return ListLookUp(name, chuPieces);\r
+  }\r
+}\r
+\r
 void\r
 SqueezeOut (int n)\r
 { // remove piece number n from the mentioned side's piece list (and adapt the reference to the displaced pieces!)\r
@@ -528,8 +543,8 @@ AddPiece (int stm, PieceDesc *list)
   for(j=0; j<8; j++) p[i].range[j] = list->range[j^4*(WHITE-stm)];\r
   switch(Range(p[i].range)) {\r
     case 1:  p[i].pst = BH; break;\r
-    case 2:  p[i].pst = BSIZE; break;\r
-    default: p[i].pst = BSIZE + BH; break;\r
+    case 2:  p[i].pst = bsize; break;\r
+    default: p[i].pst = bsize + BH; break;\r
   }\r
   key = (stm == WHITE ? &list->whiteKey : &list->blackKey);\r
   if(!*key) *key = ~(myRandom()*myRandom());\r
@@ -544,7 +559,7 @@ AddPiece (int stm, PieceDesc *list)
 }\r
 \r
 void\r
-SetUp(char *array, PieceDesc *list)\r
+SetUp(char *array, int var)\r
 {\r
   int i, j, n, m, nr, color;\r
   char c, *q, name[3];\r
@@ -564,11 +579,11 @@ SetUp(char *array, PieceDesc *list)
        name[0] += 'A' - 'a';\r
        if(name[1]) name[1] += 'A' - 'a';\r
       } else color = WHITE;\r
-      p1 = LookUp(name, list);\r
+      p1 = LookUp(name, var);\r
       n = AddPiece(color, p1);\r
       p[n].pos = j;\r
       if(p1->promoted[0]) {\r
-       p2 = LookUp(p1->promoted, list);\r
+       p2 = LookUp(p1->promoted, var);\r
         m = AddPiece(color, p2);\r
        if(m <= n) n += 2;\r
        p[n].promo = m;\r
@@ -595,10 +610,17 @@ int myRandom()
 }\r
 \r
 void\r
-Init()\r
+Init (int var)\r
 {\r
   int i, j, k;\r
 \r
+  currentVariant = var;\r
+  bWidth  = variants[var].boardWidth;\r
+  bHeight = variants[var].boardRanks;\r
+  zone    = variants[var].zoneDepth;\r
+  bsize = bWidth*bHeight;\r
+  chuFlag = (var == 0);\r
+\r
   for(i= -1; i<9; i++) { // board steps in linear coordinates\r
     kStep[i] = STEP(direction[i&7].x,   direction[i&7].y);       // King\r
     nStep[i] = STEP(direction[(i&7)+8].x, direction[(i&7)+8].y); // Knight\r
@@ -620,7 +642,7 @@ Init()
   }\r
 \r
   // fill distance table\r
-  for(i=0; i<BSIZE; i++) {\r
+  for(i=0; i<2*BSIZE; i++) {\r
     distance[i] = 0;\r
   }\r
   for(i=0; i<8; i++)\r
@@ -628,10 +650,10 @@ Init()
       dist[j * kStep[i]] = j;\r
 \r
   // hash key tables\r
-  for(i=0; i<BSIZE; i++) squareKey[i] = ~(myRandom()*myRandom());\r
+  for(i=0; i<bsize; i++) squareKey[i] = ~(myRandom()*myRandom());\r
 \r
   // board edge\r
-  for(i=0; i<BSIZE + 11*BW + 6; i++) rawBoard[i] = EDGE;\r
+  for(i=0; i<BSIZE + 11*BHMAX + 6; i++) rawBoard[i] = EDGE;\r
 \r
   // promotion zones\r
   for(i=0; i<BH; i++) for(j=0; j<BH; j++) {\r
@@ -649,8 +671,8 @@ Init()
   for(i=0; i<BH; i++) for(j=0; j<BH; j++) {\r
     int s = BW*i + j, d = BH*(BH-2) - (2*i - BH + 1)*(2*i - BH + 1) - (2*j - BH + 1)*(2*j - BH + 1);\r
     PST[BH+s] = d/4 - (i == 0 || i == BH-1 ? 15 : 0) - (j == 0 || j == BH-1 ? 15 : 0);\r
-    PST[BSIZE+s] = d/6;\r
-    PST[BSIZE+BH+s] = d/12;\r
+    PST[BH*BW+s] = d/6;\r
+    PST[BH*BW+BH+s] = d/12;\r
   }  \r
 }\r
 \r
@@ -768,13 +790,16 @@ GenNonCapts (int promoSuppress)
   for(i=stm+2; i<=last[stm]; i+=2) {\r
     int x = p[i].pos, pFlag = p[i].promoFlag;\r
     if(x == ABSENT) continue;\r
-    if(x == promoSuppress) pFlag = 0;\r
+    if(x == promoSuppress && chuFlag) pFlag = 0;\r
     for(j=0; j<8; j++) {\r
       int y, v = kStep[j], r = p[i].range[j];\r
       if(r < 0) { // jumping piece, special treatment\r
+       if(r == N) { // pure Knightm do off-ray jump\r
+         NewNonCapture(x, x + nStep[j], pFlag);\r
+       } else\r
        if(r >= S) { // in any case, do a jump of 2\r
          NewNonCapture(x, x + 2*v, pFlag);\r
-         if(r < N) { // Lion power, also single step\r
+         if(r < J) { // Lion power, also single step\r
            if(!NewNonCapture(x, x + v, pFlag)) nullMove = x;\r
            if(r == L) { // true Lion, also Knight jump\r
              v = nStep[j];\r
@@ -806,6 +831,11 @@ MapOneColor (int start, int last, int *map)
     for(j=0; j<8; j++) {\r
       int x = p[i].pos, v = kStep[j], r = p[i].range[j];\r
       if(r < 0) { // jumping piece, special treatment\r
+       if(r == N) {\r
+         x += nStep[j];\r
+         if(board[x] != EMPTY && board[x] != EDGE)\r
+           map[2*x + start] += one[8];\r
+       } else\r
        if(r >= S) { // in any case, do a jump of 2\r
          if(board[x + 2*v] != EMPTY && board[x + 2*v] != EDGE)\r
            map[2*(x + 2*v) + start] += one[j];\r
@@ -850,7 +880,7 @@ void
 MapFromScratch (int *map)\r
 {\r
   int i;\r
-  for(i=0; i<2*BSIZE; i++) map[i] = 0;\r
+  for(i=0; i<2*bsize; i++) map[i] = 0;\r
   MapOneColor(0, last[BLACK], map);\r
   MapOneColor(1, last[WHITE], map);\r
 }\r
@@ -1374,7 +1404,7 @@ if(flag & depth >= 0) printf("%2d:%d found %d/%d\n", depth, iterDep, curMove, ms
       repStack[level+200] = hashKeyH;\r
 \r
 path[level++] = move;\r
-attacks += 2*BSIZE;\r
+attacks += 2*bsize;\r
 MapFromScratch(attacks); // for as long as incremental update does not work.\r
 if(PATH) pmap(attacks, stm);\r
       if(chuFlag && p[tb.victim].value == 1000) {    // verify legality of Lion capture in Chu Shogi\r
@@ -1394,7 +1424,7 @@ if(PATH) pmap(attacks, stm);
       score = 0;\r
 #endif\r
     abortMove:\r
-attacks -= 2*BSIZE;\r
+attacks -= 2*bsize;\r
 level--;\r
     repetition:\r
       UnMake(&tb);\r
@@ -1577,7 +1607,7 @@ UnMake2 (MOVE move)
 int\r
 Setup2 (char *fen)\r
 {\r
-  SetUp(chuArray, chuPieces);\r
+  SetUp(variants[currentVariant].array, currentVariant);\r
   sup0 = sup1 = sup2 = ABSENT;\r
   rootEval = cnt50 = hashKeyH = hashKeyL = 0;\r
   return WHITE;\r
@@ -1676,7 +1706,7 @@ Highlight(char *coords)
 {\r
   int i, j, n, sqr, cnt=0;\r
   char b[BSIZE], buf[2000], *q;\r
-  for(i=0; i<BSIZE; i++) b[i] = 0;\r
+  for(i=0; i<bsize; i++) b[i] = 0;\r
   ReadSquare(coords, &sqr);\r
 MapFromScratch(attacks);\r
 flag=1;\r
@@ -1776,8 +1806,8 @@ printf("# setup done");fflush(stdout);
       int i, score;\r
       char inBuf[8000], command[80];\r
 \r
-  Init();\r
-  SetUp(chuArray, chuPieces);\r
+  Init(0); // Chu\r
+  SetUp(chuArray, 0);\r
 //  pplist();\r
 //  pboard(board);\r
 //  pbytes(promoBoard);\r
@@ -1847,7 +1877,7 @@ printf("in: %s\n", command);
         }\r
         if(!strcmp(command, "protover")){\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 variants=\"chu,dai,12x12+0_fairy\"\n");\r
           printf("feature myname=\"HaChu " VERSION "\" highlight=1\n");\r
           printf("feature option=\"Resign -check 0\"\n");           // example of an engine-defined option\r
           printf("feature option=\"Contempt -spin 0 -200 200\"\n"); // and another one\r
@@ -1859,6 +1889,15 @@ printf("in: %s\n", command);
           if(sscanf(inBuf+7, "Contempt=%d", &contemptFactor) == 1) continue;\r
           continue;\r
         }\r
+        if(!strcmp(command, "variant")) {\r
+          for(i=0; i<2; i++) {\r
+            sscanf(inBuf+8, "%s", command);\r
+            if(!strcmp(variants[i].name, command)) {\r
+              Init(i); stm = Setup2(NULL); break;\r
+            }\r
+         }\r
+          continue;\r
+        }\r
         if(!strcmp(command, "sd"))      { sscanf(inBuf, "sd %d", &maxDepth);    continue; }\r
         if(!strcmp(command, "st"))      { sscanf(inBuf, "st %d", &timePerMove); continue; }\r
         if(!strcmp(command, "memory"))  { SetMemorySize(atoi(inBuf+7)); continue; }\r
@@ -1878,7 +1917,6 @@ printf("in: %s\n", command);
         if(!strcmp(command, "lift"))    { Highlight(inBuf+5); continue; }\r
         if(!strcmp(command, "put"))     { ReadSquare(inBuf+4, &lastPut); continue; }\r
         if(!strcmp(command, "book"))    {  continue; }\r
-        if(!strcmp(command, "variant")) { continue; }\r
        // non-standard commands\r
         if(!strcmp(command, "p"))       { pboard(board); continue; }\r
         if(!strcmp(command, "w"))       { pmap(attacks, WHITE); continue; }\r