/* Pikafish Proxy - a Chinese Chess Engine Wrapper for XQWizard to run Pikafish Designed by Morning Yellow, Version: 2023-03-05, Last Modified: Jun. 2023 Copyright (C) 2023 www.xqbase.com This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA */ #include <stdio.h> #include <string.h> #include "version.h" #include "../base/pipe.h" #include "../base/base.h" #include "../base/base2.h" #include "../base/rc4prng.h" #include "../eleeye/pregen.h" #include "../eleeye/position.h" #include "../eleeye/book.h" int main(void) { bool bUseBook; int i, nLen, mv, vl; uint32_t dwMoveStr; char *lp, *lpTime, *lp2; char sz[LINE_INPUT_MAX_CHAR], sz2[LINE_INPUT_MAX_CHAR]; char szTime[LINE_INPUT_MAX_CHAR], szInc[LINE_INPUT_MAX_CHAR], szBookFile[LINE_INPUT_MAX_CHAR]; BookStruct mvsBook[MAX_GEN_MOVES]; RC4Struct rc4; PipeStruct pipeConsole, pipeEngine; PositionStruct pos; bUseBook = true; LocatePath(sz, "pikafish-modern.exe"); LocatePath(szBookFile, "BOOK.DAT"); pipeConsole.Open(); pipeEngine.Open(sz); PreGenInit(); rc4.InitRand(); pos.FromFen(cszStartFen); while (pipeEngine.nEof == 0) { // Read Pikafish's Response while (pipeEngine.LineInput(sz)) { // printf("info string ENG->GUI: [%s]\n", sz); if (false) { // "Pikafish ...": Ignore } else if (strncmp(sz, "Pikafish ", 9) == 0) { // "id ...", "option ...", "uciok": Ignore } else if (strncmp(sz, "id ", 3) == 0) { } else if (strncmp(sz, "option ", 7) == 0) { } else if (strcmp(sz, "uciok") == 0) { // "bestmove (none)" -> "nobestmove" } else if (strcmp(sz, "bestmove (none)") == 0) { printf("nobestmove\n"); // "info depth ... score cp ..." -> "info depth ... score ..." } else if (strncmp(sz, "info depth ", 11) == 0) { lp = strstr(sz, " score cp "); if (lp != NULL) { strcpy(sz2, lp + 10); strcpy(lp + 7, sz2); } printf("%s\n", sz); // else: unchanged } else { printf("%s\n", sz); } fflush(stdout); } // Read XQWizard's Request while (pipeConsole.LineInput(sz)) { if (false) { // "ucci" -> "uci", show version and options } else if (strcmp(sz, "ucci") == 0) { printf("id name Pikafish\n"); printf("id version " PIKAFISH_VERSION "\n"); printf("option usemillisec type check default true\n"); printf("option usebook type check default true\n"); printf("option bookfiles type string default %s\n", szBookFile); printf("option hashsize type spin default 16 min 1 max 33554432\n"); printf("option threads type spin default 1 min 1 max 1024\n"); printf("ucciok\n"); strcpy(sz, "uci"); // "setoption ...": only accepts "usebook", "bookfiles", "hashsize" and "threads" } else if (strncmp(sz, "setoption ", 10) == 0) { if (false) { // "setoption usebook true/false" } else if (strncmp(sz, "setoption usebook ", 18) == 0) { lp = sz + 18; bUseBook = (strcmp(lp, "true") == 0 || strcmp(lp, "on") == 0); continue; // "setoption bookfiles ..." } else if (strncmp(sz, "setoption bookfiles ", 20) == 0) { lp = sz + 20; if (AbsolutePath(lp)) { strcpy(szBookFile, lp); } else { LocatePath(szBookFile, lp); } continue; // "setoption hashsize ..." -> "setoption name Hash value ..." } else if (strncmp(sz, "setoption hashsize ", 19) == 0) { strcpy(sz2, "setoption name Hash value "); strcat(sz2, sz + 19); strcpy(sz, sz2); // "setoption threads ..." -> "setoption name Threads value ..." } else if (strncmp(sz, "setoption threads ", 18) == 0) { sscanf(sz + 18, "%d", &i); sprintf(sz, "setoption name Threads value %d", i < 1 ? 1 : i); } else { // else: unchanged continue; } // "position ...": parse position for book search } else if (strncmp(sz, "position ", 9) == 0) { lp = strstr(sz, " fen "); if (lp == NULL) { pos.FromFen(cszStartFen); } else { pos.FromFen(lp + 5); } lp = strstr(sz, " moves "); if (lp != NULL) { lp += 7; nLen = (strlen(lp) + 1) / 5; for (i = 0; i < nLen; i ++) { mv = COORD_MOVE(*(uint32_t *) lp); lp += 5; if (mv == 0) { break; } if (pos.ucpcSquares[SRC(mv)] == 0) { break; } pos.MakeMove(mv); if (pos.LastMove().CptDrw > 0) { pos.SetIrrev(); } } } // "go ...": search book first, then call engine } else if (strncmp(sz, "go ", 3) == 0) { // search book if (bUseBook) { // a. get all moves for this position nLen = GetBookMoves(pos, szBookFile, mvsBook); if (nLen > 0) { vl = 0; for (i = 0; i < nLen; i ++) { vl += mvsBook[i].wvl; dwMoveStr = MOVE_COORD(mvsBook[i].wmv); printf("info depth 0 score %d pv %.4s\n", mvsBook[i].wvl, (const char *) &dwMoveStr); fflush(stdout); } // b. pick a random move by move weight vl = rc4.NextLong() % (uint32_t) vl; for (i = 0; i < nLen; i ++) { vl -= mvsBook[i].wvl; if (vl < 0) { break; } } // c. skip the move that causes repetition pos.MakeMove(mvsBook[i].wmv); if (pos.RepStatus(3) == 0) { dwMoveStr = MOVE_COORD(mvsBook[i].wmv); printf("bestmove %.4s", (const char *) &dwMoveStr); // d. get ponder move (next move with max weight) nLen = GetBookMoves(pos, szBookFile, mvsBook); pos.UndoMakeMove(); if (nLen > 0) { dwMoveStr = MOVE_COORD(mvsBook[0].wmv); printf(" ponder %.4s", (const char *) &dwMoveStr); } printf("\n"); fflush(stdout); continue; } pos.UndoMakeMove(); } } // "go time ..." -> "go wtime ... btime ..." lp = strstr(sz, " time "); if (lp != NULL) { lpTime = lp + 6; // copy text after "time" lp2 = strchr(lpTime, ' '); if (lp2 == NULL) { strcpy(szTime, lpTime + 6); } else { nLen = lp2 - lpTime; strncpy(szTime, lpTime, nLen); szTime[nLen] = '\0'; } // copy text after "increment" lp2 = strstr(sz, " increment "); if (lp2 == NULL) { // copy text after "movestogo" lp2 = strstr(sz, " movestogo "); if (lp2 == NULL) { sprintf(lp, " wtime %s btime %s", szTime, szTime); } else { lpTime = lp2 + 11; lp2 = strchr(lpTime, ' '); if (lp2 == NULL) { strcpy(szInc, lpTime); } else { nLen = lp2 - lpTime; strncpy(szInc, lpTime, nLen); szInc[nLen] = '\0'; } sprintf(lp, " wtime %s btime %s movestogo %s", szTime, szTime, szInc); } } else { lpTime = lp2 + 11; lp2 = strchr(lpTime, ' '); if (lp2 == NULL) { strcpy(szInc, lpTime); } else { nLen = lp2 - lpTime; strncpy(szInc, lpTime, nLen); szInc[nLen] = '\0'; } sprintf(lp, " wtime %s btime %s winc %s binc %s", szTime, szTime, szInc, szInc); } } // other options such as "go depth ...": unchanged } pipeEngine.LineOutput(sz); // printf("info string GUI->ENG: [%s]\n", sz); fflush(stdout); } Idle(); } pipeConsole.Close(); pipeEngine.Close(); return 0; }