+++ /dev/null
-/*
- * backend.c -- Common back end for X and Windows NT versions of
- *
- * Copyright 1991 by Digital Equipment Corporation, Maynard,
- * Massachusetts.
- *
- * Enhancements Copyright 1992-2001, 2002, 2003, 2004, 2005, 2006,
- * 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016 Free
- * Software Foundation, Inc.
- *
- * Enhancements Copyright 2005 Alessandro Scotti
- *
- * The following terms apply to Digital Equipment Corporation's copyright
- * interest in XBoard:
- * ------------------------------------------------------------------------
- * All Rights Reserved
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notice appear in all copies and that
- * both that copyright notice and this permission notice appear in
- * supporting documentation, and that the name of Digital not be
- * used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission.
- *
- * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- * ------------------------------------------------------------------------
- *
- * The following terms apply to the enhanced version of XBoard
- * distributed by the Free Software Foundation:
- * ------------------------------------------------------------------------
- *
- * GNU XBoard is free software: you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or (at
- * your option) any later version.
- *
- * GNU XBoard 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
- * General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see http://www.gnu.org/licenses/. *
- *
- *------------------------------------------------------------------------
- ** See the file ChangeLog for a revision history. */
-
-/* [AS] Also useful here for debugging */
-#ifdef WIN32
-#include <windows.h>
-
- int flock(int f, int code);
-# define LOCK_EX 2
-# define SLASH '\\'
-
-# ifdef ARC_64BIT
-# define EGBB_NAME "egbbdll64.dll"
-# else
-# define EGBB_NAME "egbbdll.dll"
-# endif
-
-#else
-
-# include <sys/file.h>
-# define SLASH '/'
-
-# include <dlfcn.h>
-# ifdef ARC_64BIT
-# define EGBB_NAME "egbbso64.so"
-# else
-# define EGBB_NAME "egbbso.so"
-# endif
- // kludge to allow Windows code in back-end by converting it to corresponding Linux code
-# define CDECL
-# define HMODULE void *
-# define LoadLibrary(x) dlopen(x, RTLD_LAZY)
-# define GetProcAddress dlsym
-
-#endif
-
-#include "config.h"
-
-#include <assert.h>
-#include <stdio.h>
-#include <ctype.h>
-#include <errno.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <math.h>
-#include <ctype.h>
-
-#if STDC_HEADERS
-# include <stdlib.h>
-# include <string.h>
-# include <stdarg.h>
-#else /* not STDC_HEADERS */
-# if HAVE_STRING_H
-# include <string.h>
-# else /* not HAVE_STRING_H */
-# include <strings.h>
-# endif /* not HAVE_STRING_H */
-#endif /* not STDC_HEADERS */
-
-#if HAVE_SYS_FCNTL_H
-# include <sys/fcntl.h>
-#else /* not HAVE_SYS_FCNTL_H */
-# if HAVE_FCNTL_H
-# include <fcntl.h>
-# endif /* HAVE_FCNTL_H */
-#endif /* not HAVE_SYS_FCNTL_H */
-
-#if TIME_WITH_SYS_TIME
-# include <sys/time.h>
-# include <time.h>
-#else
-# if HAVE_SYS_TIME_H
-# include <sys/time.h>
-# else
-# include <time.h>
-# endif
-#endif
-
-#if defined(_amigados) && !defined(__GNUC__)
-struct timezone {
- int tz_minuteswest;
- int tz_dsttime;
-};
-extern int gettimeofday(struct timeval *, struct timezone *);
-#endif
-
-#if HAVE_UNISTD_H
-# include <unistd.h>
-#endif
-
-#include "common.h"
-#include "frontend.h"
-#include "backend.h"
-#include "parser.h"
-#include "moves.h"
-#if ZIPPY
-# include "zippy.h"
-#endif
-#include "backendz.h"
-#include "evalgraph.h"
-#include "engineoutput.h"
-#include "gettext.h"
-
-#ifdef ENABLE_NLS
-# define _(s) gettext (s)
-# define N_(s) gettext_noop (s)
-# define T_(s) gettext(s)
-#else
-# ifdef WIN32
-# define _(s) T_(s)
-# define N_(s) s
-# else
-# define _(s) (s)
-# define N_(s) s
-# define T_(s) s
-# endif
-#endif
-
-
-int establish P((void));
-void read_from_player P((InputSourceRef isr, VOIDSTAR closure,
- char *buf, int count, int error));
-void read_from_ics P((InputSourceRef isr, VOIDSTAR closure,
- char *buf, int count, int error));
-void SendToICS P((char *s));
-void SendToICSDelayed P((char *s, long msdelay));
-void SendMoveToICS P((ChessMove moveType, int fromX, int fromY, int toX, int toY, char promoChar));
-void HandleMachineMove P((char *message, ChessProgramState *cps));
-int AutoPlayOneMove P((void));
-int LoadGameOneMove P((ChessMove readAhead));
-int LoadGameFromFile P((char *filename, int n, char *title, int useList));
-int LoadPositionFromFile P((char *filename, int n, char *title));
-int SavePositionToFile P((char *filename));
-void MakeMove P((int fromX, int fromY, int toX, int toY, int promoChar));
-void ShowMove P((int fromX, int fromY, int toX, int toY));
-int FinishMove P((ChessMove moveType, int fromX, int fromY, int toX, int toY,
- /*char*/int promoChar));
-void BackwardInner P((int target));
-void ForwardInner P((int target));
-int Adjudicate P((ChessProgramState *cps));
-void GameEnds P((ChessMove result, char *resultDetails, int whosays));
-void EditPositionDone P((Boolean fakeRights));
-void PrintOpponents P((FILE *fp));
-void PrintPosition P((FILE *fp, int move));
-void SendToProgram P((char *message, ChessProgramState *cps));
-void SendMoveToProgram P((int moveNum, ChessProgramState *cps));
-void ReceiveFromProgram P((InputSourceRef isr, VOIDSTAR closure,
- char *buf, int count, int error));
-void SendTimeControl P((ChessProgramState *cps,
- int mps, long tc, int inc, int sd, int st));
-char *TimeControlTagValue P((void));
-void Attention P((ChessProgramState *cps));
-void FeedMovesToProgram P((ChessProgramState *cps, int upto));
-int ResurrectChessProgram P((void));
-void DisplayComment P((int moveNumber, char *text));
-void DisplayMove P((int moveNumber));
-
-void ParseGameHistory P((char *game));
-void ParseBoard12 P((char *string));
-void KeepAlive P((void));
-void StartClocks P((void));
-void SwitchClocks P((int nr));
-void StopClocks P((void));
-void ResetClocks P((void));
-char *PGNDate P((void));
-void SetGameInfo P((void));
-int RegisterMove P((void));
-void MakeRegisteredMove P((void));
-void TruncateGame P((void));
-int looking_at P((char *, int *, char *));
-void CopyPlayerNameIntoFileName P((char **, char *));
-char *SavePart P((char *));
-int SaveGameOldStyle P((FILE *));
-int SaveGamePGN P((FILE *));
-int CheckFlags P((void));
-long NextTickLength P((long));
-void CheckTimeControl P((void));
-void show_bytes P((FILE *, char *, int));
-int string_to_rating P((char *str));
-void ParseFeatures P((char* args, ChessProgramState *cps));
-void InitBackEnd3 P((void));
-void FeatureDone P((ChessProgramState* cps, int val));
-void InitChessProgram P((ChessProgramState *cps, int setup));
-void OutputKibitz(int window, char *text);
-int PerpetualChase(int first, int last);
-int EngineOutputIsUp();
-void InitDrawingSizes(int x, int y);
-void NextMatchGame P((void));
-int NextTourneyGame P((int nr, int *swap));
-int Pairing P((int nr, int nPlayers, int *w, int *b, int *sync));
-FILE *WriteTourneyFile P((char *results, FILE *f));
-void DisplayTwoMachinesTitle P(());
-static void ExcludeClick P((int index));
-void ToggleSecond P((void));
-void PauseEngine P((ChessProgramState *cps));
-static int NonStandardBoardSize P((VariantClass v, int w, int h, int s));
-
-#ifdef WIN32
- extern void ConsoleCreate();
-#endif
-
-ChessProgramState *WhitePlayer();
-int VerifyDisplayMode P(());
-
-char *GetInfoFromComment( int, char * ); // [HGM] PV time: returns stripped comment
-void InitEngineUCI( const char * iniDir, ChessProgramState * cps ); // [HGM] moved here from winboard.c
-char *ProbeBook P((int moveNr, char *book)); // [HGM] book: returns a book move
-char *SendMoveToBookUser P((int nr, ChessProgramState *cps, int initial)); // [HGM] book
-void ics_update_width P((int new_width));
-extern char installDir[MSG_SIZ];
-VariantClass startVariant; /* [HGM] nicks: initial variant */
-Boolean abortMatch;
-
-extern int tinyLayout, smallLayout;
-ChessProgramStats programStats;
-char lastPV[2][2*MSG_SIZ]; /* [HGM] pv: last PV in thinking output of each engine */
-int endPV = -1;
-static int exiting = 0; /* [HGM] moved to top */
-static int setboardSpoiledMachineBlack = 0 /*, errorExitFlag = 0*/;
-int startedFromPositionFile = FALSE; Board filePosition; /* [HGM] loadPos */
-Board partnerBoard; /* [HGM] bughouse: for peeking at partner game */
-int partnerHighlight[2];
-Boolean partnerBoardValid = 0;
-char partnerStatus[MSG_SIZ];
-Boolean partnerUp;
-Boolean originalFlip;
-Boolean twoBoards = 0;
-char endingGame = 0; /* [HGM] crash: flag to prevent recursion of GameEnds() */
-int whiteNPS, blackNPS; /* [HGM] nps: for easily making clocks aware of NPS */
-VariantClass currentlyInitializedVariant; /* [HGM] variantswitch */
-int lastIndex = 0; /* [HGM] autoinc: last game/position used in match mode */
-Boolean connectionAlive;/* [HGM] alive: ICS connection status from probing */
-int opponentKibitzes;
-int lastSavedGame; /* [HGM] save: ID of game */
-char chatPartner[MAX_CHAT][MSG_SIZ]; /* [HGM] chat: list of chatting partners */
-extern int chatCount;
-int chattingPartner;
-char marker[BOARD_RANKS][BOARD_FILES]; /* [HGM] marks for target squares */
-char legal[BOARD_RANKS][BOARD_FILES]; /* [HGM] legal target squares */
-char lastMsg[MSG_SIZ];
-char lastTalker[MSG_SIZ];
-ChessSquare pieceSweep = EmptySquare;
-ChessSquare promoSweep = EmptySquare, defaultPromoChoice;
-int promoDefaultAltered;
-int keepInfo = 0; /* [HGM] to protect PGN tags in auto-step game analysis */
-static int initPing = -1;
-int border; /* [HGM] width of board rim, needed to size seek graph */
-char bestMove[MSG_SIZ], avoidMove[MSG_SIZ];
-int solvingTime, totalTime;
-
-/* States for ics_getting_history */
-#define H_FALSE 0
-#define H_REQUESTED 1
-#define H_GOT_REQ_HEADER 2
-#define H_GOT_UNREQ_HEADER 3
-#define H_GETTING_MOVES 4
-#define H_GOT_UNWANTED_HEADER 5
-
-/* whosays values for GameEnds */
-#define GE_ICS 0
-#define GE_ENGINE 1
-#define GE_PLAYER 2
-#define GE_FILE 3
-#define GE_XBOARD 4
-#define GE_ENGINE1 5
-#define GE_ENGINE2 6
-
-/* Maximum number of games in a cmail message */
-#define CMAIL_MAX_GAMES 20
-
-/* Different types of move when calling RegisterMove */
-#define CMAIL_MOVE 0
-#define CMAIL_RESIGN 1
-#define CMAIL_DRAW 2
-#define CMAIL_ACCEPT 3
-
-/* Different types of result to remember for each game */
-#define CMAIL_NOT_RESULT 0
-#define CMAIL_OLD_RESULT 1
-#define CMAIL_NEW_RESULT 2
-
-/* Telnet protocol constants */
-#define TN_WILL 0373
-#define TN_WONT 0374
-#define TN_DO 0375
-#define TN_DONT 0376
-#define TN_IAC 0377
-#define TN_ECHO 0001
-#define TN_SGA 0003
-#define TN_PORT 23
-
-char*
-safeStrCpy (char *dst, const char *src, size_t count)
-{ // [HGM] made safe
- int i;
- assert( dst != NULL );
- assert( src != NULL );
- assert( count > 0 );
-
- for(i=0; i<count; i++) if((dst[i] = src[i]) == NULLCHAR) break;
- if( i == count && dst[count-1] != NULLCHAR)
- {
- dst[ count-1 ] = '\0'; // make sure incomplete copy still null-terminated
- if(appData.debugMode)
- fprintf(debugFP, "safeStrCpy: copying %s into %s didn't work, not enough space %d\n",src,dst, (int)count);
- }
-
- return dst;
-}
-
-/* Some compiler can't cast u64 to double
- * This function do the job for us:
-
- * We use the highest bit for cast, this only
- * works if the highest bit is not
- * in use (This should not happen)
- *
- * We used this for all compiler
- */
-double
-u64ToDouble (u64 value)
-{
- double r;
- u64 tmp = value & u64Const(0x7fffffffffffffff);
- r = (double)(s64)tmp;
- if (value & u64Const(0x8000000000000000))
- r += 9.2233720368547758080e18; /* 2^63 */
- return r;
-}
-
-/* Fake up flags for now, as we aren't keeping track of castling
- availability yet. [HGM] Change of logic: the flag now only
- indicates the type of castlings allowed by the rule of the game.
- The actual rights themselves are maintained in the array
- castlingRights, as part of the game history, and are not probed
- by this function.
- */
-int
-PosFlags (int index)
-{
- int flags = F_ALL_CASTLE_OK;
- if ((index % 2) == 0) flags |= F_WHITE_ON_MOVE;
- switch (gameInfo.variant) {
- case VariantSuicide:
- flags &= ~F_ALL_CASTLE_OK;
- case VariantGiveaway: // [HGM] moved this case label one down: seems Giveaway does have castling on ICC!
- flags |= F_IGNORE_CHECK;
- case VariantLosers:
- flags |= F_MANDATORY_CAPTURE; //[HGM] losers: sets flag so TestLegality rejects non-capts if capts exist
- break;
- case VariantAtomic:
- flags |= F_IGNORE_CHECK | F_ATOMIC_CAPTURE;
- break;
- case VariantKriegspiel:
- flags |= F_KRIEGSPIEL_CAPTURE;
- break;
- case VariantCapaRandom:
- case VariantFischeRandom:
- flags |= F_FRC_TYPE_CASTLING; /* [HGM] enable this through flag */
- case VariantNoCastle:
- case VariantShatranj:
- case VariantCourier:
- case VariantMakruk:
- case VariantASEAN:
- case VariantGrand:
- flags &= ~F_ALL_CASTLE_OK;
- break;
- case VariantChu:
- case VariantChuChess:
- case VariantLion:
- flags |= F_NULL_MOVE;
- break;
- default:
- break;
- }
- if(appData.fischerCastling) flags |= F_FRC_TYPE_CASTLING, flags &= ~F_ALL_CASTLE_OK; // [HGM] fischer
- return flags;
-}
-
-FILE *gameFileFP, *debugFP, *serverFP;
-char *currentDebugFile; // [HGM] debug split: to remember name
-
-/*
- [AS] Note: sometimes, the sscanf() function is used to parse the input
- into a fixed-size buffer. Because of this, we must be prepared to
- receive strings as long as the size of the input buffer, which is currently
- set to 4K for Windows and 8K for the rest.
- So, we must either allocate sufficiently large buffers here, or
- reduce the size of the input buffer in the input reading part.
-*/
-
-char cmailMove[CMAIL_MAX_GAMES][MOVE_LEN], cmailMsg[MSG_SIZ];
-char bookOutput[MSG_SIZ*10], thinkOutput[MSG_SIZ*10], lastHint[MSG_SIZ];
-char thinkOutput1[MSG_SIZ*10];
-char promoRestrict[MSG_SIZ];
-
-ChessProgramState first, second, pairing;
-
-/* premove variables */
-int premoveToX = 0;
-int premoveToY = 0;
-int premoveFromX = 0;
-int premoveFromY = 0;
-int premovePromoChar = 0;
-int gotPremove = 0;
-Boolean alarmSounded;
-/* end premove variables */
-
-char *ics_prefix = "$";
-enum ICS_TYPE ics_type = ICS_GENERIC;
-
-int currentMove = 0, forwardMostMove = 0, backwardMostMove = 0;
-int pauseExamForwardMostMove = 0;
-int nCmailGames = 0, nCmailResults = 0, nCmailMovesRegistered = 0;
-int cmailMoveRegistered[CMAIL_MAX_GAMES], cmailResult[CMAIL_MAX_GAMES];
-int cmailMsgLoaded = FALSE, cmailMailedMove = FALSE;
-int cmailOldMove = -1, firstMove = TRUE, flipView = FALSE;
-int blackPlaysFirst = FALSE, startedFromSetupPosition = FALSE;
-int searchTime = 0, pausing = FALSE, pauseExamInvalid = FALSE;
-int whiteFlag = FALSE, blackFlag = FALSE;
-int userOfferedDraw = FALSE;
-int ics_user_moved = 0, ics_gamenum = -1, ics_getting_history = H_FALSE;
-int matchMode = FALSE, hintRequested = FALSE, bookRequested = FALSE;
-int cmailMoveType[CMAIL_MAX_GAMES];
-long ics_clock_paused = 0;
-ProcRef icsPR = NoProc, cmailPR = NoProc;
-InputSourceRef telnetISR = NULL, fromUserISR = NULL, cmailISR = NULL;
-GameMode gameMode = BeginningOfGame;
-char moveList[MAX_MOVES][MOVE_LEN], parseList[MAX_MOVES][MOVE_LEN * 2];
-char *commentList[MAX_MOVES], *cmailCommentList[CMAIL_MAX_GAMES];
-ChessProgramStats_Move pvInfoList[MAX_MOVES]; /* [AS] Info about engine thinking */
-int hiddenThinkOutputState = 0; /* [AS] */
-int adjudicateLossThreshold = 0; /* [AS] Automatic adjudication */
-int adjudicateLossPlies = 6;
-char white_holding[64], black_holding[64];
-TimeMark lastNodeCountTime;
-long lastNodeCount=0;
-int shiftKey, controlKey; // [HGM] set by mouse handler
-
-int have_sent_ICS_logon = 0;
-int movesPerSession;
-int suddenDeath, whiteStartMove, blackStartMove; /* [HGM] for implementation of 'any per time' sessions, as in first part of byoyomi TC */
-long whiteTimeRemaining, blackTimeRemaining, timeControl, timeIncrement, lastWhite, lastBlack, activePartnerTime;
-Boolean adjustedClock;
-long timeControl_2; /* [AS] Allow separate time controls */
-char *fullTimeControlString = NULL, *nextSession, *whiteTC, *blackTC, activePartner; /* [HGM] secondary TC: merge of MPS, TC and inc */
-long timeRemaining[2][MAX_MOVES];
-int matchGame = 0, nextGame = 0, roundNr = 0;
-Boolean waitingForGame = FALSE, startingEngine = FALSE;
-TimeMark programStartTime, pauseStart;
-char ics_handle[MSG_SIZ];
-int have_set_title = 0;
-
-/* animateTraining preserves the state of appData.animate
- * when Training mode is activated. This allows the
- * response to be animated when appData.animate == TRUE and
- * appData.animateDragging == TRUE.
- */
-Boolean animateTraining;
-
-GameInfo gameInfo;
-
-AppData appData;
-
-Board boards[MAX_MOVES];
-/* [HGM] Following 7 needed for accurate legality tests: */
-signed char castlingRank[BOARD_FILES]; // and corresponding ranks
-unsigned char initialRights[BOARD_FILES];
-int nrCastlingRights; // For TwoKings, or to implement castling-unknown status
-int initialRulePlies, FENrulePlies;
-FILE *serverMoves = NULL; // next two for broadcasting (/serverMoves option)
-int loadFlag = 0;
-Boolean shuffleOpenings;
-int mute; // mute all sounds
-
-// [HGM] vari: next 12 to save and restore variations
-#define MAX_VARIATIONS 10
-int framePtr = MAX_MOVES-1; // points to free stack entry
-int storedGames = 0;
-int savedFirst[MAX_VARIATIONS];
-int savedLast[MAX_VARIATIONS];
-int savedFramePtr[MAX_VARIATIONS];
-char *savedDetails[MAX_VARIATIONS];
-ChessMove savedResult[MAX_VARIATIONS];
-
-void PushTail P((int firstMove, int lastMove));
-Boolean PopTail P((Boolean annotate));
-void PushInner P((int firstMove, int lastMove));
-void PopInner P((Boolean annotate));
-void CleanupTail P((void));
-
-ChessSquare FIDEArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteBishop, WhiteQueen,
- WhiteKing, WhiteBishop, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackBishop, BlackQueen,
- BlackKing, BlackBishop, BlackKnight, BlackRook }
-};
-
-ChessSquare twoKingsArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteBishop, WhiteQueen,
- WhiteKing, WhiteKing, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackBishop, BlackQueen,
- BlackKing, BlackKing, BlackKnight, BlackRook }
-};
-
-ChessSquare KnightmateArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteMan, WhiteBishop, WhiteQueen,
- WhiteUnicorn, WhiteBishop, WhiteMan, WhiteRook },
- { BlackRook, BlackMan, BlackBishop, BlackQueen,
- BlackUnicorn, BlackBishop, BlackMan, BlackRook }
-};
-
-ChessSquare SpartanArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteBishop, WhiteQueen,
- WhiteKing, WhiteBishop, WhiteKnight, WhiteRook },
- { BlackAlfil, BlackMarshall, BlackKing, BlackDragon,
- BlackDragon, BlackKing, BlackAngel, BlackAlfil }
-};
-
-ChessSquare fairyArray[2][BOARD_FILES] = { /* [HGM] Queen side differs from King side */
- { WhiteRook, WhiteKnight, WhiteBishop, WhiteQueen,
- WhiteKing, WhiteBishop, WhiteKnight, WhiteRook },
- { BlackCardinal, BlackAlfil, BlackMarshall, BlackAngel,
- BlackKing, BlackMarshall, BlackAlfil, BlackCardinal }
-};
-
-ChessSquare ShatranjArray[2][BOARD_FILES] = { /* [HGM] (movGen knows about Shatranj Q and P) */
- { WhiteRook, WhiteKnight, WhiteAlfil, WhiteKing,
- WhiteFerz, WhiteAlfil, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackAlfil, BlackKing,
- BlackFerz, BlackAlfil, BlackKnight, BlackRook }
-};
-
-ChessSquare makrukArray[2][BOARD_FILES] = { /* [HGM] (movGen knows about Shatranj Q and P) */
- { WhiteRook, WhiteKnight, WhiteMan, WhiteKing,
- WhiteFerz, WhiteMan, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackMan, BlackFerz,
- BlackKing, BlackMan, BlackKnight, BlackRook }
-};
-
-ChessSquare aseanArray[2][BOARD_FILES] = { /* [HGM] (movGen knows about Shatranj Q and P) */
- { WhiteRook, WhiteKnight, WhiteMan, WhiteFerz,
- WhiteKing, WhiteMan, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackMan, BlackFerz,
- BlackKing, BlackMan, BlackKnight, BlackRook }
-};
-
-ChessSquare lionArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteLion, WhiteBishop, WhiteQueen,
- WhiteKing, WhiteBishop, WhiteKnight, WhiteRook },
- { BlackRook, BlackLion, BlackBishop, BlackQueen,
- BlackKing, BlackBishop, BlackKnight, BlackRook }
-};
-
-
-#if (BOARD_FILES>=10)
-ChessSquare ShogiArray[2][BOARD_FILES] = {
- { WhiteQueen, WhiteKnight, WhiteFerz, WhiteWazir,
- WhiteKing, WhiteWazir, WhiteFerz, WhiteKnight, WhiteQueen },
- { BlackQueen, BlackKnight, BlackFerz, BlackWazir,
- BlackKing, BlackWazir, BlackFerz, BlackKnight, BlackQueen }
-};
-
-ChessSquare XiangqiArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteAlfil, WhiteFerz,
- WhiteWazir, WhiteFerz, WhiteAlfil, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackAlfil, BlackFerz,
- BlackWazir, BlackFerz, BlackAlfil, BlackKnight, BlackRook }
-};
-
-ChessSquare CapablancaArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteAngel, WhiteBishop, WhiteQueen,
- WhiteKing, WhiteBishop, WhiteMarshall, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackAngel, BlackBishop, BlackQueen,
- BlackKing, BlackBishop, BlackMarshall, BlackKnight, BlackRook }
-};
-
-ChessSquare GreatArray[2][BOARD_FILES] = {
- { WhiteDragon, WhiteKnight, WhiteAlfil, WhiteGrasshopper, WhiteKing,
- WhiteSilver, WhiteCardinal, WhiteAlfil, WhiteKnight, WhiteDragon },
- { BlackDragon, BlackKnight, BlackAlfil, BlackGrasshopper, BlackKing,
- BlackSilver, BlackCardinal, BlackAlfil, BlackKnight, BlackDragon },
-};
-
-ChessSquare JanusArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteAngel, WhiteKnight, WhiteBishop, WhiteKing,
- WhiteQueen, WhiteBishop, WhiteKnight, WhiteAngel, WhiteRook },
- { BlackRook, BlackAngel, BlackKnight, BlackBishop, BlackKing,
- BlackQueen, BlackBishop, BlackKnight, BlackAngel, BlackRook }
-};
-
-ChessSquare GrandArray[2][BOARD_FILES] = {
- { EmptySquare, WhiteKnight, WhiteBishop, WhiteQueen, WhiteKing,
- WhiteMarshall, WhiteAngel, WhiteBishop, WhiteKnight, EmptySquare },
- { EmptySquare, BlackKnight, BlackBishop, BlackQueen, BlackKing,
- BlackMarshall, BlackAngel, BlackBishop, BlackKnight, EmptySquare }
-};
-
-ChessSquare ChuChessArray[2][BOARD_FILES] = {
- { WhiteMan, WhiteKnight, WhiteBishop, WhiteCardinal, WhiteLion,
- WhiteQueen, WhiteDragon, WhiteBishop, WhiteKnight, WhiteMan },
- { BlackMan, BlackKnight, BlackBishop, BlackDragon, BlackQueen,
- BlackLion, BlackCardinal, BlackBishop, BlackKnight, BlackMan }
-};
-
-#ifdef GOTHIC
-ChessSquare GothicArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteBishop, WhiteQueen, WhiteMarshall,
- WhiteKing, WhiteAngel, WhiteBishop, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackBishop, BlackQueen, BlackMarshall,
- BlackKing, BlackAngel, BlackBishop, BlackKnight, BlackRook }
-};
-#else // !GOTHIC
-#define GothicArray CapablancaArray
-#endif // !GOTHIC
-
-#ifdef FALCON
-ChessSquare FalconArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteBishop, WhiteFalcon, WhiteQueen,
- WhiteKing, WhiteFalcon, WhiteBishop, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackBishop, BlackFalcon, BlackQueen,
- BlackKing, BlackFalcon, BlackBishop, BlackKnight, BlackRook }
-};
-#else // !FALCON
-#define FalconArray CapablancaArray
-#endif // !FALCON
-
-#else // !(BOARD_FILES>=10)
-#define XiangqiPosition FIDEArray
-#define CapablancaArray FIDEArray
-#define GothicArray FIDEArray
-#define GreatArray FIDEArray
-#endif // !(BOARD_FILES>=10)
-
-#if (BOARD_FILES>=12)
-ChessSquare CourierArray[2][BOARD_FILES] = {
- { WhiteRook, WhiteKnight, WhiteAlfil, WhiteBishop, WhiteMan, WhiteKing,
- WhiteFerz, WhiteWazir, WhiteBishop, WhiteAlfil, WhiteKnight, WhiteRook },
- { BlackRook, BlackKnight, BlackAlfil, BlackBishop, BlackMan, BlackKing,
- BlackFerz, BlackWazir, BlackBishop, BlackAlfil, BlackKnight, BlackRook }
-};
-ChessSquare ChuArray[6][BOARD_FILES] = {
- { WhiteLance, WhiteUnicorn, WhiteMan, WhiteFerz, WhiteWazir, WhiteKing,
- WhiteAlfil, WhiteWazir, WhiteFerz, WhiteMan, WhiteUnicorn, WhiteLance },
- { BlackLance, BlackUnicorn, BlackMan, BlackFerz, BlackWazir, BlackAlfil,
- BlackKing, BlackWazir, BlackFerz, BlackMan, BlackUnicorn, BlackLance },
- { WhiteCannon, EmptySquare, WhiteBishop, EmptySquare, WhiteNightrider, WhiteMarshall,
- WhiteAngel, WhiteNightrider, EmptySquare, WhiteBishop, EmptySquare, WhiteCannon },
- { BlackCannon, EmptySquare, BlackBishop, EmptySquare, BlackNightrider, BlackAngel,
- BlackMarshall, BlackNightrider, EmptySquare, BlackBishop, EmptySquare, BlackCannon },
- { WhiteFalcon, WhiteSilver, WhiteRook, WhiteCardinal, WhiteDragon, WhiteLion,
- WhiteQueen, WhiteDragon, WhiteCardinal, WhiteRook, WhiteSilver, WhiteFalcon },
- { BlackFalcon, BlackSilver, BlackRook, BlackCardinal, BlackDragon, BlackQueen,
- BlackLion, BlackDragon, BlackCardinal, BlackRook, BlackSilver, BlackFalcon }
-};
-#else // !(BOARD_FILES>=12)
-#define CourierArray CapablancaArray
-#define ChuArray CapablancaArray
-#endif // !(BOARD_FILES>=12)
-
-
-Board initialPosition;
-
-
-/* Convert str to a rating. Checks for special cases of "----",
-
- "++++", etc. Also strips ()'s */
-int
-string_to_rating (char *str)
-{
- while(*str && !isdigit(*str)) ++str;
- if (!*str)
- return 0; /* One of the special "no rating" cases */
- else
- return atoi(str);
-}
-
-void
-ClearProgramStats ()
-{
- /* Init programStats */
- programStats.movelist[0] = 0;
- programStats.depth = 0;
- programStats.nr_moves = 0;
- programStats.moves_left = 0;
- programStats.nodes = 0;
- programStats.time = -1; // [HGM] PGNtime: make invalid to recognize engine output
- programStats.score = 0;
- programStats.got_only_move = 0;
- programStats.got_fail = 0;
- programStats.line_is_book = 0;
-}
-
-void
-CommonEngineInit ()
-{ // [HGM] moved some code here from InitBackend1 that has to be done after both engines have contributed their settings
- if (appData.firstPlaysBlack) {
- first.twoMachinesColor = "black\n";
- second.twoMachinesColor = "white\n";
- } else {
- first.twoMachinesColor = "white\n";
- second.twoMachinesColor = "black\n";
- }
-
- first.other = &second;
- second.other = &first;
-
- { float norm = 1;
- if(appData.timeOddsMode) {
- norm = appData.timeOdds[0];
- if(norm > appData.timeOdds[1]) norm = appData.timeOdds[1];
- }
- first.timeOdds = appData.timeOdds[0]/norm;
- second.timeOdds = appData.timeOdds[1]/norm;
- }
-
- if(programVersion) free(programVersion);
- if (appData.noChessProgram) {
- programVersion = (char*) malloc(5 + strlen(PACKAGE_STRING));
- sprintf(programVersion, "%s", PACKAGE_STRING);
- } else {
- /* [HGM] tidy: use tidy name, in stead of full pathname (which was probably a bug due to / vs \ ) */
- programVersion = (char*) malloc(8 + strlen(PACKAGE_STRING) + strlen(first.tidy));
- sprintf(programVersion, "%s + %s", PACKAGE_STRING, first.tidy);
- }
-}
-
-void
-UnloadEngine (ChessProgramState *cps)
-{
- /* Kill off first chess program */
- if (cps->isr != NULL)
- RemoveInputSource(cps->isr);
- cps->isr = NULL;
-
- if (cps->pr != NoProc) {
- ExitAnalyzeMode();
- DoSleep( appData.delayBeforeQuit );
- SendToProgram("quit\n", cps);
- DestroyChildProcess(cps->pr, 4 + cps->useSigterm);
- }
- cps->pr = NoProc;
- if(appData.debugMode) fprintf(debugFP, "Unload %s\n", cps->which);
-}
-
-void
-ClearOptions (ChessProgramState *cps)
-{
- int i;
- cps->nrOptions = cps->comboCnt = 0;
- for(i=0; i<MAX_OPTIONS; i++) {
- cps->option[i].min = cps->option[i].max = cps->option[i].value = 0;
- cps->option[i].textValue = 0;
- }
-}
-
-char *engineNames[] = {
- /* TRANSLATORS: "first" is the first of possible two chess engines. It is inserted into strings
- such as "%s engine" / "%s chess program" / "%s machine" - all meaning the same thing */
-N_("first"),
- /* TRANSLATORS: "second" is the second of possible two chess engines. It is inserted into strings
- such as "%s engine" / "%s chess program" / "%s machine" - all meaning the same thing */
-N_("second")
-};
-
-void
-InitEngine (ChessProgramState *cps, int n)
-{ // [HGM] all engine initialiation put in a function that does one engine
-
- ClearOptions(cps);
-
- cps->which = engineNames[n];
- cps->maybeThinking = FALSE;
- cps->pr = NoProc;
- cps->isr = NULL;
- cps->sendTime = 2;
- cps->sendDrawOffers = 1;
-
- cps->program = appData.chessProgram[n];
- cps->host = appData.host[n];
- cps->dir = appData.directory[n];
- cps->initString = appData.engInitString[n];
- cps->computerString = appData.computerString[n];
- cps->useSigint = TRUE;
- cps->useSigterm = TRUE;
- cps->reuse = appData.reuse[n];
- cps->nps = appData.NPS[n]; // [HGM] nps: copy nodes per second
- cps->useSetboard = FALSE;
- cps->useSAN = FALSE;
- cps->usePing = FALSE;
- cps->lastPing = 0;
- cps->lastPong = 0;
- cps->usePlayother = FALSE;
- cps->useColors = TRUE;
- cps->useUsermove = FALSE;
- cps->sendICS = FALSE;
- cps->sendName = appData.icsActive;
- cps->sdKludge = FALSE;
- cps->stKludge = FALSE;
- if(cps->tidy == NULL) cps->tidy = (char*) malloc(MSG_SIZ);
- TidyProgramName(cps->program, cps->host, cps->tidy);
- cps->matchWins = 0;
- ASSIGN(cps->variants, appData.noChessProgram ? "" : appData.variant);
- cps->analysisSupport = 2; /* detect */
- cps->analyzing = FALSE;
- cps->initDone = FALSE;
- cps->reload = FALSE;
- cps->pseudo = appData.pseudo[n];
-
- /* New features added by Tord: */
- cps->useFEN960 = FALSE;
- cps->useOOCastle = TRUE;
- /* End of new features added by Tord. */
- cps->fenOverride = appData.fenOverride[n];
-
- /* [HGM] time odds: set factor for each machine */
- cps->timeOdds = appData.timeOdds[n];
-
- /* [HGM] secondary TC: how to handle sessions that do not fit in 'level'*/
- cps->accumulateTC = appData.accumulateTC[n];
- cps->maxNrOfSessions = 1;
-
- /* [HGM] debug */
- cps->debug = FALSE;
-
- cps->drawDepth = appData.drawDepth[n];
- cps->supportsNPS = UNKNOWN;
- cps->memSize = FALSE;
- cps->maxCores = FALSE;
- ASSIGN(cps->egtFormats, "");
-
- /* [HGM] options */
- cps->optionSettings = appData.engOptions[n];
-
- cps->scoreIsAbsolute = appData.scoreIsAbsolute[n]; /* [AS] */
- cps->isUCI = appData.isUCI[n]; /* [AS] */
- cps->hasOwnBookUCI = appData.hasOwnBookUCI[n]; /* [AS] */
- cps->highlight = 0;
-
- if (appData.protocolVersion[n] > PROTOVER
- || appData.protocolVersion[n] < 1)
- {
- char buf[MSG_SIZ];
- int len;
-
- len = snprintf(buf, MSG_SIZ, _("protocol version %d not supported"),
- appData.protocolVersion[n]);
- if( (len >= MSG_SIZ) && appData.debugMode )
- fprintf(debugFP, "InitBackEnd1: buffer truncated.\n");
-
- DisplayFatalError(buf, 0, 2);
- }
- else
- {
- cps->protocolVersion = appData.protocolVersion[n];
- }
-
- InitEngineUCI( installDir, cps ); // [HGM] moved here from winboard.c, to make available in xboard
- ParseFeatures(appData.featureDefaults, cps);
-}
-
-ChessProgramState *savCps;
-
-GameMode oldMode;
-
-void
-LoadEngine ()
-{
- int i;
- if(WaitForEngine(savCps, LoadEngine)) return;
- CommonEngineInit(); // recalculate time odds
- if(gameInfo.variant != StringToVariant(appData.variant)) {
- // we changed variant when loading the engine; this forces us to reset
- Reset(TRUE, savCps != &first);
- oldMode = BeginningOfGame; // to prevent restoring old mode
- }
- InitChessProgram(savCps, FALSE);
- if(gameMode == EditGame) SendToProgram("force\n", savCps); // in EditGame mode engine must be in force mode
- DisplayMessage("", "");
- if (startedFromSetupPosition) SendBoard(savCps, backwardMostMove);
- for (i = backwardMostMove; i < currentMove; i++) SendMoveToProgram(i, savCps);
- ThawUI();
- SetGNUMode();
- if(oldMode == AnalyzeMode) AnalyzeModeEvent();
-}
-
-void
-ReplaceEngine (ChessProgramState *cps, int n)
-{
- oldMode = gameMode; // remember mode, so it can be restored after loading sequence is complete
- keepInfo = 1;
- if(oldMode != BeginningOfGame) EditGameEvent();
- keepInfo = 0;
- UnloadEngine(cps);
- appData.noChessProgram = FALSE;
- appData.clockMode = TRUE;
- InitEngine(cps, n);
- UpdateLogos(TRUE);
- if(n) return; // only startup first engine immediately; second can wait
- savCps = cps; // parameter to LoadEngine passed as globals, to allow scheduled calling :-(
- LoadEngine();
-}
-
-extern char *engineName, *engineDir, *engineChoice, *engineLine, *nickName, *params;
-extern Boolean isUCI, hasBook, storeVariant, v1, addToList, useNick;
-
-static char resetOptions[] =
- "-reuse -firstIsUCI false -firstHasOwnBookUCI true -firstTimeOdds 1 "
- "-firstInitString \"" INIT_STRING "\" -firstComputerString \"" COMPUTER_STRING "\" "
- "-firstFeatures \"\" -firstLogo \"\" -firstAccumulateTC 1 -fd \".\" "
- "-firstOptions \"\" -firstNPS -1 -fn \"\" -firstScoreAbs false";
-
-void
-FloatToFront(char **list, char *engineLine)
-{
- char buf[MSG_SIZ], tidy[MSG_SIZ], *p = buf, *q, *r = buf;
- int i=0;
- if(appData.recentEngines <= 0) return;
- TidyProgramName(engineLine, "localhost", tidy+1);
- tidy[0] = buf[0] = '\n'; strcat(tidy, "\n");
- strncpy(buf+1, *list, MSG_SIZ-50);
- if(p = strstr(buf, tidy)) { // tidy name appears in list
- q = strchr(++p, '\n'); if(q == NULL) return; // malformed, don't touch
- while(*p++ = *++q); // squeeze out
- }
- strcat(tidy, buf+1); // put list behind tidy name
- p = tidy + 1; while(q = strchr(p, '\n')) i++, r = p, p = q + 1; // count entries in new list
- if(i > appData.recentEngines) *r = NULLCHAR; // if maximum rached, strip off last
- ASSIGN(*list, tidy+1);
-}
-
-char *insert, *wbOptions; // point in ChessProgramNames were we should insert new engine
-
-void
-Load (ChessProgramState *cps, int i)
-{
- char *p, *q, buf[MSG_SIZ], command[MSG_SIZ], buf2[MSG_SIZ], buf3[MSG_SIZ], jar;
- if(engineLine && engineLine[0]) { // an engine was selected from the combo box
- snprintf(buf, MSG_SIZ, "-fcp %s", engineLine);
- SwapEngines(i); // kludge to parse -f* / -first* like it is -s* / -second*
- ParseArgsFromString(resetOptions); appData.pvSAN[0] = FALSE;
- FREE(appData.fenOverride[0]); appData.fenOverride[0] = NULL;
- appData.firstProtocolVersion = PROTOVER;
- ParseArgsFromString(buf);
- SwapEngines(i);
- ReplaceEngine(cps, i);
- FloatToFront(&appData.recentEngineList, engineLine);
- if(gameMode == BeginningOfGame) Reset(TRUE, TRUE);
- return;
- }
- p = engineName;
- while(q = strchr(p, SLASH)) p = q+1;
- if(*p== NULLCHAR) { DisplayError(_("You did not specify the engine executable"), 0); return; }
- if(engineDir[0] != NULLCHAR) {
- ASSIGN(appData.directory[i], engineDir); p = engineName;
- } else if(p != engineName) { // derive directory from engine path, when not given
- p[-1] = 0;
- ASSIGN(appData.directory[i], engineName);
- p[-1] = SLASH;
- if(SLASH == '/' && p - engineName > 1) *(p -= 2) = '.'; // for XBoard use ./exeName as command after split!
- } else { ASSIGN(appData.directory[i], "."); }
- jar = (strstr(p, ".jar") == p + strlen(p) - 4);
- if(params[0]) {
- if(strchr(p, ' ') && !strchr(p, '"')) snprintf(buf2, MSG_SIZ, "\"%s\"", p), p = buf2; // quote if it contains spaces
- snprintf(command, MSG_SIZ, "%s %s", p, params);
- p = command;
- }
- if(jar) { snprintf(buf3, MSG_SIZ, "java -jar %s", p); p = buf3; }
- ASSIGN(appData.chessProgram[i], p);
- appData.isUCI[i] = isUCI;
- appData.protocolVersion[i] = v1 ? 1 : PROTOVER;
- appData.hasOwnBookUCI[i] = hasBook;
- if(!nickName[0]) useNick = FALSE;
- if(useNick) ASSIGN(appData.pgnName[i], nickName);
- if(addToList) {
- int len;
- char quote;
- q = firstChessProgramNames;
- if(nickName[0]) snprintf(buf, MSG_SIZ, "\"%s\" -fcp ", nickName); else buf[0] = NULLCHAR;
- quote = strchr(p, '"') ? '\'' : '"'; // use single quotes around engine command if it contains double quotes
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), "%c%s%c -fd \"%s\"%s%s%s%s%s%s%s%s\n",
- quote, p, quote, appData.directory[i],
- useNick ? " -fn \"" : "",
- useNick ? nickName : "",
- useNick ? "\"" : "",
- v1 ? " -firstProtocolVersion 1" : "",
- hasBook ? "" : " -fNoOwnBookUCI",
- isUCI ? (isUCI == TRUE ? " -fUCI" : gameInfo.variant == VariantShogi ? " -fUSI" : " -fUCCI") : "",
- storeVariant ? " -variant " : "",
- storeVariant ? VariantName(gameInfo.variant) : "");
- if(wbOptions && wbOptions[0]) snprintf(buf+strlen(buf)-1, MSG_SIZ-strlen(buf), " %s\n", wbOptions);
- firstChessProgramNames = malloc(len = strlen(q) + strlen(buf) + 1);
- if(insert != q) insert[-1] = NULLCHAR;
- snprintf(firstChessProgramNames, len, "%s\n%s%s", q, buf, insert);
- if(q) free(q);
- FloatToFront(&appData.recentEngineList, buf);
- }
- ReplaceEngine(cps, i);
-}
-
-void
-InitTimeControls ()
-{
- int matched, min, sec;
- /*
- * Parse timeControl resource
- */
- if (!ParseTimeControl(appData.timeControl, appData.timeIncrement,
- appData.movesPerSession)) {
- char buf[MSG_SIZ];
- snprintf(buf, sizeof(buf), _("bad timeControl option %s"), appData.timeControl);
- DisplayFatalError(buf, 0, 2);
- }
-
- /*
- * Parse searchTime resource
- */
- if (*appData.searchTime != NULLCHAR) {
- matched = sscanf(appData.searchTime, "%d:%d", &min, &sec);
- if (matched == 1) {
- searchTime = min * 60;
- } else if (matched == 2) {
- searchTime = min * 60 + sec;
- } else {
- char buf[MSG_SIZ];
- snprintf(buf, sizeof(buf), _("bad searchTime option %s"), appData.searchTime);
- DisplayFatalError(buf, 0, 2);
- }
- }
-}
-
-void
-InitBackEnd1 ()
-{
-
- ShowThinkingEvent(); // [HGM] thinking: make sure post/nopost state is set according to options
- startVariant = StringToVariant(appData.variant); // [HGM] nicks: remember original variant
-
- GetTimeMark(&programStartTime);
- srandom((programStartTime.ms + 1000*programStartTime.sec)*0x1001001); // [HGM] book: makes sure random is unpredictabe to msec level
- appData.seedBase = random() + (random()<<15);
- pauseStart = programStartTime; pauseStart.sec -= 100; // [HGM] matchpause: fake a pause that has long since ended
-
- ClearProgramStats();
- programStats.ok_to_send = 1;
- programStats.seen_stat = 0;
-
- /*
- * Initialize game list
- */
- ListNew(&gameList);
-
-
- /*
- * Internet chess server status
- */
- if (appData.icsActive) {
- appData.matchMode = FALSE;
- appData.matchGames = 0;
-#if ZIPPY
- appData.noChessProgram = !appData.zippyPlay;
-#else
- appData.zippyPlay = FALSE;
- appData.zippyTalk = FALSE;
- appData.noChessProgram = TRUE;
-#endif
- if (*appData.icsHelper != NULLCHAR) {
- appData.useTelnet = TRUE;
- appData.telnetProgram = appData.icsHelper;
- }
- } else {
- appData.zippyTalk = appData.zippyPlay = FALSE;
- }
-
- /* [AS] Initialize pv info list [HGM] and game state */
- {
- int i, j;
-
- for( i=0; i<=framePtr; i++ ) {
- pvInfoList[i].depth = -1;
- boards[i][EP_STATUS] = EP_NONE;
- for( j=0; j<BOARD_FILES-2; j++ ) boards[i][CASTLING][j] = NoRights;
- }
- }
-
- InitTimeControls();
-
- /* [AS] Adjudication threshold */
- adjudicateLossThreshold = appData.adjudicateLossThreshold;
-
- InitEngine(&first, 0);
- InitEngine(&second, 1);
- CommonEngineInit();
-
- pairing.which = "pairing"; // pairing engine
- pairing.pr = NoProc;
- pairing.isr = NULL;
- pairing.program = appData.pairingEngine;
- pairing.host = "localhost";
- pairing.dir = ".";
-
- if (appData.icsActive) {
- appData.clockMode = TRUE; /* changes dynamically in ICS mode */
- } else if (appData.noChessProgram) { // [HGM] st: searchTime mode now also is clockMode
- appData.clockMode = FALSE;
- first.sendTime = second.sendTime = 0;
- }
-
-#if ZIPPY
- /* Override some settings from environment variables, for backward
- compatibility. Unfortunately it's not feasible to have the env
- vars just set defaults, at least in xboard. Ugh.
- */
- if (appData.icsActive && (appData.zippyPlay || appData.zippyTalk)) {
- ZippyInit();
- }
-#endif
-
- if (!appData.icsActive) {
- char buf[MSG_SIZ];
- int len;
-
- /* Check for variants that are supported only in ICS mode,
- or not at all. Some that are accepted here nevertheless
- have bugs; see comments below.
- */
- VariantClass variant = StringToVariant(appData.variant);
- switch (variant) {
- case VariantBughouse: /* need four players and two boards */
- case VariantKriegspiel: /* need to hide pieces and move details */
- /* case VariantFischeRandom: (Fabien: moved below) */
- len = snprintf(buf,MSG_SIZ, _("Variant %s supported only in ICS mode"), appData.variant);
- if( (len >= MSG_SIZ) && appData.debugMode )
- fprintf(debugFP, "InitBackEnd1: buffer truncated.\n");
-
- DisplayFatalError(buf, 0, 2);
- return;
-
- case VariantUnknown:
- case VariantLoadable:
- case Variant29:
- case Variant30:
- case Variant31:
- case Variant32:
- case Variant33:
- case Variant34:
- case Variant35:
- case Variant36:
- default:
- len = snprintf(buf, MSG_SIZ, _("Unknown variant name %s"), appData.variant);
- if( (len >= MSG_SIZ) && appData.debugMode )
- fprintf(debugFP, "InitBackEnd1: buffer truncated.\n");
-
- DisplayFatalError(buf, 0, 2);
- return;
-
- case VariantNormal: /* definitely works! */
- if(strcmp(appData.variant, "normal") && !appData.noChessProgram) { // [HGM] hope this is an engine-defined variant
- safeStrCpy(engineVariant, appData.variant, MSG_SIZ);
- return;
- }
- case VariantXiangqi: /* [HGM] repetition rules not implemented */
- case VariantFairy: /* [HGM] TestLegality definitely off! */
- case VariantGothic: /* [HGM] should work */
- case VariantCapablanca: /* [HGM] should work */
- case VariantCourier: /* [HGM] initial forced moves not implemented */
- case VariantShogi: /* [HGM] could still mate with pawn drop */
- case VariantChu: /* [HGM] experimental */
- case VariantKnightmate: /* [HGM] should work */
- case VariantCylinder: /* [HGM] untested */
- case VariantFalcon: /* [HGM] untested */
- case VariantCrazyhouse: /* holdings not shown, ([HGM] fixed that!)
- offboard interposition not understood */
- case VariantWildCastle: /* pieces not automatically shuffled */
- case VariantNoCastle: /* pieces not automatically shuffled */
- case VariantFischeRandom: /* [HGM] works and shuffles pieces */
- case VariantLosers: /* should work except for win condition,
- and doesn't know captures are mandatory */
- case VariantSuicide: /* should work except for win condition,
- and doesn't know captures are mandatory */
- case VariantGiveaway: /* should work except for win condition,
- and doesn't know captures are mandatory */
- case VariantTwoKings: /* should work */
- case VariantAtomic: /* should work except for win condition */
- case Variant3Check: /* should work except for win condition */
- case VariantShatranj: /* should work except for all win conditions */
- case VariantMakruk: /* should work except for draw countdown */
- case VariantASEAN : /* should work except for draw countdown */
- case VariantBerolina: /* might work if TestLegality is off */
- case VariantCapaRandom: /* should work */
- case VariantJanus: /* should work */
- case VariantSuper: /* experimental */
- case VariantGreat: /* experimental, requires legality testing to be off */
- case VariantSChess: /* S-Chess, should work */
- case VariantGrand: /* should work */
- case VariantSpartan: /* should work */
- case VariantLion: /* should work */
- case VariantChuChess: /* should work */
- break;
- }
- }
-
-}
-
-int
-NextIntegerFromString (char ** str, long * value)
-{
- int result = -1;
- char * s = *str;
-
- while( *s == ' ' || *s == '\t' ) {
- s++;
- }
-
- *value = 0;
-
- if( *s >= '0' && *s <= '9' ) {
- while( *s >= '0' && *s <= '9' ) {
- *value = *value * 10 + (*s - '0');
- s++;
- }
-
- result = 0;
- }
-
- *str = s;
-
- return result;
-}
-
-int
-NextTimeControlFromString (char ** str, long * value)
-{
- long temp;
- int result = NextIntegerFromString( str, &temp );
-
- if( result == 0 ) {
- *value = temp * 60; /* Minutes */
- if( **str == ':' ) {
- (*str)++;
- result = NextIntegerFromString( str, &temp );
- *value += temp; /* Seconds */
- }
- }
-
- return result;
-}
-
-int
-NextSessionFromString (char ** str, int *moves, long * tc, long *inc, int *incType)
-{ /* [HGM] routine added to read '+moves/time' for secondary time control. */
- int result = -1, type = 0; long temp, temp2;
-
- if(**str != ':') return -1; // old params remain in force!
- (*str)++;
- if(**str == '*') type = *(*str)++, temp = 0; // sandclock TC
- if( NextIntegerFromString( str, &temp ) ) return -1;
- if(type) { *moves = 0; *tc = temp * 500; *inc = temp * 1000; *incType = '*'; return 0; }
-
- if(**str != '/') {
- /* time only: incremental or sudden-death time control */
- if(**str == '+') { /* increment follows; read it */
- (*str)++;
- if(**str == '!') type = *(*str)++; // Bronstein TC
- if(result = NextIntegerFromString( str, &temp2)) return -1;
- *inc = temp2 * 1000;
- if(**str == '.') { // read fraction of increment
- char *start = ++(*str);
- if(result = NextIntegerFromString( str, &temp2)) return -1;
- temp2 *= 1000;
- while(start++ < *str) temp2 /= 10;
- *inc += temp2;
- }
- } else *inc = 0;
- *moves = 0; *tc = temp * 1000; *incType = type;
- return 0;
- }
-
- (*str)++; /* classical time control */
- result = NextIntegerFromString( str, &temp2); // NOTE: already converted to seconds by ParseTimeControl()
-
- if(result == 0) {
- *moves = temp;
- *tc = temp2 * 1000;
- *inc = 0;
- *incType = type;
- }
- return result;
-}
-
-int
-GetTimeQuota (int movenr, int lastUsed, char *tcString)
-{ /* [HGM] get time to add from the multi-session time-control string */
- int incType, moves=1; /* kludge to force reading of first session */
- long time, increment;
- char *s = tcString;
-
- if(!s || !*s) return 0; // empty TC string means we ran out of the last sudden-death version
- do {
- if(moves) NextSessionFromString(&s, &moves, &time, &increment, &incType);
- nextSession = s; suddenDeath = moves == 0 && increment == 0;
- if(movenr == -1) return time; /* last move before new session */
- if(incType == '*') increment = 0; else // for sandclock, time is added while not thinking
- if(incType == '!' && lastUsed < increment) increment = lastUsed;
- if(!moves) return increment; /* current session is incremental */
- if(movenr >= 0) movenr -= moves; /* we already finished this session */
- } while(movenr >= -1); /* try again for next session */
-
- return 0; // no new time quota on this move
-}
-
-int
-ParseTimeControl (char *tc, float ti, int mps)
-{
- long tc1;
- long tc2;
- char buf[MSG_SIZ], buf2[MSG_SIZ], *mytc = tc;
- int min, sec=0;
-
- if(ti >= 0 && !strchr(tc, '+') && !strchr(tc, '/') ) mps = 0;
- if(!strchr(tc, '+') && !strchr(tc, '/') && sscanf(tc, "%d:%d", &min, &sec) >= 1)
- sprintf(mytc=buf2, "%d", 60*min+sec); // convert 'classical' min:sec tc string to seconds
- if(ti > 0) {
-
- if(mps)
- snprintf(buf, MSG_SIZ, ":%d/%s+%g", mps, mytc, ti);
- else
- snprintf(buf, MSG_SIZ, ":%s+%g", mytc, ti);
- } else {
- if(mps)
- snprintf(buf, MSG_SIZ, ":%d/%s", mps, mytc);
- else
- snprintf(buf, MSG_SIZ, ":%s", mytc);
- }
- fullTimeControlString = StrSave(buf); // this should now be in PGN format
-
- if( NextTimeControlFromString( &tc, &tc1 ) != 0 ) {
- return FALSE;
- }
-
- if( *tc == '/' ) {
- /* Parse second time control */
- tc++;
-
- if( NextTimeControlFromString( &tc, &tc2 ) != 0 ) {
- return FALSE;
- }
-
- if( tc2 == 0 ) {
- return FALSE;
- }
-
- timeControl_2 = tc2 * 1000;
- }
- else {
- timeControl_2 = 0;
- }
-
- if( tc1 == 0 ) {
- return FALSE;
- }
-
- timeControl = tc1 * 1000;
-
- if (ti >= 0) {
- timeIncrement = ti * 1000; /* convert to ms */
- movesPerSession = 0;
- } else {
- timeIncrement = 0;
- movesPerSession = mps;
- }
- return TRUE;
-}
-
-void
-InitBackEnd2 ()
-{
- if (appData.debugMode) {
-# ifdef __GIT_VERSION
- fprintf(debugFP, "Version: %s (%s)\n", programVersion, __GIT_VERSION);
-# else
- fprintf(debugFP, "Version: %s\n", programVersion);
-# endif
- }
- ASSIGN(currentDebugFile, appData.nameOfDebugFile); // [HGM] debug split: remember initial name in use
-
- set_cont_sequence(appData.wrapContSeq);
- if (appData.matchGames > 0) {
- appData.matchMode = TRUE;
- } else if (appData.matchMode) {
- appData.matchGames = 1;
- }
- if(appData.matchMode && appData.sameColorGames > 0) /* [HGM] alternate: overrule matchGames */
- appData.matchGames = appData.sameColorGames;
- if(appData.rewindIndex > 1) { /* [HGM] autoinc: rewind implies auto-increment and overrules given index */
- if(appData.loadPositionIndex >= 0) appData.loadPositionIndex = -1;
- if(appData.loadGameIndex >= 0) appData.loadGameIndex = -1;
- }
- Reset(TRUE, FALSE);
- if (appData.noChessProgram || first.protocolVersion == 1) {
- InitBackEnd3();
- } else {
- /* kludge: allow timeout for initial "feature" commands */
- FreezeUI();
- DisplayMessage("", _("Starting chess program"));
- ScheduleDelayedEvent(InitBackEnd3, FEATURE_TIMEOUT);
- }
-}
-
-int
-CalculateIndex (int index, int gameNr)
-{ // [HGM] autoinc: absolute way to determine load index from game number (taking auto-inc and rewind into account)
- int res;
- if(index > 0) return index; // fixed nmber
- if(index == 0) return 1;
- res = (index == -1 ? gameNr : (gameNr-1)/2 + 1); // autoinc
- if(appData.rewindIndex > 0) res = (res-1) % appData.rewindIndex + 1; // rewind
- return res;
-}
-
-int
-LoadGameOrPosition (int gameNr)
-{ // [HGM] taken out of MatchEvent and NextMatchGame (to combine it)
- if (*appData.loadGameFile != NULLCHAR) {
- if (!LoadGameFromFile(appData.loadGameFile,
- CalculateIndex(appData.loadGameIndex, gameNr),
- appData.loadGameFile, FALSE)) {
- DisplayFatalError(_("Bad game file"), 0, 1);
- return 0;
- }
- } else if (*appData.loadPositionFile != NULLCHAR) {
- if (!LoadPositionFromFile(appData.loadPositionFile,
- CalculateIndex(appData.loadPositionIndex, gameNr),
- appData.loadPositionFile)) {
- DisplayFatalError(_("Bad position file"), 0, 1);
- return 0;
- }
- }
- return 1;
-}
-
-void
-ReserveGame (int gameNr, char resChar)
-{
- FILE *tf = fopen(appData.tourneyFile, "r+");
- char *p, *q, c, buf[MSG_SIZ];
- if(tf == NULL) { nextGame = appData.matchGames + 1; return; } // kludge to terminate match
- safeStrCpy(buf, lastMsg, MSG_SIZ);
- DisplayMessage(_("Pick new game"), "");
- flock(fileno(tf), LOCK_EX); // lock the tourney file while we are messing with it
- ParseArgsFromFile(tf);
- p = q = appData.results;
- if(appData.debugMode) {
- char *r = appData.participants;
- fprintf(debugFP, "results = '%s'\n", p);
- while(*r) fprintf(debugFP, *r >= ' ' ? "%c" : "\\%03o", *r), r++;
- fprintf(debugFP, "\n");
- }
- while(*q && *q != ' ') q++; // get first un-played game (could be beyond end!)
- nextGame = q - p;
- q = malloc(strlen(p) + 2); // could be arbitrary long, but allow to extend by one!
- safeStrCpy(q, p, strlen(p) + 2);
- if(gameNr >= 0) q[gameNr] = resChar; // replace '*' with result
- if(appData.debugMode) fprintf(debugFP, "pick next game from '%s': %d\n", q, nextGame);
- if(nextGame <= appData.matchGames && resChar != ' ' && !abortMatch) { // reserve next game if tourney not yet done
- if(q[nextGame] == NULLCHAR) q[nextGame+1] = NULLCHAR; // append one char
- q[nextGame] = '*';
- }
- fseek(tf, -(strlen(p)+4), SEEK_END);
- c = fgetc(tf);
- if(c != '"') // depending on DOS or Unix line endings we can be one off
- fseek(tf, -(strlen(p)+2), SEEK_END);
- else fseek(tf, -(strlen(p)+3), SEEK_END);
- fprintf(tf, "%s\"\n", q); fclose(tf); // update, and flush by closing
- DisplayMessage(buf, "");
- free(p); appData.results = q;
- if(nextGame <= appData.matchGames && resChar != ' ' && !abortMatch &&
- (gameNr < 0 || nextGame / appData.defaultMatchGames != gameNr / appData.defaultMatchGames)) {
- int round = appData.defaultMatchGames * appData.tourneyType;
- if(gameNr < 0 || appData.tourneyType < 1 || // gauntlet engine can always stay loaded as first engine
- appData.tourneyType > 1 && nextGame/round != gameNr/round) // in multi-gauntlet change only after round
- UnloadEngine(&first); // next game belongs to other pairing;
- UnloadEngine(&second); // already unload the engines, so TwoMachinesEvent will load new ones.
- }
- if(appData.debugMode) fprintf(debugFP, "Reserved, next=%d, nr=%d\n", nextGame, gameNr);
-}
-
-void
-MatchEvent (int mode)
-{ // [HGM] moved out of InitBackend3, to make it callable when match starts through menu
- int dummy;
- if(matchMode) { // already in match mode: switch it off
- abortMatch = TRUE;
- if(!appData.tourneyFile[0]) appData.matchGames = matchGame; // kludge to let match terminate after next game.
- return;
- }
-// if(gameMode != BeginningOfGame) {
-// DisplayError(_("You can only start a match from the initial position."), 0);
-// return;
-// }
- abortMatch = FALSE;
- if(mode == 2) appData.matchGames = appData.defaultMatchGames;
- /* Set up machine vs. machine match */
- nextGame = 0;
- NextTourneyGame(-1, &dummy); // sets appData.matchGames if this is tourney, to make sure ReserveGame knows it
- if(appData.tourneyFile[0]) {
- ReserveGame(-1, 0);
- if(nextGame > appData.matchGames) {
- char buf[MSG_SIZ];
- if(strchr(appData.results, '*') == NULL) {
- FILE *f;
- appData.tourneyCycles++;
- if(f = WriteTourneyFile(appData.results, NULL)) { // make a tourney file with increased number of cycles
- fclose(f);
- NextTourneyGame(-1, &dummy);
- ReserveGame(-1, 0);
- if(nextGame <= appData.matchGames) {
- DisplayNote(_("You restarted an already completed tourney.\nOne more cycle will now be added to it.\nGames commence in 10 sec."));
- matchMode = mode;
- ScheduleDelayedEvent(NextMatchGame, 10000);
- return;
- }
- }
- }
- snprintf(buf, MSG_SIZ, _("All games in tourney '%s' are already played or playing"), appData.tourneyFile);
- DisplayError(buf, 0);
- appData.tourneyFile[0] = 0;
- return;
- }
- } else
- if (appData.noChessProgram) { // [HGM] in tourney engines are loaded automatically
- DisplayFatalError(_("Can't have a match with no chess programs"),
- 0, 2);
- return;
- }
- matchMode = mode;
- matchGame = roundNr = 1;
- first.matchWins = second.matchWins = totalTime = 0; // [HGM] match: needed in later matches
- NextMatchGame();
-}
-
-char *comboLine = NULL; // [HGM] recent: WinBoard's first-engine combobox line
-
-void
-InitBackEnd3 P((void))
-{
- GameMode initialMode;
- char buf[MSG_SIZ];
- int err, len;
-
- if(!appData.icsActive && !appData.noChessProgram && !appData.matchMode && // mode involves only first engine
- !strcmp(appData.variant, "normal") && // no explicit variant request
- appData.NrRanks == -1 && appData.NrFiles == -1 && appData.holdingsSize == -1 && // no size overrides requested
- !SupportedVariant(first.variants, VariantNormal, 8, 8, 0, first.protocolVersion, "") && // but 'normal' won't work with engine
- !SupportedVariant(first.variants, VariantFischeRandom, 8, 8, 0, first.protocolVersion, "") ) { // nor will Chess960
- char c, *q = first.variants, *p = strchr(q, ',');
- if(p) *p = NULLCHAR;
- if(StringToVariant(q) != VariantUnknown) { // the engine can play a recognized variant, however
- int w, h, s;
- if(sscanf(q, "%dx%d+%d_%c", &w, &h, &s, &c) == 4) // get size overrides the engine needs with it (if any)
- appData.NrFiles = w, appData.NrRanks = h, appData.holdingsSize = s, q = strchr(q, '_') + 1;
- ASSIGN(appData.variant, q); // fake user requested the first variant played by the engine
- Reset(TRUE, FALSE); // and re-initialize
- }
- if(p) *p = ',';
- }
-
- InitChessProgram(&first, startedFromSetupPosition);
-
- if(!appData.noChessProgram) { /* [HGM] tidy: redo program version to use name from myname feature */
- free(programVersion);
- programVersion = (char*) malloc(8 + strlen(PACKAGE_STRING) + strlen(first.tidy));
- sprintf(programVersion, "%s + %s", PACKAGE_STRING, first.tidy);
- FloatToFront(&appData.recentEngineList, comboLine ? comboLine : appData.firstChessProgram);
- }
-
- if (appData.icsActive) {
-#ifdef WIN32
- /* [DM] Make a console window if needed [HGM] merged ifs */
- ConsoleCreate();
-#endif
- err = establish();
- if (err != 0)
- {
- if (*appData.icsCommPort != NULLCHAR)
- len = snprintf(buf, MSG_SIZ, _("Could not open comm port %s"),
- appData.icsCommPort);
- else
- len = snprintf(buf, MSG_SIZ, _("Could not connect to host %s, port %s"),
- appData.icsHost, appData.icsPort);
-
- if( (len >= MSG_SIZ) && appData.debugMode )
- fprintf(debugFP, "InitBackEnd3: buffer truncated.\n");
-
- DisplayFatalError(buf, err, 1);
- return;
- }
- SetICSMode();
- telnetISR =
- AddInputSource(icsPR, FALSE, read_from_ics, &telnetISR);
- fromUserISR =
- AddInputSource(NoProc, FALSE, read_from_player, &fromUserISR);
- if(appData.keepAlive) // [HGM] alive: schedule sending of dummy 'date' command
- ScheduleDelayedEvent(KeepAlive, appData.keepAlive*60*1000);
- } else if (appData.noChessProgram) {
- SetNCPMode();
- } else {
- SetGNUMode();
- }
-
- if (*appData.cmailGameName != NULLCHAR) {
- SetCmailMode();
- OpenLoopback(&cmailPR);
- cmailISR =
- AddInputSource(cmailPR, FALSE, CmailSigHandlerCallBack, &cmailISR);
- }
-
- ThawUI();
- DisplayMessage("", "");
- if (StrCaseCmp(appData.initialMode, "") == 0) {
- initialMode = BeginningOfGame;
- if(!appData.icsActive && appData.noChessProgram) { // [HGM] could be fall-back
- gameMode = MachinePlaysBlack; // "Machine Black" might have been implicitly highlighted
- ModeHighlight(); // make sure XBoard knows it is highlighted, so it will un-highlight it
- gameMode = BeginningOfGame; // in case BeginningOfGame now means "Edit Position"
- ModeHighlight();
- }
- } else if (StrCaseCmp(appData.initialMode, "TwoMachines") == 0) {
- initialMode = TwoMachinesPlay;
- } else if (StrCaseCmp(appData.initialMode, "AnalyzeFile") == 0) {
- initialMode = AnalyzeFile;
- } else if (StrCaseCmp(appData.initialMode, "Analysis") == 0) {
- initialMode = AnalyzeMode;
- } else if (StrCaseCmp(appData.initialMode, "MachineWhite") == 0) {
- initialMode = MachinePlaysWhite;
- } else if (StrCaseCmp(appData.initialMode, "MachineBlack") == 0) {
- initialMode = MachinePlaysBlack;
- } else if (StrCaseCmp(appData.initialMode, "EditGame") == 0) {
- initialMode = EditGame;
- } else if (StrCaseCmp(appData.initialMode, "EditPosition") == 0) {
- initialMode = EditPosition;
- } else if (StrCaseCmp(appData.initialMode, "Training") == 0) {
- initialMode = Training;
- } else {
- len = snprintf(buf, MSG_SIZ, _("Unknown initialMode %s"), appData.initialMode);
- if( (len >= MSG_SIZ) && appData.debugMode )
- fprintf(debugFP, "InitBackEnd3: buffer truncated.\n");
-
- DisplayFatalError(buf, 0, 2);
- return;
- }
-
- if (appData.matchMode) {
- if(appData.tourneyFile[0]) { // start tourney from command line
- FILE *f;
- if(f = fopen(appData.tourneyFile, "r")) {
- ParseArgsFromFile(f); // make sure tourney parmeters re known
- fclose(f);
- appData.clockMode = TRUE;
- SetGNUMode();
- } else appData.tourneyFile[0] = NULLCHAR; // for now ignore bad tourney file
- }
- MatchEvent(TRUE);
- } else if (*appData.cmailGameName != NULLCHAR) {
- /* Set up cmail mode */
- ReloadCmailMsgEvent(TRUE);
- } else {
- /* Set up other modes */
- if (initialMode == AnalyzeFile) {
- if (*appData.loadGameFile == NULLCHAR) {
- DisplayFatalError(_("AnalyzeFile mode requires a game file"), 0, 1);
- return;
- }
- }
- if (*appData.loadGameFile != NULLCHAR) {
- (void) LoadGameFromFile(appData.loadGameFile,
- appData.loadGameIndex,
- appData.loadGameFile, TRUE);
- } else if (*appData.loadPositionFile != NULLCHAR) {
- (void) LoadPositionFromFile(appData.loadPositionFile,
- appData.loadPositionIndex,
- appData.loadPositionFile);
- /* [HGM] try to make self-starting even after FEN load */
- /* to allow automatic setup of fairy variants with wtm */
- if(initialMode == BeginningOfGame && !blackPlaysFirst) {
- gameMode = BeginningOfGame;
- setboardSpoiledMachineBlack = 1;
- }
- /* [HGM] loadPos: make that every new game uses the setup */
- /* from file as long as we do not switch variant */
- if(!blackPlaysFirst) {
- startedFromPositionFile = TRUE;
- CopyBoard(filePosition, boards[0]);
- CopyBoard(initialPosition, boards[0]);
- }
- } else if(*appData.fen != NULLCHAR) {
- if(ParseFEN(filePosition, &blackPlaysFirst, appData.fen, TRUE) && !blackPlaysFirst) {
- startedFromPositionFile = TRUE;
- Reset(TRUE, TRUE);
- }
- }
- if (initialMode == AnalyzeMode) {
- if (appData.noChessProgram) {
- DisplayFatalError(_("Analysis mode requires a chess engine"), 0, 2);
- return;
- }
- if (appData.icsActive) {
- DisplayFatalError(_("Analysis mode does not work with ICS mode"),0,2);
- return;
- }
- AnalyzeModeEvent();
- } else if (initialMode == AnalyzeFile) {
- appData.showThinking = TRUE; // [HGM] thinking: moved out of ShowThinkingEvent
- ShowThinkingEvent();
- AnalyzeFileEvent();
- AnalysisPeriodicEvent(1);
- } else if (initialMode == MachinePlaysWhite) {
- if (appData.noChessProgram) {
- DisplayFatalError(_("MachineWhite mode requires a chess engine"),
- 0, 2);
- return;
- }
- if (appData.icsActive) {
- DisplayFatalError(_("MachineWhite mode does not work with ICS mode"),
- 0, 2);
- return;
- }
- MachineWhiteEvent();
- } else if (initialMode == MachinePlaysBlack) {
- if (appData.noChessProgram) {
- DisplayFatalError(_("MachineBlack mode requires a chess engine"),
- 0, 2);
- return;
- }
- if (appData.icsActive) {
- DisplayFatalError(_("MachineBlack mode does not work with ICS mode"),
- 0, 2);
- return;
- }
- MachineBlackEvent();
- } else if (initialMode == TwoMachinesPlay) {
- if (appData.noChessProgram) {
- DisplayFatalError(_("TwoMachines mode requires a chess engine"),
- 0, 2);
- return;
- }
- if (appData.icsActive) {
- DisplayFatalError(_("TwoMachines mode does not work with ICS mode"),
- 0, 2);
- return;
- }
- TwoMachinesEvent();
- } else if (initialMode == EditGame) {
- EditGameEvent();
- } else if (initialMode == EditPosition) {
- EditPositionEvent();
- } else if (initialMode == Training) {
- if (*appData.loadGameFile == NULLCHAR) {
- DisplayFatalError(_("Training mode requires a game file"), 0, 2);
- return;
- }
- TrainingEvent();
- }
- }
-}
-
-void
-HistorySet (char movelist[][2*MOVE_LEN], int first, int last, int current)
-{
- DisplayBook(current+1);
-
- MoveHistorySet( movelist, first, last, current, pvInfoList );
-
- EvalGraphSet( first, last, current, pvInfoList );
-
- MakeEngineOutputTitle();
-}
-
-/*
- * Establish will establish a contact to a remote host.port.
- * Sets icsPR to a ProcRef for a process (or pseudo-process)
- * used to talk to the host.
- * Returns 0 if okay, error code if not.
- */
-int
-establish ()
-{
- char buf[MSG_SIZ];
-
- if (*appData.icsCommPort != NULLCHAR) {
- /* Talk to the host through a serial comm port */
- return OpenCommPort(appData.icsCommPort, &icsPR);
-
- } else if (*appData.gateway != NULLCHAR) {
- if (*appData.remoteShell == NULLCHAR) {
- /* Use the rcmd protocol to run telnet program on a gateway host */
- snprintf(buf, sizeof(buf), "%s %s %s",
- appData.telnetProgram, appData.icsHost, appData.icsPort);
- return OpenRcmd(appData.gateway, appData.remoteUser, buf, &icsPR);
-
- } else {
- /* Use the rsh program to run telnet program on a gateway host */
- if (*appData.remoteUser == NULLCHAR) {
- snprintf(buf, sizeof(buf), "%s %s %s %s %s", appData.remoteShell,
- appData.gateway, appData.telnetProgram,
- appData.icsHost, appData.icsPort);
- } else {
- snprintf(buf, sizeof(buf), "%s %s -l %s %s %s %s",
- appData.remoteShell, appData.gateway,
- appData.remoteUser, appData.telnetProgram,
- appData.icsHost, appData.icsPort);
- }
- return StartChildProcess(buf, "", &icsPR);
-
- }
- } else if (appData.useTelnet) {
- return OpenTelnet(appData.icsHost, appData.icsPort, &icsPR);
-
- } else {
- /* TCP socket interface differs somewhat between
- Unix and NT; handle details in the front end.
- */
- return OpenTCP(appData.icsHost, appData.icsPort, &icsPR);
- }
-}
-
-void
-EscapeExpand (char *p, char *q)
-{ // [HGM] initstring: routine to shape up string arguments
- while(*p++ = *q++) if(p[-1] == '\\')
- switch(*q++) {
- case 'n': p[-1] = '\n'; break;
- case 'r': p[-1] = '\r'; break;
- case 't': p[-1] = '\t'; break;
- case '\\': p[-1] = '\\'; break;
- case 0: *p = 0; return;
- default: p[-1] = q[-1]; break;
- }
-}
-
-void
-show_bytes (FILE *fp, char *buf, int count)
-{
- while (count--) {
- if (*buf < 040 || *(unsigned char *) buf > 0177) {
- fprintf(fp, "\\%03o", *buf & 0xff);
- } else {
- putc(*buf, fp);
- }
- buf++;
- }
- fflush(fp);
-}
-
-/* Returns an errno value */
-int
-OutputMaybeTelnet (ProcRef pr, char *message, int count, int *outError)
-{
- char buf[8192], *p, *q, *buflim;
- int left, newcount, outcount;
-
- if (*appData.icsCommPort != NULLCHAR || appData.useTelnet ||
- *appData.gateway != NULLCHAR) {
- if (appData.debugMode) {
- fprintf(debugFP, ">ICS: ");
- show_bytes(debugFP, message, count);
- fprintf(debugFP, "\n");
- }
- return OutputToProcess(pr, message, count, outError);
- }
-
- buflim = &buf[sizeof(buf)-1]; /* allow 1 byte for expanding last char */
- p = message;
- q = buf;
- left = count;
- newcount = 0;
- while (left) {
- if (q >= buflim) {
- if (appData.debugMode) {
- fprintf(debugFP, ">ICS: ");
- show_bytes(debugFP, buf, newcount);
- fprintf(debugFP, "\n");
- }
- outcount = OutputToProcess(pr, buf, newcount, outError);
- if (outcount < newcount) return -1; /* to be sure */
- q = buf;
- newcount = 0;
- }
- if (*p == '\n') {
- *q++ = '\r';
- newcount++;
- } else if (((unsigned char) *p) == TN_IAC) {
- *q++ = (char) TN_IAC;
- newcount ++;
- }
- *q++ = *p++;
- newcount++;
- left--;
- }
- if (appData.debugMode) {
- fprintf(debugFP, ">ICS: ");
- show_bytes(debugFP, buf, newcount);
- fprintf(debugFP, "\n");
- }
- outcount = OutputToProcess(pr, buf, newcount, outError);
- if (outcount < newcount) return -1; /* to be sure */
- return count;
-}
-
-void
-read_from_player (InputSourceRef isr, VOIDSTAR closure, char *message, int count, int error)
-{
- int outError, outCount;
- static int gotEof = 0;
- static FILE *ini;
-
- /* Pass data read from player on to ICS */
- if (count > 0) {
- gotEof = 0;
- outCount = OutputMaybeTelnet(icsPR, message, count, &outError);
- if (outCount < count) {
- DisplayFatalError(_("Error writing to ICS"), outError, 1);
- }
- if(have_sent_ICS_logon == 2) {
- if(ini = fopen(appData.icsLogon, "w")) { // save first two lines (presumably username & password) on init script file
- fprintf(ini, "%s", message);
- have_sent_ICS_logon = 3;
- } else
- have_sent_ICS_logon = 1;
- } else if(have_sent_ICS_logon == 3) {
- fprintf(ini, "%s", message);
- fclose(ini);
- have_sent_ICS_logon = 1;
- }
- } else if (count < 0) {
- RemoveInputSource(isr);
- DisplayFatalError(_("Error reading from keyboard"), error, 1);
- } else if (gotEof++ > 0) {
- RemoveInputSource(isr);
- DisplayFatalError(_("Got end of file from keyboard"), 0, 666); // [HGM] 666 is kludge to alert front end
- }
-}
-
-void
-KeepAlive ()
-{ // [HGM] alive: periodically send dummy (date) command to ICS to prevent time-out
- if(!connectionAlive) DisplayFatalError("No response from ICS", 0, 1);
- connectionAlive = FALSE; // only sticks if no response to 'date' command.
- SendToICS("date\n");
- if(appData.keepAlive) ScheduleDelayedEvent(KeepAlive, appData.keepAlive*60*1000);
-}
-
-/* added routine for printf style output to ics */
-void
-ics_printf (char *format, ...)
-{
- char buffer[MSG_SIZ];
- va_list args;
-
- va_start(args, format);
- vsnprintf(buffer, sizeof(buffer), format, args);
- buffer[sizeof(buffer)-1] = '\0';
- SendToICS(buffer);
- va_end(args);
-}
-
-void
-SendToICS (char *s)
-{
- int count, outCount, outError;
-
- if (icsPR == NoProc) return;
-
- count = strlen(s);
- outCount = OutputMaybeTelnet(icsPR, s, count, &outError);
- if (outCount < count) {
- DisplayFatalError(_("Error writing to ICS"), outError, 1);
- }
-}
-
-/* This is used for sending logon scripts to the ICS. Sending
- without a delay causes problems when using timestamp on ICC
- (at least on my machine). */
-void
-SendToICSDelayed (char *s, long msdelay)
-{
- int count, outCount, outError;
-
- if (icsPR == NoProc) return;
-
- count = strlen(s);
- if (appData.debugMode) {
- fprintf(debugFP, ">ICS: ");
- show_bytes(debugFP, s, count);
- fprintf(debugFP, "\n");
- }
- outCount = OutputToProcessDelayed(icsPR, s, count, &outError,
- msdelay);
- if (outCount < count) {
- DisplayFatalError(_("Error writing to ICS"), outError, 1);
- }
-}
-
-
-/* Remove all highlighting escape sequences in s
- Also deletes any suffix starting with '('
- */
-char *
-StripHighlightAndTitle (char *s)
-{
- static char retbuf[MSG_SIZ];
- char *p = retbuf;
-
- while (*s != NULLCHAR) {
- while (*s == '\033') {
- while (*s != NULLCHAR && !isalpha(*s)) s++;
- if (*s != NULLCHAR) s++;
- }
- while (*s != NULLCHAR && *s != '\033') {
- if (*s == '(' || *s == '[') {
- *p = NULLCHAR;
- return retbuf;
- }
- *p++ = *s++;
- }
- }
- *p = NULLCHAR;
- return retbuf;
-}
-
-/* Remove all highlighting escape sequences in s */
-char *
-StripHighlight (char *s)
-{
- static char retbuf[MSG_SIZ];
- char *p = retbuf;
-
- while (*s != NULLCHAR) {
- while (*s == '\033') {
- while (*s != NULLCHAR && !isalpha(*s)) s++;
- if (*s != NULLCHAR) s++;
- }
- while (*s != NULLCHAR && *s != '\033') {
- *p++ = *s++;
- }
- }
- *p = NULLCHAR;
- return retbuf;
-}
-
-char engineVariant[MSG_SIZ];
-char *variantNames[] = VARIANT_NAMES;
-char *
-VariantName (VariantClass v)
-{
- if(v == VariantUnknown || *engineVariant) return engineVariant;
- return variantNames[v];
-}
-
-
-/* Identify a variant from the strings the chess servers use or the
- PGN Variant tag names we use. */
-VariantClass
-StringToVariant (char *e)
-{
- char *p;
- int wnum = -1;
- VariantClass v = VariantNormal;
- int i, found = FALSE;
- char buf[MSG_SIZ], c;
- int len;
-
- if (!e) return v;
-
- /* [HGM] skip over optional board-size prefixes */
- if( sscanf(e, "%dx%d_%c", &i, &i, &c) == 3 ||
- sscanf(e, "%dx%d+%d_%c", &i, &i, &i, &c) == 4 ) {
- while( *e++ != '_');
- }
-
- if(StrCaseStr(e, "misc/")) { // [HGM] on FICS, misc/shogi is not shogi
- v = VariantNormal;
- found = TRUE;
- } else
- for (i=0; i<sizeof(variantNames)/sizeof(char*); i++) {
- if (p = StrCaseStr(e, variantNames[i])) {
- if(p && i >= VariantShogi && (p != e && !appData.icsActive || isalpha(p[strlen(variantNames[i])]))) continue;
- v = (VariantClass) i;
- found = TRUE;
- break;
- }
- }
-
- if (!found) {
- if ((StrCaseStr(e, "fischer") && StrCaseStr(e, "random"))
- || StrCaseStr(e, "wild/fr")
- || StrCaseStr(e, "frc") || StrCaseStr(e, "960")) {
- v = VariantFischeRandom;
- } else if ((i = 4, p = StrCaseStr(e, "wild")) ||
- (i = 1, p = StrCaseStr(e, "w"))) {
- p += i;
- while (*p && (isspace(*p) || *p == '(' || *p == '/')) p++;
- if (isdigit(*p)) {
- wnum = atoi(p);
- } else {
- wnum = -1;
- }
- switch (wnum) {
- case 0: /* FICS only, actually */
- case 1:
- /* Castling legal even if K starts on d-file */
- v = VariantWildCastle;
- break;
- case 2:
- case 3:
- case 4:
- /* Castling illegal even if K & R happen to start in
- normal positions. */
- v = VariantNoCastle;
- break;
- case 5:
- case 7:
- case 8:
- case 10:
- case 11:
- case 12:
- case 13:
- case 14:
- case 15:
- case 18:
- case 19:
- /* Castling legal iff K & R start in normal positions */
- v = VariantNormal;
- break;
- case 6:
- case 20:
- case 21:
- /* Special wilds for position setup; unclear what to do here */
- v = VariantLoadable;
- break;
- case 9:
- /* Bizarre ICC game */
- v = VariantTwoKings;
- break;
- case 16:
- v = VariantKriegspiel;
- break;
- case 17:
- v = VariantLosers;
- break;
- case 22:
- v = VariantFischeRandom;
- break;
- case 23:
- v = VariantCrazyhouse;
- break;
- case 24:
- v = VariantBughouse;
- break;
- case 25:
- v = Variant3Check;
- break;
- case 26:
- /* Not quite the same as FICS suicide! */
- v = VariantGiveaway;
- break;
- case 27:
- v = VariantAtomic;
- break;
- case 28:
- v = VariantShatranj;
- break;
-
- /* Temporary names for future ICC types. The name *will* change in
- the next xboard/WinBoard release after ICC defines it. */
- case 29:
- v = Variant29;
- break;
- case 30:
- v = Variant30;
- break;
- case 31:
- v = Variant31;
- break;
- case 32:
- v = Variant32;
- break;
- case 33:
- v = Variant33;
- break;
- case 34:
- v = Variant34;
- break;
- case 35:
- v = Variant35;
- break;
- case 36:
- v = Variant36;
- break;
- case 37:
- v = VariantShogi;
- break;
- case 38:
- v = VariantXiangqi;
- break;
- case 39:
- v = VariantCourier;
- break;
- case 40:
- v = VariantGothic;
- break;
- case 41:
- v = VariantCapablanca;
- break;
- case 42:
- v = VariantKnightmate;
- break;
- case 43:
- v = VariantFairy;
- break;
- case 44:
- v = VariantCylinder;
- break;
- case 45:
- v = VariantFalcon;
- break;
- case 46:
- v = VariantCapaRandom;
- break;
- case 47:
- v = VariantBerolina;
- break;
- case 48:
- v = VariantJanus;
- break;
- case 49:
- v = VariantSuper;
- break;
- case 50:
- v = VariantGreat;
- break;
- case -1:
- /* Found "wild" or "w" in the string but no number;
- must assume it's normal chess. */
- v = VariantNormal;
- break;
- default:
- len = snprintf(buf, MSG_SIZ, _("Unknown wild type %d"), wnum);
- if( (len >= MSG_SIZ) && appData.debugMode )
- fprintf(debugFP, "StringToVariant: buffer truncated.\n");
-
- DisplayError(buf, 0);
- v = VariantUnknown;
- break;
- }
- }
- }
- if (appData.debugMode) {
- fprintf(debugFP, "recognized '%s' (%d) as variant %s\n",
- e, wnum, VariantName(v));
- }
- return v;
-}
-
-static int leftover_start = 0, leftover_len = 0;
-char star_match[STAR_MATCH_N][MSG_SIZ];
-
-/* Test whether pattern is present at &buf[*index]; if so, return TRUE,
- advance *index beyond it, and set leftover_start to the new value of
- *index; else return FALSE. If pattern contains the character '*', it
- matches any sequence of characters not containing '\r', '\n', or the
- character following the '*' (if any), and the matched sequence(s) are
- copied into star_match.
- */
-int
-looking_at ( char *buf, int *index, char *pattern)
-{
- char *bufp = &buf[*index], *patternp = pattern;
- int star_count = 0;
- char *matchp = star_match[0];
-
- for (;;) {
- if (*patternp == NULLCHAR) {
- *index = leftover_start = bufp - buf;
- *matchp = NULLCHAR;
- return TRUE;
- }
- if (*bufp == NULLCHAR) return FALSE;
- if (*patternp == '*') {
- if (*bufp == *(patternp + 1)) {
- *matchp = NULLCHAR;
- matchp = star_match[++star_count];
- patternp += 2;
- bufp++;
- continue;
- } else if (*bufp == '\n' || *bufp == '\r') {
- patternp++;
- if (*patternp == NULLCHAR)
- continue;
- else
- return FALSE;
- } else {
- *matchp++ = *bufp++;
- continue;
- }
- }
- if (*patternp != *bufp) return FALSE;
- patternp++;
- bufp++;
- }
-}
-
-void
-SendToPlayer (char *data, int length)
-{
- int error, outCount;
- outCount = OutputToProcess(NoProc, data, length, &error);
- if (outCount < length) {
- DisplayFatalError(_("Error writing to display"), error, 1);
- }
-}
-
-void
-PackHolding (char packed[], char *holding)
-{
- char *p = holding;
- char *q = packed;
- int runlength = 0;
- int curr = 9999;
- do {
- if (*p == curr) {
- runlength++;
- } else {
- switch (runlength) {
- case 0:
- break;
- case 1:
- *q++ = curr;
- break;
- case 2:
- *q++ = curr;
- *q++ = curr;
- break;
- default:
- sprintf(q, "%d", runlength);
- while (*q) q++;
- *q++ = curr;
- break;
- }
- runlength = 1;
- curr = *p;
- }
- } while (*p++);
- *q = NULLCHAR;
-}
-
-/* Telnet protocol requests from the front end */
-void
-TelnetRequest (unsigned char ddww, unsigned char option)
-{
- unsigned char msg[3];
- int outCount, outError;
-
- if (*appData.icsCommPort != NULLCHAR || appData.useTelnet) return;
-
- if (appData.debugMode) {
- char buf1[8], buf2[8], *ddwwStr, *optionStr;
- switch (ddww) {
- case TN_DO:
- ddwwStr = "DO";
- break;
- case TN_DONT:
- ddwwStr = "DONT";
- break;
- case TN_WILL:
- ddwwStr = "WILL";
- break;
- case TN_WONT:
- ddwwStr = "WONT";
- break;
- default:
- ddwwStr = buf1;
- snprintf(buf1,sizeof(buf1)/sizeof(buf1[0]), "%d", ddww);
- break;
- }
- switch (option) {
- case TN_ECHO:
- optionStr = "ECHO";
- break;
- default:
- optionStr = buf2;
- snprintf(buf2,sizeof(buf2)/sizeof(buf2[0]), "%d", option);
- break;
- }
- fprintf(debugFP, ">%s %s ", ddwwStr, optionStr);
- }
- msg[0] = TN_IAC;
- msg[1] = ddww;
- msg[2] = option;
- outCount = OutputToProcess(icsPR, (char *)msg, 3, &outError);
- if (outCount < 3) {
- DisplayFatalError(_("Error writing to ICS"), outError, 1);
- }
-}
-
-void
-DoEcho ()
-{
- if (!appData.icsActive) return;
- TelnetRequest(TN_DO, TN_ECHO);
-}
-
-void
-DontEcho ()
-{
- if (!appData.icsActive) return;
- TelnetRequest(TN_DONT, TN_ECHO);
-}
-
-void
-CopyHoldings (Board board, char *holdings, ChessSquare lowestPiece)
-{
- /* put the holdings sent to us by the server on the board holdings area */
- int i, j, holdingsColumn, holdingsStartRow, direction, countsColumn;
- char p;
- ChessSquare piece;
-
- if(gameInfo.holdingsWidth < 2) return;
- if(gameInfo.variant != VariantBughouse && board[HOLDINGS_SET])
- return; // prevent overwriting by pre-board holdings
-
- if( (int)lowestPiece >= BlackPawn ) {
- holdingsColumn = 0;
- countsColumn = 1;
- holdingsStartRow = BOARD_HEIGHT-1;
- direction = -1;
- } else {
- holdingsColumn = BOARD_WIDTH-1;
- countsColumn = BOARD_WIDTH-2;
- holdingsStartRow = 0;
- direction = 1;
- }
-
- for(i=0; i<BOARD_HEIGHT; i++) { /* clear holdings */
- board[i][holdingsColumn] = EmptySquare;
- board[i][countsColumn] = (ChessSquare) 0;
- }
- while( (p=*holdings++) != NULLCHAR ) {
- piece = CharToPiece( ToUpper(p) );
- if(piece == EmptySquare) continue;
- /*j = (int) piece - (int) WhitePawn;*/
- j = PieceToNumber(piece);
- if(j >= gameInfo.holdingsSize) continue; /* ignore pieces that do not fit */
- if(j < 0) continue; /* should not happen */
- piece = (ChessSquare) ( (int)piece + (int)lowestPiece );
- board[holdingsStartRow+j*direction][holdingsColumn] = piece;
- board[holdingsStartRow+j*direction][countsColumn]++;
- }
-}
-
-
-void
-VariantSwitch (Board board, VariantClass newVariant)
-{
- int newHoldingsWidth, newWidth = 8, newHeight = 8, i, j;
- static Board oldBoard;
-
- startedFromPositionFile = FALSE;
- if(gameInfo.variant == newVariant) return;
-
- /* [HGM] This routine is called each time an assignment is made to
- * gameInfo.variant during a game, to make sure the board sizes
- * are set to match the new variant. If that means adding or deleting
- * holdings, we shift the playing board accordingly
- * This kludge is needed because in ICS observe mode, we get boards
- * of an ongoing game without knowing the variant, and learn about the
- * latter only later. This can be because of the move list we requested,
- * in which case the game history is refilled from the beginning anyway,
- * but also when receiving holdings of a crazyhouse game. In the latter
- * case we want to add those holdings to the already received position.
- */
-
-
- if (appData.debugMode) {
- fprintf(debugFP, "Switch board from %s to %s\n",
- VariantName(gameInfo.variant), VariantName(newVariant));
- setbuf(debugFP, NULL);
- }
- shuffleOpenings = 0; /* [HGM] shuffle */
- gameInfo.holdingsSize = 5; /* [HGM] prepare holdings */
- switch(newVariant)
- {
- case VariantShogi:
- newWidth = 9; newHeight = 9;
- gameInfo.holdingsSize = 7;
- case VariantBughouse:
- case VariantCrazyhouse:
- newHoldingsWidth = 2; break;
- case VariantGreat:
- newWidth = 10;
- case VariantSuper:
- newHoldingsWidth = 2;
- gameInfo.holdingsSize = 8;
- break;
- case VariantGothic:
- case VariantCapablanca:
- case VariantCapaRandom:
- newWidth = 10;
- default:
- newHoldingsWidth = gameInfo.holdingsSize = 0;
- };
-
- if(newWidth != gameInfo.boardWidth ||
- newHeight != gameInfo.boardHeight ||
- newHoldingsWidth != gameInfo.holdingsWidth ) {
-
- /* shift position to new playing area, if needed */
- if(newHoldingsWidth > gameInfo.holdingsWidth) {
- for(i=0; i<BOARD_HEIGHT; i++)
- for(j=BOARD_RGHT-1; j>=BOARD_LEFT; j--)
- board[i][j+newHoldingsWidth-gameInfo.holdingsWidth] =
- board[i][j];
- for(i=0; i<newHeight; i++) {
- board[i][0] = board[i][newWidth+2*newHoldingsWidth-1] = EmptySquare;
- board[i][1] = board[i][newWidth+2*newHoldingsWidth-2] = (ChessSquare) 0;
- }
- } else if(newHoldingsWidth < gameInfo.holdingsWidth) {
- for(i=0; i<BOARD_HEIGHT; i++)
- for(j=BOARD_LEFT; j<BOARD_RGHT; j++)
- board[i][j+newHoldingsWidth-gameInfo.holdingsWidth] =
- board[i][j];
- }
- board[HOLDINGS_SET] = 0;
- gameInfo.boardWidth = newWidth;
- gameInfo.boardHeight = newHeight;
- gameInfo.holdingsWidth = newHoldingsWidth;
- gameInfo.variant = newVariant;
- InitDrawingSizes(-2, 0);
- } else gameInfo.variant = newVariant;
- CopyBoard(oldBoard, board); // remember correctly formatted board
- InitPosition(FALSE); /* this sets up board[0], but also other stuff */
- DrawPosition(TRUE, currentMove ? boards[currentMove] : oldBoard);
-}
-
-static int loggedOn = FALSE;
-
-/*-- Game start info cache: --*/
-int gs_gamenum;
-char gs_kind[MSG_SIZ];
-static char player1Name[128] = "";
-static char player2Name[128] = "";
-static char cont_seq[] = "\n\\ ";
-static int player1Rating = -1;
-static int player2Rating = -1;
-/*----------------------------*/
-
-ColorClass curColor = ColorNormal;
-int suppressKibitz = 0;
-
-// [HGM] seekgraph
-Boolean soughtPending = FALSE;
-Boolean seekGraphUp;
-#define MAX_SEEK_ADS 200
-#define SQUARE 0x80
-char *seekAdList[MAX_SEEK_ADS];
-int ratingList[MAX_SEEK_ADS], xList[MAX_SEEK_ADS], yList[MAX_SEEK_ADS], seekNrList[MAX_SEEK_ADS], zList[MAX_SEEK_ADS];
-float tcList[MAX_SEEK_ADS];
-char colorList[MAX_SEEK_ADS];
-int nrOfSeekAds = 0;
-int minRating = 1010, maxRating = 2800;
-int hMargin = 10, vMargin = 20, h, w;
-extern int squareSize, lineGap;
-
-void
-PlotSeekAd (int i)
-{
- int x, y, color = 0, r = ratingList[i]; float tc = tcList[i];
- xList[i] = yList[i] = -100; // outside graph, so cannot be clicked
- if(r < minRating+100 && r >=0 ) r = minRating+100;
- if(r > maxRating) r = maxRating;
- if(tc < 1.f) tc = 1.f;
- if(tc > 95.f) tc = 95.f;
- x = (w-hMargin-squareSize/8-7)* log(tc)/log(95.) + hMargin;
- y = ((double)r - minRating)/(maxRating - minRating)
- * (h-vMargin-squareSize/8-1) + vMargin;
- if(ratingList[i] < 0) y = vMargin + squareSize/4;
- if(strstr(seekAdList[i], " u ")) color = 1;
- if(!strstr(seekAdList[i], "lightning") && // for now all wilds same color
- !strstr(seekAdList[i], "bullet") &&
- !strstr(seekAdList[i], "blitz") &&
- !strstr(seekAdList[i], "standard") ) color = 2;
- if(strstr(seekAdList[i], "(C) ")) color |= SQUARE; // plot computer seeks as squares
- DrawSeekDot(xList[i]=x+3*(color&~SQUARE), yList[i]=h-1-y, colorList[i]=color);
-}
-
-void
-PlotSingleSeekAd (int i)
-{
- PlotSeekAd(i);
-}
-
-void
-AddAd (char *handle, char *rating, int base, int inc, char rated, char *type, int nr, Boolean plot)
-{
- char buf[MSG_SIZ], *ext = "";
- VariantClass v = StringToVariant(type);
- if(strstr(type, "wild")) {
- ext = type + 4; // append wild number
- if(v == VariantFischeRandom) type = "chess960"; else
- if(v == VariantLoadable) type = "setup"; else
- type = VariantName(v);
- }
- snprintf(buf, MSG_SIZ, "%s (%s) %d %d %c %s%s", handle, rating, base, inc, rated, type, ext);
- if(nrOfSeekAds < MAX_SEEK_ADS-1) {
- if(seekAdList[nrOfSeekAds]) free(seekAdList[nrOfSeekAds]);
- ratingList[nrOfSeekAds] = -1; // for if seeker has no rating
- sscanf(rating, "%d", &ratingList[nrOfSeekAds]);
- tcList[nrOfSeekAds] = base + (2./3.)*inc;
- seekNrList[nrOfSeekAds] = nr;
- zList[nrOfSeekAds] = 0;
- seekAdList[nrOfSeekAds++] = StrSave(buf);
- if(plot) PlotSingleSeekAd(nrOfSeekAds-1);
- }
-}
-
-void
-EraseSeekDot (int i)
-{
- int x = xList[i], y = yList[i], d=squareSize/4, k;
- DrawSeekBackground(x-squareSize/8, y-squareSize/8, x+squareSize/8+1, y+squareSize/8+1);
- if(x < hMargin+d) DrawSeekAxis(hMargin, y-squareSize/8, hMargin, y+squareSize/8+1);
- // now replot every dot that overlapped
- for(k=0; k<nrOfSeekAds; k++) if(k != i) {
- int xx = xList[k], yy = yList[k];
- if(xx <= x+d && xx > x-d && yy <= y+d && yy > y-d)
- DrawSeekDot(xx, yy, colorList[k]);
- }
-}
-
-void
-RemoveSeekAd (int nr)
-{
- int i;
- for(i=0; i<nrOfSeekAds; i++) if(seekNrList[i] == nr) {
- EraseSeekDot(i);
- if(seekAdList[i]) free(seekAdList[i]);
- seekAdList[i] = seekAdList[--nrOfSeekAds];
- seekNrList[i] = seekNrList[nrOfSeekAds];
- ratingList[i] = ratingList[nrOfSeekAds];
- colorList[i] = colorList[nrOfSeekAds];
- tcList[i] = tcList[nrOfSeekAds];
- xList[i] = xList[nrOfSeekAds];
- yList[i] = yList[nrOfSeekAds];
- zList[i] = zList[nrOfSeekAds];
- seekAdList[nrOfSeekAds] = NULL;
- break;
- }
-}
-
-Boolean
-MatchSoughtLine (char *line)
-{
- char handle[MSG_SIZ], rating[MSG_SIZ], type[MSG_SIZ];
- int nr, base, inc, u=0; char dummy;
-
- if(sscanf(line, "%d %s %s %d %d rated %s", &nr, rating, handle, &base, &inc, type) == 6 ||
- sscanf(line, "%d %s %s %s %d %d rated %c", &nr, rating, handle, type, &base, &inc, &dummy) == 7 ||
- (u=1) &&
- (sscanf(line, "%d %s %s %d %d unrated %s", &nr, rating, handle, &base, &inc, type) == 6 ||
- sscanf(line, "%d %s %s %s %d %d unrated %c", &nr, rating, handle, type, &base, &inc, &dummy) == 7) ) {
- // match: compact and save the line
- AddAd(handle, rating, base, inc, u ? 'u' : 'r', type, nr, FALSE);
- return TRUE;
- }
- return FALSE;
-}
-
-int
-DrawSeekGraph ()
-{
- int i;
- if(!seekGraphUp) return FALSE;
- h = BOARD_HEIGHT * (squareSize + lineGap) + lineGap + 2*border;
- w = BOARD_WIDTH * (squareSize + lineGap) + lineGap + 2*border;
-
- DrawSeekBackground(0, 0, w, h);
- DrawSeekAxis(hMargin, h-1-vMargin, w-5, h-1-vMargin);
- DrawSeekAxis(hMargin, h-1-vMargin, hMargin, 5);
- for(i=0; i<4000; i+= 100) if(i>=minRating && i<maxRating) {
- int yy =((double)i - minRating)/(maxRating - minRating)*(h-vMargin-squareSize/8-1) + vMargin;
- yy = h-1-yy;
- DrawSeekAxis(hMargin-5, yy, hMargin+5*(i%500==0), yy); // rating ticks
- if(i%500 == 0) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "%d", i);
- DrawSeekText(buf, hMargin+squareSize/8+7, yy);
- }
- }
- DrawSeekText("unrated", hMargin+squareSize/8+7, h-1-vMargin-squareSize/4);
- for(i=1; i<100; i+=(i<10?1:5)) {
- int xx = (w-hMargin-squareSize/8-7)* log((double)i)/log(95.) + hMargin;
- DrawSeekAxis(xx, h-1-vMargin, xx, h-6-vMargin-3*(i%10==0)); // TC ticks
- if(i<=5 || (i>40 ? i%20 : i%10) == 0) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "%d", i);
- DrawSeekText(buf, xx-2-3*(i>9), h-1-vMargin/2);
- }
- }
- for(i=0; i<nrOfSeekAds; i++) PlotSeekAd(i);
- return TRUE;
-}
-
-int
-SeekGraphClick (ClickType click, int x, int y, int moving)
-{
- static int lastDown = 0, displayed = 0, lastSecond;
- if(y < 0) return FALSE;
- if(!(appData.seekGraph && appData.icsActive && loggedOn &&
- (gameMode == BeginningOfGame || gameMode == IcsIdle))) {
- if(!seekGraphUp) return FALSE;
- seekGraphUp = FALSE; // seek graph is up when it shouldn't be: take it down
- DrawPosition(TRUE, NULL);
- return TRUE;
- }
- if(!seekGraphUp) { // initiate cration of seek graph by requesting seek-ad list
- if(click == Release || moving) return FALSE;
- nrOfSeekAds = 0;
- soughtPending = TRUE;
- SendToICS(ics_prefix);
- SendToICS("sought\n"); // should this be "sought all"?
- } else { // issue challenge based on clicked ad
- int dist = 10000; int i, closest = 0, second = 0;
- for(i=0; i<nrOfSeekAds; i++) {
- int d = (x-xList[i])*(x-xList[i]) + (y-yList[i])*(y-yList[i]) + zList[i];
- if(d < dist) { dist = d; closest = i; }
- second += (d - zList[i] < 120); // count in-range ads
- if(click == Press && moving != 1 && zList[i]>0) zList[i] *= 0.8; // age priority
- }
- if(dist < 120) {
- char buf[MSG_SIZ];
- second = (second > 1);
- if(displayed != closest || second != lastSecond) {
- DisplayMessage(second ? "!" : "", seekAdList[closest]);
- lastSecond = second; displayed = closest;
- }
- if(click == Press) {
- if(moving == 2) zList[closest] = 100; // right-click; push to back on press
- lastDown = closest;
- return TRUE;
- } // on press 'hit', only show info
- if(moving == 2) return TRUE; // ignore right up-clicks on dot
- snprintf(buf, MSG_SIZ, "play %d\n", seekNrList[closest]);
- SendToICS(ics_prefix);
- SendToICS(buf);
- return TRUE; // let incoming board of started game pop down the graph
- } else if(click == Release) { // release 'miss' is ignored
- zList[lastDown] = 100; // make future selection of the rejected ad more difficult
- if(moving == 2) { // right up-click
- nrOfSeekAds = 0; // refresh graph
- soughtPending = TRUE;
- SendToICS(ics_prefix);
- SendToICS("sought\n"); // should this be "sought all"?
- }
- return TRUE;
- } else if(moving) { if(displayed >= 0) DisplayMessage("", ""); displayed = -1; return TRUE; }
- // press miss or release hit 'pop down' seek graph
- seekGraphUp = FALSE;
- DrawPosition(TRUE, NULL);
- }
- return TRUE;
-}
-
-void
-read_from_ics (InputSourceRef isr, VOIDSTAR closure, char *data, int count, int error)
-{
-#define BUF_SIZE (16*1024) /* overflowed at 8K with "inchannel 1" on FICS? */
-#define STARTED_NONE 0
-#define STARTED_MOVES 1
-#define STARTED_BOARD 2
-#define STARTED_OBSERVE 3
-#define STARTED_HOLDINGS 4
-#define STARTED_CHATTER 5
-#define STARTED_COMMENT 6
-#define STARTED_MOVES_NOHIDE 7
-
- static int started = STARTED_NONE;
- static char parse[20000];
- static int parse_pos = 0;
- static char buf[BUF_SIZE + 1];
- static int firstTime = TRUE, intfSet = FALSE;
- static ColorClass prevColor = ColorNormal;
- static int savingComment = FALSE;
- static int cmatch = 0; // continuation sequence match
- char *bp;
- char str[MSG_SIZ];
- int i, oldi;
- int buf_len;
- int next_out;
- int tkind;
- int backup; /* [DM] For zippy color lines */
- char *p;
- char talker[MSG_SIZ]; // [HGM] chat
- int channel, collective=0;
-
- connectionAlive = TRUE; // [HGM] alive: I think, therefore I am...
-
- if (appData.debugMode) {
- if (!error) {
- fprintf(debugFP, "<ICS: ");
- show_bytes(debugFP, data, count);
- fprintf(debugFP, "\n");
- }
- }
-
- if (appData.debugMode) { int f = forwardMostMove;
- fprintf(debugFP, "ics input %d, castling = %d %d %d %d %d %d\n", f,
- boards[f][CASTLING][0],boards[f][CASTLING][1],boards[f][CASTLING][2],
- boards[f][CASTLING][3],boards[f][CASTLING][4],boards[f][CASTLING][5]);
- }
- if (count > 0) {
- /* If last read ended with a partial line that we couldn't parse,
- prepend it to the new read and try again. */
- if (leftover_len > 0) {
- for (i=0; i<leftover_len; i++)
- buf[i] = buf[leftover_start + i];
- }
-
- /* copy new characters into the buffer */
- bp = buf + leftover_len;
- buf_len=leftover_len;
- for (i=0; i<count; i++)
- {
- // ignore these
- if (data[i] == '\r')
- continue;
-
- // join lines split by ICS?
- if (!appData.noJoin)
- {
- /*
- Joining just consists of finding matches against the
- continuation sequence, and discarding that sequence
- if found instead of copying it. So, until a match
- fails, there's nothing to do since it might be the
- complete sequence, and thus, something we don't want
- copied.
- */
- if (data[i] == cont_seq[cmatch])
- {
- cmatch++;
- if (cmatch == strlen(cont_seq))
- {
- cmatch = 0; // complete match. just reset the counter
-
- /*
- it's possible for the ICS to not include the space
- at the end of the last word, making our [correct]
- join operation fuse two separate words. the server
- does this when the space occurs at the width setting.
- */
- if (!buf_len || buf[buf_len-1] != ' ')
- {
- *bp++ = ' ';
- buf_len++;
- }
- }
- continue;
- }
- else if (cmatch)
- {
- /*
- match failed, so we have to copy what matched before
- falling through and copying this character. In reality,
- this will only ever be just the newline character, but
- it doesn't hurt to be precise.
- */
- strncpy(bp, cont_seq, cmatch);
- bp += cmatch;
- buf_len += cmatch;
- cmatch = 0;
- }
- }
-
- // copy this char
- *bp++ = data[i];
- buf_len++;
- }
-
- buf[buf_len] = NULLCHAR;
-// next_out = leftover_len; // [HGM] should we set this to 0, and not print it in advance?
- next_out = 0;
- leftover_start = 0;
-
- i = 0;
- while (i < buf_len) {
- /* Deal with part of the TELNET option negotiation
- protocol. We refuse to do anything beyond the
- defaults, except that we allow the WILL ECHO option,
- which ICS uses to turn off password echoing when we are
- directly connected to it. We reject this option
- if localLineEditing mode is on (always on in xboard)
- and we are talking to port 23, which might be a real
- telnet server that will try to keep WILL ECHO on permanently.
- */
- if (buf_len - i >= 3 && (unsigned char) buf[i] == TN_IAC) {
- static int remoteEchoOption = FALSE; /* telnet ECHO option */
- unsigned char option;
- oldi = i;
- switch ((unsigned char) buf[++i]) {
- case TN_WILL:
- if (appData.debugMode)
- fprintf(debugFP, "\n<WILL ");
- switch (option = (unsigned char) buf[++i]) {
- case TN_ECHO:
- if (appData.debugMode)
- fprintf(debugFP, "ECHO ");
- /* Reply only if this is a change, according
- to the protocol rules. */
- if (remoteEchoOption) break;
- if (appData.localLineEditing &&
- atoi(appData.icsPort) == TN_PORT) {
- TelnetRequest(TN_DONT, TN_ECHO);
- } else {
- EchoOff();
- TelnetRequest(TN_DO, TN_ECHO);
- remoteEchoOption = TRUE;
- }
- break;
- default:
- if (appData.debugMode)
- fprintf(debugFP, "%d ", option);
- /* Whatever this is, we don't want it. */
- TelnetRequest(TN_DONT, option);
- break;
- }
- break;
- case TN_WONT:
- if (appData.debugMode)
- fprintf(debugFP, "\n<WONT ");
- switch (option = (unsigned char) buf[++i]) {
- case TN_ECHO:
- if (appData.debugMode)
- fprintf(debugFP, "ECHO ");
- /* Reply only if this is a change, according
- to the protocol rules. */
- if (!remoteEchoOption) break;
- EchoOn();
- TelnetRequest(TN_DONT, TN_ECHO);
- remoteEchoOption = FALSE;
- break;
- default:
- if (appData.debugMode)
- fprintf(debugFP, "%d ", (unsigned char) option);
- /* Whatever this is, it must already be turned
- off, because we never agree to turn on
- anything non-default, so according to the
- protocol rules, we don't reply. */
- break;
- }
- break;
- case TN_DO:
- if (appData.debugMode)
- fprintf(debugFP, "\n<DO ");
- switch (option = (unsigned char) buf[++i]) {
- default:
- /* Whatever this is, we refuse to do it. */
- if (appData.debugMode)
- fprintf(debugFP, "%d ", option);
- TelnetRequest(TN_WONT, option);
- break;
- }
- break;
- case TN_DONT:
- if (appData.debugMode)
- fprintf(debugFP, "\n<DONT ");
- switch (option = (unsigned char) buf[++i]) {
- default:
- if (appData.debugMode)
- fprintf(debugFP, "%d ", option);
- /* Whatever this is, we are already not doing
- it, because we never agree to do anything
- non-default, so according to the protocol
- rules, we don't reply. */
- break;
- }
- break;
- case TN_IAC:
- if (appData.debugMode)
- fprintf(debugFP, "\n<IAC ");
- /* Doubled IAC; pass it through */
- i--;
- break;
- default:
- if (appData.debugMode)
- fprintf(debugFP, "\n<%d ", (unsigned char) buf[i]);
- /* Drop all other telnet commands on the floor */
- break;
- }
- if (oldi > next_out)
- SendToPlayer(&buf[next_out], oldi - next_out);
- if (++i > next_out)
- next_out = i;
- continue;
- }
-
- /* OK, this at least will *usually* work */
- if (!loggedOn && looking_at(buf, &i, "ics%")) {
- loggedOn = TRUE;
- }
-
- if (loggedOn && !intfSet) {
- if (ics_type == ICS_ICC) {
- snprintf(str, MSG_SIZ,
- "/set-quietly interface %s\n/set-quietly style 12\n",
- programVersion);
- if(appData.seekGraph && appData.autoRefresh) // [HGM] seekgraph
- strcat(str, "/set-2 51 1\n/set seek 1\n");
- } else if (ics_type == ICS_CHESSNET) {
- snprintf(str, MSG_SIZ, "/style 12\n");
- } else {
- safeStrCpy(str, "alias $ @\n$set interface ", sizeof(str)/sizeof(str[0]));
- strcat(str, programVersion);
- strcat(str, "\n$iset startpos 1\n$iset ms 1\n");
- if(appData.seekGraph && appData.autoRefresh) // [HGM] seekgraph
- strcat(str, "$iset seekremove 1\n$set seek 1\n");
-#ifdef WIN32
- strcat(str, "$iset nohighlight 1\n");
-#endif
- strcat(str, "$iset lock 1\n$style 12\n");
- }
- SendToICS(str);
- NotifyFrontendLogin();
- intfSet = TRUE;
- }
-
- if (started == STARTED_COMMENT) {
- /* Accumulate characters in comment */
- parse[parse_pos++] = buf[i];
- if (buf[i] == '\n') {
- parse[parse_pos] = NULLCHAR;
- if(chattingPartner>=0) {
- char mess[MSG_SIZ];
- snprintf(mess, MSG_SIZ, "%s%s", talker, parse);
- OutputChatMessage(chattingPartner, mess);
- if(collective == 1) { // broadcasted talk also goes to private chatbox of talker
- int p;
- talker[strlen(talker+1)-1] = NULLCHAR; // strip closing delimiter
- for(p=0; p<MAX_CHAT; p++) if(!StrCaseCmp(talker+1, chatPartner[p])) {
- snprintf(mess, MSG_SIZ, "%s: %s", chatPartner[chattingPartner], parse);
- OutputChatMessage(p, mess);
- break;
- }
- }
- chattingPartner = -1;
- if(collective != 3) next_out = i+1; // [HGM] suppress printing in ICS window
- collective = 0;
- } else
- if(!suppressKibitz) // [HGM] kibitz
- AppendComment(forwardMostMove, StripHighlight(parse), TRUE);
- else { // [HGM kibitz: divert memorized engine kibitz to engine-output window
- int nrDigit = 0, nrAlph = 0, j;
- if(parse_pos > MSG_SIZ - 30) // defuse unreasonably long input
- { parse_pos = MSG_SIZ-30; parse[parse_pos - 1] = '\n'; }
- parse[parse_pos] = NULLCHAR;
- // try to be smart: if it does not look like search info, it should go to
- // ICS interaction window after all, not to engine-output window.
- for(j=0; j<parse_pos; j++) { // count letters and digits
- nrDigit += (parse[j] >= '0' && parse[j] <= '9');
- nrAlph += (parse[j] >= 'a' && parse[j] <= 'z');
- nrAlph += (parse[j] >= 'A' && parse[j] <= 'Z');
- }
- if(nrAlph < 9*nrDigit) { // if more than 10% digit we assume search info
- int depth=0; float score;
- if(sscanf(parse, "!!! %f/%d", &score, &depth) == 2 && depth>0) {
- // [HGM] kibitz: save kibitzed opponent info for PGN and eval graph
- pvInfoList[forwardMostMove-1].depth = depth;
- pvInfoList[forwardMostMove-1].score = 100*score;
- }
- OutputKibitz(suppressKibitz, parse);
- } else {
- char tmp[MSG_SIZ];
- if(gameMode == IcsObserving) // restore original ICS messages
- /* TRANSLATORS: to 'kibitz' is to send a message to all players and the game observers */
- snprintf(tmp, MSG_SIZ, "%s kibitzes: %s", star_match[0], parse);
- else
- /* TRANSLATORS: to 'kibitz' is to send a message to all players and the game observers */
- snprintf(tmp, MSG_SIZ, _("your opponent kibitzes: %s"), parse);
- SendToPlayer(tmp, strlen(tmp));
- }
- next_out = i+1; // [HGM] suppress printing in ICS window
- }
- started = STARTED_NONE;
- } else {
- /* Don't match patterns against characters in comment */
- i++;
- continue;
- }
- }
- if (started == STARTED_CHATTER) {
- if (buf[i] != '\n') {
- /* Don't match patterns against characters in chatter */
- i++;
- continue;
- }
- started = STARTED_NONE;
- if(suppressKibitz) next_out = i+1;
- }
-
- /* Kludge to deal with rcmd protocol */
- if (firstTime && looking_at(buf, &i, "\001*")) {
- DisplayFatalError(&buf[1], 0, 1);
- continue;
- } else {
- firstTime = FALSE;
- }
-
- if (!loggedOn && looking_at(buf, &i, "chessclub.com")) {
- ics_type = ICS_ICC;
- ics_prefix = "/";
- if (appData.debugMode)
- fprintf(debugFP, "ics_type %d\n", ics_type);
- continue;
- }
- if (!loggedOn && looking_at(buf, &i, "freechess.org")) {
- ics_type = ICS_FICS;
- ics_prefix = "$";
- if (appData.debugMode)
- fprintf(debugFP, "ics_type %d\n", ics_type);
- continue;
- }
- if (!loggedOn && looking_at(buf, &i, "chess.net")) {
- ics_type = ICS_CHESSNET;
- ics_prefix = "/";
- if (appData.debugMode)
- fprintf(debugFP, "ics_type %d\n", ics_type);
- continue;
- }
-
- if (!loggedOn &&
- (looking_at(buf, &i, "\"*\" is *a registered name") ||
- looking_at(buf, &i, "Logging you in as \"*\"") ||
- looking_at(buf, &i, "will be \"*\""))) {
- safeStrCpy(ics_handle, star_match[0], sizeof(ics_handle)/sizeof(ics_handle[0]));
- continue;
- }
-
- if (loggedOn && !have_set_title && ics_handle[0] != NULLCHAR) {
- char buf[MSG_SIZ];
- snprintf(buf, sizeof(buf), "%s@%s", ics_handle, appData.icsHost);
- DisplayIcsInteractionTitle(buf);
- have_set_title = TRUE;
- }
-
- /* skip finger notes */
- if (started == STARTED_NONE &&
- ((buf[i] == ' ' && isdigit(buf[i+1])) ||
- (buf[i] == '1' && buf[i+1] == '0')) &&
- buf[i+2] == ':' && buf[i+3] == ' ') {
- started = STARTED_CHATTER;
- i += 3;
- continue;
- }
-
- oldi = i;
- // [HGM] seekgraph: recognize sought lines and end-of-sought message
- if(appData.seekGraph) {
- if(soughtPending && MatchSoughtLine(buf+i)) {
- i = strstr(buf+i, "rated") - buf;
- if (oldi > next_out) SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = leftover_start = i;
- started = STARTED_CHATTER;
- suppressKibitz = TRUE;
- continue;
- }
- if((gameMode == IcsIdle || gameMode == BeginningOfGame)
- && looking_at(buf, &i, "* ads displayed")) {
- soughtPending = FALSE;
- seekGraphUp = TRUE;
- DrawSeekGraph();
- continue;
- }
- if(appData.autoRefresh) {
- if(looking_at(buf, &i, "* (*) seeking * * * * *\"play *\" to respond)\n")) {
- int s = (ics_type == ICS_ICC); // ICC format differs
- if(seekGraphUp)
- AddAd(star_match[0], star_match[1], atoi(star_match[2+s]), atoi(star_match[3+s]),
- star_match[4+s][0], star_match[5-3*s], atoi(star_match[7]), TRUE);
- looking_at(buf, &i, "*% "); // eat prompt
- if(oldi > 0 && buf[oldi-1] == '\n') oldi--; // suppress preceding LF, if any
- if (oldi > next_out) SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = i; // suppress
- continue;
- }
- if(looking_at(buf, &i, "\nAds removed: *\n") || looking_at(buf, &i, "\031(51 * *\031)")) {
- char *p = star_match[0];
- while(*p) {
- if(seekGraphUp) RemoveSeekAd(atoi(p));
- while(*p && *p++ != ' '); // next
- }
- looking_at(buf, &i, "*% "); // eat prompt
- if (oldi > next_out) SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = i;
- continue;
- }
- }
- }
-
- /* skip formula vars */
- if (started == STARTED_NONE &&
- buf[i] == 'f' && isdigit(buf[i+1]) && buf[i+2] == ':') {
- started = STARTED_CHATTER;
- i += 3;
- continue;
- }
-
- // [HGM] kibitz: try to recognize opponent engine-score kibitzes, to divert them to engine-output window
- if (appData.autoKibitz && started == STARTED_NONE &&
- !appData.icsEngineAnalyze && // [HGM] [DM] ICS analyze
- (gameMode == IcsPlayingWhite || gameMode == IcsPlayingBlack || gameMode == IcsObserving)) {
- if((looking_at(buf, &i, "\n* kibitzes: ") || looking_at(buf, &i, "\n* whispers: ") ||
- looking_at(buf, &i, "* kibitzes: ") || looking_at(buf, &i, "* whispers: ")) &&
- (StrStr(star_match[0], gameInfo.white) == star_match[0] ||
- StrStr(star_match[0], gameInfo.black) == star_match[0] )) { // kibitz of self or opponent
- suppressKibitz = TRUE;
- if (oldi > next_out) SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = i;
- if((StrStr(star_match[0], gameInfo.white) == star_match[0]
- && (gameMode == IcsPlayingWhite)) ||
- (StrStr(star_match[0], gameInfo.black) == star_match[0]
- && (gameMode == IcsPlayingBlack)) ) // opponent kibitz
- started = STARTED_CHATTER; // own kibitz we simply discard
- else {
- started = STARTED_COMMENT; // make sure it will be collected in parse[]
- parse_pos = 0; parse[0] = NULLCHAR;
- savingComment = TRUE;
- suppressKibitz = gameMode != IcsObserving ? 2 :
- (StrStr(star_match[0], gameInfo.white) == NULL) + 1;
- }
- continue;
- } else
- if((looking_at(buf, &i, "\nkibitzed to *\n") || looking_at(buf, &i, "kibitzed to *\n") ||
- looking_at(buf, &i, "\n(kibitzed to *\n") || looking_at(buf, &i, "(kibitzed to *\n"))
- && atoi(star_match[0])) {
- // suppress the acknowledgements of our own autoKibitz
- char *p;
- if (oldi > next_out) SendToPlayer(&buf[next_out], oldi - next_out);
- if(p = strchr(star_match[0], ' ')) p[1] = NULLCHAR; // clip off "players)" on FICS
- SendToPlayer(star_match[0], strlen(star_match[0]));
- if(looking_at(buf, &i, "*% ")) // eat prompt
- suppressKibitz = FALSE;
- next_out = i;
- continue;
- }
- } // [HGM] kibitz: end of patch
-
- if(looking_at(buf, &i, "* rating adjustment: * --> *\n")) continue;
-
- // [HGM] chat: intercept tells by users for which we have an open chat window
- channel = -1;
- if(started == STARTED_NONE && (looking_at(buf, &i, "* tells you:") || looking_at(buf, &i, "* says:") ||
- looking_at(buf, &i, "* whispers:") ||
- looking_at(buf, &i, "* kibitzes:") ||
- looking_at(buf, &i, "* shouts:") ||
- looking_at(buf, &i, "* c-shouts:") ||
- looking_at(buf, &i, "--> * ") ||
- looking_at(buf, &i, "*(*):") && (sscanf(star_match[1], "%d", &channel),1) ||
- looking_at(buf, &i, "*(*)(*):") && (sscanf(star_match[2], "%d", &channel),1) ||
- looking_at(buf, &i, "*(*)(*)(*):") && (sscanf(star_match[3], "%d", &channel),1) ||
- looking_at(buf, &i, "*(*)(*)(*)(*):") && sscanf(star_match[4], "%d", &channel) == 1 )) {
- int p;
- sscanf(star_match[0], "%[^(]", talker+1); // strip (C) or (U) off ICS handle
- chattingPartner = -1; collective = 0;
-
- if(channel >= 0) // channel broadcast; look if there is a chatbox for this channel
- for(p=0; p<MAX_CHAT; p++) {
- collective = 1;
- if(chatPartner[p][0] >= '0' && chatPartner[p][0] <= '9' && channel == atoi(chatPartner[p])) {
- talker[0] = '['; strcat(talker, "] ");
- Colorize((channel == 1 ? ColorChannel1 : ColorChannel), FALSE);
- chattingPartner = p; break;
- }
- } else
- if(buf[i-3] == 'e') // kibitz; look if there is a KIBITZ chatbox
- for(p=0; p<MAX_CHAT; p++) {
- collective = 1;
- if(!strcmp("kibitzes", chatPartner[p])) {
- talker[0] = '['; strcat(talker, "] ");
- chattingPartner = p; break;
- }
- } else
- if(buf[i-3] == 'r') // whisper; look if there is a WHISPER chatbox
- for(p=0; p<MAX_CHAT; p++) {
- collective = 1;
- if(!strcmp("whispers", chatPartner[p])) {
- talker[0] = '['; strcat(talker, "] ");
- chattingPartner = p; break;
- }
- } else
- if(buf[i-3] == 't' || buf[oldi+2] == '>') {// shout, c-shout or it; look if there is a 'shouts' chatbox
- if(buf[i-8] == '-' && buf[i-3] == 't')
- for(p=0; p<MAX_CHAT; p++) { // c-shout; check if dedicatesd c-shout box exists
- collective = 1;
- if(!strcmp("c-shouts", chatPartner[p])) {
- talker[0] = '('; strcat(talker, ") "); Colorize(ColorSShout, FALSE);
- chattingPartner = p; break;
- }
- }
- if(chattingPartner < 0)
- for(p=0; p<MAX_CHAT; p++) {
- collective = 1;
- if(!strcmp("shouts", chatPartner[p])) {
- if(buf[oldi+2] == '>') { talker[0] = '<'; strcat(talker, "> "); Colorize(ColorShout, FALSE); }
- else if(buf[i-8] == '-') { talker[0] = '('; strcat(talker, ") "); Colorize(ColorSShout, FALSE); }
- else { talker[0] = '['; strcat(talker, "] "); Colorize(ColorShout, FALSE); }
- chattingPartner = p; break;
- }
- }
- }
- if(chattingPartner<0) // if not, look if there is a chatbox for this indivdual
- for(p=0; p<MAX_CHAT; p++) if(!StrCaseCmp(talker+1, chatPartner[p])) {
- talker[0] = 0;
- Colorize(ColorTell, FALSE);
- if(collective) safeStrCpy(talker, "broadcasts: ", MSG_SIZ);
- collective |= 2;
- chattingPartner = p; break;
- }
- if(chattingPartner<0) i = oldi, safeStrCpy(lastTalker, talker+1, MSG_SIZ); else {
- Colorize(curColor, TRUE); // undo the bogus colorations we just made to trigger the souds
- started = STARTED_COMMENT;
- parse_pos = 0; parse[0] = NULLCHAR;
- savingComment = 3 + chattingPartner; // counts as TRUE
- if(collective == 3) i = oldi; else {
- suppressKibitz = TRUE;
- if(oldi > 0 && buf[oldi-1] == '\n') oldi--;
- if (oldi > next_out) SendToPlayer(&buf[next_out], oldi - next_out);
- continue;
- }
- }
- } // [HGM] chat: end of patch
-
- backup = i;
- if (appData.zippyTalk || appData.zippyPlay) {
- /* [DM] Backup address for color zippy lines */
-#if ZIPPY
- if (loggedOn == TRUE)
- if (ZippyControl(buf, &backup) || ZippyConverse(buf, &backup) ||
- (appData.zippyPlay && ZippyMatch(buf, &backup)))
- ;
-#endif
- } // [DM] 'else { ' deleted
- if (
- /* Regular tells and says */
- (tkind = 1, looking_at(buf, &i, "* tells you: ")) ||
- looking_at(buf, &i, "* (your partner) tells you: ") ||
- looking_at(buf, &i, "* says: ") ||
- /* Don't color "message" or "messages" output */
- (tkind = 5, looking_at(buf, &i, "*. * (*:*): ")) ||
- looking_at(buf, &i, "*. * at *:*: ") ||
- looking_at(buf, &i, "--* (*:*): ") ||
- /* Message notifications (same color as tells) */
- looking_at(buf, &i, "* has left a message ") ||
- looking_at(buf, &i, "* just sent you a message:\n") ||
- /* Whispers and kibitzes */
- (tkind = 2, looking_at(buf, &i, "* whispers: ")) ||
- looking_at(buf, &i, "* kibitzes: ") ||
- /* Channel tells */
- (tkind = 3, looking_at(buf, &i, "*(*: "))) {
-
- if (tkind == 1 && strchr(star_match[0], ':')) {
- /* Avoid "tells you:" spoofs in channels */
- tkind = 3;
- }
- if (star_match[0][0] == NULLCHAR ||
- strchr(star_match[0], ' ') ||
- (tkind == 3 && strchr(star_match[1], ' '))) {
- /* Reject bogus matches */
- i = oldi;
- } else {
- if (appData.colorize) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- switch (tkind) {
- case 1:
- Colorize(ColorTell, FALSE);
- curColor = ColorTell;
- break;
- case 2:
- Colorize(ColorKibitz, FALSE);
- curColor = ColorKibitz;
- break;
- case 3:
- p = strrchr(star_match[1], '(');
- if (p == NULL) {
- p = star_match[1];
- } else {
- p++;
- }
- if (atoi(p) == 1) {
- Colorize(ColorChannel1, FALSE);
- curColor = ColorChannel1;
- } else {
- Colorize(ColorChannel, FALSE);
- curColor = ColorChannel;
- }
- break;
- case 5:
- curColor = ColorNormal;
- break;
- }
- }
- if (started == STARTED_NONE && appData.autoComment &&
- (gameMode == IcsObserving ||
- gameMode == IcsPlayingWhite ||
- gameMode == IcsPlayingBlack)) {
- parse_pos = i - oldi;
- memcpy(parse, &buf[oldi], parse_pos);
- parse[parse_pos] = NULLCHAR;
- started = STARTED_COMMENT;
- savingComment = TRUE;
- } else if(collective != 3) {
- started = STARTED_CHATTER;
- savingComment = FALSE;
- }
- loggedOn = TRUE;
- continue;
- }
- }
-
- if (looking_at(buf, &i, "* s-shouts: ") ||
- looking_at(buf, &i, "* c-shouts: ")) {
- if (appData.colorize) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- Colorize(ColorSShout, FALSE);
- curColor = ColorSShout;
- }
- loggedOn = TRUE;
- started = STARTED_CHATTER;
- continue;
- }
-
- if (looking_at(buf, &i, "--->")) {
- loggedOn = TRUE;
- continue;
- }
-
- if (looking_at(buf, &i, "* shouts: ") ||
- looking_at(buf, &i, "--> ")) {
- if (appData.colorize) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- Colorize(ColorShout, FALSE);
- curColor = ColorShout;
- }
- loggedOn = TRUE;
- started = STARTED_CHATTER;
- continue;
- }
-
- if (looking_at( buf, &i, "Challenge:")) {
- if (appData.colorize) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- Colorize(ColorChallenge, FALSE);
- curColor = ColorChallenge;
- }
- loggedOn = TRUE;
- continue;
- }
-
- if (looking_at(buf, &i, "* offers you") ||
- looking_at(buf, &i, "* offers to be") ||
- looking_at(buf, &i, "* would like to") ||
- looking_at(buf, &i, "* requests to") ||
- looking_at(buf, &i, "Your opponent offers") ||
- looking_at(buf, &i, "Your opponent requests")) {
-
- if (appData.colorize) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- Colorize(ColorRequest, FALSE);
- curColor = ColorRequest;
- }
- continue;
- }
-
- if (looking_at(buf, &i, "* (*) seeking")) {
- if (appData.colorize) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- Colorize(ColorSeek, FALSE);
- curColor = ColorSeek;
- }
- continue;
- }
-
- if(i < backup) { i = backup; continue; } // [HGM] for if ZippyControl matches, but the colorie code doesn't
-
- if (looking_at(buf, &i, "\\ ")) {
- if (prevColor != ColorNormal) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- Colorize(prevColor, TRUE);
- curColor = prevColor;
- }
- if (savingComment) {
- parse_pos = i - oldi;
- memcpy(parse, &buf[oldi], parse_pos);
- parse[parse_pos] = NULLCHAR;
- started = STARTED_COMMENT;
- if(savingComment >= 3) // [HGM] chat: continuation of line for chat box
- chattingPartner = savingComment - 3; // kludge to remember the box
- } else {
- started = STARTED_CHATTER;
- }
- continue;
- }
-
- if (looking_at(buf, &i, "Black Strength :") ||
- looking_at(buf, &i, "<<< style 10 board >>>") ||
- looking_at(buf, &i, "<10>") ||
- looking_at(buf, &i, "#@#")) {
- /* Wrong board style */
- loggedOn = TRUE;
- SendToICS(ics_prefix);
- SendToICS("set style 12\n");
- SendToICS(ics_prefix);
- SendToICS("refresh\n");
- continue;
- }
-
- if (looking_at(buf, &i, "login:")) {
- if (!have_sent_ICS_logon) {
- if(ICSInitScript())
- have_sent_ICS_logon = 1;
- else // no init script was found
- have_sent_ICS_logon = (appData.autoCreateLogon ? 2 : 1); // flag that we should capture username + password
- } else { // we have sent (or created) the InitScript, but apparently the ICS rejected it
- have_sent_ICS_logon = (appData.autoCreateLogon ? 2 : 1); // request creation of a new script
- }
- continue;
- }
-
- if (ics_getting_history != H_GETTING_MOVES /*smpos kludge*/ &&
- (looking_at(buf, &i, "\n<12> ") ||
- looking_at(buf, &i, "<12> "))) {
- loggedOn = TRUE;
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- }
- next_out = i;
- started = STARTED_BOARD;
- parse_pos = 0;
- continue;
- }
-
- if ((started == STARTED_NONE && looking_at(buf, &i, "\n<b1> ")) ||
- looking_at(buf, &i, "<b1> ")) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- }
- next_out = i;
- started = STARTED_HOLDINGS;
- parse_pos = 0;
- continue;
- }
-
- if (looking_at(buf, &i, "* *vs. * *--- *")) {
- loggedOn = TRUE;
- /* Header for a move list -- first line */
-
- switch (ics_getting_history) {
- case H_FALSE:
- switch (gameMode) {
- case IcsIdle:
- case BeginningOfGame:
- /* User typed "moves" or "oldmoves" while we
- were idle. Pretend we asked for these
- moves and soak them up so user can step
- through them and/or save them.
- */
- Reset(FALSE, TRUE);
- gameMode = IcsObserving;
- ModeHighlight();
- ics_gamenum = -1;
- ics_getting_history = H_GOT_UNREQ_HEADER;
- break;
- case EditGame: /*?*/
- case EditPosition: /*?*/
- /* Should above feature work in these modes too? */
- /* For now it doesn't */
- ics_getting_history = H_GOT_UNWANTED_HEADER;
- break;
- default:
- ics_getting_history = H_GOT_UNWANTED_HEADER;
- break;
- }
- break;
- case H_REQUESTED:
- /* Is this the right one? */
- if (gameInfo.white && gameInfo.black &&
- strcmp(gameInfo.white, star_match[0]) == 0 &&
- strcmp(gameInfo.black, star_match[2]) == 0) {
- /* All is well */
- ics_getting_history = H_GOT_REQ_HEADER;
- }
- break;
- case H_GOT_REQ_HEADER:
- case H_GOT_UNREQ_HEADER:
- case H_GOT_UNWANTED_HEADER:
- case H_GETTING_MOVES:
- /* Should not happen */
- DisplayError(_("Error gathering move list: two headers"), 0);
- ics_getting_history = H_FALSE;
- break;
- }
-
- /* Save player ratings into gameInfo if needed */
- if ((ics_getting_history == H_GOT_REQ_HEADER ||
- ics_getting_history == H_GOT_UNREQ_HEADER) &&
- (gameInfo.whiteRating == -1 ||
- gameInfo.blackRating == -1)) {
-
- gameInfo.whiteRating = string_to_rating(star_match[1]);
- gameInfo.blackRating = string_to_rating(star_match[3]);
- if (appData.debugMode)
- fprintf(debugFP, "Ratings from header: W %d, B %d\n",
- gameInfo.whiteRating, gameInfo.blackRating);
- }
- continue;
- }
-
- if (looking_at(buf, &i,
- "* * match, initial time: * minute*, increment: * second")) {
- /* Header for a move list -- second line */
- /* Initial board will follow if this is a wild game */
- if (gameInfo.event != NULL) free(gameInfo.event);
- snprintf(str, MSG_SIZ, "ICS %s %s match", star_match[0], star_match[1]);
- gameInfo.event = StrSave(str);
- /* [HGM] we switched variant. Translate boards if needed. */
- VariantSwitch(boards[currentMove], StringToVariant(gameInfo.event));
- continue;
- }
-
- if (looking_at(buf, &i, "Move ")) {
- /* Beginning of a move list */
- switch (ics_getting_history) {
- case H_FALSE:
- /* Normally should not happen */
- /* Maybe user hit reset while we were parsing */
- break;
- case H_REQUESTED:
- /* Happens if we are ignoring a move list that is not
- * the one we just requested. Common if the user
- * tries to observe two games without turning off
- * getMoveList */
- break;
- case H_GETTING_MOVES:
- /* Should not happen */
- DisplayError(_("Error gathering move list: nested"), 0);
- ics_getting_history = H_FALSE;
- break;
- case H_GOT_REQ_HEADER:
- ics_getting_history = H_GETTING_MOVES;
- started = STARTED_MOVES;
- parse_pos = 0;
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- }
- break;
- case H_GOT_UNREQ_HEADER:
- ics_getting_history = H_GETTING_MOVES;
- started = STARTED_MOVES_NOHIDE;
- parse_pos = 0;
- break;
- case H_GOT_UNWANTED_HEADER:
- ics_getting_history = H_FALSE;
- break;
- }
- continue;
- }
-
- if (looking_at(buf, &i, "% ") ||
- ((started == STARTED_MOVES || started == STARTED_MOVES_NOHIDE)
- && looking_at(buf, &i, "}*"))) { char *bookHit = NULL; // [HGM] book
- if(soughtPending && nrOfSeekAds) { // [HGM] seekgraph: on ICC sought-list has no termination line
- soughtPending = FALSE;
- seekGraphUp = TRUE;
- DrawSeekGraph();
- }
- if(suppressKibitz) next_out = i;
- savingComment = FALSE;
- suppressKibitz = 0;
- switch (started) {
- case STARTED_MOVES:
- case STARTED_MOVES_NOHIDE:
- memcpy(&parse[parse_pos], &buf[oldi], i - oldi);
- parse[parse_pos + i - oldi] = NULLCHAR;
- ParseGameHistory(parse);
-#if ZIPPY
- if (appData.zippyPlay && first.initDone) {
- FeedMovesToProgram(&first, forwardMostMove);
- if (gameMode == IcsPlayingWhite) {
- if (WhiteOnMove(forwardMostMove)) {
- if (first.sendTime) {
- if (first.useColors) {
- SendToProgram("black\n", &first);
- }
- SendTimeRemaining(&first, TRUE);
- }
- if (first.useColors) {
- SendToProgram("white\n", &first); // [HGM] book: made sending of "go\n" book dependent
- }
- bookHit = SendMoveToBookUser(forwardMostMove-1, &first, TRUE); // [HGM] book: probe book for initial pos
- first.maybeThinking = TRUE;
- } else {
- if (first.usePlayother) {
- if (first.sendTime) {
- SendTimeRemaining(&first, TRUE);
- }
- SendToProgram("playother\n", &first);
- firstMove = FALSE;
- } else {
- firstMove = TRUE;
- }
- }
- } else if (gameMode == IcsPlayingBlack) {
- if (!WhiteOnMove(forwardMostMove)) {
- if (first.sendTime) {
- if (first.useColors) {
- SendToProgram("white\n", &first);
- }
- SendTimeRemaining(&first, FALSE);
- }
- if (first.useColors) {
- SendToProgram("black\n", &first);
- }
- bookHit = SendMoveToBookUser(forwardMostMove-1, &first, TRUE);
- first.maybeThinking = TRUE;
- } else {
- if (first.usePlayother) {
- if (first.sendTime) {
- SendTimeRemaining(&first, FALSE);
- }
- SendToProgram("playother\n", &first);
- firstMove = FALSE;
- } else {
- firstMove = TRUE;
- }
- }
- }
- }
-#endif
- if (gameMode == IcsObserving && ics_gamenum == -1) {
- /* Moves came from oldmoves or moves command
- while we weren't doing anything else.
- */
- currentMove = forwardMostMove;
- ClearHighlights();/*!!could figure this out*/
- flipView = appData.flipView;
- DrawPosition(TRUE, boards[currentMove]);
- DisplayBothClocks();
- snprintf(str, MSG_SIZ, "%s %s %s",
- gameInfo.white, _("vs."), gameInfo.black);
- DisplayTitle(str);
- gameMode = IcsIdle;
- } else {
- /* Moves were history of an active game */
- if (gameInfo.resultDetails != NULL) {
- free(gameInfo.resultDetails);
- gameInfo.resultDetails = NULL;
- }
- }
- HistorySet(parseList, backwardMostMove,
- forwardMostMove, currentMove-1);
- DisplayMove(currentMove - 1);
- if (started == STARTED_MOVES) next_out = i;
- started = STARTED_NONE;
- ics_getting_history = H_FALSE;
- break;
-
- case STARTED_OBSERVE:
- started = STARTED_NONE;
- SendToICS(ics_prefix);
- SendToICS("refresh\n");
- break;
-
- default:
- break;
- }
- if(bookHit) { // [HGM] book: simulate book reply
- static char bookMove[MSG_SIZ]; // a bit generous?
-
- programStats.nodes = programStats.depth = programStats.time =
- programStats.score = programStats.got_only_move = 0;
- sprintf(programStats.movelist, "%s (xbook)", bookHit);
-
- safeStrCpy(bookMove, "move ", sizeof(bookMove)/sizeof(bookMove[0]));
- strcat(bookMove, bookHit);
- HandleMachineMove(bookMove, &first);
- }
- continue;
- }
-
- if ((started == STARTED_MOVES || started == STARTED_BOARD ||
- started == STARTED_HOLDINGS ||
- started == STARTED_MOVES_NOHIDE) && i >= leftover_len) {
- /* Accumulate characters in move list or board */
- parse[parse_pos++] = buf[i];
- }
-
- /* Start of game messages. Mostly we detect start of game
- when the first board image arrives. On some versions
- of the ICS, though, we need to do a "refresh" after starting
- to observe in order to get the current board right away. */
- if (looking_at(buf, &i, "Adding game * to observation list")) {
- started = STARTED_OBSERVE;
- continue;
- }
-
- /* Handle auto-observe */
- if (appData.autoObserve &&
- (gameMode == IcsIdle || gameMode == BeginningOfGame) &&
- looking_at(buf, &i, "Game notification: * (*) vs. * (*)")) {
- char *player;
- /* Choose the player that was highlighted, if any. */
- if (star_match[0][0] == '\033' ||
- star_match[1][0] != '\033') {
- player = star_match[0];
- } else {
- player = star_match[2];
- }
- snprintf(str, MSG_SIZ, "%sobserve %s\n",
- ics_prefix, StripHighlightAndTitle(player));
- SendToICS(str);
-
- /* Save ratings from notify string */
- safeStrCpy(player1Name, star_match[0], sizeof(player1Name)/sizeof(player1Name[0]));
- player1Rating = string_to_rating(star_match[1]);
- safeStrCpy(player2Name, star_match[2], sizeof(player2Name)/sizeof(player2Name[0]));
- player2Rating = string_to_rating(star_match[3]);
-
- if (appData.debugMode)
- fprintf(debugFP,
- "Ratings from 'Game notification:' %s %d, %s %d\n",
- player1Name, player1Rating,
- player2Name, player2Rating);
-
- continue;
- }
-
- /* Deal with automatic examine mode after a game,
- and with IcsObserving -> IcsExamining transition */
- if (looking_at(buf, &i, "Entering examine mode for game *") ||
- looking_at(buf, &i, "has made you an examiner of game *")) {
-
- int gamenum = atoi(star_match[0]);
- if ((gameMode == IcsIdle || gameMode == IcsObserving) &&
- gamenum == ics_gamenum) {
- /* We were already playing or observing this game;
- no need to refetch history */
- gameMode = IcsExamining;
- if (pausing) {
- pauseExamForwardMostMove = forwardMostMove;
- } else if (currentMove < forwardMostMove) {
- ForwardInner(forwardMostMove);
- }
- } else {
- /* I don't think this case really can happen */
- SendToICS(ics_prefix);
- SendToICS("refresh\n");
- }
- continue;
- }
-
- /* Error messages */
-// if (ics_user_moved) {
- if (1) { // [HGM] old way ignored error after move type in; ics_user_moved is not set then!
- if (looking_at(buf, &i, "Illegal move") ||
- looking_at(buf, &i, "Not a legal move") ||
- looking_at(buf, &i, "Your king is in check") ||
- looking_at(buf, &i, "It isn't your turn") ||
- looking_at(buf, &i, "It is not your move")) {
- /* Illegal move */
- if (ics_user_moved && forwardMostMove > backwardMostMove) { // only backup if we already moved
- currentMove = forwardMostMove-1;
- DisplayMove(currentMove - 1); /* before DMError */
- DrawPosition(FALSE, boards[currentMove]);
- SwitchClocks(forwardMostMove-1); // [HGM] race
- DisplayBothClocks();
- }
- DisplayMoveError(_("Illegal move (rejected by ICS)")); // [HGM] but always relay error msg
- ics_user_moved = 0;
- continue;
- }
- }
-
- if (looking_at(buf, &i, "still have time") ||
- looking_at(buf, &i, "not out of time") ||
- looking_at(buf, &i, "either player is out of time") ||
- looking_at(buf, &i, "has timeseal; checking")) {
- /* We must have called his flag a little too soon */
- whiteFlag = blackFlag = FALSE;
- continue;
- }
-
- if (looking_at(buf, &i, "added * seconds to") ||
- looking_at(buf, &i, "seconds were added to")) {
- /* Update the clocks */
- SendToICS(ics_prefix);
- SendToICS("refresh\n");
- continue;
- }
-
- if (!ics_clock_paused && looking_at(buf, &i, "clock paused")) {
- ics_clock_paused = TRUE;
- StopClocks();
- continue;
- }
-
- if (ics_clock_paused && looking_at(buf, &i, "clock resumed")) {
- ics_clock_paused = FALSE;
- StartClocks();
- continue;
- }
-
- /* Grab player ratings from the Creating: message.
- Note we have to check for the special case when
- the ICS inserts things like [white] or [black]. */
- if (looking_at(buf, &i, "Creating: * (*)* * (*)") ||
- looking_at(buf, &i, "Creating: * (*) [*] * (*)")) {
- /* star_matches:
- 0 player 1 name (not necessarily white)
- 1 player 1 rating
- 2 empty, white, or black (IGNORED)
- 3 player 2 name (not necessarily black)
- 4 player 2 rating
-
- The names/ratings are sorted out when the game
- actually starts (below).
- */
- safeStrCpy(player1Name, StripHighlightAndTitle(star_match[0]), sizeof(player1Name)/sizeof(player1Name[0]));
- player1Rating = string_to_rating(star_match[1]);
- safeStrCpy(player2Name, StripHighlightAndTitle(star_match[3]), sizeof(player2Name)/sizeof(player2Name[0]));
- player2Rating = string_to_rating(star_match[4]);
-
- if (appData.debugMode)
- fprintf(debugFP,
- "Ratings from 'Creating:' %s %d, %s %d\n",
- player1Name, player1Rating,
- player2Name, player2Rating);
-
- continue;
- }
-
- /* Improved generic start/end-of-game messages */
- if ((tkind=0, looking_at(buf, &i, "{Game * (* vs. *) *}*")) ||
- (tkind=1, looking_at(buf, &i, "{Game * (*(*) vs. *(*)) *}*"))){
- /* If tkind == 0: */
- /* star_match[0] is the game number */
- /* [1] is the white player's name */
- /* [2] is the black player's name */
- /* For end-of-game: */
- /* [3] is the reason for the game end */
- /* [4] is a PGN end game-token, preceded by " " */
- /* For start-of-game: */
- /* [3] begins with "Creating" or "Continuing" */
- /* [4] is " *" or empty (don't care). */
- int gamenum = atoi(star_match[0]);
- char *whitename, *blackname, *why, *endtoken;
- ChessMove endtype = EndOfFile;
-
- if (tkind == 0) {
- whitename = star_match[1];
- blackname = star_match[2];
- why = star_match[3];
- endtoken = star_match[4];
- } else {
- whitename = star_match[1];
- blackname = star_match[3];
- why = star_match[5];
- endtoken = star_match[6];
- }
-
- /* Game start messages */
- if (strncmp(why, "Creating ", 9) == 0 ||
- strncmp(why, "Continuing ", 11) == 0) {
- gs_gamenum = gamenum;
- safeStrCpy(gs_kind, strchr(why, ' ') + 1,sizeof(gs_kind)/sizeof(gs_kind[0]));
- if(ics_gamenum == -1) // [HGM] only if we are not already involved in a game (because gin=1 sends us such messages)
- VariantSwitch(boards[currentMove], StringToVariant(gs_kind)); // [HGM] variantswitch: even before we get first board
-#if ZIPPY
- if (appData.zippyPlay) {
- ZippyGameStart(whitename, blackname);
- }
-#endif /*ZIPPY*/
- partnerBoardValid = FALSE; // [HGM] bughouse
- continue;
- }
-
- /* Game end messages */
- if (gameMode == IcsIdle || gameMode == BeginningOfGame ||
- ics_gamenum != gamenum) {
- continue;
- }
- while (endtoken[0] == ' ') endtoken++;
- switch (endtoken[0]) {
- case '*':
- default:
- endtype = GameUnfinished;
- break;
- case '0':
- endtype = BlackWins;
- break;
- case '1':
- if (endtoken[1] == '/')
- endtype = GameIsDrawn;
- else
- endtype = WhiteWins;
- break;
- }
- GameEnds(endtype, why, GE_ICS);
-#if ZIPPY
- if (appData.zippyPlay && first.initDone) {
- ZippyGameEnd(endtype, why);
- if (first.pr == NoProc) {
- /* Start the next process early so that we'll
- be ready for the next challenge */
- StartChessProgram(&first);
- }
- /* Send "new" early, in case this command takes
- a long time to finish, so that we'll be ready
- for the next challenge. */
- gameInfo.variant = VariantNormal; // [HGM] variantswitch: suppress sending of 'variant'
- Reset(TRUE, TRUE);
- }
-#endif /*ZIPPY*/
- if(appData.bgObserve && partnerBoardValid) DrawPosition(TRUE, partnerBoard);
- continue;
- }
-
- if (looking_at(buf, &i, "Removing game * from observation") ||
- looking_at(buf, &i, "no longer observing game *") ||
- looking_at(buf, &i, "Game * (*) has no examiners")) {
- if (gameMode == IcsObserving &&
- atoi(star_match[0]) == ics_gamenum)
- {
- /* icsEngineAnalyze */
- if (appData.icsEngineAnalyze) {
- ExitAnalyzeMode();
- ModeHighlight();
- }
- StopClocks();
- gameMode = IcsIdle;
- ics_gamenum = -1;
- ics_user_moved = FALSE;
- }
- continue;
- }
-
- if (looking_at(buf, &i, "no longer examining game *")) {
- if (gameMode == IcsExamining &&
- atoi(star_match[0]) == ics_gamenum)
- {
- gameMode = IcsIdle;
- ics_gamenum = -1;
- ics_user_moved = FALSE;
- }
- continue;
- }
-
- /* Advance leftover_start past any newlines we find,
- so only partial lines can get reparsed */
- if (looking_at(buf, &i, "\n")) {
- prevColor = curColor;
- if (curColor != ColorNormal) {
- if (oldi > next_out) {
- SendToPlayer(&buf[next_out], oldi - next_out);
- next_out = oldi;
- }
- Colorize(ColorNormal, FALSE);
- curColor = ColorNormal;
- }
- if (started == STARTED_BOARD) {
- started = STARTED_NONE;
- parse[parse_pos] = NULLCHAR;
- ParseBoard12(parse);
- ics_user_moved = 0;
-
- /* Send premove here */
- if (appData.premove) {
- char str[MSG_SIZ];
- if (currentMove == 0 &&
- gameMode == IcsPlayingWhite &&
- appData.premoveWhite) {
- snprintf(str, MSG_SIZ, "%s\n", appData.premoveWhiteText);
- if (appData.debugMode)
- fprintf(debugFP, "Sending premove:\n");
- SendToICS(str);
- } else if (currentMove == 1 &&
- gameMode == IcsPlayingBlack &&
- appData.premoveBlack) {
- snprintf(str, MSG_SIZ, "%s\n", appData.premoveBlackText);
- if (appData.debugMode)
- fprintf(debugFP, "Sending premove:\n");
- SendToICS(str);
- } else if (gotPremove) {
- int oldFMM = forwardMostMove;
- gotPremove = 0;
- ClearPremoveHighlights();
- if (appData.debugMode)
- fprintf(debugFP, "Sending premove:\n");
- UserMoveEvent(premoveFromX, premoveFromY,
- premoveToX, premoveToY,
- premovePromoChar);
- if(forwardMostMove == oldFMM) { // premove was rejected, highlight last opponent move
- if(moveList[oldFMM-1][1] != '@')
- SetHighlights(moveList[oldFMM-1][0]-AAA, moveList[oldFMM-1][1]-ONE,
- moveList[oldFMM-1][2]-AAA, moveList[oldFMM-1][3]-ONE);
- else // (drop)
- SetHighlights(-1, -1, moveList[oldFMM-1][2]-AAA, moveList[oldFMM-1][3]-ONE);
- }
- }
- }
-
- /* Usually suppress following prompt */
- if (!(forwardMostMove == 0 && gameMode == IcsExamining)) {
- while(looking_at(buf, &i, "\n")); // [HGM] skip empty lines
- if (looking_at(buf, &i, "*% ")) {
- savingComment = FALSE;
- suppressKibitz = 0;
- }
- }
- next_out = i;
- } else if (started == STARTED_HOLDINGS) {
- int gamenum;
- char new_piece[MSG_SIZ];
- started = STARTED_NONE;
- parse[parse_pos] = NULLCHAR;
- if (appData.debugMode)
- fprintf(debugFP, "Parsing holdings: %s, currentMove = %d\n",
- parse, currentMove);
- if (sscanf(parse, " game %d", &gamenum) == 1) {
- if(gamenum == ics_gamenum) { // [HGM] bughouse: old code if part of foreground game
- if (gameInfo.variant == VariantNormal) {
- /* [HGM] We seem to switch variant during a game!
- * Presumably no holdings were displayed, so we have
- * to move the position two files to the right to
- * create room for them!
- */
- VariantClass newVariant;
- switch(gameInfo.boardWidth) { // base guess on board width
- case 9: newVariant = VariantShogi; break;
- case 10: newVariant = VariantGreat; break;
- default: newVariant = VariantCrazyhouse; break;
- }
- VariantSwitch(boards[currentMove], newVariant); /* temp guess */
- /* Get a move list just to see the header, which
- will tell us whether this is really bug or zh */
- if (ics_getting_history == H_FALSE) {
- ics_getting_history = H_REQUESTED;
- snprintf(str, MSG_SIZ, "%smoves %d\n", ics_prefix, gamenum);
- SendToICS(str);
- }
- }
- new_piece[0] = NULLCHAR;
- sscanf(parse, "game %d white [%s black [%s <- %s",
- &gamenum, white_holding, black_holding,
- new_piece);
- white_holding[strlen(white_holding)-1] = NULLCHAR;
- black_holding[strlen(black_holding)-1] = NULLCHAR;
- /* [HGM] copy holdings to board holdings area */
- CopyHoldings(boards[forwardMostMove], white_holding, WhitePawn);
- CopyHoldings(boards[forwardMostMove], black_holding, BlackPawn);
- boards[forwardMostMove][HOLDINGS_SET] = 1; // flag holdings as set
-#if ZIPPY
- if (appData.zippyPlay && first.initDone) {
- ZippyHoldings(white_holding, black_holding,
- new_piece);
- }
-#endif /*ZIPPY*/
- if (tinyLayout || smallLayout) {
- char wh[16], bh[16];
- PackHolding(wh, white_holding);
- PackHolding(bh, black_holding);
- snprintf(str, MSG_SIZ, "[%s-%s] %s-%s", wh, bh,
- gameInfo.white, gameInfo.black);
- } else {
- snprintf(str, MSG_SIZ, "%s [%s] %s %s [%s]",
- gameInfo.white, white_holding, _("vs."),
- gameInfo.black, black_holding);
- }
- if(!partnerUp) // [HGM] bughouse: when peeking at partner game we already know what he captured...
- DrawPosition(FALSE, boards[currentMove]);
- DisplayTitle(str);
- } else if(appData.bgObserve) { // [HGM] bughouse: holdings of other game => background
- sscanf(parse, "game %d white [%s black [%s <- %s",
- &gamenum, white_holding, black_holding,
- new_piece);
- white_holding[strlen(white_holding)-1] = NULLCHAR;
- black_holding[strlen(black_holding)-1] = NULLCHAR;
- /* [HGM] copy holdings to partner-board holdings area */
- CopyHoldings(partnerBoard, white_holding, WhitePawn);
- CopyHoldings(partnerBoard, black_holding, BlackPawn);
- if(twoBoards) { partnerUp = 1; flipView = !flipView; } // [HGM] dual: always draw
- if(partnerUp) DrawPosition(FALSE, partnerBoard);
- if(twoBoards) { partnerUp = 0; flipView = !flipView; }
- }
- }
- /* Suppress following prompt */
- if (looking_at(buf, &i, "*% ")) {
- if(strchr(star_match[0], 7)) SendToPlayer("\007", 1); // Bell(); // FICS fuses bell for next board with prompt in zh captures
- savingComment = FALSE;
- suppressKibitz = 0;
- }
- next_out = i;
- }
- continue;
- }
-
- i++; /* skip unparsed character and loop back */
- }
-
- if (started != STARTED_MOVES && started != STARTED_BOARD && !suppressKibitz && // [HGM] kibitz
-// started != STARTED_HOLDINGS && i > next_out) { // [HGM] should we compare to leftover_start in stead of i?
-// SendToPlayer(&buf[next_out], i - next_out);
- started != STARTED_HOLDINGS && leftover_start > next_out) {
- SendToPlayer(&buf[next_out], leftover_start - next_out);
- next_out = i;
- }
-
- leftover_len = buf_len - leftover_start;
- /* if buffer ends with something we couldn't parse,
- reparse it after appending the next read */
-
- } else if (count == 0) {
- RemoveInputSource(isr);
- DisplayFatalError(_("Connection closed by ICS"), 0, 0);
- } else {
- DisplayFatalError(_("Error reading from ICS"), error, 1);
- }
-}
-
-
-/* Board style 12 looks like this:
-
- <12> r-b---k- pp----pp ---bP--- ---p---- q------- ------P- P--Q--BP -----R-K W -1 0 0 0 0 0 0 paf MaxII 0 2 12 21 25 234 174 24 Q/d7-a4 (0:06) Qxa4 0 0
-
- * The "<12> " is stripped before it gets to this routine. The two
- * trailing 0's (flip state and clock ticking) are later addition, and
- * some chess servers may not have them, or may have only the first.
- * Additional trailing fields may be added in the future.
- */
-
-#define PATTERN "%c%d%d%d%d%d%d%d%s%s%d%d%d%d%d%d%d%d%s%s%s%d%d"
-
-#define RELATION_OBSERVING_PLAYED 0
-#define RELATION_OBSERVING_STATIC -2 /* examined, oldmoves, or smoves */
-#define RELATION_PLAYING_MYMOVE 1
-#define RELATION_PLAYING_NOTMYMOVE -1
-#define RELATION_EXAMINING 2
-#define RELATION_ISOLATED_BOARD -3
-#define RELATION_STARTING_POSITION -4 /* FICS only */
-
-void
-ParseBoard12 (char *string)
-{
-#if ZIPPY
- int i, takeback;
- char *bookHit = NULL; // [HGM] book
-#endif
- GameMode newGameMode;
- int gamenum, newGame, newMove, relation, basetime, increment, ics_flip = 0;
- int j, k, n, moveNum, white_stren, black_stren, white_time, black_time;
- int double_push, castle_ws, castle_wl, castle_bs, castle_bl, irrev_count;
- char to_play, board_chars[200];
- char move_str[MSG_SIZ], str[MSG_SIZ], elapsed_time[MSG_SIZ];
- char black[32], white[32];
- Board board;
- int prevMove = currentMove;
- int ticking = 2;
- ChessMove moveType;
- int fromX, fromY, toX, toY;
- char promoChar;
- int ranks=1, files=0; /* [HGM] ICS80: allow variable board size */
- Boolean weird = FALSE, reqFlag = FALSE;
-
- fromX = fromY = toX = toY = -1;
-
- newGame = FALSE;
-
- if (appData.debugMode)
- fprintf(debugFP, "Parsing board: %s\n", string);
-
- move_str[0] = NULLCHAR;
- elapsed_time[0] = NULLCHAR;
- { /* [HGM] figure out how many ranks and files the board has, for ICS extension used by Capablanca server */
- int i = 0, j;
- while(i < 199 && (string[i] != ' ' || string[i+2] != ' ')) {
- if(string[i] == ' ') { ranks++; files = 0; }
- else files++;
- if(!strchr(" -pnbrqkPNBRQK" , string[i])) weird = TRUE; // test for fairies
- i++;
- }
- for(j = 0; j <i; j++) board_chars[j] = string[j];
- board_chars[i] = '\0';
- string += i + 1;
- }
- n = sscanf(string, PATTERN, &to_play, &double_push,
- &castle_ws, &castle_wl, &castle_bs, &castle_bl, &irrev_count,
- &gamenum, white, black, &relation, &basetime, &increment,
- &white_stren, &black_stren, &white_time, &black_time,
- &moveNum, str, elapsed_time, move_str, &ics_flip,
- &ticking);
-
- if (n < 21) {
- snprintf(str, MSG_SIZ, _("Failed to parse board string:\n\"%s\""), string);
- DisplayError(str, 0);
- return;
- }
-
- /* Convert the move number to internal form */
- moveNum = (moveNum - 1) * 2;
- if (to_play == 'B') moveNum++;
- if (moveNum > framePtr) { // [HGM] vari: do not run into saved variations
- DisplayFatalError(_("Game too long; increase MAX_MOVES and recompile"),
- 0, 1);
- return;
- }
-
- switch (relation) {
- case RELATION_OBSERVING_PLAYED:
- case RELATION_OBSERVING_STATIC:
- if (gamenum == -1) {
- /* Old ICC buglet */
- relation = RELATION_OBSERVING_STATIC;
- }
- newGameMode = IcsObserving;
- break;
- case RELATION_PLAYING_MYMOVE:
- case RELATION_PLAYING_NOTMYMOVE:
- newGameMode =
- ((relation == RELATION_PLAYING_MYMOVE) == (to_play == 'W')) ?
- IcsPlayingWhite : IcsPlayingBlack;
- soughtPending =FALSE; // [HGM] seekgraph: solve race condition
- break;
- case RELATION_EXAMINING:
- newGameMode = IcsExamining;
- break;
- case RELATION_ISOLATED_BOARD:
- default:
- /* Just display this board. If user was doing something else,
- we will forget about it until the next board comes. */
- newGameMode = IcsIdle;
- break;
- case RELATION_STARTING_POSITION:
- newGameMode = gameMode;
- break;
- }
-
- if((gameMode == IcsPlayingWhite || gameMode == IcsPlayingBlack ||
- gameMode == IcsObserving && appData.dualBoard) // also allow use of second board for observing two games
- && newGameMode == IcsObserving && gamenum != ics_gamenum && appData.bgObserve) {
- // [HGM] bughouse: don't act on alien boards while we play. Just parse the board and save it */
- int fac = strchr(elapsed_time, '.') ? 1 : 1000;
- static int lastBgGame = -1;
- char *toSqr;
- for (k = 0; k < ranks; k++) {
- for (j = 0; j < files; j++)
- board[k][j+gameInfo.holdingsWidth] = CharToPiece(board_chars[(ranks-1-k)*(files+1) + j]);
- if(gameInfo.holdingsWidth > 1) {
- board[k][0] = board[k][BOARD_WIDTH-1] = EmptySquare;
- board[k][1] = board[k][BOARD_WIDTH-2] = (ChessSquare) 0;;
- }
- }
- CopyBoard(partnerBoard, board);
- if(toSqr = strchr(str, '/')) { // extract highlights from long move
- partnerBoard[EP_STATUS-3] = toSqr[1] - AAA; // kludge: hide highlighting info in board
- partnerBoard[EP_STATUS-4] = toSqr[2] - ONE;
- } else partnerBoard[EP_STATUS-4] = partnerBoard[EP_STATUS-3] = -1;
- if(toSqr = strchr(str, '-')) {
- partnerBoard[EP_STATUS-1] = toSqr[1] - AAA;
- partnerBoard[EP_STATUS-2] = toSqr[2] - ONE;
- } else partnerBoard[EP_STATUS-1] = partnerBoard[EP_STATUS-2] = -1;
- if(appData.dualBoard && !twoBoards) { twoBoards = 1; InitDrawingSizes(-2,0); }
- if(twoBoards) { partnerUp = 1; flipView = !flipView; } // [HGM] dual
- if(partnerUp) DrawPosition(FALSE, partnerBoard);
- if(twoBoards) {
- DisplayWhiteClock(white_time*fac, to_play == 'W');
- DisplayBlackClock(black_time*fac, to_play != 'W');
- activePartner = to_play;
- if(gamenum != lastBgGame) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "%s %s %s", white, _("vs."), black);
- DisplayTitle(buf);
- }
- lastBgGame = gamenum;
- activePartnerTime = to_play == 'W' ? white_time*fac : black_time*fac;
- partnerUp = 0; flipView = !flipView; } // [HGM] dual
- snprintf(partnerStatus, MSG_SIZ,"W: %d:%02d B: %d:%02d (%d-%d) %c", white_time*fac/60000, (white_time*fac%60000)/1000,
- (black_time*fac/60000), (black_time*fac%60000)/1000, white_stren, black_stren, to_play);
- if(!twoBoards) DisplayMessage(partnerStatus, "");
- partnerBoardValid = TRUE;
- return;
- }
-
- if(appData.dualBoard && appData.bgObserve) {
- if((newGameMode == IcsPlayingWhite || newGameMode == IcsPlayingBlack) && moveNum == 1)
- SendToICS(ics_prefix), SendToICS("pobserve\n");
- else if(newGameMode == IcsObserving && (gameMode == BeginningOfGame || gameMode == IcsIdle)) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "%spobserve %s\n", ics_prefix, white);
- SendToICS(buf);
- }
- }
-
- /* Modify behavior for initial board display on move listing
- of wild games.
- */
- switch (ics_getting_history) {
- case H_FALSE:
- case H_REQUESTED:
- break;
- case H_GOT_REQ_HEADER:
- case H_GOT_UNREQ_HEADER:
- /* This is the initial position of the current game */
- gamenum = ics_gamenum;
- moveNum = 0; /* old ICS bug workaround */
- if (to_play == 'B') {
- startedFromSetupPosition = TRUE;
- blackPlaysFirst = TRUE;
- moveNum = 1;
- if (forwardMostMove == 0) forwardMostMove = 1;
- if (backwardMostMove == 0) backwardMostMove = 1;
- if (currentMove == 0) currentMove = 1;
- }
- newGameMode = gameMode;
- relation = RELATION_STARTING_POSITION; /* ICC needs this */
- break;
- case H_GOT_UNWANTED_HEADER:
- /* This is an initial board that we don't want */
- return;
- case H_GETTING_MOVES:
- /* Should not happen */
- DisplayError(_("Error gathering move list: extra board"), 0);
- ics_getting_history = H_FALSE;
- return;
- }
-
- if (gameInfo.boardHeight != ranks || gameInfo.boardWidth != files ||
- move_str[1] == '@' && !gameInfo.holdingsWidth ||
- weird && (int)gameInfo.variant < (int)VariantShogi) {
- /* [HGM] We seem to have switched variant unexpectedly
- * Try to guess new variant from board size
- */
- VariantClass newVariant = VariantFairy; // if 8x8, but fairies present
- if(ranks == 8 && files == 10) newVariant = VariantCapablanca; else
- if(ranks == 10 && files == 9) newVariant = VariantXiangqi; else
- if(ranks == 8 && files == 12) newVariant = VariantCourier; else
- if(ranks == 9 && files == 9) newVariant = VariantShogi; else
- if(ranks == 10 && files == 10) newVariant = VariantGrand; else
- if(!weird) newVariant = move_str[1] == '@' ? VariantCrazyhouse : VariantNormal;
- VariantSwitch(boards[currentMove], newVariant); /* temp guess */
- /* Get a move list just to see the header, which
- will tell us whether this is really bug or zh */
- if (ics_getting_history == H_FALSE) {
- ics_getting_history = H_REQUESTED; reqFlag = TRUE;
- snprintf(str, MSG_SIZ, "%smoves %d\n", ics_prefix, gamenum);
- SendToICS(str);
- }
- }
-
- /* Take action if this is the first board of a new game, or of a
- different game than is currently being displayed. */
- if (gamenum != ics_gamenum || newGameMode != gameMode ||
- relation == RELATION_ISOLATED_BOARD) {
-
- /* Forget the old game and get the history (if any) of the new one */
- if (gameMode != BeginningOfGame) {
- Reset(TRUE, TRUE);
- }
- newGame = TRUE;
- if (appData.autoRaiseBoard) BoardToTop();
- prevMove = -3;
- if (gamenum == -1) {
- newGameMode = IcsIdle;
- } else if ((moveNum > 0 || newGameMode == IcsObserving) && newGameMode != IcsIdle &&
- appData.getMoveList && !reqFlag) {
- /* Need to get game history */
- ics_getting_history = H_REQUESTED;
- snprintf(str, MSG_SIZ, "%smoves %d\n", ics_prefix, gamenum);
- SendToICS(str);
- }
-
- /* Initially flip the board to have black on the bottom if playing
- black or if the ICS flip flag is set, but let the user change
- it with the Flip View button. */
- flipView = appData.autoFlipView ?
- (newGameMode == IcsPlayingBlack) || ics_flip :
- appData.flipView;
-
- /* Done with values from previous mode; copy in new ones */
- gameMode = newGameMode;
- ModeHighlight();
- ics_gamenum = gamenum;
- if (gamenum == gs_gamenum) {
- int klen = strlen(gs_kind);
- if (gs_kind[klen - 1] == '.') gs_kind[klen - 1] = NULLCHAR;
- snprintf(str, MSG_SIZ, "ICS %s", gs_kind);
- gameInfo.event = StrSave(str);
- } else {
- gameInfo.event = StrSave("ICS game");
- }
- gameInfo.site = StrSave(appData.icsHost);
- gameInfo.date = PGNDate();
- gameInfo.round = StrSave("-");
- gameInfo.white = StrSave(white);
- gameInfo.black = StrSave(black);
- timeControl = basetime * 60 * 1000;
- timeControl_2 = 0;
- timeIncrement = increment * 1000;
- movesPerSession = 0;
- gameInfo.timeControl = TimeControlTagValue();
- VariantSwitch(boards[currentMove], StringToVariant(gameInfo.event) );
- if (appData.debugMode) {
- fprintf(debugFP, "ParseBoard says variant = '%s'\n", gameInfo.event);
- fprintf(debugFP, "recognized as %s\n", VariantName(gameInfo.variant));
- setbuf(debugFP, NULL);
- }
-
- gameInfo.outOfBook = NULL;
-
- /* Do we have the ratings? */
- if (strcmp(player1Name, white) == 0 &&
- strcmp(player2Name, black) == 0) {
- if (appData.debugMode)
- fprintf(debugFP, "Remembered ratings: W %d, B %d\n",
- player1Rating, player2Rating);
- gameInfo.whiteRating = player1Rating;
- gameInfo.blackRating = player2Rating;
- } else if (strcmp(player2Name, white) == 0 &&
- strcmp(player1Name, black) == 0) {
- if (appData.debugMode)
- fprintf(debugFP, "Remembered ratings: W %d, B %d\n",
- player2Rating, player1Rating);
- gameInfo.whiteRating = player2Rating;
- gameInfo.blackRating = player1Rating;
- }
- player1Name[0] = player2Name[0] = NULLCHAR;
-
- /* Silence shouts if requested */
- if (appData.quietPlay &&
- (gameMode == IcsPlayingWhite || gameMode == IcsPlayingBlack)) {
- SendToICS(ics_prefix);
- SendToICS("set shout 0\n");
- }
- }
-
- /* Deal with midgame name changes */
- if (!newGame) {
- if (!gameInfo.white || strcmp(gameInfo.white, white) != 0) {
- if (gameInfo.white) free(gameInfo.white);
- gameInfo.white = StrSave(white);
- }
- if (!gameInfo.black || strcmp(gameInfo.black, black) != 0) {
- if (gameInfo.black) free(gameInfo.black);
- gameInfo.black = StrSave(black);
- }
- }
-
- /* Throw away game result if anything actually changes in examine mode */
- if (gameMode == IcsExamining && !newGame) {
- gameInfo.result = GameUnfinished;
- if (gameInfo.resultDetails != NULL) {
- free(gameInfo.resultDetails);
- gameInfo.resultDetails = NULL;
- }
- }
-
- /* In pausing && IcsExamining mode, we ignore boards coming
- in if they are in a different variation than we are. */
- if (pauseExamInvalid) return;
- if (pausing && gameMode == IcsExamining) {
- if (moveNum <= pauseExamForwardMostMove) {
- pauseExamInvalid = TRUE;
- forwardMostMove = pauseExamForwardMostMove;
- return;
- }
- }
-
- if (appData.debugMode) {
- fprintf(debugFP, "load %dx%d board\n", files, ranks);
- }
- /* Parse the board */
- for (k = 0; k < ranks; k++) {
- for (j = 0; j < files; j++)
- board[k][j+gameInfo.holdingsWidth] = CharToPiece(board_chars[(ranks-1-k)*(files+1) + j]);
- if(gameInfo.holdingsWidth > 1) {
- board[k][0] = board[k][BOARD_WIDTH-1] = EmptySquare;
- board[k][1] = board[k][BOARD_WIDTH-2] = (ChessSquare) 0;;
- }
- }
- if(moveNum==0 && gameInfo.variant == VariantSChess) {
- board[5][BOARD_RGHT+1] = WhiteAngel;
- board[6][BOARD_RGHT+1] = WhiteMarshall;
- board[1][0] = BlackMarshall;
- board[2][0] = BlackAngel;
- board[1][1] = board[2][1] = board[5][BOARD_RGHT] = board[6][BOARD_RGHT] = 1;
- }
- CopyBoard(boards[moveNum], board);
- boards[moveNum][HOLDINGS_SET] = 0; // [HGM] indicate holdings not set
- if (moveNum == 0) {
- startedFromSetupPosition =
- !CompareBoards(board, initialPosition);
- if(startedFromSetupPosition)
- initialRulePlies = irrev_count; /* [HGM] 50-move counter offset */
- }
-
- /* [HGM] Set castling rights. Take the outermost Rooks,
- to make it also work for FRC opening positions. Note that board12
- is really defective for later FRC positions, as it has no way to
- indicate which Rook can castle if they are on the same side of King.
- For the initial position we grant rights to the outermost Rooks,
- and remember thos rights, and we then copy them on positions
- later in an FRC game. This means WB might not recognize castlings with
- Rooks that have moved back to their original position as illegal,
- but in ICS mode that is not its job anyway.
- */
- if(moveNum == 0 || gameInfo.variant != VariantFischeRandom)
- { int i, j; ChessSquare wKing = WhiteKing, bKing = BlackKing;
-
- for(i=BOARD_LEFT, j=NoRights; i<BOARD_RGHT; i++)
- if(board[0][i] == WhiteRook) j = i;
- initialRights[0] = boards[moveNum][CASTLING][0] = (castle_ws == 0 && gameInfo.variant != VariantFischeRandom ? NoRights : j);
- for(i=BOARD_RGHT-1, j=NoRights; i>=BOARD_LEFT; i--)
- if(board[0][i] == WhiteRook) j = i;
- initialRights[1] = boards[moveNum][CASTLING][1] = (castle_wl == 0 && gameInfo.variant != VariantFischeRandom ? NoRights : j);
- for(i=BOARD_LEFT, j=NoRights; i<BOARD_RGHT; i++)
- if(board[BOARD_HEIGHT-1][i] == BlackRook) j = i;
- initialRights[3] = boards[moveNum][CASTLING][3] = (castle_bs == 0 && gameInfo.variant != VariantFischeRandom ? NoRights : j);
- for(i=BOARD_RGHT-1, j=NoRights; i>=BOARD_LEFT; i--)
- if(board[BOARD_HEIGHT-1][i] == BlackRook) j = i;
- initialRights[4] = boards[moveNum][CASTLING][4] = (castle_bl == 0 && gameInfo.variant != VariantFischeRandom ? NoRights : j);
-
- boards[moveNum][CASTLING][2] = boards[moveNum][CASTLING][5] = NoRights;
- if(gameInfo.variant == VariantKnightmate) { wKing = WhiteUnicorn; bKing = BlackUnicorn; }
- for(k=BOARD_LEFT; k<BOARD_RGHT; k++)
- if(board[0][k] == wKing) initialRights[2] = boards[moveNum][CASTLING][2] = k;
- for(k=BOARD_LEFT; k<BOARD_RGHT; k++)
- if(board[BOARD_HEIGHT-1][k] == bKing)
- initialRights[5] = boards[moveNum][CASTLING][5] = k;
- if(gameInfo.variant == VariantTwoKings) {
- // In TwoKings looking for a King does not work, so always give castling rights to a King on e1/e8
- if(board[0][4] == wKing) initialRights[2] = boards[moveNum][CASTLING][2] = 4;
- if(board[BOARD_HEIGHT-1][4] == bKing) initialRights[5] = boards[moveNum][CASTLING][5] = 4;
- }
- } else { int r;
- r = boards[moveNum][CASTLING][0] = initialRights[0];
- if(board[0][r] != WhiteRook) boards[moveNum][CASTLING][0] = NoRights;
- r = boards[moveNum][CASTLING][1] = initialRights[1];
- if(board[0][r] != WhiteRook) boards[moveNum][CASTLING][1] = NoRights;
- r = boards[moveNum][CASTLING][3] = initialRights[3];
- if(board[BOARD_HEIGHT-1][r] != BlackRook) boards[moveNum][CASTLING][3] = NoRights;
- r = boards[moveNum][CASTLING][4] = initialRights[4];
- if(board[BOARD_HEIGHT-1][r] != BlackRook) boards[moveNum][CASTLING][4] = NoRights;
- /* wildcastle kludge: always assume King has rights */
- r = boards[moveNum][CASTLING][2] = initialRights[2];
- r = boards[moveNum][CASTLING][5] = initialRights[5];
- }
- /* [HGM] e.p. rights. Assume that ICS sends file number here? */
- boards[moveNum][EP_STATUS] = EP_NONE;
- if(str[0] == 'P') boards[moveNum][EP_STATUS] = EP_PAWN_MOVE;
- if(strchr(move_str, 'x')) boards[moveNum][EP_STATUS] = EP_CAPTURE;
- if(double_push != -1) boards[moveNum][EP_STATUS] = double_push + BOARD_LEFT;
-
-
- if (ics_getting_history == H_GOT_REQ_HEADER ||
- ics_getting_history == H_GOT_UNREQ_HEADER) {
- /* This was an initial position from a move list, not
- the current position */
- return;
- }
-
- /* Update currentMove and known move number limits */
- newMove = newGame || moveNum > forwardMostMove;
-
- if (newGame) {
- forwardMostMove = backwardMostMove = currentMove = moveNum;
- if (gameMode == IcsExamining && moveNum == 0) {
- /* Workaround for ICS limitation: we are not told the wild
- type when starting to examine a game. But if we ask for
- the move list, the move list header will tell us */
- ics_getting_history = H_REQUESTED;
- snprintf(str, MSG_SIZ, "%smoves %d\n", ics_prefix, gamenum);
- SendToICS(str);
- }
- } else if (moveNum == forwardMostMove + 1 || moveNum == forwardMostMove
- || (moveNum < forwardMostMove && moveNum >= backwardMostMove)) {
-#if ZIPPY
- /* [DM] If we found takebacks during icsEngineAnalyze try send to engine */
- /* [HGM] applied this also to an engine that is silently watching */
- if (appData.zippyPlay && moveNum < forwardMostMove && first.initDone &&
- (gameMode == IcsObserving || gameMode == IcsExamining) &&
- gameInfo.variant == currentlyInitializedVariant) {
- takeback = forwardMostMove - moveNum;
- for (i = 0; i < takeback; i++) {
- if (appData.debugMode) fprintf(debugFP, "take back move\n");
- SendToProgram("undo\n", &first);
- }
- }
-#endif
-
- forwardMostMove = moveNum;
- if (!pausing || currentMove > forwardMostMove)
- currentMove = forwardMostMove;
- } else {
- /* New part of history that is not contiguous with old part */
- if (pausing && gameMode == IcsExamining) {
- pauseExamInvalid = TRUE;
- forwardMostMove = pauseExamForwardMostMove;
- return;
- }
- if (gameMode == IcsExamining && moveNum > 0 && appData.getMoveList) {
-#if ZIPPY
- if(appData.zippyPlay && forwardMostMove > 0 && first.initDone) {
- // [HGM] when we will receive the move list we now request, it will be
- // fed to the engine from the first move on. So if the engine is not
- // in the initial position now, bring it there.
- InitChessProgram(&first, 0);
- }
-#endif
- ics_getting_history = H_REQUESTED;
- snprintf(str, MSG_SIZ, "%smoves %d\n", ics_prefix, gamenum);
- SendToICS(str);
- }
- forwardMostMove = backwardMostMove = currentMove = moveNum;
- }
-
- /* Update the clocks */
- if (strchr(elapsed_time, '.')) {
- /* Time is in ms */
- timeRemaining[0][moveNum] = whiteTimeRemaining = white_time;
- timeRemaining[1][moveNum] = blackTimeRemaining = black_time;
- } else {
- /* Time is in seconds */
- timeRemaining[0][moveNum] = whiteTimeRemaining = white_time * 1000;
- timeRemaining[1][moveNum] = blackTimeRemaining = black_time * 1000;
- }
-
-
-#if ZIPPY
- if (appData.zippyPlay && newGame &&
- gameMode != IcsObserving && gameMode != IcsIdle &&
- gameMode != IcsExamining)
- ZippyFirstBoard(moveNum, basetime, increment);
-#endif
-
- /* Put the move on the move list, first converting
- to canonical algebraic form. */
- if (moveNum > 0) {
- if (appData.debugMode) {
- int f = forwardMostMove;
- fprintf(debugFP, "parseboard %d, castling = %d %d %d %d %d %d\n", f,
- boards[f][CASTLING][0],boards[f][CASTLING][1],boards[f][CASTLING][2],
- boards[f][CASTLING][3],boards[f][CASTLING][4],boards[f][CASTLING][5]);
- fprintf(debugFP, "accepted move %s from ICS, parse it.\n", move_str);
- fprintf(debugFP, "moveNum = %d\n", moveNum);
- fprintf(debugFP, "board = %d-%d x %d\n", BOARD_LEFT, BOARD_RGHT, BOARD_HEIGHT);
- setbuf(debugFP, NULL);
- }
- if (moveNum <= backwardMostMove) {
- /* We don't know what the board looked like before
- this move. Punt. */
- safeStrCpy(parseList[moveNum - 1], move_str, sizeof(parseList[moveNum - 1])/sizeof(parseList[moveNum - 1][0]));
- strcat(parseList[moveNum - 1], " ");
- strcat(parseList[moveNum - 1], elapsed_time);
- moveList[moveNum - 1][0] = NULLCHAR;
- } else if (strcmp(move_str, "none") == 0) {
- // [HGM] long SAN: swapped order; test for 'none' before parsing move
- /* Again, we don't know what the board looked like;
- this is really the start of the game. */
- parseList[moveNum - 1][0] = NULLCHAR;
- moveList[moveNum - 1][0] = NULLCHAR;
- backwardMostMove = moveNum;
- startedFromSetupPosition = TRUE;
- fromX = fromY = toX = toY = -1;
- } else {
- // [HGM] long SAN: if legality-testing is off, disambiguation might not work or give wrong move.
- // So we parse the long-algebraic move string in stead of the SAN move
- int valid; char buf[MSG_SIZ], *prom;
-
- if(gameInfo.variant == VariantShogi && !strchr(move_str, '=') && !strchr(move_str, '@'))
- strcat(move_str, "="); // if ICS does not say 'promote' on non-drop, we defer.
- // str looks something like "Q/a1-a2"; kill the slash
- if(str[1] == '/')
- snprintf(buf, MSG_SIZ,"%c%s", str[0], str+2);
- else safeStrCpy(buf, str, sizeof(buf)/sizeof(buf[0])); // might be castling
- if((prom = strstr(move_str, "=")) && !strstr(buf, "="))
- strcat(buf, prom); // long move lacks promo specification!
- if(!appData.testLegality && move_str[1] != '@') { // drops never ambiguous (parser chokes on long form!)
- if(appData.debugMode)
- fprintf(debugFP, "replaced ICS move '%s' by '%s'\n", move_str, buf);
- safeStrCpy(move_str, buf, MSG_SIZ);
- }
- valid = ParseOneMove(move_str, moveNum - 1, &moveType,
- &fromX, &fromY, &toX, &toY, &promoChar)
- || ParseOneMove(buf, moveNum - 1, &moveType,
- &fromX, &fromY, &toX, &toY, &promoChar);
- // end of long SAN patch
- if (valid) {
- (void) CoordsToAlgebraic(boards[moveNum - 1],
- PosFlags(moveNum - 1),
- fromY, fromX, toY, toX, promoChar,
- parseList[moveNum-1]);
- switch (MateTest(boards[moveNum], PosFlags(moveNum)) ) {
- case MT_NONE:
- case MT_STALEMATE:
- default:
- break;
- case MT_CHECK:
- if(!IS_SHOGI(gameInfo.variant))
- strcat(parseList[moveNum - 1], "+");
- break;
- case MT_CHECKMATE:
- case MT_STAINMATE: // [HGM] xq: for notation stalemate that wins counts as checkmate
- strcat(parseList[moveNum - 1], "#");
- break;
- }
- strcat(parseList[moveNum - 1], " ");
- strcat(parseList[moveNum - 1], elapsed_time);
- /* currentMoveString is set as a side-effect of ParseOneMove */
- if(gameInfo.variant == VariantShogi && currentMoveString[4]) currentMoveString[4] = '^';
- safeStrCpy(moveList[moveNum - 1], currentMoveString, sizeof(moveList[moveNum - 1])/sizeof(moveList[moveNum - 1][0]));
- strcat(moveList[moveNum - 1], "\n");
-
- if(gameInfo.holdingsWidth && !appData.disguise && gameInfo.variant != VariantSuper && gameInfo.variant != VariantGreat
- && gameInfo.variant != VariantGrand&& gameInfo.variant != VariantSChess) // inherit info that ICS does not give from previous board
- for(k=0; k<ranks; k++) for(j=BOARD_LEFT; j<BOARD_RGHT; j++) {
- ChessSquare old, new = boards[moveNum][k][j];
- if(fromY == DROP_RANK && k==toY && j==toX) continue; // dropped pieces always stand for themselves
- old = (k==toY && j==toX) ? boards[moveNum-1][fromY][fromX] : boards[moveNum-1][k][j]; // trace back mover
- if(old == new) continue;
- if(old == PROMOTED(new)) boards[moveNum][k][j] = old;// prevent promoted pieces to revert to primordial ones
- else if(new == WhiteWazir || new == BlackWazir) {
- if(old < WhiteCannon || old >= BlackPawn && old < BlackCannon)
- boards[moveNum][k][j] = PROMOTED(old); // choose correct type of Gold in promotion
- else boards[moveNum][k][j] = old; // preserve type of Gold
- } else if((old == WhitePawn || old == BlackPawn) && new != EmptySquare) // Pawn promotions (but not e.p.capture!)
- boards[moveNum][k][j] = PROMOTED(new); // use non-primordial representation of chosen piece
- }
- } else {
- /* Move from ICS was illegal!? Punt. */
- if (appData.debugMode) {
- fprintf(debugFP, "Illegal move from ICS '%s'\n", move_str);
- fprintf(debugFP, "board L=%d, R=%d, H=%d, holdings=%d\n", BOARD_LEFT, BOARD_RGHT, BOARD_HEIGHT, gameInfo.holdingsWidth);
- }
- safeStrCpy(parseList[moveNum - 1], move_str, sizeof(parseList[moveNum - 1])/sizeof(parseList[moveNum - 1][0]));
- strcat(parseList[moveNum - 1], " ");
- strcat(parseList[moveNum - 1], elapsed_time);
- moveList[moveNum - 1][0] = NULLCHAR;
- fromX = fromY = toX = toY = -1;
- }
- }
- if (appData.debugMode) {
- fprintf(debugFP, "Move parsed to '%s'\n", parseList[moveNum - 1]);
- setbuf(debugFP, NULL);
- }
-
-#if ZIPPY
- /* Send move to chess program (BEFORE animating it). */
- if (appData.zippyPlay && !newGame && newMove &&
- (!appData.getMoveList || backwardMostMove == 0) && first.initDone) {
-
- if ((gameMode == IcsPlayingWhite && WhiteOnMove(moveNum)) ||
- (gameMode == IcsPlayingBlack && !WhiteOnMove(moveNum))) {
- if (moveList[moveNum - 1][0] == NULLCHAR) {
- snprintf(str, MSG_SIZ, _("Couldn't parse move \"%s\" from ICS"),
- move_str);
- DisplayError(str, 0);
- } else {
- if (first.sendTime) {
- SendTimeRemaining(&first, gameMode == IcsPlayingWhite);
- }
- bookHit = SendMoveToBookUser(moveNum - 1, &first, FALSE); // [HGM] book
- if (firstMove && !bookHit) {
- firstMove = FALSE;
- if (first.useColors) {
- SendToProgram(gameMode == IcsPlayingWhite ?
- "white\ngo\n" :
- "black\ngo\n", &first);
- } else {
- SendToProgram("go\n", &first);
- }
- first.maybeThinking = TRUE;
- }
- }
- } else if (gameMode == IcsObserving || gameMode == IcsExamining) {
- if (moveList[moveNum - 1][0] == NULLCHAR) {
- snprintf(str, MSG_SIZ, _("Couldn't parse move \"%s\" from ICS"), move_str);
- DisplayError(str, 0);
- } else {
- if(gameInfo.variant == currentlyInitializedVariant) // [HGM] refrain sending moves engine can't understand!
- SendMoveToProgram(moveNum - 1, &first);
- }
- }
- }
-#endif
- }
-
- if (moveNum > 0 && !gotPremove && !appData.noGUI) {
- /* If move comes from a remote source, animate it. If it
- isn't remote, it will have already been animated. */
- if (!pausing && !ics_user_moved && prevMove == moveNum - 1) {
- AnimateMove(boards[moveNum - 1], fromX, fromY, toX, toY);
- }
- if (!pausing && appData.highlightLastMove) {
- SetHighlights(fromX, fromY, toX, toY);
- }
- }
-
- /* Start the clocks */
- whiteFlag = blackFlag = FALSE;
- appData.clockMode = !(basetime == 0 && increment == 0);
- if (ticking == 0) {
- ics_clock_paused = TRUE;
- StopClocks();
- } else if (ticking == 1) {
- ics_clock_paused = FALSE;
- }
- if (gameMode == IcsIdle ||
- relation == RELATION_OBSERVING_STATIC ||
- relation == RELATION_EXAMINING ||
- ics_clock_paused)
- DisplayBothClocks();
- else
- StartClocks();
-
- /* Display opponents and material strengths */
- if (gameInfo.variant != VariantBughouse &&
- gameInfo.variant != VariantCrazyhouse && !appData.noGUI) {
- if (tinyLayout || smallLayout) {
- if(gameInfo.variant == VariantNormal)
- snprintf(str, MSG_SIZ, "%s(%d) %s(%d) {%d %d}",
- gameInfo.white, white_stren, gameInfo.black, black_stren,
- basetime, increment);
- else
- snprintf(str, MSG_SIZ, "%s(%d) %s(%d) {%d %d w%d}",
- gameInfo.white, white_stren, gameInfo.black, black_stren,
- basetime, increment, (int) gameInfo.variant);
- } else {
- if(gameInfo.variant == VariantNormal)
- snprintf(str, MSG_SIZ, "%s (%d) %s %s (%d) {%d %d}",
- gameInfo.white, white_stren, _("vs."), gameInfo.black, black_stren,
- basetime, increment);
- else
- snprintf(str, MSG_SIZ, "%s (%d) %s %s (%d) {%d %d %s}",
- gameInfo.white, white_stren, _("vs."), gameInfo.black, black_stren,
- basetime, increment, VariantName(gameInfo.variant));
- }
- DisplayTitle(str);
- if (appData.debugMode) {
- fprintf(debugFP, "Display title '%s, gameInfo.variant = %d'\n", str, gameInfo.variant);
- }
- }
-
-
- /* Display the board */
- if (!pausing && !appData.noGUI) {
-
- if (appData.premove)
- if (!gotPremove ||
- ((gameMode == IcsPlayingWhite) && (WhiteOnMove(currentMove))) ||
- ((gameMode == IcsPlayingBlack) && (!WhiteOnMove(currentMove))))
- ClearPremoveHighlights();
-
- j = seekGraphUp; seekGraphUp = FALSE; // [HGM] seekgraph: when we draw a board, it overwrites the seek graph
- if(partnerUp) { flipView = originalFlip; partnerUp = FALSE; j = TRUE; } // [HGM] bughouse: restore view
- DrawPosition(j, boards[currentMove]);
-
- DisplayMove(moveNum - 1);
- if (appData.ringBellAfterMoves && /*!ics_user_moved*/ // [HGM] use absolute method to recognize own move
- !((gameMode == IcsPlayingWhite) && (!WhiteOnMove(moveNum)) ||
- (gameMode == IcsPlayingBlack) && (WhiteOnMove(moveNum)) ) ) {
- if(newMove) RingBell(); else PlayIcsUnfinishedSound();
- }
- }
-
- HistorySet(parseList, backwardMostMove, forwardMostMove, currentMove-1);
-#if ZIPPY
- if(bookHit) { // [HGM] book: simulate book reply
- static char bookMove[MSG_SIZ]; // a bit generous?
-
- programStats.nodes = programStats.depth = programStats.time =
- programStats.score = programStats.got_only_move = 0;
- sprintf(programStats.movelist, "%s (xbook)", bookHit);
-
- safeStrCpy(bookMove, "move ", sizeof(bookMove)/sizeof(bookMove[0]));
- strcat(bookMove, bookHit);
- HandleMachineMove(bookMove, &first);
- }
-#endif
-}
-
-void
-GetMoveListEvent ()
-{
- char buf[MSG_SIZ];
- if (appData.icsActive && gameMode != IcsIdle && ics_gamenum > 0) {
- ics_getting_history = H_REQUESTED;
- snprintf(buf, MSG_SIZ, "%smoves %d\n", ics_prefix, ics_gamenum);
- SendToICS(buf);
- }
-}
-
-void
-SendToBoth (char *msg)
-{ // to make it easy to keep two engines in step in dual analysis
- SendToProgram(msg, &first);
- if(second.analyzing) SendToProgram(msg, &second);
-}
-
-void
-AnalysisPeriodicEvent (int force)
-{
- if (((programStats.ok_to_send == 0 || programStats.line_is_book)
- && !force) || !appData.periodicUpdates)
- return;
-
- /* Send . command to Crafty to collect stats */
- SendToBoth(".\n");
-
- /* Don't send another until we get a response (this makes
- us stop sending to old Crafty's which don't understand
- the "." command (sending illegal cmds resets node count & time,
- which looks bad)) */
- programStats.ok_to_send = 0;
-}
-
-void
-ics_update_width (int new_width)
-{
- ics_printf("set width %d\n", new_width);
-}
-
-void
-SendMoveToProgram (int moveNum, ChessProgramState *cps)
-{
- char buf[MSG_SIZ];
-
- if(moveList[moveNum][1] == '@' && moveList[moveNum][0] == '@') {
- if(gameInfo.variant == VariantLion || gameInfo.variant == VariantChuChess || gameInfo.variant == VariantChu) {
- sprintf(buf, "%s@@@@\n", cps->useUsermove ? "usermove " : "");
- SendToProgram(buf, cps);
- return;
- }
- // null move in variant where engine does not understand it (for analysis purposes)
- SendBoard(cps, moveNum + 1); // send position after move in stead.
- return;
- }
- if (cps->useUsermove) {
- SendToProgram("usermove ", cps);
- }
- if (cps->useSAN) {
- char *space;
- if ((space = strchr(parseList[moveNum], ' ')) != NULL) {
- int len = space - parseList[moveNum];
- memcpy(buf, parseList[moveNum], len);
- buf[len++] = '\n';
- buf[len] = NULLCHAR;
- } else {
- snprintf(buf, MSG_SIZ,"%s\n", parseList[moveNum]);
- }
- SendToProgram(buf, cps);
- } else {
- if(cps->alphaRank) { /* [HGM] shogi: temporarily convert to shogi coordinates before sending */
- AlphaRank(moveList[moveNum], 4);
- SendToProgram(moveList[moveNum], cps);
- AlphaRank(moveList[moveNum], 4); // and back
- } else
- /* Added by Tord: Send castle moves in "O-O" in FRC games if required by
- * the engine. It would be nice to have a better way to identify castle
- * moves here. */
- if(appData.fischerCastling && cps->useOOCastle) {
- int fromX = moveList[moveNum][0] - AAA;
- int fromY = moveList[moveNum][1] - ONE;
- int toX = moveList[moveNum][2] - AAA;
- int toY = moveList[moveNum][3] - ONE;
- if((boards[moveNum][fromY][fromX] == WhiteKing
- && boards[moveNum][toY][toX] == WhiteRook)
- || (boards[moveNum][fromY][fromX] == BlackKing
- && boards[moveNum][toY][toX] == BlackRook)) {
- if(toX > fromX) SendToProgram("O-O\n", cps);
- else SendToProgram("O-O-O\n", cps);
- }
- else SendToProgram(moveList[moveNum], cps);
- } else
- if(moveList[moveNum][4] == ';') { // [HGM] lion: move is double-step over intermediate square
- char *m = moveList[moveNum];
- static char c[2];
- *c = m[7]; // promoChar
- if((boards[moveNum][m[6]-ONE][m[5]-AAA] < BlackPawn) == (boards[moveNum][m[1]-ONE][m[0]-AAA] < BlackPawn)) // move is kludge to indicate castling
- snprintf(buf, MSG_SIZ, "%c%d%c%d,%c%d%c%d\n", m[0], m[1] - '0', // convert to two moves
- m[2], m[3] - '0',
- m[5], m[6] - '0',
- m[2] + (m[0] > m[5] ? 1 : -1), m[3] - '0');
- else if(*c && m[8]) { // kill square followed by 2 characters: 2nd kill square rather than promo suffix
- *c = m[9];
- snprintf(buf, MSG_SIZ, "%c%d%c%d,%c%d%c%d,%c%d%c%d%s\n", m[0], m[1] - '0', // convert to three moves
- m[7], m[8] - '0',
- m[7], m[8] - '0',
- m[5], m[6] - '0',
- m[5], m[6] - '0',
- m[2], m[3] - '0', c);
- } else
- snprintf(buf, MSG_SIZ, "%c%d%c%d,%c%d%c%d%s\n", m[0], m[1] - '0', // convert to two moves
- m[5], m[6] - '0',
- m[5], m[6] - '0',
- m[2], m[3] - '0', c);
- SendToProgram(buf, cps);
- } else
- if(BOARD_HEIGHT > 10) { // [HGM] big: convert ranks to double-digit where needed
- if(moveList[moveNum][1] == '@' && (BOARD_HEIGHT < 16 || moveList[moveNum][0] <= 'Z')) { // drop move
- if(moveList[moveNum][0]== '@') snprintf(buf, MSG_SIZ, "@@@@\n"); else
- snprintf(buf, MSG_SIZ, "%c@%c%d%s", moveList[moveNum][0],
- moveList[moveNum][2], moveList[moveNum][3] - '0', moveList[moveNum]+4);
- } else
- snprintf(buf, MSG_SIZ, "%c%d%c%d%s", moveList[moveNum][0], moveList[moveNum][1] - '0',
- moveList[moveNum][2], moveList[moveNum][3] - '0', moveList[moveNum]+4);
- SendToProgram(buf, cps);
- }
- else SendToProgram(moveList[moveNum], cps);
- /* End of additions by Tord */
- }
-
- /* [HGM] setting up the opening has brought engine in force mode! */
- /* Send 'go' if we are in a mode where machine should play. */
- if( (moveNum == 0 && setboardSpoiledMachineBlack && cps == &first) &&
- (gameMode == TwoMachinesPlay ||
-#if ZIPPY
- gameMode == IcsPlayingBlack || gameMode == IcsPlayingWhite ||
-#endif
- gameMode == MachinePlaysBlack || gameMode == MachinePlaysWhite) ) {
- SendToProgram("go\n", cps);
- if (appData.debugMode) {
- fprintf(debugFP, "(extra)\n");
- }
- }
- setboardSpoiledMachineBlack = 0;
-}
-
-void
-SendMoveToICS (ChessMove moveType, int fromX, int fromY, int toX, int toY, char promoChar)
-{
- char user_move[MSG_SIZ];
- char suffix[4];
-
- if(gameInfo.variant == VariantSChess && promoChar) {
- snprintf(suffix, 4, "=%c", toX == BOARD_WIDTH<<1 ? ToUpper(promoChar) : ToLower(promoChar));
- if(moveType == NormalMove) moveType = WhitePromotion; // kludge to do gating
- } else suffix[0] = NULLCHAR;
-
- switch (moveType) {
- default:
- snprintf(user_move, MSG_SIZ, _("say Internal error; bad moveType %d (%d,%d-%d,%d)"),
- (int)moveType, fromX, fromY, toX, toY);
- DisplayError(user_move + strlen("say "), 0);
- break;
- case WhiteKingSideCastle:
- case BlackKingSideCastle:
- case WhiteQueenSideCastleWild:
- case BlackQueenSideCastleWild:
- /* PUSH Fabien */
- case WhiteHSideCastleFR:
- case BlackHSideCastleFR:
- /* POP Fabien */
- snprintf(user_move, MSG_SIZ, "o-o%s\n", suffix);
- break;
- case WhiteQueenSideCastle:
- case BlackQueenSideCastle:
- case WhiteKingSideCastleWild:
- case BlackKingSideCastleWild:
- /* PUSH Fabien */
- case WhiteASideCastleFR:
- case BlackASideCastleFR:
- /* POP Fabien */
- snprintf(user_move, MSG_SIZ, "o-o-o%s\n",suffix);
- break;
- case WhiteNonPromotion:
- case BlackNonPromotion:
- sprintf(user_move, "%c%c%c%c==\n", AAA + fromX, ONE + fromY, AAA + toX, ONE + toY);
- break;
- case WhitePromotion:
- case BlackPromotion:
- if(gameInfo.variant == VariantShatranj || gameInfo.variant == VariantCourier ||
- gameInfo.variant == VariantMakruk)
- snprintf(user_move, MSG_SIZ, "%c%c%c%c=%c\n",
- AAA + fromX, ONE + fromY, AAA + toX, ONE + toY,
- PieceToChar(WhiteFerz));
- else if(gameInfo.variant == VariantGreat)
- snprintf(user_move, MSG_SIZ,"%c%c%c%c=%c\n",
- AAA + fromX, ONE + fromY, AAA + toX, ONE + toY,
- PieceToChar(WhiteMan));
- else
- snprintf(user_move, MSG_SIZ, "%c%c%c%c=%c\n",
- AAA + fromX, ONE + fromY, AAA + toX, ONE + toY,
- promoChar);
- break;
- case WhiteDrop:
- case BlackDrop:
- drop:
- snprintf(user_move, MSG_SIZ, "%c@%c%c\n",
- ToUpper(PieceToChar((ChessSquare) fromX)),
- AAA + toX, ONE + toY);
- break;
- case IllegalMove: /* could be a variant we don't quite understand */
- if(fromY == DROP_RANK) goto drop; // We need 'IllegalDrop' move type?
- case NormalMove:
- case WhiteCapturesEnPassant:
- case BlackCapturesEnPassant:
- snprintf(user_move, MSG_SIZ,"%c%c%c%c\n",
- AAA + fromX, ONE + fromY, AAA + toX, ONE + toY);
- break;
- }
- SendToICS(user_move);
- if(appData.keepAlive) // [HGM] alive: schedule sending of dummy 'date' command
- ScheduleDelayedEvent(KeepAlive, appData.keepAlive*60*1000);
-}
-
-void
-UploadGameEvent ()
-{ // [HGM] upload: send entire stored game to ICS as long-algebraic moves.
- int i, last = forwardMostMove; // make sure ICS reply cannot pre-empt us by clearing fmm
- static char *castlingStrings[4] = { "none", "kside", "qside", "both" };
- if(gameMode == IcsObserving || gameMode == IcsPlayingBlack || gameMode == IcsPlayingWhite) {
- DisplayError(_("You cannot do this while you are playing or observing"), 0);
- return;
- }
- if(gameMode != IcsExamining) { // is this ever not the case?
- char buf[MSG_SIZ], *p, *fen, command[MSG_SIZ], bsetup = 0;
-
- if(ics_type == ICS_ICC) { // on ICC match ourselves in applicable variant
- snprintf(command,MSG_SIZ, "match %s", ics_handle);
- } else { // on FICS we must first go to general examine mode
- safeStrCpy(command, "examine\nbsetup", sizeof(command)/sizeof(command[0])); // and specify variant within it with bsetups
- }
- if(gameInfo.variant != VariantNormal) {
- // try figure out wild number, as xboard names are not always valid on ICS
- for(i=1; i<=36; i++) {
- snprintf(buf, MSG_SIZ, "wild/%d", i);
- if(StringToVariant(buf) == gameInfo.variant) break;
- }
- if(i<=36 && ics_type == ICS_ICC) snprintf(buf, MSG_SIZ,"%s w%d\n", command, i);
- else if(i == 22) snprintf(buf,MSG_SIZ, "%s fr\n", command);
- else snprintf(buf, MSG_SIZ,"%s %s\n", command, VariantName(gameInfo.variant));
- } else snprintf(buf, MSG_SIZ,"%s\n", ics_type == ICS_ICC ? command : "examine\n"); // match yourself or examine
- SendToICS(ics_prefix);
- SendToICS(buf);
- if(startedFromSetupPosition || backwardMostMove != 0) {
- fen = PositionToFEN(backwardMostMove, NULL, 1);
- if(ics_type == ICS_ICC) { // on ICC we can simply send a complete FEN to set everything
- snprintf(buf, MSG_SIZ,"loadfen %s\n", fen);
- SendToICS(buf);
- } else { // FICS: everything has to set by separate bsetup commands
- p = strchr(fen, ' '); p[0] = NULLCHAR; // cut after board
- snprintf(buf, MSG_SIZ,"bsetup fen %s\n", fen);
- SendToICS(buf);
- if(!WhiteOnMove(backwardMostMove)) {
- SendToICS("bsetup tomove black\n");
- }
- i = (strchr(p+3, 'K') != NULL) + 2*(strchr(p+3, 'Q') != NULL);
- snprintf(buf, MSG_SIZ,"bsetup wcastle %s\n", castlingStrings[i]);
- SendToICS(buf);
- i = (strchr(p+3, 'k') != NULL) + 2*(strchr(p+3, 'q') != NULL);
- snprintf(buf, MSG_SIZ, "bsetup bcastle %s\n", castlingStrings[i]);
- SendToICS(buf);
- i = boards[backwardMostMove][EP_STATUS];
- if(i >= 0) { // set e.p.
- snprintf(buf, MSG_SIZ,"bsetup eppos %c\n", i+AAA);
- SendToICS(buf);
- }
- bsetup++;
- }
- }
- if(bsetup || ics_type != ICS_ICC && gameInfo.variant != VariantNormal)
- SendToICS("bsetup done\n"); // switch to normal examining.
- }
- for(i = backwardMostMove; i<last; i++) {
- char buf[20];
- snprintf(buf, sizeof(buf)/sizeof(buf[0]),"%s\n", parseList[i]);
- if((*buf == 'b' || *buf == 'B') && buf[1] == 'x') { // work-around for stupid FICS bug, which thinks bxc3 can be a Bishop move
- int len = strlen(moveList[i]);
- snprintf(buf, sizeof(buf)/sizeof(buf[0]),"%s", moveList[i]); // use long algebraic
- if(!isdigit(buf[len-2])) snprintf(buf+len-2, 20-len, "=%c\n", ToUpper(buf[len-2])); // promotion must have '=' in ICS format
- }
- SendToICS(buf);
- }
- SendToICS(ics_prefix);
- SendToICS(ics_type == ICS_ICC ? "tag result Game in progress\n" : "commit\n");
-}
-
-int killX = -1, killY = -1, kill2X = -1, kill2Y = -1; // [HGM] lion: used for passing e.p. capture square to MakeMove
-int legNr = 1;
-
-void
-CoordsToComputerAlgebraic (int rf, int ff, int rt, int ft, char promoChar, char move[9])
-{
- if (rf == DROP_RANK) {
- if(ff == EmptySquare) sprintf(move, "@@@@\n"); else // [HGM] pass
- sprintf(move, "%c@%c%c\n",
- ToUpper(PieceToChar((ChessSquare) ff)), AAA + ft, ONE + rt);
- } else {
- if (promoChar == 'x' || promoChar == NULLCHAR) {
- sprintf(move, "%c%c%c%c\n",
- AAA + ff, ONE + rf, AAA + ft, ONE + rt);
- if(killX >= 0 && killY >= 0) {
- sprintf(move+4, ";%c%c\n", AAA + killX, ONE + killY);
- if(kill2X >= 0 && kill2Y >= 0) sprintf(move+7, "%c%c\n", AAA + kill2X, ONE + kill2Y);
- }
- } else {
- sprintf(move, "%c%c%c%c%c\n",
- AAA + ff, ONE + rf, AAA + ft, ONE + rt, promoChar);
- if(killX >= 0 && killY >= 0) {
- sprintf(move+4, ";%c%c\n", AAA + killX, ONE + killY);
- if(kill2X >= 0 && kill2Y >= 0) sprintf(move+7, "%c%c%c\n", AAA + kill2X, ONE + kill2Y, promoChar);
- }
- }
- }
-}
-
-void
-ProcessICSInitScript (FILE *f)
-{
- char buf[MSG_SIZ];
-
- while (fgets(buf, MSG_SIZ, f)) {
- SendToICSDelayed(buf,(long)appData.msLoginDelay);
- }
-
- fclose(f);
-}
-
-
-static int lastX, lastY, lastLeftX, lastLeftY, selectFlag;
-int dragging;
-static ClickType lastClickType;
-
-int
-PieceInString (char *s, ChessSquare piece)
-{
- char *p, ID = ToUpper(PieceToChar(piece)), suffix = PieceSuffix(piece);
- while((p = strchr(s, ID))) {
- if(!suffix || p[1] == suffix) return TRUE;
- s = p;
- }
- return FALSE;
-}
-
-int
-Partner (ChessSquare *p)
-{ // change piece into promotion partner if one shogi-promotes to the other
- ChessSquare partner = promoPartner[*p];
- if(PieceToChar(*p) != '+' && PieceToChar(partner) != '+') return 0;
- if(PieceToChar(*p) == '+') partner = boards[currentMove][fromY][fromX];
- *p = partner;
- return 1;
-}
-
-void
-Sweep (int step)
-{
- ChessSquare king = WhiteKing, pawn = WhitePawn, last = promoSweep;
- static int toggleFlag;
- if(gameInfo.variant == VariantKnightmate) king = WhiteUnicorn;
- if(gameInfo.variant == VariantSuicide || gameInfo.variant == VariantGiveaway) king = EmptySquare;
- if(promoSweep >= BlackPawn) king = WHITE_TO_BLACK king, pawn = WHITE_TO_BLACK pawn;
- if(gameInfo.variant == VariantSpartan && pawn == BlackPawn) pawn = BlackLance, king = EmptySquare;
- if(fromY != BOARD_HEIGHT-2 && fromY != 1 && gameInfo.variant != VariantChuChess) pawn = EmptySquare;
- if(!step) toggleFlag = Partner(&last); // piece has shogi-promotion
- do {
- if(step && !(toggleFlag && Partner(&promoSweep))) promoSweep -= step;
- if(promoSweep == EmptySquare) promoSweep = BlackPawn; // wrap
- else if((int)promoSweep == -1) promoSweep = WhiteKing;
- else if(promoSweep == BlackPawn && step < 0 && !toggleFlag) promoSweep = WhitePawn;
- else if(promoSweep == WhiteKing && step > 0 && !toggleFlag) promoSweep = BlackKing;
- if(!step) step = -1;
- } while(PieceToChar(promoSweep) == '.' || PieceToChar(promoSweep) == '~' ||
- !toggleFlag && PieceToChar(promoSweep) == '+' || // skip promoted versions of other
- promoRestrict[0] ? !PieceInString(promoRestrict, promoSweep) : // if choice set available, use it
- promoSweep == pawn ||
- appData.testLegality && (promoSweep == king || gameInfo.variant != VariantChuChess &&
- (promoSweep == WhiteLion || promoSweep == BlackLion)));
- if(toX >= 0) {
- int victim = boards[currentMove][toY][toX];
- boards[currentMove][toY][toX] = promoSweep;
- DrawPosition(FALSE, boards[currentMove]);
- boards[currentMove][toY][toX] = victim;
- } else
- ChangeDragPiece(promoSweep);
-}
-
-int
-PromoScroll (int x, int y)
-{
- int step = 0;
-
- if(promoSweep == EmptySquare || !appData.sweepSelect) return FALSE;
- if(abs(x - lastX) < 25 && abs(y - lastY) < 25) return FALSE;
- if( y > lastY + 2 ) step = -1; else if(y < lastY - 2) step = 1;
- if(!step) return FALSE;
- lastX = x; lastY = y;
- if((promoSweep < BlackPawn) == flipView) step = -step;
- if(step > 0) selectFlag = 1;
- if(!selectFlag) Sweep(step);
- return FALSE;
-}
-
-void
-NextPiece (int step)
-{
- ChessSquare piece = boards[currentMove][toY][toX];
- do {
- pieceSweep -= step;
- if(pieceSweep == EmptySquare) pieceSweep = WhitePawn; // wrap
- if((int)pieceSweep == -1) pieceSweep = BlackKing;
- if(!step) step = -1;
- } while(PieceToChar(pieceSweep) == '.');
- boards[currentMove][toY][toX] = pieceSweep;
- DrawPosition(FALSE, boards[currentMove]);
- boards[currentMove][toY][toX] = piece;
-}
-/* [HGM] Shogi move preprocessor: swap digits for letters, vice versa */
-void
-AlphaRank (char *move, int n)
-{
-// char *p = move, c; int x, y;
-
- if (appData.debugMode) {
- fprintf(debugFP, "alphaRank(%s,%d)\n", move, n);
- }
-
- if(move[1]=='*' &&
- move[2]>='0' && move[2]<='9' &&
- move[3]>='a' && move[3]<='x' ) {
- move[1] = '@';
- move[2] = BOARD_RGHT -1 - (move[2]-'1') + AAA;
- move[3] = BOARD_HEIGHT-1 - (move[3]-'a') + ONE;
- } else
- if(move[0]>='0' && move[0]<='9' &&
- move[1]>='a' && move[1]<='x' &&
- move[2]>='0' && move[2]<='9' &&
- move[3]>='a' && move[3]<='x' ) {
- /* input move, Shogi -> normal */
- move[0] = BOARD_RGHT -1 - (move[0]-'1') + AAA;
- move[1] = BOARD_HEIGHT-1 - (move[1]-'a') + ONE;
- move[2] = BOARD_RGHT -1 - (move[2]-'1') + AAA;
- move[3] = BOARD_HEIGHT-1 - (move[3]-'a') + ONE;
- } else
- if(move[1]=='@' &&
- move[3]>='0' && move[3]<='9' &&
- move[2]>='a' && move[2]<='x' ) {
- move[1] = '*';
- move[2] = BOARD_RGHT - 1 - (move[2]-AAA) + '1';
- move[3] = BOARD_HEIGHT-1 - (move[3]-ONE) + 'a';
- } else
- if(
- move[0]>='a' && move[0]<='x' &&
- move[3]>='0' && move[3]<='9' &&
- move[2]>='a' && move[2]<='x' ) {
- /* output move, normal -> Shogi */
- move[0] = BOARD_RGHT - 1 - (move[0]-AAA) + '1';
- move[1] = BOARD_HEIGHT-1 - (move[1]-ONE) + 'a';
- move[2] = BOARD_RGHT - 1 - (move[2]-AAA) + '1';
- move[3] = BOARD_HEIGHT-1 - (move[3]-ONE) + 'a';
- if(move[4] == PieceToChar(BlackQueen)) move[4] = '+';
- }
- if (appData.debugMode) {
- fprintf(debugFP, " out = '%s'\n", move);
- }
-}
-
-char yy_textstr[8000];
-
-/* Parser for moves from gnuchess, ICS, or user typein box */
-Boolean
-ParseOneMove (char *move, int moveNum, ChessMove *moveType, int *fromX, int *fromY, int *toX, int *toY, char *promoChar)
-{
- *moveType = yylexstr(moveNum, move, yy_textstr, sizeof yy_textstr);
-
- switch (*moveType) {
- case WhitePromotion:
- case BlackPromotion:
- case WhiteNonPromotion:
- case BlackNonPromotion:
- case NormalMove:
- case FirstLeg:
- case WhiteCapturesEnPassant:
- case BlackCapturesEnPassant:
- case WhiteKingSideCastle:
- case WhiteQueenSideCastle:
- case BlackKingSideCastle:
- case BlackQueenSideCastle:
- case WhiteKingSideCastleWild:
- case WhiteQueenSideCastleWild:
- case BlackKingSideCastleWild:
- case BlackQueenSideCastleWild:
- /* Code added by Tord: */
- case WhiteHSideCastleFR:
- case WhiteASideCastleFR:
- case BlackHSideCastleFR:
- case BlackASideCastleFR:
- /* End of code added by Tord */
- case IllegalMove: /* bug or odd chess variant */
- if(currentMoveString[1] == '@') { // illegal drop
- *fromX = WhiteOnMove(moveNum) ?
- (int) CharToPiece(ToUpper(currentMoveString[0])) :
- (int) CharToPiece(ToLower(currentMoveString[0]));
- goto drop;
- }
- *fromX = currentMoveString[0] - AAA;
- *fromY = currentMoveString[1] - ONE;
- *toX = currentMoveString[2] - AAA;
- *toY = currentMoveString[3] - ONE;
- *promoChar = currentMoveString[4];
- if(*promoChar == ';') *promoChar = currentMoveString[7 + 2*(currentMoveString[8] != 0)];
- if (*fromX < BOARD_LEFT || *fromX >= BOARD_RGHT || *fromY < 0 || *fromY >= BOARD_HEIGHT ||
- *toX < BOARD_LEFT || *toX >= BOARD_RGHT || *toY < 0 || *toY >= BOARD_HEIGHT) {
- if (appData.debugMode) {
- fprintf(debugFP, "Off-board move (%d,%d)-(%d,%d)%c, type = %d\n", *fromX, *fromY, *toX, *toY, *promoChar, *moveType);
- }
- *fromX = *fromY = *toX = *toY = 0;
- return FALSE;
- }
- if (appData.testLegality) {
- return (*moveType != IllegalMove);
- } else {
- return !(*fromX == *toX && *fromY == *toY && killX < 0) && boards[moveNum][*fromY][*fromX] != EmptySquare &&
- // [HGM] lion: if this is a double move we are less critical
- WhiteOnMove(moveNum) == (boards[moveNum][*fromY][*fromX] < BlackPawn);
- }
-
- case WhiteDrop:
- case BlackDrop:
- *fromX = *moveType == WhiteDrop ?
- (int) CharToPiece(ToUpper(currentMoveString[0])) :
- (int) CharToPiece(ToLower(currentMoveString[0]));
- drop:
- *fromY = DROP_RANK;
- *toX = currentMoveString[2] - AAA;
- *toY = currentMoveString[3] - ONE;
- *promoChar = NULLCHAR;
- return TRUE;
-
- case AmbiguousMove:
- case ImpossibleMove:
- case EndOfFile:
- case ElapsedTime:
- case Comment:
- case PGNTag:
- case NAG:
- case WhiteWins:
- case BlackWins:
- case GameIsDrawn:
- default:
- if (appData.debugMode) {
- fprintf(debugFP, "Impossible move %s, type = %d\n", currentMoveString, *moveType);
- }
- /* bug? */
- *fromX = *fromY = *toX = *toY = 0;
- *promoChar = NULLCHAR;
- return FALSE;
- }
-}
-
-Boolean pushed = FALSE;
-char *lastParseAttempt;
-
-void
-ParsePV (char *pv, Boolean storeComments, Boolean atEnd)
-{ // Parse a string of PV moves, and append to current game, behind forwardMostMove
- int fromX, fromY, toX, toY; char promoChar;
- ChessMove moveType;
- Boolean valid;
- int nr = 0;
-
- lastParseAttempt = pv; if(!*pv) return; // turns out we crash when we parse an empty PV
- if ((gameMode == AnalyzeMode || gameMode == AnalyzeFile) && currentMove < forwardMostMove) {
- PushInner(currentMove, forwardMostMove); // [HGM] engine might not be thinking on forwardMost position!
- pushed = TRUE;
- }
- endPV = forwardMostMove;
- do {
- while(*pv == ' ' || *pv == '\n' || *pv == '\t') pv++; // must still read away whitespace
- if(nr == 0 && !storeComments && *pv == '(') pv++; // first (ponder) move can be in parentheses
- lastParseAttempt = pv;
- valid = ParseOneMove(pv, endPV, &moveType, &fromX, &fromY, &toX, &toY, &promoChar);
- if(!valid && nr == 0 &&
- ParseOneMove(pv, endPV-1, &moveType, &fromX, &fromY, &toX, &toY, &promoChar)){
- nr++; moveType = Comment; // First move has been played; kludge to make sure we continue
- // Hande case where played move is different from leading PV move
- CopyBoard(boards[endPV+1], boards[endPV-1]); // tentatively unplay last game move
- CopyBoard(boards[endPV+2], boards[endPV-1]); // and play first move of PV
- ApplyMove(fromX, fromY, toX, toY, promoChar, boards[endPV+2]);
- if(!CompareBoards(boards[endPV], boards[endPV+2])) {
- endPV += 2; // if position different, keep this
- moveList[endPV-1][0] = fromX + AAA;
- moveList[endPV-1][1] = fromY + ONE;
- moveList[endPV-1][2] = toX + AAA;
- moveList[endPV-1][3] = toY + ONE;
- parseList[endPV-1][0] = NULLCHAR;
- safeStrCpy(moveList[endPV-2], "_0_0", sizeof(moveList[endPV-2])/sizeof(moveList[endPV-2][0])); // suppress premove highlight on takeback move
- }
- }
- pv = strstr(pv, yy_textstr) + strlen(yy_textstr); // skip what we parsed
- if(nr == 0 && !storeComments && *pv == ')') pv++; // closing parenthesis of ponder move;
- if(moveType == Comment && storeComments) AppendComment(endPV, yy_textstr, FALSE);
- if(moveType == Comment || moveType == NAG || moveType == ElapsedTime) {
- valid++; // allow comments in PV
- continue;
- }
- nr++;
- if(endPV+1 > framePtr) break; // no space, truncate
- if(!valid) break;
- endPV++;
- CopyBoard(boards[endPV], boards[endPV-1]);
- ApplyMove(fromX, fromY, toX, toY, promoChar, boards[endPV]);
- CoordsToComputerAlgebraic(fromY, fromX, toY, toX, promoChar, moveList[endPV - 1]);
- strncat(moveList[endPV-1], "\n", MOVE_LEN);
- CoordsToAlgebraic(boards[endPV - 1],
- PosFlags(endPV - 1),
- fromY, fromX, toY, toX, promoChar,
- parseList[endPV - 1]);
- } while(valid);
- if(atEnd == 2) return; // used hidden, for PV conversion
- currentMove = (atEnd || endPV == forwardMostMove) ? endPV : forwardMostMove + 1;
- if(currentMove == forwardMostMove) ClearPremoveHighlights(); else
- SetPremoveHighlights(moveList[currentMove-1][0]-AAA, moveList[currentMove-1][1]-ONE,
- moveList[currentMove-1][2]-AAA, moveList[currentMove-1][3]-ONE);
- DrawPosition(TRUE, boards[currentMove]);
-}
-
-int
-MultiPV (ChessProgramState *cps, int kind)
-{ // check if engine supports MultiPV, and if so, return the number of the option that sets it
- int i;
- for(i=0; i<cps->nrOptions; i++) {
- char *s = cps->option[i].name;
- if((kind & 1) && !StrCaseCmp(s, "MultiPV") && cps->option[i].type == Spin) return i;
- if((kind & 2) && StrCaseStr(s, "multi") && StrCaseStr(s, "PV")
- && StrCaseStr(s, "margin") && cps->option[i].type == Spin) return -i-2;
- }
- return -1;
-}
-
-Boolean extendGame; // signals to UnLoadPV() if walked part of PV has to be appended to game
-static int multi, pv_margin;
-static ChessProgramState *activeCps;
-
-Boolean
-LoadMultiPV (int x, int y, char *buf, int index, int *start, int *end, int pane)
-{
- int startPV, lineStart, origIndex = index;
- char *p, buf2[MSG_SIZ];
- ChessProgramState *cps = (pane ? &second : &first);
-
- if(index < 0 || index >= strlen(buf)) return FALSE; // sanity
- lastX = x; lastY = y;
- while(index > 0 && buf[index-1] != '\n') index--; // beginning of line
- lineStart = startPV = index;
- while(buf[index] != '\n') if(buf[index++] == '\t') startPV = index;
- if(index == startPV && (p = StrCaseStr(buf+index, "PV="))) startPV = p - buf + 3;
- index = startPV;
- do{ while(buf[index] && buf[index] != '\n') index++;
- } while(buf[index] == '\n' && buf[index+1] == '\\' && buf[index+2] == ' ' && index++); // join kibitzed PV continuation line
- buf[index] = 0;
- if(lineStart == 0 && gameMode == AnalyzeMode) {
- int n = 0;
- if(origIndex > 17 && origIndex < 24) n--; else if(origIndex > index - 6) n++;
- if(n == 0) { // click not on "fewer" or "more"
- if((multi = -2 - MultiPV(cps, 2)) >= 0) {
- pv_margin = cps->option[multi].value;
- activeCps = cps; // non-null signals margin adjustment
- }
- } else if((multi = MultiPV(cps, 1)) >= 0) {
- n += cps->option[multi].value; if(n < 1) n = 1;
- snprintf(buf2, MSG_SIZ, "option MultiPV=%d\n", n);
- if(cps->option[multi].value != n) SendToProgram(buf2, cps);
- cps->option[multi].value = n;
- *start = *end = 0;
- return FALSE;
- }
- } else if(strstr(buf+lineStart, "exclude:") == buf+lineStart) { // exclude moves clicked
- ExcludeClick(origIndex - lineStart);
- return FALSE;
- } else if(!strncmp(buf+lineStart, "dep\t", 4)) { // column headers clicked
- Collapse(origIndex - lineStart);
- return FALSE;
- }
- ParsePV(buf+startPV, FALSE, gameMode != AnalyzeMode);
- *start = startPV; *end = index-1;
- extendGame = (gameMode == AnalyzeMode && appData.autoExtend && origIndex - startPV < 5);
- return TRUE;
-}
-
-char *
-PvToSAN (char *pv)
-{
- static char buf[10*MSG_SIZ];
- int i, k=0, savedEnd=endPV, saveFMM = forwardMostMove;
- *buf = NULLCHAR;
- if(forwardMostMove < endPV) PushInner(forwardMostMove, endPV); // shelve PV of PV-walk
- ParsePV(pv, FALSE, 2); // this appends PV to game, suppressing any display of it
- for(i = forwardMostMove; i<endPV; i++){
- if(i&1) snprintf(buf+k, 10*MSG_SIZ-k, "%s ", parseList[i]);
- else snprintf(buf+k, 10*MSG_SIZ-k, "%d. %s ", i/2 + 1, parseList[i]);
- k += strlen(buf+k);
- }
- snprintf(buf+k, 10*MSG_SIZ-k, "%s", lastParseAttempt); // if we ran into stuff that could not be parsed, print it verbatim
- if(pushed) { PopInner(0); pushed = FALSE; } // restore game continuation shelved by ParsePV
- if(forwardMostMove < savedEnd) { PopInner(0); forwardMostMove = saveFMM; } // PopInner would set fmm to endPV!
- endPV = savedEnd;
- return buf;
-}
-
-Boolean
-LoadPV (int x, int y)
-{ // called on right mouse click to load PV
- int which = gameMode == TwoMachinesPlay && (WhiteOnMove(forwardMostMove) == (second.twoMachinesColor[0] == 'w'));
- lastX = x; lastY = y;
- ParsePV(lastPV[which], FALSE, TRUE); // load the PV of the thinking engine in the boards array.
- extendGame = FALSE;
- return TRUE;
-}
-
-void
-UnLoadPV ()
-{
- int oldFMM = forwardMostMove; // N.B.: this was currentMove before PV was loaded!
- if(activeCps) {
- if(pv_margin != activeCps->option[multi].value) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "option %s=%d\n", "Multi-PV Margin", pv_margin);
- SendToProgram(buf, activeCps);
- activeCps->option[multi].value = pv_margin;
- }
- activeCps = NULL;
- return;
- }
- if(endPV < 0) return;
- if(appData.autoCopyPV) CopyFENToClipboard();
- endPV = -1;
- if(extendGame && currentMove > forwardMostMove) {
- Boolean saveAnimate = appData.animate;
- if(pushed) {
- if(shiftKey && storedGames < MAX_VARIATIONS-2) { // wants to start variation, and there is space
- if(storedGames == 1) GreyRevert(FALSE); // we already pushed the tail, so just make it official
- } else storedGames--; // abandon shelved tail of original game
- }
- pushed = FALSE;
- forwardMostMove = currentMove;
- currentMove = oldFMM;
- appData.animate = FALSE;
- ToNrEvent(forwardMostMove);
- appData.animate = saveAnimate;
- }
- currentMove = forwardMostMove;
- if(pushed) { PopInner(0); pushed = FALSE; } // restore shelved game continuation
- ClearPremoveHighlights();
- DrawPosition(TRUE, boards[currentMove]);
-}
-
-void
-MovePV (int x, int y, int h)
-{ // step through PV based on mouse coordinates (called on mouse move)
- int margin = h>>3, step = 0, threshold = (pieceSweep == EmptySquare ? 10 : 15);
-
- if(activeCps) { // adjusting engine's multi-pv margin
- if(x > lastX) pv_margin++; else
- if(x < lastX) pv_margin -= (pv_margin > 0);
- if(x != lastX) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "margin = %d", pv_margin);
- DisplayMessage(buf, "");
- }
- lastX = x;
- return;
- }
- // we must somehow check if right button is still down (might be released off board!)
- if(endPV < 0 && pieceSweep == EmptySquare) return; // needed in XBoard because lastX/Y is shared :-(
- if(abs(x - lastX) < threshold && abs(y - lastY) < threshold) return;
- if( y > lastY + 2 ) step = -1; else if(y < lastY - 2) step = 1;
- if(!step) return;
- lastX = x; lastY = y;
-
- if(pieceSweep != EmptySquare) { NextPiece(step); return; }
- if(endPV < 0) return;
- if(y < margin) step = 1; else
- if(y > h - margin) step = -1;
- if(currentMove + step > endPV || currentMove + step < forwardMostMove) step = 0;
- currentMove += step;
- if(currentMove == forwardMostMove) ClearPremoveHighlights(); else
- SetPremoveHighlights(moveList[currentMove-1][0]-AAA, moveList[currentMove-1][1]-ONE,
- moveList[currentMove-1][2]-AAA, moveList[currentMove-1][3]-ONE);
- DrawPosition(FALSE, boards[currentMove]);
-}
-
-
-// [HGM] shuffle: a general way to suffle opening setups, applicable to arbitrary variants.
-// All positions will have equal probability, but the current method will not provide a unique
-// numbering scheme for arrays that contain 3 or more pieces of the same kind.
-#define DARK 1
-#define LITE 2
-#define ANY 3
-
-int squaresLeft[4];
-int piecesLeft[(int)BlackPawn];
-int seed, nrOfShuffles;
-
-void
-GetPositionNumber ()
-{ // sets global variable seed
- int i;
-
- seed = appData.defaultFrcPosition;
- if(seed < 0) { // randomize based on time for negative FRC position numbers
- for(i=0; i<50; i++) seed += random();
- seed = random() ^ random() >> 8 ^ random() << 8;
- if(seed<0) seed = -seed;
- }
-}
-
-int
-put (Board board, int pieceType, int rank, int n, int shade)
-// put the piece on the (n-1)-th empty squares of the given shade
-{
- int i;
-
- for(i=BOARD_LEFT; i<BOARD_RGHT; i++) {
- if( (((i-BOARD_LEFT)&1)+1) & shade && board[rank][i] == EmptySquare && n-- == 0) {
- board[rank][i] = (ChessSquare) pieceType;
- squaresLeft[((i-BOARD_LEFT)&1) + 1]--;
- squaresLeft[ANY]--;
- piecesLeft[pieceType]--;
- return i;
- }
- }
- return -1;
-}
-
-
-void
-AddOnePiece (Board board, int pieceType, int rank, int shade)
-// calculate where the next piece goes, (any empty square), and put it there
-{
- int i;
-
- i = seed % squaresLeft[shade];
- nrOfShuffles *= squaresLeft[shade];
- seed /= squaresLeft[shade];
- put(board, pieceType, rank, i, shade);
-}
-
-void
-AddTwoPieces (Board board, int pieceType, int rank)
-// calculate where the next 2 identical pieces go, (any empty square), and put it there
-{
- int i, n=squaresLeft[ANY], j=n-1, k;
-
- k = n*(n-1)/2; // nr of possibilities, not counting permutations
- i = seed % k; // pick one
- nrOfShuffles *= k;
- seed /= k;
- while(i >= j) i -= j--;
- j = n - 1 - j; i += j;
- put(board, pieceType, rank, j, ANY);
- put(board, pieceType, rank, i, ANY);
-}
-
-void
-SetUpShuffle (Board board, int number)
-{
- int i, p, first=1;
-
- GetPositionNumber(); nrOfShuffles = 1;
-
- squaresLeft[DARK] = (BOARD_RGHT - BOARD_LEFT + 1)/2;
- squaresLeft[ANY] = BOARD_RGHT - BOARD_LEFT;
- squaresLeft[LITE] = squaresLeft[ANY] - squaresLeft[DARK];
-
- for(p = 0; p<=(int)WhiteKing; p++) piecesLeft[p] = 0;
-
- for(i=BOARD_LEFT; i<BOARD_RGHT; i++) { // count pieces and clear board
- p = (int) board[0][i];
- if(p < (int) BlackPawn) piecesLeft[p] ++;
- board[0][i] = EmptySquare;
- }
-
- if(PosFlags(0) & F_ALL_CASTLE_OK) {
- // shuffles restricted to allow normal castling put KRR first
- if(piecesLeft[(int)WhiteKing]) // King goes rightish of middle
- put(board, WhiteKing, 0, (gameInfo.boardWidth+1)/2, ANY);
- else if(piecesLeft[(int)WhiteUnicorn]) // in Knightmate Unicorn castles
- put(board, WhiteUnicorn, 0, (gameInfo.boardWidth+1)/2, ANY);
- if(piecesLeft[(int)WhiteRook]) // First supply a Rook for K-side castling
- put(board, WhiteRook, 0, gameInfo.boardWidth-2, ANY);
- if(piecesLeft[(int)WhiteRook]) // Then supply a Rook for Q-side castling
- put(board, WhiteRook, 0, 0, ANY);
- // in variants with super-numerary Kings and Rooks, we leave these for the shuffle
- }
-
- if(((BOARD_RGHT-BOARD_LEFT) & 1) == 0)
- // only for even boards make effort to put pairs of colorbound pieces on opposite colors
- for(p = (int) WhiteKing; p > (int) WhitePawn; p--) {
- if(p != (int) WhiteBishop && p != (int) WhiteFerz && p != (int) WhiteAlfil) continue;
- while(piecesLeft[p] >= 2) {
- AddOnePiece(board, p, 0, LITE);
- AddOnePiece(board, p, 0, DARK);
- }
- // Odd color-bound pieces are shuffled with the rest (to not run out of paired squares)
- }
-
- for(p = (int) WhiteKing - 2; p > (int) WhitePawn; p--) {
- // Remaining pieces (non-colorbound, or odd color bound) can be put anywhere
- // but we leave King and Rooks for last, to possibly obey FRC restriction
- if(p == (int)WhiteRook) continue;
- while(piecesLeft[p] >= 2) AddTwoPieces(board, p, 0); // add in pairs, for not counting permutations
- if(piecesLeft[p]) AddOnePiece(board, p, 0, ANY); // add the odd piece
- }
-
- // now everything is placed, except perhaps King (Unicorn) and Rooks
-
- if(PosFlags(0) & F_FRC_TYPE_CASTLING) {
- // Last King gets castling rights
- while(piecesLeft[(int)WhiteUnicorn]) {
- i = put(board, WhiteUnicorn, 0, piecesLeft[(int)WhiteRook]/2, ANY);
- initialRights[2] = initialRights[5] = board[CASTLING][2] = board[CASTLING][5] = i;
- }
-
- while(piecesLeft[(int)WhiteKing]) {
- i = put(board, WhiteKing, 0, piecesLeft[(int)WhiteRook]/2, ANY);
- initialRights[2] = initialRights[5] = board[CASTLING][2] = board[CASTLING][5] = i;
- }
-
-
- } else {
- while(piecesLeft[(int)WhiteKing]) AddOnePiece(board, WhiteKing, 0, ANY);
- while(piecesLeft[(int)WhiteUnicorn]) AddOnePiece(board, WhiteUnicorn, 0, ANY);
- }
-
- // Only Rooks can be left; simply place them all
- while(piecesLeft[(int)WhiteRook]) {
- i = put(board, WhiteRook, 0, 0, ANY);
- if(PosFlags(0) & F_FRC_TYPE_CASTLING) { // first and last Rook get FRC castling rights
- if(first) {
- first=0;
- initialRights[1] = initialRights[4] = board[CASTLING][1] = board[CASTLING][4] = i;
- }
- initialRights[0] = initialRights[3] = board[CASTLING][0] = board[CASTLING][3] = i;
- }
- }
- for(i=BOARD_LEFT; i<BOARD_RGHT; i++) { // copy black from white
- board[BOARD_HEIGHT-1][i] = (int) board[0][i] < BlackPawn ? WHITE_TO_BLACK board[0][i] : EmptySquare;
- }
-
- if(number >= 0) appData.defaultFrcPosition %= nrOfShuffles; // normalize
-}
-
-int
-ptclen (const char *s, char *escapes)
-{
- int n = 0;
- if(!*escapes) return strlen(s);
- while(*s) n += (*s != '/' && *s != '-' && *s != '^' && *s != '*' && !strchr(escapes, *s)) - 2*(*s == '='), s++;
- return n;
-}
-
-int
-SetCharTableEsc (unsigned char *table, const char * map, char * escapes)
-/* [HGM] moved here from winboard.c because of its general usefulness */
-/* Basically a safe strcpy that uses the last character as King */
-{
- int result = FALSE; int NrPieces;
- unsigned char partner[EmptySquare];
-
- if( map != NULL && (NrPieces=ptclen(map, escapes)) <= (int) EmptySquare
- && NrPieces >= 12 && !(NrPieces&1)) {
- int i, ii, offs, j = 0; /* [HGM] Accept even length from 12 to 88 */
-
- for( i=0; i<(int) EmptySquare; i++ ) table[i] = '.';
- for( i=offs=0; i<NrPieces/2-1; i++ ) {
- char *p, c=0;
- if(map[j] == '/') offs = WhitePBishop - i, j++;
- if(*escapes && (map[j] == '*' || map[j] == '-' || map[j] == '^')) c = map[j++];
- table[i+offs] = map[j++];
- if(p = strchr(escapes, map[j])) j++, table[i+offs] += 64*(p - escapes + 1);
- if(c) partner[i+offs] = table[i+offs], table[i+offs] = c;
- if(*escapes && map[j] == '=') pieceNickName[i+offs] = map[++j], j++;
- }
- table[(int) WhiteKing] = map[j++];
- for( ii=offs=0; ii<NrPieces/2-1; ii++ ) {
- char *p, c=0;
- if(map[j] == '/') offs = WhitePBishop - ii, j++;
- i = WHITE_TO_BLACK ii;
- if(*escapes && (map[j] == '*' || map[j] == '-' || map[j] == '^')) c = map[j++];
- table[i+offs] = map[j++];
- if(p = strchr(escapes, map[j])) j++, table[i+offs] += 64*(p - escapes + 1);
- if(c) partner[i+offs] = table[i+offs], table[i+offs] = c;
- if(*escapes && map[j] == '=') pieceNickName[i+offs] = map[++j], j++;
- }
- table[(int) BlackKing] = map[j++];
-
-
- if(*escapes) { // set up promotion pairing
- for( i=0; i<(int) EmptySquare; i++ ) promoPartner[i] = (i%BlackPawn < 11 ? i + 11 : i%BlackPawn < 22 ? i - 11 : i); // default
- // pieceToChar entirely filled, so we can look up specified partners
- for(i=0; i<EmptySquare; i++) { // adjust promotion pairing
- int c = table[i];
- if(c == '^' || c == '-') { // has specified partner
- int p;
- for(p=0; p<EmptySquare; p++) if(table[p] == partner[i]) break;
- if(c == '^') table[i] = '+';
- if(p < EmptySquare) {
- if(promoPartner[promoPartner[p]] == p) promoPartner[promoPartner[p]] = promoPartner[p]; // divorce old partners
- if(promoPartner[promoPartner[i]] == i) promoPartner[promoPartner[i]] = promoPartner[i];
- promoPartner[p] = i, promoPartner[i] = p; // and marry this couple
- }
- } else if(c == '*') {
- table[i] = partner[i];
- promoPartner[i] = (i < BlackPawn ? WhiteTokin : BlackTokin); // promotes to Tokin
- }
- }
- }
-
- result = TRUE;
- }
-
- return result;
-}
-
-int
-SetCharTable (unsigned char *table, const char * map)
-{
- return SetCharTableEsc(table, map, "");
-}
-
-void
-Prelude (Board board)
-{ // [HGM] superchess: random selection of exo-pieces
- int i, j, k; ChessSquare p;
- static ChessSquare exoPieces[4] = { WhiteAngel, WhiteMarshall, WhiteSilver, WhiteLance };
-
- GetPositionNumber(); // use FRC position number
-
- if(appData.pieceToCharTable != NULL) { // select pieces to participate from given char table
- SetCharTable(pieceToChar, appData.pieceToCharTable);
- for(i=(int)WhiteQueen+1, j=0; i<(int)WhiteKing && j<4; i++)
- if(PieceToChar((ChessSquare)i) != '.') exoPieces[j++] = (ChessSquare) i;
- }
-
- j = seed%4; seed /= 4;
- p = board[0][BOARD_LEFT+j]; board[0][BOARD_LEFT+j] = EmptySquare; k = PieceToNumber(p);
- board[k][BOARD_WIDTH-1] = p; board[k][BOARD_WIDTH-2]++;
- board[BOARD_HEIGHT-1-k][0] = WHITE_TO_BLACK p; board[BOARD_HEIGHT-1-k][1]++;
- j = seed%3 + (seed%3 >= j); seed /= 3;
- p = board[0][BOARD_LEFT+j]; board[0][BOARD_LEFT+j] = EmptySquare; k = PieceToNumber(p);
- board[k][BOARD_WIDTH-1] = p; board[k][BOARD_WIDTH-2]++;
- board[BOARD_HEIGHT-1-k][0] = WHITE_TO_BLACK p; board[BOARD_HEIGHT-1-k][1]++;
- j = seed%3; seed /= 3;
- p = board[0][BOARD_LEFT+j+5]; board[0][BOARD_LEFT+j+5] = EmptySquare; k = PieceToNumber(p);
- board[k][BOARD_WIDTH-1] = p; board[k][BOARD_WIDTH-2]++;
- board[BOARD_HEIGHT-1-k][0] = WHITE_TO_BLACK p; board[BOARD_HEIGHT-1-k][1]++;
- j = seed%2 + (seed%2 >= j); seed /= 2;
- p = board[0][BOARD_LEFT+j+5]; board[0][BOARD_LEFT+j+5] = EmptySquare; k = PieceToNumber(p);
- board[k][BOARD_WIDTH-1] = p; board[k][BOARD_WIDTH-2]++;
- board[BOARD_HEIGHT-1-k][0] = WHITE_TO_BLACK p; board[BOARD_HEIGHT-1-k][1]++;
- j = seed%4; seed /= 4; put(board, exoPieces[3], 0, j, ANY);
- j = seed%3; seed /= 3; put(board, exoPieces[2], 0, j, ANY);
- j = seed%2; seed /= 2; put(board, exoPieces[1], 0, j, ANY);
- put(board, exoPieces[0], 0, 0, ANY);
- for(i=BOARD_LEFT; i<BOARD_RGHT; i++) board[BOARD_HEIGHT-1][i] = WHITE_TO_BLACK board[0][i];
-}
-
-void
-InitPosition (int redraw)
-{
- ChessSquare (* pieces)[BOARD_FILES];
- int i, j, pawnRow=1, pieceRows=1, overrule,
- oldx = gameInfo.boardWidth,
- oldy = gameInfo.boardHeight,
- oldh = gameInfo.holdingsWidth;
- static int oldv;
-
- if(appData.icsActive) shuffleOpenings = appData.fischerCastling = FALSE; // [HGM] shuffle: in ICS mode, only shuffle on ICS request
-
- /* [AS] Initialize pv info list [HGM] and game status */
- {
- for( i=0; i<=framePtr; i++ ) { // [HGM] vari: spare saved variations
- pvInfoList[i].depth = 0;
- boards[i][EP_STATUS] = EP_NONE;
- for( j=0; j<BOARD_FILES-2; j++ ) boards[i][CASTLING][j] = NoRights;
- }
-
- initialRulePlies = 0; /* 50-move counter start */
-
- castlingRank[0] = castlingRank[1] = castlingRank[2] = 0;
- castlingRank[3] = castlingRank[4] = castlingRank[5] = BOARD_HEIGHT-1;
- }
-
-
- /* [HGM] logic here is completely changed. In stead of full positions */
- /* the initialized data only consist of the two backranks. The switch */
- /* selects which one we will use, which is than copied to the Board */
- /* initialPosition, which for the rest is initialized by Pawns and */
- /* empty squares. This initial position is then copied to boards[0], */
- /* possibly after shuffling, so that it remains available. */
-
- gameInfo.holdingsWidth = 0; /* default board sizes */
- gameInfo.boardWidth = 8;
- gameInfo.boardHeight = 8;
- gameInfo.holdingsSize = 0;
- nrCastlingRights = -1; /* [HGM] Kludge to indicate default should be used */
- for(i=0; i<BOARD_FILES-6; i++)
- initialPosition[CASTLING][i] = initialRights[i] = NoRights; /* but no rights yet */
- initialPosition[EP_STATUS] = EP_NONE;
- initialPosition[TOUCHED_W] = initialPosition[TOUCHED_B] = 0;
- SetCharTableEsc(pieceToChar, "PNBRQ...........Kpnbrq...........k", SUFFIXES);
- if(startVariant == gameInfo.variant) // [HGM] nicks: enable nicknames in original variant
- SetCharTable(pieceNickName, appData.pieceNickNames);
- else SetCharTable(pieceNickName, "............");
- pieces = FIDEArray;
-
- switch (gameInfo.variant) {
- case VariantFischeRandom:
- shuffleOpenings = TRUE;
- appData.fischerCastling = TRUE;
- default:
- break;
- case VariantShatranj:
- pieces = ShatranjArray;
- nrCastlingRights = 0;
- SetCharTable(pieceToChar, "PN.R.QB...Kpn.r.qb...k");
- break;
- case VariantMakruk:
- pieces = makrukArray;
- nrCastlingRights = 0;
- SetCharTable(pieceToChar, "PN.R.M....SKpn.r.m....sk");
- break;
- case VariantASEAN:
- pieces = aseanArray;
- nrCastlingRights = 0;
- SetCharTable(pieceToChar, "PN.R.Q....BKpn.r.q....bk");
- break;
- case VariantTwoKings:
- pieces = twoKingsArray;
- break;
- case VariantGrand:
- pieces = GrandArray;
- nrCastlingRights = 0;
- SetCharTable(pieceToChar, "PNBRQ..ACKpnbrq..ack");
- gameInfo.boardWidth = 10;
- gameInfo.boardHeight = 10;
- gameInfo.holdingsSize = 7;
- break;
- case VariantCapaRandom:
- shuffleOpenings = TRUE;
- appData.fischerCastling = TRUE;
- case VariantCapablanca:
- pieces = CapablancaArray;
- gameInfo.boardWidth = 10;
- SetCharTable(pieceToChar, "PNBRQ..ACKpnbrq..ack");
- break;
- case VariantGothic:
- pieces = GothicArray;
- gameInfo.boardWidth = 10;
- SetCharTable(pieceToChar, "PNBRQ..ACKpnbrq..ack");
- break;
- case VariantSChess:
- SetCharTable(pieceToChar, "PNBRQ..HEKpnbrq..hek");
- gameInfo.holdingsSize = 7;
- for(i=0; i<BOARD_FILES; i++) initialPosition[VIRGIN][i] = VIRGIN_W | VIRGIN_B;
- break;
- case VariantJanus:
- pieces = JanusArray;
- gameInfo.boardWidth = 10;
- SetCharTable(pieceToChar, "PNBRQ..JKpnbrq..jk");
- nrCastlingRights = 6;
- initialPosition[CASTLING][0] = initialRights[0] = BOARD_RGHT-1;
- initialPosition[CASTLING][1] = initialRights[1] = BOARD_LEFT;
- initialPosition[CASTLING][2] = initialRights[2] =(BOARD_WIDTH-1)>>1;
- initialPosition[CASTLING][3] = initialRights[3] = BOARD_RGHT-1;
- initialPosition[CASTLING][4] = initialRights[4] = BOARD_LEFT;
- initialPosition[CASTLING][5] = initialRights[5] =(BOARD_WIDTH-1)>>1;
- break;
- case VariantFalcon:
- pieces = FalconArray;
- gameInfo.boardWidth = 10;
- SetCharTable(pieceToChar, "PNBRQ............FKpnbrq............fk");
- break;
- case VariantXiangqi:
- pieces = XiangqiArray;
- gameInfo.boardWidth = 9;
- gameInfo.boardHeight = 10;
- nrCastlingRights = 0;
- SetCharTable(pieceToChar, "PH.R.AE..K.C.ph.r.ae..k.c.");
- break;
- case VariantShogi:
- pieces = ShogiArray;
- gameInfo.boardWidth = 9;
- gameInfo.boardHeight = 9;
- gameInfo.holdingsSize = 7;
- nrCastlingRights = 0;
- SetCharTable(pieceToChar, "PNBRLS...G.++++++Kpnbrls...g.++++++k");
- break;
- case VariantChu:
- pieces = ChuArray; pieceRows = 3;
- gameInfo.boardWidth = 12;
- gameInfo.boardHeight = 12;
- nrCastlingRights = 0;
- SetCharTableEsc(pieceToChar, "P.BRQSEXOGCATHD.VMLIFN.........^T..^L......^A^H/^F^G^M.^E^X^O^I.^P.^B^R..^D^S^C^VK"
- "p.brqsexogcathd.vmlifn.........^t..^l......^a^h/^f^g^m.^e^x^o^i.^p.^b^r..^d^s^c^vk", SUFFIXES);
- break;
- case VariantCourier:
- pieces = CourierArray;
- gameInfo.boardWidth = 12;
- nrCastlingRights = 0;
- SetCharTable(pieceToChar, "PNBR.FE..WMKpnbr.fe..wmk");
- break;
- case VariantKnightmate:
- pieces = KnightmateArray;
- SetCharTable(pieceToChar, "P.BRQ.....M.........K.p.brq.....m.........k.");
- break;
- case VariantSpartan:
- pieces = SpartanArray;
- SetCharTable(pieceToChar, "PNBRQ................K......lwg.....c...h..k");
- break;
- case VariantLion:
- pieces = lionArray;
- SetCharTable(pieceToChar, "PNBRQ................LKpnbrq................lk");
- break;
- case VariantChuChess:
- pieces = ChuChessArray;
- gameInfo.boardWidth = 10;
- gameInfo.boardHeight = 10;
- SetCharTable(pieceToChar, "PNBRQ.....M.+++......LKpnbrq.....m.+++......lk");
- break;
- case VariantFairy:
- pieces = fairyArray;
- SetCharTable(pieceToChar, "PNBRQFEACWMOHIJGDVLSUKpnbrqfeacwmohijgdvlsuk");
- break;
- case VariantGreat:
- pieces = GreatArray;
- gameInfo.boardWidth = 10;
- SetCharTable(pieceToChar, "PN....E...S..HWGMKpn....e...s..hwgmk");
- gameInfo.holdingsSize = 8;
- break;
- case VariantSuper:
- pieces = FIDEArray;
- SetCharTable(pieceToChar, "PNBRQ..SE.......V.AKpnbrq..se.......v.ak");
- gameInfo.holdingsSize = 8;
- startedFromSetupPosition = TRUE;
- break;
- case VariantCrazyhouse:
- case VariantBughouse:
- pieces = FIDEArray;
- SetCharTable(pieceToChar, "PNBRQ.......~~~~Kpnbrq.......~~~~k");
- gameInfo.holdingsSize = 5;
- break;
- case VariantWildCastle:
- pieces = FIDEArray;
- /* !!?shuffle with kings guaranteed to be on d or e file */
- shuffleOpenings = 1;
- break;
- case VariantNoCastle:
- pieces = FIDEArray;
- nrCastlingRights = 0;
- /* !!?unconstrained back-rank shuffle */
- shuffleOpenings = 1;
- break;
- }
-
- overrule = 0;
- if(appData.NrFiles >= 0) {
- if(gameInfo.boardWidth != appData.NrFiles) overrule++;
- gameInfo.boardWidth = appData.NrFiles;
- }
- if(appData.NrRanks >= 0) {
- gameInfo.boardHeight = appData.NrRanks;
- }
- if(appData.holdingsSize >= 0) {
- i = appData.holdingsSize;
- if(i > gameInfo.boardHeight) i = gameInfo.boardHeight;
- gameInfo.holdingsSize = i;
- }
- if(gameInfo.holdingsSize) gameInfo.holdingsWidth = 2;
- if(BOARD_HEIGHT > BOARD_RANKS || BOARD_WIDTH > BOARD_FILES)
- DisplayFatalError(_("Recompile to support this BOARD_RANKS or BOARD_FILES!"), 0, 2);
-
- pawnRow = gameInfo.boardHeight - 7; /* seems to work in all common variants */
- if(pawnRow < 1) pawnRow = 1;
- if(gameInfo.variant == VariantMakruk || gameInfo.variant == VariantASEAN ||
- gameInfo.variant == VariantGrand || gameInfo.variant == VariantChuChess) pawnRow = 2;
- if(gameInfo.variant == VariantChu) pawnRow = 3;
-
- /* User pieceToChar list overrules defaults */
- if(appData.pieceToCharTable != NULL)
- SetCharTableEsc(pieceToChar, appData.pieceToCharTable, SUFFIXES);
-
- for( j=0; j<BOARD_WIDTH; j++ ) { ChessSquare s = EmptySquare;
-
- if(j==BOARD_LEFT-1 || j==BOARD_RGHT)
- s = (ChessSquare) 0; /* account holding counts in guard band */
- for( i=0; i<BOARD_HEIGHT; i++ )
- initialPosition[i][j] = s;
-
- if(j < BOARD_LEFT || j >= BOARD_RGHT || overrule) continue;
- initialPosition[gameInfo.variant == VariantGrand || gameInfo.variant == VariantChuChess][j] = pieces[0][j-gameInfo.holdingsWidth];
- initialPosition[pawnRow][j] = WhitePawn;
- initialPosition[BOARD_HEIGHT-pawnRow-1][j] = gameInfo.variant == VariantSpartan ? BlackLance : BlackPawn;
- if(gameInfo.variant == VariantXiangqi) {
- if(j&1) {
- initialPosition[pawnRow][j] =
- initialPosition[BOARD_HEIGHT-pawnRow-1][j] = EmptySquare;
- if(j==BOARD_LEFT+1 || j>=BOARD_RGHT-2) {
- initialPosition[2][j] = WhiteCannon;
- initialPosition[BOARD_HEIGHT-3][j] = BlackCannon;
- }
- }
- }
- if(gameInfo.variant == VariantChu) {
- if(j == (BOARD_WIDTH-2)/3 || j == BOARD_WIDTH - (BOARD_WIDTH+1)/3)
- initialPosition[pawnRow+1][j] = WhiteCobra,
- initialPosition[BOARD_HEIGHT-pawnRow-2][j] = BlackCobra;
- for(i=1; i<pieceRows; i++) {
- initialPosition[i][j] = pieces[2*i][j-gameInfo.holdingsWidth];
- initialPosition[BOARD_HEIGHT-1-i][j] = pieces[2*i+1][j-gameInfo.holdingsWidth];
- }
- }
- if(gameInfo.variant == VariantGrand || gameInfo.variant == VariantChuChess) {
- if(j==BOARD_LEFT || j>=BOARD_RGHT-1) {
- initialPosition[0][j] = WhiteRook;
- initialPosition[BOARD_HEIGHT-1][j] = BlackRook;
- }
- }
- initialPosition[BOARD_HEIGHT-1-(gameInfo.variant == VariantGrand || gameInfo.variant == VariantChuChess)][j] = pieces[1][j-gameInfo.holdingsWidth];
- }
- if(gameInfo.variant == VariantChuChess) initialPosition[0][BOARD_WIDTH/2] = WhiteKing, initialPosition[BOARD_HEIGHT-1][BOARD_WIDTH/2-1] = BlackKing;
- if( (gameInfo.variant == VariantShogi) && !overrule ) {
-
- j=BOARD_LEFT+1;
- initialPosition[1][j] = WhiteBishop;
- initialPosition[BOARD_HEIGHT-2][j] = BlackRook;
- j=BOARD_RGHT-2;
- initialPosition[1][j] = WhiteRook;
- initialPosition[BOARD_HEIGHT-2][j] = BlackBishop;
- }
-
- if( nrCastlingRights == -1) {
- /* [HGM] Build normal castling rights (must be done after board sizing!) */
- /* This sets default castling rights from none to normal corners */
- /* Variants with other castling rights must set them themselves above */
- nrCastlingRights = 6;
-
- initialPosition[CASTLING][0] = initialRights[0] = BOARD_RGHT-1;
- initialPosition[CASTLING][1] = initialRights[1] = BOARD_LEFT;
- initialPosition[CASTLING][2] = initialRights[2] = BOARD_WIDTH>>1;
- initialPosition[CASTLING][3] = initialRights[3] = BOARD_RGHT-1;
- initialPosition[CASTLING][4] = initialRights[4] = BOARD_LEFT;
- initialPosition[CASTLING][5] = initialRights[5] = BOARD_WIDTH>>1;
- }
-
- if(gameInfo.variant == VariantSuper) Prelude(initialPosition);
- if(gameInfo.variant == VariantGreat) { // promotion commoners
- initialPosition[PieceToNumber(WhiteMan)][BOARD_WIDTH-1] = WhiteMan;
- initialPosition[PieceToNumber(WhiteMan)][BOARD_WIDTH-2] = 9;
- initialPosition[BOARD_HEIGHT-1-PieceToNumber(WhiteMan)][0] = BlackMan;
- initialPosition[BOARD_HEIGHT-1-PieceToNumber(WhiteMan)][1] = 9;
- }
- if( gameInfo.variant == VariantSChess ) {
- initialPosition[1][0] = BlackMarshall;
- initialPosition[2][0] = BlackAngel;
- initialPosition[6][BOARD_WIDTH-1] = WhiteMarshall;
- initialPosition[5][BOARD_WIDTH-1] = WhiteAngel;
- initialPosition[1][1] = initialPosition[2][1] =
- initialPosition[6][BOARD_WIDTH-2] = initialPosition[5][BOARD_WIDTH-2] = 1;
- }
- if (appData.debugMode) {
- fprintf(debugFP, "shuffleOpenings = %d\n", shuffleOpenings);
- }
- if(shuffleOpenings) {
- SetUpShuffle(initialPosition, appData.defaultFrcPosition);
- startedFromSetupPosition = TRUE;
- }
- if(startedFromPositionFile) {
- /* [HGM] loadPos: use PositionFile for every new game */
- CopyBoard(initialPosition, filePosition);
- for(i=0; i<nrCastlingRights; i++)
- initialRights[i] = filePosition[CASTLING][i];
- startedFromSetupPosition = TRUE;
- }
- if(*appData.men) LoadPieceDesc(appData.men);
-
- CopyBoard(boards[0], initialPosition);
-
- if(oldx != gameInfo.boardWidth ||
- oldy != gameInfo.boardHeight ||
- oldv != gameInfo.variant ||
- oldh != gameInfo.holdingsWidth
- )
- InitDrawingSizes(-2 ,0);
-
- oldv = gameInfo.variant;
- if (redraw)
- DrawPosition(TRUE, boards[currentMove]);
-}
-
-void
-SendBoard (ChessProgramState *cps, int moveNum)
-{
- char message[MSG_SIZ];
-
- if (cps->useSetboard) {
- char* fen = PositionToFEN(moveNum, cps->fenOverride, 1);
- snprintf(message, MSG_SIZ,"setboard %s\n", fen);
- SendToProgram(message, cps);
- free(fen);
-
- } else {
- ChessSquare *bp;
- int i, j, left=0, right=BOARD_WIDTH;
- /* Kludge to set black to move, avoiding the troublesome and now
- * deprecated "black" command.
- */
- if (!WhiteOnMove(moveNum)) // [HGM] but better a deprecated command than an illegal move...
- SendToProgram(boards[0][1][BOARD_LEFT] == WhitePawn ? "a2a3\n" : "black\n", cps);
-
- if(!cps->extendedEdit) left = BOARD_LEFT, right = BOARD_RGHT; // only board proper
-
- SendToProgram("edit\n", cps);
- SendToProgram("#\n", cps);
- for (i = BOARD_HEIGHT - 1; i >= 0; i--) {
- bp = &boards[moveNum][i][left];
- for (j = left; j < right; j++, bp++) {
- if(j == BOARD_LEFT-1 || j == BOARD_RGHT) continue;
- if ((int) *bp < (int) BlackPawn) {
- if(j == BOARD_RGHT+1)
- snprintf(message, MSG_SIZ, "%c@%d\n", PieceToChar(*bp), bp[-1]);
- else snprintf(message, MSG_SIZ, "%c%c%d\n", PieceToChar(*bp), AAA + j, ONE + i - '0');
- if(message[0] == '+' || message[0] == '~') {
- snprintf(message, MSG_SIZ,"%c%c%d+\n",
- PieceToChar((ChessSquare)(DEMOTED(*bp))),
- AAA + j, ONE + i - '0');
- }
- if(cps->alphaRank) { /* [HGM] shogi: translate coords */
- message[1] = BOARD_RGHT - 1 - j + '1';
- message[2] = BOARD_HEIGHT - 1 - i + 'a';
- }
- SendToProgram(message, cps);
- }
- }
- }
-
- SendToProgram("c\n", cps);
- for (i = BOARD_HEIGHT - 1; i >= 0; i--) {
- bp = &boards[moveNum][i][left];
- for (j = left; j < right; j++, bp++) {
- if(j == BOARD_LEFT-1 || j == BOARD_RGHT) continue;
- if (((int) *bp != (int) EmptySquare)
- && ((int) *bp >= (int) BlackPawn)) {
- if(j == BOARD_LEFT-2)
- snprintf(message, MSG_SIZ, "%c@%d\n", ToUpper(PieceToChar(*bp)), bp[1]);
- else snprintf(message,MSG_SIZ, "%c%c%d\n", ToUpper(PieceToChar(*bp)),
- AAA + j, ONE + i - '0');
- if(message[0] == '+' || message[0] == '~') {
- snprintf(message, MSG_SIZ,"%c%c%d+\n",
- PieceToChar((ChessSquare)(DEMOTED(*bp))),
- AAA + j, ONE + i - '0');
- }
- if(cps->alphaRank) { /* [HGM] shogi: translate coords */
- message[1] = BOARD_RGHT - 1 - j + '1';
- message[2] = BOARD_HEIGHT - 1 - i + 'a';
- }
- SendToProgram(message, cps);
- }
- }
- }
-
- SendToProgram(".\n", cps);
- }
- setboardSpoiledMachineBlack = 0; /* [HGM] assume WB 4.2.7 already solves this after sending setboard */
-}
-
-char exclusionHeader[MSG_SIZ];
-int exCnt, excludePtr;
-typedef struct { int ff, fr, tf, tr, pc, mark; } Exclusion;
-static Exclusion excluTab[200];
-static char excludeMap[(BOARD_RANKS*BOARD_FILES*BOARD_RANKS*BOARD_FILES+7)/8]; // [HGM] exclude: bitmap for excluced moves
-
-static void
-WriteMap (int s)
-{
- int j;
- for(j=0; j<(BOARD_RANKS*BOARD_FILES*BOARD_RANKS*BOARD_FILES+7)/8; j++) excludeMap[j] = s;
- exclusionHeader[19] = s ? '-' : '+'; // update tail state
-}
-
-static void
-ClearMap ()
-{
- safeStrCpy(exclusionHeader, "exclude: none best +tail \n", MSG_SIZ);
- excludePtr = 24; exCnt = 0;
- WriteMap(0);
-}
-
-static void
-UpdateExcludeHeader (int fromY, int fromX, int toY, int toX, char promoChar, char state)
-{ // search given move in table of header moves, to know where it is listed (and add if not there), and update state
- char buf[2*MOVE_LEN], *p;
- Exclusion *e = excluTab;
- int i;
- for(i=0; i<exCnt; i++)
- if(e[i].ff == fromX && e[i].fr == fromY &&
- e[i].tf == toX && e[i].tr == toY && e[i].pc == promoChar) break;
- if(i == exCnt) { // was not in exclude list; add it
- CoordsToAlgebraic(boards[currentMove], PosFlags(currentMove), fromY, fromX, toY, toX, promoChar, buf);
- if(strlen(exclusionHeader + excludePtr) < strlen(buf)) { // no space to write move
- if(state != exclusionHeader[19]) exclusionHeader[19] = '*'; // tail is now in mixed state
- return; // abort
- }
- e[i].ff = fromX; e[i].fr = fromY; e[i].tf = toX; e[i].tr = toY; e[i].pc = promoChar;
- excludePtr++; e[i].mark = excludePtr++;
- for(p=buf; *p; p++) exclusionHeader[excludePtr++] = *p; // copy move
- exCnt++;
- }
- exclusionHeader[e[i].mark] = state;
-}
-
-static int
-ExcludeOneMove (int fromY, int fromX, int toY, int toX, char promoChar, char state)
-{ // include or exclude the given move, as specified by state ('+' or '-'), or toggle
- char buf[MSG_SIZ];
- int j, k;
- ChessMove moveType;
- if((signed char)promoChar == -1) { // kludge to indicate best move
- if(!ParseOneMove(lastPV[0], currentMove, &moveType, &fromX, &fromY, &toX, &toY, &promoChar)) // get current best move from last PV
- return 1; // if unparsable, abort
- }
- // update exclusion map (resolving toggle by consulting existing state)
- k=(BOARD_FILES*fromY+fromX)*BOARD_RANKS*BOARD_FILES + (BOARD_FILES*toY+toX);
- j = k%8; k >>= 3;
- if(state == '*') state = (excludeMap[k] & 1<<j ? '+' : '-'); // toggle
- if(state == '-' && !promoChar) // only non-promotions get marked as excluded, to allow exclusion of under-promotions
- excludeMap[k] |= 1<<j;
- else excludeMap[k] &= ~(1<<j);
- // update header
- UpdateExcludeHeader(fromY, fromX, toY, toX, promoChar, state);
- // inform engine
- snprintf(buf, MSG_SIZ, "%sclude ", state == '+' ? "in" : "ex");
- CoordsToComputerAlgebraic(fromY, fromX, toY, toX, promoChar, buf+8);
- SendToBoth(buf);
- return (state == '+');
-}
-
-static void
-ExcludeClick (int index)
-{
- int i, j;
- Exclusion *e = excluTab;
- if(index < 25) { // none, best or tail clicked
- if(index < 13) { // none: include all
- WriteMap(0); // clear map
- for(i=0; i<exCnt; i++) exclusionHeader[excluTab[i].mark] = '+'; // and moves
- SendToBoth("include all\n"); // and inform engine
- } else if(index > 18) { // tail
- if(exclusionHeader[19] == '-') { // tail was excluded
- SendToBoth("include all\n");
- WriteMap(0); // clear map completely
- // now re-exclude selected moves
- for(i=0; i<exCnt; i++) if(exclusionHeader[e[i].mark] == '-')
- ExcludeOneMove(e[i].fr, e[i].ff, e[i].tr, e[i].tf, e[i].pc, '-');
- } else { // tail was included or in mixed state
- SendToBoth("exclude all\n");
- WriteMap(0xFF); // fill map completely
- // now re-include selected moves
- j = 0; // count them
- for(i=0; i<exCnt; i++) if(exclusionHeader[e[i].mark] == '+')
- ExcludeOneMove(e[i].fr, e[i].ff, e[i].tr, e[i].tf, e[i].pc, '+'), j++;
- if(!j) ExcludeOneMove(0, 0, 0, 0, -1, '+'); // if no moves were selected, keep best
- }
- } else { // best
- ExcludeOneMove(0, 0, 0, 0, -1, '-'); // exclude it
- }
- } else {
- for(i=0; i<exCnt; i++) if(i == exCnt-1 || excluTab[i+1].mark > index) {
- char *p=exclusionHeader + excluTab[i].mark; // do trust header more than map (promotions!)
- ExcludeOneMove(e[i].fr, e[i].ff, e[i].tr, e[i].tf, e[i].pc, *p == '+' ? '-' : '+');
- break;
- }
- }
-}
-
-ChessSquare
-DefaultPromoChoice (int white)
-{
- ChessSquare result;
- if(gameInfo.variant == VariantShatranj || gameInfo.variant == VariantCourier ||
- gameInfo.variant == VariantMakruk)
- result = WhiteFerz; // no choice
- else if(gameInfo.variant == VariantASEAN)
- result = WhiteRook; // no choice
- else if(gameInfo.variant == VariantSuicide || gameInfo.variant == VariantGiveaway)
- result= WhiteKing; // in Suicide Q is the last thing we want
- else if(gameInfo.variant == VariantSpartan)
- result = white ? WhiteQueen : WhiteAngel;
- else result = WhiteQueen;
- if(!white) result = WHITE_TO_BLACK result;
- return result;
-}
-
-static int autoQueen; // [HGM] oneclick
-
-int
-HasPromotionChoice (int fromX, int fromY, int toX, int toY, char *promoChoice, int sweepSelect)
-{
- /* [HGM] rewritten IsPromotion to only flag promotions that offer a choice */
- /* [HGM] add Shogi promotions */
- int promotionZoneSize=1, highestPromotingPiece = (int)WhitePawn;
- ChessSquare piece, partner;
- ChessMove moveType;
- Boolean premove;
-
- if(fromX < BOARD_LEFT || fromX >= BOARD_RGHT) return FALSE; // drop
- if(toX < BOARD_LEFT || toX >= BOARD_RGHT) return FALSE; // move into holdings
-
- if(gameMode == EditPosition || gameInfo.variant == VariantXiangqi || // no promotions
- !(fromX >=0 && fromY >= 0 && toX >= 0 && toY >= 0) ) // invalid move
- return FALSE;
-
- piece = boards[currentMove][fromY][fromX];
- if(gameInfo.variant == VariantChu) {
- promotionZoneSize = BOARD_HEIGHT/3;
- highestPromotingPiece = (PieceToChar(piece) == '+' || PieceToChar(CHUPROMOTED(piece)) != '+') ? WhitePawn : WhiteKing;
- } else if(gameInfo.variant == VariantShogi) {
- promotionZoneSize = BOARD_HEIGHT/3 +(BOARD_HEIGHT == 8);
- highestPromotingPiece = (int)WhiteAlfil;
- } else if(gameInfo.variant == VariantMakruk || gameInfo.variant == VariantGrand || gameInfo.variant == VariantChuChess) {
- promotionZoneSize = 3;
- }
-
- // Treat Lance as Pawn when it is not representing Amazon or Lance
- if(gameInfo.variant != VariantSuper && gameInfo.variant != VariantChu) {
- if(piece == WhiteLance) piece = WhitePawn; else
- if(piece == BlackLance) piece = BlackPawn;
- }
-
- // next weed out all moves that do not touch the promotion zone at all
- if((int)piece >= BlackPawn) {
- if(toY >= promotionZoneSize && fromY >= promotionZoneSize)
- return FALSE;
- if(fromY < promotionZoneSize && gameInfo.variant == VariantChuChess) return FALSE;
- highestPromotingPiece = WHITE_TO_BLACK highestPromotingPiece;
- } else {
- if( toY < BOARD_HEIGHT - promotionZoneSize &&
- fromY < BOARD_HEIGHT - promotionZoneSize) return FALSE;
- if(fromY >= BOARD_HEIGHT - promotionZoneSize && gameInfo.variant == VariantChuChess)
- return FALSE;
- }
-
- if( (int)piece > highestPromotingPiece ) return FALSE; // non-promoting piece
-
- // weed out mandatory Shogi promotions
- if(gameInfo.variant == VariantShogi) {
- if(piece >= BlackPawn) {
- if(toY == 0 && piece == BlackPawn ||
- toY == 0 && piece == BlackQueen ||
- toY <= 1 && piece == BlackKnight) {
- *promoChoice = '+';
- return FALSE;
- }
- } else {
- if(toY == BOARD_HEIGHT-1 && piece == WhitePawn ||
- toY == BOARD_HEIGHT-1 && piece == WhiteQueen ||
- toY >= BOARD_HEIGHT-2 && piece == WhiteKnight) {
- *promoChoice = '+';
- return FALSE;
- }
- }
- }
-
- // weed out obviously illegal Pawn moves
- if(appData.testLegality && (piece == WhitePawn || piece == BlackPawn) ) {
- if(toX > fromX+1 || toX < fromX-1) return FALSE; // wide
- if(piece == WhitePawn && toY != fromY+1) return FALSE; // deep
- if(piece == BlackPawn && toY != fromY-1) return FALSE; // deep
- if(fromX != toX && gameInfo.variant == VariantShogi) return FALSE;
- // note we are not allowed to test for valid (non-)capture, due to premove
- }
-
- // we either have a choice what to promote to, or (in Shogi) whether to promote
- if(gameInfo.variant == VariantShatranj || gameInfo.variant == VariantCourier ||
- gameInfo.variant == VariantMakruk) {
- ChessSquare p=BlackFerz; // no choice
- while(p < EmptySquare) { //but make sure we use piece that exists
- *promoChoice = PieceToChar(p++);
- if(*promoChoice != '.') break;
- }
- if(!*engineVariant) return FALSE; // if used as parent variant there might be promotion choice
- }
- // no sense asking what we must promote to if it is going to explode...
- if(gameInfo.variant == VariantAtomic && boards[currentMove][toY][toX] != EmptySquare) {
- *promoChoice = PieceToChar(BlackQueen); // Queen as good as any
- return FALSE;
- }
- // give caller the default choice even if we will not make it
- *promoChoice = ToLower(PieceToChar(defaultPromoChoice));
- partner = piece; // pieces can promote if the pieceToCharTable says so
- if(IS_SHOGI(gameInfo.variant)) *promoChoice = (defaultPromoChoice == piece && sweepSelect ? '=' : '+'); // obsolete?
- else if(Partner(&partner)) *promoChoice = (defaultPromoChoice == piece && sweepSelect ? NULLCHAR : '+');
- if( sweepSelect && gameInfo.variant != VariantGreat
- && gameInfo.variant != VariantGrand
- && gameInfo.variant != VariantSuper) return FALSE;
- if(autoQueen) return FALSE; // predetermined
-
- // suppress promotion popup on illegal moves that are not premoves
- premove = gameMode == IcsPlayingWhite && !WhiteOnMove(currentMove) ||
- gameMode == IcsPlayingBlack && WhiteOnMove(currentMove);
- if(appData.testLegality && !premove) {
- moveType = LegalityTest(boards[currentMove], PosFlags(currentMove),
- fromY, fromX, toY, toX, IS_SHOGI(gameInfo.variant) || gameInfo.variant == VariantChuChess ? '+' : NULLCHAR);
- if(moveType == IllegalMove) *promoChoice = NULLCHAR; // could be the fact we promoted was illegal
- if(moveType != WhitePromotion && moveType != BlackPromotion)
- return FALSE;
- }
-
- return TRUE;
-}
-
-int
-InPalace (int row, int column)
-{ /* [HGM] for Xiangqi */
- if( (row < 3 || row > BOARD_HEIGHT-4) &&
- column < (BOARD_WIDTH + 4)/2 &&
- column > (BOARD_WIDTH - 5)/2 ) return TRUE;
- return FALSE;
-}
-
-int
-PieceForSquare (int x, int y)
-{
- if (x < 0 || x >= BOARD_WIDTH || y < 0 || y >= BOARD_HEIGHT)
- return -1;
- else
- return boards[currentMove][y][x];
-}
-
-int
-OKToStartUserMove (int x, int y)
-{
- ChessSquare from_piece;
- int white_piece;
-
- if (matchMode) return FALSE;
- if (gameMode == EditPosition) return TRUE;
-
- if (x >= 0 && y >= 0)
- from_piece = boards[currentMove][y][x];
- else
- from_piece = EmptySquare;
-
- if (from_piece == EmptySquare) return FALSE;
-
- white_piece = (int)from_piece >= (int)WhitePawn &&
- (int)from_piece < (int)BlackPawn; /* [HGM] can be > King! */
-
- switch (gameMode) {
- case AnalyzeFile:
- case TwoMachinesPlay:
- case EndOfGame:
- return FALSE;
-
- case IcsObserving:
- case IcsIdle:
- return FALSE;
-
- case MachinePlaysWhite:
- case IcsPlayingBlack:
- if (appData.zippyPlay) return FALSE;
- if (white_piece) {
- DisplayMoveError(_("You are playing Black"));
- return FALSE;
- }
- break;
-
- case MachinePlaysBlack:
- case IcsPlayingWhite:
- if (appData.zippyPlay) return FALSE;
- if (!white_piece) {
- DisplayMoveError(_("You are playing White"));
- return FALSE;
- }
- break;
-
- case PlayFromGameFile:
- if(!shiftKey || !appData.variations) return FALSE; // [HGM] allow starting variation in this mode
- case EditGame:
- case AnalyzeMode:
- if (!white_piece && WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is White's turn"));
- return FALSE;
- }
- if (white_piece && !WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is Black's turn"));
- return FALSE;
- }
- if (cmailMsgLoaded && (currentMove < cmailOldMove)) {
- /* Editing correspondence game history */
- /* Could disallow this or prompt for confirmation */
- cmailOldMove = -1;
- }
- break;
-
- case BeginningOfGame:
- if (appData.icsActive) return FALSE;
- if (!appData.noChessProgram) {
- if (!white_piece) {
- DisplayMoveError(_("You are playing White"));
- return FALSE;
- }
- }
- break;
-
- case Training:
- if (!white_piece && WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is White's turn"));
- return FALSE;
- }
- if (white_piece && !WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is Black's turn"));
- return FALSE;
- }
- break;
-
- default:
- case IcsExamining:
- break;
- }
- if (currentMove != forwardMostMove && gameMode != AnalyzeMode
- && gameMode != EditGame // [HGM] vari: treat as AnalyzeMode
- && gameMode != PlayFromGameFile // [HGM] as EditGame, with protected main line
- && gameMode != AnalyzeFile && gameMode != Training) {
- DisplayMoveError(_("Displayed position is not current"));
- return FALSE;
- }
- return TRUE;
-}
-
-Boolean
-OnlyMove (int *x, int *y, Boolean captures)
-{
- DisambiguateClosure cl;
- if (appData.zippyPlay || !appData.testLegality) return FALSE;
- switch(gameMode) {
- case MachinePlaysBlack:
- case IcsPlayingWhite:
- case BeginningOfGame:
- if(!WhiteOnMove(currentMove)) return FALSE;
- break;
- case MachinePlaysWhite:
- case IcsPlayingBlack:
- if(WhiteOnMove(currentMove)) return FALSE;
- break;
- case EditGame:
- break;
- default:
- return FALSE;
- }
- cl.pieceIn = EmptySquare;
- cl.rfIn = *y;
- cl.ffIn = *x;
- cl.rtIn = -1;
- cl.ftIn = -1;
- cl.promoCharIn = NULLCHAR;
- Disambiguate(boards[currentMove], PosFlags(currentMove), &cl);
- if( cl.kind == NormalMove ||
- cl.kind == AmbiguousMove && captures && cl.captures == 1 ||
- cl.kind == WhitePromotion || cl.kind == BlackPromotion ||
- cl.kind == WhiteCapturesEnPassant || cl.kind == BlackCapturesEnPassant) {
- fromX = cl.ff;
- fromY = cl.rf;
- *x = cl.ft;
- *y = cl.rt;
- return TRUE;
- }
- if(cl.kind != ImpossibleMove) return FALSE;
- cl.pieceIn = EmptySquare;
- cl.rfIn = -1;
- cl.ffIn = -1;
- cl.rtIn = *y;
- cl.ftIn = *x;
- cl.promoCharIn = NULLCHAR;
- Disambiguate(boards[currentMove], PosFlags(currentMove), &cl);
- if( cl.kind == NormalMove ||
- cl.kind == AmbiguousMove && captures && cl.captures == 1 ||
- cl.kind == WhitePromotion || cl.kind == BlackPromotion ||
- cl.kind == WhiteCapturesEnPassant || cl.kind == BlackCapturesEnPassant) {
- fromX = cl.ff;
- fromY = cl.rf;
- *x = cl.ft;
- *y = cl.rt;
- autoQueen = TRUE; // act as if autoQueen on when we click to-square
- return TRUE;
- }
- return FALSE;
-}
-
-FILE *lastLoadGameFP = NULL, *lastLoadPositionFP = NULL;
-int lastLoadGameNumber = 0, lastLoadPositionNumber = 0;
-int lastLoadGameUseList = FALSE;
-char lastLoadGameTitle[MSG_SIZ], lastLoadPositionTitle[MSG_SIZ];
-ChessMove lastLoadGameStart = EndOfFile;
-int doubleClick;
-Boolean addToBookFlag;
-static Board rightsBoard, nullBoard;
-
-void
-UserMoveEvent (int fromX, int fromY, int toX, int toY, int promoChar)
-{
- ChessMove moveType;
- ChessSquare pup;
- int ff=fromX, rf=fromY, ft=toX, rt=toY;
-
- /* Check if the user is playing in turn. This is complicated because we
- let the user "pick up" a piece before it is his turn. So the piece he
- tried to pick up may have been captured by the time he puts it down!
- Therefore we use the color the user is supposed to be playing in this
- test, not the color of the piece that is currently on the starting
- square---except in EditGame mode, where the user is playing both
- sides; fortunately there the capture race can't happen. (It can
- now happen in IcsExamining mode, but that's just too bad. The user
- will get a somewhat confusing message in that case.)
- */
-
- switch (gameMode) {
- case AnalyzeFile:
- case TwoMachinesPlay:
- case EndOfGame:
- case IcsObserving:
- case IcsIdle:
- /* We switched into a game mode where moves are not accepted,
- perhaps while the mouse button was down. */
- return;
-
- case MachinePlaysWhite:
- /* User is moving for Black */
- if (WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is White's turn"));
- return;
- }
- break;
-
- case MachinePlaysBlack:
- /* User is moving for White */
- if (!WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is Black's turn"));
- return;
- }
- break;
-
- case PlayFromGameFile:
- if(!shiftKey ||!appData.variations) return; // [HGM] only variations
- case EditGame:
- case IcsExamining:
- case BeginningOfGame:
- case AnalyzeMode:
- case Training:
- if(fromY == DROP_RANK) break; // [HGM] drop moves (entered through move type-in) are automatically assigned to side-to-move
- if ((int) boards[currentMove][fromY][fromX] >= (int) BlackPawn &&
- (int) boards[currentMove][fromY][fromX] < (int) EmptySquare) {
- /* User is moving for Black */
- if (WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is White's turn"));
- return;
- }
- } else {
- /* User is moving for White */
- if (!WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is Black's turn"));
- return;
- }
- }
- break;
-
- case IcsPlayingBlack:
- /* User is moving for Black */
- if (WhiteOnMove(currentMove)) {
- if (!appData.premove) {
- DisplayMoveError(_("It is White's turn"));
- } else if (toX >= 0 && toY >= 0) {
- premoveToX = toX;
- premoveToY = toY;
- premoveFromX = fromX;
- premoveFromY = fromY;
- premovePromoChar = promoChar;
- gotPremove = 1;
- if (appData.debugMode)
- fprintf(debugFP, "Got premove: fromX %d,"
- "fromY %d, toX %d, toY %d\n",
- fromX, fromY, toX, toY);
- }
- DrawPosition(TRUE, boards[currentMove]); // [HGM] repair animation damage done by premove (in particular emptying from-square)
- return;
- }
- break;
-
- case IcsPlayingWhite:
- /* User is moving for White */
- if (!WhiteOnMove(currentMove)) {
- if (!appData.premove) {
- DisplayMoveError(_("It is Black's turn"));
- } else if (toX >= 0 && toY >= 0) {
- premoveToX = toX;
- premoveToY = toY;
- premoveFromX = fromX;
- premoveFromY = fromY;
- premovePromoChar = promoChar;
- gotPremove = 1;
- if (appData.debugMode)
- fprintf(debugFP, "Got premove: fromX %d,"
- "fromY %d, toX %d, toY %d\n",
- fromX, fromY, toX, toY);
- }
- DrawPosition(TRUE, boards[currentMove]);
- return;
- }
- break;
-
- default:
- break;
-
- case EditPosition:
- /* EditPosition, empty square, or different color piece;
- click-click move is possible */
- if (toX == -2 || toY == -2) {
- boards[0][fromY][fromX] = (boards[0][fromY][fromX] == EmptySquare ? DarkSquare : EmptySquare);
- DrawPosition(FALSE, boards[currentMove]);
- return;
- } else if (toX >= 0 && toY >= 0) {
- if(!appData.pieceMenu && toX == fromX && toY == fromY && boards[0][rf][ff] != EmptySquare) {
- ChessSquare p = boards[0][rf][ff];
- if(PieceToChar(p) == '+') gatingPiece = CHUDEMOTED(p); else
- if(PieceToChar(CHUPROMOTED(p)) =='+') gatingPiece = CHUPROMOTED(p); else
- if(p == WhiteKing || p == BlackKing || p == WhiteRook || p == BlackRook || p == WhitePawn || p == BlackPawn) {
- int n = rightsBoard[toY][toX] ^= 1; // toggle virginity of K or R
- DisplayMessage("", n ? _("rights granted") : _("rights revoked"));
- gatingPiece = p;
- }
- } else rightsBoard[toY][toX] = 0; // revoke rights on moving
- boards[0][toY][toX] = boards[0][fromY][fromX];
- if(fromX == BOARD_LEFT-2) { // handle 'moves' out of holdings
- if(boards[0][fromY][0] != EmptySquare) {
- if(boards[0][fromY][1]) boards[0][fromY][1]--;
- if(boards[0][fromY][1] == 0) boards[0][fromY][0] = EmptySquare;
- }
- } else
- if(fromX == BOARD_RGHT+1) {
- if(boards[0][fromY][BOARD_WIDTH-1] != EmptySquare) {
- if(boards[0][fromY][BOARD_WIDTH-2]) boards[0][fromY][BOARD_WIDTH-2]--;
- if(boards[0][fromY][BOARD_WIDTH-2] == 0) boards[0][fromY][BOARD_WIDTH-1] = EmptySquare;
- }
- } else
- boards[0][fromY][fromX] = gatingPiece;
- ClearHighlights();
- DrawPosition(FALSE, boards[currentMove]);
- return;
- }
- return;
- }
-
- if((toX < 0 || toY < 0) && (fromY != DROP_RANK || fromX != EmptySquare)) return;
- pup = boards[currentMove][toY][toX];
-
- /* [HGM] If move started in holdings, it means a drop. Convert to standard form */
- if( (fromX == BOARD_LEFT-2 || fromX == BOARD_RGHT+1) && fromY != DROP_RANK ) {
- if( pup != EmptySquare ) return;
- moveType = WhiteOnMove(currentMove) ? WhiteDrop : BlackDrop;
- if(appData.debugMode) fprintf(debugFP, "Drop move %d, curr=%d, x=%d,y=%d, p=%d\n",
- moveType, currentMove, fromX, fromY, boards[currentMove][fromY][fromX]);
- // holdings might not be sent yet in ICS play; we have to figure out which piece belongs here
- if(fromX == 0) fromY = BOARD_HEIGHT-1 - fromY; // black holdings upside-down
- fromX = fromX ? WhitePawn : BlackPawn; // first piece type in selected holdings
- while(PieceToChar(fromX) == '.' || PieceToChar(fromX) == '+' || PieceToNumber(fromX) != fromY && fromX != (int) EmptySquare) fromX++;
- fromY = DROP_RANK;
- }
-
- /* [HGM] always test for legality, to get promotion info */
- moveType = LegalityTest(boards[currentMove], PosFlags(currentMove),
- fromY, fromX, toY, toX, promoChar);
-
- if(fromY == DROP_RANK && fromX == EmptySquare && (gameMode == AnalyzeMode || gameMode == EditGame || PosFlags(0) & F_NULL_MOVE)) moveType = NormalMove;
-
- if(moveType == IllegalMove && legal[toY][toX] > 1) moveType = NormalMove; // someone explicitly told us this move is legal
-
- /* [HGM] but possibly ignore an IllegalMove result */
- if (appData.testLegality) {
- if (moveType == IllegalMove || moveType == ImpossibleMove) {
- DisplayMoveError(_("Illegal move"));
- return;
- }
- }
-
- if(doubleClick && gameMode == AnalyzeMode) { // [HGM] exclude: move entered with double-click on from square is for exclusion, not playing
- if(ExcludeOneMove(fromY, fromX, toY, toX, promoChar, '*')) // toggle
- ClearPremoveHighlights(); // was included
- else ClearHighlights(), SetPremoveHighlights(ff, rf, ft, rt); // exclusion indicated by premove highlights
- DrawPosition(FALSE, NULL);
- return;
- }
-
- if(addToBookFlag) { // adding moves to book
- char buf[MSG_SIZ], move[MSG_SIZ];
- CoordsToAlgebraic(boards[currentMove], PosFlags(currentMove), fromY, fromX, toY, toX, promoChar, move);
- if(killX >= 0) snprintf(move, MSG_SIZ, "%c%dx%c%d-%c%d%c", fromX + AAA, fromY + ONE - '0',
- killX + AAA, killY + ONE - '0', toX + AAA, toY + ONE - '0', promoChar);
- snprintf(buf, MSG_SIZ, " 0.0%% 1 %s\n", move);
- AddBookMove(buf);
- addToBookFlag = FALSE;
- ClearHighlights();
- return;
- }
-
- FinishMove(moveType, fromX, fromY, toX, toY, promoChar);
-}
-
-/* Common tail of UserMoveEvent and DropMenuEvent */
-int
-FinishMove (ChessMove moveType, int fromX, int fromY, int toX, int toY, int promoChar)
-{
- char *bookHit = 0;
-
- if((gameInfo.variant == VariantSuper || gameInfo.variant == VariantGreat || gameInfo.variant == VariantGrand) && promoChar != NULLCHAR) {
- // [HGM] superchess: suppress promotions to non-available piece (but P always allowed)
- int k = PieceToNumber(CharToPiece(ToUpper(promoChar)));
- if(WhiteOnMove(currentMove)) {
- if(!boards[currentMove][k][BOARD_WIDTH-2]) return 0;
- } else {
- if(!boards[currentMove][BOARD_HEIGHT-1-k][1]) return 0;
- }
- }
-
- /* [HGM] <popupFix> kludge to avoid having to know the exact promotion
- move type in caller when we know the move is a legal promotion */
- if(moveType == NormalMove && promoChar)
- moveType = WhiteOnMove(currentMove) ? WhitePromotion : BlackPromotion;
-
- /* [HGM] <popupFix> The following if has been moved here from
- UserMoveEvent(). Because it seemed to belong here (why not allow
- piece drops in training games?), and because it can only be
- performed after it is known to what we promote. */
- if (gameMode == Training) {
- /* compare the move played on the board to the next move in the
- * game. If they match, display the move and the opponent's response.
- * If they don't match, display an error message.
- */
- int saveAnimate;
- Board testBoard;
- CopyBoard(testBoard, boards[currentMove]);
- ApplyMove(fromX, fromY, toX, toY, promoChar, testBoard);
-
- if (CompareBoards(testBoard, boards[currentMove+1])) {
- ForwardInner(currentMove+1);
-
- /* Autoplay the opponent's response.
- * if appData.animate was TRUE when Training mode was entered,
- * the response will be animated.
- */
- saveAnimate = appData.animate;
- appData.animate = animateTraining;
- ForwardInner(currentMove+1);
- appData.animate = saveAnimate;
-
- /* check for the end of the game */
- if (currentMove >= forwardMostMove) {
- gameMode = PlayFromGameFile;
- ModeHighlight();
- SetTrainingModeOff();
- DisplayInformation(_("End of game"));
- }
- } else {
- DisplayError(_("Incorrect move"), 0);
- }
- return 1;
- }
-
- /* Ok, now we know that the move is good, so we can kill
- the previous line in Analysis Mode */
- if ((gameMode == AnalyzeMode || gameMode == EditGame || gameMode == PlayFromGameFile && appData.variations && shiftKey)
- && currentMove < forwardMostMove) {
- if(appData.variations && shiftKey) PushTail(currentMove, forwardMostMove); // [HGM] vari: save tail of game
- else forwardMostMove = currentMove;
- }
-
- ClearMap();
-
- /* If we need the chess program but it's dead, restart it */
- ResurrectChessProgram();
-
- /* A user move restarts a paused game*/
- if (pausing)
- PauseEvent();
-
- thinkOutput[0] = NULLCHAR;
-
- MakeMove(fromX, fromY, toX, toY, promoChar); /*updates forwardMostMove*/
-
- if(Adjudicate(NULL)) { // [HGM] adjudicate: take care of automatic game end
- ShowMove(fromX, fromY, toX, toY); /*updates currentMove*/
- return 1;
- }
-
- if (gameMode == BeginningOfGame) {
- if (appData.noChessProgram) {
- gameMode = EditGame;
- SetGameInfo();
- } else {
- char buf[MSG_SIZ];
- gameMode = MachinePlaysBlack;
- StartClocks();
- SetGameInfo();
- snprintf(buf, MSG_SIZ, "%s %s %s", gameInfo.white, _("vs."), gameInfo.black);
- DisplayTitle(buf);
- if (first.sendName) {
- snprintf(buf, MSG_SIZ,"name %s\n", gameInfo.white);
- SendToProgram(buf, &first);
- }
- StartClocks();
- }
- ModeHighlight();
- }
-
- /* Relay move to ICS or chess engine */
- if (appData.icsActive) {
- if (gameMode == IcsPlayingWhite || gameMode == IcsPlayingBlack ||
- gameMode == IcsExamining) {
- if(userOfferedDraw && (signed char)boards[forwardMostMove][EP_STATUS] <= EP_DRAWS) {
- SendToICS(ics_prefix); // [HGM] drawclaim: send caim and move on one line for FICS
- SendToICS("draw ");
- SendMoveToICS(moveType, fromX, fromY, toX, toY, promoChar);
- }
- // also send plain move, in case ICS does not understand atomic claims
- SendMoveToICS(moveType, fromX, fromY, toX, toY, promoChar);
- ics_user_moved = 1;
- }
- } else {
- if (first.sendTime && (gameMode == BeginningOfGame ||
- gameMode == MachinePlaysWhite ||
- gameMode == MachinePlaysBlack)) {
- SendTimeRemaining(&first, gameMode != MachinePlaysBlack);
- }
- if (gameMode != EditGame && gameMode != PlayFromGameFile && gameMode != AnalyzeMode) {
- // [HGM] book: if program might be playing, let it use book
- bookHit = SendMoveToBookUser(forwardMostMove-1, &first, FALSE);
- first.maybeThinking = TRUE;
- } else if(fromY == DROP_RANK && fromX == EmptySquare) {
- if(!first.useSetboard) SendToProgram("undo\n", &first); // kludge to change stm in engines that do not support setboard
- SendBoard(&first, currentMove+1);
- if(second.analyzing) {
- if(!second.useSetboard) SendToProgram("undo\n", &second);
- SendBoard(&second, currentMove+1);
- }
- } else {
- SendMoveToProgram(forwardMostMove-1, &first);
- if(second.analyzing) SendMoveToProgram(forwardMostMove-1, &second);
- }
- if (currentMove == cmailOldMove + 1) {
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_MOVE;
- }
- }
-
- ShowMove(fromX, fromY, toX, toY); /*updates currentMove*/
-
- switch (gameMode) {
- case EditGame:
- if(appData.testLegality)
- switch (MateTest(boards[currentMove], PosFlags(currentMove)) ) {
- case MT_NONE:
- case MT_CHECK:
- break;
- case MT_CHECKMATE:
- case MT_STAINMATE:
- if (WhiteOnMove(currentMove)) {
- GameEnds(BlackWins, "Black mates", GE_PLAYER);
- } else {
- GameEnds(WhiteWins, "White mates", GE_PLAYER);
- }
- break;
- case MT_STALEMATE:
- GameEnds(GameIsDrawn, "Stalemate", GE_PLAYER);
- break;
- }
- break;
-
- case MachinePlaysBlack:
- case MachinePlaysWhite:
- /* disable certain menu options while machine is thinking */
- SetMachineThinkingEnables();
- break;
-
- default:
- break;
- }
-
- userOfferedDraw = FALSE; // [HGM] drawclaim: after move made, and tested for claimable draw
- promoDefaultAltered = FALSE; // [HGM] fall back on default choice
-
- if(bookHit) { // [HGM] book: simulate book reply
- static char bookMove[MSG_SIZ]; // a bit generous?
-
- programStats.nodes = programStats.depth = programStats.time =
- programStats.score = programStats.got_only_move = 0;
- sprintf(programStats.movelist, "%s (xbook)", bookHit);
-
- safeStrCpy(bookMove, "move ", sizeof(bookMove)/sizeof(bookMove[0]));
- strcat(bookMove, bookHit);
- HandleMachineMove(bookMove, &first);
- }
- return 1;
-}
-
-void
-MarkByFEN(char *fen)
-{
- int r, f;
- if(!appData.markers || !appData.highlightDragging) return;
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) legal[r][f] = 0;
- r=BOARD_HEIGHT-1; f=BOARD_LEFT;
- while(*fen) {
- int s = 0;
- marker[r][f] = 0;
- if(*fen == 'M') legal[r][f] = 2; else // request promotion choice
- if(*fen >= 'A' && *fen <= 'Z') legal[r][f] = 3; else
- if(*fen >= 'a' && *fen <= 'z') *fen += 'A' - 'a';
- if(*fen == '/' && f > BOARD_LEFT) f = BOARD_LEFT, r--; else
- if(*fen == 'T') marker[r][f++] = 0; else
- if(*fen == 'Y') marker[r][f++] = 1; else
- if(*fen == 'G') marker[r][f++] = 3; else
- if(*fen == 'B') marker[r][f++] = 4; else
- if(*fen == 'C') marker[r][f++] = 5; else
- if(*fen == 'M') marker[r][f++] = 6; else
- if(*fen == 'W') marker[r][f++] = 7; else
- if(*fen == 'D') marker[r][f++] = 8; else
- if(*fen == 'R') marker[r][f++] = 2; else {
- while(*fen <= '9' && *fen >= '0') s = 10*s + *fen++ - '0';
- f += s; fen -= s>0;
- }
- while(f >= BOARD_RGHT) f -= BOARD_RGHT - BOARD_LEFT, r--;
- if(r < 0) break;
- fen++;
- }
- DrawPosition(TRUE, NULL);
-}
-
-static char baseMarker[BOARD_RANKS][BOARD_FILES], baseLegal[BOARD_RANKS][BOARD_FILES];
-
-void
-Mark (Board board, int flags, ChessMove kind, int rf, int ff, int rt, int ft, VOIDSTAR closure)
-{
- typedef char Markers[BOARD_RANKS][BOARD_FILES];
- Markers *m = (Markers *) closure;
- if(rf == fromY && ff == fromX && (killX < 0 ? !(rt == rf && ft == ff) && legNr & 1 :
- kill2X < 0 ? rt == killY && ft == killX || legNr & 2 : rt == killY && ft == killX || legNr & 4))
- (*m)[rt][ft] = 1 + (board[rt][ft] != EmptySquare
- || kind == WhiteCapturesEnPassant
- || kind == BlackCapturesEnPassant) + 3*(kind == FirstLeg && (killX < 0 & legNr || legNr & 2 && kill2X < 0)), legal[rt][ft] = 3;
- else if(flags & F_MANDATORY_CAPTURE && board[rt][ft] != EmptySquare) (*m)[rt][ft] = 3, legal[rt][ft] = 3;
-}
-
-static int hoverSavedValid;
-
-void
-MarkTargetSquares (int clear)
-{
- int x, y, sum=0;
- if(clear) { // no reason to ever suppress clearing
- for(x=0; x<BOARD_WIDTH; x++) for(y=0; y<BOARD_HEIGHT; y++) sum += marker[y][x], marker[y][x] = 0;
- hoverSavedValid = 0;
- if(!sum || clear < 0) return; // nothing was cleared,no redraw needed
- } else {
- int capt = 0;
- if(!appData.markers || !appData.highlightDragging || appData.icsActive && gameInfo.variant < VariantShogi ||
- !appData.testLegality && !pieceDefs || gameMode == EditPosition) return;
- GenLegal(boards[currentMove], PosFlags(currentMove), Mark, (void*) marker, EmptySquare);
- if(PosFlags(0) & F_MANDATORY_CAPTURE) {
- for(x=0; x<BOARD_WIDTH; x++) for(y=0; y<BOARD_HEIGHT; y++) if(marker[y][x]>1) capt++;
- if(capt)
- for(x=0; x<BOARD_WIDTH; x++) for(y=0; y<BOARD_HEIGHT; y++) if(marker[y][x] == 1) marker[y][x] = 0;
- }
- }
- DrawPosition(FALSE, NULL);
-}
-
-int
-Explode (Board board, int fromX, int fromY, int toX, int toY)
-{
- if(gameInfo.variant == VariantAtomic &&
- (board[toY][toX] != EmptySquare || // capture?
- toX != fromX && (board[fromY][fromX] == WhitePawn || // e.p. ?
- board[fromY][fromX] == BlackPawn )
- )) {
- AnimateAtomicCapture(board, fromX, fromY, toX, toY);
- return TRUE;
- }
- return FALSE;
-}
-
-ChessSquare gatingPiece = EmptySquare; // exported to front-end, for dragging
-
-int
-CanPromote (ChessSquare piece, int y)
-{
- int zone = (gameInfo.variant == VariantChuChess ? 3 : 1);
- if(gameMode == EditPosition) return FALSE; // no promotions when editing position
- // some variants have fixed promotion piece, no promotion at all, or another selection mechanism
- if(IS_SHOGI(gameInfo.variant) || gameInfo.variant == VariantXiangqi ||
- gameInfo.variant == VariantSuper || gameInfo.variant == VariantGreat ||
- (gameInfo.variant == VariantShatranj || gameInfo.variant == VariantCourier ||
- gameInfo.variant == VariantMakruk) && !*engineVariant) return FALSE;
- return (piece == BlackPawn && y <= zone ||
- piece == WhitePawn && y >= BOARD_HEIGHT-1-zone ||
- piece == BlackLance && y <= zone ||
- piece == WhiteLance && y >= BOARD_HEIGHT-1-zone );
-}
-
-void
-HoverEvent (int xPix, int yPix, int x, int y)
-{
- static int oldX = -1, oldY = -1, oldFromX = -1, oldFromY = -1;
- int r, f;
- if(!first.highlight) return;
- if(fromX != oldFromX || fromY != oldFromY) oldX = oldY = -1; // kludge to fake entry on from-click
- if(x == oldX && y == oldY) return; // only do something if we enter new square
- oldFromX = fromX; oldFromY = fromY;
- if(oldX == -1 && oldY == -1 && x == fromX && y == fromY) { // record markings after from-change
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++)
- baseMarker[r][f] = marker[r][f], baseLegal[r][f] = legal[r][f];
- hoverSavedValid = 1;
- } else if(oldX != x || oldY != y) {
- // [HGM] lift: entered new to-square; redraw arrow, and inform engine
- if(hoverSavedValid) // don't restore markers that are supposed to be cleared
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++)
- marker[r][f] = baseMarker[r][f], legal[r][f] = baseLegal[r][f];
- if((marker[y][x] == 2 || marker[y][x] == 6) && legal[y][x]) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "hover %c%d\n", x + AAA, y + ONE - '0');
- SendToProgram(buf, &first);
- }
- oldX = x; oldY = y;
-// SetHighlights(fromX, fromY, x, y);
- }
-}
-
-void ReportClick(char *action, int x, int y)
-{
- char buf[MSG_SIZ]; // Inform engine of what user does
- int r, f;
- if(action[0] == 'l') // mark any target square of a lifted piece as legal to-square, clear markers
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++)
- legal[r][f] = !pieceDefs || !appData.markers, marker[r][f] = 0;
- if(!first.highlight || gameMode == EditPosition) return;
- snprintf(buf, MSG_SIZ, "%s %c%d%s\n", action, x+AAA, y+ONE-'0', controlKey && action[0]=='p' ? "," : "");
- SendToProgram(buf, &first);
-}
-
-Boolean right; // instructs front-end to use button-1 events as if they were button 3
-
-void
-LeftClick (ClickType clickType, int xPix, int yPix)
-{
- int x, y;
- Boolean saveAnimate;
- static int second = 0, promotionChoice = 0, clearFlag = 0, sweepSelecting = 0, flashing = 0, saveFlash;
- char promoChoice = NULLCHAR;
- ChessSquare piece;
- static TimeMark lastClickTime, prevClickTime;
-
- if(flashing) return;
-
- x = EventToSquare(xPix, BOARD_WIDTH);
- y = EventToSquare(yPix, BOARD_HEIGHT);
- if (!flipView && y >= 0) {
- y = BOARD_HEIGHT - 1 - y;
- }
- if (flipView && x >= 0) {
- x = BOARD_WIDTH - 1 - x;
- }
-
- if(appData.monoMouse && gameMode == EditPosition && fromX < 0 && clickType == Press && boards[currentMove][y][x] == EmptySquare) {
- static int dummy;
- RightClick(clickType, xPix, yPix, &dummy, &dummy);
- right = TRUE;
- return;
- }
-
- if(SeekGraphClick(clickType, xPix, yPix, 0)) return;
-
- prevClickTime = lastClickTime; GetTimeMark(&lastClickTime);
-
- if (clickType == Press) ErrorPopDown();
- lastClickType = clickType, lastLeftX = xPix, lastLeftY = yPix; // [HGM] alien: remember state
-
- if(promoSweep != EmptySquare) { // up-click during sweep-select of promo-piece
- defaultPromoChoice = promoSweep;
- promoSweep = EmptySquare; // terminate sweep
- promoDefaultAltered = TRUE;
- if(!selectFlag && !sweepSelecting && (x != toX || y != toY)) x = fromX, y = fromY; // and fake up-click on same square if we were still selecting
- }
-
- if(promotionChoice) { // we are waiting for a click to indicate promotion piece
- if(clickType == Release) return; // ignore upclick of click-click destination
- promotionChoice = FALSE; // only one chance: if click not OK it is interpreted as cancel
- if(appData.debugMode) fprintf(debugFP, "promotion click, x=%d, y=%d\n", x, y);
- if(gameInfo.holdingsWidth &&
- (WhiteOnMove(currentMove)
- ? x == BOARD_WIDTH-1 && y < gameInfo.holdingsSize && y >= 0
- : x == 0 && y >= BOARD_HEIGHT - gameInfo.holdingsSize && y < BOARD_HEIGHT) ) {
- // click in right holdings, for determining promotion piece
- ChessSquare p = boards[currentMove][y][x];
- if(appData.debugMode) fprintf(debugFP, "square contains %d\n", (int)p);
- if(p == WhitePawn || p == BlackPawn) p = EmptySquare; // [HGM] Pawns could be valid as deferral
- if(p != EmptySquare || gameInfo.variant == VariantGrand && toY != 0 && toY != BOARD_HEIGHT-1) { // [HGM] grand: empty square means defer
- FinishMove(NormalMove, fromX, fromY, toX, toY, p==EmptySquare ? NULLCHAR : ToLower(PieceToChar(p)));
- fromX = fromY = -1;
- return;
- }
- }
- DrawPosition(FALSE, boards[currentMove]);
- return;
- }
-
- /* [HGM] holdings: next 5 lines: ignore all clicks between board and holdings */
- if(clickType == Press
- && ( x == BOARD_LEFT-1 || x == BOARD_RGHT
- || x == BOARD_LEFT-2 && y < BOARD_HEIGHT-gameInfo.holdingsSize
- || x == BOARD_RGHT+1 && y >= gameInfo.holdingsSize) )
- return;
-
- if(gotPremove && x == premoveFromX && y == premoveFromY && clickType == Release) {
- // could be static click on premove from-square: abort premove
- gotPremove = 0;
- ClearPremoveHighlights();
- }
-
- if(clickType == Press && fromX == x && fromY == y && promoDefaultAltered && SubtractTimeMarks(&lastClickTime, &prevClickTime) >= 200)
- fromX = fromY = -1; // second click on piece after altering default promo piece treated as first click
-
- if(!promoDefaultAltered) { // determine default promotion piece, based on the side the user is moving for
- int side = (gameMode == IcsPlayingWhite || gameMode == MachinePlaysBlack ||
- gameMode != MachinePlaysWhite && gameMode != IcsPlayingBlack && WhiteOnMove(currentMove));
- defaultPromoChoice = DefaultPromoChoice(side);
- }
-
- autoQueen = appData.alwaysPromoteToQueen;
-
- if (fromX == -1) {
- int originalY = y;
- gatingPiece = EmptySquare;
- if (clickType != Press) {
- if(dragging) { // [HGM] from-square must have been reset due to game end since last press
- DragPieceEnd(xPix, yPix); dragging = 0;
- DrawPosition(FALSE, NULL);
- }
- return;
- }
- doubleClick = FALSE;
- if(gameMode == AnalyzeMode && (pausing || controlKey) && first.excludeMoves) { // use pause state to exclude moves
- doubleClick = TRUE; gatingPiece = boards[currentMove][y][x];
- }
- fromX = x; fromY = y; toX = toY = killX = killY = kill2X = kill2Y = -1;
- if(!appData.oneClick || !OnlyMove(&x, &y, FALSE) ||
- // even if only move, we treat as normal when this would trigger a promotion popup, to allow sweep selection
- appData.sweepSelect && CanPromote(boards[currentMove][fromY][fromX], fromY) && originalY != y) {
- /* First square */
- if (OKToStartUserMove(fromX, fromY)) {
- second = 0;
- ReportClick("lift", x, y);
- MarkTargetSquares(0);
- if(gameMode == EditPosition && controlKey) gatingPiece = boards[currentMove][fromY][fromX];
- DragPieceBegin(xPix, yPix, FALSE); dragging = 1;
- if(appData.sweepSelect && CanPromote(piece = boards[currentMove][fromY][fromX], fromY)) {
- promoSweep = defaultPromoChoice;
- selectFlag = 0; lastX = xPix; lastY = yPix; *promoRestrict = 0;
- Sweep(0); // Pawn that is going to promote: preview promotion piece
- DisplayMessage("", _("Pull pawn backwards to under-promote"));
- }
- if (appData.highlightDragging) {
- SetHighlights(fromX, fromY, -1, -1);
- } else {
- ClearHighlights();
- }
- } else fromX = fromY = -1;
- return;
- }
- }
-
- /* fromX != -1 */
- if (clickType == Press && gameMode != EditPosition) {
- ChessSquare fromP;
- ChessSquare toP;
- int frc;
-
- // ignore off-board to clicks
- if(y < 0 || x < 0) return;
-
- /* Check if clicking again on the same color piece */
- fromP = boards[currentMove][fromY][fromX];
- toP = boards[currentMove][y][x];
- frc = appData.fischerCastling || gameInfo.variant == VariantSChess;
- if( (killX < 0 || x != fromX || y != fromY) && // [HGM] lion: do not interpret igui as deselect!
- marker[y][x] == 0 && // if engine told we can move to here, do it even if own piece
- ((WhitePawn <= fromP && fromP <= WhiteKing &&
- WhitePawn <= toP && toP <= WhiteKing &&
- !(fromP == WhiteKing && toP == WhiteRook && frc) &&
- !(fromP == WhiteRook && toP == WhiteKing && frc)) ||
- (BlackPawn <= fromP && fromP <= BlackKing &&
- BlackPawn <= toP && toP <= BlackKing &&
- !(fromP == BlackRook && toP == BlackKing && frc) && // allow also RxK as FRC castling
- !(fromP == BlackKing && toP == BlackRook && frc)))) {
- /* Clicked again on same color piece -- changed his mind */
- second = (x == fromX && y == fromY);
- killX = killY = kill2X = kill2Y = -1;
- if(second && gameMode == AnalyzeMode && SubtractTimeMarks(&lastClickTime, &prevClickTime) < 200) {
- second = FALSE; // first double-click rather than scond click
- doubleClick = first.excludeMoves; // used by UserMoveEvent to recognize exclude moves
- }
- promoDefaultAltered = FALSE;
- if(!second) MarkTargetSquares(1);
- if(!(second && appData.oneClick && OnlyMove(&x, &y, TRUE))) {
- if (appData.highlightDragging) {
- SetHighlights(x, y, -1, -1);
- } else {
- ClearHighlights();
- }
- if (OKToStartUserMove(x, y)) {
- if(gameInfo.variant == VariantSChess && // S-Chess: back-rank piece selected after holdings means gating
- (fromX == BOARD_LEFT-2 || fromX == BOARD_RGHT+1) &&
- y == (toP < BlackPawn ? 0 : BOARD_HEIGHT-1))
- gatingPiece = boards[currentMove][fromY][fromX];
- else gatingPiece = doubleClick ? fromP : EmptySquare;
- fromX = x;
- fromY = y; dragging = 1;
- if(!second) ReportClick("lift", x, y);
- MarkTargetSquares(0);
- DragPieceBegin(xPix, yPix, FALSE);
- if(appData.sweepSelect && CanPromote(piece = boards[currentMove][y][x], y)) {
- promoSweep = defaultPromoChoice;
- selectFlag = 0; lastX = xPix; lastY = yPix; *promoRestrict = 0;
- Sweep(0); // Pawn that is going to promote: preview promotion piece
- }
- }
- }
- if(x == fromX && y == fromY) return; // if OnlyMove altered (x,y) we go on
- second = FALSE;
- }
- // ignore clicks on holdings
- if(x < BOARD_LEFT || x >= BOARD_RGHT) return;
- }
-
- if(x == fromX && y == fromY && clickType == Press && gameMode == EditPosition && SubtractTimeMarks(&lastClickTime, &prevClickTime) < 200) {
- gatingPiece = boards[currentMove][fromY][fromX]; // prepare to copy rather than move
- DragPieceBegin(xPix, yPix, FALSE); dragging = 1;
- return;
- }
-
- if (clickType == Release && x == fromX && y == fromY && killX < 0 && !sweepSelecting) {
- DragPieceEnd(xPix, yPix); dragging = 0;
- if(clearFlag) {
- // a deferred attempt to click-click move an empty square on top of a piece
- boards[currentMove][y][x] = EmptySquare;
- ClearHighlights();
- DrawPosition(FALSE, boards[currentMove]);
- fromX = fromY = -1; clearFlag = 0;
- return;
- }
- if (appData.animateDragging) {
- /* Undo animation damage if any */
- DrawPosition(FALSE, NULL);
- }
- if (second) {
- /* Second up/down in same square; just abort move */
- second = 0;
- fromX = fromY = -1;
- gatingPiece = EmptySquare;
- ClearHighlights();
- gotPremove = 0;
- ClearPremoveHighlights();
- MarkTargetSquares(-1);
- DrawPosition(FALSE, NULL); // make user highlights are drawn (and deferred marker clearing)
- } else {
- /* First upclick in same square; start click-click mode */
- SetHighlights(x, y, -1, -1);
- }
- return;
- }
-
- clearFlag = 0;
-
- if(gameMode != EditPosition && !appData.testLegality && !legal[y][x] &&
- fromX >= BOARD_LEFT && fromX < BOARD_RGHT && (x != killX || y != killY) && !sweepSelecting) {
- if(dragging) DragPieceEnd(xPix, yPix), dragging = 0;
- DisplayMessage(_("only marked squares are legal"),"");
- DrawPosition(TRUE, NULL);
- return; // ignore to-click
- }
-
- /* we now have a different from- and (possibly off-board) to-square */
- /* Completed move */
- if(!sweepSelecting) {
- toX = x;
- toY = y;
- }
-
- piece = boards[currentMove][fromY][fromX];
-
- saveAnimate = appData.animate;
- if (clickType == Press) {
- if(gameInfo.variant == VariantChuChess && piece != WhitePawn && piece != BlackPawn) defaultPromoChoice = piece;
- if(gameMode == EditPosition && boards[currentMove][fromY][fromX] == EmptySquare) {
- // must be Edit Position mode with empty-square selected
- fromX = x; fromY = y; DragPieceBegin(xPix, yPix, FALSE); dragging = 1; // consider this a new attempt to drag
- if(x >= BOARD_LEFT && x < BOARD_RGHT) clearFlag = 1; // and defer click-click move of empty-square to up-click
- return;
- }
- if(dragging == 2) { // [HGM] lion: just turn buttonless drag into normal drag, and let release to the job
- return;
- }
- if(x == killX && y == killY) { // second click on this square, which was selected as first-leg target
- killX = kill2X; killY = kill2Y; kill2X = kill2Y = -1; // this informs us no second leg is coming, so treat as to-click without intermediate
- } else
- if(marker[y][x] == 5) return; // [HGM] lion: to-click on cyan square; defer action to release
- if(legal[y][x] == 2 || HasPromotionChoice(fromX, fromY, toX, toY, &promoChoice, FALSE)) {
- if(appData.sweepSelect) {
- promoSweep = defaultPromoChoice;
- if(gameInfo.variant != VariantChuChess && PieceToChar(CHUPROMOTED(piece)) == '+') promoSweep = CHUPROMOTED(piece);
- selectFlag = 0; lastX = xPix; lastY = yPix;
- ReportClick("put", x, y); // extra put to prompt engine for 'choice' command
- saveFlash = appData.flashCount; appData.flashCount = 0;
- Sweep(0); // Pawn that is going to promote: preview promotion piece
- sweepSelecting = 1;
- DisplayMessage("", _("Pull pawn backwards to under-promote"));
- MarkTargetSquares(1);
- }
- return; // promo popup appears on up-click
- }
- /* Finish clickclick move */
- if (appData.animate || appData.highlightLastMove) {
- SetHighlights(fromX, fromY, toX, toY);
- } else {
- ClearHighlights();
- }
- MarkTargetSquares(1);
- } else if(sweepSelecting) { // this must be the up-click corresponding to the down-click that started the sweep
- sweepSelecting = 0; appData.animate = FALSE; // do not animate, a selected piece already on to-square
- *promoRestrict = 0; appData.flashCount = saveFlash;
- if (appData.animate || appData.highlightLastMove) {
- SetHighlights(fromX, fromY, toX, toY);
- } else {
- ClearHighlights();
- }
- MarkTargetSquares(1);
- } else {
-#if 0
-// [HGM] this must be done after the move is made, as with arrow it could lead to a board redraw with piece still on from square
- /* Finish drag move */
- if (appData.highlightLastMove) {
- SetHighlights(fromX, fromY, toX, toY);
- } else {
- ClearHighlights();
- }
-#endif
- if(PieceToChar(CHUPROMOTED(boards[currentMove][fromY][fromX])) == '+')
- defaultPromoChoice = CHUPROMOTED(boards[currentMove][fromY][fromX]);
- if(gameInfo.variant == VariantChuChess && piece != WhitePawn && piece != BlackPawn) defaultPromoChoice = piece;
- if(marker[y][x] == 5) { // [HGM] lion: this was the release of a to-click or drag on a cyan square
- dragging *= 2; // flag button-less dragging if we are dragging
- MarkTargetSquares(1);
- if(x == killX && y == killY) killX = kill2X, killY = kill2Y, kill2X = kill2Y = -1; // cancel last kill
- else {
- kill2X = killX; kill2Y = killY;
- killX = x; killY = y; // remember this square as intermediate
- ReportClick("put", x, y); // and inform engine
- ReportClick("lift", x, y);
- MarkTargetSquares(0);
- return;
- }
- }
- DragPieceEnd(xPix, yPix); dragging = 0;
- /* Don't animate move and drag both */
- appData.animate = FALSE;
- MarkTargetSquares(-1); // -1 defers displaying marker change to prevent piece reappearing on from-square!
- }
-
- // moves into holding are invalid for now (except in EditPosition, adapting to-square)
- if(x >= 0 && x < BOARD_LEFT || x >= BOARD_RGHT) {
- ChessSquare piece = boards[currentMove][fromY][fromX];
- if(gameMode == EditPosition && piece != EmptySquare &&
- fromX >= BOARD_LEFT && fromX < BOARD_RGHT) {
- int n;
-
- if(x == BOARD_LEFT-2 && piece >= BlackPawn) {
- n = PieceToNumber(piece - (int)BlackPawn);
- if(n >= gameInfo.holdingsSize) { n = 0; piece = BlackPawn; }
- boards[currentMove][BOARD_HEIGHT-1 - n][0] = piece;
- boards[currentMove][BOARD_HEIGHT-1 - n][1]++;
- } else
- if(x == BOARD_RGHT+1 && piece < BlackPawn) {
- n = PieceToNumber(piece);
- if(n >= gameInfo.holdingsSize) { n = 0; piece = WhitePawn; }
- boards[currentMove][n][BOARD_WIDTH-1] = piece;
- boards[currentMove][n][BOARD_WIDTH-2]++;
- }
- boards[currentMove][fromY][fromX] = EmptySquare;
- }
- ClearHighlights();
- fromX = fromY = -1;
- MarkTargetSquares(1);
- DrawPosition(TRUE, boards[currentMove]);
- return;
- }
-
- // off-board moves should not be highlighted
- if(x < 0 || y < 0) ClearHighlights();
- else ReportClick("put", x, y);
-
- if(gatingPiece != EmptySquare && gameInfo.variant == VariantSChess) promoChoice = ToLower(PieceToChar(gatingPiece));
-
- if(legal[toY][toX] == 2) promoChoice = ToLower(PieceToChar(defaultPromoChoice)); // highlight-induced promotion
-
- if (legal[toY][toX] == 2 && !appData.sweepSelect || HasPromotionChoice(fromX, fromY, toX, toY, &promoChoice, appData.sweepSelect)) {
- SetHighlights(fromX, fromY, toX, toY);
- MarkTargetSquares(1);
- if(gameInfo.variant == VariantSuper || gameInfo.variant == VariantGreat || gameInfo.variant == VariantGrand) {
- // [HGM] super: promotion to captured piece selected from holdings
- ChessSquare p = boards[currentMove][fromY][fromX], q = boards[currentMove][toY][toX];
- promotionChoice = TRUE;
- // kludge follows to temporarily execute move on display, without promoting yet
- boards[currentMove][fromY][fromX] = EmptySquare; // move Pawn to 8th rank
- boards[currentMove][toY][toX] = p;
- DrawPosition(FALSE, boards[currentMove]);
- boards[currentMove][fromY][fromX] = p; // take back, but display stays
- boards[currentMove][toY][toX] = q;
- DisplayMessage("Click in holdings to choose piece", "");
- return;
- }
- PromotionPopUp(promoChoice);
- } else {
- int oldMove = currentMove;
- flashing = 1; // prevent recursive calling (by release of to-click) while flashing piece
- UserMoveEvent(fromX, fromY, toX, toY, promoChoice);
- if (!appData.highlightLastMove || gotPremove) ClearHighlights();
- if (gotPremove) SetPremoveHighlights(fromX, fromY, toX, toY), DrawPosition(FALSE, NULL);
- if(saveAnimate && !appData.animate && currentMove != oldMove && // drag-move was performed
- Explode(boards[currentMove-1], fromX, fromY, toX, toY))
- DrawPosition(TRUE, boards[currentMove]);
- fromX = fromY = -1;
- flashing = 0;
- }
- appData.animate = saveAnimate;
- if (appData.animate || appData.animateDragging) {
- /* Undo animation damage if needed */
-// DrawPosition(FALSE, NULL);
- }
-}
-
-int
-RightClick (ClickType action, int x, int y, int *fromX, int *fromY)
-{ // front-end-free part taken out of PieceMenuPopup
- int whichMenu; int xSqr, ySqr;
-
- if(seekGraphUp) { // [HGM] seekgraph
- if(action == Press) SeekGraphClick(Press, x, y, 2); // 2 indicates right-click: no pop-down on miss
- if(action == Release) SeekGraphClick(Release, x, y, 2); // and no challenge on hit
- return -2;
- }
-
- if((gameMode == IcsPlayingWhite || gameMode == IcsPlayingBlack)
- && !appData.zippyPlay && appData.bgObserve) { // [HGM] bughouse: show background game
- if(!partnerBoardValid) return -2; // suppress display of uninitialized boards
- if( appData.dualBoard) return -2; // [HGM] dual: is already displayed
- if(action == Press) {
- originalFlip = flipView;
- flipView = !flipView; // temporarily flip board to see game from partners perspective
- DrawPosition(TRUE, partnerBoard);
- DisplayMessage(partnerStatus, "");
- partnerUp = TRUE;
- } else if(action == Release) {
- flipView = originalFlip;
- DrawPosition(TRUE, boards[currentMove]);
- partnerUp = FALSE;
- }
- return -2;
- }
-
- xSqr = EventToSquare(x, BOARD_WIDTH);
- ySqr = EventToSquare(y, BOARD_HEIGHT);
- if (action == Release) {
- if(pieceSweep != EmptySquare) {
- EditPositionMenuEvent(pieceSweep, toX, toY);
- pieceSweep = EmptySquare;
- } else UnLoadPV(); // [HGM] pv
- }
- if (action != Press) return -2; // return code to be ignored
- switch (gameMode) {
- case IcsExamining:
- if(xSqr < BOARD_LEFT || xSqr >= BOARD_RGHT) return -1;
- case EditPosition:
- if (xSqr == BOARD_LEFT-1 || xSqr == BOARD_RGHT) return -1;
- if (xSqr < 0 || ySqr < 0) return -1;
- if(appData.pieceMenu) { whichMenu = 0; break; } // edit-position menu
- pieceSweep = shiftKey ? BlackPawn : WhitePawn; // [HGM] sweep: prepare selecting piece by mouse sweep
- toX = xSqr; toY = ySqr; lastX = x, lastY = y;
- if(flipView) toX = BOARD_WIDTH - 1 - toX; else toY = BOARD_HEIGHT - 1 - toY;
- NextPiece(0);
- return 2; // grab
- case IcsObserving:
- if(!appData.icsEngineAnalyze) return -1;
- case IcsPlayingWhite:
- case IcsPlayingBlack:
- if(!appData.zippyPlay) goto noZip;
- case AnalyzeMode:
- case AnalyzeFile:
- case MachinePlaysWhite:
- case MachinePlaysBlack:
- case TwoMachinesPlay: // [HGM] pv: use for showing PV
- if (!appData.dropMenu) {
- LoadPV(x, y);
- return 2; // flag front-end to grab mouse events
- }
- if(gameMode == TwoMachinesPlay || gameMode == AnalyzeMode ||
- gameMode == AnalyzeFile || gameMode == IcsObserving) return -1;
- case EditGame:
- noZip:
- if (xSqr < 0 || ySqr < 0) return -1;
- if (!appData.dropMenu || appData.testLegality &&
- gameInfo.variant != VariantBughouse &&
- gameInfo.variant != VariantCrazyhouse) return -1;
- whichMenu = 1; // drop menu
- break;
- default:
- return -1;
- }
-
- if (((*fromX = xSqr) < 0) ||
- ((*fromY = ySqr) < 0)) {
- *fromX = *fromY = -1;
- return -1;
- }
- if (flipView)
- *fromX = BOARD_WIDTH - 1 - *fromX;
- else
- *fromY = BOARD_HEIGHT - 1 - *fromY;
-
- return whichMenu;
-}
-
-void
-Wheel (int dir, int x, int y)
-{
- if(gameMode == EditPosition) {
- int xSqr = EventToSquare(x, BOARD_WIDTH);
- int ySqr = EventToSquare(y, BOARD_HEIGHT);
- if(ySqr < 0 || xSqr < BOARD_LEFT || xSqr >= BOARD_RGHT) return;
- if(flipView) xSqr = BOARD_WIDTH - 1 - xSqr; else ySqr = BOARD_HEIGHT - 1 - ySqr;
- do {
- boards[currentMove][ySqr][xSqr] += dir;
- if((int) boards[currentMove][ySqr][xSqr] < WhitePawn) boards[currentMove][ySqr][xSqr] = BlackKing;
- if((int) boards[currentMove][ySqr][xSqr] > BlackKing) boards[currentMove][ySqr][xSqr] = WhitePawn;
- } while(PieceToChar(boards[currentMove][ySqr][xSqr]) == '.');
- DrawPosition(FALSE, boards[currentMove]);
- } else if(dir > 0) ForwardEvent(); else BackwardEvent();
-}
-
-void
-SendProgramStatsToFrontend (ChessProgramState * cps, ChessProgramStats * cpstats)
-{
-// char * hint = lastHint;
- FrontEndProgramStats stats;
-
- stats.which = cps == &first ? 0 : 1;
- stats.depth = cpstats->depth;
- stats.nodes = cpstats->nodes;
- stats.score = cpstats->score;
- stats.time = cpstats->time;
- stats.pv = cpstats->movelist;
- stats.hint = lastHint;
- stats.an_move_index = 0;
- stats.an_move_count = 0;
-
- if( gameMode == AnalyzeMode || gameMode == AnalyzeFile ) {
- stats.hint = cpstats->move_name;
- stats.an_move_index = cpstats->nr_moves - cpstats->moves_left;
- stats.an_move_count = cpstats->nr_moves;
- }
-
- if(stats.pv && stats.pv[0]) safeStrCpy(lastPV[stats.which], stats.pv, sizeof(lastPV[stats.which])/sizeof(lastPV[stats.which][0])); // [HGM] pv: remember last PV of each
-
- if( gameMode == AnalyzeMode && stats.pv && stats.pv[0]
- && appData.analysisBell && stats.time >= 100*appData.analysisBell ) RingBell();
-
- SetProgramStats( &stats );
-}
-
-void
-ClearEngineOutputPane (int which)
-{
- static FrontEndProgramStats dummyStats;
- dummyStats.which = which;
- dummyStats.pv = "#";
- SetProgramStats( &dummyStats );
-}
-
-#define MAXPLAYERS 500
-
-char *
-TourneyStandings (int display)
-{
- int i, w, b, color, wScore, bScore, dummy, nr=0, nPlayers=0;
- int score[MAXPLAYERS], ranking[MAXPLAYERS], points[MAXPLAYERS], games[MAXPLAYERS];
- char result, *p, *names[MAXPLAYERS];
-
- if(appData.tourneyType < 0 && !strchr(appData.results, '*'))
- return strdup(_("Swiss tourney finished")); // standings of Swiss yet TODO
- names[0] = p = strdup(appData.participants);
- while(p = strchr(p, '\n')) *p++ = NULLCHAR, names[++nPlayers] = p; // count participants
-
- for(i=0; i<nPlayers; i++) score[i] = games[i] = 0;
-
- while(result = appData.results[nr]) {
- color = Pairing(nr, nPlayers, &w, &b, &dummy);
- if(!(color ^ matchGame & 1)) { dummy = w; w = b; b = dummy; }
- wScore = bScore = 0;
- switch(result) {
- case '+': wScore = 2; break;
- case '-': bScore = 2; break;
- case '=': wScore = bScore = 1; break;
- case ' ':
- case '*': return strdup("busy"); // tourney not finished
- }
- score[w] += wScore;
- score[b] += bScore;
- games[w]++;
- games[b]++;
- nr++;
- }
- if(appData.tourneyType > 0) nPlayers = appData.tourneyType; // in gauntlet, list only gauntlet engine(s)
- for(w=0; w<nPlayers; w++) {
- bScore = -1;
- for(i=0; i<nPlayers; i++) if(score[i] > bScore) bScore = score[i], b = i;
- ranking[w] = b; points[w] = bScore; score[b] = -2;
- }
- p = malloc(nPlayers*34+1);
- for(w=0; w<nPlayers && w<display; w++)
- sprintf(p+34*w, "%2d. %5.1f/%-3d %-19.19s\n", w+1, points[w]/2., games[ranking[w]], names[ranking[w]]);
- free(names[0]);
- return p;
-}
-
-void
-Count (Board board, int pCnt[], int *nW, int *nB, int *wStale, int *bStale, int *bishopColor)
-{ // count all piece types
- int p, f, r;
- *nB = *nW = *wStale = *bStale = *bishopColor = 0;
- for(p=WhitePawn; p<=EmptySquare; p++) pCnt[p] = 0;
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- p = board[r][f];
- pCnt[p]++;
- if(p == WhitePawn && r == BOARD_HEIGHT-1) (*wStale)++; else
- if(p == BlackPawn && r == 0) (*bStale)++; // count last-Rank Pawns (XQ) separately
- if(p <= WhiteKing) (*nW)++; else if(p <= BlackKing) (*nB)++;
- if(p == WhiteBishop || p == WhiteFerz || p == WhiteAlfil ||
- p == BlackBishop || p == BlackFerz || p == BlackAlfil )
- *bishopColor |= 1 << ((f^r)&1); // track square color of color-bound pieces
- }
-}
-
-int
-SufficientDefence (int pCnt[], int side, int nMine, int nHis)
-{
- int myPawns = pCnt[WhitePawn+side]; // my total Pawn count;
- int majorDefense = pCnt[BlackRook-side] + pCnt[BlackCannon-side] + pCnt[BlackKnight-side];
-
- nMine -= pCnt[WhiteFerz+side] + pCnt[WhiteAlfil+side]; // discount defenders
- if(nMine - myPawns > 2) return FALSE; // no trivial draws with more than 1 major
- if(myPawns == 2 && nMine == 3) // KPP
- return majorDefense || pCnt[BlackFerz-side] + pCnt[BlackAlfil-side] >= 3;
- if(myPawns == 1 && nMine == 2) // KP
- return majorDefense || pCnt[BlackFerz-side] + pCnt[BlackAlfil-side] + pCnt[BlackPawn-side] >= 1;
- if(myPawns == 1 && nMine == 3 && pCnt[WhiteKnight+side]) // KHP
- return majorDefense || pCnt[BlackFerz-side] + pCnt[BlackAlfil-side]*2 >= 5;
- if(myPawns) return FALSE;
- if(pCnt[WhiteRook+side])
- return pCnt[BlackRook-side] ||
- pCnt[BlackCannon-side] && (pCnt[BlackFerz-side] >= 2 || pCnt[BlackAlfil-side] >= 2) ||
- pCnt[BlackKnight-side] && pCnt[BlackFerz-side] + pCnt[BlackAlfil-side] > 2 ||
- pCnt[BlackFerz-side] + pCnt[BlackAlfil-side] >= 4;
- if(pCnt[WhiteCannon+side]) {
- if(pCnt[WhiteFerz+side] + myPawns == 0) return TRUE; // Cannon needs platform
- return majorDefense || pCnt[BlackAlfil-side] >= 2;
- }
- if(pCnt[WhiteKnight+side])
- return majorDefense || pCnt[BlackFerz-side] >= 2 || pCnt[BlackAlfil-side] + pCnt[BlackPawn-side] >= 1;
- return FALSE;
-}
-
-int
-MatingPotential (int pCnt[], int side, int nMine, int nHis, int stale, int bisColor)
-{
- VariantClass v = gameInfo.variant;
-
- if(v == VariantShogi || v == VariantCrazyhouse || v == VariantBughouse) return TRUE; // drop games always winnable
- if(v == VariantShatranj) return TRUE; // always winnable through baring
- if(v == VariantLosers || v == VariantSuicide || v == VariantGiveaway) return TRUE;
- if(v == Variant3Check || v == VariantAtomic) return nMine > 1; // can win through checking / exploding King
-
- if(v == VariantXiangqi) {
- int majors = 5*pCnt[BlackKnight-side] + 7*pCnt[BlackCannon-side] + 7*pCnt[BlackRook-side];
-
- nMine -= pCnt[WhiteFerz+side] + pCnt[WhiteAlfil+side] + stale; // discount defensive pieces and back-rank Pawns
- if(nMine + stale == 1) return (pCnt[BlackFerz-side] > 1 && pCnt[BlackKnight-side] > 0); // bare K can stalemate KHAA (!)
- if(nMine > 2) return TRUE; // if we don't have P, H or R, we must have CC
- if(nMine == 2 && pCnt[WhiteCannon+side] == 0) return TRUE; // We have at least one P, H or R
- // if we get here, we must have KC... or KP..., possibly with additional A, E or last-rank P
- if(stale) // we have at least one last-rank P plus perhaps C
- return majors // KPKX
- || pCnt[BlackFerz-side] && pCnt[BlackFerz-side] + pCnt[WhiteCannon+side] + stale > 2; // KPKAA, KPPKA and KCPKA
- else // KCA*E*
- return pCnt[WhiteFerz+side] // KCAK
- || pCnt[WhiteAlfil+side] && pCnt[BlackRook-side] + pCnt[BlackCannon-side] + pCnt[BlackFerz-side] // KCEKA, KCEKX (X!=H)
- || majors + (12*pCnt[BlackFerz-side] | 6*pCnt[BlackAlfil-side]) > 16; // KCKAA, KCKAX, KCKEEX, KCKEXX (XX!=HH), KCKXXX
- // TO DO: cases wih an unpromoted f-Pawn acting as platform for an opponent Cannon
-
- } else if(v == VariantKnightmate) {
- if(nMine == 1) return FALSE;
- if(nMine == 2 && nHis == 1 && pCnt[WhiteBishop+side] + pCnt[WhiteFerz+side] + pCnt[WhiteKnight+side]) return FALSE; // KBK is only draw
- } else if(pCnt[WhiteKing] == 1 && pCnt[BlackKing] == 1) { // other variants with orthodox Kings
- int nBishops = pCnt[WhiteBishop+side] + pCnt[WhiteFerz+side];
-
- if(nMine == 1) return FALSE; // bare King
- if(nBishops && bisColor == 3) return TRUE; // There must be a second B/A/F, which can either block (his) or attack (mine) the escape square
- nMine += (nBishops > 0) - nBishops; // By now all Bishops (and Ferz) on like-colored squares, so count as one
- if(nMine > 2 && nMine != pCnt[WhiteAlfil+side] + 1) return TRUE; // At least two pieces, not all Alfils
- // by now we have King + 1 piece (or multiple Bishops on the same color)
- if(pCnt[WhiteKnight+side])
- return (pCnt[BlackKnight-side] + pCnt[BlackBishop-side] + pCnt[BlackMan-side] +
- pCnt[BlackWazir-side] + pCnt[BlackSilver-side] + bisColor // KNKN, KNKB, KNKF, KNKE, KNKW, KNKM, KNKS
- || nHis > 3); // be sure to cover suffocation mates in corner (e.g. KNKQCA)
- if(nBishops)
- return (pCnt[BlackKnight-side]); // KBKN, KFKN
- if(pCnt[WhiteAlfil+side])
- return (nHis > 2); // Alfils can in general not reach a corner square, but there might be edge (suffocation) mates
- if(pCnt[WhiteWazir+side])
- return (pCnt[BlackKnight-side] + pCnt[BlackWazir-side] + pCnt[BlackAlfil-side]); // KWKN, KWKW, KWKE
- }
-
- return TRUE;
-}
-
-int
-CompareWithRights (Board b1, Board b2)
-{
- int rights = 0;
- if(!CompareBoards(b1, b2)) return FALSE;
- if(b1[EP_STATUS] != b2[EP_STATUS]) return FALSE;
- /* compare castling rights */
- if( b1[CASTLING][2] != b2[CASTLING][2] && (b2[CASTLING][0] != NoRights || b2[CASTLING][1] != NoRights) )
- rights++; /* King lost rights, while rook still had them */
- if( b1[CASTLING][2] != NoRights ) { /* king has rights */
- if( b1[CASTLING][0] != b2[CASTLING][0] || b1[CASTLING][1] != b2[CASTLING][1] )
- rights++; /* but at least one rook lost them */
- }
- if( b1[CASTLING][5] != b1[CASTLING][5] && (b2[CASTLING][3] != NoRights || b2[CASTLING][4] != NoRights) )
- rights++;
- if( b1[CASTLING][5] != NoRights ) {
- if( b1[CASTLING][3] != b2[CASTLING][3] || b1[CASTLING][4] != b2[CASTLING][4] )
- rights++;
- }
- return rights == 0;
-}
-
-int
-Adjudicate (ChessProgramState *cps)
-{ // [HGM] some adjudications useful with buggy engines
- // [HGM] adjudicate: made into separate routine, which now can be called after every move
- // In any case it determnes if the game is a claimable draw (filling in EP_STATUS).
- // Actually ending the game is now based on the additional internal condition canAdjudicate.
- // Only when the game is ended, and the opponent is a computer, this opponent gets the move relayed.
- int k, drop, count = 0; static int bare = 1;
- ChessProgramState *engineOpponent = (gameMode == TwoMachinesPlay ? cps->other : (cps ? NULL : &first));
- Boolean canAdjudicate = !appData.icsActive;
-
- // most tests only when we understand the game, i.e. legality-checking on
- if( appData.testLegality )
- { /* [HGM] Some more adjudications for obstinate engines */
- int nrW, nrB, bishopColor, staleW, staleB, nr[EmptySquare+2], i;
- static int moveCount = 6;
- ChessMove result;
- char *reason = NULL;
-
- /* Count what is on board. */
- Count(boards[forwardMostMove], nr, &nrW, &nrB, &staleW, &staleB, &bishopColor);
-
- /* Some material-based adjudications that have to be made before stalemate test */
- if(gameInfo.variant == VariantAtomic && nr[WhiteKing] + nr[BlackKing] < 2) {
- // [HGM] atomic: stm must have lost his King on previous move, as destroying own K is illegal
- boards[forwardMostMove][EP_STATUS] = EP_CHECKMATE; // make claimable as if stm is checkmated
- if(canAdjudicate && appData.checkMates) {
- if(engineOpponent)
- SendMoveToProgram(forwardMostMove-1, engineOpponent); // make sure opponent gets move
- GameEnds( WhiteOnMove(forwardMostMove) ? BlackWins : WhiteWins,
- "Xboard adjudication: King destroyed", GE_XBOARD );
- return 1;
- }
- }
-
- /* Bare King in Shatranj (loses) or Losers (wins) */
- if( nrW == 1 || nrB == 1) {
- if( gameInfo.variant == VariantLosers) { // [HGM] losers: bare King wins (stm must have it first)
- boards[forwardMostMove][EP_STATUS] = EP_WINS; // mark as win, so it becomes claimable
- if(canAdjudicate && appData.checkMates) {
- if(engineOpponent)
- SendMoveToProgram(forwardMostMove-1, engineOpponent); // make sure opponent gets to see move
- GameEnds( WhiteOnMove(forwardMostMove) ? WhiteWins : BlackWins,
- "Xboard adjudication: Bare king", GE_XBOARD );
- return 1;
- }
- } else
- if( gameInfo.variant == VariantShatranj && --bare < 0)
- { /* bare King */
- boards[forwardMostMove][EP_STATUS] = EP_WINS; // make claimable as win for stm
- if(canAdjudicate && appData.checkMates) {
- /* but only adjudicate if adjudication enabled */
- if(engineOpponent)
- SendMoveToProgram(forwardMostMove-1, engineOpponent); // make sure opponent gets move
- GameEnds( nrW > 1 ? WhiteWins : nrB > 1 ? BlackWins : GameIsDrawn,
- "Xboard adjudication: Bare king", GE_XBOARD );
- return 1;
- }
- }
- } else bare = 1;
-
-
- // don't wait for engine to announce game end if we can judge ourselves
- switch (MateTest(boards[forwardMostMove], PosFlags(forwardMostMove)) ) {
- case MT_CHECK:
- if(gameInfo.variant == Variant3Check) { // [HGM] 3check: when in check, test if 3rd time
- int i, checkCnt = 0; // (should really be done by making nr of checks part of game state)
- for(i=forwardMostMove-2; i>=backwardMostMove; i-=2) {
- if(MateTest(boards[i], PosFlags(i)) == MT_CHECK)
- checkCnt++;
- if(checkCnt >= 2) {
- reason = "Xboard adjudication: 3rd check";
- boards[forwardMostMove][EP_STATUS] = EP_CHECKMATE;
- break;
- }
- }
- }
- case MT_NONE:
- default:
- break;
- case MT_STEALMATE:
- case MT_STALEMATE:
- case MT_STAINMATE:
- reason = "Xboard adjudication: Stalemate";
- if((signed char)boards[forwardMostMove][EP_STATUS] != EP_CHECKMATE) { // [HGM] don't touch win through baring or K-capt
- boards[forwardMostMove][EP_STATUS] = EP_STALEMATE; // default result for stalemate is draw
- if(gameInfo.variant == VariantLosers || gameInfo.variant == VariantGiveaway) // [HGM] losers:
- boards[forwardMostMove][EP_STATUS] = EP_WINS; // in these variants stalemated is always a win
- else if(gameInfo.variant == VariantSuicide) // in suicide it depends
- boards[forwardMostMove][EP_STATUS] = nrW == nrB ? EP_STALEMATE :
- ((nrW < nrB) != WhiteOnMove(forwardMostMove) ?
- EP_CHECKMATE : EP_WINS);
- else if(gameInfo.variant == VariantShatranj || gameInfo.variant == VariantXiangqi || gameInfo.variant == VariantShogi)
- boards[forwardMostMove][EP_STATUS] = EP_CHECKMATE; // and in these variants being stalemated loses
- }
- break;
- case MT_CHECKMATE:
- reason = "Xboard adjudication: Checkmate";
- boards[forwardMostMove][EP_STATUS] = (gameInfo.variant == VariantLosers ? EP_WINS : EP_CHECKMATE);
- if(gameInfo.variant == VariantShogi) {
- if(forwardMostMove > backwardMostMove
- && moveList[forwardMostMove-1][1] == '@'
- && CharToPiece(ToUpper(moveList[forwardMostMove-1][0])) == WhitePawn) {
- reason = "XBoard adjudication: pawn-drop mate";
- boards[forwardMostMove][EP_STATUS] = EP_WINS;
- }
- }
- break;
- }
-
- switch(i = (signed char)boards[forwardMostMove][EP_STATUS]) {
- case EP_STALEMATE:
- result = GameIsDrawn; break;
- case EP_CHECKMATE:
- result = WhiteOnMove(forwardMostMove) ? BlackWins : WhiteWins; break;
- case EP_WINS:
- result = WhiteOnMove(forwardMostMove) ? WhiteWins : BlackWins; break;
- default:
- result = EndOfFile;
- }
- if(canAdjudicate && appData.checkMates && result) { // [HGM] mates: adjudicate finished games if requested
- if(engineOpponent)
- SendMoveToProgram(forwardMostMove-1, engineOpponent); /* make sure opponent gets to see move */
- GameEnds( result, reason, GE_XBOARD );
- return 1;
- }
-
- /* Next absolutely insufficient mating material. */
- if(!MatingPotential(nr, WhitePawn, nrW, nrB, staleW, bishopColor) &&
- !MatingPotential(nr, BlackPawn, nrB, nrW, staleB, bishopColor))
- { /* includes KBK, KNK, KK of KBKB with like Bishops */
-
- /* always flag draws, for judging claims */
- boards[forwardMostMove][EP_STATUS] = EP_INSUF_DRAW;
-
- if(canAdjudicate && appData.materialDraws) {
- /* but only adjudicate them if adjudication enabled */
- if(engineOpponent) {
- SendToProgram("force\n", engineOpponent); // suppress reply
- SendMoveToProgram(forwardMostMove-1, engineOpponent); /* make sure opponent gets to see last move */
- }
- GameEnds( GameIsDrawn, "Xboard adjudication: Insufficient mating material", GE_XBOARD );
- return 1;
- }
- }
-
- /* Then some trivial draws (only adjudicate, cannot be claimed) */
- if(gameInfo.variant == VariantXiangqi ?
- SufficientDefence(nr, WhitePawn, nrW, nrB) && SufficientDefence(nr, BlackPawn, nrB, nrW)
- : nrW + nrB == 4 &&
- ( nr[WhiteRook] == 1 && nr[BlackRook] == 1 /* KRKR */
- || nr[WhiteQueen] && nr[BlackQueen]==1 /* KQKQ */
- || nr[WhiteKnight]==2 || nr[BlackKnight]==2 /* KNNK */
- || nr[WhiteKnight]+nr[WhiteBishop] == 1 && nr[BlackKnight]+nr[BlackBishop] == 1 /* KBKN, KBKB, KNKN */
- ) ) {
- if(--moveCount < 0 && appData.trivialDraws && canAdjudicate)
- { /* if the first 3 moves do not show a tactical win, declare draw */
- if(engineOpponent) {
- SendToProgram("force\n", engineOpponent); // suppress reply
- SendMoveToProgram(forwardMostMove-1, engineOpponent); /* make sure opponent gets to see move */
- }
- GameEnds( GameIsDrawn, "Xboard adjudication: Trivial draw", GE_XBOARD );
- return 1;
- }
- } else moveCount = 6;
- }
-
- // Repetition draws and 50-move rule can be applied independently of legality testing
-
- /* Check for rep-draws */
- count = 0;
- drop = gameInfo.holdingsSize && (gameInfo.variant != VariantSuper && gameInfo.variant != VariantSChess
- && gameInfo.variant != VariantGreat && gameInfo.variant != VariantGrand);
- for(k = forwardMostMove-2;
- k>=backwardMostMove && k>=forwardMostMove-100 && (drop ||
- (signed char)boards[k][EP_STATUS] < EP_UNKNOWN &&
- (signed char)boards[k+2][EP_STATUS] <= EP_NONE && (signed char)boards[k+1][EP_STATUS] <= EP_NONE);
- k-=2)
- { int rights=0;
- if(CompareBoards(boards[k], boards[forwardMostMove])) {
- /* compare castling rights */
- if( boards[forwardMostMove][CASTLING][2] != boards[k][CASTLING][2] &&
- (boards[k][CASTLING][0] != NoRights || boards[k][CASTLING][1] != NoRights) )
- rights++; /* King lost rights, while rook still had them */
- if( boards[forwardMostMove][CASTLING][2] != NoRights ) { /* king has rights */
- if( boards[forwardMostMove][CASTLING][0] != boards[k][CASTLING][0] ||
- boards[forwardMostMove][CASTLING][1] != boards[k][CASTLING][1] )
- rights++; /* but at least one rook lost them */
- }
- if( boards[forwardMostMove][CASTLING][5] != boards[k][CASTLING][5] &&
- (boards[k][CASTLING][3] != NoRights || boards[k][CASTLING][4] != NoRights) )
- rights++;
- if( boards[forwardMostMove][CASTLING][5] != NoRights ) {
- if( boards[forwardMostMove][CASTLING][3] != boards[k][CASTLING][3] ||
- boards[forwardMostMove][CASTLING][4] != boards[k][CASTLING][4] )
- rights++;
- }
- if( rights == 0 && ++count > appData.drawRepeats-2 && canAdjudicate
- && appData.drawRepeats > 1) {
- /* adjudicate after user-specified nr of repeats */
- int result = GameIsDrawn;
- char *details = "XBoard adjudication: repetition draw";
- if((gameInfo.variant == VariantXiangqi || gameInfo.variant == VariantShogi) && appData.testLegality) {
- // [HGM] xiangqi: check for forbidden perpetuals
- int m, ourPerpetual = 1, hisPerpetual = 1;
- for(m=forwardMostMove; m>k; m-=2) {
- if(MateTest(boards[m], PosFlags(m)) != MT_CHECK)
- ourPerpetual = 0; // the current mover did not always check
- if(MateTest(boards[m-1], PosFlags(m-1)) != MT_CHECK)
- hisPerpetual = 0; // the opponent did not always check
- }
- if(appData.debugMode) fprintf(debugFP, "XQ perpetual test, our=%d, his=%d\n",
- ourPerpetual, hisPerpetual);
- if(ourPerpetual && !hisPerpetual) { // we are actively checking him: forfeit
- result = WhiteOnMove(forwardMostMove) ? WhiteWins : BlackWins;
- details = "Xboard adjudication: perpetual checking";
- } else
- if(hisPerpetual && !ourPerpetual) { // he is checking us, but did not repeat yet
- break; // (or we would have caught him before). Abort repetition-checking loop.
- } else
- if(gameInfo.variant == VariantShogi) { // in Shogi other repetitions are draws
- if(BOARD_HEIGHT == 5 && BOARD_RGHT - BOARD_LEFT == 5) { // but in mini-Shogi gote wins!
- result = BlackWins;
- details = "Xboard adjudication: repetition";
- }
- } else // it must be XQ
- // Now check for perpetual chases
- if(!ourPerpetual && !hisPerpetual) { // no perpetual check, test for chase
- hisPerpetual = PerpetualChase(k, forwardMostMove);
- ourPerpetual = PerpetualChase(k+1, forwardMostMove);
- if(ourPerpetual && !hisPerpetual) { // we are actively chasing him: forfeit
- static char resdet[MSG_SIZ];
- result = WhiteOnMove(forwardMostMove) ? WhiteWins : BlackWins;
- details = resdet;
- snprintf(resdet, MSG_SIZ, "Xboard adjudication: perpetual chasing of %c%c", ourPerpetual>>8, ourPerpetual&255);
- } else
- if(hisPerpetual && !ourPerpetual) // he is chasing us, but did not repeat yet
- break; // Abort repetition-checking loop.
- }
- // if neither of us is checking or chasing all the time, or both are, it is draw
- }
- if(engineOpponent) {
- SendToProgram("force\n", engineOpponent); // suppress reply
- SendMoveToProgram(forwardMostMove-1, engineOpponent); /* make sure opponent gets to see move */
- }
- GameEnds( result, details, GE_XBOARD );
- return 1;
- }
- if( rights == 0 && count > 1 ) /* occurred 2 or more times before */
- boards[forwardMostMove][EP_STATUS] = EP_REP_DRAW;
- }
- }
-
- /* Now we test for 50-move draws. Determine ply count */
- count = forwardMostMove;
- /* look for last irreversble move */
- while( (signed char)boards[count][EP_STATUS] <= EP_NONE && count > backwardMostMove )
- count--;
- /* if we hit starting position, add initial plies */
- if( count == backwardMostMove )
- count -= initialRulePlies;
- count = forwardMostMove - count;
- if(gameInfo.variant == VariantXiangqi && ( count >= 100 || count >= 2*appData.ruleMoves ) ) {
- // adjust reversible move counter for checks in Xiangqi
- int i = forwardMostMove - count, inCheck = 0, lastCheck;
- if(i < backwardMostMove) i = backwardMostMove;
- while(i <= forwardMostMove) {
- lastCheck = inCheck; // check evasion does not count
- inCheck = (MateTest(boards[i], PosFlags(i)) == MT_CHECK);
- if(inCheck || lastCheck) count--; // check does not count
- i++;
- }
- }
- if( count >= 100)
- boards[forwardMostMove][EP_STATUS] = EP_RULE_DRAW;
- /* this is used to judge if draw claims are legal */
- if(canAdjudicate && appData.ruleMoves > 0 && count >= 2*appData.ruleMoves) {
- if(engineOpponent) {
- SendToProgram("force\n", engineOpponent); // suppress reply
- SendMoveToProgram(forwardMostMove-1, engineOpponent); /* make sure opponent gets to see move */
- }
- GameEnds( GameIsDrawn, "Xboard adjudication: 50-move rule", GE_XBOARD );
- return 1;
- }
-
- /* if draw offer is pending, treat it as a draw claim
- * when draw condition present, to allow engines a way to
- * claim draws before making their move to avoid a race
- * condition occurring after their move
- */
- if((gameMode == TwoMachinesPlay ? second.offeredDraw : userOfferedDraw) || first.offeredDraw ) {
- char *p = NULL;
- if((signed char)boards[forwardMostMove][EP_STATUS] == EP_RULE_DRAW)
- p = "Draw claim: 50-move rule";
- if((signed char)boards[forwardMostMove][EP_STATUS] == EP_REP_DRAW)
- p = "Draw claim: 3-fold repetition";
- if((signed char)boards[forwardMostMove][EP_STATUS] == EP_INSUF_DRAW)
- p = "Draw claim: insufficient mating material";
- if( p != NULL && canAdjudicate) {
- if(engineOpponent) {
- SendToProgram("force\n", engineOpponent); // suppress reply
- SendMoveToProgram(forwardMostMove-1, engineOpponent); /* make sure opponent gets to see move */
- }
- GameEnds( GameIsDrawn, p, GE_XBOARD );
- return 1;
- }
- }
-
- if( canAdjudicate && appData.adjudicateDrawMoves > 0 && forwardMostMove > (2*appData.adjudicateDrawMoves) ) {
- if(engineOpponent) {
- SendToProgram("force\n", engineOpponent); // suppress reply
- SendMoveToProgram(forwardMostMove-1, engineOpponent); /* make sure opponent gets to see move */
- }
- GameEnds( GameIsDrawn, "Xboard adjudication: long game", GE_XBOARD );
- return 1;
- }
- return 0;
-}
-
-typedef int (CDECL *PPROBE_EGBB) (int player, int *piece, int *square);
-typedef int (CDECL *PLOAD_EGBB) (char *path, int cache_size, int load_options);
-static int egbbCode[] = { 6, 5, 4, 3, 2, 1 };
-
-static int
-BitbaseProbe ()
-{
- int pieces[10], squares[10], cnt=0, r, f, res;
- static int loaded;
- static PPROBE_EGBB probeBB;
- if(!appData.testLegality) return 10;
- if(BOARD_HEIGHT != 8 || BOARD_RGHT-BOARD_LEFT != 8) return 12;
- if(gameInfo.holdingsSize && gameInfo.variant != VariantSuper && gameInfo.variant != VariantSChess) return 12;
- if(loaded == 2 && forwardMostMove < 2) loaded = 0; // retry on new game
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- ChessSquare piece = boards[forwardMostMove][r][f];
- int black = (piece >= BlackPawn);
- int type = piece - black*BlackPawn;
- if(piece == EmptySquare) continue;
- if(type != WhiteKing && type > WhiteQueen) return 12; // unorthodox piece
- if(type == WhiteKing) type = WhiteQueen + 1;
- type = egbbCode[type];
- squares[cnt] = r*(BOARD_RGHT - BOARD_LEFT) + f - BOARD_LEFT;
- pieces[cnt] = type + black*6;
- if(++cnt > 5) return 11;
- }
- pieces[cnt] = squares[cnt] = 0;
- // probe EGBB
- if(loaded == 2) return 13; // loading failed before
- if(loaded == 0) {
- char *p, *path = strstr(appData.egtFormats, "scorpio:"), buf[MSG_SIZ];
- HMODULE lib;
- PLOAD_EGBB loadBB;
- loaded = 2; // prepare for failure
- if(!path) return 13; // no egbb installed
- strncpy(buf, path + 8, MSG_SIZ);
- if(p = strchr(buf, ',')) *p = NULLCHAR; else p = buf + strlen(buf);
- snprintf(p, MSG_SIZ - strlen(buf), "%c%s", SLASH, EGBB_NAME);
- lib = LoadLibrary(buf);
- if(!lib) { DisplayError(_("could not load EGBB library"), 0); return 13; }
- loadBB = (PLOAD_EGBB) GetProcAddress(lib, "load_egbb_xmen");
- probeBB = (PPROBE_EGBB) GetProcAddress(lib, "probe_egbb_xmen");
- if(!loadBB || !probeBB) { DisplayError(_("wrong EGBB version"), 0); return 13; }
- p[1] = NULLCHAR; loadBB(buf, 64*1028, 2); // 2 = SMART_LOAD
- loaded = 1; // success!
- }
- res = probeBB(forwardMostMove & 1, pieces, squares);
- return res > 0 ? 1 : res < 0 ? -1 : 0;
-}
-
-char *
-SendMoveToBookUser (int moveNr, ChessProgramState *cps, int initial)
-{ // [HGM] book: this routine intercepts moves to simulate book replies
- char *bookHit = NULL;
-
- if(cps->drawDepth && BitbaseProbe() == 0) { // [HG} egbb: reduce depth in drawn position
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "sd %d\n", cps->drawDepth);
- SendToProgram(buf, cps);
- }
- //first determine if the incoming move brings opponent into his book
- if(appData.usePolyglotBook && (cps == &first ? !appData.firstHasOwnBookUCI : !appData.secondHasOwnBookUCI))
- bookHit = ProbeBook(moveNr+1, appData.polyglotBook); // returns move
- if(appData.debugMode) fprintf(debugFP, "book hit = %s\n", bookHit ? bookHit : "(NULL)");
- if(bookHit != NULL && !cps->bookSuspend) {
- // make sure opponent is not going to reply after receiving move to book position
- SendToProgram("force\n", cps);
- cps->bookSuspend = TRUE; // flag indicating it has to be restarted
- }
- if(bookHit) setboardSpoiledMachineBlack = FALSE; // suppress 'go' in SendMoveToProgram
- if(!initial) SendMoveToProgram(moveNr, cps); // with hit on initial position there is no move
- // now arrange restart after book miss
- if(bookHit) {
- // after a book hit we never send 'go', and the code after the call to this routine
- // has '&& !bookHit' added to suppress potential sending there (based on 'firstMove').
- char buf[MSG_SIZ], *move = bookHit;
- if(cps->useSAN) {
- int fromX, fromY, toX, toY;
- char promoChar;
- ChessMove moveType;
- move = buf + 30;
- if (ParseOneMove(bookHit, forwardMostMove, &moveType,
- &fromX, &fromY, &toX, &toY, &promoChar)) {
- (void) CoordsToAlgebraic(boards[forwardMostMove],
- PosFlags(forwardMostMove),
- fromY, fromX, toY, toX, promoChar, move);
- } else {
- if(appData.debugMode) fprintf(debugFP, "Book move could not be parsed\n");
- bookHit = NULL;
- }
- }
- snprintf(buf, MSG_SIZ, "%s%s\n", (cps->useUsermove ? "usermove " : ""), move); // force book move into program supposed to play it
- SendToProgram(buf, cps);
- if(!initial) firstMove = FALSE; // normally we would clear the firstMove condition after return & sending 'go'
- } else if(initial) { // 'go' was needed irrespective of firstMove, and it has to be done in this routine
- SendToProgram("go\n", cps);
- cps->bookSuspend = FALSE; // after a 'go' we are never suspended
- } else { // 'go' might be sent based on 'firstMove' after this routine returns
- if(cps->bookSuspend && !firstMove) // 'go' needed, and it will not be done after we return
- SendToProgram("go\n", cps);
- cps->bookSuspend = FALSE; // anyhow, we will not be suspended after a miss
- }
- return bookHit; // notify caller of hit, so it can take action to send move to opponent
-}
-
-int
-LoadError (char *errmess, ChessProgramState *cps)
-{ // unloads engine and switches back to -ncp mode if it was first
- if(cps->initDone) return FALSE;
- cps->isr = NULL; // this should suppress further error popups from breaking pipes
- DestroyChildProcess(cps->pr, 9 ); // just to be sure
- cps->pr = NoProc;
- if(cps == &first) {
- appData.noChessProgram = TRUE;
- gameMode = MachinePlaysBlack; ModeHighlight(); // kludge to unmark Machine Black menu
- gameMode = BeginningOfGame; ModeHighlight();
- SetNCPMode();
- }
- if(GetDelayedEvent()) CancelDelayedEvent(), ThawUI(); // [HGM] cancel remaining loading effort scheduled after feature timeout
- DisplayMessage("", ""); // erase waiting message
- if(errmess) DisplayError(errmess, 0); // announce reason, if given
- return TRUE;
-}
-
-char *savedMessage;
-ChessProgramState *savedState;
-void
-DeferredBookMove (void)
-{
- if(savedState->lastPing != savedState->lastPong)
- ScheduleDelayedEvent(DeferredBookMove, 10);
- else
- HandleMachineMove(savedMessage, savedState);
-}
-
-static int savedWhitePlayer, savedBlackPlayer, pairingReceived;
-static ChessProgramState *stalledEngine;
-static char stashedInputMove[MSG_SIZ], abortEngineThink;
-
-void
-HandleMachineMove (char *message, ChessProgramState *cps)
-{
- static char firstLeg[20], legs;
- char machineMove[MSG_SIZ], buf1[MSG_SIZ*10], buf2[MSG_SIZ];
- char realname[MSG_SIZ];
- int fromX, fromY, toX, toY;
- ChessMove moveType;
- char promoChar, roar;
- char *p, *pv=buf1;
- int oldError;
- char *bookHit;
-
- if(cps == &pairing && sscanf(message, "%d-%d", &savedWhitePlayer, &savedBlackPlayer) == 2) {
- // [HGM] pairing: Mega-hack! Pairing engine also uses this routine (so it could give other WB commands).
- if(savedWhitePlayer == 0 || savedBlackPlayer == 0) {
- DisplayError(_("Invalid pairing from pairing engine"), 0);
- return;
- }
- pairingReceived = 1;
- NextMatchGame();
- return; // Skim the pairing messages here.
- }
-
- oldError = cps->userError; cps->userError = 0;
-
-FakeBookMove: // [HGM] book: we jump here to simulate machine moves after book hit
- /*
- * Kludge to ignore BEL characters
- */
- while (*message == '\007') message++;
-
- /*
- * [HGM] engine debug message: ignore lines starting with '#' character
- */
- if(cps->debug && *message == '#') return;
-
- /*
- * Look for book output
- */
- if (cps == &first && bookRequested) {
- if (message[0] == '\t' || message[0] == ' ') {
- /* Part of the book output is here; append it */
- strcat(bookOutput, message);
- strcat(bookOutput, " \n");
- return;
- } else if (bookOutput[0] != NULLCHAR) {
- /* All of book output has arrived; display it */
- char *p = bookOutput;
- while (*p != NULLCHAR) {
- if (*p == '\t') *p = ' ';
- p++;
- }
- DisplayInformation(bookOutput);
- bookRequested = FALSE;
- /* Fall through to parse the current output */
- }
- }
-
- /*
- * Look for machine move.
- */
- if ((sscanf(message, "%s %s %s", buf1, buf2, machineMove) == 3 && strcmp(buf2, "...") == 0) ||
- (sscanf(message, "%s %s", buf1, machineMove) == 2 && strcmp(buf1, "move") == 0))
- {
- if(pausing && !cps->pause) { // for pausing engine that does not support 'pause', we stash its move for processing when we resume.
- if(appData.debugMode) fprintf(debugFP, "pause %s engine after move\n", cps->which);
- safeStrCpy(stashedInputMove, message, MSG_SIZ);
- stalledEngine = cps;
- if(appData.ponderNextMove) { // bring opponent out of ponder
- if(gameMode == TwoMachinesPlay) {
- if(cps->other->pause)
- PauseEngine(cps->other);
- else
- SendToProgram("easy\n", cps->other);
- }
- }
- StopClocks();
- return;
- }
-
- if(cps->usePing) {
-
- /* This method is only useful on engines that support ping */
- if(abortEngineThink) {
- if (appData.debugMode) {
- fprintf(debugFP, "Undoing move from aborted think of %s\n", cps->which);
- }
- SendToProgram("undo\n", cps);
- return;
- }
-
- if (cps->lastPing != cps->lastPong) {
- /* Extra move from before last new; ignore */
- if (appData.debugMode) {
- fprintf(debugFP, "Ignoring extra move from %s\n", cps->which);
- }
- return;
- }
-
- } else {
-
- int machineWhite = FALSE;
-
- switch (gameMode) {
- case BeginningOfGame:
- /* Extra move from before last reset; ignore */
- if (appData.debugMode) {
- fprintf(debugFP, "Ignoring extra move from %s\n", cps->which);
- }
- return;
-
- case EndOfGame:
- case IcsIdle:
- default:
- /* Extra move after we tried to stop. The mode test is
- not a reliable way of detecting this problem, but it's
- the best we can do on engines that don't support ping.
- */
- if (appData.debugMode) {
- fprintf(debugFP, "Undoing extra move from %s, gameMode %d\n",
- cps->which, gameMode);
- }
- SendToProgram("undo\n", cps);
- return;
-
- case MachinePlaysWhite:
- case IcsPlayingWhite:
- machineWhite = TRUE;
- break;
-
- case MachinePlaysBlack:
- case IcsPlayingBlack:
- machineWhite = FALSE;
- break;
-
- case TwoMachinesPlay:
- machineWhite = (cps->twoMachinesColor[0] == 'w');
- break;
- }
- if (WhiteOnMove(forwardMostMove) != machineWhite) {
- if (appData.debugMode) {
- fprintf(debugFP,
- "Ignoring move out of turn by %s, gameMode %d"
- ", forwardMost %d\n",
- cps->which, gameMode, forwardMostMove);
- }
- return;
- }
- }
-
- if(cps->alphaRank) AlphaRank(machineMove, 4);
-
- // [HGM] lion: (some very limited) support for Alien protocol
- killX = killY = kill2X = kill2Y = -1;
- if(machineMove[strlen(machineMove)-1] == ',') { // move ends in coma: non-final leg of composite move
- if(legs++) return; // middle leg contains only redundant info, ignore (but count it)
- safeStrCpy(firstLeg, machineMove, 20); // just remember it for processing when second leg arrives
- return;
- }
- if(p = strchr(machineMove, ',')) { // we got both legs in one (happens on book move)
- char *q = strchr(p+1, ','); // second comma?
- safeStrCpy(firstLeg, machineMove, 20); // kludge: fake we received the first leg earlier, and clip it off
- if(q) legs = 2, p = q; else legs = 1; // with 3-leg move we clipof first two legs!
- safeStrCpy(machineMove, firstLeg + (p - machineMove) + 1, 20);
- }
- if(firstLeg[0]) { // there was a previous leg;
- // only support case where same piece makes two step
- char buf[20], *p = machineMove+1, *q = buf+1, f;
- safeStrCpy(buf, machineMove, 20);
- while(isdigit(*q)) q++; // find start of to-square
- safeStrCpy(machineMove, firstLeg, 20);
- while(isdigit(*p)) p++; // to-square of first leg (which is now copied to machineMove)
- if(legs == 2) sscanf(p, "%c%d", &f, &kill2Y), kill2X = f - AAA, kill2Y -= ONE - '0'; // in 3-leg move 2nd kill is to-sqr of 1st leg
- else if(*p == *buf) // if first-leg to not equal to second-leg from first leg says unmodified (assume it is King move of castling)
- safeStrCpy(p, q, 20); // glue to-square of second leg to from-square of first, to process over-all move
- sscanf(buf, "%c%d", &f, &killY); killX = f - AAA; killY -= ONE - '0'; // pass intermediate square to MakeMove in global
- firstLeg[0] = NULLCHAR; legs = 0;
- }
-
- if (!ParseOneMove(machineMove, forwardMostMove, &moveType,
- &fromX, &fromY, &toX, &toY, &promoChar)) {
- /* Machine move could not be parsed; ignore it. */
- snprintf(buf1, MSG_SIZ*10, _("Illegal move \"%s\" from %s machine"),
- machineMove, _(cps->which));
- DisplayMoveError(buf1);
- snprintf(buf1, MSG_SIZ*10, "Xboard: Forfeit due to invalid move: %s (%c%c%c%c via %c%c, %c%c) res=%d",
- machineMove, fromX+AAA, fromY+ONE, toX+AAA, toY+ONE, killX+AAA, killY+ONE, kill2X+AAA, kill2Y+ONE, moveType);
- if (gameMode == TwoMachinesPlay) {
- GameEnds(cps->twoMachinesColor[0] == 'w' ? BlackWins : WhiteWins,
- buf1, GE_XBOARD);
- }
- return;
- }
-
- /* [HGM] Apparently legal, but so far only tested with EP_UNKOWN */
- /* So we have to redo legality test with true e.p. status here, */
- /* to make sure an illegal e.p. capture does not slip through, */
- /* to cause a forfeit on a justified illegal-move complaint */
- /* of the opponent. */
- if( gameMode==TwoMachinesPlay && appData.testLegality ) {
- ChessMove moveType;
- moveType = LegalityTest(boards[forwardMostMove], PosFlags(forwardMostMove),
- fromY, fromX, toY, toX, promoChar);
- if(moveType == IllegalMove) {
- snprintf(buf1, MSG_SIZ*10, "Xboard: Forfeit due to illegal move: %s (%c%c%c%c)%c",
- machineMove, fromX+AAA, fromY+ONE, toX+AAA, toY+ONE, 0);
- GameEnds(cps->twoMachinesColor[0] == 'w' ? BlackWins : WhiteWins,
- buf1, GE_XBOARD);
- return;
- } else if(!appData.fischerCastling)
- /* [HGM] Kludge to handle engines that send FRC-style castling
- when they shouldn't (like TSCP-Gothic) */
- switch(moveType) {
- case WhiteASideCastleFR:
- case BlackASideCastleFR:
- toX+=2;
- currentMoveString[2]++;
- break;
- case WhiteHSideCastleFR:
- case BlackHSideCastleFR:
- toX--;
- currentMoveString[2]--;
- break;
- default: ; // nothing to do, but suppresses warning of pedantic compilers
- }
- }
- hintRequested = FALSE;
- lastHint[0] = NULLCHAR;
- bookRequested = FALSE;
- /* Program may be pondering now */
- cps->maybeThinking = TRUE;
- if (cps->sendTime == 2) cps->sendTime = 1;
- if (cps->offeredDraw) cps->offeredDraw--;
-
- /* [AS] Save move info*/
- pvInfoList[ forwardMostMove ].score = programStats.score;
- pvInfoList[ forwardMostMove ].depth = programStats.depth;
- pvInfoList[ forwardMostMove ].time = programStats.time; // [HGM] PGNtime: take time from engine stats
-
- MakeMove(fromX, fromY, toX, toY, promoChar);/*updates forwardMostMove*/
-
- /* Test suites abort the 'game' after one move */
- if(*appData.finger) {
- static FILE *f;
- char *fen = PositionToFEN(backwardMostMove, NULL, 0); // no counts in EPD
- if(!f) f = fopen(appData.finger, "w");
- if(f) fprintf(f, "%s bm %s;\n", fen, parseList[backwardMostMove]), fflush(f);
- else { DisplayFatalError("Bad output file", errno, 0); return; }
- free(fen);
- GameEnds(GameUnfinished, NULL, GE_XBOARD);
- }
- if(appData.epd) {
- if(solvingTime >= 0) {
- snprintf(buf1, MSG_SIZ, "%d. %4.2fs: %s ", matchGame, solvingTime/100., parseList[backwardMostMove]);
- totalTime += solvingTime; first.matchWins++; solvingTime = -1;
- } else {
- snprintf(buf1, MSG_SIZ, "%d. %s?%s ", matchGame, parseList[backwardMostMove], solvingTime == -2 ? " ???" : "");
- if(solvingTime == -2) second.matchWins++;
- }
- OutputKibitz(2, buf1);
- GameEnds(GameUnfinished, NULL, GE_XBOARD);
- }
-
- /* [AS] Adjudicate game if needed (note: remember that forwardMostMove now points past the last move) */
- if( gameMode == TwoMachinesPlay && appData.adjudicateLossThreshold != 0 && forwardMostMove >= adjudicateLossPlies ) {
- int count = 0;
-
- while( count < adjudicateLossPlies ) {
- int score = pvInfoList[ forwardMostMove - count - 1 ].score;
-
- if( count & 1 ) {
- score = -score; /* Flip score for winning side */
- }
-
- if( score > appData.adjudicateLossThreshold ) {
- break;
- }
-
- count++;
- }
-
- if( count >= adjudicateLossPlies ) {
- ShowMove(fromX, fromY, toX, toY); /*updates currentMove*/
-
- GameEnds( WhiteOnMove(forwardMostMove) ? WhiteWins : BlackWins,
- "Xboard adjudication",
- GE_XBOARD );
-
- return;
- }
- }
-
- if(Adjudicate(cps)) {
- ShowMove(fromX, fromY, toX, toY); /*updates currentMove*/
- return; // [HGM] adjudicate: for all automatic game ends
- }
-
-#if ZIPPY
- if ((gameMode == IcsPlayingWhite || gameMode == IcsPlayingBlack) &&
- first.initDone) {
- if(cps->offeredDraw && (signed char)boards[forwardMostMove][EP_STATUS] <= EP_DRAWS) {
- SendToICS(ics_prefix); // [HGM] drawclaim: send caim and move on one line for FICS
- SendToICS("draw ");
- SendMoveToICS(moveType, fromX, fromY, toX, toY, promoChar);
- }
- SendMoveToICS(moveType, fromX, fromY, toX, toY, promoChar);
- ics_user_moved = 1;
- if(appData.autoKibitz && !appData.icsEngineAnalyze ) { /* [HGM] kibitz: send most-recent PV info to ICS */
- char buf[3*MSG_SIZ];
-
- snprintf(buf, 3*MSG_SIZ, "kibitz !!! %+.2f/%d (%.2f sec, %u nodes, %.0f knps) PV=%s\n",
- programStats.score / 100.,
- programStats.depth,
- programStats.time / 100.,
- (unsigned int)programStats.nodes,
- (unsigned int)programStats.nodes / (10*abs(programStats.time) + 1.),
- programStats.movelist);
- SendToICS(buf);
- }
- }
-#endif
-
- /* [AS] Clear stats for next move */
- ClearProgramStats();
- thinkOutput[0] = NULLCHAR;
- hiddenThinkOutputState = 0;
-
- bookHit = NULL;
- if (gameMode == TwoMachinesPlay) {
- /* [HGM] relaying draw offers moved to after reception of move */
- /* and interpreting offer as claim if it brings draw condition */
- if (cps->offeredDraw == 1 && cps->other->sendDrawOffers) {
- SendToProgram("draw\n", cps->other);
- }
- if (cps->other->sendTime) {
- SendTimeRemaining(cps->other,
- cps->other->twoMachinesColor[0] == 'w');
- }
- bookHit = SendMoveToBookUser(forwardMostMove-1, cps->other, FALSE);
- if (firstMove && !bookHit) {
- firstMove = FALSE;
- if (cps->other->useColors) {
- SendToProgram(cps->other->twoMachinesColor, cps->other);
- }
- SendToProgram("go\n", cps->other);
- }
- cps->other->maybeThinking = TRUE;
- }
-
- roar = (killX >= 0 && IS_LION(boards[forwardMostMove][toY][toX]));
-
- ShowMove(fromX, fromY, toX, toY); /*updates currentMove*/
-
- if (!pausing && appData.ringBellAfterMoves) {
- if(!roar) RingBell();
- }
-
- /*
- * Reenable menu items that were disabled while
- * machine was thinking
- */
- if (gameMode != TwoMachinesPlay)
- SetUserThinkingEnables();
-
- // [HGM] book: after book hit opponent has received move and is now in force mode
- // force the book reply into it, and then fake that it outputted this move by jumping
- // back to the beginning of HandleMachineMove, with cps toggled and message set to this move
- if(bookHit) {
- static char bookMove[MSG_SIZ]; // a bit generous?
-
- safeStrCpy(bookMove, "move ", sizeof(bookMove)/sizeof(bookMove[0]));
- strcat(bookMove, bookHit);
- message = bookMove;
- cps = cps->other;
- programStats.nodes = programStats.depth = programStats.time =
- programStats.score = programStats.got_only_move = 0;
- sprintf(programStats.movelist, "%s (xbook)", bookHit);
-
- if(cps->lastPing != cps->lastPong) {
- savedMessage = message; // args for deferred call
- savedState = cps;
- ScheduleDelayedEvent(DeferredBookMove, 10);
- return;
- }
- goto FakeBookMove;
- }
-
- return;
- }
-
- /* Set special modes for chess engines. Later something general
- * could be added here; for now there is just one kludge feature,
- * needed because Crafty 15.10 and earlier don't ignore SIGINT
- * when "xboard" is given as an interactive command.
- */
- if (strncmp(message, "kibitz Hello from Crafty", 24) == 0) {
- cps->useSigint = FALSE;
- cps->useSigterm = FALSE;
- }
- if (strncmp(message, "feature ", 8) == 0) { // [HGM] moved forward to pre-empt non-compliant commands
- ParseFeatures(message+8, cps);
- return; // [HGM] This return was missing, causing option features to be recognized as non-compliant commands!
- }
-
- if (!strncmp(message, "setup ", 6) &&
- (!appData.testLegality || gameInfo.variant == VariantFairy || gameInfo.variant == VariantUnknown ||
- NonStandardBoardSize(gameInfo.variant, gameInfo.boardWidth, gameInfo.boardHeight, gameInfo.holdingsSize))
- ) { // [HGM] allow first engine to define opening position
- int dummy, w, h, hand, s=6; char buf[MSG_SIZ], varName[MSG_SIZ];
- if(appData.icsActive || forwardMostMove != 0 || cps != &first) return;
- *buf = NULLCHAR;
- if(sscanf(message, "setup (%s", buf) == 1) {
- s = 8 + strlen(buf), buf[s-9] = NULLCHAR, SetCharTableEsc(pieceToChar, buf, SUFFIXES);
- ASSIGN(appData.pieceToCharTable, buf);
- }
- dummy = sscanf(message+s, "%dx%d+%d_%s", &w, &h, &hand, varName);
- if(dummy >= 3) {
- while(message[s] && message[s++] != ' ');
- if(BOARD_HEIGHT != h || BOARD_WIDTH != w + 4*(hand != 0) || gameInfo.holdingsSize != hand ||
- dummy == 4 && gameInfo.variant != StringToVariant(varName) ) { // engine wants to change board format or variant
- appData.NrFiles = w; appData.NrRanks = h; appData.holdingsSize = hand;
- if(dummy == 4) gameInfo.variant = StringToVariant(varName); // parent variant
- InitPosition(1); // calls InitDrawingSizes to let new parameters take effect
- if(*buf) SetCharTableEsc(pieceToChar, buf, SUFFIXES); // do again, for it was spoiled by InitPosition
- startedFromSetupPosition = FALSE;
- }
- }
- if(startedFromSetupPosition) return;
- ParseFEN(boards[0], &dummy, message+s, FALSE);
- DrawPosition(TRUE, boards[0]);
- CopyBoard(initialPosition, boards[0]);
- startedFromSetupPosition = TRUE;
- return;
- }
- if(sscanf(message, "piece %s %s", buf2, buf1) == 2) {
- ChessSquare piece = WhitePawn;
- char *p=message+6, *q, *s = SUFFIXES, ID = *p;
- if(*p == '+') piece = CHUPROMOTED(WhitePawn), ID = *++p;
- if(q = strchr(s, p[1])) ID += 64*(q - s + 1), p++;
- piece += CharToPiece(ID & 255) - WhitePawn;
- if(cps != &first || appData.testLegality && *engineVariant == NULLCHAR
- /* always accept definition of */ && piece != WhiteFalcon && piece != BlackFalcon
- /* wild-card pieces. */ && piece != WhiteCobra && piece != BlackCobra
- /* For variants we don't have */ && gameInfo.variant != VariantBerolina
- /* correct rules for, we cannot */ && gameInfo.variant != VariantCylinder
- /* enforce legality on our own! */ && gameInfo.variant != VariantUnknown
- && gameInfo.variant != VariantGreat
- && gameInfo.variant != VariantFairy ) return;
- if(piece < EmptySquare) {
- pieceDefs = TRUE;
- ASSIGN(pieceDesc[piece], buf1);
- if((ID & 32) == 0 && p[1] == '&') { ASSIGN(pieceDesc[WHITE_TO_BLACK piece], buf1); }
- }
- return;
- }
- if(sscanf(message, "choice %s", promoRestrict) == 1 && promoSweep != EmptySquare) {
- promoSweep = CharToPiece(currentMove&1 ? ToLower(*promoRestrict) : ToUpper(*promoRestrict));
- Sweep(0);
- return;
- }
- /* [HGM] Allow engine to set up a position. Don't ask me why one would
- * want this, I was asked to put it in, and obliged.
- */
- if (!strncmp(message, "setboard ", 9)) {
- Board initial_position;
-
- GameEnds(GameUnfinished, "Engine aborts game", GE_XBOARD);
-
- if (!ParseFEN(initial_position, &blackPlaysFirst, message + 9, FALSE)) {
- DisplayError(_("Bad FEN received from engine"), 0);
- return ;
- } else {
- Reset(TRUE, FALSE);
- CopyBoard(boards[0], initial_position);
- initialRulePlies = FENrulePlies;
- if(blackPlaysFirst) gameMode = MachinePlaysWhite;
- else gameMode = MachinePlaysBlack;
- DrawPosition(FALSE, boards[currentMove]);
- }
- return;
- }
-
- /*
- * Look for communication commands
- */
- if (!strncmp(message, "telluser ", 9)) {
- if(message[9] == '\\' && message[10] == '\\')
- EscapeExpand(message+9, message+11); // [HGM] esc: allow escape sequences in popup box
- PlayTellSound();
- DisplayNote(message + 9);
- return;
- }
- if (!strncmp(message, "tellusererror ", 14)) {
- cps->userError = 1;
- if(message[14] == '\\' && message[15] == '\\')
- EscapeExpand(message+14, message+16); // [HGM] esc: allow escape sequences in popup box
- PlayTellSound();
- DisplayError(message + 14, 0);
- return;
- }
- if (!strncmp(message, "tellopponent ", 13)) {
- if (appData.icsActive) {
- if (loggedOn) {
- snprintf(buf1, sizeof(buf1), "%ssay %s\n", ics_prefix, message + 13);
- SendToICS(buf1);
- }
- } else {
- DisplayNote(message + 13);
- }
- return;
- }
- if (!strncmp(message, "tellothers ", 11)) {
- if (appData.icsActive) {
- if (loggedOn) {
- snprintf(buf1, sizeof(buf1), "%swhisper %s\n", ics_prefix, message + 11);
- SendToICS(buf1);
- }
- } else if(appData.autoComment) AppendComment (forwardMostMove, message + 11, 1); // in local mode, add as move comment
- return;
- }
- if (!strncmp(message, "tellall ", 8)) {
- if (appData.icsActive) {
- if (loggedOn) {
- snprintf(buf1, sizeof(buf1), "%skibitz %s\n", ics_prefix, message + 8);
- SendToICS(buf1);
- }
- } else {
- DisplayNote(message + 8);
- }
- return;
- }
- if (strncmp(message, "warning", 7) == 0) {
- /* Undocumented feature, use tellusererror in new code */
- DisplayError(message, 0);
- return;
- }
- if (sscanf(message, "askuser %s %[^\n]", buf1, buf2) == 2) {
- safeStrCpy(realname, cps->tidy, sizeof(realname)/sizeof(realname[0]));
- strcat(realname, " query");
- AskQuestion(realname, buf2, buf1, cps->pr);
- return;
- }
- /* Commands from the engine directly to ICS. We don't allow these to be
- * sent until we are logged on. Crafty kibitzes have been known to
- * interfere with the login process.
- */
- if (loggedOn) {
- if (!strncmp(message, "tellics ", 8)) {
- SendToICS(message + 8);
- SendToICS("\n");
- return;
- }
- if (!strncmp(message, "tellicsnoalias ", 15)) {
- SendToICS(ics_prefix);
- SendToICS(message + 15);
- SendToICS("\n");
- return;
- }
- /* The following are for backward compatibility only */
- if (!strncmp(message,"whisper",7) || !strncmp(message,"kibitz",6) ||
- !strncmp(message,"draw",4) || !strncmp(message,"tell",3)) {
- SendToICS(ics_prefix);
- SendToICS(message);
- SendToICS("\n");
- return;
- }
- }
- if (sscanf(message, "pong %d", &cps->lastPong) == 1) {
- if(initPing == cps->lastPong) {
- if(gameInfo.variant == VariantUnknown) {
- DisplayError(_("Engine did not send setup for non-standard variant"), 0);
- *engineVariant = NULLCHAR; ASSIGN(appData.variant, "normal"); // back to normal as error recovery?
- GameEnds(GameUnfinished, NULL, GE_XBOARD);
- }
- initPing = -1;
- }
- if(cps->lastPing == cps->lastPong && abortEngineThink) {
- abortEngineThink = FALSE;
- DisplayMessage("", "");
- ThawUI();
- }
- return;
- }
- if(!strncmp(message, "highlight ", 10)) {
- if(appData.testLegality && !*engineVariant && appData.markers) return;
- MarkByFEN(message+10); // [HGM] alien: allow engine to mark board squares
- return;
- }
- if(!strncmp(message, "click ", 6)) {
- char f, c=0; int x, y; // [HGM] alien: allow engine to finish user moves (i.e. engine-driven one-click moving)
- if(appData.testLegality || !appData.oneClick) return;
- sscanf(message+6, "%c%d%c", &f, &y, &c);
- x = f - 'a' + BOARD_LEFT, y -= ONE - '0';
- if(flipView) x = BOARD_WIDTH-1 - x; else y = BOARD_HEIGHT-1 - y;
- x = x*squareSize + (x+1)*lineGap + squareSize/2;
- y = y*squareSize + (y+1)*lineGap + squareSize/2;
- f = first.highlight; first.highlight = 0; // kludge to suppress lift/put in response to own clicks
- if(lastClickType == Press) // if button still down, fake release on same square, to be ready for next click
- LeftClick(Release, lastLeftX, lastLeftY);
- controlKey = (c == ',');
- LeftClick(Press, x, y);
- LeftClick(Release, x, y);
- first.highlight = f;
- return;
- }
- /*
- * If the move is illegal, cancel it and redraw the board.
- * Also deal with other error cases. Matching is rather loose
- * here to accommodate engines written before the spec.
- */
- if (strncmp(message + 1, "llegal move", 11) == 0 ||
- strncmp(message, "Error", 5) == 0) {
- if (StrStr(message, "name") ||
- StrStr(message, "rating") || StrStr(message, "?") ||
- StrStr(message, "result") || StrStr(message, "board") ||
- StrStr(message, "bk") || StrStr(message, "computer") ||
- StrStr(message, "variant") || StrStr(message, "hint") ||
- StrStr(message, "random") || StrStr(message, "depth") ||
- StrStr(message, "accepted")) {
- return;
- }
- if (StrStr(message, "protover")) {
- /* Program is responding to input, so it's apparently done
- initializing, and this error message indicates it is
- protocol version 1. So we don't need to wait any longer
- for it to initialize and send feature commands. */
- FeatureDone(cps, 1);
- cps->protocolVersion = 1;
- return;
- }
- cps->maybeThinking = FALSE;
-
- if (StrStr(message, "draw")) {
- /* Program doesn't have "draw" command */
- cps->sendDrawOffers = 0;
- return;
- }
- if (cps->sendTime != 1 &&
- (StrStr(message, "time") || StrStr(message, "otim"))) {
- /* Program apparently doesn't have "time" or "otim" command */
- cps->sendTime = 0;
- return;
- }
- if (StrStr(message, "analyze")) {
- cps->analysisSupport = FALSE;
- cps->analyzing = FALSE;
-// Reset(FALSE, TRUE); // [HGM] this caused discrepancy between display and internal state!
- EditGameEvent(); // [HGM] try to preserve loaded game
- snprintf(buf2,MSG_SIZ, _("%s does not support analysis"), cps->tidy);
- DisplayError(buf2, 0);
- return;
- }
- if (StrStr(message, "(no matching move)st")) {
- /* Special kludge for GNU Chess 4 only */
- cps->stKludge = TRUE;
- SendTimeControl(cps, movesPerSession, timeControl,
- timeIncrement, appData.searchDepth,
- searchTime);
- return;
- }
- if (StrStr(message, "(no matching move)sd")) {
- /* Special kludge for GNU Chess 4 only */
- cps->sdKludge = TRUE;
- SendTimeControl(cps, movesPerSession, timeControl,
- timeIncrement, appData.searchDepth,
- searchTime);
- return;
- }
- if (!StrStr(message, "llegal")) {
- return;
- }
- if (gameMode == BeginningOfGame || gameMode == EndOfGame ||
- gameMode == IcsIdle) return;
- if (forwardMostMove <= backwardMostMove) return;
- if (pausing) PauseEvent();
- if(appData.forceIllegal) {
- // [HGM] illegal: machine refused move; force position after move into it
- SendToProgram("force\n", cps);
- if(!cps->useSetboard) { // hideous kludge on kludge, because SendBoard sucks.
- // we have a real problem now, as SendBoard will use the a2a3 kludge
- // when black is to move, while there might be nothing on a2 or black
- // might already have the move. So send the board as if white has the move.
- // But first we must change the stm of the engine, as it refused the last move
- SendBoard(cps, 0); // always kludgeless, as white is to move on boards[0]
- if(WhiteOnMove(forwardMostMove)) {
- SendToProgram("a7a6\n", cps); // for the engine black still had the move
- SendBoard(cps, forwardMostMove); // kludgeless board
- } else {
- SendToProgram("a2a3\n", cps); // for the engine white still had the move
- CopyBoard(boards[forwardMostMove+1], boards[forwardMostMove]);
- SendBoard(cps, forwardMostMove+1); // kludgeless board
- }
- } else SendBoard(cps, forwardMostMove); // FEN case, also sets stm properly
- if(gameMode == MachinePlaysWhite || gameMode == MachinePlaysBlack ||
- gameMode == TwoMachinesPlay)
- SendToProgram("go\n", cps);
- return;
- } else
- if (gameMode == PlayFromGameFile) {
- /* Stop reading this game file */
- gameMode = EditGame;
- ModeHighlight();
- }
- /* [HGM] illegal-move claim should forfeit game when Xboard */
- /* only passes fully legal moves */
- if( appData.testLegality && gameMode == TwoMachinesPlay ) {
- GameEnds( cps->twoMachinesColor[0] == 'w' ? BlackWins : WhiteWins,
- "False illegal-move claim", GE_XBOARD );
- return; // do not take back move we tested as valid
- }
- currentMove = forwardMostMove-1;
- DisplayMove(currentMove-1); /* before DisplayMoveError */
- SwitchClocks(forwardMostMove-1); // [HGM] race
- DisplayBothClocks();
- snprintf(buf1, 10*MSG_SIZ, _("Illegal move \"%s\" (rejected by %s chess program)"),
- parseList[currentMove], _(cps->which));
- DisplayMoveError(buf1);
- DrawPosition(FALSE, boards[currentMove]);
-
- SetUserThinkingEnables();
- return;
- }
- if (strncmp(message, "time", 4) == 0 && StrStr(message, "Illegal")) {
- /* Program has a broken "time" command that
- outputs a string not ending in newline.
- Don't use it. */
- cps->sendTime = 0;
- }
- if (cps->pseudo) { // [HGM] pseudo-engine, granted unusual powers
- if (sscanf(message, "wtime %ld\n", &whiteTimeRemaining) == 1 || // adjust clock times
- sscanf(message, "btime %ld\n", &blackTimeRemaining) == 1 ) return;
- }
-
- /*
- * If chess program startup fails, exit with an error message.
- * Attempts to recover here are futile. [HGM] Well, we try anyway
- */
- if ((StrStr(message, "unknown host") != NULL)
- || (StrStr(message, "No remote directory") != NULL)
- || (StrStr(message, "not found") != NULL)
- || (StrStr(message, "No such file") != NULL)
- || (StrStr(message, "can't alloc") != NULL)
- || (StrStr(message, "Permission denied") != NULL)) {
-
- cps->maybeThinking = FALSE;
- snprintf(buf1, sizeof(buf1), _("Failed to start %s chess program %s on %s: %s\n"),
- _(cps->which), cps->program, cps->host, message);
- RemoveInputSource(cps->isr);
- if(appData.icsActive) DisplayFatalError(buf1, 0, 1); else {
- if(LoadError(oldError ? NULL : buf1, cps)) return; // error has then been handled by LoadError
- if(!oldError) DisplayError(buf1, 0); // if reason neatly announced, suppress general error popup
- }
- return;
- }
-
- /*
- * Look for hint output
- */
- if (sscanf(message, "Hint: %s", buf1) == 1) {
- if (cps == &first && hintRequested) {
- hintRequested = FALSE;
- if (ParseOneMove(buf1, forwardMostMove, &moveType,
- &fromX, &fromY, &toX, &toY, &promoChar)) {
- (void) CoordsToAlgebraic(boards[forwardMostMove],
- PosFlags(forwardMostMove),
- fromY, fromX, toY, toX, promoChar, buf1);
- snprintf(buf2, sizeof(buf2), _("Hint: %s"), buf1);
- DisplayInformation(buf2);
- } else {
- /* Hint move could not be parsed!? */
- snprintf(buf2, sizeof(buf2),
- _("Illegal hint move \"%s\"\nfrom %s chess program"),
- buf1, _(cps->which));
- DisplayError(buf2, 0);
- }
- } else {
- safeStrCpy(lastHint, buf1, sizeof(lastHint)/sizeof(lastHint[0]));
- }
- return;
- }
-
- /*
- * Ignore other messages if game is not in progress
- */
- if (gameMode == BeginningOfGame || gameMode == EndOfGame ||
- gameMode == IcsIdle || cps->lastPing != cps->lastPong) return;
-
- /*
- * look for win, lose, draw, or draw offer
- */
- if (strncmp(message, "1-0", 3) == 0) {
- char *p, *q, *r = "";
- p = strchr(message, '{');
- if (p) {
- q = strchr(p, '}');
- if (q) {
- *q = NULLCHAR;
- r = p + 1;
- }
- }
- GameEnds(WhiteWins, r, GE_ENGINE1 + (cps != &first)); /* [HGM] pass claimer indication for claim test */
- return;
- } else if (strncmp(message, "0-1", 3) == 0) {
- char *p, *q, *r = "";
- p = strchr(message, '{');
- if (p) {
- q = strchr(p, '}');
- if (q) {
- *q = NULLCHAR;
- r = p + 1;
- }
- }
- /* Kludge for Arasan 4.1 bug */
- if (strcmp(r, "Black resigns") == 0) {
- GameEnds(WhiteWins, r, GE_ENGINE1 + (cps != &first));
- return;
- }
- GameEnds(BlackWins, r, GE_ENGINE1 + (cps != &first));
- return;
- } else if (strncmp(message, "1/2", 3) == 0) {
- char *p, *q, *r = "";
- p = strchr(message, '{');
- if (p) {
- q = strchr(p, '}');
- if (q) {
- *q = NULLCHAR;
- r = p + 1;
- }
- }
-
- GameEnds(GameIsDrawn, r, GE_ENGINE1 + (cps != &first));
- return;
-
- } else if (strncmp(message, "White resign", 12) == 0) {
- GameEnds(BlackWins, "White resigns", GE_ENGINE1 + (cps != &first));
- return;
- } else if (strncmp(message, "Black resign", 12) == 0) {
- GameEnds(WhiteWins, "Black resigns", GE_ENGINE1 + (cps != &first));
- return;
- } else if (strncmp(message, "White matches", 13) == 0 ||
- strncmp(message, "Black matches", 13) == 0 ) {
- /* [HGM] ignore GNUShogi noises */
- return;
- } else if (strncmp(message, "White", 5) == 0 &&
- message[5] != '(' &&
- StrStr(message, "Black") == NULL) {
- GameEnds(WhiteWins, "White mates", GE_ENGINE1 + (cps != &first));
- return;
- } else if (strncmp(message, "Black", 5) == 0 &&
- message[5] != '(') {
- GameEnds(BlackWins, "Black mates", GE_ENGINE1 + (cps != &first));
- return;
- } else if (strcmp(message, "resign") == 0 ||
- strcmp(message, "computer resigns") == 0) {
- switch (gameMode) {
- case MachinePlaysBlack:
- case IcsPlayingBlack:
- GameEnds(WhiteWins, "Black resigns", GE_ENGINE);
- break;
- case MachinePlaysWhite:
- case IcsPlayingWhite:
- GameEnds(BlackWins, "White resigns", GE_ENGINE);
- break;
- case TwoMachinesPlay:
- if (cps->twoMachinesColor[0] == 'w')
- GameEnds(BlackWins, "White resigns", GE_ENGINE1 + (cps != &first));
- else
- GameEnds(WhiteWins, "Black resigns", GE_ENGINE1 + (cps != &first));
- break;
- default:
- /* can't happen */
- break;
- }
- return;
- } else if (strncmp(message, "opponent mates", 14) == 0) {
- switch (gameMode) {
- case MachinePlaysBlack:
- case IcsPlayingBlack:
- GameEnds(WhiteWins, "White mates", GE_ENGINE);
- break;
- case MachinePlaysWhite:
- case IcsPlayingWhite:
- GameEnds(BlackWins, "Black mates", GE_ENGINE);
- break;
- case TwoMachinesPlay:
- if (cps->twoMachinesColor[0] == 'w')
- GameEnds(BlackWins, "Black mates", GE_ENGINE1 + (cps != &first));
- else
- GameEnds(WhiteWins, "White mates", GE_ENGINE1 + (cps != &first));
- break;
- default:
- /* can't happen */
- break;
- }
- return;
- } else if (strncmp(message, "computer mates", 14) == 0) {
- switch (gameMode) {
- case MachinePlaysBlack:
- case IcsPlayingBlack:
- GameEnds(BlackWins, "Black mates", GE_ENGINE1);
- break;
- case MachinePlaysWhite:
- case IcsPlayingWhite:
- GameEnds(WhiteWins, "White mates", GE_ENGINE);
- break;
- case TwoMachinesPlay:
- if (cps->twoMachinesColor[0] == 'w')
- GameEnds(WhiteWins, "White mates", GE_ENGINE1 + (cps != &first));
- else
- GameEnds(BlackWins, "Black mates", GE_ENGINE1 + (cps != &first));
- break;
- default:
- /* can't happen */
- break;
- }
- return;
- } else if (strncmp(message, "checkmate", 9) == 0) {
- if (WhiteOnMove(forwardMostMove)) {
- GameEnds(BlackWins, "Black mates", GE_ENGINE1 + (cps != &first));
- } else {
- GameEnds(WhiteWins, "White mates", GE_ENGINE1 + (cps != &first));
- }
- return;
- } else if (strstr(message, "Draw") != NULL ||
- strstr(message, "game is a draw") != NULL) {
- GameEnds(GameIsDrawn, "Draw", GE_ENGINE1 + (cps != &first));
- return;
- } else if (strstr(message, "offer") != NULL &&
- strstr(message, "draw") != NULL) {
-#if ZIPPY
- if (appData.zippyPlay && first.initDone) {
- /* Relay offer to ICS */
- SendToICS(ics_prefix);
- SendToICS("draw\n");
- }
-#endif
- cps->offeredDraw = 2; /* valid until this engine moves twice */
- if (gameMode == TwoMachinesPlay) {
- if (cps->other->offeredDraw) {
- GameEnds(GameIsDrawn, "Draw agreed", GE_XBOARD);
- /* [HGM] in two-machine mode we delay relaying draw offer */
- /* until after we also have move, to see if it is really claim */
- }
- } else if (gameMode == MachinePlaysWhite ||
- gameMode == MachinePlaysBlack) {
- if (userOfferedDraw) {
- DisplayInformation(_("Machine accepts your draw offer"));
- GameEnds(GameIsDrawn, "Draw agreed", GE_XBOARD);
- } else {
- DisplayInformation(_("Machine offers a draw.\nSelect Action / Draw to accept."));
- }
- }
- }
-
-
- /*
- * Look for thinking output
- */
- if ( appData.showThinking // [HGM] thinking: test all options that cause this output
- || !appData.hideThinkingFromHuman || appData.adjudicateLossThreshold != 0 || EngineOutputIsUp()
- ) {
- int plylev, mvleft, mvtot, curscore, time;
- char mvname[MOVE_LEN];
- u64 nodes; // [DM]
- char plyext;
- int ignore = FALSE;
- int prefixHint = FALSE;
- mvname[0] = NULLCHAR;
-
- switch (gameMode) {
- case MachinePlaysBlack:
- case IcsPlayingBlack:
- if (WhiteOnMove(forwardMostMove)) prefixHint = TRUE;
- break;
- case MachinePlaysWhite:
- case IcsPlayingWhite:
- if (!WhiteOnMove(forwardMostMove)) prefixHint = TRUE;
- break;
- case AnalyzeMode:
- case AnalyzeFile:
- break;
- case IcsObserving: /* [DM] icsEngineAnalyze */
- if (!appData.icsEngineAnalyze) ignore = TRUE;
- break;
- case TwoMachinesPlay:
- if ((cps->twoMachinesColor[0] == 'w') != WhiteOnMove(forwardMostMove)) {
- ignore = TRUE;
- }
- break;
- default:
- ignore = TRUE;
- break;
- }
-
- if (!ignore) {
- ChessProgramStats tempStats = programStats; // [HGM] info: filter out info lines
- int solved = 0;
- buf1[0] = NULLCHAR;
- if (sscanf(message, "%d%c %d %d " u64Display " %[^\n]\n",
- &plylev, &plyext, &curscore, &time, &nodes, buf1) >= 5) {
- char score_buf[MSG_SIZ];
-
- if(nodes>>32 == u64Const(0xFFFFFFFF)) // [HGM] negative node count read
- nodes += u64Const(0x100000000);
-
- if (plyext != ' ' && plyext != '\t') {
- time *= 100;
- }
-
- /* [AS] Negate score if machine is playing black and reporting absolute scores */
- if( cps->scoreIsAbsolute &&
- ( gameMode == MachinePlaysBlack ||
- gameMode == TwoMachinesPlay && cps->twoMachinesColor[0] == 'b' ||
- gameMode == IcsPlayingBlack || // [HGM] also add other situations where engine should report black POV
- (gameMode == AnalyzeMode || gameMode == AnalyzeFile || gameMode == IcsObserving && appData.icsEngineAnalyze) &&
- !WhiteOnMove(currentMove)
- ) )
- {
- curscore = -curscore;
- }
-
- if(appData.pvSAN[cps==&second]) pv = PvToSAN(buf1);
-
- if(*bestMove) { // rememer time best EPD move was first found
- int ff1, tf1, fr1, tr1, ff2, tf2, fr2, tr2; char pp1, pp2;
- ChessMove mt; char *p = bestMove;
- int ok = ParseOneMove(pv, forwardMostMove, &mt, &ff2, &fr2, &tf2, &tr2, &pp2);
- solved = 0;
- while(ok && *p && ParseOneMove(p, forwardMostMove, &mt, &ff1, &fr1, &tf1, &tr1, &pp1)) {
- if(ff1==ff2 && fr1==fr2 && tf1==tf2 && tr1==tr2 && pp1==pp2) {
- solvingTime = (solvingTime < 0 ? time : solvingTime);
- solved = 1;
- break;
- }
- while(*p && *p != ' ') p++;
- while(*p == ' ') p++;
- }
- if(!solved) solvingTime = -1;
- }
- if(*avoidMove && !solved) {
- int ff1, tf1, fr1, tr1, ff2, tf2, fr2, tr2; char pp1, pp2;
- ChessMove mt; char *p = avoidMove, solved = 1;
- int ok = ParseOneMove(pv, forwardMostMove, &mt, &ff2, &fr2, &tf2, &tr2, &pp2);
- while(ok && *p && ParseOneMove(p, forwardMostMove, &mt, &ff1, &fr1, &tf1, &tr1, &pp1)) {
- if(ff1==ff2 && fr1==fr2 && tf1==tf2 && tr1==tr2 && pp1==pp2) {
- solved = 0; solvingTime = -2;
- break;
- }
- while(*p && *p != ' ') p++;
- while(*p == ' ') p++;
- }
- if(solved && !*bestMove) solvingTime = (solvingTime < 0 ? time : solvingTime);
- }
-
- if(serverMoves && (time > 100 || time == 0 && plylev > 7)) {
- char buf[MSG_SIZ];
- FILE *f;
- snprintf(buf, MSG_SIZ, "%s", appData.serverMovesName);
- buf[strlen(buf)-1] = gameMode == MachinePlaysWhite ? 'w' :
- gameMode == MachinePlaysBlack ? 'b' : cps->twoMachinesColor[0];
- if(appData.debugMode) fprintf(debugFP, "write PV on file '%s'\n", buf);
- if(f = fopen(buf, "w")) { // export PV to applicable PV file
- fprintf(f, "%5.2f/%-2d %s", curscore/100., plylev, pv);
- fclose(f);
- }
- else
- /* TRANSLATORS: PV = principal variation, the variation the chess engine thinks is the best for everyone */
- DisplayError(_("failed writing PV"), 0);
- }
-
- tempStats.depth = plylev;
- tempStats.nodes = nodes;
- tempStats.time = time;
- tempStats.score = curscore;
- tempStats.got_only_move = 0;
-
- if(cps->nps >= 0) { /* [HGM] nps: use engine nodes or time to decrement clock */
- int ticklen;
-
- if(cps->nps == 0) ticklen = 10*time; // use engine reported time
- else ticklen = (1000. * u64ToDouble(nodes)) / cps->nps; // convert node count to time
- if(WhiteOnMove(forwardMostMove) && (gameMode == MachinePlaysWhite ||
- gameMode == TwoMachinesPlay && cps->twoMachinesColor[0] == 'w'))
- whiteTimeRemaining = timeRemaining[0][forwardMostMove] - ticklen;
- if(!WhiteOnMove(forwardMostMove) && (gameMode == MachinePlaysBlack ||
- gameMode == TwoMachinesPlay && cps->twoMachinesColor[0] == 'b'))
- blackTimeRemaining = timeRemaining[1][forwardMostMove] - ticklen;
- }
-
- /* Buffer overflow protection */
- if (pv[0] != NULLCHAR) {
- if (strlen(pv) >= sizeof(tempStats.movelist)
- && appData.debugMode) {
- fprintf(debugFP,
- "PV is too long; using the first %u bytes.\n",
- (unsigned) sizeof(tempStats.movelist) - 1);
- }
-
- safeStrCpy( tempStats.movelist, pv, sizeof(tempStats.movelist)/sizeof(tempStats.movelist[0]) );
- } else {
- sprintf(tempStats.movelist, " no PV\n");
- }
-
- if (tempStats.seen_stat) {
- tempStats.ok_to_send = 1;
- }
-
- if (strchr(tempStats.movelist, '(') != NULL) {
- tempStats.line_is_book = 1;
- tempStats.nr_moves = 0;
- tempStats.moves_left = 0;
- } else {
- tempStats.line_is_book = 0;
- }
-
- if(tempStats.score != 0 || tempStats.nodes != 0 || tempStats.time != 0)
- programStats = tempStats; // [HGM] info: only set stats if genuine PV and not an info line
-
- SendProgramStatsToFrontend( cps, &tempStats );
-
- /*
- [AS] Protect the thinkOutput buffer from overflow... this
- is only useful if buf1 hasn't overflowed first!
- */
- if((gameMode == AnalyzeMode && appData.whitePOV || appData.scoreWhite) && !WhiteOnMove(forwardMostMove)) curscore *= -1;
- if(curscore >= MATE_SCORE)
- snprintf(score_buf, MSG_SIZ, "#%d", curscore - MATE_SCORE);
- else if(curscore <= -MATE_SCORE)
- snprintf(score_buf, MSG_SIZ, "#%d", curscore + MATE_SCORE);
- else
- snprintf(score_buf, MSG_SIZ, "%+.2f", ((double) curscore) / 100.0);
- snprintf(thinkOutput, sizeof(thinkOutput)/sizeof(thinkOutput[0]), "[%d]%c%s %s%s",
- plylev,
- (gameMode == TwoMachinesPlay ?
- ToUpper(cps->twoMachinesColor[0]) : ' '),
- score_buf,
- prefixHint ? lastHint : "",
- prefixHint ? " " : "" );
-
- if( buf1[0] != NULLCHAR ) {
- unsigned max_len = sizeof(thinkOutput) - strlen(thinkOutput) - 1;
-
- if( strlen(pv) > max_len ) {
- if( appData.debugMode) {
- fprintf(debugFP,"PV is too long for thinkOutput, truncating.\n");
- }
- pv[max_len+1] = '\0';
- }
-
- strcat( thinkOutput, pv);
- }
-
- if (currentMove == forwardMostMove || gameMode == AnalyzeMode
- || gameMode == AnalyzeFile || appData.icsEngineAnalyze) {
- DisplayMove(currentMove - 1);
- }
- return;
-
- } else if ((p=StrStr(message, "(only move)")) != NULL) {
- /* crafty (9.25+) says "(only move) <move>"
- * if there is only 1 legal move
- */
- sscanf(p, "(only move) %s", buf1);
- snprintf(thinkOutput, sizeof(thinkOutput)/sizeof(thinkOutput[0]), "%s (only move)", buf1);
- sprintf(programStats.movelist, "%s (only move)", buf1);
- programStats.depth = 1;
- programStats.nr_moves = 1;
- programStats.moves_left = 1;
- programStats.nodes = 1;
- programStats.time = 1;
- programStats.got_only_move = 1;
-
- /* Not really, but we also use this member to
- mean "line isn't going to change" (Crafty
- isn't searching, so stats won't change) */
- programStats.line_is_book = 1;
-
- SendProgramStatsToFrontend( cps, &programStats );
-
- if (currentMove == forwardMostMove || gameMode==AnalyzeMode ||
- gameMode == AnalyzeFile || appData.icsEngineAnalyze) {
- DisplayMove(currentMove - 1);
- }
- return;
- } else if (sscanf(message,"stat01: %d " u64Display " %d %d %d %s",
- &time, &nodes, &plylev, &mvleft,
- &mvtot, mvname) >= 5) {
- /* The stat01: line is from Crafty (9.29+) in response
- to the "." command */
- programStats.seen_stat = 1;
- cps->maybeThinking = TRUE;
-
- if (programStats.got_only_move || !appData.periodicUpdates)
- return;
-
- programStats.depth = plylev;
- programStats.time = time;
- programStats.nodes = nodes;
- programStats.moves_left = mvleft;
- programStats.nr_moves = mvtot;
- safeStrCpy(programStats.move_name, mvname, sizeof(programStats.move_name)/sizeof(programStats.move_name[0]));
- programStats.ok_to_send = 1;
- programStats.movelist[0] = '\0';
-
- SendProgramStatsToFrontend( cps, &programStats );
-
- return;
-
- } else if (strncmp(message,"++",2) == 0) {
- /* Crafty 9.29+ outputs this */
- programStats.got_fail = 2;
- return;
-
- } else if (strncmp(message,"--",2) == 0) {
- /* Crafty 9.29+ outputs this */
- programStats.got_fail = 1;
- return;
-
- } else if (thinkOutput[0] != NULLCHAR &&
- strncmp(message, " ", 4) == 0) {
- unsigned message_len;
-
- p = message;
- while (*p && *p == ' ') p++;
-
- message_len = strlen( p );
-
- /* [AS] Avoid buffer overflow */
- if( sizeof(thinkOutput) - strlen(thinkOutput) - 1 > message_len ) {
- strcat(thinkOutput, " ");
- strcat(thinkOutput, p);
- }
-
- if( sizeof(programStats.movelist) - strlen(programStats.movelist) - 1 > message_len ) {
- strcat(programStats.movelist, " ");
- strcat(programStats.movelist, p);
- }
-
- if (currentMove == forwardMostMove || gameMode==AnalyzeMode ||
- gameMode == AnalyzeFile || appData.icsEngineAnalyze) {
- DisplayMove(currentMove - 1);
- }
- return;
- }
- }
- else {
- buf1[0] = NULLCHAR;
-
- if (sscanf(message, "%d%c %d %d " u64Display " %[^\n]\n",
- &plylev, &plyext, &curscore, &time, &nodes, buf1) >= 5)
- {
- ChessProgramStats cpstats;
-
- if (plyext != ' ' && plyext != '\t') {
- time *= 100;
- }
-
- /* [AS] Negate score if machine is playing black and reporting absolute scores */
- if( cps->scoreIsAbsolute && ((gameMode == MachinePlaysBlack) || (gameMode == TwoMachinesPlay && cps->twoMachinesColor[0] == 'b')) ) {
- curscore = -curscore;
- }
-
- cpstats.depth = plylev;
- cpstats.nodes = nodes;
- cpstats.time = time;
- cpstats.score = curscore;
- cpstats.got_only_move = 0;
- cpstats.movelist[0] = '\0';
-
- if (buf1[0] != NULLCHAR) {
- safeStrCpy( cpstats.movelist, buf1, sizeof(cpstats.movelist)/sizeof(cpstats.movelist[0]) );
- }
-
- cpstats.ok_to_send = 0;
- cpstats.line_is_book = 0;
- cpstats.nr_moves = 0;
- cpstats.moves_left = 0;
-
- SendProgramStatsToFrontend( cps, &cpstats );
- }
- }
- }
-}
-
-
-/* Parse a game score from the character string "game", and
- record it as the history of the current game. The game
- score is NOT assumed to start from the standard position.
- The display is not updated in any way.
- */
-void
-ParseGameHistory (char *game)
-{
- ChessMove moveType;
- int fromX, fromY, toX, toY, boardIndex;
- char promoChar;
- char *p, *q;
- char buf[MSG_SIZ];
-
- if (appData.debugMode)
- fprintf(debugFP, "Parsing game history: %s\n", game);
-
- if (gameInfo.event == NULL) gameInfo.event = StrSave("ICS game");
- gameInfo.site = StrSave(appData.icsHost);
- gameInfo.date = PGNDate();
- gameInfo.round = StrSave("-");
-
- /* Parse out names of players */
- while (*game == ' ') game++;
- p = buf;
- while (*game != ' ') *p++ = *game++;
- *p = NULLCHAR;
- gameInfo.white = StrSave(buf);
- while (*game == ' ') game++;
- p = buf;
- while (*game != ' ' && *game != '\n') *p++ = *game++;
- *p = NULLCHAR;
- gameInfo.black = StrSave(buf);
-
- /* Parse moves */
- boardIndex = blackPlaysFirst ? 1 : 0;
- yynewstr(game);
- for (;;) {
- yyboardindex = boardIndex;
- moveType = (ChessMove) Myylex();
- switch (moveType) {
- case IllegalMove: /* maybe suicide chess, etc. */
- if (appData.debugMode) {
- fprintf(debugFP, "Illegal move from ICS: '%s'\n", yy_text);
- fprintf(debugFP, "board L=%d, R=%d, H=%d, holdings=%d\n", BOARD_LEFT, BOARD_RGHT, BOARD_HEIGHT, gameInfo.holdingsWidth);
- setbuf(debugFP, NULL);
- }
- case WhitePromotion:
- case BlackPromotion:
- case WhiteNonPromotion:
- case BlackNonPromotion:
- case NormalMove:
- case FirstLeg:
- case WhiteCapturesEnPassant:
- case BlackCapturesEnPassant:
- case WhiteKingSideCastle:
- case WhiteQueenSideCastle:
- case BlackKingSideCastle:
- case BlackQueenSideCastle:
- case WhiteKingSideCastleWild:
- case WhiteQueenSideCastleWild:
- case BlackKingSideCastleWild:
- case BlackQueenSideCastleWild:
- /* PUSH Fabien */
- case WhiteHSideCastleFR:
- case WhiteASideCastleFR:
- case BlackHSideCastleFR:
- case BlackASideCastleFR:
- /* POP Fabien */
- fromX = currentMoveString[0] - AAA;
- fromY = currentMoveString[1] - ONE;
- toX = currentMoveString[2] - AAA;
- toY = currentMoveString[3] - ONE;
- promoChar = currentMoveString[4];
- break;
- case WhiteDrop:
- case BlackDrop:
- if(currentMoveString[0] == '@') continue; // no null moves in ICS mode!
- fromX = moveType == WhiteDrop ?
- (int) CharToPiece(ToUpper(currentMoveString[0])) :
- (int) CharToPiece(ToLower(currentMoveString[0]));
- fromY = DROP_RANK;
- toX = currentMoveString[2] - AAA;
- toY = currentMoveString[3] - ONE;
- promoChar = NULLCHAR;
- break;
- case AmbiguousMove:
- /* bug? */
- snprintf(buf, MSG_SIZ, _("Ambiguous move in ICS output: \"%s\""), yy_text);
- if (appData.debugMode) {
- fprintf(debugFP, "Ambiguous move from ICS: '%s'\n", yy_text);
- fprintf(debugFP, "board L=%d, R=%d, H=%d, holdings=%d\n", BOARD_LEFT, BOARD_RGHT, BOARD_HEIGHT, gameInfo.holdingsWidth);
- setbuf(debugFP, NULL);
- }
- DisplayError(buf, 0);
- return;
- case ImpossibleMove:
- /* bug? */
- snprintf(buf, MSG_SIZ, _("Illegal move in ICS output: \"%s\""), yy_text);
- if (appData.debugMode) {
- fprintf(debugFP, "Impossible move from ICS: '%s'\n", yy_text);
- fprintf(debugFP, "board L=%d, R=%d, H=%d, holdings=%d\n", BOARD_LEFT, BOARD_RGHT, BOARD_HEIGHT, gameInfo.holdingsWidth);
- setbuf(debugFP, NULL);
- }
- DisplayError(buf, 0);
- return;
- case EndOfFile:
- if (boardIndex < backwardMostMove) {
- /* Oops, gap. How did that happen? */
- DisplayError(_("Gap in move list"), 0);
- return;
- }
- backwardMostMove = blackPlaysFirst ? 1 : 0;
- if (boardIndex > forwardMostMove) {
- forwardMostMove = boardIndex;
- }
- return;
- case ElapsedTime:
- if (boardIndex > (blackPlaysFirst ? 1 : 0)) {
- strcat(parseList[boardIndex-1], " ");
- strcat(parseList[boardIndex-1], yy_text);
- }
- continue;
- case Comment:
- case PGNTag:
- case NAG:
- default:
- /* ignore */
- continue;
- case WhiteWins:
- case BlackWins:
- case GameIsDrawn:
- case GameUnfinished:
- if (gameMode == IcsExamining) {
- if (boardIndex < backwardMostMove) {
- /* Oops, gap. How did that happen? */
- return;
- }
- backwardMostMove = blackPlaysFirst ? 1 : 0;
- return;
- }
- gameInfo.result = moveType;
- p = strchr(yy_text, '{');
- if (p == NULL) p = strchr(yy_text, '(');
- if (p == NULL) {
- p = yy_text;
- if (p[0] == '0' || p[0] == '1' || p[0] == '*') p = "";
- } else {
- q = strchr(p, *p == '{' ? '}' : ')');
- if (q != NULL) *q = NULLCHAR;
- p++;
- }
- while(q = strchr(p, '\n')) *q = ' '; // [HGM] crush linefeeds in result message
- gameInfo.resultDetails = StrSave(p);
- continue;
- }
- if (boardIndex >= forwardMostMove &&
- !(gameMode == IcsObserving && ics_gamenum == -1)) {
- backwardMostMove = blackPlaysFirst ? 1 : 0;
- return;
- }
- (void) CoordsToAlgebraic(boards[boardIndex], PosFlags(boardIndex),
- fromY, fromX, toY, toX, promoChar,
- parseList[boardIndex]);
- CopyBoard(boards[boardIndex + 1], boards[boardIndex]);
- /* currentMoveString is set as a side-effect of yylex */
- safeStrCpy(moveList[boardIndex], currentMoveString, sizeof(moveList[boardIndex])/sizeof(moveList[boardIndex][0]));
- strcat(moveList[boardIndex], "\n");
- boardIndex++;
- ApplyMove(fromX, fromY, toX, toY, promoChar, boards[boardIndex]);
- switch (MateTest(boards[boardIndex], PosFlags(boardIndex)) ) {
- case MT_NONE:
- case MT_STALEMATE:
- default:
- break;
- case MT_CHECK:
- if(!IS_SHOGI(gameInfo.variant))
- strcat(parseList[boardIndex - 1], "+");
- break;
- case MT_CHECKMATE:
- case MT_STAINMATE:
- strcat(parseList[boardIndex - 1], "#");
- break;
- }
- }
-}
-
-
-/* Apply a move to the given board */
-void
-ApplyMove (int fromX, int fromY, int toX, int toY, int promoChar, Board board)
-{
- ChessSquare captured = board[toY][toX], piece, pawn, king, killed, killed2; int p, rookX, oldEP, epRank, berolina = 0;
- int promoRank = gameInfo.variant == VariantMakruk || gameInfo.variant == VariantGrand || gameInfo.variant == VariantChuChess ? 3 : 1;
-
- /* [HGM] compute & store e.p. status and castling rights for new position */
- /* we can always do that 'in place', now pointers to these rights are passed to ApplyMove */
-
- if(gameInfo.variant == VariantBerolina) berolina = EP_BEROLIN_A;
- oldEP = (signed char)board[EP_FILE]; epRank = board[EP_RANK];
- board[EP_STATUS] = EP_NONE;
- board[EP_FILE] = board[EP_RANK] = 100;
-
- if (fromY == DROP_RANK) {
- /* must be first */
- if(fromX == EmptySquare) { // [HGM] pass: empty drop encodes null move; nothing to change.
- board[EP_STATUS] = EP_CAPTURE; // null move considered irreversible
- return;
- }
- piece = board[toY][toX] = (ChessSquare) fromX;
- } else {
-// ChessSquare victim;
- int i;
-
- if( killX >= 0 && killY >= 0 ) { // [HGM] lion: Lion trampled over something
-// victim = board[killY][killX],
- killed = board[killY][killX],
- board[killY][killX] = EmptySquare,
- board[EP_STATUS] = EP_CAPTURE;
- if( kill2X >= 0 && kill2Y >= 0)
- killed2 = board[kill2Y][kill2X], board[kill2Y][kill2X] = EmptySquare;
- }
-
- if( board[toY][toX] != EmptySquare ) {
- board[EP_STATUS] = EP_CAPTURE;
- if( (fromX != toX || fromY != toY) && // not igui!
- (captured == WhiteLion && board[fromY][fromX] != BlackLion ||
- captured == BlackLion && board[fromY][fromX] != WhiteLion ) ) { // [HGM] lion: Chu Lion-capture rules
- board[EP_STATUS] = EP_IRON_LION; // non-Lion x Lion: no counter-strike allowed
- }
- }
-
- pawn = board[fromY][fromX];
- if( pawn == WhiteLance || pawn == BlackLance ) {
- if( gameInfo.variant != VariantSuper && gameInfo.variant != VariantChu ) {
- if(gameInfo.variant == VariantSpartan) board[EP_STATUS] = EP_PAWN_MOVE; // in Spartan no e.p. rights must be set
- else pawn += WhitePawn - WhiteLance; // Lance is Pawn-like in most variants, so let Pawn code treat it by this kludge
- }
- }
- if( pawn == WhitePawn ) {
- if(fromY != toY) // [HGM] Xiangqi sideway Pawn moves should not count as 50-move breakers
- board[EP_STATUS] = EP_PAWN_MOVE;
- if( toY-fromY>=2) {
- board[EP_FILE] = (fromX + toX)/2; board[EP_RANK] = toY - 1 | 128*(toY - fromY > 2);
- if(toX>BOARD_LEFT && board[toY][toX-1] == BlackPawn &&
- gameInfo.variant != VariantBerolina || toX < fromX)
- board[EP_STATUS] = toX | berolina;
- if(toX<BOARD_RGHT-1 && board[toY][toX+1] == BlackPawn &&
- gameInfo.variant != VariantBerolina || toX > fromX)
- board[EP_STATUS] = toX;
- }
- } else
- if( pawn == BlackPawn ) {
- if(fromY != toY) // [HGM] Xiangqi sideway Pawn moves should not count as 50-move breakers
- board[EP_STATUS] = EP_PAWN_MOVE;
- if( toY-fromY<= -2) {
- board[EP_FILE] = (fromX + toX)/2; board[EP_RANK] = toY + 1 | 128*(fromY - toY > 2);
- if(toX>BOARD_LEFT && board[toY][toX-1] == WhitePawn &&
- gameInfo.variant != VariantBerolina || toX < fromX)
- board[EP_STATUS] = toX | berolina;
- if(toX<BOARD_RGHT-1 && board[toY][toX+1] == WhitePawn &&
- gameInfo.variant != VariantBerolina || toX > fromX)
- board[EP_STATUS] = toX;
- }
- }
-
- if(fromY == 0) board[TOUCHED_W] |= 1<<fromX; else // new way to keep track of virginity
- if(fromY == BOARD_HEIGHT-1) board[TOUCHED_B] |= 1<<fromX;
- if(toY == 0) board[TOUCHED_W] |= 1<<toX; else
- if(toY == BOARD_HEIGHT-1) board[TOUCHED_B] |= 1<<toX;
-
- for(i=0; i<nrCastlingRights; i++) {
- if(board[CASTLING][i] == fromX && castlingRank[i] == fromY ||
- board[CASTLING][i] == toX && castlingRank[i] == toY
- ) board[CASTLING][i] = NoRights; // revoke for moved or captured piece
- }
-
- if(gameInfo.variant == VariantSChess) { // update virginity
- if(fromY == 0) board[VIRGIN][fromX] &= ~VIRGIN_W; // loss by moving
- if(fromY == BOARD_HEIGHT-1) board[VIRGIN][fromX] &= ~VIRGIN_B;
- if(toY == 0) board[VIRGIN][toX] &= ~VIRGIN_W; // loss by capture
- if(toY == BOARD_HEIGHT-1) board[VIRGIN][toX] &= ~VIRGIN_B;
- }
-
- if (fromX == toX && fromY == toY && killX < 0) return;
-
- piece = board[fromY][fromX]; /* [HGM] remember, for Shogi promotion */
- king = piece < (int) BlackPawn ? WhiteKing : BlackKing; /* [HGM] Knightmate simplify testing for castling */
- if(gameInfo.variant == VariantKnightmate)
- king += (int) WhiteUnicorn - (int) WhiteKing;
-
- if(pieceDesc[piece] && killX >= 0 && strchr(pieceDesc[piece], 'O') // Betza castling-enabled
- && (piece < BlackPawn ? killed < BlackPawn : killed >= BlackPawn)) { // and tramples own
- board[toY][toX] = piece; board[fromY][fromX] = EmptySquare;
- board[toY][toX + (killX < fromX ? 1 : -1)] = killed;
- board[EP_STATUS] = EP_NONE; // capture was fake!
- } else
- if(nrCastlingRights == 0 && board[toY][toX] < EmptySquare && (piece < BlackPawn) == (board[toY][toX] < BlackPawn)) {
- board[fromY][fromX] = board[toY][toX]; // capture own will lead to swapping
- board[toY][toX] = piece;
- board[EP_STATUS] = EP_NONE; // capture was fake!
- } else
- /* Code added by Tord: */
- /* FRC castling assumed when king captures friendly rook. [HGM] or RxK for S-Chess */
- if (board[fromY][fromX] == WhiteKing && board[toY][toX] == WhiteRook ||
- board[fromY][fromX] == WhiteRook && board[toY][toX] == WhiteKing) {
- board[EP_STATUS] = EP_NONE; // capture was fake!
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = EmptySquare;
- if((toX > fromX) != (piece == WhiteRook)) {
- board[0][BOARD_RGHT-2] = WhiteKing; board[0][BOARD_RGHT-3] = WhiteRook;
- } else {
- board[0][BOARD_LEFT+2] = WhiteKing; board[0][BOARD_LEFT+3] = WhiteRook;
- }
- } else if (board[fromY][fromX] == BlackKing && board[toY][toX] == BlackRook ||
- board[fromY][fromX] == BlackRook && board[toY][toX] == BlackKing) {
- board[EP_STATUS] = EP_NONE;
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = EmptySquare;
- if((toX > fromX) != (piece == BlackRook)) {
- board[BOARD_HEIGHT-1][BOARD_RGHT-2] = BlackKing; board[BOARD_HEIGHT-1][BOARD_RGHT-3] = BlackRook;
- } else {
- board[BOARD_HEIGHT-1][BOARD_LEFT+2] = BlackKing; board[BOARD_HEIGHT-1][BOARD_LEFT+3] = BlackRook;
- }
- /* End of code added by Tord */
-
- } else if (pieceDesc[piece] && piece == king && !strchr(pieceDesc[piece], 'O') && strchr(pieceDesc[piece], 'i')) {
- board[fromY][fromX] = EmptySquare; // never castle if King has virgin moves defined on it other than castling
- board[toY][toX] = piece;
- } else if (board[fromY][fromX] == king
- && fromX != BOARD_LEFT && fromX != BOARD_RGHT-1 // [HGM] cylinder */
- && toY == fromY && toX > fromX+1) {
- for(rookX=fromX+1; board[toY][rookX] == EmptySquare && rookX < BOARD_RGHT-1; rookX++)
- ; // castle with nearest piece
- board[fromY][toX-1] = board[fromY][rookX];
- board[fromY][rookX] = EmptySquare;
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = king;
- } else if (board[fromY][fromX] == king
- && fromX != BOARD_LEFT && fromX != BOARD_RGHT-1 // [HGM] cylinder */
- && toY == fromY && toX < fromX-1) {
- for(rookX=fromX-1; board[toY][rookX] == EmptySquare && rookX > 0; rookX--)
- ; // castle with nearest piece
- board[fromY][toX+1] = board[fromY][rookX];
- board[fromY][rookX] = EmptySquare;
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = king;
- } else if ((board[fromY][fromX] == WhitePawn && gameInfo.variant != VariantXiangqi ||
- board[fromY][fromX] == WhiteLance && gameInfo.variant != VariantSuper && gameInfo.variant != VariantChu)
- && toY >= BOARD_HEIGHT-promoRank && promoChar // defaulting to Q is done elsewhere
- ) {
- /* white pawn promotion */
- board[toY][toX] = CharToPiece(ToUpper(promoChar));
- if(board[toY][toX] < WhiteCannon && PieceToChar(PROMOTED(board[toY][toX])) == '~') /* [HGM] use shadow piece (if available) */
- board[toY][toX] = (ChessSquare) (PROMOTED(board[toY][toX]));
- board[fromY][fromX] = EmptySquare;
- } else if ((fromY >= BOARD_HEIGHT>>1)
- && (oldEP == toX || oldEP == EP_UNKNOWN || appData.testLegality || abs(toX - fromX) > 4)
- && (toX != fromX)
- && gameInfo.variant != VariantXiangqi
- && gameInfo.variant != VariantBerolina
- && (pawn == WhitePawn)
- && (board[toY][toX] == EmptySquare)) {
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = piece;
- if(toY == epRank - 128 + 1)
- captured = board[toY - 2][toX], board[toY - 2][toX] = EmptySquare;
- else
- captured = board[toY - 1][toX], board[toY - 1][toX] = EmptySquare;
- } else if ((fromY == BOARD_HEIGHT-4)
- && (toX == fromX)
- && gameInfo.variant == VariantBerolina
- && (board[fromY][fromX] == WhitePawn)
- && (board[toY][toX] == EmptySquare)) {
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = WhitePawn;
- if(oldEP & EP_BEROLIN_A) {
- captured = board[fromY][fromX-1];
- board[fromY][fromX-1] = EmptySquare;
- }else{ captured = board[fromY][fromX+1];
- board[fromY][fromX+1] = EmptySquare;
- }
- } else if (board[fromY][fromX] == king
- && fromX != BOARD_LEFT && fromX != BOARD_RGHT-1 // [HGM] cylinder */
- && toY == fromY && toX > fromX+1) {
- for(rookX=toX+1; board[toY][rookX] == EmptySquare && rookX < BOARD_RGHT - 1; rookX++)
- ;
- board[fromY][toX-1] = board[fromY][rookX];
- board[fromY][rookX] = EmptySquare;
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = king;
- } else if (board[fromY][fromX] == king
- && fromX != BOARD_LEFT && fromX != BOARD_RGHT-1 // [HGM] cylinder */
- && toY == fromY && toX < fromX-1) {
- for(rookX=toX-1; board[toY][rookX] == EmptySquare && rookX > 0; rookX--)
- ;
- board[fromY][toX+1] = board[fromY][rookX];
- board[fromY][rookX] = EmptySquare;
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = king;
- } else if (fromY == 7 && fromX == 3
- && board[fromY][fromX] == BlackKing
- && toY == 7 && toX == 5) {
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = BlackKing;
- board[fromY][7] = EmptySquare;
- board[toY][4] = BlackRook;
- } else if (fromY == 7 && fromX == 3
- && board[fromY][fromX] == BlackKing
- && toY == 7 && toX == 1) {
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = BlackKing;
- board[fromY][0] = EmptySquare;
- board[toY][2] = BlackRook;
- } else if ((board[fromY][fromX] == BlackPawn && gameInfo.variant != VariantXiangqi ||
- board[fromY][fromX] == BlackLance && gameInfo.variant != VariantSuper && gameInfo.variant != VariantChu)
- && toY < promoRank && promoChar
- ) {
- /* black pawn promotion */
- board[toY][toX] = CharToPiece(ToLower(promoChar));
- if(board[toY][toX] < BlackCannon && PieceToChar(PROMOTED(board[toY][toX])) == '~') /* [HGM] use shadow piece (if available) */
- board[toY][toX] = (ChessSquare) (PROMOTED(board[toY][toX]));
- board[fromY][fromX] = EmptySquare;
- } else if ((fromY < BOARD_HEIGHT>>1)
- && (oldEP == toX || oldEP == EP_UNKNOWN || appData.testLegality || abs(toX - fromX) > 4)
- && (toX != fromX)
- && gameInfo.variant != VariantXiangqi
- && gameInfo.variant != VariantBerolina
- && (pawn == BlackPawn)
- && (board[toY][toX] == EmptySquare)) {
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = piece;
- if(toY == epRank - 128 - 1)
- captured = board[toY + 2][toX], board[toY + 2][toX] = EmptySquare;
- else
- captured = board[toY + 1][toX], board[toY + 1][toX] = EmptySquare;
- } else if ((fromY == 3)
- && (toX == fromX)
- && gameInfo.variant == VariantBerolina
- && (board[fromY][fromX] == BlackPawn)
- && (board[toY][toX] == EmptySquare)) {
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = BlackPawn;
- if(oldEP & EP_BEROLIN_A) {
- captured = board[fromY][fromX-1];
- board[fromY][fromX-1] = EmptySquare;
- }else{ captured = board[fromY][fromX+1];
- board[fromY][fromX+1] = EmptySquare;
- }
- } else {
- ChessSquare piece = board[fromY][fromX]; // [HGM] lion: allow for igui (where from == to)
- board[fromY][fromX] = EmptySquare;
- board[toY][toX] = piece;
- }
- }
-
- if (gameInfo.holdingsWidth != 0) {
-
- /* !!A lot more code needs to be written to support holdings */
- /* [HGM] OK, so I have written it. Holdings are stored in the */
- /* penultimate board files, so they are automaticlly stored */
- /* in the game history. */
- if (fromY == DROP_RANK || gameInfo.variant == VariantSChess
- && promoChar && piece != WhitePawn && piece != BlackPawn) {
- /* Delete from holdings, by decreasing count */
- /* and erasing image if necessary */
- p = fromY == DROP_RANK ? (int) fromX : CharToPiece(piece > BlackPawn ? ToLower(promoChar) : ToUpper(promoChar));
- if(p < (int) BlackPawn) { /* white drop */
- p -= (int)WhitePawn;
- p = PieceToNumber((ChessSquare)p);
- if(p >= gameInfo.holdingsSize) p = 0;
- if(--board[p][BOARD_WIDTH-2] <= 0)
- board[p][BOARD_WIDTH-1] = EmptySquare;
- if((int)board[p][BOARD_WIDTH-2] < 0)
- board[p][BOARD_WIDTH-2] = 0;
- } else { /* black drop */
- p -= (int)BlackPawn;
- p = PieceToNumber((ChessSquare)p);
- if(p >= gameInfo.holdingsSize) p = 0;
- if(--board[BOARD_HEIGHT-1-p][1] <= 0)
- board[BOARD_HEIGHT-1-p][0] = EmptySquare;
- if((int)board[BOARD_HEIGHT-1-p][1] < 0)
- board[BOARD_HEIGHT-1-p][1] = 0;
- }
- }
- if (captured != EmptySquare && gameInfo.holdingsSize > 0
- && gameInfo.variant != VariantBughouse && gameInfo.variant != VariantSChess ) {
- /* [HGM] holdings: Add to holdings, if holdings exist */
- if(gameInfo.variant == VariantSuper || gameInfo.variant == VariantGreat || gameInfo.variant == VariantGrand) {
- // [HGM] superchess: suppress flipping color of captured pieces by reverse pre-flip
- captured = (int) captured >= (int) BlackPawn ? BLACK_TO_WHITE captured : WHITE_TO_BLACK captured;
- }
- p = (int) captured;
- if (p >= (int) BlackPawn) {
- p -= (int)BlackPawn;
- if(DEMOTED(p) >= 0 && PieceToChar(p) == '+') {
- /* Restore shogi-promoted piece to its original first */
- captured = (ChessSquare) (DEMOTED(captured));
- p = DEMOTED(p);
- }
- p = PieceToNumber((ChessSquare)p);
- if(p >= gameInfo.holdingsSize) { p = 0; captured = BlackPawn; }
- board[p][BOARD_WIDTH-2]++;
- board[p][BOARD_WIDTH-1] = BLACK_TO_WHITE captured;
- } else {
- p -= (int)WhitePawn;
- if(DEMOTED(p) >= 0 && PieceToChar(p) == '+') {
- captured = (ChessSquare) (DEMOTED(captured));
- p = DEMOTED(p);
- }
- p = PieceToNumber((ChessSquare)p);
- if(p >= gameInfo.holdingsSize) { p = 0; captured = WhitePawn; }
- board[BOARD_HEIGHT-1-p][1]++;
- board[BOARD_HEIGHT-1-p][0] = WHITE_TO_BLACK captured;
- }
- }
- } else if (gameInfo.variant == VariantAtomic) {
- if (captured != EmptySquare) {
- int y, x;
- for (y = toY-1; y <= toY+1; y++) {
- for (x = toX-1; x <= toX+1; x++) {
- if (y >= 0 && y < BOARD_HEIGHT && x >= BOARD_LEFT && x < BOARD_RGHT &&
- board[y][x] != WhitePawn && board[y][x] != BlackPawn) {
- board[y][x] = EmptySquare;
- }
- }
- }
- board[toY][toX] = EmptySquare;
- }
- }
-
- if(gameInfo.variant == VariantSChess && promoChar != NULLCHAR && promoChar != '=' && piece != WhitePawn && piece != BlackPawn) {
- board[fromY][fromX] = CharToPiece(piece < BlackPawn ? ToUpper(promoChar) : ToLower(promoChar)); // S-Chess gating
- } else
- if(promoChar == '+') {
- /* [HGM] Shogi-style promotions, to piece implied by original (Might overwrite ordinary Pawn promotion) */
- board[toY][toX] = (ChessSquare) (CHUPROMOTED(piece));
- if(gameInfo.variant == VariantChuChess && (piece == WhiteKnight || piece == BlackKnight))
- board[toY][toX] = piece + WhiteLion - WhiteKnight; // adjust Knight promotions to Lion
- } else if(!appData.testLegality && promoChar != NULLCHAR && promoChar != '=') { // without legality testing, unconditionally believe promoChar
- ChessSquare newPiece = CharToPiece(piece < BlackPawn ? ToUpper(promoChar) : ToLower(promoChar));
- if((newPiece <= WhiteMan || newPiece >= BlackPawn && newPiece <= BlackMan) // unpromoted piece specified
- && pieceToChar[PROMOTED(newPiece)] == '~') newPiece = PROMOTED(newPiece);// but promoted version available
- board[toY][toX] = newPiece;
- }
- if((gameInfo.variant == VariantSuper || gameInfo.variant == VariantGreat || gameInfo.variant == VariantGrand)
- && promoChar != NULLCHAR && gameInfo.holdingsSize) {
- // [HGM] superchess: take promotion piece out of holdings
- int k = PieceToNumber(CharToPiece(ToUpper(promoChar)));
- if((int)piece < (int)BlackPawn) { // determine stm from piece color
- if(!--board[k][BOARD_WIDTH-2])
- board[k][BOARD_WIDTH-1] = EmptySquare;
- } else {
- if(!--board[BOARD_HEIGHT-1-k][1])
- board[BOARD_HEIGHT-1-k][0] = EmptySquare;
- }
- }
-}
-
-/* Updates forwardMostMove */
-void
-MakeMove (int fromX, int fromY, int toX, int toY, int promoChar)
-{
- int x = toX, y = toY;
- char *s = parseList[forwardMostMove];
- ChessSquare p = boards[forwardMostMove][toY][toX];
-// forwardMostMove++; // [HGM] bare: moved downstream
-
- if(kill2X >= 0) x = kill2X, y = kill2Y; else
- if(killX >= 0 && killY >= 0) x = killX, y = killY; // [HGM] lion: make SAN move to intermediate square, if there is one
- (void) CoordsToAlgebraic(boards[forwardMostMove],
- PosFlags(forwardMostMove),
- fromY, fromX, y, x, (killX < 0)*promoChar,
- s);
- if(kill2X >= 0 && kill2Y >= 0)
- sprintf(s + strlen(s), "x%c%d", killX + AAA, killY + ONE - '0'); // 2nd leg of 3-leg move is always capture
- if(killX >= 0 && killY >= 0)
- sprintf(s + strlen(s), "%c%c%d%c", p == EmptySquare || toX == fromX && toY == fromY || toX== kill2X && toY == kill2Y ? '-' : 'x',
- toX + AAA, toY + ONE - '0', promoChar);
-
- if(serverMoves != NULL) { /* [HGM] write moves on file for broadcasting (should be separate routine, really) */
- int timeLeft; static int lastLoadFlag=0; int king, piece;
- piece = boards[forwardMostMove][fromY][fromX];
- king = piece < (int) BlackPawn ? WhiteKing : BlackKing;
- if(gameInfo.variant == VariantKnightmate)
- king += (int) WhiteUnicorn - (int) WhiteKing;
- if(forwardMostMove == 0) {
- if(gameMode == MachinePlaysBlack || gameMode == BeginningOfGame)
- fprintf(serverMoves, "%s;", UserName());
- else if(gameMode == TwoMachinesPlay && first.twoMachinesColor[0] == 'b')
- fprintf(serverMoves, "%s;", second.tidy);
- fprintf(serverMoves, "%s;", first.tidy);
- if(gameMode == MachinePlaysWhite)
- fprintf(serverMoves, "%s;", UserName());
- else if(gameMode == TwoMachinesPlay && first.twoMachinesColor[0] == 'w')
- fprintf(serverMoves, "%s;", second.tidy);
- } else fprintf(serverMoves, loadFlag|lastLoadFlag ? ":" : ";");
- lastLoadFlag = loadFlag;
- // print base move
- fprintf(serverMoves, "%c%c:%c%c", AAA+fromX, ONE+fromY, AAA+toX, ONE+toY);
- // print castling suffix
- if( toY == fromY && piece == king ) {
- if(toX-fromX > 1)
- fprintf(serverMoves, ":%c%c:%c%c", AAA+BOARD_RGHT-1, ONE+fromY, AAA+toX-1,ONE+toY);
- if(fromX-toX >1)
- fprintf(serverMoves, ":%c%c:%c%c", AAA+BOARD_LEFT, ONE+fromY, AAA+toX+1,ONE+toY);
- }
- // e.p. suffix
- if( (boards[forwardMostMove][fromY][fromX] == WhitePawn ||
- boards[forwardMostMove][fromY][fromX] == BlackPawn ) &&
- boards[forwardMostMove][toY][toX] == EmptySquare
- && fromX != toX && fromY != toY)
- fprintf(serverMoves, ":%c%c:%c%c", AAA+fromX, ONE+fromY, AAA+toX, ONE+fromY);
- // promotion suffix
- if(promoChar != NULLCHAR) {
- if(fromY == 0 || fromY == BOARD_HEIGHT-1)
- fprintf(serverMoves, ":%c%c:%c%c", WhiteOnMove(forwardMostMove) ? 'w' : 'b',
- ToLower(promoChar), AAA+fromX, ONE+fromY); // Seirawan gating
- else fprintf(serverMoves, ":%c:%c%c", ToLower(promoChar), AAA+toX, ONE+toY);
- }
- if(!loadFlag) {
- char buf[MOVE_LEN*2], *p; int len;
- fprintf(serverMoves, "/%d/%d",
- pvInfoList[forwardMostMove].depth, pvInfoList[forwardMostMove].score);
- if(forwardMostMove+1 & 1) timeLeft = whiteTimeRemaining/1000;
- else timeLeft = blackTimeRemaining/1000;
- fprintf(serverMoves, "/%d", timeLeft);
- strncpy(buf, parseList[forwardMostMove], MOVE_LEN*2);
- if(p = strchr(buf, '/')) *p = NULLCHAR; else
- if(p = strchr(buf, '=')) *p = NULLCHAR;
- len = strlen(buf); if(len > 1 && buf[len-2] != '-') buf[len-2] = NULLCHAR; // strip to-square
- fprintf(serverMoves, "/%s", buf);
- }
- fflush(serverMoves);
- }
-
- if (forwardMostMove+1 > framePtr) { // [HGM] vari: do not run into saved variations..
- GameEnds(GameUnfinished, _("Game too long; increase MAX_MOVES and recompile"), GE_XBOARD);
- return;
- }
- UnLoadPV(); // [HGM] pv: if we are looking at a PV, abort this
- if (commentList[forwardMostMove+1] != NULL) {
- free(commentList[forwardMostMove+1]);
- commentList[forwardMostMove+1] = NULL;
- }
- CopyBoard(boards[forwardMostMove+1], boards[forwardMostMove]);
- ApplyMove(fromX, fromY, toX, toY, promoChar, boards[forwardMostMove+1]);
- // forwardMostMove++; // [HGM] bare: moved to after ApplyMove, to make sure clock interrupt finds complete board
- SwitchClocks(forwardMostMove+1); // [HGM] race: incrementing move nr inside
- timeRemaining[0][forwardMostMove] = whiteTimeRemaining;
- timeRemaining[1][forwardMostMove] = blackTimeRemaining;
- adjustedClock = FALSE;
- gameInfo.result = GameUnfinished;
- if (gameInfo.resultDetails != NULL) {
- free(gameInfo.resultDetails);
- gameInfo.resultDetails = NULL;
- }
- CoordsToComputerAlgebraic(fromY, fromX, toY, toX, promoChar,
- moveList[forwardMostMove - 1]);
- switch (MateTest(boards[forwardMostMove], PosFlags(forwardMostMove)) ) {
- case MT_NONE:
- case MT_STALEMATE:
- default:
- break;
- case MT_CHECK:
- if(!IS_SHOGI(gameInfo.variant))
- strcat(parseList[forwardMostMove - 1], "+");
- break;
- case MT_CHECKMATE:
- case MT_STAINMATE:
- strcat(parseList[forwardMostMove - 1], "#");
- break;
- }
-}
-
-/* Updates currentMove if not pausing */
-void
-ShowMove (int fromX, int fromY, int toX, int toY)
-{
- int instant = (gameMode == PlayFromGameFile) ?
- (matchMode || (appData.timeDelay == 0 && !pausing)) : pausing;
- if(appData.noGUI) return;
- if (!pausing || gameMode == PlayFromGameFile || gameMode == AnalyzeFile) {
- if (!instant) {
- if (forwardMostMove == currentMove + 1) {
- AnimateMove(boards[forwardMostMove - 1],
- fromX, fromY, toX, toY);
- }
- }
- currentMove = forwardMostMove;
- }
-
- killX = killY = kill2X = kill2Y = -1; // [HGM] lion: used up
-
- if (instant) return;
-
- DisplayMove(currentMove - 1);
- if (!pausing || gameMode == PlayFromGameFile || gameMode == AnalyzeFile) {
- if (appData.highlightLastMove) { // [HGM] moved to after DrawPosition, as with arrow it could redraw old board
- SetHighlights(fromX, fromY, toX, toY);
- }
- }
- DrawPosition(FALSE, boards[currentMove]);
- DisplayBothClocks();
- HistorySet(parseList,backwardMostMove,forwardMostMove,currentMove-1);
-}
-
-void
-SendEgtPath (ChessProgramState *cps)
-{ /* [HGM] EGT: match formats given in feature with those given by user, and send info for each match */
- char buf[MSG_SIZ], name[MSG_SIZ], *p;
-
- if((p = cps->egtFormats) == NULL || appData.egtFormats == NULL) return;
-
- while(*p) {
- char c, *q = name+1, *r, *s;
-
- name[0] = ','; // extract next format name from feature and copy with prefixed ','
- while(*p && *p != ',') *q++ = *p++;
- *q++ = ':'; *q = 0;
- if( appData.defaultPathEGTB && appData.defaultPathEGTB[0] &&
- strcmp(name, ",nalimov:") == 0 ) {
- // take nalimov path from the menu-changeable option first, if it is defined
- snprintf(buf, MSG_SIZ, "egtpath nalimov %s\n", appData.defaultPathEGTB);
- SendToProgram(buf,cps); // send egtbpath command for nalimov
- } else
- if( (s = StrStr(appData.egtFormats, name+1)) == appData.egtFormats ||
- (s = StrStr(appData.egtFormats, name)) != NULL) {
- // format name occurs amongst user-supplied formats, at beginning or immediately after comma
- s = r = StrStr(s, ":") + 1; // beginning of path info
- while(*r && *r != ',') r++; // path info is everything upto next ';' or end of string
- c = *r; *r = 0; // temporarily null-terminate path info
- *--q = 0; // strip of trailig ':' from name
- snprintf(buf, MSG_SIZ, "egtpath %s %s\n", name+1, s);
- *r = c;
- SendToProgram(buf,cps); // send egtbpath command for this format
- }
- if(*p == ',') p++; // read away comma to position for next format name
- }
-}
-
-static int
-NonStandardBoardSize (VariantClass v, int boardWidth, int boardHeight, int holdingsSize)
-{
- int width = 8, height = 8, holdings = 0; // most common sizes
- if( v == VariantUnknown || *engineVariant) return 0; // engine-defined name never needs prefix
- // correct the deviations default for each variant
- if( v == VariantXiangqi ) width = 9, height = 10;
- if( v == VariantShogi ) width = 9, height = 9, holdings = 7;
- if( v == VariantBughouse || v == VariantCrazyhouse) holdings = 5;
- if( v == VariantCapablanca || v == VariantCapaRandom ||
- v == VariantGothic || v == VariantFalcon || v == VariantJanus )
- width = 10;
- if( v == VariantCourier ) width = 12;
- if( v == VariantSuper ) holdings = 8;
- if( v == VariantGreat ) width = 10, holdings = 8;
- if( v == VariantSChess ) holdings = 7;
- if( v == VariantGrand ) width = 10, height = 10, holdings = 7;
- if( v == VariantChuChess) width = 10, height = 10;
- if( v == VariantChu ) width = 12, height = 12;
- return boardWidth >= 0 && boardWidth != width || // -1 is default,
- boardHeight >= 0 && boardHeight != height || // and thus by definition OK
- holdingsSize >= 0 && holdingsSize != holdings;
-}
-
-char variantError[MSG_SIZ];
-
-char *
-SupportedVariant (char *list, VariantClass v, int boardWidth, int boardHeight, int holdingsSize, int proto, char *engine)
-{ // returns error message (recognizable by upper-case) if engine does not support the variant
- char *p, *variant = VariantName(v);
- static char b[MSG_SIZ];
- if(NonStandardBoardSize(v, boardWidth, boardHeight, holdingsSize)) { /* [HGM] make prefix for non-standard board size. */
- snprintf(b, MSG_SIZ, "%dx%d+%d_%s", boardWidth, boardHeight,
- holdingsSize, variant); // cook up sized variant name
- /* [HGM] varsize: try first if this deviant size variant is specifically known */
- if(StrStr(list, b) == NULL) {
- // specific sized variant not known, check if general sizing allowed
- if(proto != 1 && StrStr(list, "boardsize") == NULL) {
- snprintf(variantError, MSG_SIZ, "Board size %dx%d+%d not supported by %s",
- boardWidth, boardHeight, holdingsSize, engine);
- return NULL;
- }
- /* [HGM] here we really should compare with the maximum supported board size */
- }
- } else snprintf(b, MSG_SIZ,"%s", variant);
- if(proto == 1) return b; // for protocol 1 we cannot check and hope for the best
- p = StrStr(list, b);
- while(p && (p != list && p[-1] != ',' || p[strlen(b)] && p[strlen(b)] != ',') ) p = StrStr(p+1, b);
- if(p == NULL) {
- // occurs not at all in list, or only as sub-string
- snprintf(variantError, MSG_SIZ, _("Variant %s not supported by %s"), b, engine);
- if(p = StrStr(list, b)) { // handle requesting parent variant when only size-overridden is supported
- int l = strlen(variantError);
- char *q;
- while(p != list && p[-1] != ',') p--;
- q = strchr(p, ',');
- if(q) *q = NULLCHAR;
- snprintf(variantError + l, MSG_SIZ - l, _(", but %s is"), p);
- if(q) *q= ',';
- }
- return NULL;
- }
- return b;
-}
-
-void
-InitChessProgram (ChessProgramState *cps, int setup)
-/* setup needed to setup FRC opening position */
-{
- char buf[MSG_SIZ], *b;
- if (appData.noChessProgram) return;
- hintRequested = FALSE;
- bookRequested = FALSE;
-
- ParseFeatures(appData.features[cps == &second], cps); // [HGM] allow user to overrule features
- /* [HGM] some new WB protocol commands to configure engine are sent now, if engine supports them */
- /* moved to before sending initstring in 4.3.15, so Polyglot can delay UCI 'isready' to recepton of 'new' */
- if(cps->memSize) { /* [HGM] memory */
- snprintf(buf, MSG_SIZ, "memory %d\n", appData.defaultHashSize + appData.defaultCacheSizeEGTB);
- SendToProgram(buf, cps);
- }
- SendEgtPath(cps); /* [HGM] EGT */
- if(cps->maxCores) { /* [HGM] SMP: (protocol specified must be last settings command before new!) */
- snprintf(buf, MSG_SIZ, "cores %d\n", appData.smpCores);
- SendToProgram(buf, cps);
- }
-
- setboardSpoiledMachineBlack = FALSE;
- SendToProgram(cps->initString, cps);
- if (gameInfo.variant != VariantNormal &&
- gameInfo.variant != VariantLoadable
- /* [HGM] also send variant if board size non-standard */
- || gameInfo.boardWidth != 8 || gameInfo.boardHeight != 8 || gameInfo.holdingsSize != 0) {
-
- b = SupportedVariant(cps->variants, gameInfo.variant, gameInfo.boardWidth,
- gameInfo.boardHeight, gameInfo.holdingsSize, cps->protocolVersion, cps->tidy);
-
- if (b == NULL) {
- VariantClass v;
- char c, *q = cps->variants, *p = strchr(q, ',');
- if(p) *p = NULLCHAR;
- v = StringToVariant(q);
- DisplayError(variantError, 0);
- if(v != VariantUnknown && cps == &first) {
- int w, h, s;
- if(sscanf(q, "%dx%d+%d_%c", &w, &h, &s, &c) == 4) // get size overrides the engine needs with it (if any)
- appData.NrFiles = w, appData.NrRanks = h, appData.holdingsSize = s, q = strchr(q, '_') + 1;
- ASSIGN(appData.variant, q);
- Reset(TRUE, FALSE);
- }
- if(p) *p = ',';
- return;
- }
-
- snprintf(buf, MSG_SIZ, "variant %s\n", b);
- SendToProgram(buf, cps);
- }
- currentlyInitializedVariant = gameInfo.variant;
-
- /* [HGM] send opening position in FRC to first engine */
- if(setup) {
- SendToProgram("force\n", cps);
- SendBoard(cps, 0);
- /* engine is now in force mode! Set flag to wake it up after first move. */
- setboardSpoiledMachineBlack = 1;
- }
-
- if (cps->sendICS) {
- snprintf(buf, sizeof(buf), "ics %s\n", appData.icsActive ? appData.icsHost : "-");
- SendToProgram(buf, cps);
- }
- cps->maybeThinking = FALSE;
- cps->offeredDraw = 0;
- if (!appData.icsActive) {
- SendTimeControl(cps, movesPerSession, timeControl,
- timeIncrement, appData.searchDepth,
- searchTime);
- }
- if (appData.showThinking
- // [HGM] thinking: four options require thinking output to be sent
- || !appData.hideThinkingFromHuman || appData.adjudicateLossThreshold != 0 || EngineOutputIsUp()
- ) {
- SendToProgram("post\n", cps);
- }
- SendToProgram("hard\n", cps);
- if (!appData.ponderNextMove) {
- /* Warning: "easy" is a toggle in GNU Chess, so don't send
- it without being sure what state we are in first. "hard"
- is not a toggle, so that one is OK.
- */
- SendToProgram("easy\n", cps);
- }
- if (cps->usePing) {
- snprintf(buf, MSG_SIZ, "ping %d\n", initPing = ++cps->lastPing);
- SendToProgram(buf, cps);
- }
- cps->initDone = TRUE;
- ClearEngineOutputPane(cps == &second);
-}
-
-
-void
-ResendOptions (ChessProgramState *cps)
-{ // send the stored value of the options
- int i;
- char buf[MSG_SIZ];
- Option *opt = cps->option;
- for(i=0; i<cps->nrOptions; i++, opt++) {
- switch(opt->type) {
- case Spin:
- case Slider:
- case CheckBox:
- snprintf(buf, MSG_SIZ, "option %s=%d\n", opt->name, opt->value);
- break;
- case ComboBox:
- snprintf(buf, MSG_SIZ, "option %s=%s\n", opt->name, opt->choice[opt->value]);
- break;
- default:
- snprintf(buf, MSG_SIZ, "option %s=%s\n", opt->name, opt->textValue);
- break;
- case Button:
- case SaveButton:
- continue;
- }
- SendToProgram(buf, cps);
- }
-}
-
-void
-StartChessProgram (ChessProgramState *cps)
-{
- char buf[MSG_SIZ];
- int err;
-
- if (appData.noChessProgram) return;
- cps->initDone = FALSE;
-
- if (strcmp(cps->host, "localhost") == 0) {
- err = StartChildProcess(cps->program, cps->dir, &cps->pr);
- } else if (*appData.remoteShell == NULLCHAR) {
- err = OpenRcmd(cps->host, appData.remoteUser, cps->program, &cps->pr);
- } else {
- if (*appData.remoteUser == NULLCHAR) {
- snprintf(buf, sizeof(buf), "%s %s %s", appData.remoteShell, cps->host,
- cps->program);
- } else {
- snprintf(buf, sizeof(buf), "%s %s -l %s %s", appData.remoteShell,
- cps->host, appData.remoteUser, cps->program);
- }
- err = StartChildProcess(buf, "", &cps->pr);
- }
-
- if (err != 0) {
- snprintf(buf, MSG_SIZ, _("Startup failure on '%s'"), cps->program);
- DisplayError(buf, err); // [HGM] bit of a rough kludge: ignore failure, (which XBoard would do anyway), and let I/O discover it
- if(cps != &first) return;
- appData.noChessProgram = TRUE;
- ThawUI();
- SetNCPMode();
-// DisplayFatalError(buf, err, 1);
-// cps->pr = NoProc;
-// cps->isr = NULL;
- return;
- }
-
- cps->isr = AddInputSource(cps->pr, TRUE, ReceiveFromProgram, cps);
- if (cps->protocolVersion > 1) {
- snprintf(buf, MSG_SIZ, "xboard\nprotover %d\n", cps->protocolVersion);
- if(!cps->reload) { // do not clear options when reloading because of -xreuse
- cps->nrOptions = 0; // [HGM] options: clear all engine-specific options
- cps->comboCnt = 0; // and values of combo boxes
- }
- SendToProgram(buf, cps);
- if(cps->reload) ResendOptions(cps);
- } else {
- SendToProgram("xboard\n", cps);
- }
-}
-
-void
-TwoMachinesEventIfReady P((void))
-{
- static int curMess = 0;
- if (first.lastPing != first.lastPong) {
- if(curMess != 1) DisplayMessage("", _("Waiting for first chess program")); curMess = 1;
- ScheduleDelayedEvent(TwoMachinesEventIfReady, 10); // [HGM] fast: lowered from 1000
- return;
- }
- if (second.lastPing != second.lastPong) {
- if(curMess != 2) DisplayMessage("", _("Waiting for second chess program")); curMess = 2;
- ScheduleDelayedEvent(TwoMachinesEventIfReady, 10); // [HGM] fast: lowered from 1000
- return;
- }
- DisplayMessage("", ""); curMess = 0;
- TwoMachinesEvent();
-}
-
-char *
-MakeName (char *template)
-{
- time_t clock;
- struct tm *tm;
- static char buf[MSG_SIZ];
- char *p = buf;
- int i;
-
- clock = time((time_t *)NULL);
- tm = localtime(&clock);
-
- while(*p++ = *template++) if(p[-1] == '%') {
- switch(*template++) {
- case 0: *p = 0; return buf;
- case 'Y': i = tm->tm_year+1900; break;
- case 'y': i = tm->tm_year-100; break;
- case 'M': i = tm->tm_mon+1; break;
- case 'd': i = tm->tm_mday; break;
- case 'h': i = tm->tm_hour; break;
- case 'm': i = tm->tm_min; break;
- case 's': i = tm->tm_sec; break;
- default: i = 0;
- }
- snprintf(p-1, MSG_SIZ-10 - (p - buf), "%02d", i); p += strlen(p);
- }
- return buf;
-}
-
-int
-CountPlayers (char *p)
-{
- int n = 0;
- while(p = strchr(p, '\n')) p++, n++; // count participants
- return n;
-}
-
-FILE *
-WriteTourneyFile (char *results, FILE *f)
-{ // write tournament parameters on tourneyFile; on success return the stream pointer for closing
- if(f == NULL) f = fopen(appData.tourneyFile, "w");
- if(f == NULL) DisplayError(_("Could not write on tourney file"), 0); else {
- // create a file with tournament description
- fprintf(f, "-participants {%s}\n", appData.participants);
- fprintf(f, "-seedBase %d\n", appData.seedBase);
- fprintf(f, "-tourneyType %d\n", appData.tourneyType);
- fprintf(f, "-tourneyCycles %d\n", appData.tourneyCycles);
- fprintf(f, "-defaultMatchGames %d\n", appData.defaultMatchGames);
- fprintf(f, "-syncAfterRound %s\n", appData.roundSync ? "true" : "false");
- fprintf(f, "-syncAfterCycle %s\n", appData.cycleSync ? "true" : "false");
- fprintf(f, "-saveGameFile \"%s\"\n", appData.saveGameFile);
- fprintf(f, "-loadGameFile \"%s\"\n", appData.loadGameFile);
- fprintf(f, "-loadGameIndex %d\n", appData.loadGameIndex);
- fprintf(f, "-loadPositionFile \"%s\"\n", appData.loadPositionFile);
- fprintf(f, "-loadPositionIndex %d\n", appData.loadPositionIndex);
- fprintf(f, "-rewindIndex %d\n", appData.rewindIndex);
- fprintf(f, "-usePolyglotBook %s\n", appData.usePolyglotBook ? "true" : "false");
- fprintf(f, "-polyglotBook \"%s\"\n", appData.polyglotBook);
- fprintf(f, "-bookDepth %d\n", appData.bookDepth);
- fprintf(f, "-bookVariation %d\n", appData.bookStrength);
- fprintf(f, "-discourageOwnBooks %s\n", appData.defNoBook ? "true" : "false");
- fprintf(f, "-defaultHashSize %d\n", appData.defaultHashSize);
- fprintf(f, "-defaultCacheSizeEGTB %d\n", appData.defaultCacheSizeEGTB);
- fprintf(f, "-ponderNextMove %s\n", appData.ponderNextMove ? "true" : "false");
- fprintf(f, "-smpCores %d\n", appData.smpCores);
- if(searchTime > 0)
- fprintf(f, "-searchTime \"%d:%02d\"\n", searchTime/60, searchTime%60);
- else {
- fprintf(f, "-mps %d\n", appData.movesPerSession);
- fprintf(f, "-tc %s\n", appData.timeControl);
- fprintf(f, "-inc %.2f\n", appData.timeIncrement);
- }
- fprintf(f, "-results \"%s\"\n", results);
- }
- return f;
-}
-
-char *command[MAXENGINES], *mnemonic[MAXENGINES];
-
-void
-Substitute (char *participants, int expunge)
-{
- int i, changed, changes=0, nPlayers=0;
- char *p, *q, *r, buf[MSG_SIZ];
- if(participants == NULL) return;
- if(appData.tourneyFile[0] == NULLCHAR) { free(participants); return; }
- r = p = participants; q = appData.participants;
- while(*p && *p == *q) {
- if(*p == '\n') r = p+1, nPlayers++;
- p++; q++;
- }
- if(*p) { // difference
- while(*p && *p++ != '\n')
- ;
- while(*q && *q++ != '\n')
- ;
- changed = nPlayers;
- changes = 1 + (strcmp(p, q) != 0);
- }
- if(changes == 1) { // a single engine mnemonic was changed
- q = r; while(*q) nPlayers += (*q++ == '\n');
- p = buf; while(*r && (*p = *r++) != '\n') p++;
- *p = NULLCHAR;
- NamesToList(firstChessProgramNames, command, mnemonic, "all");
- for(i=1; mnemonic[i]; i++) if(!strcmp(buf, mnemonic[i])) break;
- if(mnemonic[i]) { // The substitute is valid
- FILE *f;
- if(appData.tourneyFile[0] && (f = fopen(appData.tourneyFile, "r+")) ) {
- flock(fileno(f), LOCK_EX);
- ParseArgsFromFile(f);
- fseek(f, 0, SEEK_SET);
- FREE(appData.participants); appData.participants = participants;
- if(expunge) { // erase results of replaced engine
- int len = strlen(appData.results), w, b, dummy;
- for(i=0; i<len; i++) {
- Pairing(i, nPlayers, &w, &b, &dummy);
- if((w == changed || b == changed) && appData.results[i] == '*') {
- DisplayError(_("You cannot replace an engine while it is engaged!\nTerminate its game first."), 0);
- fclose(f);
- return;
- }
- }
- for(i=0; i<len; i++) {
- Pairing(i, nPlayers, &w, &b, &dummy);
- if(w == changed || b == changed) appData.results[i] = ' '; // mark as not played
- }
- }
- WriteTourneyFile(appData.results, f);
- fclose(f); // release lock
- return;
- }
- } else DisplayError(_("No engine with the name you gave is installed"), 0);
- }
- if(changes == 0) DisplayError(_("First change an engine by editing the participants list\nof the Tournament Options dialog"), 0);
- if(changes > 1) DisplayError(_("You can only change one engine at the time"), 0);
- free(participants);
- return;
-}
-
-int
-CheckPlayers (char *participants)
-{
- int i;
- char buf[MSG_SIZ], *p;
- NamesToList(firstChessProgramNames, command, mnemonic, "all");
- while(p = strchr(participants, '\n')) {
- *p = NULLCHAR;
- for(i=1; mnemonic[i]; i++) if(!strcmp(participants, mnemonic[i])) break;
- if(!mnemonic[i]) {
- snprintf(buf, MSG_SIZ, _("No engine %s is installed"), participants);
- *p = '\n';
- DisplayError(buf, 0);
- return 1;
- }
- *p = '\n';
- participants = p + 1;
- }
- return 0;
-}
-
-int
-CreateTourney (char *name)
-{
- FILE *f;
- if(matchMode && strcmp(name, appData.tourneyFile)) {
- ASSIGN(name, appData.tourneyFile); //do not allow change of tourneyfile while playing
- }
- if(name[0] == NULLCHAR) {
- if(appData.participants[0])
- DisplayError(_("You must supply a tournament file,\nfor storing the tourney progress"), 0);
- return 0;
- }
- f = fopen(name, "r");
- if(f) { // file exists
- ASSIGN(appData.tourneyFile, name);
- ParseArgsFromFile(f); // parse it
- } else {
- if(!appData.participants[0]) return 0; // ignore tourney file if non-existing & no participants
- if(CountPlayers(appData.participants) < (appData.tourneyType>0 ? appData.tourneyType+1 : 2)) {
- DisplayError(_("Not enough participants"), 0);
- return 0;
- }
- if(CheckPlayers(appData.participants)) return 0;
- ASSIGN(appData.tourneyFile, name);
- if(appData.tourneyType < 0) appData.defaultMatchGames = 1; // Swiss forces games/pairing = 1
- if((f = WriteTourneyFile("", NULL)) == NULL) return 0;
- }
- fclose(f);
- appData.noChessProgram = FALSE;
- appData.clockMode = TRUE;
- SetGNUMode();
- return 1;
-}
-
-int
-NamesToList (char *names, char **engineList, char **engineMnemonic, char *group)
-{
- char buf[MSG_SIZ], *p, *q;
- int i=1, header, skip, all = !strcmp(group, "all"), depth = 0;
- insert = names; // afterwards, this global will point just after last retrieved engine line or group end in the 'names'
- skip = !all && group[0]; // if group requested, we start in skip mode
- for(;*names && depth >= 0 && i < MAXENGINES-1; names = p) {
- p = names; q = buf; header = 0;
- while(*p && *p != '\n') *q++ = *p++;
- *q = 0;
- if(*p == '\n') p++;
- if(buf[0] == '#') {
- if(strstr(buf, "# end") == buf) { if(!--depth) insert = p; continue; } // leave group, and suppress printing label
- depth++; // we must be entering a new group
- if(all) continue; // suppress printing group headers when complete list requested
- header = 1;
- if(skip && !strcmp(group, buf)) { depth = 0; skip = FALSE; } // start when we reach requested group
- }
- if(depth != header && !all || skip) continue; // skip contents of group (but print first-level header)
- if(engineList[i]) free(engineList[i]);
- engineList[i] = strdup(buf);
- if(buf[0] != '#') insert = p, TidyProgramName(engineList[i], "localhost", buf); // group headers not tidied
- if(engineMnemonic[i]) free(engineMnemonic[i]);
- if((q = strstr(engineList[i]+2, "variant")) && q[-2]== ' ' && (q[-1]=='/' || q[-1]=='-') && (q[7]==' ' || q[7]=='=')) {
- strcat(buf, " (");
- sscanf(q + 8, "%s", buf + strlen(buf));
- strcat(buf, ")");
- }
- engineMnemonic[i] = strdup(buf);
- i++;
- }
- engineList[i] = engineMnemonic[i] = NULL;
- return i;
-}
-
-// following implemented as macro to avoid type limitations
-#define SWAP(item, temp) temp = appData.item[0]; appData.item[0] = appData.item[n]; appData.item[n] = temp;
-
-void
-SwapEngines (int n)
-{ // swap settings for first engine and other engine (so far only some selected options)
- int h;
- char *p;
- if(n == 0) return;
- SWAP(directory, p)
- SWAP(chessProgram, p)
- SWAP(isUCI, h)
- SWAP(hasOwnBookUCI, h)
- SWAP(protocolVersion, h)
- SWAP(reuse, h)
- SWAP(scoreIsAbsolute, h)
- SWAP(timeOdds, h)
- SWAP(logo, p)
- SWAP(pgnName, p)
- SWAP(pvSAN, h)
- SWAP(engOptions, p)
- SWAP(engInitString, p)
- SWAP(computerString, p)
- SWAP(features, p)
- SWAP(fenOverride, p)
- SWAP(NPS, h)
- SWAP(accumulateTC, h)
- SWAP(drawDepth, h)
- SWAP(host, p)
- SWAP(pseudo, h)
-}
-
-int
-GetEngineLine (char *s, int n)
-{
- int i;
- char buf[MSG_SIZ];
- extern char *icsNames;
- if(!s || !*s) return 0;
- NamesToList(n >= 10 ? icsNames : firstChessProgramNames, command, mnemonic, "all");
- for(i=1; mnemonic[i]; i++) if(!strcmp(s, mnemonic[i])) break;
- if(!mnemonic[i]) return 0;
- if(n == 11) return 1; // just testing if there was a match
- snprintf(buf, MSG_SIZ, "-%s %s", n == 10 ? "icshost" : "fcp", command[i]);
- if(n == 1) SwapEngines(n);
- ParseArgsFromString(buf);
- if(n == 1) SwapEngines(n);
- if(n == 0 && *appData.secondChessProgram == NULLCHAR) {
- SwapEngines(1); // set second same as first if not yet set (to suppress WB startup dialog)
- ParseArgsFromString(buf);
- }
- return 1;
-}
-
-int
-SetPlayer (int player, char *p)
-{ // [HGM] find the engine line of the partcipant given by number, and parse its options.
- int i;
- char buf[MSG_SIZ], *engineName;
- for(i=0; i<player; i++) p = strchr(p, '\n') + 1;
- engineName = strdup(p); if(p = strchr(engineName, '\n')) *p = NULLCHAR;
- for(i=1; command[i]; i++) if(!strcmp(mnemonic[i], engineName)) break;
- if(mnemonic[i]) {
- snprintf(buf, MSG_SIZ, "-fcp %s", command[i]);
- ParseArgsFromString(resetOptions); appData.fenOverride[0] = NULL; appData.pvSAN[0] = FALSE;
- appData.firstHasOwnBookUCI = !appData.defNoBook; appData.protocolVersion[0] = PROTOVER;
- ParseArgsFromString(buf);
- } else { // no engine with this nickname is installed!
- snprintf(buf, MSG_SIZ, _("No engine %s is installed"), engineName);
- ReserveGame(nextGame, ' '); // unreserve game and drop out of match mode with error
- matchMode = FALSE; appData.matchGames = matchGame = roundNr = 0;
- ModeHighlight();
- DisplayError(buf, 0);
- return 0;
- }
- free(engineName);
- return i;
-}
-
-char *recentEngines;
-
-void
-RecentEngineEvent (int nr)
-{
- int n;
-// SwapEngines(1); // bump first to second
-// ReplaceEngine(&second, 1); // and load it there
- NamesToList(firstChessProgramNames, command, mnemonic, "all"); // get mnemonics of installed engines
- n = SetPlayer(nr, recentEngines); // select new (using original menu order!)
- if(mnemonic[n]) { // if somehow the engine with the selected nickname is no longer found in the list, we skip
- ReplaceEngine(&first, 0);
- FloatToFront(&appData.recentEngineList, command[n]);
- }
-}
-
-int
-Pairing (int nr, int nPlayers, int *whitePlayer, int *blackPlayer, int *syncInterval)
-{ // determine players from game number
- int curCycle, curRound, curPairing, gamesPerCycle, gamesPerRound, roundsPerCycle=1, pairingsPerRound=1;
-
- if(appData.tourneyType == 0) {
- roundsPerCycle = (nPlayers - 1) | 1;
- pairingsPerRound = nPlayers / 2;
- } else if(appData.tourneyType > 0) {
- roundsPerCycle = nPlayers - appData.tourneyType;
- pairingsPerRound = appData.tourneyType;
- }
- gamesPerRound = pairingsPerRound * appData.defaultMatchGames;
- gamesPerCycle = gamesPerRound * roundsPerCycle;
- appData.matchGames = gamesPerCycle * appData.tourneyCycles - 1; // fake like all games are one big match
- curCycle = nr / gamesPerCycle; nr %= gamesPerCycle;
- curRound = nr / gamesPerRound; nr %= gamesPerRound;
- curPairing = nr / appData.defaultMatchGames; nr %= appData.defaultMatchGames;
- matchGame = nr + curCycle * appData.defaultMatchGames + 1; // fake game nr that loads correct game or position from file
- roundNr = (curCycle * roundsPerCycle + curRound) * appData.defaultMatchGames + nr + 1;
-
- if(appData.cycleSync) *syncInterval = gamesPerCycle;
- if(appData.roundSync) *syncInterval = gamesPerRound;
-
- if(appData.debugMode) fprintf(debugFP, "cycle=%d, round=%d, pairing=%d curGame=%d\n", curCycle, curRound, curPairing, matchGame);
-
- if(appData.tourneyType == 0) {
- if(curPairing == (nPlayers-1)/2 ) {
- *whitePlayer = curRound;
- *blackPlayer = nPlayers - 1; // this is the 'bye' when nPlayer is odd
- } else {
- *whitePlayer = curRound - (nPlayers-1)/2 + curPairing;
- if(*whitePlayer < 0) *whitePlayer += nPlayers-1+(nPlayers&1);
- *blackPlayer = curRound + (nPlayers-1)/2 - curPairing;
- if(*blackPlayer >= nPlayers-1+(nPlayers&1)) *blackPlayer -= nPlayers-1+(nPlayers&1);
- }
- } else if(appData.tourneyType > 1) {
- *blackPlayer = curPairing; // in multi-gauntlet, assign gauntlet engines to second, so first an be kept loaded during round
- *whitePlayer = curRound + appData.tourneyType;
- } else if(appData.tourneyType > 0) {
- *whitePlayer = curPairing;
- *blackPlayer = curRound + appData.tourneyType;
- }
-
- // take care of white/black alternation per round.
- // For cycles and games this is already taken care of by default, derived from matchGame!
- return curRound & 1;
-}
-
-int
-NextTourneyGame (int nr, int *swapColors)
-{ // !!!major kludge!!! fiddle appData settings to get everything in order for next tourney game
- char *p, *q;
- int whitePlayer, blackPlayer, firstBusy=1000000000, syncInterval = 0, nPlayers, OK = 1;
- FILE *tf;
- if(appData.tourneyFile[0] == NULLCHAR) return 1; // no tourney, always allow next game
- tf = fopen(appData.tourneyFile, "r");
- if(tf == NULL) { DisplayFatalError(_("Bad tournament file"), 0, 1); return 0; }
- ParseArgsFromFile(tf); fclose(tf);
- InitTimeControls(); // TC might be altered from tourney file
-
- nPlayers = CountPlayers(appData.participants); // count participants
- if(appData.tourneyType < 0) syncInterval = nPlayers/2; else
- *swapColors = Pairing(nr<0 ? 0 : nr, nPlayers, &whitePlayer, &blackPlayer, &syncInterval);
-
- if(syncInterval) {
- p = q = appData.results;
- while(*q) if(*q++ == '*' || q[-1] == ' ') { firstBusy = q - p - 1; break; }
- if(firstBusy/syncInterval < (nextGame/syncInterval)) {
- DisplayMessage(_("Waiting for other game(s)"),"");
- waitingForGame = TRUE;
- ScheduleDelayedEvent(NextMatchGame, 1000); // wait for all games of previous round to finish
- return 0;
- }
- waitingForGame = FALSE;
- }
-
- if(appData.tourneyType < 0) {
- if(nr>=0 && !pairingReceived) {
- char buf[1<<16];
- if(pairing.pr == NoProc) {
- if(!appData.pairingEngine[0]) {
- DisplayFatalError(_("No pairing engine specified"), 0, 1);
- return 0;
- }
- StartChessProgram(&pairing); // starts the pairing engine
- }
- snprintf(buf, 1<<16, "results %d %s\n", nPlayers, appData.results);
- SendToProgram(buf, &pairing);
- snprintf(buf, 1<<16, "pairing %d\n", nr+1);
- SendToProgram(buf, &pairing);
- return 0; // wait for pairing engine to answer (which causes NextTourneyGame to be called again...
- }
- pairingReceived = 0; // ... so we continue here
- *swapColors = 0;
- appData.matchGames = appData.tourneyCycles * syncInterval - 1;
- whitePlayer = savedWhitePlayer-1; blackPlayer = savedBlackPlayer-1;
- matchGame = 1; roundNr = nr / syncInterval + 1;
- }
-
- if(first.pr != NoProc && second.pr != NoProc || nr<0) return 1; // engines already loaded
-
- // redefine engines, engine dir, etc.
- NamesToList(firstChessProgramNames, command, mnemonic, "all"); // get mnemonics of installed engines
- if(first.pr == NoProc) {
- if(!SetPlayer(whitePlayer, appData.participants)) OK = 0; // find white player amongst it, and parse its engine line
- InitEngine(&first, 0); // initialize ChessProgramStates based on new settings.
- }
- if(second.pr == NoProc) {
- SwapEngines(1);
- if(!SetPlayer(blackPlayer, appData.participants)) OK = 0; // find black player amongst it, and parse its engine line
- SwapEngines(1); // and make that valid for second engine by swapping
- InitEngine(&second, 1);
- }
- CommonEngineInit(); // after this TwoMachinesEvent will create correct engine processes
- UpdateLogos(FALSE); // leave display to ModeHiglight()
- return OK;
-}
-
-void
-NextMatchGame ()
-{ // performs game initialization that does not invoke engines, and then tries to start the game
- int res, firstWhite, swapColors = 0;
- if(!NextTourneyGame(nextGame, &swapColors)) return; // this sets matchGame, -fcp / -scp and other options for next game, if needed
- if(matchMode && appData.debugMode) { // [HGM] debug split: game is part of a match; we might have to create a debug file just for this game
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, appData.nameOfDebugFile, nextGame+1); // expand name of debug file with %d in it
- if(strcmp(buf, currentDebugFile)) { // name has changed
- FILE *f = fopen(buf, "w");
- if(f) { // if opening the new file failed, just keep using the old one
- ASSIGN(currentDebugFile, buf);
- fclose(debugFP);
- debugFP = f;
- }
- if(appData.serverFileName) {
- if(serverFP) fclose(serverFP);
- serverFP = fopen(appData.serverFileName, "w");
- if(serverFP && first.pr != NoProc) fprintf(serverFP, "StartChildProcess (dir=\".\") .\\%s\n", first.tidy);
- if(serverFP && second.pr != NoProc) fprintf(serverFP, "StartChildProcess (dir=\".\") .\\%s\n", second.tidy);
- }
- }
- }
- firstWhite = appData.firstPlaysBlack ^ (matchGame & 1 | appData.sameColorGames > 1); // non-incremental default
- firstWhite ^= swapColors; // reverses if NextTourneyGame says we are in an odd round
- first.twoMachinesColor = firstWhite ? "white\n" : "black\n"; // perform actual color assignement
- second.twoMachinesColor = firstWhite ? "black\n" : "white\n";
- appData.noChessProgram = (first.pr == NoProc); // kludge to prevent Reset from starting up chess program
- if(appData.loadGameIndex == -2) srandom(appData.seedBase + 68163*(nextGame & ~1)); // deterministic seed to force same opening
- Reset(FALSE, first.pr != NoProc);
- res = LoadGameOrPosition(matchGame); // setup game
- appData.noChessProgram = FALSE; // LoadGameOrPosition might call Reset too!
- if(!res) return; // abort when bad game/pos file
- if(appData.epd) {// in EPD mode we make sure first engine is to move
- firstWhite = !(forwardMostMove & 1);
- first.twoMachinesColor = firstWhite ? "white\n" : "black\n"; // perform actual color assignement
- second.twoMachinesColor = firstWhite ? "black\n" : "white\n";
- }
- TwoMachinesEvent();
-}
-
-void
-UserAdjudicationEvent (int result)
-{
- ChessMove gameResult = GameIsDrawn;
-
- if( result > 0 ) {
- gameResult = WhiteWins;
- }
- else if( result < 0 ) {
- gameResult = BlackWins;
- }
-
- if( gameMode == TwoMachinesPlay ) {
- GameEnds( gameResult, "User adjudication", GE_XBOARD );
- }
-}
-
-
-// [HGM] save: calculate checksum of game to make games easily identifiable
-int
-StringCheckSum (char *s)
-{
- int i = 0;
- if(s==NULL) return 0;
- while(*s) i = i*259 + *s++;
- return i;
-}
-
-int
-GameCheckSum ()
-{
- int i, sum=0;
- for(i=backwardMostMove; i<forwardMostMove; i++) {
- sum += pvInfoList[i].depth;
- sum += StringCheckSum(parseList[i]);
- sum += StringCheckSum(commentList[i]);
- sum *= 261;
- }
- if(i>1 && sum==0) sum++; // make sure never zero for non-empty game
- return sum + StringCheckSum(commentList[i]);
-} // end of save patch
-
-void
-GameEnds (ChessMove result, char *resultDetails, int whosays)
-{
- GameMode nextGameMode;
- int isIcsGame;
- char buf[MSG_SIZ], popupRequested = 0, *ranking = NULL;
-
- if(endingGame) return; /* [HGM] crash: forbid recursion */
- endingGame = 1;
- if(twoBoards) { // [HGM] dual: switch back to one board
- twoBoards = partnerUp = 0; InitDrawingSizes(-2, 0);
- DrawPosition(TRUE, partnerBoard); // observed game becomes foreground
- }
- if (appData.debugMode) {
- fprintf(debugFP, "GameEnds(%d, %s, %d)\n",
- result, resultDetails ? resultDetails : "(null)", whosays);
- }
-
- fromX = fromY = killX = killY = kill2X = kill2Y = -1; // [HGM] abort any move the user is entering. // [HGM] lion
-
- if(pausing) PauseEvent(); // can happen when we abort a paused game (New Game or Quit)
-
- if (appData.icsActive && (whosays == GE_ENGINE || whosays >= GE_ENGINE1)) {
- /* If we are playing on ICS, the server decides when the
- game is over, but the engine can offer to draw, claim
- a draw, or resign.
- */
-#if ZIPPY
- if (appData.zippyPlay && first.initDone) {
- if (result == GameIsDrawn) {
- /* In case draw still needs to be claimed */
- SendToICS(ics_prefix);
- SendToICS("draw\n");
- } else if (StrCaseStr(resultDetails, "resign")) {
- SendToICS(ics_prefix);
- SendToICS("resign\n");
- }
- }
-#endif
- endingGame = 0; /* [HGM] crash */
- return;
- }
-
- /* If we're loading the game from a file, stop */
- if (whosays == GE_FILE) {
- (void) StopLoadGameTimer();
- gameFileFP = NULL;
- }
-
- /* Cancel draw offers */
- first.offeredDraw = second.offeredDraw = 0;
-
- /* If this is an ICS game, only ICS can really say it's done;
- if not, anyone can. */
- isIcsGame = (gameMode == IcsPlayingWhite ||
- gameMode == IcsPlayingBlack ||
- gameMode == IcsObserving ||
- gameMode == IcsExamining);
-
- if (!isIcsGame || whosays == GE_ICS) {
- /* OK -- not an ICS game, or ICS said it was done */
- StopClocks();
- if (!isIcsGame && !appData.noChessProgram)
- SetUserThinkingEnables();
-
- /* [HGM] if a machine claims the game end we verify this claim */
- if(gameMode == TwoMachinesPlay && appData.testClaims) {
- if(appData.testLegality && whosays >= GE_ENGINE1 ) {
- char claimer;
- ChessMove trueResult = (ChessMove) -1;
-
- claimer = whosays == GE_ENGINE1 ? /* color of claimer */
- first.twoMachinesColor[0] :
- second.twoMachinesColor[0] ;
-
- // [HGM] losers: because the logic is becoming a bit hairy, determine true result first
- if((signed char)boards[forwardMostMove][EP_STATUS] == EP_CHECKMATE) {
- /* [HGM] verify: engine mate claims accepted if they were flagged */
- trueResult = WhiteOnMove(forwardMostMove) ? BlackWins : WhiteWins;
- } else
- if((signed char)boards[forwardMostMove][EP_STATUS] == EP_WINS) { // added code for games where being mated is a win
- /* [HGM] verify: engine mate claims accepted if they were flagged */
- trueResult = WhiteOnMove(forwardMostMove) ? WhiteWins : BlackWins;
- } else
- if((signed char)boards[forwardMostMove][EP_STATUS] == EP_STALEMATE) { // only used to indicate draws now
- trueResult = GameIsDrawn; // default; in variants where stalemate loses, Status is CHECKMATE
- }
-
- // now verify win claims, but not in drop games, as we don't understand those yet
- if( (gameInfo.holdingsWidth == 0 || gameInfo.variant == VariantSuper
- || gameInfo.variant == VariantGreat || gameInfo.variant == VariantGrand) &&
- (result == WhiteWins && claimer == 'w' ||
- result == BlackWins && claimer == 'b' ) ) { // case to verify: engine claims own win
- if (appData.debugMode) {
- fprintf(debugFP, "result=%d sp=%d move=%d\n",
- result, (signed char)boards[forwardMostMove][EP_STATUS], forwardMostMove);
- }
- if(result != trueResult) {
- snprintf(buf, MSG_SIZ, "False win claim: '%s'", resultDetails);
- result = claimer == 'w' ? BlackWins : WhiteWins;
- resultDetails = buf;
- }
- } else
- if( result == GameIsDrawn && (signed char)boards[forwardMostMove][EP_STATUS] > EP_DRAWS
- && (forwardMostMove <= backwardMostMove ||
- (signed char)boards[forwardMostMove-1][EP_STATUS] > EP_DRAWS ||
- (claimer=='b')==(forwardMostMove&1))
- ) {
- /* [HGM] verify: draws that were not flagged are false claims */
- snprintf(buf, MSG_SIZ, "False draw claim: '%s'", resultDetails);
- result = claimer == 'w' ? BlackWins : WhiteWins;
- resultDetails = buf;
- }
- /* (Claiming a loss is accepted no questions asked!) */
- } else if(matchMode && result == GameIsDrawn && !strcmp(resultDetails, "Engine Abort Request")) {
- forwardMostMove = backwardMostMove; // [HGM] delete game to surpress saving
- result = GameUnfinished;
- if(!*appData.tourneyFile) matchGame--; // replay even in plain match
- }
- /* [HGM] bare: don't allow bare King to win */
- if((gameInfo.holdingsWidth == 0 || gameInfo.variant == VariantSuper
- || gameInfo.variant == VariantGreat || gameInfo.variant == VariantGrand)
- && gameInfo.variant != VariantLosers && gameInfo.variant != VariantGiveaway
- && gameInfo.variant != VariantSuicide // [HGM] losers: except in losers, of course...
- && result != GameIsDrawn)
- { int i, j, k=0, oppoKings = 0, color = (result==WhiteWins ? (int)WhitePawn : (int)BlackPawn);
- for(j=BOARD_LEFT; j<BOARD_RGHT; j++) for(i=0; i<BOARD_HEIGHT; i++) {
- int p = (signed char)boards[forwardMostMove][i][j] - color;
- if(p >= 0 && p <= (int)WhiteKing) k++;
- oppoKings += (p + color == WhiteKing + BlackPawn - color);
- }
- if (appData.debugMode) {
- fprintf(debugFP, "GE(%d, %s, %d) bare king k=%d color=%d\n",
- result, resultDetails ? resultDetails : "(null)", whosays, k, color);
- }
- if(k <= 1 && oppoKings > 0) { // the latter needed in Atomic, where bare K wins if opponent King already destroyed
- result = GameIsDrawn;
- snprintf(buf, MSG_SIZ, "%s but bare king", resultDetails);
- resultDetails = buf;
- }
- }
- }
-
-
- if(serverMoves != NULL && !loadFlag) { char c = '=';
- if(result==WhiteWins) c = '+';
- if(result==BlackWins) c = '-';
- if(resultDetails != NULL)
- fprintf(serverMoves, ";%c;%s\n", c, resultDetails), fflush(serverMoves);
- }
- if (resultDetails != NULL) {
- gameInfo.result = result;
- gameInfo.resultDetails = StrSave(resultDetails);
-
- /* display last move only if game was not loaded from file */
- if ((whosays != GE_FILE) && (currentMove == forwardMostMove))
- DisplayMove(currentMove - 1);
-
- if (forwardMostMove != 0) {
- if (gameMode != PlayFromGameFile && gameMode != EditGame
- && lastSavedGame != GameCheckSum() // [HGM] save: suppress duplicates
- ) {
- if (*appData.saveGameFile != NULLCHAR) {
- if(result == GameUnfinished && matchMode && *appData.tourneyFile)
- AutoSaveGame(); // [HGM] protect tourney PGN from aborted games, and prompt for name instead
- else
- SaveGameToFile(appData.saveGameFile, TRUE);
- } else if (appData.autoSaveGames) {
- if(gameMode != IcsObserving || !appData.onlyOwn) AutoSaveGame();
- }
- if (*appData.savePositionFile != NULLCHAR) {
- SavePositionToFile(appData.savePositionFile);
- }
- AddGameToBook(FALSE); // Only does something during Monte-Carlo book building
- }
- }
-
- /* Tell program how game ended in case it is learning */
- /* [HGM] Moved this to after saving the PGN, just in case */
- /* engine died and we got here through time loss. In that */
- /* case we will get a fatal error writing the pipe, which */
- /* would otherwise lose us the PGN. */
- /* [HGM] crash: not needed anymore, but doesn't hurt; */
- /* output during GameEnds should never be fatal anymore */
- if (gameMode == MachinePlaysWhite ||
- gameMode == MachinePlaysBlack ||
- gameMode == TwoMachinesPlay ||
- gameMode == IcsPlayingWhite ||
- gameMode == IcsPlayingBlack ||
- gameMode == BeginningOfGame) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "result %s {%s}\n", PGNResult(result),
- resultDetails);
- if (first.pr != NoProc) {
- SendToProgram(buf, &first);
- }
- if (second.pr != NoProc &&
- gameMode == TwoMachinesPlay) {
- SendToProgram(buf, &second);
- }
- }
- }
-
- if (appData.icsActive) {
- if (appData.quietPlay &&
- (gameMode == IcsPlayingWhite ||
- gameMode == IcsPlayingBlack)) {
- SendToICS(ics_prefix);
- SendToICS("set shout 1\n");
- }
- nextGameMode = IcsIdle;
- ics_user_moved = FALSE;
- /* clean up premove. It's ugly when the game has ended and the
- * premove highlights are still on the board.
- */
- if (gotPremove) {
- gotPremove = FALSE;
- ClearPremoveHighlights();
- DrawPosition(FALSE, boards[currentMove]);
- }
- if (whosays == GE_ICS) {
- switch (result) {
- case WhiteWins:
- if (gameMode == IcsPlayingWhite)
- PlayIcsWinSound();
- else if(gameMode == IcsPlayingBlack)
- PlayIcsLossSound();
- break;
- case BlackWins:
- if (gameMode == IcsPlayingBlack)
- PlayIcsWinSound();
- else if(gameMode == IcsPlayingWhite)
- PlayIcsLossSound();
- break;
- case GameIsDrawn:
- PlayIcsDrawSound();
- break;
- default:
- PlayIcsUnfinishedSound();
- }
- }
- if(appData.quitNext) { ExitEvent(0); return; }
- } else if (gameMode == EditGame ||
- gameMode == PlayFromGameFile ||
- gameMode == AnalyzeMode ||
- gameMode == AnalyzeFile) {
- nextGameMode = gameMode;
- } else {
- nextGameMode = EndOfGame;
- }
- pausing = FALSE;
- ModeHighlight();
- } else {
- nextGameMode = gameMode;
- }
-
- if (appData.noChessProgram) {
- gameMode = nextGameMode;
- ModeHighlight();
- endingGame = 0; /* [HGM] crash */
- return;
- }
-
- if (first.reuse) {
- /* Put first chess program into idle state */
- if (first.pr != NoProc &&
- (gameMode == MachinePlaysWhite ||
- gameMode == MachinePlaysBlack ||
- gameMode == TwoMachinesPlay ||
- gameMode == IcsPlayingWhite ||
- gameMode == IcsPlayingBlack ||
- gameMode == BeginningOfGame)) {
- SendToProgram("force\n", &first);
- if (first.usePing) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "ping %d\n", ++first.lastPing);
- SendToProgram(buf, &first);
- }
- }
- } else if (result != GameUnfinished || nextGameMode == IcsIdle) {
- /* Kill off first chess program */
- if (first.isr != NULL)
- RemoveInputSource(first.isr);
- first.isr = NULL;
-
- if (first.pr != NoProc) {
- ExitAnalyzeMode();
- DoSleep( appData.delayBeforeQuit );
- SendToProgram("quit\n", &first);
- DestroyChildProcess(first.pr, 4 + first.useSigterm);
- first.reload = TRUE;
- }
- first.pr = NoProc;
- }
- if (second.reuse) {
- /* Put second chess program into idle state */
- if (second.pr != NoProc &&
- gameMode == TwoMachinesPlay) {
- SendToProgram("force\n", &second);
- if (second.usePing) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "ping %d\n", ++second.lastPing);
- SendToProgram(buf, &second);
- }
- }
- } else if (result != GameUnfinished || nextGameMode == IcsIdle) {
- /* Kill off second chess program */
- if (second.isr != NULL)
- RemoveInputSource(second.isr);
- second.isr = NULL;
-
- if (second.pr != NoProc) {
- DoSleep( appData.delayBeforeQuit );
- SendToProgram("quit\n", &second);
- DestroyChildProcess(second.pr, 4 + second.useSigterm);
- second.reload = TRUE;
- }
- second.pr = NoProc;
- }
-
- if (matchMode && (gameMode == TwoMachinesPlay || (waitingForGame || startingEngine) && exiting)) {
- char resChar = '=';
- switch (result) {
- case WhiteWins:
- resChar = '+';
- if (first.twoMachinesColor[0] == 'w') {
- first.matchWins++;
- } else {
- second.matchWins++;
- }
- break;
- case BlackWins:
- resChar = '-';
- if (first.twoMachinesColor[0] == 'b') {
- first.matchWins++;
- } else {
- second.matchWins++;
- }
- break;
- case GameUnfinished:
- resChar = ' ';
- default:
- break;
- }
-
- if(exiting) resChar = ' '; // quit while waiting for round sync: unreserve already reserved game
- if(appData.tourneyFile[0]){ // [HGM] we are in a tourney; update tourney file with game result
- if(appData.afterGame && appData.afterGame[0]) RunCommand(appData.afterGame);
- ReserveGame(nextGame, resChar); // sets nextGame
- if(nextGame > appData.matchGames) appData.tourneyFile[0] = 0, ranking = TourneyStandings(3); // tourney is done
- else ranking = strdup("busy"); //suppress popup when aborted but not finished
- } else roundNr = nextGame = matchGame + 1; // normal match, just increment; round equals matchGame
-
- if (nextGame <= appData.matchGames && !abortMatch) {
- gameMode = nextGameMode;
- matchGame = nextGame; // this will be overruled in tourney mode!
- GetTimeMark(&pauseStart); // [HGM] matchpause: stipulate a pause
- ScheduleDelayedEvent(NextMatchGame, 10); // but start game immediately (as it will wait out the pause itself)
- endingGame = 0; /* [HGM] crash */
- return;
- } else {
- gameMode = nextGameMode;
- if(appData.epd) {
- snprintf(buf, MSG_SIZ, "-------------------------------------- ");
- OutputKibitz(2, buf);
- snprintf(buf, MSG_SIZ, _("Average solving time %4.2f sec (total time %4.2f sec) "), totalTime/(100.*first.matchWins), totalTime/100.);
- OutputKibitz(2, buf);
- snprintf(buf, MSG_SIZ, _("%d avoid-moves played "), second.matchWins);
- if(second.matchWins) OutputKibitz(2, buf);
- snprintf(buf, MSG_SIZ, _("Solved %d out of %d (%3.1f%%) "), first.matchWins, nextGame-1, first.matchWins*100./(nextGame-1));
- OutputKibitz(2, buf);
- }
- snprintf(buf, MSG_SIZ, _("Match %s vs. %s: final score %d-%d-%d"),
- first.tidy, second.tidy,
- first.matchWins, second.matchWins,
- appData.matchGames - (first.matchWins + second.matchWins));
- if(!appData.tourneyFile[0]) matchGame++, DisplayTwoMachinesTitle(); // [HGM] update result in window title
- if(ranking && strcmp(ranking, "busy") && appData.afterTourney && appData.afterTourney[0]) RunCommand(appData.afterTourney);
- popupRequested++; // [HGM] crash: postpone to after resetting endingGame
- if (appData.firstPlaysBlack) { // [HGM] match: back to original for next match
- first.twoMachinesColor = "black\n";
- second.twoMachinesColor = "white\n";
- } else {
- first.twoMachinesColor = "white\n";
- second.twoMachinesColor = "black\n";
- }
- }
- }
- if ((gameMode == AnalyzeMode || gameMode == AnalyzeFile) &&
- !(nextGameMode == AnalyzeMode || nextGameMode == AnalyzeFile))
- ExitAnalyzeMode();
- gameMode = nextGameMode;
- ModeHighlight();
- endingGame = 0; /* [HGM] crash */
- if(popupRequested) { // [HGM] crash: this calls GameEnds recursively through ExitEvent! Make it a harmless tail recursion.
- if(matchMode == TRUE) { // match through command line: exit with or without popup
- if(ranking) {
- ToNrEvent(forwardMostMove);
- if(strcmp(ranking, "busy")) DisplayFatalError(ranking, 0, 0);
- else ExitEvent(0);
- } else DisplayFatalError(buf, 0, 0);
- } else { // match through menu; just stop, with or without popup
- matchMode = FALSE; appData.matchGames = matchGame = roundNr = 0;
- ModeHighlight();
- if(ranking){
- if(strcmp(ranking, "busy")) DisplayNote(ranking);
- } else DisplayNote(buf);
- }
- if(ranking) free(ranking);
- }
-}
-
-/* Assumes program was just initialized (initString sent).
- Leaves program in force mode. */
-void
-FeedMovesToProgram (ChessProgramState *cps, int upto)
-{
- int i;
-
- if (appData.debugMode)
- fprintf(debugFP, "Feeding %smoves %d through %d to %s chess program\n",
- startedFromSetupPosition ? "position and " : "",
- backwardMostMove, upto, cps->which);
- if(currentlyInitializedVariant != gameInfo.variant) {
- char buf[MSG_SIZ];
- // [HGM] variantswitch: make engine aware of new variant
- if(!SupportedVariant(cps->variants, gameInfo.variant, gameInfo.boardWidth,
- gameInfo.boardHeight, gameInfo.holdingsSize, cps->protocolVersion, ""))
- return; // [HGM] refrain from feeding moves altogether if variant is unsupported!
- snprintf(buf, MSG_SIZ, "variant %s\n", VariantName(gameInfo.variant));
- SendToProgram(buf, cps);
- currentlyInitializedVariant = gameInfo.variant;
- }
- SendToProgram("force\n", cps);
- if (startedFromSetupPosition) {
- SendBoard(cps, backwardMostMove);
- if (appData.debugMode) {
- fprintf(debugFP, "feedMoves\n");
- }
- }
- for (i = backwardMostMove; i < upto; i++) {
- SendMoveToProgram(i, cps);
- }
-}
-
-
-int
-ResurrectChessProgram ()
-{
- /* The chess program may have exited.
- If so, restart it and feed it all the moves made so far. */
- static int doInit = 0;
-
- if (appData.noChessProgram) return 1;
-
- if(matchMode /*&& appData.tourneyFile[0]*/) { // [HGM] tourney: make sure we get features after engine replacement. (Should we always do this?)
- if(WaitForEngine(&first, TwoMachinesEventIfReady)) { doInit = 1; return 0; } // request to do init on next visit, because we started engine
- if(!doInit) return 1; // this replaces testing first.pr != NoProc, which is true when we get here, but first time no reason to abort
- doInit = 0; // we fell through (first time after starting the engine); make sure it doesn't happen again
- } else {
- if (first.pr != NoProc) return 1;
- StartChessProgram(&first);
- }
- InitChessProgram(&first, FALSE);
- FeedMovesToProgram(&first, currentMove);
-
- if (!first.sendTime) {
- /* can't tell gnuchess what its clock should read,
- so we bow to its notion. */
- ResetClocks();
- timeRemaining[0][currentMove] = whiteTimeRemaining;
- timeRemaining[1][currentMove] = blackTimeRemaining;
- }
-
- if ((gameMode == AnalyzeMode || gameMode == AnalyzeFile ||
- appData.icsEngineAnalyze) && first.analysisSupport) {
- SendToProgram("analyze\n", &first);
- first.analyzing = TRUE;
- }
- return 1;
-}
-
-/*
- * Button procedures
- */
-void
-Reset (int redraw, int init)
-{
- int i;
-
- if (appData.debugMode) {
- fprintf(debugFP, "Reset(%d, %d) from gameMode %d\n",
- redraw, init, gameMode);
- }
- pieceDefs = FALSE; // [HGM] gen: reset engine-defined piece moves
- for(i=0; i<EmptySquare; i++) { FREE(pieceDesc[i]); pieceDesc[i] = NULL; }
- CleanupTail(); // [HGM] vari: delete any stored variations
- CommentPopDown(); // [HGM] make sure no comments to the previous game keep hanging on
- pausing = pauseExamInvalid = FALSE;
- startedFromSetupPosition = blackPlaysFirst = FALSE;
- firstMove = TRUE;
- whiteFlag = blackFlag = FALSE;
- userOfferedDraw = FALSE;
- hintRequested = bookRequested = FALSE;
- first.maybeThinking = FALSE;
- second.maybeThinking = FALSE;
- first.bookSuspend = FALSE; // [HGM] book
- second.bookSuspend = FALSE;
- thinkOutput[0] = NULLCHAR;
- lastHint[0] = NULLCHAR;
- ClearGameInfo(&gameInfo);
- gameInfo.variant = StringToVariant(appData.variant);
- if(gameInfo.variant == VariantNormal && strcmp(appData.variant, "normal")) {
- gameInfo.variant = VariantUnknown;
- strncpy(engineVariant, appData.variant, MSG_SIZ);
- }
- ics_user_moved = ics_clock_paused = FALSE;
- ics_getting_history = H_FALSE;
- ics_gamenum = -1;
- white_holding[0] = black_holding[0] = NULLCHAR;
- ClearProgramStats();
- opponentKibitzes = FALSE; // [HGM] kibitz: do not reserve space in engine-output window in zippy mode
-
- ResetFrontEnd();
- ClearHighlights();
- flipView = appData.flipView;
- ClearPremoveHighlights();
- gotPremove = FALSE;
- alarmSounded = FALSE;
- killX = killY = kill2X = kill2Y = -1; // [HGM] lion
-
- GameEnds(EndOfFile, NULL, GE_PLAYER);
- if(appData.serverMovesName != NULL) {
- /* [HGM] prepare to make moves file for broadcasting */
- clock_t t = clock();
- if(serverMoves != NULL) fclose(serverMoves);
- serverMoves = fopen(appData.serverMovesName, "r");
- if(serverMoves != NULL) {
- fclose(serverMoves);
- /* delay 15 sec before overwriting, so all clients can see end */
- while(clock()-t < appData.serverPause*CLOCKS_PER_SEC);
- }
- serverMoves = fopen(appData.serverMovesName, "w");
- }
-
- ExitAnalyzeMode();
- gameMode = BeginningOfGame;
- ModeHighlight();
- if(appData.icsActive) gameInfo.variant = VariantNormal;
- currentMove = forwardMostMove = backwardMostMove = 0;
- MarkTargetSquares(1);
- InitPosition(redraw);
- for (i = 0; i < MAX_MOVES; i++) {
- if (commentList[i] != NULL) {
- free(commentList[i]);
- commentList[i] = NULL;
- }
- }
- ResetClocks();
- timeRemaining[0][0] = whiteTimeRemaining;
- timeRemaining[1][0] = blackTimeRemaining;
-
- if (first.pr == NoProc) {
- StartChessProgram(&first);
- }
- if (init) {
- InitChessProgram(&first, startedFromSetupPosition);
- }
- DisplayTitle("");
- DisplayMessage("", "");
- HistorySet(parseList, backwardMostMove, forwardMostMove, currentMove-1);
- lastSavedGame = 0; // [HGM] save: make sure next game counts as unsaved
- ClearMap(); // [HGM] exclude: invalidate map
-}
-
-void
-AutoPlayGameLoop ()
-{
- for (;;) {
- if (!AutoPlayOneMove())
- return;
- if (matchMode || appData.timeDelay == 0)
- continue;
- if (appData.timeDelay < 0)
- return;
- StartLoadGameTimer((long)(1000.0f * appData.timeDelay));
- break;
- }
-}
-
-void
-AnalyzeNextGame()
-{
- ReloadGame(1); // next game
-}
-
-int
-AutoPlayOneMove ()
-{
- int fromX, fromY, toX, toY;
-
- if (appData.debugMode) {
- fprintf(debugFP, "AutoPlayOneMove(): current %d\n", currentMove);
- }
-
- if (gameMode != PlayFromGameFile && gameMode != AnalyzeFile)
- return FALSE;
-
- if (gameMode == AnalyzeFile && currentMove > backwardMostMove && programStats.depth) {
- pvInfoList[currentMove].depth = programStats.depth;
- pvInfoList[currentMove].score = programStats.score;
- pvInfoList[currentMove].time = 0;
- if(currentMove < forwardMostMove) AppendComment(currentMove+1, lastPV[0], 2);
- else { // append analysis of final position as comment
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "{final score %+4.2f/%d}", programStats.score/100., programStats.depth);
- AppendComment(currentMove, buf, 3); // the 3 prevents stripping of the score/depth!
- }
- programStats.depth = 0;
- }
-
- if (currentMove >= forwardMostMove) {
- if(gameMode == AnalyzeFile) {
- if(appData.loadGameIndex == -1) {
- GameEnds(gameInfo.result, gameInfo.resultDetails ? gameInfo.resultDetails : "", GE_FILE);
- ScheduleDelayedEvent(AnalyzeNextGame, 10);
- } else {
- ExitAnalyzeMode(); SendToProgram("force\n", &first);
- }
- }
-// gameMode = EndOfGame;
-// ModeHighlight();
-
- /* [AS] Clear current move marker at the end of a game */
- /* HistorySet(parseList, backwardMostMove, forwardMostMove, -1); */
-
- return FALSE;
- }
-
- toX = moveList[currentMove][2] - AAA;
- toY = moveList[currentMove][3] - ONE;
-
- if (moveList[currentMove][1] == '@') {
- if (appData.highlightLastMove) {
- SetHighlights(-1, -1, toX, toY);
- }
- } else {
- fromX = moveList[currentMove][0] - AAA;
- fromY = moveList[currentMove][1] - ONE;
-
- HistorySet(parseList, backwardMostMove, forwardMostMove, currentMove); /* [AS] */
-
- if(moveList[currentMove][4] == ';') { // multi-leg
- killX = moveList[currentMove][5] - AAA;
- killY = moveList[currentMove][6] - ONE;
- }
- AnimateMove(boards[currentMove], fromX, fromY, toX, toY);
- killX = killY = -1;
-
- if (appData.highlightLastMove) {
- SetHighlights(fromX, fromY, toX, toY);
- }
- }
- DisplayMove(currentMove);
- SendMoveToProgram(currentMove++, &first);
- DisplayBothClocks();
- DrawPosition(FALSE, boards[currentMove]);
- // [HGM] PV info: always display, routine tests if empty
- DisplayComment(currentMove - 1, commentList[currentMove]);
- return TRUE;
-}
-
-
-int
-LoadGameOneMove (ChessMove readAhead)
-{
- int fromX = 0, fromY = 0, toX = 0, toY = 0, done;
- char promoChar = NULLCHAR;
- ChessMove moveType;
- char move[MSG_SIZ];
- char *p, *q;
-
- if (gameMode != PlayFromGameFile && gameMode != AnalyzeFile &&
- gameMode != AnalyzeMode && gameMode != Training) {
- gameFileFP = NULL;
- return FALSE;
- }
-
- yyboardindex = forwardMostMove;
- if (readAhead != EndOfFile) {
- moveType = readAhead;
- } else {
- if (gameFileFP == NULL)
- return FALSE;
- moveType = (ChessMove) Myylex();
- }
-
- done = FALSE;
- switch (moveType) {
- case Comment:
- if (appData.debugMode)
- fprintf(debugFP, "Parsed Comment: %s\n", yy_text);
- p = yy_text;
-
- /* append the comment but don't display it */
- AppendComment(currentMove, p, FALSE);
- return TRUE;
-
- case WhiteCapturesEnPassant:
- case BlackCapturesEnPassant:
- case WhitePromotion:
- case BlackPromotion:
- case WhiteNonPromotion:
- case BlackNonPromotion:
- case NormalMove:
- case FirstLeg:
- case WhiteKingSideCastle:
- case WhiteQueenSideCastle:
- case BlackKingSideCastle:
- case BlackQueenSideCastle:
- case WhiteKingSideCastleWild:
- case WhiteQueenSideCastleWild:
- case BlackKingSideCastleWild:
- case BlackQueenSideCastleWild:
- /* PUSH Fabien */
- case WhiteHSideCastleFR:
- case WhiteASideCastleFR:
- case BlackHSideCastleFR:
- case BlackASideCastleFR:
- /* POP Fabien */
- if (appData.debugMode)
- fprintf(debugFP, "Parsed %s into %s virgin=%x,%x\n", yy_text, currentMoveString, boards[forwardMostMove][TOUCHED_W], boards[forwardMostMove][TOUCHED_B]);
- fromX = currentMoveString[0] - AAA;
- fromY = currentMoveString[1] - ONE;
- toX = currentMoveString[2] - AAA;
- toY = currentMoveString[3] - ONE;
- promoChar = currentMoveString[4];
- if(promoChar == ';') promoChar = currentMoveString[7];
- break;
-
- case WhiteDrop:
- case BlackDrop:
- if (appData.debugMode)
- fprintf(debugFP, "Parsed %s into %s\n", yy_text, currentMoveString);
- fromX = moveType == WhiteDrop ?
- (int) CharToPiece(ToUpper(currentMoveString[0])) :
- (int) CharToPiece(ToLower(currentMoveString[0]));
- fromY = DROP_RANK;
- toX = currentMoveString[2] - AAA;
- toY = currentMoveString[3] - ONE;
- break;
-
- case WhiteWins:
- case BlackWins:
- case GameIsDrawn:
- case GameUnfinished:
- if (appData.debugMode)
- fprintf(debugFP, "Parsed game end: %s\n", yy_text);
- p = strchr(yy_text, '{');
- if (p == NULL) p = strchr(yy_text, '(');
- if (p == NULL) {
- p = yy_text;
- if (p[0] == '0' || p[0] == '1' || p[0] == '*') p = "";
- } else {
- q = strchr(p, *p == '{' ? '}' : ')');
- if (q != NULL) *q = NULLCHAR;
- p++;
- }
- while(q = strchr(p, '\n')) *q = ' '; // [HGM] crush linefeeds in result message
- GameEnds(moveType, p, GE_FILE);
- done = TRUE;
- if (cmailMsgLoaded) {
- ClearHighlights();
- flipView = WhiteOnMove(currentMove);
- if (moveType == GameUnfinished) flipView = !flipView;
- if (appData.debugMode)
- fprintf(debugFP, "Setting flipView to %d\n", flipView) ;
- }
- break;
-
- case EndOfFile:
- if (appData.debugMode)
- fprintf(debugFP, "Parser hit end of file\n");
- switch (MateTest(boards[currentMove], PosFlags(currentMove)) ) {
- case MT_NONE:
- case MT_CHECK:
- break;
- case MT_CHECKMATE:
- case MT_STAINMATE:
- if (WhiteOnMove(currentMove)) {
- GameEnds(BlackWins, "Black mates", GE_FILE);
- } else {
- GameEnds(WhiteWins, "White mates", GE_FILE);
- }
- break;
- case MT_STALEMATE:
- GameEnds(GameIsDrawn, "Stalemate", GE_FILE);
- break;
- }
- done = TRUE;
- break;
-
- case MoveNumberOne:
- if (lastLoadGameStart == GNUChessGame) {
- /* GNUChessGames have numbers, but they aren't move numbers */
- if (appData.debugMode)
- fprintf(debugFP, "Parser ignoring: '%s' (%d)\n",
- yy_text, (int) moveType);
- return LoadGameOneMove(EndOfFile); /* tail recursion */
- }
- /* else fall thru */
-
- case XBoardGame:
- case GNUChessGame:
- case PGNTag:
- /* Reached start of next game in file */
- if (appData.debugMode)
- fprintf(debugFP, "Parsed start of next game: %s\n", yy_text);
- switch (MateTest(boards[currentMove], PosFlags(currentMove)) ) {
- case MT_NONE:
- case MT_CHECK:
- break;
- case MT_CHECKMATE:
- case MT_STAINMATE:
- if (WhiteOnMove(currentMove)) {
- GameEnds(BlackWins, "Black mates", GE_FILE);
- } else {
- GameEnds(WhiteWins, "White mates", GE_FILE);
- }
- break;
- case MT_STALEMATE:
- GameEnds(GameIsDrawn, "Stalemate", GE_FILE);
- break;
- }
- done = TRUE;
- break;
-
- case PositionDiagram: /* should not happen; ignore */
- case ElapsedTime: /* ignore */
- case NAG: /* ignore */
- if (appData.debugMode)
- fprintf(debugFP, "Parser ignoring: '%s' (%d)\n",
- yy_text, (int) moveType);
- return LoadGameOneMove(EndOfFile); /* tail recursion */
-
- case IllegalMove:
- if (appData.testLegality) {
- if (appData.debugMode)
- fprintf(debugFP, "Parsed IllegalMove: %s\n", yy_text);
- snprintf(move, MSG_SIZ, _("Illegal move: %d.%s%s"),
- (forwardMostMove / 2) + 1,
- WhiteOnMove(forwardMostMove) ? " " : ".. ", yy_text);
- DisplayError(move, 0);
- done = TRUE;
- } else {
- if (appData.debugMode)
- fprintf(debugFP, "Parsed %s into IllegalMove %s\n",
- yy_text, currentMoveString);
- if(currentMoveString[1] == '@') {
- fromX = CharToPiece(WhiteOnMove(currentMove) ? ToUpper(currentMoveString[0]) : ToLower(currentMoveString[0]));
- fromY = DROP_RANK;
- } else {
- fromX = currentMoveString[0] - AAA;
- fromY = currentMoveString[1] - ONE;
- }
- toX = currentMoveString[2] - AAA;
- toY = currentMoveString[3] - ONE;
- promoChar = currentMoveString[4];
- }
- break;
-
- case AmbiguousMove:
- if (appData.debugMode)
- fprintf(debugFP, "Parsed AmbiguousMove: %s\n", yy_text);
- snprintf(move, MSG_SIZ, _("Ambiguous move: %d.%s%s"),
- (forwardMostMove / 2) + 1,
- WhiteOnMove(forwardMostMove) ? " " : ".. ", yy_text);
- DisplayError(move, 0);
- done = TRUE;
- break;
-
- default:
- case ImpossibleMove:
- if (appData.debugMode)
- fprintf(debugFP, "Parsed ImpossibleMove (type = %d): %s\n", moveType, yy_text);
- snprintf(move, MSG_SIZ, _("Illegal move: %d.%s%s"),
- (forwardMostMove / 2) + 1,
- WhiteOnMove(forwardMostMove) ? " " : ".. ", yy_text);
- DisplayError(move, 0);
- done = TRUE;
- break;
- }
-
- if (done) {
- if (appData.matchMode || (appData.timeDelay == 0 && !pausing)) {
- DrawPosition(FALSE, boards[currentMove]);
- DisplayBothClocks();
- if (!appData.matchMode) // [HGM] PV info: routine tests if empty
- DisplayComment(currentMove - 1, commentList[currentMove]);
- }
- (void) StopLoadGameTimer();
- gameFileFP = NULL;
- cmailOldMove = forwardMostMove;
- return FALSE;
- } else {
- /* currentMoveString is set as a side-effect of yylex */
-
- thinkOutput[0] = NULLCHAR;
- MakeMove(fromX, fromY, toX, toY, promoChar);
- killX = killY = kill2X = kill2Y = -1; // [HGM] lion: used up
- currentMove = forwardMostMove;
- return TRUE;
- }
-}
-
-/* Load the nth game from the given file */
-int
-LoadGameFromFile (char *filename, int n, char *title, int useList)
-{
- FILE *f;
- char buf[MSG_SIZ];
-
- if (strcmp(filename, "-") == 0) {
- f = stdin;
- title = "stdin";
- } else {
- f = fopen(filename, "rb");
- if (f == NULL) {
- snprintf(buf, sizeof(buf), _("Can't open \"%s\""), filename);
- DisplayError(buf, errno);
- return FALSE;
- }
- }
- if (fseek(f, 0, 0) == -1) {
- /* f is not seekable; probably a pipe */
- useList = FALSE;
- }
- if (useList && n == 0) {
- int error = GameListBuild(f);
- if (error) {
- DisplayError(_("Cannot build game list"), error);
- } else if (!ListEmpty(&gameList) &&
- ((ListGame *) gameList.tailPred)->number > 1) {
- GameListPopUp(f, title);
- return TRUE;
- }
- GameListDestroy();
- n = 1;
- }
- if (n == 0) n = 1;
- return LoadGame(f, n, title, FALSE);
-}
-
-
-void
-MakeRegisteredMove ()
-{
- int fromX, fromY, toX, toY;
- char promoChar;
- if (cmailMoveRegistered[lastLoadGameNumber - 1]) {
- switch (cmailMoveType[lastLoadGameNumber - 1]) {
- case CMAIL_MOVE:
- case CMAIL_DRAW:
- if (appData.debugMode)
- fprintf(debugFP, "Restoring %s for game %d\n",
- cmailMove[lastLoadGameNumber - 1], lastLoadGameNumber);
-
- thinkOutput[0] = NULLCHAR;
- safeStrCpy(moveList[currentMove], cmailMove[lastLoadGameNumber - 1], sizeof(moveList[currentMove])/sizeof(moveList[currentMove][0]));
- fromX = cmailMove[lastLoadGameNumber - 1][0] - AAA;
- fromY = cmailMove[lastLoadGameNumber - 1][1] - ONE;
- toX = cmailMove[lastLoadGameNumber - 1][2] - AAA;
- toY = cmailMove[lastLoadGameNumber - 1][3] - ONE;
- promoChar = cmailMove[lastLoadGameNumber - 1][4];
- MakeMove(fromX, fromY, toX, toY, promoChar);
- ShowMove(fromX, fromY, toX, toY);
-
- switch (MateTest(boards[currentMove], PosFlags(currentMove)) ) {
- case MT_NONE:
- case MT_CHECK:
- break;
-
- case MT_CHECKMATE:
- case MT_STAINMATE:
- if (WhiteOnMove(currentMove)) {
- GameEnds(BlackWins, "Black mates", GE_PLAYER);
- } else {
- GameEnds(WhiteWins, "White mates", GE_PLAYER);
- }
- break;
-
- case MT_STALEMATE:
- GameEnds(GameIsDrawn, "Stalemate", GE_PLAYER);
- break;
- }
-
- break;
-
- case CMAIL_RESIGN:
- if (WhiteOnMove(currentMove)) {
- GameEnds(BlackWins, "White resigns", GE_PLAYER);
- } else {
- GameEnds(WhiteWins, "Black resigns", GE_PLAYER);
- }
- break;
-
- case CMAIL_ACCEPT:
- GameEnds(GameIsDrawn, "Draw agreed", GE_PLAYER);
- break;
-
- default:
- break;
- }
- }
-
- return;
-}
-
-/* Wrapper around LoadGame for use when a Cmail message is loaded */
-int
-CmailLoadGame (FILE *f, int gameNumber, char *title, int useList)
-{
- int retVal;
-
- if (gameNumber > nCmailGames) {
- DisplayError(_("No more games in this message"), 0);
- return FALSE;
- }
- if (f == lastLoadGameFP) {
- int offset = gameNumber - lastLoadGameNumber;
- if (offset == 0) {
- cmailMsg[0] = NULLCHAR;
- if (cmailMoveRegistered[lastLoadGameNumber - 1]) {
- cmailMoveRegistered[lastLoadGameNumber - 1] = FALSE;
- nCmailMovesRegistered--;
- }
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_MOVE;
- if (cmailResult[lastLoadGameNumber - 1] == CMAIL_NEW_RESULT) {
- cmailResult[lastLoadGameNumber - 1] = CMAIL_NOT_RESULT;
- }
- } else {
- if (! RegisterMove()) return FALSE;
- }
- }
-
- retVal = LoadGame(f, gameNumber, title, useList);
-
- /* Make move registered during previous look at this game, if any */
- MakeRegisteredMove();
-
- if (cmailCommentList[lastLoadGameNumber - 1] != NULL) {
- commentList[currentMove]
- = StrSave(cmailCommentList[lastLoadGameNumber - 1]);
- DisplayComment(currentMove - 1, commentList[currentMove]);
- }
-
- return retVal;
-}
-
-/* Support for LoadNextGame, LoadPreviousGame, ReloadSameGame */
-int
-ReloadGame (int offset)
-{
- int gameNumber = lastLoadGameNumber + offset;
- if (lastLoadGameFP == NULL) {
- DisplayError(_("No game has been loaded yet"), 0);
- return FALSE;
- }
- if (gameNumber <= 0) {
- DisplayError(_("Can't back up any further"), 0);
- return FALSE;
- }
- if (cmailMsgLoaded) {
- return CmailLoadGame(lastLoadGameFP, gameNumber,
- lastLoadGameTitle, lastLoadGameUseList);
- } else {
- return LoadGame(lastLoadGameFP, gameNumber,
- lastLoadGameTitle, lastLoadGameUseList);
- }
-}
-
-int keys[EmptySquare+1];
-
-int
-PositionMatches (Board b1, Board b2)
-{
- int r, f, sum=0;
- switch(appData.searchMode) {
- case 1: return CompareWithRights(b1, b2);
- case 2:
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- if(b2[r][f] != EmptySquare && b1[r][f] != b2[r][f]) return FALSE;
- }
- return TRUE;
- case 3:
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- if((b2[r][f] == WhitePawn || b2[r][f] == BlackPawn) && b1[r][f] != b2[r][f]) return FALSE;
- sum += keys[b1[r][f]] - keys[b2[r][f]];
- }
- return sum==0;
- case 4:
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- sum += keys[b1[r][f]] - keys[b2[r][f]];
- }
- return sum==0;
- }
- return TRUE;
-}
-
-#define Q_PROMO 4
-#define Q_EP 3
-#define Q_BCASTL 2
-#define Q_WCASTL 1
-
-int pieceList[256], quickBoard[256];
-ChessSquare pieceType[256] = { EmptySquare };
-Board soughtBoard, reverseBoard, flipBoard, rotateBoard;
-int counts[EmptySquare], minSought[EmptySquare], minReverse[EmptySquare], maxSought[EmptySquare], maxReverse[EmptySquare];
-int soughtTotal, turn;
-Boolean epOK, flipSearch;
-
-typedef struct {
- unsigned char piece, to;
-} Move;
-
-#define DSIZE (250000)
-
-Move initialSpace[DSIZE+1000]; // gamble on that game will not be more than 500 moves
-Move *moveDatabase = initialSpace;
-unsigned int movePtr, dataSize = DSIZE;
-
-int
-MakePieceList (Board board, int *counts)
-{
- int r, f, n=Q_PROMO, total=0;
- for(r=0;r<EmptySquare;r++) counts[r] = 0; // piece-type counts
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- int sq = f + (r<<4);
- if(board[r][f] == EmptySquare) quickBoard[sq] = 0; else {
- quickBoard[sq] = ++n;
- pieceList[n] = sq;
- pieceType[n] = board[r][f];
- counts[board[r][f]]++;
- if(board[r][f] == WhiteKing) pieceList[1] = n; else
- if(board[r][f] == BlackKing) pieceList[2] = n; // remember which are Kings, for castling
- total++;
- }
- }
- epOK = gameInfo.variant != VariantXiangqi && gameInfo.variant != VariantBerolina;
- return total;
-}
-
-void
-PackMove (int fromX, int fromY, int toX, int toY, ChessSquare promoPiece)
-{
- int sq = fromX + (fromY<<4);
- int piece = quickBoard[sq], rook;
- quickBoard[sq] = 0;
- moveDatabase[movePtr].to = pieceList[piece] = sq = toX + (toY<<4);
- if(piece == pieceList[1] && fromY == toY) {
- if((toX > fromX+1 || toX < fromX-1) && fromX != BOARD_LEFT && fromX != BOARD_RGHT-1) {
- int from = toX>fromX ? BOARD_RGHT-1 : BOARD_LEFT;
- moveDatabase[movePtr++].piece = Q_WCASTL;
- quickBoard[sq] = piece;
- piece = quickBoard[from]; quickBoard[from] = 0;
- moveDatabase[movePtr].to = pieceList[piece] = sq = toX>fromX ? sq-1 : sq+1;
- } else if((rook = quickBoard[sq]) && pieceType[rook] == WhiteRook) { // FRC castling
- quickBoard[sq] = 0; // remove Rook
- moveDatabase[movePtr].to = sq = (toX>fromX ? BOARD_RGHT-2 : BOARD_LEFT+2); // King to-square
- moveDatabase[movePtr++].piece = Q_WCASTL;
- quickBoard[sq] = pieceList[1]; // put King
- piece = rook;
- moveDatabase[movePtr].to = pieceList[rook] = sq = toX>fromX ? sq-1 : sq+1;
- }
- } else
- if(piece == pieceList[2] && fromY == toY) {
- if((toX > fromX+1 || toX < fromX-1) && fromX != BOARD_LEFT && fromX != BOARD_RGHT-1) {
- int from = (toX>fromX ? BOARD_RGHT-1 : BOARD_LEFT) + (BOARD_HEIGHT-1 <<4);
- moveDatabase[movePtr++].piece = Q_BCASTL;
- quickBoard[sq] = piece;
- piece = quickBoard[from]; quickBoard[from] = 0;
- moveDatabase[movePtr].to = pieceList[piece] = sq = toX>fromX ? sq-1 : sq+1;
- } else if((rook = quickBoard[sq]) && pieceType[rook] == BlackRook) { // FRC castling
- quickBoard[sq] = 0; // remove Rook
- moveDatabase[movePtr].to = sq = (toX>fromX ? BOARD_RGHT-2 : BOARD_LEFT+2);
- moveDatabase[movePtr++].piece = Q_BCASTL;
- quickBoard[sq] = pieceList[2]; // put King
- piece = rook;
- moveDatabase[movePtr].to = pieceList[rook] = sq = toX>fromX ? sq-1 : sq+1;
- }
- } else
- if(epOK && (pieceType[piece] == WhitePawn || pieceType[piece] == BlackPawn) && fromX != toX && quickBoard[sq] == 0) {
- quickBoard[(fromY<<4)+toX] = 0;
- moveDatabase[movePtr].piece = Q_EP;
- moveDatabase[movePtr++].to = (fromY<<4)+toX;
- moveDatabase[movePtr].to = sq;
- } else
- if(promoPiece != pieceType[piece]) {
- moveDatabase[movePtr++].piece = Q_PROMO;
- moveDatabase[movePtr].to = pieceType[piece] = (int) promoPiece;
- }
- moveDatabase[movePtr].piece = piece;
- quickBoard[sq] = piece;
- movePtr++;
-}
-
-int
-PackGame (Board board)
-{
- Move *newSpace = NULL;
- moveDatabase[movePtr].piece = 0; // terminate previous game
- if(movePtr > dataSize) {
- if(appData.debugMode) fprintf(debugFP, "move-cache overflow, enlarge to %d MB\n", dataSize/128);
- dataSize *= 8; // increase size by factor 8 (512KB -> 4MB -> 32MB -> 256MB -> 2GB)
- if(dataSize) newSpace = (Move*) calloc(dataSize + 1000, sizeof(Move));
- if(newSpace) {
- int i;
- Move *p = moveDatabase, *q = newSpace;
- for(i=0; i<movePtr; i++) *q++ = *p++; // copy to newly allocated space
- if(dataSize > 8*DSIZE) free(moveDatabase); // and free old space (if it was allocated)
- moveDatabase = newSpace;
- } else { // calloc failed, we must be out of memory. Too bad...
- dataSize = 0; // prevent calloc events for all subsequent games
- return 0; // and signal this one isn't cached
- }
- }
- movePtr++;
- MakePieceList(board, counts);
- return movePtr;
-}
-
-int
-QuickCompare (Board board, int *minCounts, int *maxCounts)
-{ // compare according to search mode
- int r, f;
- switch(appData.searchMode)
- {
- case 1: // exact position match
- if(!(turn & board[EP_STATUS-1])) return FALSE; // wrong side to move
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- if(board[r][f] != pieceType[quickBoard[(r<<4)+f]]) return FALSE;
- }
- break;
- case 2: // can have extra material on empty squares
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- if(board[r][f] == EmptySquare) continue;
- if(board[r][f] != pieceType[quickBoard[(r<<4)+f]]) return FALSE;
- }
- break;
- case 3: // material with exact Pawn structure
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- if(board[r][f] != WhitePawn && board[r][f] != BlackPawn) continue;
- if(board[r][f] != pieceType[quickBoard[(r<<4)+f]]) return FALSE;
- } // fall through to material comparison
- case 4: // exact material
- for(r=0; r<EmptySquare; r++) if(counts[r] != maxCounts[r]) return FALSE;
- break;
- case 6: // material range with given imbalance
- for(r=0; r<BlackPawn; r++) if(counts[r] - minCounts[r] != counts[r+BlackPawn] - minCounts[r+BlackPawn]) return FALSE;
- // fall through to range comparison
- case 5: // material range
- for(r=0; r<EmptySquare; r++) if(counts[r] < minCounts[r] || counts[r] > maxCounts[r]) return FALSE;
- }
- return TRUE;
-}
-
-int
-QuickScan (Board board, Move *move)
-{ // reconstruct game,and compare all positions in it
- int cnt=0, stretch=0, found = -1, total = MakePieceList(board, counts);
- do {
- int piece = move->piece;
- int to = move->to, from = pieceList[piece];
- if(found < 0) { // if already found just scan to game end for final piece count
- if(QuickCompare(soughtBoard, minSought, maxSought) ||
- appData.ignoreColors && QuickCompare(reverseBoard, minReverse, maxReverse) ||
- flipSearch && (QuickCompare(flipBoard, minSought, maxSought) ||
- appData.ignoreColors && QuickCompare(rotateBoard, minReverse, maxReverse))
- ) {
- static int lastCounts[EmptySquare+1];
- int i;
- if(stretch) for(i=0; i<EmptySquare; i++) if(lastCounts[i] != counts[i]) { stretch = 0; break; } // reset if material changes
- if(stretch++ == 0) for(i=0; i<EmptySquare; i++) lastCounts[i] = counts[i]; // remember actual material
- } else stretch = 0;
- if(stretch && (appData.searchMode == 1 || stretch >= appData.stretch)) found = cnt + 1 - stretch;
- if(found >= 0 && !appData.minPieces) return found;
- }
- if(piece <= Q_PROMO) { // special moves encoded by otherwise invalid piece numbers 1-4
- if(!piece) return (appData.minPieces && (total < appData.minPieces || total > appData.maxPieces) ? -1 : found);
- if(piece == Q_PROMO) { // promotion, encoded as (Q_PROMO, to) + (piece, promoType)
- piece = (++move)->piece;
- from = pieceList[piece];
- counts[pieceType[piece]]--;
- pieceType[piece] = (ChessSquare) move->to;
- counts[move->to]++;
- } else if(piece == Q_EP) { // e.p. capture, encoded as (Q_EP, ep-sqr) + (piece, to)
- counts[pieceType[quickBoard[to]]]--;
- quickBoard[to] = 0; total--;
- move++;
- continue;
- } else if(piece <= Q_BCASTL) { // castling, encoded as (Q_XCASTL, king-to) + (rook, rook-to)
- piece = pieceList[piece]; // first two elements of pieceList contain King numbers
- from = pieceList[piece]; // so this must be King
- quickBoard[from] = 0;
- pieceList[piece] = to;
- from = pieceList[(++move)->piece]; // for FRC this has to be done here
- quickBoard[from] = 0; // rook
- quickBoard[to] = piece;
- to = move->to; piece = move->piece;
- goto aftercastle;
- }
- }
- if(appData.searchMode > 2) counts[pieceType[quickBoard[to]]]--; // account capture
- if((total -= (quickBoard[to] != 0)) < soughtTotal && found < 0) return -1; // piece count dropped below what we search for
- quickBoard[from] = 0;
- aftercastle:
- quickBoard[to] = piece;
- pieceList[piece] = to;
- cnt++; turn ^= 3;
- move++;
- } while(1);
-}
-
-void
-InitSearch ()
-{
- int r, f;
- flipSearch = FALSE;
- CopyBoard(soughtBoard, boards[currentMove]);
- soughtTotal = MakePieceList(soughtBoard, maxSought);
- soughtBoard[EP_STATUS-1] = (currentMove & 1) + 1;
- if(currentMove == 0 && gameMode == EditPosition) soughtBoard[EP_STATUS-1] = blackPlaysFirst + 1; // (!)
- CopyBoard(reverseBoard, boards[currentMove]);
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- int piece = boards[currentMove][BOARD_HEIGHT-1-r][f];
- if(piece < BlackPawn) piece += BlackPawn; else if(piece < EmptySquare) piece -= BlackPawn; // color-flip
- reverseBoard[r][f] = piece;
- }
- reverseBoard[EP_STATUS-1] = soughtBoard[EP_STATUS-1] ^ 3;
- for(r=0; r<6; r++) reverseBoard[CASTLING][r] = boards[currentMove][CASTLING][(r+3)%6];
- if(appData.findMirror && appData.searchMode <= 3 && (!nrCastlingRights
- || (boards[currentMove][CASTLING][2] == NoRights ||
- boards[currentMove][CASTLING][0] == NoRights && boards[currentMove][CASTLING][1] == NoRights )
- && (boards[currentMove][CASTLING][5] == NoRights ||
- boards[currentMove][CASTLING][3] == NoRights && boards[currentMove][CASTLING][4] == NoRights ) )
- ) {
- flipSearch = TRUE;
- CopyBoard(flipBoard, soughtBoard);
- CopyBoard(rotateBoard, reverseBoard);
- for(r=0; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) {
- flipBoard[r][f] = soughtBoard[r][BOARD_WIDTH-1-f];
- rotateBoard[r][f] = reverseBoard[r][BOARD_WIDTH-1-f];
- }
- }
- for(r=0; r<BlackPawn; r++) maxReverse[r] = maxSought[r+BlackPawn], maxReverse[r+BlackPawn] = maxSought[r];
- if(appData.searchMode >= 5) {
- for(r=BOARD_HEIGHT/2; r<BOARD_HEIGHT; r++) for(f=BOARD_LEFT; f<BOARD_RGHT; f++) soughtBoard[r][f] = EmptySquare;
- MakePieceList(soughtBoard, minSought);
- for(r=0; r<BlackPawn; r++) minReverse[r] = minSought[r+BlackPawn], minReverse[r+BlackPawn] = minSought[r];
- }
- if(gameInfo.variant == VariantCrazyhouse || gameInfo.variant == VariantShogi || gameInfo.variant == VariantBughouse)
- soughtTotal = 0; // in drop games nr of pieces does not fall monotonously
-}
-
-GameInfo dummyInfo;
-static int creatingBook;
-
-int
-GameContainsPosition (FILE *f, ListGame *lg)
-{
- int next, btm=0, plyNr=0, scratch=forwardMostMove+2&~1;
- int fromX, fromY, toX, toY;
- char promoChar;
- static int initDone=FALSE;
-
- // weed out games based on numerical tag comparison
- if(lg->gameInfo.variant != gameInfo.variant) return -1; // wrong variant
- if(appData.eloThreshold1 && (lg->gameInfo.whiteRating < appData.eloThreshold1 && lg->gameInfo.blackRating < appData.eloThreshold1)) return -1;
- if(appData.eloThreshold2 && (lg->gameInfo.whiteRating < appData.eloThreshold2 || lg->gameInfo.blackRating < appData.eloThreshold2)) return -1;
- if(appData.dateThreshold && (!lg->gameInfo.date || atoi(lg->gameInfo.date) < appData.dateThreshold)) return -1;
- if(!initDone) {
- for(next = WhitePawn; next<EmptySquare; next++) keys[next] = random()>>8 ^ random()<<6 ^random()<<20;
- initDone = TRUE;
- }
- if(lg->gameInfo.fen) ParseFEN(boards[scratch], &btm, lg->gameInfo.fen, FALSE);
- else CopyBoard(boards[scratch], initialPosition); // default start position
- if(lg->moves) {
- turn = btm + 1;
- if((next = QuickScan( boards[scratch], &moveDatabase[lg->moves] )) < 0) return -1; // quick scan rules out it is there
- if(appData.searchMode >= 4) return next; // for material searches, trust QuickScan.
- }
- if(btm) plyNr++;
- if(PositionMatches(boards[scratch], boards[currentMove])) return plyNr;
- fseek(f, lg->offset, 0);
- yynewfile(f);
- while(1) {
- yyboardindex = scratch;
- quickFlag = plyNr+1;
- next = Myylex();
- quickFlag = 0;
- switch(next) {
- case PGNTag:
- if(plyNr) return -1; // after we have seen moves, any tags will be start of next game
- default:
- continue;
-
- case XBoardGame:
- case GNUChessGame:
- if(plyNr) return -1; // after we have seen moves, this is for new game
- continue;
-
- case AmbiguousMove: // we cannot reconstruct the game beyond these two
- case ImpossibleMove:
- case WhiteWins: // game ends here with these four
- case BlackWins:
- case GameIsDrawn:
- case GameUnfinished:
- return -1;
-
- case IllegalMove:
- if(appData.testLegality) return -1;
- case WhiteCapturesEnPassant:
- case BlackCapturesEnPassant:
- case WhitePromotion:
- case BlackPromotion:
- case WhiteNonPromotion:
- case BlackNonPromotion:
- case NormalMove:
- case FirstLeg:
- case WhiteKingSideCastle:
- case WhiteQueenSideCastle:
- case BlackKingSideCastle:
- case BlackQueenSideCastle:
- case WhiteKingSideCastleWild:
- case WhiteQueenSideCastleWild:
- case BlackKingSideCastleWild:
- case BlackQueenSideCastleWild:
- case WhiteHSideCastleFR:
- case WhiteASideCastleFR:
- case BlackHSideCastleFR:
- case BlackASideCastleFR:
- fromX = currentMoveString[0] - AAA;
- fromY = currentMoveString[1] - ONE;
- toX = currentMoveString[2] - AAA;
- toY = currentMoveString[3] - ONE;
- promoChar = currentMoveString[4];
- break;
- case WhiteDrop:
- case BlackDrop:
- fromX = next == WhiteDrop ?
- (int) CharToPiece(ToUpper(currentMoveString[0])) :
- (int) CharToPiece(ToLower(currentMoveString[0]));
- fromY = DROP_RANK;
- toX = currentMoveString[2] - AAA;
- toY = currentMoveString[3] - ONE;
- promoChar = 0;
- break;
- }
- // Move encountered; peform it. We need to shuttle between two boards, as even/odd index determines side to move
- plyNr++;
- ApplyMove(fromX, fromY, toX, toY, promoChar, boards[scratch]);
- if(PositionMatches(boards[scratch], boards[currentMove])) return plyNr;
- if(appData.ignoreColors && PositionMatches(boards[scratch], reverseBoard)) return plyNr;
- if(appData.findMirror) {
- if(PositionMatches(boards[scratch], flipBoard)) return plyNr;
- if(appData.ignoreColors && PositionMatches(boards[scratch], rotateBoard)) return plyNr;
- }
- }
-}
-
-/* Load the nth game from open file f */
-int
-LoadGame (FILE *f, int gameNumber, char *title, int useList)
-{
- ChessMove cm;
- char buf[MSG_SIZ];
- int gn = gameNumber;
- ListGame *lg = NULL;
- int numPGNTags = 0, i;
- int err, pos = -1;
- GameMode oldGameMode;
- VariantClass v, oldVariant = gameInfo.variant; /* [HGM] PGNvariant */
- char oldName[MSG_SIZ];
-
- safeStrCpy(oldName, engineVariant, MSG_SIZ); v = oldVariant;
-
- if (appData.debugMode)
- fprintf(debugFP, "LoadGame(): on entry, gameMode %d\n", gameMode);
-
- if (gameMode == Training )
- SetTrainingModeOff();
-
- oldGameMode = gameMode;
- if (gameMode != BeginningOfGame) {
- Reset(FALSE, TRUE);
- }
- killX = killY = kill2X = kill2Y = -1; // [HGM] lion: in case we did not Reset
-
- gameFileFP = f;
- if (lastLoadGameFP != NULL && lastLoadGameFP != f) {
- fclose(lastLoadGameFP);
- }
-
- if (useList) {
- lg = (ListGame *) ListElem(&gameList, gameNumber-1);
-
- if (lg) {
- fseek(f, lg->offset, 0);
- GameListHighlight(gameNumber);
- pos = lg->position;
- gn = 1;
- }
- else {
- if(oldGameMode == AnalyzeFile && appData.loadGameIndex == -1)
- appData.loadGameIndex = 0; // [HGM] suppress error message if we reach file end after auto-stepping analysis
- else
- DisplayError(_("Game number out of range"), 0);
- return FALSE;
- }
- } else {
- GameListDestroy();
- if (fseek(f, 0, 0) == -1) {
- if (f == lastLoadGameFP ?
- gameNumber == lastLoadGameNumber + 1 :
- gameNumber == 1) {
- gn = 1;
- } else {
- DisplayError(_("Can't seek on game file"), 0);
- return FALSE;
- }
- }
- }
- lastLoadGameFP = f;
- lastLoadGameNumber = gameNumber;
- safeStrCpy(lastLoadGameTitle, title, sizeof(lastLoadGameTitle)/sizeof(lastLoadGameTitle[0]));
- lastLoadGameUseList = useList;
-
- yynewfile(f);
-
- if (lg && lg->gameInfo.white && lg->gameInfo.black) {
- snprintf(buf, sizeof(buf), "%s %s %s", lg->gameInfo.white, _("vs."),
- lg->gameInfo.black);
- DisplayTitle(buf);
- } else if (*title != NULLCHAR) {
- if (gameNumber > 1) {
- snprintf(buf, MSG_SIZ, "%s %d", title, gameNumber);
- DisplayTitle(buf);
- } else {
- DisplayTitle(title);
- }
- }
-
- if (gameMode != AnalyzeFile && gameMode != AnalyzeMode) {
- gameMode = PlayFromGameFile;
- ModeHighlight();
- }
-
- currentMove = forwardMostMove = backwardMostMove = 0;
- CopyBoard(boards[0], initialPosition);
- StopClocks();
-
- /*
- * Skip the first gn-1 games in the file.
- * Also skip over anything that precedes an identifiable
- * start of game marker, to avoid being confused by
- * garbage at the start of the file. Currently
- * recognized start of game markers are the move number "1",
- * the pattern "gnuchess .* game", the pattern
- * "^[#;%] [^ ]* game file", and a PGN tag block.
- * A game that starts with one of the latter two patterns
- * will also have a move number 1, possibly
- * following a position diagram.
- * 5-4-02: Let's try being more lenient and allowing a game to
- * start with an unnumbered move. Does that break anything?
- */
- cm = lastLoadGameStart = EndOfFile;
- while (gn > 0) {
- yyboardindex = forwardMostMove;
- cm = (ChessMove) Myylex();
- switch (cm) {
- case EndOfFile:
- if (cmailMsgLoaded) {
- nCmailGames = CMAIL_MAX_GAMES - gn;
- } else {
- Reset(TRUE, TRUE);
- DisplayError(_("Game not found in file"), 0);
- }
- return FALSE;
-
- case GNUChessGame:
- case XBoardGame:
- gn--;
- lastLoadGameStart = cm;
- break;
-
- case MoveNumberOne:
- switch (lastLoadGameStart) {
- case GNUChessGame:
- case XBoardGame:
- case PGNTag:
- break;
- case MoveNumberOne:
- case EndOfFile:
- gn--; /* count this game */
- lastLoadGameStart = cm;
- break;
- default:
- /* impossible */
- break;
- }
- break;
-
- case PGNTag:
- switch (lastLoadGameStart) {
- case GNUChessGame:
- case PGNTag:
- case MoveNumberOne:
- case EndOfFile:
- gn--; /* count this game */
- lastLoadGameStart = cm;
- break;
- case XBoardGame:
- lastLoadGameStart = cm; /* game counted already */
- break;
- default:
- /* impossible */
- break;
- }
- if (gn > 0) {
- do {
- yyboardindex = forwardMostMove;
- cm = (ChessMove) Myylex();
- } while (cm == PGNTag || cm == Comment);
- }
- break;
-
- case WhiteWins:
- case BlackWins:
- case GameIsDrawn:
- if (cmailMsgLoaded && (CMAIL_MAX_GAMES == lastLoadGameNumber)) {
- if ( cmailResult[CMAIL_MAX_GAMES - gn - 1]
- != CMAIL_OLD_RESULT) {
- nCmailResults ++ ;
- cmailResult[ CMAIL_MAX_GAMES
- - gn - 1] = CMAIL_OLD_RESULT;
- }
- }
- break;
-
- case NormalMove:
- case FirstLeg:
- /* Only a NormalMove can be at the start of a game
- * without a position diagram. */
- if (lastLoadGameStart == EndOfFile ) {
- gn--;
- lastLoadGameStart = MoveNumberOne;
- }
- break;
-
- default:
- break;
- }
- }
-
- if (appData.debugMode)
- fprintf(debugFP, "Parsed game start '%s' (%d)\n", yy_text, (int) cm);
-
- for(i=0; i<EmptySquare; i++) { FREE(pieceDesc[i]); pieceDesc[i] = NULL; } // reset VariantMen
-
- if (cm == XBoardGame) {
- /* Skip any header junk before position diagram and/or move 1 */
- for (;;) {
- yyboardindex = forwardMostMove;
- cm = (ChessMove) Myylex();
-
- if (cm == EndOfFile ||
- cm == GNUChessGame || cm == XBoardGame) {
- /* Empty game; pretend end-of-file and handle later */
- cm = EndOfFile;
- break;
- }
-
- if (cm == MoveNumberOne || cm == PositionDiagram ||
- cm == PGNTag || cm == Comment)
- break;
- }
- } else if (cm == GNUChessGame) {
- if (gameInfo.event != NULL) {
- free(gameInfo.event);
- }
- gameInfo.event = StrSave(yy_text);
- }
-
- startedFromSetupPosition = startedFromPositionFile; // [HGM]
- while (cm == PGNTag) {
- if (appData.debugMode)
- fprintf(debugFP, "Parsed PGNTag: %s\n", yy_text);
- err = ParsePGNTag(yy_text, &gameInfo);
- if (!err) numPGNTags++;
-
- /* [HGM] PGNvariant: automatically switch to variant given in PGN tag */
- if(gameInfo.variant != oldVariant && (gameInfo.variant != VariantNormal || gameInfo.variantName == NULL || *gameInfo.variantName == NULLCHAR)) {
- startedFromPositionFile = FALSE; /* [HGM] loadPos: variant switch likely makes position invalid */
- ResetFrontEnd(); // [HGM] might need other bitmaps. Cannot use Reset() because it clears gameInfo :-(
- InitPosition(TRUE);
- oldVariant = gameInfo.variant;
- if (appData.debugMode)
- fprintf(debugFP, "New variant %d\n", (int) oldVariant);
- }
-
-
- if (gameInfo.fen != NULL) {
- Board initial_position;
- startedFromSetupPosition = TRUE;
- if (!ParseFEN(initial_position, &blackPlaysFirst, gameInfo.fen, TRUE)) {
- Reset(TRUE, TRUE);
- DisplayError(_("Bad FEN position in file"), 0);
- return FALSE;
- }
- CopyBoard(boards[0], initial_position);
- if(*engineVariant || gameInfo.variant == VariantFairy) // [HGM] for now, assume FEN in engine-defined variant game is default initial position
- CopyBoard(initialPosition, initial_position);
- if (blackPlaysFirst) {
- currentMove = forwardMostMove = backwardMostMove = 1;
- CopyBoard(boards[1], initial_position);
- safeStrCpy(moveList[0], "", sizeof(moveList[0])/sizeof(moveList[0][0]));
- safeStrCpy(parseList[0], "", sizeof(parseList[0])/sizeof(parseList[0][0]));
- timeRemaining[0][1] = whiteTimeRemaining;
- timeRemaining[1][1] = blackTimeRemaining;
- if (commentList[0] != NULL) {
- commentList[1] = commentList[0];
- commentList[0] = NULL;
- }
- } else {
- currentMove = forwardMostMove = backwardMostMove = 0;
- }
- /* [HGM] copy FEN attributes as well. Bugfix 4.3.14m and 4.3.15e: moved to after 'blackPlaysFirst' */
- { int i;
- initialRulePlies = FENrulePlies;
- for( i=0; i< nrCastlingRights; i++ )
- initialRights[i] = initial_position[CASTLING][i];
- }
- yyboardindex = forwardMostMove;
- free(gameInfo.fen);
- gameInfo.fen = NULL;
- }
-
- yyboardindex = forwardMostMove;
- cm = (ChessMove) Myylex();
-
- /* Handle comments interspersed among the tags */
- while (cm == Comment) {
- char *p;
- if (appData.debugMode)
- fprintf(debugFP, "Parsed Comment: %s\n", yy_text);
- p = yy_text;
- AppendComment(currentMove, p, FALSE);
- yyboardindex = forwardMostMove;
- cm = (ChessMove) Myylex();
- }
- }
-
- /* don't rely on existence of Event tag since if game was
- * pasted from clipboard the Event tag may not exist
- */
- if (numPGNTags > 0){
- char *tags;
- if (gameInfo.variant == VariantNormal) {
- VariantClass v = StringToVariant(gameInfo.event);
- // [HGM] do not recognize variants from event tag that were introduced after supporting variant tag
- if(v < VariantShogi) gameInfo.variant = v;
- }
- if (!matchMode) {
- if( appData.autoDisplayTags ) {
- tags = PGNTags(&gameInfo);
- TagsPopUp(tags, CmailMsg());
- free(tags);
- }
- }
- } else {
- /* Make something up, but don't display it now */
- SetGameInfo();
- TagsPopDown();
- }
-
- if (cm == PositionDiagram) {
- int i, j;
- char *p;
- Board initial_position;
-
- if (appData.debugMode)
- fprintf(debugFP, "Parsed PositionDiagram: %s\n", yy_text);
-
- if (!startedFromSetupPosition) {
- p = yy_text;
- for (i = BOARD_HEIGHT - 1; i >= 0; i--)
- for (j = BOARD_LEFT; j < BOARD_RGHT; p++)
- switch (*p) {
- case '{':
- case '[':
- case '-':
- case ' ':
- case '\t':
- case '\n':
- case '\r':
- break;
- default:
- initial_position[i][j++] = CharToPiece(*p);
- break;
- }
- while (*p == ' ' || *p == '\t' ||
- *p == '\n' || *p == '\r') p++;
-
- if (strncmp(p, "black", strlen("black"))==0)
- blackPlaysFirst = TRUE;
- else
- blackPlaysFirst = FALSE;
- startedFromSetupPosition = TRUE;
-
- CopyBoard(boards[0], initial_position);
- if (blackPlaysFirst) {
- currentMove = forwardMostMove = backwardMostMove = 1;
- CopyBoard(boards[1], initial_position);
- safeStrCpy(moveList[0], "", sizeof(moveList[0])/sizeof(moveList[0][0]));
- safeStrCpy(parseList[0], "", sizeof(parseList[0])/sizeof(parseList[0][0]));
- timeRemaining[0][1] = whiteTimeRemaining;
- timeRemaining[1][1] = blackTimeRemaining;
- if (commentList[0] != NULL) {
- commentList[1] = commentList[0];
- commentList[0] = NULL;
- }
- } else {
- currentMove = forwardMostMove = backwardMostMove = 0;
- }
- }
- yyboardindex = forwardMostMove;
- cm = (ChessMove) Myylex();
- }
-
- if(!creatingBook) {
- if (first.pr == NoProc) {
- StartChessProgram(&first);
- }
- InitChessProgram(&first, FALSE);
- if(gameInfo.variant == VariantUnknown && *oldName) {
- safeStrCpy(engineVariant, oldName, MSG_SIZ);
- gameInfo.variant = v;
- }
- SendToProgram("force\n", &first);
- if (startedFromSetupPosition) {
- SendBoard(&first, forwardMostMove);
- if (appData.debugMode) {
- fprintf(debugFP, "Load Game\n");
- }
- DisplayBothClocks();
- }
- }
-
- /* [HGM] server: flag to write setup moves in broadcast file as one */
- loadFlag = appData.suppressLoadMoves;
-
- while (cm == Comment) {
- char *p;
- if (appData.debugMode)
- fprintf(debugFP, "Parsed Comment: %s\n", yy_text);
- p = yy_text;
- AppendComment(currentMove, p, FALSE);
- yyboardindex = forwardMostMove;
- cm = (ChessMove) Myylex();
- }
-
- if ((cm == EndOfFile && lastLoadGameStart != EndOfFile ) ||
- cm == WhiteWins || cm == BlackWins ||
- cm == GameIsDrawn || cm == GameUnfinished) {
- DisplayMessage("", _("No moves in game"));
- if (cmailMsgLoaded) {
- if (appData.debugMode)
- fprintf(debugFP, "Setting flipView to %d.\n", FALSE);
- ClearHighlights();
- flipView = FALSE;
- }
- DrawPosition(FALSE, boards[currentMove]);
- DisplayBothClocks();
- gameMode = EditGame;
- ModeHighlight();
- gameFileFP = NULL;
- cmailOldMove = 0;
- return TRUE;
- }
-
- // [HGM] PV info: routine tests if comment empty
- if (!matchMode && (pausing || appData.timeDelay != 0)) {
- DisplayComment(currentMove - 1, commentList[currentMove]);
- }
- if (!matchMode && appData.timeDelay != 0)
- DrawPosition(FALSE, boards[currentMove]);
-
- if (gameMode == AnalyzeFile || gameMode == AnalyzeMode) {
- programStats.ok_to_send = 1;
- }
-
- /* if the first token after the PGN tags is a move
- * and not move number 1, retrieve it from the parser
- */
- if (cm != MoveNumberOne)
- LoadGameOneMove(cm);
-
- /* load the remaining moves from the file */
- while (LoadGameOneMove(EndOfFile)) {
- timeRemaining[0][forwardMostMove] = whiteTimeRemaining;
- timeRemaining[1][forwardMostMove] = blackTimeRemaining;
- }
-
- /* rewind to the start of the game */
- currentMove = backwardMostMove;
-
- HistorySet(parseList, backwardMostMove, forwardMostMove, currentMove-1);
-
- if (oldGameMode == AnalyzeFile) {
- appData.loadGameIndex = -1; // [HGM] order auto-stepping through games
- AnalyzeFileEvent();
- } else
- if (oldGameMode == AnalyzeMode) {
- AnalyzeFileEvent();
- }
-
- if(gameInfo.result == GameUnfinished && gameInfo.resultDetails && appData.clockMode) {
- long int w, b; // [HGM] adjourn: restore saved clock times
- char *p = strstr(gameInfo.resultDetails, "(Clocks:");
- if(p && sscanf(p+8, "%ld,%ld", &w, &b) == 2) {
- timeRemaining[0][forwardMostMove] = whiteTimeRemaining = 1000*w + 500;
- timeRemaining[1][forwardMostMove] = blackTimeRemaining = 1000*b + 500;
- }
- }
-
- if(creatingBook) return TRUE;
- if (!matchMode && pos > 0) {
- ToNrEvent(pos); // [HGM] no autoplay if selected on position
- } else
- if (matchMode || appData.timeDelay == 0) {
- ToEndEvent();
- } else if (appData.timeDelay > 0) {
- AutoPlayGameLoop();
- }
-
- if (appData.debugMode)
- fprintf(debugFP, "LoadGame(): on exit, gameMode %d\n", gameMode);
-
- loadFlag = 0; /* [HGM] true game starts */
- return TRUE;
-}
-
-/* Support for LoadNextPosition, LoadPreviousPosition, ReloadSamePosition */
-int
-ReloadPosition (int offset)
-{
- int positionNumber = lastLoadPositionNumber + offset;
- if (lastLoadPositionFP == NULL) {
- DisplayError(_("No position has been loaded yet"), 0);
- return FALSE;
- }
- if (positionNumber <= 0) {
- DisplayError(_("Can't back up any further"), 0);
- return FALSE;
- }
- return LoadPosition(lastLoadPositionFP, positionNumber,
- lastLoadPositionTitle);
-}
-
-/* Load the nth position from the given file */
-int
-LoadPositionFromFile (char *filename, int n, char *title)
-{
- FILE *f;
- char buf[MSG_SIZ];
-
- if (strcmp(filename, "-") == 0) {
- return LoadPosition(stdin, n, "stdin");
- } else {
- f = fopen(filename, "rb");
- if (f == NULL) {
- snprintf(buf, sizeof(buf), _("Can't open \"%s\""), filename);
- DisplayError(buf, errno);
- return FALSE;
- } else {
- return LoadPosition(f, n, title);
- }
- }
-}
-
-/* Load the nth position from the given open file, and close it */
-int
-LoadPosition (FILE *f, int positionNumber, char *title)
-{
- char *p, line[MSG_SIZ];
- Board initial_position;
- int i, j, fenMode, pn;
-
- if (gameMode == Training )
- SetTrainingModeOff();
-
- if (gameMode != BeginningOfGame) {
- Reset(FALSE, TRUE);
- }
- if (lastLoadPositionFP != NULL && lastLoadPositionFP != f) {
- fclose(lastLoadPositionFP);
- }
- if (positionNumber == 0) positionNumber = 1;
- lastLoadPositionFP = f;
- lastLoadPositionNumber = positionNumber;
- safeStrCpy(lastLoadPositionTitle, title, sizeof(lastLoadPositionTitle)/sizeof(lastLoadPositionTitle[0]));
- if (first.pr == NoProc && !appData.noChessProgram) {
- StartChessProgram(&first);
- InitChessProgram(&first, FALSE);
- }
- pn = positionNumber;
- if (positionNumber < 0) {
- /* Negative position number means to seek to that byte offset */
- if (fseek(f, -positionNumber, 0) == -1) {
- DisplayError(_("Can't seek on position file"), 0);
- return FALSE;
- };
- pn = 1;
- } else {
- if (fseek(f, 0, 0) == -1) {
- if (f == lastLoadPositionFP ?
- positionNumber == lastLoadPositionNumber + 1 :
- positionNumber == 1) {
- pn = 1;
- } else {
- DisplayError(_("Can't seek on position file"), 0);
- return FALSE;
- }
- }
- }
- /* See if this file is FEN or old-style xboard */
- if (fgets(line, MSG_SIZ, f) == NULL) {
- DisplayError(_("Position not found in file"), 0);
- return FALSE;
- }
- // [HGM] FEN can begin with digit, any piece letter valid in this variant, or a + for Shogi promoted pieces (or * for blackout)
- fenMode = line[0] >= '0' && line[0] <= '9' || line[0] == '+' || line[0] == '*' || CharToPiece(line[0]) != EmptySquare;
-
- if (pn >= 2) {
- if (fenMode || line[0] == '#') pn--;
- while (pn > 0) {
- /* skip positions before number pn */
- if (fgets(line, MSG_SIZ, f) == NULL) {
- Reset(TRUE, TRUE);
- DisplayError(_("Position not found in file"), 0);
- return FALSE;
- }
- if (fenMode || line[0] == '#') pn--;
- }
- }
-
- if (fenMode) {
- char *p;
- if (!ParseFEN(initial_position, &blackPlaysFirst, line, TRUE)) {
- DisplayError(_("Bad FEN position in file"), 0);
- return FALSE;
- }
- if((strchr(line, ';')) && (p = strstr(line, " bm "))) { // EPD with best move
- sscanf(p+4, "%[^;]", bestMove);
- } else *bestMove = NULLCHAR;
- if((strchr(line, ';')) && (p = strstr(line, " am "))) { // EPD with avoid move
- sscanf(p+4, "%[^;]", avoidMove);
- } else *avoidMove = NULLCHAR;
- } else {
- (void) fgets(line, MSG_SIZ, f);
- (void) fgets(line, MSG_SIZ, f);
-
- for (i = BOARD_HEIGHT - 1; i >= 0; i--) {
- (void) fgets(line, MSG_SIZ, f);
- for (p = line, j = BOARD_LEFT; j < BOARD_RGHT; p++) {
- if (*p == ' ')
- continue;
- initial_position[i][j++] = CharToPiece(*p);
- }
- }
-
- blackPlaysFirst = FALSE;
- if (!feof(f)) {
- (void) fgets(line, MSG_SIZ, f);
- if (strncmp(line, "black", strlen("black"))==0)
- blackPlaysFirst = TRUE;
- }
- }
- startedFromSetupPosition = TRUE;
-
- CopyBoard(boards[0], initial_position);
- if (blackPlaysFirst) {
- currentMove = forwardMostMove = backwardMostMove = 1;
- safeStrCpy(moveList[0], "", sizeof(moveList[0])/sizeof(moveList[0][0]));
- safeStrCpy(parseList[0], "", sizeof(parseList[0])/sizeof(parseList[0][0]));
- CopyBoard(boards[1], initial_position);
- DisplayMessage("", _("Black to play"));
- } else {
- currentMove = forwardMostMove = backwardMostMove = 0;
- DisplayMessage("", _("White to play"));
- }
- initialRulePlies = FENrulePlies; /* [HGM] copy FEN attributes as well */
- if(first.pr != NoProc) { // [HGM] in tourney-mode a position can be loaded before the chess engine is installed
- SendToProgram("force\n", &first);
- SendBoard(&first, forwardMostMove);
- }
- if (appData.debugMode) {
-int i, j;
- for(i=0;i<2;i++){for(j=0;j<6;j++)fprintf(debugFP, " %d", boards[i][CASTLING][j]);fprintf(debugFP,"\n");}
- for(j=0;j<6;j++)fprintf(debugFP, " %d", initialRights[j]);fprintf(debugFP,"\n");
- fprintf(debugFP, "Load Position\n");
- }
-
- if (positionNumber > 1) {
- snprintf(line, MSG_SIZ, "%s %d", title, positionNumber);
- DisplayTitle(line);
- } else {
- DisplayTitle(title);
- }
- gameMode = EditGame;
- ModeHighlight();
- ResetClocks();
- timeRemaining[0][1] = whiteTimeRemaining;
- timeRemaining[1][1] = blackTimeRemaining;
- DrawPosition(FALSE, boards[currentMove]);
-
- return TRUE;
-}
-
-
-void
-CopyPlayerNameIntoFileName (char **dest, char *src)
-{
- while (*src != NULLCHAR && *src != ',') {
- if (*src == ' ') {
- *(*dest)++ = '_';
- src++;
- } else {
- *(*dest)++ = *src++;
- }
- }
-}
-
-char *
-DefaultFileName (char *ext)
-{
- static char def[MSG_SIZ];
- char *p;
-
- if (gameInfo.white != NULL && gameInfo.white[0] != '-') {
- p = def;
- CopyPlayerNameIntoFileName(&p, gameInfo.white);
- *p++ = '-';
- CopyPlayerNameIntoFileName(&p, gameInfo.black);
- *p++ = '.';
- safeStrCpy(p, ext, MSG_SIZ-2-strlen(gameInfo.white)-strlen(gameInfo.black));
- } else {
- def[0] = NULLCHAR;
- }
- return def;
-}
-
-/* Save the current game to the given file */
-int
-SaveGameToFile (char *filename, int append)
-{
- FILE *f;
- char buf[MSG_SIZ];
- int result, i, t,tot=0;
-
- if (strcmp(filename, "-") == 0) {
- return SaveGame(stdout, 0, NULL);
- } else {
- for(i=0; i<10; i++) { // upto 10 tries
- f = fopen(filename, append ? "a" : "w");
- if(f && i) fprintf(f, "[Delay \"%d retries, %d msec\"]\n",i,tot);
- if(f || errno != 13) break;
- DoSleep(t = 5 + random()%11); // wait 5-15 msec
- tot += t;
- }
- if (f == NULL) {
- snprintf(buf, sizeof(buf), _("Can't open \"%s\""), filename);
- DisplayError(buf, errno);
- return FALSE;
- } else {
- safeStrCpy(buf, lastMsg, MSG_SIZ);
- DisplayMessage(_("Waiting for access to save file"), "");
- flock(fileno(f), LOCK_EX); // [HGM] lock: lock file while we are writing
- DisplayMessage(_("Saving game"), "");
- if(lseek(fileno(f), 0, SEEK_END) == -1) DisplayError(_("Bad Seek"), errno); // better safe than sorry...
- result = SaveGame(f, 0, NULL);
- DisplayMessage(buf, "");
- return result;
- }
- }
-}
-
-char *
-SavePart (char *str)
-{
- static char buf[MSG_SIZ];
- char *p;
-
- p = strchr(str, ' ');
- if (p == NULL) return str;
- strncpy(buf, str, p - str);
- buf[p - str] = NULLCHAR;
- return buf;
-}
-
-#define PGN_MAX_LINE 75
-
-#define PGN_SIDE_WHITE 0
-#define PGN_SIDE_BLACK 1
-
-static int
-FindFirstMoveOutOfBook (int side)
-{
- int result = -1;
-
- if( backwardMostMove == 0 && ! startedFromSetupPosition) {
- int index = backwardMostMove;
- int has_book_hit = 0;
-
- if( (index % 2) != side ) {
- index++;
- }
-
- while( index < forwardMostMove ) {
- /* Check to see if engine is in book */
- int depth = pvInfoList[index].depth;
- int score = pvInfoList[index].score;
- int in_book = 0;
-
- if( depth <= 2 ) {
- in_book = 1;
- }
- else if( score == 0 && depth == 63 ) {
- in_book = 1; /* Zappa */
- }
- else if( score == 2 && depth == 99 ) {
- in_book = 1; /* Abrok */
- }
-
- has_book_hit += in_book;
-
- if( ! in_book ) {
- result = index;
-
- break;
- }
-
- index += 2;
- }
- }
-
- return result;
-}
-
-void
-GetOutOfBookInfo (char * buf)
-{
- int oob[2];
- int i;
- int offset = backwardMostMove & (~1L); /* output move numbers start at 1 */
-
- oob[0] = FindFirstMoveOutOfBook( PGN_SIDE_WHITE );
- oob[1] = FindFirstMoveOutOfBook( PGN_SIDE_BLACK );
-
- *buf = '\0';
-
- if( oob[0] >= 0 || oob[1] >= 0 ) {
- for( i=0; i<2; i++ ) {
- int idx = oob[i];
-
- if( idx >= 0 ) {
- if( i > 0 && oob[0] >= 0 ) {
- strcat( buf, " " );
- }
-
- sprintf( buf+strlen(buf), "%d%s. ", (idx - offset)/2 + 1, idx & 1 ? ".." : "" );
- sprintf( buf+strlen(buf), "%s%.2f",
- pvInfoList[idx].score >= 0 ? "+" : "",
- pvInfoList[idx].score / 100.0 );
- }
- }
- }
-}
-
-/* Save game in PGN style */
-static void
-SaveGamePGN2 (FILE *f)
-{
- int i, offset, linelen, newblock;
-// char *movetext;
- char numtext[32];
- int movelen, numlen, blank;
- char move_buffer[100]; /* [AS] Buffer for move+PV info */
-
- offset = backwardMostMove & (~1L); /* output move numbers start at 1 */
-
- PrintPGNTags(f, &gameInfo);
-
- if(appData.numberTag && matchMode) fprintf(f, "[Number \"%d\"]\n", nextGame+1); // [HGM] number tag
-
- if (backwardMostMove > 0 || startedFromSetupPosition) {
- char *fen = PositionToFEN(backwardMostMove, NULL, 1);
- fprintf(f, "[FEN \"%s\"]\n[SetUp \"1\"]\n", fen);
- fprintf(f, "\n{--------------\n");
- PrintPosition(f, backwardMostMove);
- fprintf(f, "--------------}\n");
- free(fen);
- }
- else {
- /* [AS] Out of book annotation */
- if( appData.saveOutOfBookInfo ) {
- char buf[64];
-
- GetOutOfBookInfo( buf );
-
- if( buf[0] != '\0' ) {
- fprintf( f, "[%s \"%s\"]\n", PGN_OUT_OF_BOOK, buf );
- }
- }
-
- fprintf(f, "\n");
- }
-
- i = backwardMostMove;
- linelen = 0;
- newblock = TRUE;
-
- while (i < forwardMostMove) {
- /* Print comments preceding this move */
- if (commentList[i] != NULL) {
- if (linelen > 0) fprintf(f, "\n");
- fprintf(f, "%s", commentList[i]);
- linelen = 0;
- newblock = TRUE;
- }
-
- /* Format move number */
- if ((i % 2) == 0)
- snprintf(numtext, sizeof(numtext)/sizeof(numtext[0]),"%d.", (i - offset)/2 + 1);
- else
- if (newblock)
- snprintf(numtext, sizeof(numtext)/sizeof(numtext[0]), "%d...", (i - offset)/2 + 1);
- else
- numtext[0] = NULLCHAR;
-
- numlen = strlen(numtext);
- newblock = FALSE;
-
- /* Print move number */
- blank = linelen > 0 && numlen > 0;
- if (linelen + (blank ? 1 : 0) + numlen > PGN_MAX_LINE) {
- fprintf(f, "\n");
- linelen = 0;
- blank = 0;
- }
- if (blank) {
- fprintf(f, " ");
- linelen++;
- }
- fprintf(f, "%s", numtext);
- linelen += numlen;
-
- /* Get move */
- safeStrCpy(move_buffer, SavePart(parseList[i]), sizeof(move_buffer)/sizeof(move_buffer[0])); // [HGM] pgn: print move via buffer, so it can be edited
- movelen = strlen(move_buffer); /* [HGM] pgn: line-break point before move */
-
- /* Print move */
- blank = linelen > 0 && movelen > 0;
- if (linelen + (blank ? 1 : 0) + movelen > PGN_MAX_LINE) {
- fprintf(f, "\n");
- linelen = 0;
- blank = 0;
- }
- if (blank) {
- fprintf(f, " ");
- linelen++;
- }
- fprintf(f, "%s", move_buffer);
- linelen += movelen;
-
- /* [AS] Add PV info if present */
- if( i >= 0 && appData.saveExtendedInfoInPGN && pvInfoList[i].depth > 0 ) {
- /* [HGM] add time */
- char buf[MSG_SIZ]; int seconds;
-
- seconds = (pvInfoList[i].time+5)/10; // deci-seconds, rounded to nearest
-
- if( seconds <= 0)
- buf[0] = 0;
- else
- if( seconds < 30 )
- snprintf(buf, MSG_SIZ, " %3.1f%c", seconds/10., 0);
- else
- {
- seconds = (seconds + 4)/10; // round to full seconds
- if( seconds < 60 )
- snprintf(buf, MSG_SIZ, " %d%c", seconds, 0);
- else
- snprintf(buf, MSG_SIZ, " %d:%02d%c", seconds/60, seconds%60, 0);
- }
-
- snprintf( move_buffer, sizeof(move_buffer)/sizeof(move_buffer[0]),"{%s%.2f/%d%s}",
- pvInfoList[i].score >= 0 ? "+" : "",
- pvInfoList[i].score / 100.0,
- pvInfoList[i].depth,
- buf );
-
- movelen = strlen(move_buffer); /* [HGM] pgn: line-break point after move */
-
- /* Print score/depth */
- blank = linelen > 0 && movelen > 0;
- if (linelen + (blank ? 1 : 0) + movelen > PGN_MAX_LINE) {
- fprintf(f, "\n");
- linelen = 0;
- blank = 0;
- }
- if (blank) {
- fprintf(f, " ");
- linelen++;
- }
- fprintf(f, "%s", move_buffer);
- linelen += movelen;
- }
-
- i++;
- }
-
- /* Start a new line */
- if (linelen > 0) fprintf(f, "\n");
-
- /* Print comments after last move */
- if (commentList[i] != NULL) {
- fprintf(f, "%s\n", commentList[i]);
- }
-
- /* Print result */
- if (gameInfo.resultDetails != NULL &&
- gameInfo.resultDetails[0] != NULLCHAR) {
- char buf[MSG_SIZ], *p = gameInfo.resultDetails;
- if(gameInfo.result == GameUnfinished && appData.clockMode &&
- (gameMode == MachinePlaysWhite || gameMode == MachinePlaysBlack || gameMode == TwoMachinesPlay)) // [HGM] adjourn: save clock settings
- snprintf(buf, MSG_SIZ, "%s (Clocks: %ld, %ld)", p, whiteTimeRemaining/1000, blackTimeRemaining/1000), p = buf;
- fprintf(f, "{%s} %s\n\n", p, PGNResult(gameInfo.result));
- } else {
- fprintf(f, "%s\n\n", PGNResult(gameInfo.result));
- }
-}
-
-/* Save game in PGN style and close the file */
-int
-SaveGamePGN (FILE *f)
-{
- SaveGamePGN2(f);
- fclose(f);
- lastSavedGame = GameCheckSum(); // [HGM] save: remember ID of last saved game to prevent double saving
- return TRUE;
-}
-
-/* Save game in old style and close the file */
-int
-SaveGameOldStyle (FILE *f)
-{
- int i, offset;
- time_t tm;
-
- tm = time((time_t *) NULL);
-
- fprintf(f, "# %s game file -- %s", programName, ctime(&tm));
- PrintOpponents(f);
-
- if (backwardMostMove > 0 || startedFromSetupPosition) {
- fprintf(f, "\n[--------------\n");
- PrintPosition(f, backwardMostMove);
- fprintf(f, "--------------]\n");
- } else {
- fprintf(f, "\n");
- }
-
- i = backwardMostMove;
- offset = backwardMostMove & (~1L); /* output move numbers start at 1 */
-
- while (i < forwardMostMove) {
- if (commentList[i] != NULL) {
- fprintf(f, "[%s]\n", commentList[i]);
- }
-
- if ((i % 2) == 1) {
- fprintf(f, "%d. ... %s\n", (i - offset)/2 + 1, parseList[i]);
- i++;
- } else {
- fprintf(f, "%d. %s ", (i - offset)/2 + 1, parseList[i]);
- i++;
- if (commentList[i] != NULL) {
- fprintf(f, "\n");
- continue;
- }
- if (i >= forwardMostMove) {
- fprintf(f, "\n");
- break;
- }
- fprintf(f, "%s\n", parseList[i]);
- i++;
- }
- }
-
- if (commentList[i] != NULL) {
- fprintf(f, "[%s]\n", commentList[i]);
- }
-
- /* This isn't really the old style, but it's close enough */
- if (gameInfo.resultDetails != NULL &&
- gameInfo.resultDetails[0] != NULLCHAR) {
- fprintf(f, "%s (%s)\n\n", PGNResult(gameInfo.result),
- gameInfo.resultDetails);
- } else {
- fprintf(f, "%s\n\n", PGNResult(gameInfo.result));
- }
-
- fclose(f);
- return TRUE;
-}
-
-/* Save the current game to open file f and close the file */
-int
-SaveGame (FILE *f, int dummy, char *dummy2)
-{
- if (gameMode == EditPosition) EditPositionDone(TRUE);
- lastSavedGame = GameCheckSum(); // [HGM] save: remember ID of last saved game to prevent double saving
- if (appData.oldSaveStyle)
- return SaveGameOldStyle(f);
- else
- return SaveGamePGN(f);
-}
-
-/* Save the current position to the given file */
-int
-SavePositionToFile (char *filename)
-{
- FILE *f;
- char buf[MSG_SIZ];
-
- if (strcmp(filename, "-") == 0) {
- return SavePosition(stdout, 0, NULL);
- } else {
- f = fopen(filename, "a");
- if (f == NULL) {
- snprintf(buf, sizeof(buf), _("Can't open \"%s\""), filename);
- DisplayError(buf, errno);
- return FALSE;
- } else {
- safeStrCpy(buf, lastMsg, MSG_SIZ);
- DisplayMessage(_("Waiting for access to save file"), "");
- flock(fileno(f), LOCK_EX); // [HGM] lock
- DisplayMessage(_("Saving position"), "");
- lseek(fileno(f), 0, SEEK_END); // better safe than sorry...
- SavePosition(f, 0, NULL);
- DisplayMessage(buf, "");
- return TRUE;
- }
- }
-}
-
-/* Save the current position to the given open file and close the file */
-int
-SavePosition (FILE *f, int dummy, char *dummy2)
-{
- time_t tm;
- char *fen;
-
- if (gameMode == EditPosition) EditPositionDone(TRUE);
- if (appData.oldSaveStyle) {
- tm = time((time_t *) NULL);
-
- fprintf(f, "# %s position file -- %s", programName, ctime(&tm));
- PrintOpponents(f);
- fprintf(f, "[--------------\n");
- PrintPosition(f, currentMove);
- fprintf(f, "--------------]\n");
- } else {
- fen = PositionToFEN(currentMove, NULL, 1);
- fprintf(f, "%s\n", fen);
- free(fen);
- }
- fclose(f);
- return TRUE;
-}
-
-void
-ReloadCmailMsgEvent (int unregister)
-{
-#if !WIN32
- static char *inFilename = NULL;
- static char *outFilename;
- int i;
- struct stat inbuf, outbuf;
- int status;
-
- /* Any registered moves are unregistered if unregister is set, */
- /* i.e. invoked by the signal handler */
- if (unregister) {
- for (i = 0; i < CMAIL_MAX_GAMES; i ++) {
- cmailMoveRegistered[i] = FALSE;
- if (cmailCommentList[i] != NULL) {
- free(cmailCommentList[i]);
- cmailCommentList[i] = NULL;
- }
- }
- nCmailMovesRegistered = 0;
- }
-
- for (i = 0; i < CMAIL_MAX_GAMES; i ++) {
- cmailResult[i] = CMAIL_NOT_RESULT;
- }
- nCmailResults = 0;
-
- if (inFilename == NULL) {
- /* Because the filenames are static they only get malloced once */
- /* and they never get freed */
- inFilename = (char *) malloc(strlen(appData.cmailGameName) + 9);
- sprintf(inFilename, "%s.game.in", appData.cmailGameName);
-
- outFilename = (char *) malloc(strlen(appData.cmailGameName) + 5);
- sprintf(outFilename, "%s.out", appData.cmailGameName);
- }
-
- status = stat(outFilename, &outbuf);
- if (status < 0) {
- cmailMailedMove = FALSE;
- } else {
- status = stat(inFilename, &inbuf);
- cmailMailedMove = (inbuf.st_mtime < outbuf.st_mtime);
- }
-
- /* LoadGameFromFile(CMAIL_MAX_GAMES) with cmailMsgLoaded == TRUE
- counts the games, notes how each one terminated, etc.
-
- It would be nice to remove this kludge and instead gather all
- the information while building the game list. (And to keep it
- in the game list nodes instead of having a bunch of fixed-size
- parallel arrays.) Note this will require getting each game's
- termination from the PGN tags, as the game list builder does
- not process the game moves. --mann
- */
- cmailMsgLoaded = TRUE;
- LoadGameFromFile(inFilename, CMAIL_MAX_GAMES, "", FALSE);
-
- /* Load first game in the file or popup game menu */
- LoadGameFromFile(inFilename, 0, appData.cmailGameName, TRUE);
-
-#endif /* !WIN32 */
- return;
-}
-
-int
-RegisterMove ()
-{
- FILE *f;
- char string[MSG_SIZ];
-
- if ( cmailMailedMove
- || (cmailResult[lastLoadGameNumber - 1] == CMAIL_OLD_RESULT)) {
- return TRUE; /* Allow free viewing */
- }
-
- /* Unregister move to ensure that we don't leave RegisterMove */
- /* with the move registered when the conditions for registering no */
- /* longer hold */
- if (cmailMoveRegistered[lastLoadGameNumber - 1]) {
- cmailMoveRegistered[lastLoadGameNumber - 1] = FALSE;
- nCmailMovesRegistered --;
-
- if (cmailCommentList[lastLoadGameNumber - 1] != NULL)
- {
- free(cmailCommentList[lastLoadGameNumber - 1]);
- cmailCommentList[lastLoadGameNumber - 1] = NULL;
- }
- }
-
- if (cmailOldMove == -1) {
- DisplayError(_("You have edited the game history.\nUse Reload Same Game and make your move again."), 0);
- return FALSE;
- }
-
- if (currentMove > cmailOldMove + 1) {
- DisplayError(_("You have entered too many moves.\nBack up to the correct position and try again."), 0);
- return FALSE;
- }
-
- if (currentMove < cmailOldMove) {
- DisplayError(_("Displayed position is not current.\nStep forward to the correct position and try again."), 0);
- return FALSE;
- }
-
- if (forwardMostMove > currentMove) {
- /* Silently truncate extra moves */
- TruncateGame();
- }
-
- if ( (currentMove == cmailOldMove + 1)
- || ( (currentMove == cmailOldMove)
- && ( (cmailMoveType[lastLoadGameNumber - 1] == CMAIL_ACCEPT)
- || (cmailMoveType[lastLoadGameNumber - 1] == CMAIL_RESIGN)))) {
- if (gameInfo.result != GameUnfinished) {
- cmailResult[lastLoadGameNumber - 1] = CMAIL_NEW_RESULT;
- }
-
- if (commentList[currentMove] != NULL) {
- cmailCommentList[lastLoadGameNumber - 1]
- = StrSave(commentList[currentMove]);
- }
- safeStrCpy(cmailMove[lastLoadGameNumber - 1], moveList[currentMove - 1], sizeof(cmailMove[lastLoadGameNumber - 1])/sizeof(cmailMove[lastLoadGameNumber - 1][0]));
-
- if (appData.debugMode)
- fprintf(debugFP, "Saving %s for game %d\n",
- cmailMove[lastLoadGameNumber - 1], lastLoadGameNumber);
-
- snprintf(string, MSG_SIZ, "%s.game.out.%d", appData.cmailGameName, lastLoadGameNumber);
-
- f = fopen(string, "w");
- if (appData.oldSaveStyle) {
- SaveGameOldStyle(f); /* also closes the file */
-
- snprintf(string, MSG_SIZ, "%s.pos.out", appData.cmailGameName);
- f = fopen(string, "w");
- SavePosition(f, 0, NULL); /* also closes the file */
- } else {
- fprintf(f, "{--------------\n");
- PrintPosition(f, currentMove);
- fprintf(f, "--------------}\n\n");
-
- SaveGame(f, 0, NULL); /* also closes the file*/
- }
-
- cmailMoveRegistered[lastLoadGameNumber - 1] = TRUE;
- nCmailMovesRegistered ++;
- } else if (nCmailGames == 1) {
- DisplayError(_("You have not made a move yet"), 0);
- return FALSE;
- }
-
- return TRUE;
-}
-
-void
-MailMoveEvent ()
-{
-#if !WIN32
- static char *partCommandString = "cmail -xv%s -remail -game %s 2>&1";
- FILE *commandOutput;
- char buffer[MSG_SIZ], msg[MSG_SIZ], string[MSG_SIZ];
- int nBytes = 0; /* Suppress warnings on uninitialized variables */
- int nBuffers;
- int i;
- int archived;
- char *arcDir;
-
- if (! cmailMsgLoaded) {
- DisplayError(_("The cmail message is not loaded.\nUse Reload CMail Message and make your move again."), 0);
- return;
- }
-
- if (nCmailGames == nCmailResults) {
- DisplayError(_("No unfinished games"), 0);
- return;
- }
-
-#if CMAIL_PROHIBIT_REMAIL
- if (cmailMailedMove) {
- snprintf(msg, MSG_SIZ, _("You have already mailed a move.\nWait until a move arrives from your opponent.\nTo resend the same move, type\n\"cmail -remail -game %s\"\non the command line."), appData.cmailGameName);
- DisplayError(msg, 0);
- return;
- }
-#endif
-
- if (! (cmailMailedMove || RegisterMove())) return;
-
- if ( cmailMailedMove
- || (nCmailMovesRegistered + nCmailResults == nCmailGames)) {
- snprintf(string, MSG_SIZ, partCommandString,
- appData.debugMode ? " -v" : "", appData.cmailGameName);
- commandOutput = popen(string, "r");
-
- if (commandOutput == NULL) {
- DisplayError(_("Failed to invoke cmail"), 0);
- } else {
- for (nBuffers = 0; (! feof(commandOutput)); nBuffers ++) {
- nBytes = fread(buffer, 1, MSG_SIZ - 1, commandOutput);
- }
- if (nBuffers > 1) {
- (void) memcpy(msg, buffer + nBytes, MSG_SIZ - nBytes - 1);
- (void) memcpy(msg + MSG_SIZ - nBytes - 1, buffer, nBytes);
- nBytes = MSG_SIZ - 1;
- } else {
- (void) memcpy(msg, buffer, nBytes);
- }
- *(msg + nBytes) = '\0'; /* \0 for end-of-string*/
-
- if(StrStr(msg, "Mailed cmail message to ") != NULL) {
- cmailMailedMove = TRUE; /* Prevent >1 moves */
-
- archived = TRUE;
- for (i = 0; i < nCmailGames; i ++) {
- if (cmailResult[i] == CMAIL_NOT_RESULT) {
- archived = FALSE;
- }
- }
- if ( archived
- && ( (arcDir = (char *) getenv("CMAIL_ARCDIR"))
- != NULL)) {
- snprintf(buffer, MSG_SIZ, "%s/%s.%s.archive",
- arcDir,
- appData.cmailGameName,
- gameInfo.date);
- LoadGameFromFile(buffer, 1, buffer, FALSE);
- cmailMsgLoaded = FALSE;
- }
- }
-
- DisplayInformation(msg);
- pclose(commandOutput);
- }
- } else {
- if ((*cmailMsg) != '\0') {
- DisplayInformation(cmailMsg);
- }
- }
-
- return;
-#endif /* !WIN32 */
-}
-
-char *
-CmailMsg ()
-{
-#if WIN32
- return NULL;
-#else
- int prependComma = 0;
- char number[5];
- char string[MSG_SIZ]; /* Space for game-list */
- int i;
-
- if (!cmailMsgLoaded) return "";
-
- if (cmailMailedMove) {
- snprintf(cmailMsg, MSG_SIZ, _("Waiting for reply from opponent\n"));
- } else {
- /* Create a list of games left */
- snprintf(string, MSG_SIZ, "[");
- for (i = 0; i < nCmailGames; i ++) {
- if (! ( cmailMoveRegistered[i]
- || (cmailResult[i] == CMAIL_OLD_RESULT))) {
- if (prependComma) {
- snprintf(number, sizeof(number)/sizeof(number[0]), ",%d", i + 1);
- } else {
- snprintf(number, sizeof(number)/sizeof(number[0]), "%d", i + 1);
- prependComma = 1;
- }
-
- strcat(string, number);
- }
- }
- strcat(string, "]");
-
- if (nCmailMovesRegistered + nCmailResults == 0) {
- switch (nCmailGames) {
- case 1:
- snprintf(cmailMsg, MSG_SIZ, _("Still need to make move for game\n"));
- break;
-
- case 2:
- snprintf(cmailMsg, MSG_SIZ, _("Still need to make moves for both games\n"));
- break;
-
- default:
- snprintf(cmailMsg, MSG_SIZ, _("Still need to make moves for all %d games\n"),
- nCmailGames);
- break;
- }
- } else {
- switch (nCmailGames - nCmailMovesRegistered - nCmailResults) {
- case 1:
- snprintf(cmailMsg, MSG_SIZ, _("Still need to make a move for game %s\n"),
- string);
- break;
-
- case 0:
- if (nCmailResults == nCmailGames) {
- snprintf(cmailMsg, MSG_SIZ, _("No unfinished games\n"));
- } else {
- snprintf(cmailMsg, MSG_SIZ, _("Ready to send mail\n"));
- }
- break;
-
- default:
- snprintf(cmailMsg, MSG_SIZ, _("Still need to make moves for games %s\n"),
- string);
- }
- }
- }
- return cmailMsg;
-#endif /* WIN32 */
-}
-
-void
-ResetGameEvent ()
-{
- if (gameMode == Training)
- SetTrainingModeOff();
-
- Reset(TRUE, TRUE);
- cmailMsgLoaded = FALSE;
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("refresh\n");
- }
-}
-
-void
-ExitEvent (int status)
-{
- exiting++;
- if (exiting > 2) {
- /* Give up on clean exit */
- exit(status);
- }
- if (exiting > 1) {
- /* Keep trying for clean exit */
- return;
- }
-
- if (appData.icsActive) printf("\n"); // [HGM] end on new line after closing XBoard
- if (appData.icsActive && appData.colorize) Colorize(ColorNone, FALSE);
-
- if (telnetISR != NULL) {
- RemoveInputSource(telnetISR);
- }
- if (icsPR != NoProc) {
- DestroyChildProcess(icsPR, TRUE);
- }
-
- /* [HGM] crash: leave writing PGN and position entirely to GameEnds() */
- GameEnds(gameInfo.result, gameInfo.resultDetails==NULL ? "xboard exit" : gameInfo.resultDetails, GE_PLAYER);
-
- /* [HGM] crash: the above GameEnds() is a dud if another one was running */
- /* make sure this other one finishes before killing it! */
- if(endingGame) { int count = 0;
- if(appData.debugMode) fprintf(debugFP, "ExitEvent() during GameEnds(), wait\n");
- while(endingGame && count++ < 10) DoSleep(1);
- if(appData.debugMode && endingGame) fprintf(debugFP, "GameEnds() seems stuck, proceed exiting\n");
- }
-
- /* Kill off chess programs */
- if (first.pr != NoProc) {
- ExitAnalyzeMode();
-
- DoSleep( appData.delayBeforeQuit );
- SendToProgram("quit\n", &first);
- DestroyChildProcess(first.pr, 4 + first.useSigterm /* [AS] first.useSigterm */ );
- }
- if (second.pr != NoProc) {
- DoSleep( appData.delayBeforeQuit );
- SendToProgram("quit\n", &second);
- DestroyChildProcess(second.pr, 4 + second.useSigterm /* [AS] second.useSigterm */ );
- }
- if (first.isr != NULL) {
- RemoveInputSource(first.isr);
- }
- if (second.isr != NULL) {
- RemoveInputSource(second.isr);
- }
-
- if (pairing.pr != NoProc) SendToProgram("quit\n", &pairing);
- if (pairing.isr != NULL) RemoveInputSource(pairing.isr);
-
- ShutDownFrontEnd();
- exit(status);
-}
-
-void
-PauseEngine (ChessProgramState *cps)
-{
- SendToProgram("pause\n", cps);
- cps->pause = 2;
-}
-
-void
-UnPauseEngine (ChessProgramState *cps)
-{
- SendToProgram("resume\n", cps);
- cps->pause = 1;
-}
-
-void
-PauseEvent ()
-{
- if (appData.debugMode)
- fprintf(debugFP, "PauseEvent(): pausing %d\n", pausing);
- if (pausing) {
- pausing = FALSE;
- ModeHighlight();
- if(stalledEngine) { // [HGM] pause: resume game by releasing withheld move
- StartClocks();
- if(gameMode == TwoMachinesPlay) { // we might have to make the opponent resume pondering
- if(stalledEngine->other->pause == 2) UnPauseEngine(stalledEngine->other);
- else if(appData.ponderNextMove) SendToProgram("hard\n", stalledEngine->other);
- }
- if(appData.ponderNextMove) SendToProgram("hard\n", stalledEngine);
- HandleMachineMove(stashedInputMove, stalledEngine);
- stalledEngine = NULL;
- return;
- }
- if (gameMode == MachinePlaysWhite ||
- gameMode == TwoMachinesPlay ||
- gameMode == MachinePlaysBlack) { // the thinking engine must have used pause mode, or it would have been stalledEngine
- if(first.pause) UnPauseEngine(&first);
- else if(appData.ponderNextMove) SendToProgram("hard\n", &first);
- if(second.pause) UnPauseEngine(&second);
- else if(gameMode == TwoMachinesPlay && appData.ponderNextMove) SendToProgram("hard\n", &second);
- StartClocks();
- } else {
- DisplayBothClocks();
- }
- if (gameMode == PlayFromGameFile) {
- if (appData.timeDelay >= 0)
- AutoPlayGameLoop();
- } else if (gameMode == IcsExamining && pauseExamInvalid) {
- Reset(FALSE, TRUE);
- SendToICS(ics_prefix);
- SendToICS("refresh\n");
- } else if (currentMove < forwardMostMove && gameMode != AnalyzeMode) {
- ForwardInner(forwardMostMove);
- }
- pauseExamInvalid = FALSE;
- } else {
- switch (gameMode) {
- default:
- return;
- case IcsExamining:
- pauseExamForwardMostMove = forwardMostMove;
- pauseExamInvalid = FALSE;
- /* fall through */
- case IcsObserving:
- case IcsPlayingWhite:
- case IcsPlayingBlack:
- pausing = TRUE;
- ModeHighlight();
- return;
- case PlayFromGameFile:
- (void) StopLoadGameTimer();
- pausing = TRUE;
- ModeHighlight();
- break;
- case BeginningOfGame:
- if (appData.icsActive) return;
- /* else fall through */
- case MachinePlaysWhite:
- case MachinePlaysBlack:
- case TwoMachinesPlay:
- if (forwardMostMove == 0)
- return; /* don't pause if no one has moved */
- if(gameMode == TwoMachinesPlay) { // [HGM] pause: stop clocks if engine can be paused immediately
- ChessProgramState *onMove = (WhiteOnMove(forwardMostMove) == (first.twoMachinesColor[0] == 'w') ? &first : &second);
- if(onMove->pause) { // thinking engine can be paused
- PauseEngine(onMove); // do it
- if(onMove->other->pause) // pondering opponent can always be paused immediately
- PauseEngine(onMove->other);
- else
- SendToProgram("easy\n", onMove->other);
- StopClocks();
- } else if(appData.ponderNextMove) SendToProgram("easy\n", onMove); // pre-emptively bring out of ponder
- } else if(gameMode == (WhiteOnMove(forwardMostMove) ? MachinePlaysWhite : MachinePlaysBlack)) { // engine on move
- if(first.pause) {
- PauseEngine(&first);
- StopClocks();
- } else if(appData.ponderNextMove) SendToProgram("easy\n", &first); // pre-emptively bring out of ponder
- } else { // human on move, pause pondering by either method
- if(first.pause)
- PauseEngine(&first);
- else if(appData.ponderNextMove)
- SendToProgram("easy\n", &first);
- StopClocks();
- }
- // if no immediate pausing is possible, wait for engine to move, and stop clocks then
- case AnalyzeMode:
- pausing = TRUE;
- ModeHighlight();
- break;
- }
- }
-}
-
-void
-EditCommentEvent ()
-{
- char title[MSG_SIZ];
-
- if (currentMove < 1 || parseList[currentMove - 1][0] == NULLCHAR) {
- safeStrCpy(title, _("Edit comment"), sizeof(title)/sizeof(title[0]));
- } else {
- snprintf(title, MSG_SIZ, _("Edit comment on %d.%s%s"), (currentMove - 1) / 2 + 1,
- WhiteOnMove(currentMove - 1) ? " " : ".. ",
- parseList[currentMove - 1]);
- }
-
- EditCommentPopUp(currentMove, title, commentList[currentMove]);
-}
-
-
-void
-EditTagsEvent ()
-{
- char *tags = PGNTags(&gameInfo);
- bookUp = FALSE;
- EditTagsPopUp(tags, NULL);
- free(tags);
-}
-
-void
-ToggleSecond ()
-{
- if(second.analyzing) {
- SendToProgram("exit\n", &second);
- second.analyzing = FALSE;
- } else {
- if (second.pr == NoProc) StartChessProgram(&second);
- InitChessProgram(&second, FALSE);
- FeedMovesToProgram(&second, currentMove);
-
- SendToProgram("analyze\n", &second);
- second.analyzing = TRUE;
- }
-}
-
-/* Toggle ShowThinking */
-void
-ToggleShowThinking()
-{
- appData.showThinking = !appData.showThinking;
- ShowThinkingEvent();
-}
-
-int
-AnalyzeModeEvent ()
-{
- char buf[MSG_SIZ];
-
- if (!first.analysisSupport) {
- snprintf(buf, sizeof(buf), _("%s does not support analysis"), first.tidy);
- DisplayError(buf, 0);
- return 0;
- }
- /* [DM] icsEngineAnalyze [HGM] This is horrible code; reverse the gameMode and isEngineAnalyze tests! */
- if (appData.icsActive) {
- if (gameMode != IcsObserving) {
- snprintf(buf, MSG_SIZ, _("You are not observing a game"));
- DisplayError(buf, 0);
- /* secure check */
- if (appData.icsEngineAnalyze) {
- if (appData.debugMode)
- fprintf(debugFP, "Found unexpected active ICS engine analyze \n");
- ExitAnalyzeMode();
- ModeHighlight();
- }
- return 0;
- }
- /* if enable, user wants to disable icsEngineAnalyze */
- if (appData.icsEngineAnalyze) {
- ExitAnalyzeMode();
- ModeHighlight();
- return 0;
- }
- appData.icsEngineAnalyze = TRUE;
- if (appData.debugMode)
- fprintf(debugFP, "ICS engine analyze starting... \n");
- }
-
- if (gameMode == AnalyzeMode) { ToggleSecond(); return 0; }
- if (appData.noChessProgram || gameMode == AnalyzeMode)
- return 0;
-
- if (gameMode != AnalyzeFile) {
- if (!appData.icsEngineAnalyze) {
- EditGameEvent();
- if (gameMode != EditGame) return 0;
- }
- if (!appData.showThinking) ToggleShowThinking();
- ResurrectChessProgram();
- SendToProgram("analyze\n", &first);
- first.analyzing = TRUE;
- /*first.maybeThinking = TRUE;*/
- first.maybeThinking = FALSE; /* avoid killing GNU Chess */
- EngineOutputPopUp();
- }
- if (!appData.icsEngineAnalyze) {
- gameMode = AnalyzeMode;
- ClearEngineOutputPane(0); // [TK] exclude: to print exclusion/multipv header
- }
- pausing = FALSE;
- ModeHighlight();
- SetGameInfo();
-
- StartAnalysisClock();
- GetTimeMark(&lastNodeCountTime);
- lastNodeCount = 0;
- return 1;
-}
-
-void
-AnalyzeFileEvent ()
-{
- if (appData.noChessProgram || gameMode == AnalyzeFile)
- return;
-
- if (!first.analysisSupport) {
- char buf[MSG_SIZ];
- snprintf(buf, sizeof(buf), _("%s does not support analysis"), first.tidy);
- DisplayError(buf, 0);
- return;
- }
-
- if (gameMode != AnalyzeMode) {
- keepInfo = 1; // mere annotating should not alter PGN tags
- EditGameEvent();
- keepInfo = 0;
- if (gameMode != EditGame) return;
- if (!appData.showThinking) ToggleShowThinking();
- ResurrectChessProgram();
- SendToProgram("analyze\n", &first);
- first.analyzing = TRUE;
- /*first.maybeThinking = TRUE;*/
- first.maybeThinking = FALSE; /* avoid killing GNU Chess */
- EngineOutputPopUp();
- }
- gameMode = AnalyzeFile;
- pausing = FALSE;
- ModeHighlight();
-
- StartAnalysisClock();
- GetTimeMark(&lastNodeCountTime);
- lastNodeCount = 0;
- if(appData.timeDelay > 0) StartLoadGameTimer((long)(1000.0f * appData.timeDelay));
- AnalysisPeriodicEvent(1);
-}
-
-void
-MachineWhiteEvent ()
-{
- char buf[MSG_SIZ];
- char *bookHit = NULL;
-
- if (appData.noChessProgram || (gameMode == MachinePlaysWhite))
- return;
-
-
- if (gameMode == PlayFromGameFile ||
- gameMode == TwoMachinesPlay ||
- gameMode == Training ||
- gameMode == AnalyzeMode ||
- gameMode == EndOfGame)
- EditGameEvent();
-
- if (gameMode == EditPosition)
- EditPositionDone(TRUE);
-
- if (!WhiteOnMove(currentMove)) {
- DisplayError(_("It is not White's turn"), 0);
- return;
- }
-
- if (gameMode == AnalyzeMode || gameMode == AnalyzeFile)
- ExitAnalyzeMode();
-
- if (gameMode == EditGame || gameMode == AnalyzeMode ||
- gameMode == AnalyzeFile)
- TruncateGame();
-
- ResurrectChessProgram(); /* in case it isn't running */
- if(gameMode == BeginningOfGame) { /* [HGM] time odds: to get right odds in human mode */
- gameMode = MachinePlaysWhite;
- ResetClocks();
- } else
- gameMode = MachinePlaysWhite;
- pausing = FALSE;
- ModeHighlight();
- SetGameInfo();
- snprintf(buf, MSG_SIZ, "%s %s %s", gameInfo.white, _("vs."), gameInfo.black);
- DisplayTitle(buf);
- if (first.sendName) {
- snprintf(buf, MSG_SIZ, "name %s\n", gameInfo.black);
- SendToProgram(buf, &first);
- }
- if (first.sendTime) {
- if (first.useColors) {
- SendToProgram("black\n", &first); /*gnu kludge*/
- }
- SendTimeRemaining(&first, TRUE);
- }
- if (first.useColors) {
- SendToProgram("white\n", &first); // [HGM] book: send 'go' separately
- }
- bookHit = SendMoveToBookUser(forwardMostMove-1, &first, TRUE); // [HGM] book: send go or retrieve book move
- SetMachineThinkingEnables();
- first.maybeThinking = TRUE;
- StartClocks();
- firstMove = FALSE;
-
- if (appData.autoFlipView && !flipView) {
- flipView = !flipView;
- DrawPosition(FALSE, NULL);
- DisplayBothClocks(); // [HGM] logo: clocks might have to be exchanged;
- }
-
- if(bookHit) { // [HGM] book: simulate book reply
- static char bookMove[MSG_SIZ]; // a bit generous?
-
- programStats.nodes = programStats.depth = programStats.time =
- programStats.score = programStats.got_only_move = 0;
- sprintf(programStats.movelist, "%s (xbook)", bookHit);
-
- safeStrCpy(bookMove, "move ", sizeof(bookMove)/sizeof(bookMove[0]));
- strcat(bookMove, bookHit);
- HandleMachineMove(bookMove, &first);
- }
-}
-
-void
-MachineBlackEvent ()
-{
- char buf[MSG_SIZ];
- char *bookHit = NULL;
-
- if (appData.noChessProgram || (gameMode == MachinePlaysBlack))
- return;
-
-
- if (gameMode == PlayFromGameFile ||
- gameMode == TwoMachinesPlay ||
- gameMode == Training ||
- gameMode == AnalyzeMode ||
- gameMode == EndOfGame)
- EditGameEvent();
-
- if (gameMode == EditPosition)
- EditPositionDone(TRUE);
-
- if (WhiteOnMove(currentMove)) {
- DisplayError(_("It is not Black's turn"), 0);
- return;
- }
-
- if (gameMode == AnalyzeMode || gameMode == AnalyzeFile)
- ExitAnalyzeMode();
-
- if (gameMode == EditGame || gameMode == AnalyzeMode ||
- gameMode == AnalyzeFile)
- TruncateGame();
-
- ResurrectChessProgram(); /* in case it isn't running */
- gameMode = MachinePlaysBlack;
- pausing = FALSE;
- ModeHighlight();
- SetGameInfo();
- snprintf(buf, MSG_SIZ, "%s %s %s", gameInfo.white, _("vs."), gameInfo.black);
- DisplayTitle(buf);
- if (first.sendName) {
- snprintf(buf, MSG_SIZ, "name %s\n", gameInfo.white);
- SendToProgram(buf, &first);
- }
- if (first.sendTime) {
- if (first.useColors) {
- SendToProgram("white\n", &first); /*gnu kludge*/
- }
- SendTimeRemaining(&first, FALSE);
- }
- if (first.useColors) {
- SendToProgram("black\n", &first); // [HGM] book: 'go' sent separately
- }
- bookHit = SendMoveToBookUser(forwardMostMove-1, &first, TRUE); // [HGM] book: send go or retrieve book move
- SetMachineThinkingEnables();
- first.maybeThinking = TRUE;
- StartClocks();
-
- if (appData.autoFlipView && flipView) {
- flipView = !flipView;
- DrawPosition(FALSE, NULL);
- DisplayBothClocks(); // [HGM] logo: clocks might have to be exchanged;
- }
- if(bookHit) { // [HGM] book: simulate book reply
- static char bookMove[MSG_SIZ]; // a bit generous?
-
- programStats.nodes = programStats.depth = programStats.time =
- programStats.score = programStats.got_only_move = 0;
- sprintf(programStats.movelist, "%s (xbook)", bookHit);
-
- safeStrCpy(bookMove, "move ", sizeof(bookMove)/sizeof(bookMove[0]));
- strcat(bookMove, bookHit);
- HandleMachineMove(bookMove, &first);
- }
-}
-
-
-void
-DisplayTwoMachinesTitle ()
-{
- char buf[MSG_SIZ];
- if (appData.matchGames > 0) {
- if(appData.tourneyFile[0]) {
- snprintf(buf, MSG_SIZ, "%s %s %s (%d/%d%s)",
- gameInfo.white, _("vs."), gameInfo.black,
- nextGame+1, appData.matchGames+1,
- appData.tourneyType>0 ? "gt" : appData.tourneyType<0 ? "sw" : "rr");
- } else
- if (first.twoMachinesColor[0] == 'w') {
- snprintf(buf, MSG_SIZ, "%s %s %s (%d-%d-%d)",
- gameInfo.white, _("vs."), gameInfo.black,
- first.matchWins, second.matchWins,
- matchGame - 1 - (first.matchWins + second.matchWins));
- } else {
- snprintf(buf, MSG_SIZ, "%s %s %s (%d-%d-%d)",
- gameInfo.white, _("vs."), gameInfo.black,
- second.matchWins, first.matchWins,
- matchGame - 1 - (first.matchWins + second.matchWins));
- }
- } else {
- snprintf(buf, MSG_SIZ, "%s %s %s", gameInfo.white, _("vs."), gameInfo.black);
- }
- DisplayTitle(buf);
-}
-
-void
-SettingsMenuIfReady ()
-{
- if (second.lastPing != second.lastPong) {
- DisplayMessage("", _("Waiting for second chess program"));
- ScheduleDelayedEvent(SettingsMenuIfReady, 10); // [HGM] fast: lowered from 1000
- return;
- }
- ThawUI();
- DisplayMessage("", "");
- SettingsPopUp(&second);
-}
-
-int
-WaitForEngine (ChessProgramState *cps, DelayedEventCallback retry)
-{
- char buf[MSG_SIZ];
- if (cps->pr == NoProc) {
- StartChessProgram(cps);
- if (cps->protocolVersion == 1) {
- retry();
- ScheduleDelayedEvent(retry, 1); // Do this also through timeout to avoid recursive calling of 'retry'
- } else {
- /* kludge: allow timeout for initial "feature" command */
- if(retry != TwoMachinesEventIfReady) FreezeUI();
- snprintf(buf, MSG_SIZ, _("Starting %s chess program"), _(cps->which));
- DisplayMessage("", buf);
- ScheduleDelayedEvent(retry, FEATURE_TIMEOUT);
- }
- return 1;
- }
- return 0;
-}
-
-void
-TwoMachinesEvent P((void))
-{
- int i;
- char buf[MSG_SIZ];
- ChessProgramState *onmove;
- char *bookHit = NULL;
- static int stalling = 0;
- TimeMark now;
- long wait;
-
- if (appData.noChessProgram) return;
-
- switch (gameMode) {
- case TwoMachinesPlay:
- return;
- case MachinePlaysWhite:
- case MachinePlaysBlack:
- if (WhiteOnMove(forwardMostMove) == (gameMode == MachinePlaysWhite)) {
- DisplayError(_("Wait until your turn,\nor select 'Move Now'."), 0);
- return;
- }
- /* fall through */
- case BeginningOfGame:
- case PlayFromGameFile:
- case EndOfGame:
- EditGameEvent();
- if (gameMode != EditGame) return;
- break;
- case EditPosition:
- EditPositionDone(TRUE);
- break;
- case AnalyzeMode:
- case AnalyzeFile:
- ExitAnalyzeMode();
- break;
- case EditGame:
- default:
- break;
- }
-
-// forwardMostMove = currentMove;
- TruncateGame(); // [HGM] vari: MachineWhite and MachineBlack do this...
- startingEngine = TRUE;
-
- if(!ResurrectChessProgram()) return; /* in case first program isn't running (unbalances its ping due to InitChessProgram!) */
-
- if(!first.initDone && GetDelayedEvent() == TwoMachinesEventIfReady) return; // [HGM] engine #1 still waiting for feature timeout
- if(first.lastPing != first.lastPong) { // [HGM] wait till we are sure first engine has set up position
- ScheduleDelayedEvent(TwoMachinesEventIfReady, 10);
- return;
- }
- if(!appData.epd) {
- if(WaitForEngine(&second, TwoMachinesEventIfReady)) return; // (if needed:) started up second engine, so wait for features
-
- if(!SupportedVariant(second.variants, gameInfo.variant, gameInfo.boardWidth,
- gameInfo.boardHeight, gameInfo.holdingsSize, second.protocolVersion, second.tidy)) {
- startingEngine = matchMode = FALSE;
- DisplayError("second engine does not play this", 0);
- gameMode = TwoMachinesPlay; ModeHighlight(); // Needed to make sure menu item is unchecked
- EditGameEvent(); // switch back to EditGame mode
- return;
- }
-
- if(!stalling) {
- InitChessProgram(&second, FALSE); // unbalances ping of second engine
- SendToProgram("force\n", &second);
- stalling = 1;
- ScheduleDelayedEvent(TwoMachinesEventIfReady, 10);
- return;
- }
- }
- GetTimeMark(&now); // [HGM] matchpause: implement match pause after engine load
- if(appData.matchPause>10000 || appData.matchPause<10)
- appData.matchPause = 10000; /* [HGM] make pause adjustable */
- wait = SubtractTimeMarks(&now, &pauseStart);
- if(wait < appData.matchPause) {
- ScheduleDelayedEvent(TwoMachinesEventIfReady, appData.matchPause - wait);
- return;
- }
- // we are now committed to starting the game
- stalling = 0;
- DisplayMessage("", "");
- if(!appData.epd) {
- if (startedFromSetupPosition) {
- SendBoard(&second, backwardMostMove);
- if (appData.debugMode) {
- fprintf(debugFP, "Two Machines\n");
- }
- }
- for (i = backwardMostMove; i < forwardMostMove; i++) {
- SendMoveToProgram(i, &second);
- }
- }
-
- gameMode = TwoMachinesPlay;
- pausing = startingEngine = FALSE;
- ModeHighlight(); // [HGM] logo: this triggers display update of logos
- SetGameInfo();
- DisplayTwoMachinesTitle();
- firstMove = TRUE;
- if ((first.twoMachinesColor[0] == 'w') == WhiteOnMove(forwardMostMove)) {
- onmove = &first;
- } else {
- onmove = &second;
- }
- if(appData.debugMode) fprintf(debugFP, "New game (%d): %s-%s (%c)\n", matchGame, first.tidy, second.tidy, first.twoMachinesColor[0]);
- SendToProgram(first.computerString, &first);
- if (first.sendName) {
- snprintf(buf, MSG_SIZ, "name %s\n", second.tidy);
- SendToProgram(buf, &first);
- }
- if(!appData.epd) {
- SendToProgram(second.computerString, &second);
- if (second.sendName) {
- snprintf(buf, MSG_SIZ, "name %s\n", first.tidy);
- SendToProgram(buf, &second);
- }
- }
-
- ResetClocks();
- if (!first.sendTime || !second.sendTime) {
- timeRemaining[0][forwardMostMove] = whiteTimeRemaining;
- timeRemaining[1][forwardMostMove] = blackTimeRemaining;
- }
- if (onmove->sendTime) {
- if (onmove->useColors) {
- SendToProgram(onmove->other->twoMachinesColor, onmove); /*gnu kludge*/
- }
- SendTimeRemaining(onmove, WhiteOnMove(forwardMostMove));
- }
- if (onmove->useColors) {
- SendToProgram(onmove->twoMachinesColor, onmove);
- }
- bookHit = SendMoveToBookUser(forwardMostMove-1, onmove, TRUE); // [HGM] book: send go or retrieve book move
-// SendToProgram("go\n", onmove);
- onmove->maybeThinking = TRUE;
- SetMachineThinkingEnables();
-
- StartClocks();
-
- if(bookHit) { // [HGM] book: simulate book reply
- static char bookMove[MSG_SIZ]; // a bit generous?
-
- programStats.nodes = programStats.depth = programStats.time =
- programStats.score = programStats.got_only_move = 0;
- sprintf(programStats.movelist, "%s (xbook)", bookHit);
-
- safeStrCpy(bookMove, "move ", sizeof(bookMove)/sizeof(bookMove[0]));
- strcat(bookMove, bookHit);
- savedMessage = bookMove; // args for deferred call
- savedState = onmove;
- ScheduleDelayedEvent(DeferredBookMove, 1);
- }
-}
-
-void
-TrainingEvent ()
-{
- if (gameMode == Training) {
- SetTrainingModeOff();
- gameMode = PlayFromGameFile;
- DisplayMessage("", _("Training mode off"));
- } else {
- gameMode = Training;
- animateTraining = appData.animate;
-
- /* make sure we are not already at the end of the game */
- if (currentMove < forwardMostMove) {
- SetTrainingModeOn();
- DisplayMessage("", _("Training mode on"));
- } else {
- gameMode = PlayFromGameFile;
- DisplayError(_("Already at end of game"), 0);
- }
- }
- ModeHighlight();
-}
-
-void
-IcsClientEvent ()
-{
- if (!appData.icsActive) return;
- switch (gameMode) {
- case IcsPlayingWhite:
- case IcsPlayingBlack:
- case IcsObserving:
- case IcsIdle:
- case BeginningOfGame:
- case IcsExamining:
- return;
-
- case EditGame:
- break;
-
- case EditPosition:
- EditPositionDone(TRUE);
- break;
-
- case AnalyzeMode:
- case AnalyzeFile:
- ExitAnalyzeMode();
- break;
-
- default:
- EditGameEvent();
- break;
- }
-
- gameMode = IcsIdle;
- ModeHighlight();
- return;
-}
-
-void
-EditGameEvent ()
-{
- int i;
-
- switch (gameMode) {
- case Training:
- SetTrainingModeOff();
- break;
- case MachinePlaysWhite:
- case MachinePlaysBlack:
- case BeginningOfGame:
- SendToProgram("force\n", &first);
- if(gameMode == (forwardMostMove & 1 ? MachinePlaysBlack : MachinePlaysWhite)) { // engine is thinking
- if (first.usePing) { // [HGM] always send ping when we might interrupt machine thinking
- char buf[MSG_SIZ];
- abortEngineThink = TRUE;
- snprintf(buf, MSG_SIZ, "ping %d\n", initPing = ++first.lastPing);
- SendToProgram(buf, &first);
- DisplayMessage("Aborting engine think", "");
- FreezeUI();
- }
- }
- SetUserThinkingEnables();
- break;
- case PlayFromGameFile:
- (void) StopLoadGameTimer();
- if (gameFileFP != NULL) {
- gameFileFP = NULL;
- }
- break;
- case EditPosition:
- EditPositionDone(TRUE);
- break;
- case AnalyzeMode:
- case AnalyzeFile:
- ExitAnalyzeMode();
- SendToProgram("force\n", &first);
- break;
- case TwoMachinesPlay:
- GameEnds(EndOfFile, NULL, GE_PLAYER);
- ResurrectChessProgram();
- SetUserThinkingEnables();
- break;
- case EndOfGame:
- ResurrectChessProgram();
- break;
- case IcsPlayingBlack:
- case IcsPlayingWhite:
- DisplayError(_("Warning: You are still playing a game"), 0);
- break;
- case IcsObserving:
- DisplayError(_("Warning: You are still observing a game"), 0);
- break;
- case IcsExamining:
- DisplayError(_("Warning: You are still examining a game"), 0);
- break;
- case IcsIdle:
- break;
- case EditGame:
- default:
- return;
- }
-
- pausing = FALSE;
- StopClocks();
- first.offeredDraw = second.offeredDraw = 0;
-
- if (gameMode == PlayFromGameFile) {
- whiteTimeRemaining = timeRemaining[0][currentMove];
- blackTimeRemaining = timeRemaining[1][currentMove];
- DisplayTitle("");
- }
-
- if (gameMode == MachinePlaysWhite ||
- gameMode == MachinePlaysBlack ||
- gameMode == TwoMachinesPlay ||
- gameMode == EndOfGame) {
- i = forwardMostMove;
- while (i > currentMove) {
- SendToProgram("undo\n", &first);
- i--;
- }
- if(!adjustedClock) {
- whiteTimeRemaining = timeRemaining[0][currentMove];
- blackTimeRemaining = timeRemaining[1][currentMove];
- DisplayBothClocks();
- }
- if (whiteFlag || blackFlag) {
- whiteFlag = blackFlag = 0;
- }
- DisplayTitle("");
- }
-
- gameMode = EditGame;
- ModeHighlight();
- SetGameInfo();
-}
-
-void
-EditPositionEvent ()
-{
- int i;
- if (gameMode == EditPosition) {
- EditGameEvent();
- return;
- }
-
- EditGameEvent();
- if (gameMode != EditGame) return;
-
- gameMode = EditPosition;
- ModeHighlight();
- SetGameInfo();
- CopyBoard(rightsBoard, nullBoard);
- if (currentMove > 0)
- CopyBoard(boards[0], boards[currentMove]);
- for(i=0; i<nrCastlingRights; i++) if(boards[0][CASTLING][i] != NoRights)
- rightsBoard[castlingRank[i]][boards[0][CASTLING][i]] = 1; // copy remaining rights
-
- blackPlaysFirst = !WhiteOnMove(currentMove);
- ResetClocks();
- currentMove = forwardMostMove = backwardMostMove = 0;
- HistorySet(parseList, backwardMostMove, forwardMostMove, currentMove-1);
- DisplayMove(-1);
- if(!appData.pieceMenu) DisplayMessage(_("Click clock to clear board"), "");
-}
-
-void
-ExitAnalyzeMode ()
-{
- /* [DM] icsEngineAnalyze - possible call from other functions */
- if (appData.icsEngineAnalyze) {
- appData.icsEngineAnalyze = FALSE;
-
- DisplayMessage("",_("Close ICS engine analyze..."));
- }
- if (first.analysisSupport && first.analyzing) {
- SendToBoth("exit\n");
- first.analyzing = second.analyzing = FALSE;
- }
- thinkOutput[0] = NULLCHAR;
-}
-
-void
-EditPositionDone (Boolean fakeRights)
-{
- int king = gameInfo.variant == VariantKnightmate ? WhiteUnicorn : WhiteKing;
-
- startedFromSetupPosition = TRUE;
- InitChessProgram(&first, FALSE);
- if(fakeRights) { // [HGM] suppress this if we just pasted a FEN.
- int r, f;
- boards[0][EP_STATUS] = EP_NONE;
- for(f=0; f<=nrCastlingRights; f++) boards[0][CASTLING][f] = NoRights;
- for(r=BOARD_HEIGHT-1; r>=0; r--) for(f=BOARD_RGHT-1; f>=BOARD_LEFT; f--) { // first pass: Kings & e.p.
- if(rightsBoard[r][f]) {
- ChessSquare p = boards[0][r][f];
- if(p == (blackPlaysFirst ? WhitePawn : BlackPawn)) boards[0][EP_STATUS] = f;
- else if(p == king) boards[0][CASTLING][2] = f;
- else if(p == WHITE_TO_BLACK king) boards[0][CASTLING][5] = f;
- else rightsBoard[r][f] = 2; // mark for second pass
- }
- }
- for(r=BOARD_HEIGHT-1; r>=0; r--) for(f=BOARD_RGHT-1; f>=BOARD_LEFT; f--) { // second pass: Rooks
- if(rightsBoard[r][f] == 2) {
- ChessSquare p = boards[0][r][f];
- if(p == WhiteRook) boards[0][CASTLING][(f < boards[0][CASTLING][2])] = f; else
- if(p == BlackRook) boards[0][CASTLING][(f < boards[0][CASTLING][5])+3] = f;
- }
- }
- }
- SendToProgram("force\n", &first);
- if (blackPlaysFirst) {
- safeStrCpy(moveList[0], "", sizeof(moveList[0])/sizeof(moveList[0][0]));
- safeStrCpy(parseList[0], "", sizeof(parseList[0])/sizeof(parseList[0][0]));
- currentMove = forwardMostMove = backwardMostMove = 1;
- CopyBoard(boards[1], boards[0]);
- } else {
- currentMove = forwardMostMove = backwardMostMove = 0;
- }
- SendBoard(&first, forwardMostMove);
- if (appData.debugMode) {
- fprintf(debugFP, "EditPosDone\n");
- }
- DisplayTitle("");
- DisplayMessage("", "");
- timeRemaining[0][forwardMostMove] = whiteTimeRemaining;
- timeRemaining[1][forwardMostMove] = blackTimeRemaining;
- gameMode = EditGame;
- ModeHighlight();
- HistorySet(parseList, backwardMostMove, forwardMostMove, currentMove-1);
- ClearHighlights(); /* [AS] */
-}
-
-/* Pause for `ms' milliseconds */
-/* !! Ugh, this is a kludge. Fix it sometime. --tpm */
-void
-TimeDelay (long ms)
-{
- TimeMark m1, m2;
-
- GetTimeMark(&m1);
- do {
- GetTimeMark(&m2);
- } while (SubtractTimeMarks(&m2, &m1) < ms);
-}
-
-/* !! Ugh, this is a kludge. Fix it sometime. --tpm */
-void
-SendMultiLineToICS (char *buf)
-{
- char temp[MSG_SIZ+1], *p;
- int len;
-
- len = strlen(buf);
- if (len > MSG_SIZ)
- len = MSG_SIZ;
-
- strncpy(temp, buf, len);
- temp[len] = 0;
-
- p = temp;
- while (*p) {
- if (*p == '\n' || *p == '\r')
- *p = ' ';
- ++p;
- }
-
- strcat(temp, "\n");
- SendToICS(temp);
- SendToPlayer(temp, strlen(temp));
-}
-
-void
-SetWhiteToPlayEvent ()
-{
- if (gameMode == EditPosition) {
- blackPlaysFirst = FALSE;
- DisplayBothClocks(); /* works because currentMove is 0 */
- } else if (gameMode == IcsExamining) {
- SendToICS(ics_prefix);
- SendToICS("tomove white\n");
- }
-}
-
-void
-SetBlackToPlayEvent ()
-{
- if (gameMode == EditPosition) {
- blackPlaysFirst = TRUE;
- currentMove = 1; /* kludge */
- DisplayBothClocks();
- currentMove = 0;
- } else if (gameMode == IcsExamining) {
- SendToICS(ics_prefix);
- SendToICS("tomove black\n");
- }
-}
-
-void
-EditPositionMenuEvent (ChessSquare selection, int x, int y)
-{
- char buf[MSG_SIZ];
- ChessSquare piece = boards[0][y][x];
- static Board erasedBoard, currentBoard, menuBoard, nullBoard;
- static int lastVariant;
- int baseRank = BOARD_HEIGHT-1, hasRights = 0;
-
- if (gameMode != EditPosition && gameMode != IcsExamining) return;
-
- switch (selection) {
- case ClearBoard:
- fromX = fromY = killX = killY = kill2X = kill2Y = -1; // [HGM] abort any move entry in progress
- MarkTargetSquares(1);
- CopyBoard(currentBoard, boards[0]);
- CopyBoard(menuBoard, initialPosition);
- if (gameMode == IcsExamining && ics_type == ICS_FICS) {
- SendToICS(ics_prefix);
- SendToICS("bsetup clear\n");
- } else if (gameMode == IcsExamining && ics_type == ICS_ICC) {
- SendToICS(ics_prefix);
- SendToICS("clearboard\n");
- } else {
- int nonEmpty = 0;
- for (x = 0; x < BOARD_WIDTH; x++) { ChessSquare p = EmptySquare;
- if(x == BOARD_LEFT-1 || x == BOARD_RGHT) p = (ChessSquare) 0; /* [HGM] holdings */
- for (y = 0; y < BOARD_HEIGHT; y++) {
- if (gameMode == IcsExamining) {
- if (boards[currentMove][y][x] != EmptySquare) {
- snprintf(buf, MSG_SIZ, "%sx@%c%c\n", ics_prefix,
- AAA + x, ONE + y);
- SendToICS(buf);
- }
- } else if(boards[0][y][x] != DarkSquare) {
- if(boards[0][y][x] != p) nonEmpty++;
- boards[0][y][x] = p;
- }
- }
- }
- CopyBoard(rightsBoard, nullBoard);
- if(gameMode != IcsExamining) { // [HGM] editpos: cycle trough boards
- int r, i;
- for(r = 0; r < BOARD_HEIGHT; r++) {
- for(x = BOARD_LEFT; x < BOARD_RGHT; x++) { // create 'menu board' by removing duplicates
- ChessSquare p = menuBoard[r][x];
- for(y = x + 1; y < BOARD_RGHT; y++) if(menuBoard[r][y] == p) menuBoard[r][y] = EmptySquare;
- }
- }
- menuBoard[CASTLING][0] = menuBoard[CASTLING][3] = NoRights; // h-side Rook was deleted
- DisplayMessage("Clicking clock again restores position", "");
- if(gameInfo.variant != lastVariant) lastVariant = gameInfo.variant, CopyBoard(erasedBoard, boards[0]);
- if(!nonEmpty) { // asked to clear an empty board
- CopyBoard(boards[0], menuBoard);
- } else
- if(CompareBoards(currentBoard, menuBoard)) { // asked to clear an empty board
- CopyBoard(boards[0], initialPosition);
- } else
- if(CompareBoards(currentBoard, initialPosition) && !CompareBoards(currentBoard, erasedBoard)
- && !CompareBoards(nullBoard, erasedBoard)) {
- CopyBoard(boards[0], erasedBoard);
- } else
- CopyBoard(erasedBoard, currentBoard);
-
- for(i=0; i<nrCastlingRights; i++) if(boards[0][CASTLING][i] != NoRights)
- rightsBoard[castlingRank[i]][boards[0][CASTLING][i]] = 1; // copy remaining rights
- }
- }
- if (gameMode == EditPosition) {
- DrawPosition(FALSE, boards[0]);
- }
- break;
-
- case WhitePlay:
- SetWhiteToPlayEvent();
- break;
-
- case BlackPlay:
- SetBlackToPlayEvent();
- break;
-
- case EmptySquare:
- if (gameMode == IcsExamining) {
- if (x < BOARD_LEFT || x >= BOARD_RGHT) break; // [HGM] holdings
- snprintf(buf, MSG_SIZ, "%sx@%c%c\n", ics_prefix, AAA + x, ONE + y);
- SendToICS(buf);
- } else {
- if(x < BOARD_LEFT || x >= BOARD_RGHT) {
- if(x == BOARD_LEFT-2) {
- if(y < BOARD_HEIGHT-1-gameInfo.holdingsSize) break;
- boards[0][y][1] = 0;
- } else
- if(x == BOARD_RGHT+1) {
- if(y >= gameInfo.holdingsSize) break;
- boards[0][y][BOARD_WIDTH-2] = 0;
- } else break;
- }
- boards[0][y][x] = EmptySquare;
- DrawPosition(FALSE, boards[0]);
- }
- break;
-
- case PromotePiece:
- if(piece >= (int)WhitePawn && piece < (int)WhiteMan ||
- piece >= (int)BlackPawn && piece < (int)BlackMan ) {
- selection = (ChessSquare) (PROMOTED(piece));
- } else if(piece == EmptySquare) selection = WhiteSilver;
- else selection = (ChessSquare)((int)piece - 1);
- goto defaultlabel;
-
- case DemotePiece:
- if(piece > (int)WhiteMan && piece <= (int)WhiteKing ||
- piece > (int)BlackMan && piece <= (int)BlackKing ) {
- selection = (ChessSquare) (DEMOTED(piece));
- } else if(piece == EmptySquare) selection = BlackSilver;
- else selection = (ChessSquare)((int)piece + 1);
- goto defaultlabel;
-
- case WhiteQueen:
- case BlackQueen:
- if(gameInfo.variant == VariantShatranj ||
- gameInfo.variant == VariantXiangqi ||
- gameInfo.variant == VariantCourier ||
- gameInfo.variant == VariantASEAN ||
- gameInfo.variant == VariantMakruk )
- selection = (ChessSquare)((int)selection - (int)WhiteQueen + (int)WhiteFerz);
- goto defaultlabel;
-
- case WhiteRook:
- baseRank = 0;
- case BlackRook:
- if(y == baseRank && (x == BOARD_LEFT || x == BOARD_RGHT-1 || appData.fischerCastling)) hasRights = 1;
- if(y == baseRank && (x == BOARD_WIDTH>>1 || appData.fischerCastling)) hasRights = 1;
- goto defaultlabel;
-
- case WhiteKing:
- baseRank = 0;
- case BlackKing:
- if(gameInfo.variant == VariantXiangqi)
- selection = (ChessSquare)((int)selection - (int)WhiteKing + (int)WhiteWazir);
- if(gameInfo.variant == VariantKnightmate)
- selection = (ChessSquare)((int)selection - (int)WhiteKing + (int)WhiteUnicorn);
- if(y == baseRank && (x == BOARD_WIDTH>>1 || appData.fischerCastling)) hasRights = 1;
- default:
- defaultlabel:
- if (gameMode == IcsExamining) {
- if (x < BOARD_LEFT || x >= BOARD_RGHT) break; // [HGM] holdings
- snprintf(buf, MSG_SIZ, "%s%c@%c%c\n", ics_prefix,
- PieceToChar(selection), AAA + x, ONE + y);
- SendToICS(buf);
- } else {
- rightsBoard[y][x] = hasRights;
- if(x < BOARD_LEFT || x >= BOARD_RGHT) {
- int n;
- if(x == BOARD_LEFT-2 && selection >= BlackPawn) {
- n = PieceToNumber(selection - BlackPawn);
- if(n >= gameInfo.holdingsSize) { n = 0; selection = BlackPawn; }
- boards[0][BOARD_HEIGHT-1-n][0] = selection;
- boards[0][BOARD_HEIGHT-1-n][1]++;
- } else
- if(x == BOARD_RGHT+1 && selection < BlackPawn) {
- n = PieceToNumber(selection);
- if(n >= gameInfo.holdingsSize) { n = 0; selection = WhitePawn; }
- boards[0][n][BOARD_WIDTH-1] = selection;
- boards[0][n][BOARD_WIDTH-2]++;
- }
- } else
- boards[0][y][x] = selection;
- DrawPosition(TRUE, boards[0]);
- ClearHighlights();
- fromX = fromY = -1;
- }
- break;
- }
-}
-
-
-void
-DropMenuEvent (ChessSquare selection, int x, int y)
-{
- ChessMove moveType;
-
- switch (gameMode) {
- case IcsPlayingWhite:
- case MachinePlaysBlack:
- if (!WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is Black's turn"));
- return;
- }
- moveType = WhiteDrop;
- break;
- case IcsPlayingBlack:
- case MachinePlaysWhite:
- if (WhiteOnMove(currentMove)) {
- DisplayMoveError(_("It is White's turn"));
- return;
- }
- moveType = BlackDrop;
- break;
- case EditGame:
- moveType = WhiteOnMove(currentMove) ? WhiteDrop : BlackDrop;
- break;
- default:
- return;
- }
-
- if (moveType == BlackDrop && selection < BlackPawn) {
- selection = (ChessSquare) ((int) selection
- + (int) BlackPawn - (int) WhitePawn);
- }
- if (boards[currentMove][y][x] != EmptySquare) {
- DisplayMoveError(_("That square is occupied"));
- return;
- }
-
- FinishMove(moveType, (int) selection, DROP_RANK, x, y, NULLCHAR);
-}
-
-void
-AcceptEvent ()
-{
- /* Accept a pending offer of any kind from opponent */
-
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("accept\n");
- } else if (cmailMsgLoaded) {
- if (currentMove == cmailOldMove &&
- commentList[cmailOldMove] != NULL &&
- StrStr(commentList[cmailOldMove], WhiteOnMove(cmailOldMove) ?
- "Black offers a draw" : "White offers a draw")) {
- TruncateGame();
- GameEnds(GameIsDrawn, "Draw agreed", GE_PLAYER);
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_ACCEPT;
- } else {
- DisplayError(_("There is no pending offer on this move"), 0);
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_MOVE;
- }
- } else {
- /* Not used for offers from chess program */
- }
-}
-
-void
-DeclineEvent ()
-{
- /* Decline a pending offer of any kind from opponent */
-
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("decline\n");
- } else if (cmailMsgLoaded) {
- if (currentMove == cmailOldMove &&
- commentList[cmailOldMove] != NULL &&
- StrStr(commentList[cmailOldMove], WhiteOnMove(cmailOldMove) ?
- "Black offers a draw" : "White offers a draw")) {
-#ifdef NOTDEF
- AppendComment(cmailOldMove, "Draw declined", TRUE);
- DisplayComment(cmailOldMove - 1, "Draw declined");
-#endif /*NOTDEF*/
- } else {
- DisplayError(_("There is no pending offer on this move"), 0);
- }
- } else {
- /* Not used for offers from chess program */
- }
-}
-
-void
-RematchEvent ()
-{
- /* Issue ICS rematch command */
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("rematch\n");
- }
-}
-
-void
-CallFlagEvent ()
-{
- /* Call your opponent's flag (claim a win on time) */
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("flag\n");
- } else {
- switch (gameMode) {
- default:
- return;
- case MachinePlaysWhite:
- if (whiteFlag) {
- if (blackFlag)
- GameEnds(GameIsDrawn, "Both players ran out of time",
- GE_PLAYER);
- else
- GameEnds(BlackWins, "Black wins on time", GE_PLAYER);
- } else {
- DisplayError(_("Your opponent is not out of time"), 0);
- }
- break;
- case MachinePlaysBlack:
- if (blackFlag) {
- if (whiteFlag)
- GameEnds(GameIsDrawn, "Both players ran out of time",
- GE_PLAYER);
- else
- GameEnds(WhiteWins, "White wins on time", GE_PLAYER);
- } else {
- DisplayError(_("Your opponent is not out of time"), 0);
- }
- break;
- }
- }
-}
-
-void
-ClockClick (int which)
-{ // [HGM] code moved to back-end from winboard.c
- if(which) { // black clock
- if (gameMode == EditPosition || gameMode == IcsExamining) {
- if(!appData.pieceMenu && blackPlaysFirst) EditPositionMenuEvent(ClearBoard, 0, 0);
- SetBlackToPlayEvent();
- } else if ((gameMode == AnalyzeMode || gameMode == EditGame ||
- gameMode == MachinePlaysBlack && PosFlags(0) & F_NULL_MOVE && !blackFlag && !shiftKey) && WhiteOnMove(currentMove)) {
- UserMoveEvent((int)EmptySquare, DROP_RANK, 0, 0, 0); // [HGM] multi-move: if not out of time, enters null move
- } else if (shiftKey) {
- AdjustClock(which, -1);
- } else if (gameMode == IcsPlayingWhite ||
- gameMode == MachinePlaysBlack) {
- CallFlagEvent();
- }
- } else { // white clock
- if (gameMode == EditPosition || gameMode == IcsExamining) {
- if(!appData.pieceMenu && !blackPlaysFirst) EditPositionMenuEvent(ClearBoard, 0, 0);
- SetWhiteToPlayEvent();
- } else if ((gameMode == AnalyzeMode || gameMode == EditGame ||
- gameMode == MachinePlaysWhite && PosFlags(0) & F_NULL_MOVE && !whiteFlag && !shiftKey) && !WhiteOnMove(currentMove)) {
- UserMoveEvent((int)EmptySquare, DROP_RANK, 0, 0, 0); // [HGM] multi-move
- } else if (shiftKey) {
- AdjustClock(which, -1);
- } else if (gameMode == IcsPlayingBlack ||
- gameMode == MachinePlaysWhite) {
- CallFlagEvent();
- }
- }
-}
-
-void
-DrawEvent ()
-{
- /* Offer draw or accept pending draw offer from opponent */
-
- if (appData.icsActive) {
- /* Note: tournament rules require draw offers to be
- made after you make your move but before you punch
- your clock. Currently ICS doesn't let you do that;
- instead, you immediately punch your clock after making
- a move, but you can offer a draw at any time. */
-
- SendToICS(ics_prefix);
- SendToICS("draw\n");
- userOfferedDraw = TRUE; // [HGM] drawclaim: also set flag in ICS play
- } else if (cmailMsgLoaded) {
- if (currentMove == cmailOldMove &&
- commentList[cmailOldMove] != NULL &&
- StrStr(commentList[cmailOldMove], WhiteOnMove(cmailOldMove) ?
- "Black offers a draw" : "White offers a draw")) {
- GameEnds(GameIsDrawn, "Draw agreed", GE_PLAYER);
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_ACCEPT;
- } else if (currentMove == cmailOldMove + 1) {
- char *offer = WhiteOnMove(cmailOldMove) ?
- "White offers a draw" : "Black offers a draw";
- AppendComment(currentMove, offer, TRUE);
- DisplayComment(currentMove - 1, offer);
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_DRAW;
- } else {
- DisplayError(_("You must make your move before offering a draw"), 0);
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_MOVE;
- }
- } else if (first.offeredDraw) {
- GameEnds(GameIsDrawn, "Draw agreed", GE_XBOARD);
- } else {
- if (first.sendDrawOffers) {
- SendToProgram("draw\n", &first);
- userOfferedDraw = TRUE;
- }
- }
-}
-
-void
-AdjournEvent ()
-{
- /* Offer Adjourn or accept pending Adjourn offer from opponent */
-
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("adjourn\n");
- } else {
- /* Currently GNU Chess doesn't offer or accept Adjourns */
- }
-}
-
-
-void
-AbortEvent ()
-{
- /* Offer Abort or accept pending Abort offer from opponent */
-
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("abort\n");
- } else {
- GameEnds(GameUnfinished, "Game aborted", GE_PLAYER);
- }
-}
-
-void
-ResignEvent ()
-{
- /* Resign. You can do this even if it's not your turn. */
-
- if (appData.icsActive) {
- SendToICS(ics_prefix);
- SendToICS("resign\n");
- } else {
- switch (gameMode) {
- case MachinePlaysWhite:
- GameEnds(WhiteWins, "Black resigns", GE_PLAYER);
- break;
- case MachinePlaysBlack:
- GameEnds(BlackWins, "White resigns", GE_PLAYER);
- break;
- case EditGame:
- if (cmailMsgLoaded) {
- TruncateGame();
- if (WhiteOnMove(cmailOldMove)) {
- GameEnds(BlackWins, "White resigns", GE_PLAYER);
- } else {
- GameEnds(WhiteWins, "Black resigns", GE_PLAYER);
- }
- cmailMoveType[lastLoadGameNumber - 1] = CMAIL_RESIGN;
- }
- break;
- default:
- break;
- }
- }
-}
-
-
-void
-StopObservingEvent ()
-{
- /* Stop observing current games */
- SendToICS(ics_prefix);
- SendToICS("unobserve\n");
-}
-
-void
-StopExaminingEvent ()
-{
- /* Stop observing current game */
- SendToICS(ics_prefix);
- SendToICS("unexamine\n");
-}
-
-void
-ForwardInner (int target)
-{
- int limit; int oldSeekGraphUp = seekGraphUp;
-
- if (appData.debugMode)
- fprintf(debugFP, "ForwardInner(%d), current %d, forward %d\n",
- target, currentMove, forwardMostMove);
-
- if (gameMode == EditPosition)
- return;
-
- seekGraphUp = FALSE;
- MarkTargetSquares(1);
- fromX = fromY = killX = killY = kill2X = kill2Y = -1; // [HGM] abort any move entry in progress
-
- if (gameMode == PlayFromGameFile && !pausing)
- PauseEvent();
-
- if (gameMode == IcsExamining && pausing)
- limit = pauseExamForwardMostMove;
- else
- limit = forwardMostMove;
-
- if (target > limit) target = limit;
-
- if (target > 0 && moveList[target - 1][0]) {
- int fromX, fromY, toX, toY;
- toX = moveList[target - 1][2] - AAA;
- toY = moveList[target - 1][3] - ONE;
- if (moveList[target - 1][1] == '@') {
- if (appData.highlightLastMove) {
- SetHighlights(-1, -1, toX, toY);
- }
- } else {
- fromX = moveList[target - 1][0] - AAA;
- fromY = moveList[target - 1][1] - ONE;
- if (target == currentMove + 1) {
- if(moveList[target - 1][4] == ';') { // multi-leg
- killX = moveList[target - 1][5] - AAA;
- killY = moveList[target - 1][6] - ONE;
- }
- AnimateMove(boards[currentMove], fromX, fromY, toX, toY);
- killX = killY = -1;
- }
- if (appData.highlightLastMove) {
- SetHighlights(fromX, fromY, toX, toY);
- }
- }
- }
- if (gameMode == EditGame || gameMode == AnalyzeMode ||
- gameMode == Training || gameMode == PlayFromGameFile ||
- gameMode == AnalyzeFile) {
- while (currentMove < target) {
- if(second.analyzing) SendMoveToProgram(currentMove, &second);
- SendMoveToProgram(currentMove++, &first);
- }
- } else {
- currentMove = target;
- }
-
- if (gameMode == EditGame || gameMode == EndOfGame) {
- whiteTimeRemaining = timeRemaining[0][currentMove];
- blackTimeRemaining = timeRemaining[1][currentMove];
- }
- DisplayBothClocks();
- DisplayMove(currentMove - 1);
- DrawPosition(oldSeekGraphUp, boards[currentMove]);
- HistorySet(parseList,backwardMostMove,forwardMostMove,currentMove-1);
- if ( !matchMode && gameMode != Training) { // [HGM] PV info: routine tests if empty
- DisplayComment(currentMove - 1, commentList[currentMove]);
- }
- ClearMap(); // [HGM] exclude: invalidate map
-}
-
-
-void
-ForwardEvent ()
-{
- if (gameMode == IcsExamining && !pausing) {
- SendToICS(ics_prefix);
- SendToICS("forward\n");
- } else {
- ForwardInner(currentMove + 1);
- }
-}
-
-void
-ToEndEvent ()
-{
- if (gameMode == AnalyzeMode || gameMode == AnalyzeFile) {
- /* to optimze, we temporarily turn off analysis mode while we feed
- * the remaining moves to the engine. Otherwise we get analysis output
- * after each move.
- */
- if (first.analysisSupport) {
- SendToProgram("exit\nforce\n", &first);
- first.analyzing = FALSE;
- }
- }
-
- if (gameMode == IcsExamining && !pausing) {
- SendToICS(ics_prefix);
- SendToICS("forward 999999\n");
- } else {
- ForwardInner(forwardMostMove);
- }
-
- if (gameMode == AnalyzeMode || gameMode == AnalyzeFile) {
- /* we have fed all the moves, so reactivate analysis mode */
- SendToProgram("analyze\n", &first);
- first.analyzing = TRUE;
- /*first.maybeThinking = TRUE;*/
- first.maybeThinking = FALSE; /* avoid killing GNU Chess */
- }
-}
-
-void
-BackwardInner (int target)
-{
- int full_redraw = TRUE; /* [AS] Was FALSE, had to change it! */
-
- if (appData.debugMode)
- fprintf(debugFP, "BackwardInner(%d), current %d, forward %d\n",
- target, currentMove, forwardMostMove);
-
- if (gameMode == EditPosition) return;
- seekGraphUp = FALSE;
- MarkTargetSquares(1);
- fromX = fromY = killX = killY = kill2X = kill2Y = -1; // [HGM] abort any move entry in progress
- if (currentMove <= backwardMostMove) {
- ClearHighlights();
- DrawPosition(full_redraw, boards[currentMove]);
- return;
- }
- if (gameMode == PlayFromGameFile && !pausing)
- PauseEvent();
-
- if (moveList[target][0]) {
- int fromX, fromY, toX, toY;
- toX = moveList[target][2] - AAA;
- toY = moveList[target][3] - ONE;
- if (moveList[target][1] == '@') {
- if (appData.highlightLastMove) {
- SetHighlights(-1, -1, toX, toY);
- }
- } else {
- fromX = moveList[target][0] - AAA;
- fromY = moveList[target][1] - ONE;
- if (target == currentMove - 1) {
- AnimateMove(boards[currentMove], toX, toY, fromX, fromY);
- }
- if (appData.highlightLastMove) {
- SetHighlights(fromX, fromY, toX, toY);
- }
- }
- }
- if (gameMode == EditGame || gameMode==AnalyzeMode ||
- gameMode == PlayFromGameFile || gameMode == AnalyzeFile) {
- while (currentMove > target) {
- if(moveList[currentMove-1][1] == '@' && moveList[currentMove-1][0] == '@') {
- // null move cannot be undone. Reload program with move history before it.
- int i;
- for(i=target; i>backwardMostMove; i--) { // seek back to start or previous null move
- if(moveList[i-1][1] == '@' && moveList[i-1][0] == '@') break;
- }
- SendBoard(&first, i);
- if(second.analyzing) SendBoard(&second, i);
- for(currentMove=i; currentMove<target; currentMove++) {
- SendMoveToProgram(currentMove, &first);
- if(second.analyzing) SendMoveToProgram(currentMove, &second);
- }
- break;
- }
- SendToBoth("undo\n");
- currentMove--;
- }
- } else {
- currentMove = target;
- }
-
- if (gameMode == EditGame || gameMode == EndOfGame) {
- whiteTimeRemaining = timeRemaining[0][currentMove];
- blackTimeRemaining = timeRemaining[1][currentMove];
- }
- DisplayBothClocks();
- DisplayMove(currentMove - 1);
- DrawPosition(full_redraw, boards[currentMove]);
- HistorySet(parseList,backwardMostMove,forwardMostMove,currentMove-1);
- // [HGM] PV info: routine tests if comment empty
- DisplayComment(currentMove - 1, commentList[currentMove]);
- ClearMap(); // [HGM] exclude: invalidate map
-}
-
-void
-BackwardEvent ()
-{
- if (gameMode == IcsExamining && !pausing) {
- SendToICS(ics_prefix);
- SendToICS("backward\n");
- } else {
- BackwardInner(currentMove - 1);
- }
-}
-
-void
-ToStartEvent ()
-{
- if (gameMode == AnalyzeMode || gameMode == AnalyzeFile) {
- /* to optimize, we temporarily turn off analysis mode while we undo
- * all the moves. Otherwise we get analysis output after each undo.
- */
- if (first.analysisSupport) {
- SendToProgram("exit\nforce\n", &first);
- first.analyzing = FALSE;
- }
- }
-
- if (gameMode == IcsExamining && !pausing) {
- SendToICS(ics_prefix);
- SendToICS("backward 999999\n");
- } else {
- BackwardInner(backwardMostMove);
- }
-
- if (gameMode == AnalyzeMode || gameMode == AnalyzeFile) {
- /* we have fed all the moves, so reactivate analysis mode */
- SendToProgram("analyze\n", &first);
- first.analyzing = TRUE;
- /*first.maybeThinking = TRUE;*/
- first.maybeThinking = FALSE; /* avoid killing GNU Chess */
- }
-}
-
-void
-ToNrEvent (int to)
-{
- if (gameMode == PlayFromGameFile && !pausing) PauseEvent();
- if (to >= forwardMostMove) to = forwardMostMove;
- if (to <= backwardMostMove) to = backwardMostMove;
- if (to < currentMove) {
- BackwardInner(to);
- } else {
- ForwardInner(to);
- }
-}
-
-void
-RevertEvent (Boolean annotate)
-{
- if(PopTail(annotate)) { // [HGM] vari: restore old game tail
- return;
- }
- if (gameMode != IcsExamining) {
- DisplayError(_("You are not examining a game"), 0);
- return;
- }
- if (pausing) {
- DisplayError(_("You can't revert while pausing"), 0);
- return;
- }
- SendToICS(ics_prefix);
- SendToICS("revert\n");
-}
-
-void
-RetractMoveEvent ()
-{
- switch (gameMode) {
- case MachinePlaysWhite:
- case MachinePlaysBlack:
- if (WhiteOnMove(forwardMostMove) == (gameMode == MachinePlaysWhite)) {
- DisplayError(_("Wait until your turn,\nor select 'Move Now'."), 0);
- return;
- }
- if (forwardMostMove < 2) return;
- currentMove = forwardMostMove = forwardMostMove - 2;
- whiteTimeRemaining = timeRemaining[0][currentMove];
- blackTimeRemaining = timeRemaining[1][currentMove];
- DisplayBothClocks();
- DisplayMove(currentMove - 1);
- ClearHighlights();/*!! could figure this out*/
- DrawPosition(TRUE, boards[currentMove]); /* [AS] Changed to full redraw! */
- SendToProgram("remove\n", &first);
- /*first.maybeThinking = TRUE;*/ /* GNU Chess does not ponder here */
- break;
-
- case BeginningOfGame:
- default:
- break;
-
- case IcsPlayingWhite:
- case IcsPlayingBlack:
- if (WhiteOnMove(forwardMostMove) == (gameMode == IcsPlayingWhite)) {
- SendToICS(ics_prefix);
- SendToICS("takeback 2\n");
- } else {
- SendToICS(ics_prefix);
- SendToICS("takeback 1\n");
- }
- break;
- }
-}
-
-void
-MoveNowEvent ()
-{
- ChessProgramState *cps;
-
- switch (gameMode) {
- case MachinePlaysWhite:
- if (!WhiteOnMove(forwardMostMove)) {
- DisplayError(_("It is your turn"), 0);
- return;
- }
- cps = &first;
- break;
- case MachinePlaysBlack:
- if (WhiteOnMove(forwardMostMove)) {
- DisplayError(_("It is your turn"), 0);
- return;
- }
- cps = &first;
- break;
- case TwoMachinesPlay:
- if (WhiteOnMove(forwardMostMove) ==
- (first.twoMachinesColor[0] == 'w')) {
- cps = &first;
- } else {
- cps = &second;
- }
- break;
- case BeginningOfGame:
- default:
- return;
- }
- SendToProgram("?\n", cps);
-}
-
-void
-TruncateGameEvent ()
-{
- EditGameEvent();
- if (gameMode != EditGame) return;
- TruncateGame();
-}
-
-void
-TruncateGame ()
-{
- CleanupTail(); // [HGM] vari: only keep current variation if we explicitly truncate
- if (forwardMostMove > currentMove) {
- if (gameInfo.resultDetails != NULL) {
- free(gameInfo.resultDetails);
- gameInfo.resultDetails = NULL;
- gameInfo.result = GameUnfinished;
- }
- forwardMostMove = currentMove;
- HistorySet(parseList, backwardMostMove, forwardMostMove,
- currentMove-1);
- }
-}
-
-void
-HintEvent ()
-{
- if (appData.noChessProgram) return;
- switch (gameMode) {
- case MachinePlaysWhite:
- if (WhiteOnMove(forwardMostMove)) {
- DisplayError(_("Wait until your turn."), 0);
- return;
- }
- break;
- case BeginningOfGame:
- case MachinePlaysBlack:
- if (!WhiteOnMove(forwardMostMove)) {
- DisplayError(_("Wait until your turn."), 0);
- return;
- }
- break;
- default:
- DisplayError(_("No hint available"), 0);
- return;
- }
- SendToProgram("hint\n", &first);
- hintRequested = TRUE;
-}
-
-int
-SaveSelected (FILE *g, int dummy, char *dummy2)
-{
- ListGame * lg = (ListGame *) gameList.head;
- int nItem, cnt=0;
- FILE *f;
-
- if( !(f = GameFile()) || ((ListGame *) gameList.tailPred)->number <= 0 ) {
- DisplayError(_("Game list not loaded or empty"), 0);
- return 0;
- }
-
- creatingBook = TRUE; // suppresses stuff during load game
-
- /* Get list size */
- for (nItem = 1; nItem <= ((ListGame *) gameList.tailPred)->number; nItem++){
- if(lg->position >= 0) { // selected?
- LoadGame(f, nItem, "", TRUE);
- SaveGamePGN2(g); // leaves g open
- cnt++; DoEvents();
- }
- lg = (ListGame *) lg->node.succ;
- }
-
- fclose(g);
- creatingBook = FALSE;
-
- return cnt;
-}
-
-void
-CreateBookEvent ()
-{
- ListGame * lg = (ListGame *) gameList.head;
- FILE *f, *g;
- int nItem;
- static int secondTime = FALSE;
-
- if( !(f = GameFile()) || ((ListGame *) gameList.tailPred)->number <= 0 ) {
- DisplayError(_("Game list not loaded or empty"), 0);
- return;
- }
-
- if(!secondTime && (g = fopen(appData.polyglotBook, "r"))) {
- fclose(g);
- secondTime++;
- DisplayNote(_("Book file exists! Try again for overwrite."));
- return;
- }
-
- creatingBook = TRUE;
- secondTime = FALSE;
-
- /* Get list size */
- for (nItem = 1; nItem <= ((ListGame *) gameList.tailPred)->number; nItem++){
- if(lg->position >= 0) {
- LoadGame(f, nItem, "", TRUE);
- AddGameToBook(TRUE);
- DoEvents();
- }
- lg = (ListGame *) lg->node.succ;
- }
-
- creatingBook = FALSE;
- FlushBook();
-}
-
-void
-BookEvent ()
-{
- if (appData.noChessProgram) return;
- switch (gameMode) {
- case MachinePlaysWhite:
- if (WhiteOnMove(forwardMostMove)) {
- DisplayError(_("Wait until your turn."), 0);
- return;
- }
- break;
- case BeginningOfGame:
- case MachinePlaysBlack:
- if (!WhiteOnMove(forwardMostMove)) {
- DisplayError(_("Wait until your turn."), 0);
- return;
- }
- break;
- case EditPosition:
- EditPositionDone(TRUE);
- break;
- case TwoMachinesPlay:
- return;
- default:
- break;
- }
- SendToProgram("bk\n", &first);
- bookOutput[0] = NULLCHAR;
- bookRequested = TRUE;
-}
-
-void
-AboutGameEvent ()
-{
- char *tags = PGNTags(&gameInfo);
- TagsPopUp(tags, CmailMsg());
- free(tags);
-}
-
-/* end button procedures */
-
-void
-PrintPosition (FILE *fp, int move)
-{
- int i, j;
-
- for (i = BOARD_HEIGHT - 1; i >= 0; i--) {
- for (j = BOARD_LEFT; j < BOARD_RGHT; j++) {
- char c = PieceToChar(boards[move][i][j]);
- fputc(c == '?' ? '.' : c, fp);
- fputc(j == BOARD_RGHT - 1 ? '\n' : ' ', fp);
- }
- }
- if ((gameMode == EditPosition) ? !blackPlaysFirst : (move % 2 == 0))
- fprintf(fp, "white to play\n");
- else
- fprintf(fp, "black to play\n");
-}
-
-void
-PrintOpponents (FILE *fp)
-{
- if (gameInfo.white != NULL) {
- fprintf(fp, "\t%s vs. %s\n", gameInfo.white, gameInfo.black);
- } else {
- fprintf(fp, "\n");
- }
-}
-
-/* Find last component of program's own name, using some heuristics */
-void
-TidyProgramName (char *prog, char *host, char buf[MSG_SIZ])
-{
- char *p, *q, c;
- int local = (strcmp(host, "localhost") == 0);
- while (!local && (p = strchr(prog, ';')) != NULL) {
- p++;
- while (*p == ' ') p++;
- prog = p;
- }
- if (*prog == '"' || *prog == '\'') {
- q = strchr(prog + 1, *prog);
- } else {
- q = strchr(prog, ' ');
- }
- if (q == NULL) q = prog + strlen(prog);
- p = q;
- while (p >= prog && *p != '/' && *p != '\\') p--;
- p++;
- if(p == prog && *p == '"') p++;
- c = *q; *q = 0;
- if (q - p >= 4 && StrCaseCmp(q - 4, ".exe") == 0) *q = c, q -= 4; else *q = c;
- memcpy(buf, p, q - p);
- buf[q - p] = NULLCHAR;
- if (!local) {
- strcat(buf, "@");
- strcat(buf, host);
- }
-}
-
-char *
-TimeControlTagValue ()
-{
- char buf[MSG_SIZ];
- if (!appData.clockMode) {
- safeStrCpy(buf, "-", sizeof(buf)/sizeof(buf[0]));
- } else if (movesPerSession > 0) {
- snprintf(buf, MSG_SIZ, "%d/%ld", movesPerSession, timeControl/1000);
- } else if (timeIncrement == 0) {
- snprintf(buf, MSG_SIZ, "%ld", timeControl/1000);
- } else {
- snprintf(buf, MSG_SIZ, "%ld+%ld", timeControl/1000, timeIncrement/1000);
- }
- return StrSave(buf);
-}
-
-void
-SetGameInfo ()
-{
- /* This routine is used only for certain modes */
- VariantClass v = gameInfo.variant;
- ChessMove r = GameUnfinished;
- char *p = NULL;
-
- if(keepInfo) return;
-
- if(gameMode == EditGame) { // [HGM] vari: do not erase result on EditGame
- r = gameInfo.result;
- p = gameInfo.resultDetails;
- gameInfo.resultDetails = NULL;
- }
- ClearGameInfo(&gameInfo);
- gameInfo.variant = v;
-
- switch (gameMode) {
- case MachinePlaysWhite:
- gameInfo.event = StrSave( appData.pgnEventHeader );
- gameInfo.site = StrSave(HostName());
- gameInfo.date = PGNDate();
- gameInfo.round = StrSave("-");
- gameInfo.white = StrSave(first.tidy);
- gameInfo.black = StrSave(UserName());
- gameInfo.timeControl = TimeControlTagValue();
- break;
-
- case MachinePlaysBlack:
- gameInfo.event = StrSave( appData.pgnEventHeader );
- gameInfo.site = StrSave(HostName());
- gameInfo.date = PGNDate();
- gameInfo.round = StrSave("-");
- gameInfo.white = StrSave(UserName());
- gameInfo.black = StrSave(first.tidy);
- gameInfo.timeControl = TimeControlTagValue();
- break;
-
- case TwoMachinesPlay:
- gameInfo.event = StrSave( appData.pgnEventHeader );
- gameInfo.site = StrSave(HostName());
- gameInfo.date = PGNDate();
- if (roundNr > 0) {
- char buf[MSG_SIZ];
- snprintf(buf, MSG_SIZ, "%d", roundNr);
- gameInfo.round = StrSave(buf);
- } else {
- gameInfo.round = StrSave("-");
- }
- if (first.twoMachinesColor[0] == 'w') {
- gameInfo.white = StrSave(appData.pgnName[0][0] ? appData.pgnName[0] : first.tidy);
- gameInfo.black = StrSave(appData.pgnName[1][0] ? appData.pgnName[1] : second.tidy);
- } else {
- gameInfo.white = StrSave(appData.pgnName[1][0] ? appData.pgnName[1] : second.tidy);
- gameInfo.black = StrSave(appData.pgnName[0][0] ? appData.pgnName[0] : first.tidy);
- }
- gameInfo.timeControl = TimeControlTagValue();
- break;
-
- case EditGame:
- gameInfo.event = StrSave("Edited game");
- gameInfo.site = StrSave(HostName());
- gameInfo.date = PGNDate();
- gameInfo.round = StrSave("-");
- gameInfo.white = StrSave("-");
- gameInfo.black = StrSave("-");
- gameInfo.result = r;
- gameInfo.resultDetails = p;
- break;
-
- case EditPosition:
- gameInfo.event = StrSave("Edited position");
- gameInfo.site = StrSave(HostName());
- gameInfo.date = PGNDate();
- gameInfo.round = StrSave("-");
- gameInfo.white = StrSave("-");
- gameInfo.black = StrSave("-");
- break;
-
- case IcsPlayingWhite:
- case IcsPlayingBlack:
- case IcsObserving:
- case IcsExamining:
- break;
-
- case PlayFromGameFile:
- gameInfo.event = StrSave("Game from non-PGN file");
- gameInfo.site = StrSave(HostName());
- gameInfo.date = PGNDate();
- gameInfo.round = StrSave("-");
- gameInfo.white = StrSave("?");
- gameInfo.black = StrSave("?");
- break;
-
- default:
- break;
- }
-}
-
-void
-ReplaceComment (int index, char *text)
-{
- int len;
- char *p;
- float score;
-
- if(index && sscanf(text, "%f/%d", &score, &len) == 2 &&
- pvInfoList[index-1].depth == len &&
- fabs(pvInfoList[index-1].score - score*100.) < 0.5 &&
- (p = strchr(text, '\n'))) text = p; // [HGM] strip off first line with PV info, if any
- while (*text == '\n') text++;
- len = strlen(text);
- while (len > 0 && text[len - 1] == '\n') len--;
-
- if (commentList[index] != NULL)
- free(commentList[index]);
-
- if (len == 0) {
- commentList[index] = NULL;
- return;
- }
- if( *text == '{' && strchr(text, '}') || // [HGM] braces: if certainy malformed, put braces
- *text == '[' && strchr(text, ']') || // otherwise hope the user knows what he is doing
- *text == '(' && strchr(text, ')')) { // (perhaps check if this parses as comment-only?)
- commentList[index] = (char *) malloc(len + 2);
- strncpy(commentList[index], text, len);
- commentList[index][len] = '\n';
- commentList[index][len + 1] = NULLCHAR;
- } else {
- // [HGM] braces: if text does not start with known OK delimiter, put braces around it.
- char *p;
- commentList[index] = (char *) malloc(len + 7);
- safeStrCpy(commentList[index], "{\n", 3);
- safeStrCpy(commentList[index]+2, text, len+1);
- commentList[index][len+2] = NULLCHAR;
- while(p = strchr(commentList[index], '}')) *p = ')'; // kill all } to make it one comment
- strcat(commentList[index], "\n}\n");
- }
-}
-
-void
-CrushCRs (char *text)
-{
- char *p = text;
- char *q = text;
- char ch;
-
- do {
- ch = *p++;
- if (ch == '\r') continue;
- *q++ = ch;
- } while (ch != '\0');
-}
-
-void
-AppendComment (int index, char *text, Boolean addBraces)
-/* addBraces tells if we should add {} */
-{
- int oldlen, len;
- char *old;
-
-if(appData.debugMode) fprintf(debugFP, "Append: in='%s' %d\n", text, addBraces);
- if(addBraces == 3) addBraces = 0; else // force appending literally
- text = GetInfoFromComment( index, text ); /* [HGM] PV time: strip PV info from comment */
-
- CrushCRs(text);
- while (*text == '\n') text++;
- len = strlen(text);
- while (len > 0 && text[len - 1] == '\n') len--;
- text[len] = NULLCHAR;
-
- if (len == 0) return;
-
- if (commentList[index] != NULL) {
- Boolean addClosingBrace = addBraces;
- old = commentList[index];
- oldlen = strlen(old);
- while(commentList[index][oldlen-1] == '\n')
- commentList[index][--oldlen] = NULLCHAR;
- commentList[index] = (char *) malloc(oldlen + len + 6); // might waste 4
- safeStrCpy(commentList[index], old, oldlen + len + 6);
- free(old);
- // [HGM] braces: join "{A\n}\n" + "{\nB}" as "{A\nB\n}"
- if(commentList[index][oldlen-1] == '}' && (text[0] == '{' || addBraces == TRUE)) {
- if(addBraces == TRUE) addBraces = FALSE; else { text++; len--; }
- while (*text == '\n') { text++; len--; }
- commentList[index][--oldlen] = NULLCHAR;
- }
- if(addBraces) strcat(commentList[index], addBraces == 2 ? "\n(" : "\n{\n");
- else strcat(commentList[index], "\n");
- strcat(commentList[index], text);
- if(addClosingBrace) strcat(commentList[index], addClosingBrace == 2 ? ")\n" : "\n}\n");
- else strcat(commentList[index], "\n");
- } else {
- commentList[index] = (char *) malloc(len + 6); // perhaps wastes 4...
- if(addBraces)
- safeStrCpy(commentList[index], addBraces == 2 ? "(" : "{\n", 3);
- else commentList[index][0] = NULLCHAR;
- strcat(commentList[index], text);
- strcat(commentList[index], addBraces == 2 ? ")\n" : "\n");
- if(addBraces == TRUE) strcat(commentList[index], "}\n");
- }
-}
-
-static char *
-FindStr (char * text, char * sub_text)
-{
- char * result = strstr( text, sub_text );
-
- if( result != NULL ) {
- result += strlen( sub_text );
- }
-
- return result;
-}
-
-/* [AS] Try to extract PV info from PGN comment */
-/* [HGM] PV time: and then remove it, to prevent it appearing twice */
-char *
-GetInfoFromComment (int index, char * text)
-{
- char * sep = text, *p;
-
- if( text != NULL && index > 0 ) {
- int score = 0;
- int depth = 0;
- int time = -1, sec = 0, deci;
- char * s_eval = FindStr( text, "[%eval " );
- char * s_emt = FindStr( text, "[%emt " );
-#if 0
- if( s_eval != NULL || s_emt != NULL ) {
-#else
- if(0) { // [HGM] this code is not finished, and could actually be detrimental
-#endif
- /* New style */
- char delim;
-
- if( s_eval != NULL ) {
- if( sscanf( s_eval, "%d,%d%c", &score, &depth, &delim ) != 3 ) {
- return text;
- }
-
- if( delim != ']' ) {
- return text;
- }
- }
-
- if( s_emt != NULL ) {
- }
- return text;
- }
- else {
- /* We expect something like: [+|-]nnn.nn/dd */
- int score_lo = 0;
-
- if(*text != '{') return text; // [HGM] braces: must be normal comment
-
- sep = strchr( text, '/' );
- if( sep == NULL || sep < (text+4) ) {
- return text;
- }
-
- p = text;
- if(!strncmp(p+1, "final score ", 12)) p += 12, index++; else
- if(p[1] == '(') { // comment starts with PV
- p = strchr(p, ')'); // locate end of PV
- if(p == NULL || sep < p+5) return text;
- // at this point we have something like "{(.*) +0.23/6 ..."
- p = text; while(*++p != ')') p[-1] = *p; p[-1] = ')';
- *p = '\n'; while(*p == ' ' || *p == '\n') p++; *--p = '{';
- // we now moved the brace to behind the PV: "(.*) {+0.23/6 ..."
- }
- time = -1; sec = -1; deci = -1;
- if( sscanf( p+1, "%d.%d/%d %d:%d", &score, &score_lo, &depth, &time, &sec ) != 5 &&
- sscanf( p+1, "%d.%d/%d %d.%d", &score, &score_lo, &depth, &time, &deci ) != 5 &&
- sscanf( p+1, "%d.%d/%d %d", &score, &score_lo, &depth, &time ) != 4 &&
- sscanf( p+1, "%d.%d/%d", &score, &score_lo, &depth ) != 3 ) {
- return text;
- }
-
- if( score_lo < 0 || score_lo >= 100 ) {
- return text;
- }
-
- if(sec >= 0) time = 600*time + 10*sec; else
- if(deci >= 0) time = 10*time + deci; else time *= 10; // deci-sec
-
- score = score > 0 || !score & p[1] != '-' ? score*100 + score_lo : score*100 - score_lo;
-
- /* [HGM] PV time: now locate end of PV info */
- while( *++sep >= '0' && *sep <= '9'); // strip depth
- if(time >= 0)
- while( *++sep >= '0' && *sep <= '9' || *sep == '\n'); // strip time
- if(sec >= 0)
- while( *++sep >= '0' && *sep <= '9'); // strip seconds
- if(deci >= 0)
- while( *++sep >= '0' && *sep <= '9'); // strip fractional seconds
- while(*sep == ' ' || *sep == '\n' || *sep == '\r') sep++;
- }
-
- if( depth <= 0 ) {
- return text;
- }
-
- if( time < 0 ) {
- time = -1;
- }
-
- pvInfoList[index-1].depth = depth;
- pvInfoList[index-1].score = score;
- pvInfoList[index-1].time = 10*time; // centi-sec
- if(*sep == '}') *sep = 0; else *--sep = '{';
- if(p != text) {
- while(*p++ = *sep++)
- ;
- sep = text;
- } // squeeze out space between PV and comment, and return both
- }
- return sep;
-}
-
-void
-SendToProgram (char *message, ChessProgramState *cps)
-{
- int count, outCount, error;
- char buf[MSG_SIZ];
-
- if (cps->pr == NoProc) return;
- Attention(cps);
-
- if (appData.debugMode) {
- TimeMark now;
- GetTimeMark(&now);
- fprintf(debugFP, "%ld >%-6s: %s",
- SubtractTimeMarks(&now, &programStartTime),
- cps->which, message);
- if(serverFP)
- fprintf(serverFP, "%ld >%-6s: %s",
- SubtractTimeMarks(&now, &programStartTime),
- cps->which, message), fflush(serverFP);
- }
-
- count = strlen(message);
- outCount = OutputToProcess(cps->pr, message, count, &error);
- if (outCount < count && !exiting
- && !endingGame) { /* [HGM] crash: to not hang GameEnds() writing to deceased engines */
- if(!cps->initDone) return; // [HGM] should not generate fatal error during engine load
- snprintf(buf, MSG_SIZ, _("Error writing to %s chess program"), _(cps->which));
- if(gameInfo.resultDetails==NULL) { /* [HGM] crash: if game in progress, give reason for abort */
- if((signed char)boards[forwardMostMove][EP_STATUS] <= EP_DRAWS) {
- snprintf(buf, MSG_SIZ, _("%s program exits in draw position (%s)"), _(cps->which), cps->program);
- if(matchMode && appData.tourneyFile[0]) { cps->pr = NoProc; GameEnds(GameIsDrawn, buf, GE_XBOARD); return; }
- gameInfo.result = GameIsDrawn; /* [HGM] accept exit as draw claim */
- } else {
- ChessMove res = cps->twoMachinesColor[0]=='w' ? BlackWins : WhiteWins;
- if(matchMode && appData.tourneyFile[0]) { cps->pr = NoProc; GameEnds(res, buf, GE_XBOARD); return; }
- gameInfo.result = res;
- }
- gameInfo.resultDetails = StrSave(buf);
- }
- if(matchMode && appData.tourneyFile[0]) { cps->pr = NoProc; return; }
- if(!cps->userError || !appData.popupExitMessage) DisplayFatalError(buf, error, 1); else errorExitStatus = 1;
- }
-}
-
-void
-ReceiveFromProgram (InputSourceRef isr, VOIDSTAR closure, char *message, int count, int error)
-{
- char *end_str;
- char buf[MSG_SIZ];
- ChessProgramState *cps = (ChessProgramState *)closure;
-
- if (isr != cps->isr) return; /* Killed intentionally */
- if (count <= 0) {
- if (count == 0) {
- RemoveInputSource(cps->isr);
- snprintf(buf, MSG_SIZ, _("Error: %s chess program (%s) exited unexpectedly"),
- _(cps->which), cps->program);
- if(LoadError(cps->userError ? NULL : buf, cps)) return; // [HGM] should not generate fatal error during engine load
- if(gameInfo.resultDetails==NULL) { /* [HGM] crash: if game in progress, give reason for abort */
- if((signed char)boards[forwardMostMove][EP_STATUS] <= EP_DRAWS) {
- snprintf(buf, MSG_SIZ, _("%s program exits in draw position (%s)"), _(cps->which), cps->program);
- if(matchMode && appData.tourneyFile[0]) { cps->pr = NoProc; GameEnds(GameIsDrawn, buf, GE_XBOARD); return; }
- gameInfo.result = GameIsDrawn; /* [HGM] accept exit as draw claim */
- } else {
- ChessMove res = cps->twoMachinesColor[0]=='w' ? BlackWins : WhiteWins;
- if(matchMode && appData.tourneyFile[0]) { cps->pr = NoProc; GameEnds(res, buf, GE_XBOARD); return; }
- gameInfo.result = res;
- }
- gameInfo.resultDetails = StrSave(buf);
- }
- if(matchMode && appData.tourneyFile[0]) { cps->pr = NoProc; return; }
- if(!cps->userError || !appData.popupExitMessage) DisplayFatalError(buf, 0, 1); else errorExitStatus = 1;
- } else {
- snprintf(buf, MSG_SIZ, _("Error reading from %s chess program (%s)"),
- _(cps->which), cps->program);
- RemoveInputSource(cps->isr);
-
- /* [AS] Program is misbehaving badly... kill it */
- if( count == -2 ) {
- DestroyChildProcess( cps->pr, 9 );
- cps->pr = NoProc;
- }
-
- if(!cps->userError || !appData.popupExitMessage) DisplayFatalError(buf, error, 1); else errorExitStatus = 1;
- }
- return;
- }
-
- if ((end_str = strchr(message, '\r')) != NULL)
- *end_str = NULLCHAR;
- if ((end_str = strchr(message, '\n')) != NULL)
- *end_str = NULLCHAR;
-
- if (appData.debugMode) {
- TimeMark now; int print = 1;
- char *quote = ""; char c; int i;
-
- if(appData.engineComments != 1) { /* [HGM] debug: decide if protocol-violating output is written */
- char start = message[0];
- if(start >='A' && start <= 'Z') start += 'a' - 'A'; // be tolerant to capitalizing
- if(sscanf(message, "%d%c%d%d%d", &i, &c, &i, &i, &i) != 5 &&
- sscanf(message, "move %c", &c)!=1 && sscanf(message, "offer%c", &c)!=1 &&
- sscanf(message, "resign%c", &c)!=1 && sscanf(message, "feature %c", &c)!=1 &&
- sscanf(message, "error %c", &c)!=1 && sscanf(message, "illegal %c", &c)!=1 &&
- sscanf(message, "tell%c", &c)!=1 && sscanf(message, "0-1 %c", &c)!=1 &&
- sscanf(message, "1-0 %c", &c)!=1 && sscanf(message, "1/2-1/2 %c", &c)!=1 &&
- sscanf(message, "setboard %c", &c)!=1 && sscanf(message, "setup %c", &c)!=1 &&
- sscanf(message, "hint: %c", &c)!=1 &&
- sscanf(message, "pong %c", &c)!=1 && start != '#') {
- quote = appData.engineComments == 2 ? "# " : "### NON-COMPLIANT! ### ";
- print = (appData.engineComments >= 2);
- }
- message[0] = start; // restore original message
- }
- if(print) {
- GetTimeMark(&now);
- fprintf(debugFP, "%ld <%-6s: %s%s\n",
- SubtractTimeMarks(&now, &programStartTime), cps->which,
- quote,
- message);
- if(serverFP)
- fprintf(serverFP, "%ld <%-6s: %s%s\n",
- SubtractTimeMarks(&now, &programStartTime), cps->which,
- quote,
- message), fflush(serverFP);
- }
- }
-
- /* [DM] if icsEngineAnalyze is active we block all whisper and kibitz output, because nobody want to see this */
- if (appData.icsEngineAnalyze) {
- if (strstr(message, "whisper") != NULL ||
- strstr(message, "kibitz") != NULL ||
- strstr(message, "tellics") != NULL) return;
- }
-
- HandleMachineMove(message, cps);
-}
-
-
-void
-SendTimeControl (ChessProgramState *cps, int mps, long tc, int inc, int sd, int st)
-{
- char buf[MSG_SIZ];
- int seconds;
-
- if( timeControl_2 > 0 ) {
- if( (gameMode == MachinePlaysBlack) || (gameMode == TwoMachinesPlay && cps->twoMachinesColor[0] == 'b') ) {
- tc = timeControl_2;
- }
- }
- tc /= cps->timeOdds; /* [HGM] time odds: apply before telling engine */
- inc /= cps->timeOdds;
- st /= cps->timeOdds;
-
- seconds = (tc / 1000) % 60; /* [HGM] displaced to after applying odds */
-
- if (st > 0) {
- /* Set exact time per move, normally using st command */
- if (cps->stKludge) {
- /* GNU Chess 4 has no st command; uses level in a nonstandard way */
- seconds = st % 60;
- if (seconds == 0) {
- snprintf(buf, MSG_SIZ, "level 1 %d\n", st/60);
- } else {
- snprintf(buf, MSG_SIZ, "level 1 %d:%02d\n", st/60, seconds);
- }
- } else {
- snprintf(buf, MSG_SIZ, "st %d\n", st);
- }
- } else {
- /* Set conventional or incremental time control, using level command */
- if (seconds == 0) {
- /* Note old gnuchess bug -- minutes:seconds used to not work.
- Fixed in later versions, but still avoid :seconds
- when seconds is 0. */
- snprintf(buf, MSG_SIZ, "level %d %ld %g\n", mps, tc/60000, inc/1000.);
- } else {
- snprintf(buf, MSG_SIZ, "level %d %ld:%02d %g\n", mps, tc/60000,
- seconds, inc/1000.);
- }
- }
- SendToProgram(buf, cps);
-
- /* Orthoganally (except for GNU Chess 4), limit time to st seconds */
- /* Orthogonally, limit search to given depth */
- if (sd > 0) {
- if (cps->sdKludge) {
- snprintf(buf, MSG_SIZ, "depth\n%d\n", sd);
- } else {
- snprintf(buf, MSG_SIZ, "sd %d\n", sd);
- }
- SendToProgram(buf, cps);
- }
-
- if(cps->nps >= 0) { /* [HGM] nps */
- if(cps->supportsNPS == FALSE)
- cps->nps = -1; // don't use if engine explicitly says not supported!
- else {
- snprintf(buf, MSG_SIZ, "nps %d\n", cps->nps);
- SendToProgram(buf, cps);
- }
- }
-}
-
-ChessProgramState *
-WhitePlayer ()
-/* [HGM] return pointer to 'first' or 'second', depending on who plays white */
-{
- if(gameMode == TwoMachinesPlay && first.twoMachinesColor[0] == 'b' ||
- gameMode == BeginningOfGame || gameMode == MachinePlaysBlack)
- return &second;
- return &first;
-}
-
-void
-SendTimeRemaining (ChessProgramState *cps, int machineWhite)
-{
- char message[MSG_SIZ];
- long time, otime;
-
- /* Note: this routine must be called when the clocks are stopped
- or when they have *just* been set or switched; otherwise
- it will be off by the time since the current tick started.
- */
- if (machineWhite) {
- time = whiteTimeRemaining / 10;
- otime = blackTimeRemaining / 10;
- } else {
- time = blackTimeRemaining / 10;
- otime = whiteTimeRemaining / 10;
- }
- /* [HGM] translate opponent's time by time-odds factor */
- otime = (otime * cps->other->timeOdds) / cps->timeOdds;
-
- if (time <= 0) time = 1;
- if (otime <= 0) otime = 1;
-
- snprintf(message, MSG_SIZ, "time %ld\n", time);
- SendToProgram(message, cps);
-
- snprintf(message, MSG_SIZ, "otim %ld\n", otime);
- SendToProgram(message, cps);
-}
-
-char *
-EngineDefinedVariant (ChessProgramState *cps, int n)
-{ // return name of n-th unknown variant that engine supports
- static char buf[MSG_SIZ];
- char *p, *s = cps->variants;
- if(!s) return NULL;
- do { // parse string from variants feature
- VariantClass v;
- p = strchr(s, ',');
- if(p) *p = NULLCHAR;
- v = StringToVariant(s);
- if(v == VariantNormal && strcmp(s, "normal") && !strstr(s, "_normal")) v = VariantUnknown; // garbage is recognized as normal
- if(v == VariantUnknown) { // non-standard variant in list of engine-supported variants
- if(!strcmp(s, "tenjiku") || !strcmp(s, "dai") || !strcmp(s, "dada") || // ignore Alien-Edition variants
- !strcmp(s, "maka") || !strcmp(s, "tai") || !strcmp(s, "kyoku") ||
- !strcmp(s, "checkers") || !strcmp(s, "go") || !strcmp(s, "reversi") ||
- !strcmp(s, "dark") || !strcmp(s, "alien") || !strcmp(s, "multi") || !strcmp(s, "amazons") ) n++;
- if(--n < 0) safeStrCpy(buf, s, MSG_SIZ);
- }
- if(p) *p++ = ',';
- if(n < 0) return buf;
- } while(s = p);
- return NULL;
-}
-
-int
-BoolFeature (char **p, char *name, int *loc, ChessProgramState *cps)
-{
- char buf[MSG_SIZ];
- int len = strlen(name);
- int val;
-
- if (strncmp((*p), name, len) == 0 && (*p)[len] == '=') {
- (*p) += len + 1;
- sscanf(*p, "%d", &val);
- *loc = (val != 0);
- while (**p && **p != ' ')
- (*p)++;
- snprintf(buf, MSG_SIZ, "accepted %s\n", name);
- SendToProgram(buf, cps);
- return TRUE;
- }
- return FALSE;
-}
-
-int
-IntFeature (char **p, char *name, int *loc, ChessProgramState *cps)
-{
- char buf[MSG_SIZ];
- int len = strlen(name);
- if (strncmp((*p), name, len) == 0 && (*p)[len] == '=') {
- (*p) += len + 1;
- sscanf(*p, "%d", loc);
- while (**p && **p != ' ') (*p)++;
- snprintf(buf, MSG_SIZ, "accepted %s\n", name);
- SendToProgram(buf, cps);
- return TRUE;
- }
- return FALSE;
-}
-
-int
-StringFeature (char **p, char *name, char **loc, ChessProgramState *cps)
-{
- char buf[MSG_SIZ];
- int len = strlen(name);
- if (strncmp((*p), name, len) == 0
- && (*p)[len] == '=' && (*p)[len+1] == '\"') {
- (*p) += len + 2;
- ASSIGN(*loc, *p); // kludge alert: assign rest of line just to be sure allocation is large enough so that sscanf below always fits
- sscanf(*p, "%[^\"]", *loc);
- while (**p && **p != '\"') (*p)++;
- if (**p == '\"') (*p)++;
- snprintf(buf, MSG_SIZ, "accepted %s\n", name);
- SendToProgram(buf, cps);
- return TRUE;
- }
- return FALSE;
-}
-
-int
-ParseOption (Option *opt, ChessProgramState *cps)
-// [HGM] options: process the string that defines an engine option, and determine
-// name, type, default value, and allowed value range
-{
- char *p, *q, buf[MSG_SIZ];
- int n, min = (-1)<<31, max = 1<<31, def;
-
- opt->target = &opt->value; // OK for spin/slider and checkbox
- if(p = strstr(opt->name, " -spin ")) {
- if((n = sscanf(p, " -spin %d %d %d", &def, &min, &max)) < 3 ) return FALSE;
- if(max < min) max = min; // enforce consistency
- if(def < min) def = min;
- if(def > max) def = max;
- opt->value = def;
- opt->min = min;
- opt->max = max;
- opt->type = Spin;
- } else if((p = strstr(opt->name, " -slider "))) {
- // for now -slider is a synonym for -spin, to already provide compatibility with future polyglots
- if((n = sscanf(p, " -slider %d %d %d", &def, &min, &max)) < 3 ) return FALSE;
- if(max < min) max = min; // enforce consistency
- if(def < min) def = min;
- if(def > max) def = max;
- opt->value = def;
- opt->min = min;
- opt->max = max;
- opt->type = Spin; // Slider;
- } else if((p = strstr(opt->name, " -string "))) {
- opt->textValue = p+9;
- opt->type = TextBox;
- opt->target = &opt->textValue;
- } else if((p = strstr(opt->name, " -file "))) {
- // for now -file is a synonym for -string, to already provide compatibility with future polyglots
- opt->target = opt->textValue = p+7;
- opt->type = FileName; // FileName;
- opt->target = &opt->textValue;
- } else if((p = strstr(opt->name, " -path "))) {
- // for now -file is a synonym for -string, to already provide compatibility with future polyglots
- opt->target = opt->textValue = p+7;
- opt->type = PathName; // PathName;
- opt->target = &opt->textValue;
- } else if(p = strstr(opt->name, " -check ")) {
- if(sscanf(p, " -check %d", &def) < 1) return FALSE;
- opt->value = (def != 0);
- opt->type = CheckBox;
- } else if(p = strstr(opt->name, " -combo ")) {
- opt->textValue = (char*) (opt->choice = &cps->comboList[cps->comboCnt]); // cheat with pointer type
- cps->comboList[cps->comboCnt++] = q = p+8; // holds possible choices
- if(*q == '*') cps->comboList[cps->comboCnt-1]++;
- opt->value = n = 0;
- while(q = StrStr(q, " /// ")) {
- n++; *q = 0; // count choices, and null-terminate each of them
- q += 5;
- if(*q == '*') { // remember default, which is marked with * prefix
- q++;
- opt->value = n;
- }
- cps->comboList[cps->comboCnt++] = q;
- }
- cps->comboList[cps->comboCnt++] = NULL;
- opt->max = n + 1;
- opt->type = ComboBox;
- } else if(p = strstr(opt->name, " -button")) {
- opt->type = Button;
- } else if(p = strstr(opt->name, " -save")) {
- opt->type = SaveButton;
- } else return FALSE;
- *p = 0; // terminate option name
- // now look if the command-line options define a setting for this engine option.
- if(cps->optionSettings && cps->optionSettings[0])
- p = strstr(cps->optionSettings, opt->name); else p = NULL;
- if(p && (p == cps->optionSettings || p[-1] == ',')) {
- snprintf(buf, MSG_SIZ, "option %s", p);
- if(p = strstr(buf, ",")) *p = 0;
- if(q = strchr(buf, '=')) switch(opt->type) {
- case ComboBox:
- for(n=0; n<opt->max; n++)
- if(!strcmp(((char**)opt->textValue)[n], q+1)) opt->value = n;
- break;
- case TextBox:
- safeStrCpy(opt->textValue, q+1, MSG_SIZ - (opt->textValue - opt->name));
- break;
- case Spin:
- case CheckBox:
- opt->value = atoi(q+1);
- default:
- break;
- }
- strcat(buf, "\n");
- SendToProgram(buf, cps);
- }
- return TRUE;
-}
-
-void
-FeatureDone (ChessProgramState *cps, int val)
-{
- DelayedEventCallback cb = GetDelayedEvent();
- if ((cb == InitBackEnd3 && cps == &first) ||
- (cb == SettingsMenuIfReady && cps == &second) ||
- (cb == LoadEngine) ||
- (cb == TwoMachinesEventIfReady)) {
- CancelDelayedEvent();
- ScheduleDelayedEvent(cb, val ? 1 : 3600000);
- } else if(!val && !cps->reload) ClearOptions(cps); // let 'spurious' done=0 clear engine's option list
- cps->initDone = val;
- if(val) cps->reload = FALSE, RefreshSettingsDialog(cps, val);
-}
-
-/* Parse feature command from engine */
-void
-ParseFeatures (char *args, ChessProgramState *cps)
-{
- char *p = args;
- char *q = NULL;
- int val;
- char buf[MSG_SIZ];
-
- for (;;) {
- while (*p == ' ') p++;
- if (*p == NULLCHAR) return;
-
- if (BoolFeature(&p, "setboard", &cps->useSetboard, cps)) continue;
- if (BoolFeature(&p, "xedit", &cps->extendedEdit, cps)) continue;
- if (BoolFeature(&p, "time", &cps->sendTime, cps)) continue;
- if (BoolFeature(&p, "draw", &cps->sendDrawOffers, cps)) continue;
- if (BoolFeature(&p, "sigint", &cps->useSigint, cps)) continue;
- if (BoolFeature(&p, "sigterm", &cps->useSigterm, cps)) continue;
- if (BoolFeature(&p, "reuse", &val, cps)) {
- /* Engine can disable reuse, but can't enable it if user said no */
- if (!val) cps->reuse = FALSE;
- continue;
- }
- if (BoolFeature(&p, "analyze", &cps->analysisSupport, cps)) continue;
- if (StringFeature(&p, "myname", &cps->tidy, cps)) {
- if (gameMode == TwoMachinesPlay) {
- DisplayTwoMachinesTitle();
- } else {
- DisplayTitle("");
- }
- continue;
- }
- if (StringFeature(&p, "variants", &cps->variants, cps)) continue;
- if (BoolFeature(&p, "san", &cps->useSAN, cps)) continue;
- if (BoolFeature(&p, "ping", &cps->usePing, cps)) continue;
- if (BoolFeature(&p, "playother", &cps->usePlayother, cps)) continue;
- if (BoolFeature(&p, "colors", &cps->useColors, cps)) continue;
- if (BoolFeature(&p, "usermove", &cps->useUsermove, cps)) continue;
- if (BoolFeature(&p, "exclude", &cps->excludeMoves, cps)) continue;
- if (BoolFeature(&p, "ics", &cps->sendICS, cps)) continue;
- if (BoolFeature(&p, "name", &cps->sendName, cps)) continue;
- if (BoolFeature(&p, "pause", &cps->pause, cps)) continue; // [HGM] pause
- if (IntFeature(&p, "done", &val, cps)) {
- FeatureDone(cps, val);
- continue;
- }
- /* Added by Tord: */
- if (BoolFeature(&p, "fen960", &cps->useFEN960, cps)) continue;
- if (BoolFeature(&p, "oocastle", &cps->useOOCastle, cps)) continue;
- /* End of additions by Tord */
-
- /* [HGM] added features: */
- if (BoolFeature(&p, "highlight", &cps->highlight, cps)) continue;
- if (BoolFeature(&p, "debug", &cps->debug, cps)) continue;
- if (BoolFeature(&p, "nps", &cps->supportsNPS, cps)) continue;
- if (IntFeature(&p, "level", &cps->maxNrOfSessions, cps)) continue;
- if (BoolFeature(&p, "memory", &cps->memSize, cps)) continue;
- if (BoolFeature(&p, "smp", &cps->maxCores, cps)) continue;
- if (StringFeature(&p, "egt", &cps->egtFormats, cps)) continue;
- if (StringFeature(&p, "option", &q, cps)) { // read to freshly allocated temp buffer first
- if(cps->reload) { FREE(q); q = NULL; continue; } // we are reloading because of xreuse
- FREE(cps->option[cps->nrOptions].name);
- cps->option[cps->nrOptions].name = q; q = NULL;
- if(!ParseOption(&(cps->option[cps->nrOptions++]), cps)) { // [HGM] options: add option feature
- snprintf(buf, MSG_SIZ, "rejected option %s\n", cps->option[--cps->nrOptions].name);
- SendToProgram(buf, cps);
- continue;
- }
- if(cps->nrOptions >= MAX_OPTIONS) {
- cps->nrOptions--;
- snprintf(buf, MSG_SIZ, _("%s engine has too many options\n"), _(cps->which));
- DisplayError(buf, 0);
- }
- continue;
- }
- /* End of additions by HGM */
-
- /* unknown feature: complain and skip */
- q = p;
- while (*q && *q != '=') q++;
- snprintf(buf, MSG_SIZ,"rejected %.*s\n", (int)(q-p), p);
- SendToProgram(buf, cps);
- p = q;
- if (*p == '=') {
- p++;
- if (*p == '\"') {
- p++;
- while (*p && *p != '\"') p++;
- if (*p == '\"') p++;
- } else {
- while (*p && *p != ' ') p++;
- }
- }
- }
-
-}
-
-void
-PeriodicUpdatesEvent (int newState)
-{
- if (newState == appData.periodicUpdates)
- return;
-
- appData.periodicUpdates=newState;
-
- /* Display type changes, so update it now */
-// DisplayAnalysis();
-
- /* Get the ball rolling again... */
- if (newState) {
- AnalysisPeriodicEvent(1);
- StartAnalysisClock();
- }
-}
-
-void
-PonderNextMoveEvent (int newState)
-{
- if (newState == appData.ponderNextMove) return;
- if (gameMode == EditPosition) EditPositionDone(TRUE);
- if (newState) {
- SendToProgram("hard\n", &first);
- if (gameMode == TwoMachinesPlay) {
- SendToProgram("hard\n", &second);
- }
- } else {
- SendToProgram("easy\n", &first);
- thinkOutput[0] = NULLCHAR;
- if (gameMode == TwoMachinesPlay) {
- SendToProgram("easy\n", &second);
- }
- }
- appData.ponderNextMove = newState;
-}
-
-void
-NewSettingEvent (int option, int *feature, char *command, int value)
-{
- char buf[MSG_SIZ];
-
- if (gameMode == EditPosition) EditPositionDone(TRUE);
- snprintf(buf, MSG_SIZ,"%s%s %d\n", (option ? "option ": ""), command, value);
- if(feature == NULL || *feature) SendToProgram(buf, &first);
- if (gameMode == TwoMachinesPlay) {
- if(feature == NULL || feature[(int*)&second - (int*)&first]) SendToProgram(buf, &second);
- }
-}
-
-void
-ShowThinkingEvent ()
-// [HGM] thinking: this routine is now also called from "Options -> Engine..." popup
-{
- static int oldState = 2; // kludge alert! Neither true nor fals, so first time oldState is always updated
- int newState = appData.showThinking
- // [HGM] thinking: other features now need thinking output as well
- || !appData.hideThinkingFromHuman || appData.adjudicateLossThreshold != 0 || EngineOutputIsUp();
-
- if (oldState == newState) return;
- oldState = newState;
- if (gameMode == EditPosition) EditPositionDone(TRUE);
- if (oldState) {
- SendToProgram("post\n", &first);
- if (gameMode == TwoMachinesPlay) {
- SendToProgram("post\n", &second);
- }
- } else {
- SendToProgram("nopost\n", &first);
- thinkOutput[0] = NULLCHAR;
- if (gameMode == TwoMachinesPlay) {
- SendToProgram("nopost\n", &second);
- }
- }
-// appData.showThinking = newState; // [HGM] thinking: responsible option should already have be changed when calling this routine!
-}
-
-void
-AskQuestionEvent (char *title, char *question, char *replyPrefix, char *which)
-{
- ProcRef pr = (which[0] == '1') ? first.pr : second.pr;
- if (pr == NoProc) return;
- AskQuestion(title, question, replyPrefix, pr);
-}
-
-void
-TypeInEvent (char firstChar)
-{
- if ((gameMode == BeginningOfGame && !appData.icsActive) ||
- gameMode == MachinePlaysWhite || gameMode == MachinePlaysBlack ||
- gameMode == AnalyzeMode || gameMode == EditGame ||
- gameMode == EditPosition || gameMode == IcsExamining ||
- gameMode == IcsPlayingWhite || gameMode == IcsPlayingBlack ||
- isdigit(firstChar) && // [HGM] movenum: allow typing in of move nr in 'passive' modes
- ( gameMode == AnalyzeFile || gameMode == PlayFromGameFile ||
- gameMode == IcsObserving || gameMode == TwoMachinesPlay ) ||
- gameMode == Training) PopUpMoveDialog(firstChar);
-}
-
-void
-TypeInDoneEvent (char *move)
-{
- Board board;
- int n, fromX, fromY, toX, toY;
- char promoChar;
- ChessMove moveType;
-
- // [HGM] FENedit
- if(gameMode == EditPosition && ParseFEN(board, &n, move, TRUE) ) {
- EditPositionPasteFEN(move);
- return;
- }
- // [HGM] movenum: allow move number to be typed in any mode
- if(sscanf(move, "%d", &n) == 1 && n != 0 ) {
- ToNrEvent(2*n-1);
- return;
- }
- // undocumented kludge: allow command-line option to be typed in!
- // (potentially fatal, and does not implement the effect of the option.)
- // should only be used for options that are values on which future decisions will be made,
- // and definitely not on options that would be used during initialization.
- if(strstr(move, "!!! -") == move) {
- ParseArgsFromString(move+4);
- return;
- }
-
- if (gameMode != EditGame && currentMove != forwardMostMove &&
- gameMode != Training) {
- DisplayMoveError(_("Displayed move is not current"));
- } else {
- int ok = ParseOneMove(move, gameMode == EditPosition ? blackPlaysFirst : currentMove,
- &moveType, &fromX, &fromY, &toX, &toY, &promoChar);
- if(!ok && move[0] >= 'a') { move[0] += 'A' - 'a'; ok = 2; } // [HGM] try also capitalized
- if (ok==1 || ok && ParseOneMove(move, gameMode == EditPosition ? blackPlaysFirst : currentMove,
- &moveType, &fromX, &fromY, &toX, &toY, &promoChar)) {
- UserMoveEvent(fromX, fromY, toX, toY, promoChar);
- } else {
- DisplayMoveError(_("Could not parse move"));
- }
- }
-}
-
-void
-DisplayMove (int moveNumber)
-{
- char message[MSG_SIZ];
- char res[MSG_SIZ];
- char cpThinkOutput[MSG_SIZ];
-
- if(appData.noGUI) return; // [HGM] fast: suppress display of moves
-
- if (moveNumber == forwardMostMove - 1 ||
- gameMode == AnalyzeMode || gameMode == AnalyzeFile) {
-
- safeStrCpy(cpThinkOutput, thinkOutput, sizeof(cpThinkOutput)/sizeof(cpThinkOutput[0]));
-
- if (strchr(cpThinkOutput, '\n')) {
- *strchr(cpThinkOutput, '\n') = NULLCHAR;
- }
- } else {
- *cpThinkOutput = NULLCHAR;
- }
-
- /* [AS] Hide thinking from human user */
- if( appData.hideThinkingFromHuman && gameMode != TwoMachinesPlay ) {
- *cpThinkOutput = NULLCHAR;
- if( thinkOutput[0] != NULLCHAR ) {
- int i;
-
- for( i=0; i<=hiddenThinkOutputState; i++ ) {
- cpThinkOutput[i] = '.';
- }
- cpThinkOutput[i] = NULLCHAR;
- hiddenThinkOutputState = (hiddenThinkOutputState + 1) % 3;
- }
- }
-
- if (moveNumber == forwardMostMove - 1 &&
- gameInfo.resultDetails != NULL) {
- if (gameInfo.resultDetails[0] == NULLCHAR) {
- snprintf(res, MSG_SIZ, " %s", PGNResult(gameInfo.result));
- } else {
- snprintf(res, MSG_SIZ, " {%s} %s",
- T_(gameInfo.resultDetails), PGNResult(gameInfo.result));
- }
- } else {
- res[0] = NULLCHAR;
- }
-
- if (moveNumber < 0 || parseList[moveNumber][0] == NULLCHAR) {
- DisplayMessage(res, cpThinkOutput);
- } else {
- snprintf(message, MSG_SIZ, "%d.%s%s%s", moveNumber / 2 + 1,
- WhiteOnMove(moveNumber) ? " " : ".. ",
- parseList[moveNumber], res);
- DisplayMessage(message, cpThinkOutput);
- }
-}
-
-void
-DisplayComment (int moveNumber, char *text)
-{
- char title[MSG_SIZ];
-
- if (moveNumber < 0 || parseList[moveNumber][0] == NULLCHAR) {
- safeStrCpy(title, "Comment", sizeof(title)/sizeof(title[0]));
- } else {
- snprintf(title,MSG_SIZ, "Comment on %d.%s%s", moveNumber / 2 + 1,
- WhiteOnMove(moveNumber) ? " " : ".. ",
- parseList[moveNumber]);
- }
- if (text != NULL && (appData.autoDisplayComment || commentUp))
- CommentPopUp(title, text);
-}
-
-/* This routine sends a ^C interrupt to gnuchess, to awaken it if it
- * might be busy thinking or pondering. It can be omitted if your
- * gnuchess is configured to stop thinking immediately on any user
- * input. However, that gnuchess feature depends on the FIONREAD
- * ioctl, which does not work properly on some flavors of Unix.
- */
-void
-Attention (ChessProgramState *cps)
-{
-#if ATTENTION
- if (!cps->useSigint) return;
- if (appData.noChessProgram || (cps->pr == NoProc)) return;
- switch (gameMode) {
- case MachinePlaysWhite:
- case MachinePlaysBlack:
- case TwoMachinesPlay:
- case IcsPlayingWhite:
- case IcsPlayingBlack:
- case AnalyzeMode:
- case AnalyzeFile:
- /* Skip if we know it isn't thinking */
- if (!cps->maybeThinking) return;
- if (appData.debugMode)
- fprintf(debugFP, "Interrupting %s\n", cps->which);
- InterruptChildProcess(cps->pr);
- cps->maybeThinking = FALSE;
- break;
- default:
- break;
- }
-#endif /*ATTENTION*/
-}
-
-int
-CheckFlags ()
-{
- if (whiteTimeRemaining <= 0) {
- if (!whiteFlag) {
- whiteFlag = TRUE;
- if (appData.icsActive) {
- if (appData.autoCallFlag &&
- gameMode == IcsPlayingBlack && !blackFlag) {
- SendToICS(ics_prefix);
- SendToICS("flag\n");
- }
- } else {
- if (blackFlag) {
- if(gameMode != TwoMachinesPlay) DisplayTitle(_("Both flags fell"));
- } else {
- if(gameMode != TwoMachinesPlay) DisplayTitle(_("White's flag fell"));
- if (appData.autoCallFlag) {
- GameEnds(BlackWins, "Black wins on time", GE_XBOARD);
- return TRUE;
- }
- }
- }
- }
- }
- if (blackTimeRemaining <= 0) {
- if (!blackFlag) {
- blackFlag = TRUE;
- if (appData.icsActive) {
- if (appData.autoCallFlag &&
- gameMode == IcsPlayingWhite && !whiteFlag) {
- SendToICS(ics_prefix);
- SendToICS("flag\n");
- }
- } else {
- if (whiteFlag) {
- if(gameMode != TwoMachinesPlay) DisplayTitle(_("Both flags fell"));
- } else {
- if(gameMode != TwoMachinesPlay) DisplayTitle(_("Black's flag fell"));
- if (appData.autoCallFlag) {
- GameEnds(WhiteWins, "White wins on time", GE_XBOARD);
- return TRUE;
- }
- }
- }
- }
- }
- return FALSE;
-}
-
-void
-CheckTimeControl ()
-{
- if (!appData.clockMode || appData.icsActive || searchTime || // [HGM] st: no inc in st mode
- gameMode == PlayFromGameFile || forwardMostMove == 0) return;
-
- /*
- * add time to clocks when time control is achieved ([HGM] now also used for increment)
- */
- if ( !WhiteOnMove(forwardMostMove) ) {
- /* White made time control */
- lastWhite -= whiteTimeRemaining; // [HGM] contains start time, socalculate thinking time
- whiteTimeRemaining += GetTimeQuota((forwardMostMove-whiteStartMove-1)/2, lastWhite, whiteTC)
- /* [HGM] time odds: correct new time quota for time odds! */
- / WhitePlayer()->timeOdds;
- lastBlack = blackTimeRemaining; // [HGM] leave absolute time (after quota), so next switch we can us it to calculate thinking time
- } else {
- lastBlack -= blackTimeRemaining;
- /* Black made time control */
- blackTimeRemaining += GetTimeQuota((forwardMostMove-blackStartMove-1)/2, lastBlack, blackTC)
- / WhitePlayer()->other->timeOdds;
- lastWhite = whiteTimeRemaining;
- }
-}
-
-void
-DisplayBothClocks ()
-{
- int wom = gameMode == EditPosition ?
- !blackPlaysFirst : WhiteOnMove(currentMove);
- DisplayWhiteClock(whiteTimeRemaining, wom);
- DisplayBlackClock(blackTimeRemaining, !wom);
-}
-
-
-/* Timekeeping seems to be a portability nightmare. I think everyone
- has ftime(), but I'm really not sure, so I'm including some ifdefs
- to use other calls if you don't. Clocks will be less accurate if
- you have neither ftime nor gettimeofday.
-*/
-
-/* VS 2008 requires the #include outside of the function */
-#if !HAVE_GETTIMEOFDAY && HAVE_FTIME
-#include <sys/timeb.h>
-#endif
-
-/* Get the current time as a TimeMark */
-void
-GetTimeMark (TimeMark *tm)
-{
-#if HAVE_GETTIMEOFDAY
-
- struct timeval timeVal;
- struct timezone timeZone;
-
- gettimeofday(&timeVal, &timeZone);
- tm->sec = (long) timeVal.tv_sec;
- tm->ms = (int) (timeVal.tv_usec / 1000L);
-
-#else /*!HAVE_GETTIMEOFDAY*/
-#if HAVE_FTIME
-
-// include <sys/timeb.h> / moved to just above start of function
- struct timeb timeB;
-
- ftime(&timeB);
- tm->sec = (long) timeB.time;
- tm->ms = (int) timeB.millitm;
-
-#else /*!HAVE_FTIME && !HAVE_GETTIMEOFDAY*/
- tm->sec = (long) time(NULL);
- tm->ms = 0;
-#endif
-#endif
-}
-
-/* Return the difference in milliseconds between two
- time marks. We assume the difference will fit in a long!
-*/
-long
-SubtractTimeMarks (TimeMark *tm2, TimeMark *tm1)
-{
- return 1000L*(tm2->sec - tm1->sec) +
- (long) (tm2->ms - tm1->ms);
-}
-
-
-/*
- * Code to manage the game clocks.
- *
- * In tournament play, black starts the clock and then white makes a move.
- * We give the human user a slight advantage if he is playing white---the
- * clocks don't run until he makes his first move, so it takes zero time.
- * Also, we don't account for network lag, so we could get out of sync
- * with GNU Chess's clock -- but then, referees are always right.
- */
-
-static TimeMark tickStartTM;
-static long intendedTickLength;
-
-long
-NextTickLength (long timeRemaining)
-{
- long nominalTickLength, nextTickLength;
-
- if (timeRemaining > 0L && timeRemaining <= 10000L)
- nominalTickLength = 100L;
- else
- nominalTickLength = 1000L;
- nextTickLength = timeRemaining % nominalTickLength;
- if (nextTickLength <= 0) nextTickLength += nominalTickLength;
-
- return nextTickLength;
-}
-
-/* Adjust clock one minute up or down */
-void
-AdjustClock (Boolean which, int dir)
-{
- if(appData.autoCallFlag) { DisplayError(_("Clock adjustment not allowed in auto-flag mode"), 0); return; }
- if(which) blackTimeRemaining += 60000*dir;
- else whiteTimeRemaining += 60000*dir;
- DisplayBothClocks();
- adjustedClock = TRUE;
-}
-
-/* Stop clocks and reset to a fresh time control */
-void
-ResetClocks ()
-{
- (void) StopClockTimer();
- if (appData.icsActive) {
- whiteTimeRemaining = blackTimeRemaining = 0;
- } else if (searchTime) {
- whiteTimeRemaining = 1000*searchTime / WhitePlayer()->timeOdds;
- blackTimeRemaining = 1000*searchTime / WhitePlayer()->other->timeOdds;
- } else { /* [HGM] correct new time quote for time odds */
- whiteTC = blackTC = fullTimeControlString;
- whiteTimeRemaining = GetTimeQuota(-1, 0, whiteTC) / WhitePlayer()->timeOdds;
- blackTimeRemaining = GetTimeQuota(-1, 0, blackTC) / WhitePlayer()->other->timeOdds;
- }
- if (whiteFlag || blackFlag) {
- DisplayTitle("");
- whiteFlag = blackFlag = FALSE;
- }
- lastWhite = lastBlack = whiteStartMove = blackStartMove = 0;
- DisplayBothClocks();
- adjustedClock = FALSE;
-}
-
-#define FUDGE 25 /* 25ms = 1/40 sec; should be plenty even for 50 Hz clocks */
-
-/* Decrement running clock by amount of time that has passed */
-void
-DecrementClocks ()
-{
- long timeRemaining;
- long lastTickLength, fudge;
- TimeMark now;
-
- if (!appData.clockMode) return;
- if (gameMode==AnalyzeMode || gameMode == AnalyzeFile) return;
-
- GetTimeMark(&now);
-
- lastTickLength = SubtractTimeMarks(&now, &tickStartTM);
-
- /* Fudge if we woke up a little too soon */
- fudge = intendedTickLength - lastTickLength;
- if (fudge < 0 || fudge > FUDGE) fudge = 0;
-
- if (WhiteOnMove(forwardMostMove)) {
- if(whiteNPS >= 0) lastTickLength = 0;
- timeRemaining = whiteTimeRemaining -= lastTickLength;
- if(timeRemaining < 0 && !appData.icsActive) {
- GetTimeQuota((forwardMostMove-whiteStartMove-1)/2, 0, whiteTC); // sets suddenDeath & nextSession;
- if(suddenDeath) { // [HGM] if we run out of a non-last incremental session, go to the next
- whiteStartMove = forwardMostMove; whiteTC = nextSession;
- lastWhite= timeRemaining = whiteTimeRemaining += GetTimeQuota(-1, 0, whiteTC);
- }
- }
- DisplayWhiteClock(whiteTimeRemaining - fudge,
- WhiteOnMove(currentMove < forwardMostMove ? currentMove : forwardMostMove));
- } else {
- if(blackNPS >= 0) lastTickLength = 0;
- timeRemaining = blackTimeRemaining -= lastTickLength;
- if(timeRemaining < 0 && !appData.icsActive) { // [HGM] if we run out of a non-last incremental session, go to the next
- GetTimeQuota((forwardMostMove-blackStartMove-1)/2, 0, blackTC);
- if(suddenDeath) {
- blackStartMove = forwardMostMove;
- lastBlack = timeRemaining = blackTimeRemaining += GetTimeQuota(-1, 0, blackTC=nextSession);
- }
- }
- DisplayBlackClock(blackTimeRemaining - fudge,
- !WhiteOnMove(currentMove < forwardMostMove ? currentMove : forwardMostMove));
- }
- if (CheckFlags()) return;
-
- if(twoBoards) { // count down secondary board's clocks as well
- activePartnerTime -= lastTickLength;
- partnerUp = 1;
- if(activePartner == 'W')
- DisplayWhiteClock(activePartnerTime, TRUE); // the counting clock is always the highlighted one!
- else
- DisplayBlackClock(activePartnerTime, TRUE);
- partnerUp = 0;
- }
-
- tickStartTM = now;
- intendedTickLength = NextTickLength(timeRemaining - fudge) + fudge;
- StartClockTimer(intendedTickLength);
-
- /* if the time remaining has fallen below the alarm threshold, sound the
- * alarm. if the alarm has sounded and (due to a takeback or time control
- * with increment) the time remaining has increased to a level above the
- * threshold, reset the alarm so it can sound again.
- */
-
- if (appData.icsActive && appData.icsAlarm) {
-
- /* make sure we are dealing with the user's clock */
- if (!( ((gameMode == IcsPlayingWhite) && WhiteOnMove(currentMove)) ||
- ((gameMode == IcsPlayingBlack) && !WhiteOnMove(currentMove))
- )) return;
-
- if (alarmSounded && (timeRemaining > appData.icsAlarmTime)) {
- alarmSounded = FALSE;
- } else if (!alarmSounded && (timeRemaining <= appData.icsAlarmTime)) {
- PlayAlarmSound();
- alarmSounded = TRUE;
- }
- }
-}
-
-
-/* A player has just moved, so stop the previously running
- clock and (if in clock mode) start the other one.
- We redisplay both clocks in case we're in ICS mode, because
- ICS gives us an update to both clocks after every move.
- Note that this routine is called *after* forwardMostMove
- is updated, so the last fractional tick must be subtracted
- from the color that is *not* on move now.
-*/
-void
-SwitchClocks (int newMoveNr)
-{
- long lastTickLength;
- TimeMark now;
- int flagged = FALSE;
-
- GetTimeMark(&now);
-
- if (StopClockTimer() && appData.clockMode) {
- lastTickLength = SubtractTimeMarks(&now, &tickStartTM);
- if (!WhiteOnMove(forwardMostMove)) {
- if(blackNPS >= 0) lastTickLength = 0;
- blackTimeRemaining -= lastTickLength;
- /* [HGM] PGNtime: save time for PGN file if engine did not give it */
-// if(pvInfoList[forwardMostMove].time == -1)
- pvInfoList[forwardMostMove].time = // use GUI time
- (timeRemaining[1][forwardMostMove-1] - blackTimeRemaining)/10;
- } else {
- if(whiteNPS >= 0) lastTickLength = 0;
- whiteTimeRemaining -= lastTickLength;
- /* [HGM] PGNtime: save time for PGN file if engine did not give it */
-// if(pvInfoList[forwardMostMove].time == -1)
- pvInfoList[forwardMostMove].time =
- (timeRemaining[0][forwardMostMove-1] - whiteTimeRemaining)/10;
- }
- flagged = CheckFlags();
- }
- forwardMostMove = newMoveNr; // [HGM] race: change stm when no timer interrupt scheduled
- CheckTimeControl();
-
- if (flagged || !appData.clockMode) return;
-
- switch (gameMode) {
- case MachinePlaysBlack:
- case MachinePlaysWhite:
- case BeginningOfGame:
- if (pausing) return;
- break;
-
- case EditGame:
- case PlayFromGameFile:
- case IcsExamining:
- return;
-
- default:
- break;
- }
-
- if (searchTime) { // [HGM] st: set clock of player that has to move to max time
- if(WhiteOnMove(forwardMostMove))
- whiteTimeRemaining = 1000*searchTime / WhitePlayer()->timeOdds;
- else blackTimeRemaining = 1000*searchTime / WhitePlayer()->other->timeOdds;
- }
-
- tickStartTM = now;
- intendedTickLength = NextTickLength(WhiteOnMove(forwardMostMove) ?
- whiteTimeRemaining : blackTimeRemaining);
- StartClockTimer(intendedTickLength);
-}
-
-
-/* Stop both clocks */
-void
-StopClocks ()
-{
- long lastTickLength;
- TimeMark now;
-
- if (!StopClockTimer()) return;
- if (!appData.clockMode) return;
-
- GetTimeMark(&now);
-
- lastTickLength = SubtractTimeMarks(&now, &tickStartTM);
- if (WhiteOnMove(forwardMostMove)) {
- if(whiteNPS >= 0) lastTickLength = 0;
- whiteTimeRemaining -= lastTickLength;
- DisplayWhiteClock(whiteTimeRemaining, WhiteOnMove(currentMove));
- } else {
- if(blackNPS >= 0) lastTickLength = 0;
- blackTimeRemaining -= lastTickLength;
- DisplayBlackClock(blackTimeRemaining, !WhiteOnMove(currentMove));
- }
- CheckFlags();
-}
-
-/* Start clock of player on move. Time may have been reset, so
- if clock is already running, stop and restart it. */
-void
-StartClocks ()
-{
- (void) StopClockTimer(); /* in case it was running already */
- DisplayBothClocks();
- if (CheckFlags()) return;
-
- if (!appData.clockMode) return;
- if (gameMode == AnalyzeMode || gameMode == AnalyzeFile) return;
-
- GetTimeMark(&tickStartTM);
- intendedTickLength = NextTickLength(WhiteOnMove(forwardMostMove) ?
- whiteTimeRemaining : blackTimeRemaining);
-
- /* [HGM] nps: figure out nps factors, by determining which engine plays white and/or black once and for all */
- whiteNPS = blackNPS = -1;
- if(gameMode == MachinePlaysWhite || gameMode == TwoMachinesPlay && first.twoMachinesColor[0] == 'w'
- || appData.zippyPlay && gameMode == IcsPlayingBlack) // first (perhaps only) engine has white
- whiteNPS = first.nps;
- if(gameMode == MachinePlaysBlack || gameMode == TwoMachinesPlay && first.twoMachinesColor[0] == 'b'
- || appData.zippyPlay && gameMode == IcsPlayingWhite) // first (perhaps only) engine has black
- blackNPS = first.nps;
- if(gameMode == TwoMachinesPlay && first.twoMachinesColor[0] == 'b') // second only used in Two-Machines mode
- whiteNPS = second.nps;
- if(gameMode == TwoMachinesPlay && first.twoMachinesColor[0] == 'w')
- blackNPS = second.nps;
- if(appData.debugMode) fprintf(debugFP, "nps: w=%d, b=%d\n", whiteNPS, blackNPS);
-
- StartClockTimer(intendedTickLength);
-}
-
-char *
-TimeString (long ms)
-{
- long second, minute, hour, day;
- char *sign = "";
- static char buf[32];
-
- if (ms > 0 && ms <= 9900) {
- /* convert milliseconds to tenths, rounding up */
- double tenths = floor( ((double)(ms + 99L)) / 100.00 );
-
- snprintf(buf,sizeof(buf)/sizeof(buf[0]), " %03.1f ", tenths/10.0);
- return buf;
- }
-
- /* convert milliseconds to seconds, rounding up */
- /* use floating point to avoid strangeness of integer division
- with negative dividends on many machines */
- second = (long) floor(((double) (ms + 999L)) / 1000.0);
-
- if (second < 0) {
- sign = "-";
- second = -second;
- }
-
- day = second / (60 * 60 * 24);
- second = second % (60 * 60 * 24);
- hour = second / (60 * 60);
- second = second % (60 * 60);
- minute = second / 60;
- second = second % 60;
-
- if (day > 0)
- snprintf(buf, sizeof(buf)/sizeof(buf[0]), " %s%ld:%02ld:%02ld:%02ld ",
- sign, day, hour, minute, second);
- else if (hour > 0)
- snprintf(buf, sizeof(buf)/sizeof(buf[0]), " %s%ld:%02ld:%02ld ", sign, hour, minute, second);
- else
- snprintf(buf, sizeof(buf)/sizeof(buf[0]), " %s%2ld:%02ld ", sign, minute, second);
-
- return buf;
-}
-
-
-/*
- * This is necessary because some C libraries aren't ANSI C compliant yet.
- */
-char *
-StrStr (char *string, char *match)
-{
- int i, length;
-
- length = strlen(match);
-
- for (i = strlen(string) - length; i >= 0; i--, string++)
- if (!strncmp(match, string, length))
- return string;
-
- return NULL;
-}
-
-char *
-StrCaseStr (char *string, char *match)
-{
- int i, j, length;
-
- length = strlen(match);
-
- for (i = strlen(string) - length; i >= 0; i--, string++) {
- for (j = 0; j < length; j++) {
- if (ToLower(match[j]) != ToLower(string[j]))
- break;
- }
- if (j == length) return string;
- }
-
- return NULL;
-}
-
-#ifndef _amigados
-int
-StrCaseCmp (char *s1, char *s2)
-{
- char c1, c2;
-
- for (;;) {
- c1 = ToLower(*s1++);
- c2 = ToLower(*s2++);
- if (c1 > c2) return 1;
- if (c1 < c2) return -1;
- if (c1 == NULLCHAR) return 0;
- }
-}
-
-
-int
-ToLower (int c)
-{
- return isupper(c) ? tolower(c) : c;
-}
-
-
-int
-ToUpper (int c)
-{
- return islower(c) ? toupper(c) : c;
-}
-#endif /* !_amigados */
-
-char *
-StrSave (char *s)
-{
- char *ret;
-
- if ((ret = (char *) malloc(strlen(s) + 1)))
- {
- safeStrCpy(ret, s, strlen(s)+1);
- }
- return ret;
-}
-
-char *
-StrSavePtr (char *s, char **savePtr)
-{
- if (*savePtr) {
- free(*savePtr);
- }
- if ((*savePtr = (char *) malloc(strlen(s) + 1))) {
- safeStrCpy(*savePtr, s, strlen(s)+1);
- }
- return(*savePtr);
-}
-
-char *
-PGNDate ()
-{
- time_t clock;
- struct tm *tm;
- char buf[MSG_SIZ];
-
- clock = time((time_t *)NULL);
- tm = localtime(&clock);
- snprintf(buf, MSG_SIZ, "%04d.%02d.%02d",
- tm->tm_year + 1900, tm->tm_mon + 1, tm->tm_mday);
- return StrSave(buf);
-}
-
-
-char *
-PositionToFEN (int move, char *overrideCastling, int moveCounts)
-{
- int i, j, fromX, fromY, toX, toY;
- int whiteToPlay, haveRights = nrCastlingRights;
- char buf[MSG_SIZ];
- char *p, *q;
- int emptycount;
- ChessSquare piece;
-
- whiteToPlay = (gameMode == EditPosition) ?
- !blackPlaysFirst : (move % 2 == 0);
- p = buf;
-
- /* Piece placement data */
- for (i = BOARD_HEIGHT - 1; i >= 0; i--) {
- if(MSG_SIZ - (p - buf) < BOARD_RGHT - BOARD_LEFT + 20) { *p = 0; return StrSave(buf); }
- emptycount = 0;
- for (j = BOARD_LEFT; j < BOARD_RGHT; j++) {
- if (boards[move][i][j] == EmptySquare) {
- emptycount++;
- } else { ChessSquare piece = boards[move][i][j];
- if (emptycount > 0) {
- if(emptycount<10) /* [HGM] can be >= 10 */
- *p++ = '0' + emptycount;
- else { *p++ = '0' + emptycount/10; *p++ = '0' + emptycount%10; }
- emptycount = 0;
- }
- if(PieceToChar(piece) == '+') {
- /* [HGM] write promoted pieces as '+<unpromoted>' (Shogi) */
- *p++ = '+';
- piece = (ChessSquare)(CHUDEMOTED(piece));
- }
- *p++ = (piece == DarkSquare ? '*' : PieceToChar(piece));
- if(*p = PieceSuffix(piece)) p++;
- if(p[-1] == '~') {
- /* [HGM] flag promoted pieces as '<promoted>~' (Crazyhouse) */
- p[-1] = PieceToChar((ChessSquare)(CHUDEMOTED(piece)));
- *p++ = '~';
- }
- }
- }
- if (emptycount > 0) {
- if(emptycount<10) /* [HGM] can be >= 10 */
- *p++ = '0' + emptycount;
- else { *p++ = '0' + emptycount/10; *p++ = '0' + emptycount%10; }
- emptycount = 0;
- }
- *p++ = '/';
- }
- *(p - 1) = ' ';
-
- /* [HGM] print Crazyhouse or Shogi holdings */
- if( gameInfo.holdingsWidth ) {
- *(p-1) = '['; /* if we wanted to support BFEN, this could be '/' */
- q = p;
- for(i=0; i<gameInfo.holdingsSize; i++) { /* white holdings */
- piece = boards[move][i][BOARD_WIDTH-1];
- if( piece != EmptySquare )
- for(j=0; j<(int) boards[move][i][BOARD_WIDTH-2]; j++)
- *p++ = PieceToChar(piece);
- }
- for(i=0; i<gameInfo.holdingsSize; i++) { /* black holdings */
- piece = boards[move][BOARD_HEIGHT-i-1][0];
- if( piece != EmptySquare )
- for(j=0; j<(int) boards[move][BOARD_HEIGHT-i-1][1]; j++)
- *p++ = PieceToChar(piece);
- }
-
- if( q == p ) *p++ = '-';
- *p++ = ']';
- *p++ = ' ';
- }
-
- /* Active color */
- *p++ = whiteToPlay ? 'w' : 'b';
- *p++ = ' ';
-
- if(pieceDesc[WhiteKing] && strchr(pieceDesc[WhiteKing], 'i') && !strchr(pieceDesc[WhiteKing], 'O')) { // redefined without castling
- haveRights = 0; q = p;
- for(i=BOARD_RGHT-1; i>=BOARD_LEFT; i--) {
- piece = boards[move][0][i];
- if(piece >= WhitePawn && piece <= WhiteKing && pieceDesc[piece] && strchr(pieceDesc[piece], 'i')) { // piece with initial move
- if(!(boards[move][TOUCHED_W] & 1<<i)) *p++ = 'A' + i; // print file ID if it has not moved
- }
- }
- for(i=BOARD_RGHT-1; i>=BOARD_LEFT; i--) {
- piece = boards[move][BOARD_HEIGHT-1][i];
- if(piece >= BlackPawn && piece <= BlackKing && pieceDesc[piece] && strchr(pieceDesc[piece], 'i')) { // piece with initial move
- if(!(boards[move][TOUCHED_B] & 1<<i)) *p++ = 'a' + i; // print file ID if it has not moved
- }
- }
- if(p == q) *p++ = '-';
- *p++ = ' ';
- }
-
- if(q = overrideCastling) { // [HGM] FRC: override castling & e.p fields for non-compliant engines
- while(*p++ = *q++)
- ;
- if(q != overrideCastling+1) p[-1] = ' '; else --p;
- } else {
- if(haveRights) {
- int handW=0, handB=0;
- if(gameInfo.variant == VariantSChess) { // for S-Chess, all virgin backrank pieces must be listed
- for(i=0; i<BOARD_HEIGHT; i++) handW += boards[move][i][BOARD_RGHT]; // count white held pieces
- for(i=0; i<BOARD_HEIGHT; i++) handB += boards[move][i][BOARD_LEFT-1]; // count black held pieces
- }
- q = p;
- if(appData.fischerCastling) {
- if(handW) { // in shuffle S-Chess simply dump all virgin pieces
- for(i=BOARD_RGHT-1; i>=BOARD_LEFT; i--)
- if(boards[move][VIRGIN][i] & VIRGIN_W) *p++ = i + AAA + 'A' - 'a';
- } else {
- /* [HGM] write directly from rights */
- if(boards[move][CASTLING][2] != NoRights &&
- boards[move][CASTLING][0] != NoRights )
- *p++ = boards[move][CASTLING][0] + AAA + 'A' - 'a';
- if(boards[move][CASTLING][2] != NoRights &&
- boards[move][CASTLING][1] != NoRights )
- *p++ = boards[move][CASTLING][1] + AAA + 'A' - 'a';
- }
- if(handB) {
- for(i=BOARD_RGHT-1; i>=BOARD_LEFT; i--)
- if(boards[move][VIRGIN][i] & VIRGIN_B) *p++ = i + AAA;
- } else {
- if(boards[move][CASTLING][5] != NoRights &&
- boards[move][CASTLING][3] != NoRights )
- *p++ = boards[move][CASTLING][3] + AAA;
- if(boards[move][CASTLING][5] != NoRights &&
- boards[move][CASTLING][4] != NoRights )
- *p++ = boards[move][CASTLING][4] + AAA;
- }
- } else {
-
- /* [HGM] write true castling rights */
- if( nrCastlingRights == 6 ) {
- int q, k=0;
- if(boards[move][CASTLING][0] != NoRights &&
- boards[move][CASTLING][2] != NoRights ) k = 1, *p++ = 'K';
- q = (boards[move][CASTLING][1] != NoRights &&
- boards[move][CASTLING][2] != NoRights );
- if(handW) { // for S-Chess with pieces in hand, list virgin pieces between K and Q
- for(i=BOARD_RGHT-1-k; i>=BOARD_LEFT+q; i--)
- if((boards[move][0][i] != WhiteKing || k+q == 0) &&
- boards[move][VIRGIN][i] & VIRGIN_W) *p++ = i + AAA + 'A' - 'a';
- }
- if(q) *p++ = 'Q';
- k = 0;
- if(boards[move][CASTLING][3] != NoRights &&
- boards[move][CASTLING][5] != NoRights ) k = 1, *p++ = 'k';
- q = (boards[move][CASTLING][4] != NoRights &&
- boards[move][CASTLING][5] != NoRights );
- if(handB) {
- for(i=BOARD_RGHT-1-k; i>=BOARD_LEFT+q; i--)
- if((boards[move][BOARD_HEIGHT-1][i] != BlackKing || k+q == 0) &&
- boards[move][VIRGIN][i] & VIRGIN_B) *p++ = i + AAA;
- }
- if(q) *p++ = 'q';
- }
- }
- if (q == p) *p++ = '-'; /* No castling rights */
- *p++ = ' ';
- }
-
- if(gameInfo.variant != VariantShogi && gameInfo.variant != VariantXiangqi &&
- gameInfo.variant != VariantShatranj && gameInfo.variant != VariantCourier &&
- gameInfo.variant != VariantMakruk && gameInfo.variant != VariantASEAN ) {
- /* En passant target square */
- if (move > backwardMostMove) {
- fromX = moveList[move - 1][0] - AAA;
- fromY = moveList[move - 1][1] - ONE;
- toX = moveList[move - 1][2] - AAA;
- toY = moveList[move - 1][3] - ONE;
- if (fromY == (whiteToPlay ? BOARD_HEIGHT-2 : 1) &&
- toY == (whiteToPlay ? BOARD_HEIGHT-4 : 3) &&
- boards[move][toY][toX] == (whiteToPlay ? BlackPawn : WhitePawn) &&
- fromX == toX) {
- /* 2-square pawn move just happened */
- *p++ = toX + AAA;
- *p++ = whiteToPlay ? '6'+BOARD_HEIGHT-8 : '3';
- } else {
- *p++ = '-';
- }
- } else if(move == backwardMostMove) {
- // [HGM] perhaps we should always do it like this, and forget the above?
- if((signed char)boards[move][EP_STATUS] >= 0) {
- *p++ = boards[move][EP_STATUS] + AAA;
- *p++ = whiteToPlay ? '6'+BOARD_HEIGHT-8 : '3';
- } else {
- *p++ = '-';
- }
- } else {
- *p++ = '-';
- }
- *p++ = ' ';
- }
- }
-
- if(moveCounts)
- { int i = 0, j=move;
-
- /* [HGM] find reversible plies */
- if (appData.debugMode) { int k;
- fprintf(debugFP, "write FEN 50-move: %d %d %d\n", initialRulePlies, forwardMostMove, backwardMostMove);
- for(k=backwardMostMove; k<=forwardMostMove; k++)
- fprintf(debugFP, "e%d. p=%d\n", k, (signed char)boards[k][EP_STATUS]);
-
- }
-
- while(j > backwardMostMove && (signed char)boards[j][EP_STATUS] <= EP_NONE) j--,i++;
- if( j == backwardMostMove ) i += initialRulePlies;
- sprintf(p, "%d ", i);
- p += i>=100 ? 4 : i >= 10 ? 3 : 2;
-
- /* Fullmove number */
- sprintf(p, "%d", (move / 2) + 1);
- } else *--p = NULLCHAR;
-
- return StrSave(buf);
-}
-
-Boolean
-ParseFEN (Board board, int *blackPlaysFirst, char *fen, Boolean autoSize)
-{
- int i, j, k, w=0, subst=0, shuffle=0, wKingRank = -1, bKingRank = -1;
- char *p, c;
- int emptycount, virgin[BOARD_FILES];
- ChessSquare piece, king = (gameInfo.variant == VariantKnightmate ? WhiteUnicorn : WhiteKing);
-
- p = fen;
-
- /* Piece placement data */
- for (i = BOARD_HEIGHT - 1; i >= 0; i--) {
- j = 0;
- for (;;) {
- if (*p == '/' || *p == ' ' || *p == '[' ) {
- if(j > w) w = j;
- emptycount = gameInfo.boardWidth - j;
- while (emptycount--)
- board[i][(j++)+gameInfo.holdingsWidth] = EmptySquare;
- if (*p == '/') p++;
- else if(autoSize && i != BOARD_HEIGHT-1) { // we stumbled unexpectedly into end of board
- for(k=i; k<BOARD_HEIGHT; k++) { // too few ranks; shift towards bottom
- for(j=0; j<BOARD_WIDTH; j++) board[k-i][j] = board[k][j];
- }
- appData.NrRanks = gameInfo.boardHeight - i; i=0;
- }
- break;
-#if(BOARD_FILES >= 10)*0
- } else if(*p=='x' || *p=='X') { /* [HGM] X means 10 */
- p++; emptycount=10;
- if (j + emptycount > gameInfo.boardWidth) return FALSE;
- while (emptycount--)
- board[i][(j++)+gameInfo.holdingsWidth] = EmptySquare;
-#endif
- } else if (*p == '*') {
- board[i][(j++)+gameInfo.holdingsWidth] = DarkSquare; p++;
- } else if (isdigit(*p)) {
- emptycount = *p++ - '0';
- while(isdigit(*p)) emptycount = 10*emptycount + *p++ - '0'; /* [HGM] allow > 9 */
- if (j + emptycount > gameInfo.boardWidth) return FALSE;
- while (emptycount--)
- board[i][(j++)+gameInfo.holdingsWidth] = EmptySquare;
- } else if (*p == '<') {
- if(i == BOARD_HEIGHT-1) shuffle = 1;
- else if (i != 0 || !shuffle) return FALSE;
- p++;
- } else if (shuffle && *p == '>') {
- p++; // for now ignore closing shuffle range, and assume rank-end
- } else if (*p == '?') {
- if (j >= gameInfo.boardWidth) return FALSE;
- if (i != 0 && i != BOARD_HEIGHT-1) return FALSE; // only on back-rank
- board[i][(j++)+gameInfo.holdingsWidth] = ClearBoard; p++; subst++; // placeHolder
- } else if (*p == '+' || isalpha(*p)) {
- char *q, *s = SUFFIXES;
- if (j >= gameInfo.boardWidth) return FALSE;
- if(*p=='+') {
- char c = *++p;
- if(q = strchr(s, p[1])) p++;
- piece = CharToPiece(c + (q ? 64*(q - s + 1) : 0));
- if(piece == EmptySquare) return FALSE; /* unknown piece */
- piece = (ChessSquare) (CHUPROMOTED(piece)); p++;
- if(PieceToChar(piece) != '+') return FALSE; /* unpromotable piece */
- } else {
- char c = *p++;
- if(q = strchr(s, *p)) p++;
- piece = CharToPiece(c + (q ? 64*(q - s + 1) : 0));
- }
-
- if(piece==EmptySquare) return FALSE; /* unknown piece */
- if(*p == '~') { /* [HGM] make it a promoted piece for Crazyhouse */
- piece = (ChessSquare) (PROMOTED(piece));
- if(PieceToChar(piece) != '~') return FALSE; /* cannot be a promoted piece */
- p++;
- }
- board[i][(j++)+gameInfo.holdingsWidth] = piece;
- if(piece == king) wKingRank = i;
- if(piece == WHITE_TO_BLACK king) bKingRank = i;
- } else {
- return FALSE;
- }
- }
- }
- while (*p == '/' || *p == ' ') p++;
-
- if(autoSize && w != 0) appData.NrFiles = w, InitPosition(TRUE);
-
- /* [HGM] by default clear Crazyhouse holdings, if present */
- if(gameInfo.holdingsWidth) {
- for(i=0; i<BOARD_HEIGHT; i++) {
- board[i][0] = EmptySquare; /* black holdings */
- board[i][BOARD_WIDTH-1] = EmptySquare; /* white holdings */
- board[i][1] = (ChessSquare) 0; /* black counts */
- board[i][BOARD_WIDTH-2] = (ChessSquare) 0; /* white counts */
- }
- }
-
- /* [HGM] look for Crazyhouse holdings here */
- while(*p==' ') p++;
- if( gameInfo.holdingsWidth && p[-1] == '/' || *p == '[') {
- int swap=0, wcnt=0, bcnt=0;
- if(*p == '[') p++;
- if(*p == '<') swap++, p++;
- if(*p == '-' ) p++; /* empty holdings */ else {
- if( !gameInfo.holdingsWidth ) return FALSE; /* no room to put holdings! */
- /* if we would allow FEN reading to set board size, we would */
- /* have to add holdings and shift the board read so far here */
- while( (piece = CharToPiece(*p) ) != EmptySquare ) {
- p++;
- if((int) piece >= (int) BlackPawn ) {
- i = (int)piece - (int)BlackPawn;
- i = PieceToNumber((ChessSquare)i);
- if( i >= gameInfo.holdingsSize ) return FALSE;
- board[BOARD_HEIGHT-1-i][0] = piece; /* black holdings */
- board[BOARD_HEIGHT-1-i][1]++; /* black counts */
- bcnt++;
- } else {
- i = (int)piece - (int)WhitePawn;
- i = PieceToNumber((ChessSquare)i);
- if( i >= gameInfo.holdingsSize ) return FALSE;
- board[i][BOARD_WIDTH-1] = piece; /* white holdings */
- board[i][BOARD_WIDTH-2]++; /* black holdings */
- wcnt++;
- }
- }
- if(subst) { // substitute back-rank question marks by holdings pieces
- for(j=BOARD_LEFT; j<BOARD_RGHT; j++) {
- int k, m, n = bcnt + 1;
- if(board[0][j] == ClearBoard) {
- if(!wcnt) return FALSE;
- n = rand() % wcnt;
- for(k=0, m=n; k<gameInfo.holdingsSize; k++) if((m -= board[k][BOARD_WIDTH-2]) < 0) {
- board[0][j] = board[k][BOARD_WIDTH-1]; wcnt--;
- if(--board[k][BOARD_WIDTH-2] == 0) board[k][BOARD_WIDTH-1] = EmptySquare;
- break;
- }
- }
- if(board[BOARD_HEIGHT-1][j] == ClearBoard) {
- if(!bcnt) return FALSE;
- if(n >= bcnt) n = rand() % bcnt; // use same randomization for black and white if possible
- for(k=0, m=n; k<gameInfo.holdingsSize; k++) if((n -= board[BOARD_HEIGHT-1-k][1]) < 0) {
- board[BOARD_HEIGHT-1][j] = board[BOARD_HEIGHT-1-k][0]; bcnt--;
- if(--board[BOARD_HEIGHT-1-k][1] == 0) board[BOARD_HEIGHT-1-k][0] = EmptySquare;
- break;
- }
- }
- }
- subst = 0;
- }
- }
- if(*p == ']') p++;
- }
-
- if(subst) return FALSE; // substitution requested, but no holdings
-
- while(*p == ' ') p++;
-
- /* Active color */
- c = *p++;
- if(appData.colorNickNames) {
- if( c == appData.colorNickNames[0] ) c = 'w'; else
- if( c == appData.colorNickNames[1] ) c = 'b';
- }
- switch (c) {
- case 'w':
- *blackPlaysFirst = FALSE;
- break;
- case 'b':
- *blackPlaysFirst = TRUE;
- break;
- default:
- return FALSE;
- }
-
- /* [HGM] We NO LONGER ignore the rest of the FEN notation */
- /* return the extra info in global variiables */
-
- while(*p==' ') p++;
-
- if(!isdigit(*p) && *p != '-') { // we seem to have castling rights. Make sure they are on the rank the King actually is.
- if(wKingRank >= 0) for(i=0; i<3; i++) castlingRank[i] = wKingRank;
- if(bKingRank >= 0) for(i=3; i<6; i++) castlingRank[i] = bKingRank;
- }
-
- /* set defaults in case FEN is incomplete */
- board[EP_STATUS] = EP_UNKNOWN;
- board[TOUCHED_W] = board[TOUCHED_B] = 0;
- for(i=0; i<nrCastlingRights; i++ ) {
- board[CASTLING][i] =
- appData.fischerCastling ? NoRights : initialRights[i];
- } /* assume possible unless obviously impossible */
- if(initialRights[0]!=NoRights && board[castlingRank[0]][initialRights[0]] != WhiteRook) board[CASTLING][0] = NoRights;
- if(initialRights[1]!=NoRights && board[castlingRank[1]][initialRights[1]] != WhiteRook) board[CASTLING][1] = NoRights;
- if(initialRights[2]!=NoRights && board[castlingRank[2]][initialRights[2]] != WhiteUnicorn
- && board[castlingRank[2]][initialRights[2]] != WhiteKing) board[CASTLING][2] = NoRights;
- if(initialRights[3]!=NoRights && board[castlingRank[3]][initialRights[3]] != BlackRook) board[CASTLING][3] = NoRights;
- if(initialRights[4]!=NoRights && board[castlingRank[4]][initialRights[4]] != BlackRook) board[CASTLING][4] = NoRights;
- if(initialRights[5]!=NoRights && board[castlingRank[5]][initialRights[5]] != BlackUnicorn
- && board[castlingRank[5]][initialRights[5]] != BlackKing) board[CASTLING][5] = NoRights;
- FENrulePlies = 0;
-
- if(pieceDesc[WhiteKing] && strchr(pieceDesc[WhiteKing], 'i') && !strchr(pieceDesc[WhiteKing], 'O')) { // redefined without castling
- char *q = p;
- int w=0, b=0;
- while(isalpha(*p)) {
- if(isupper(*p)) w |= 1 << (*p++ - 'A');
- if(islower(*p)) b |= 1 << (*p++ - 'a');
- }
- if(*p == '-') p++;
- if(p != q) {
- board[TOUCHED_W] = ~w;
- board[TOUCHED_B] = ~b;
- while(*p == ' ') p++;
- }
- } else
-
- if(nrCastlingRights) {
- int fischer = 0;
- if(gameInfo.variant == VariantSChess) for(i=0; i<BOARD_FILES; i++) virgin[i] = 0;
- if(*p >= 'A' && *p <= 'Z' || *p >= 'a' && *p <= 'z' || *p=='-') {
- /* castling indicator present, so default becomes no castlings */
- for(i=0; i<nrCastlingRights; i++ ) {
- board[CASTLING][i] = NoRights;
- }
- }
- while(*p=='K' || *p=='Q' || *p=='k' || *p=='q' || *p=='-' ||
- (appData.fischerCastling || gameInfo.variant == VariantSChess) &&
- ( *p >= 'a' && *p < 'a' + gameInfo.boardWidth) ||
- ( *p >= 'A' && *p < 'A' + gameInfo.boardWidth) ) {
- int c = *p++, whiteKingFile=NoRights, blackKingFile=NoRights;
-
- for(i=BOARD_LEFT; i<BOARD_RGHT; i++) {
- if(board[castlingRank[5]][i] == BlackKing) blackKingFile = i;
- if(board[castlingRank[2]][i] == WhiteKing) whiteKingFile = i;
- }
- if(gameInfo.variant == VariantTwoKings || gameInfo.variant == VariantKnightmate)
- whiteKingFile = blackKingFile = BOARD_WIDTH >> 1; // for these variant scanning fails
- if(whiteKingFile == NoRights || board[castlingRank[2]][whiteKingFile] != WhiteUnicorn
- && board[castlingRank[2]][whiteKingFile] != WhiteKing) whiteKingFile = NoRights;
- if(blackKingFile == NoRights || board[castlingRank[5]][blackKingFile] != BlackUnicorn
- && board[castlingRank[5]][blackKingFile] != BlackKing) blackKingFile = NoRights;
- switch(c) {
- case'K':
- for(i=BOARD_RGHT-1; board[castlingRank[2]][i]!=WhiteRook && i>whiteKingFile; i--);
- board[CASTLING][0] = i != whiteKingFile ? i : NoRights;
- board[CASTLING][2] = whiteKingFile;
- if(board[CASTLING][0] != NoRights) virgin[board[CASTLING][0]] |= VIRGIN_W;
- if(board[CASTLING][2] != NoRights) virgin[board[CASTLING][2]] |= VIRGIN_W;
- if(whiteKingFile != BOARD_WIDTH>>1|| i != BOARD_RGHT-1) fischer = 1;
- break;
- case'Q':
- for(i=BOARD_LEFT; i<BOARD_RGHT && board[castlingRank[2]][i]!=WhiteRook && i<whiteKingFile; i++);
- board[CASTLING][1] = i != whiteKingFile ? i : NoRights;
- board[CASTLING][2] = whiteKingFile;
- if(board[CASTLING][1] != NoRights) virgin[board[CASTLING][1]] |= VIRGIN_W;
- if(board[CASTLING][2] != NoRights) virgin[board[CASTLING][2]] |= VIRGIN_W;
- if(whiteKingFile != BOARD_WIDTH>>1|| i != BOARD_LEFT) fischer = 1;
- break;
- case'k':
- for(i=BOARD_RGHT-1; board[castlingRank[5]][i]!=BlackRook && i>blackKingFile; i--);
- board[CASTLING][3] = i != blackKingFile ? i : NoRights;
- board[CASTLING][5] = blackKingFile;
- if(board[CASTLING][3] != NoRights) virgin[board[CASTLING][3]] |= VIRGIN_B;
- if(board[CASTLING][5] != NoRights) virgin[board[CASTLING][5]] |= VIRGIN_B;
- if(blackKingFile != BOARD_WIDTH>>1|| i != BOARD_RGHT-1) fischer = 1;
- break;
- case'q':
- for(i=BOARD_LEFT; i<BOARD_RGHT && board[castlingRank[5]][i]!=BlackRook && i<blackKingFile; i++);
- board[CASTLING][4] = i != blackKingFile ? i : NoRights;
- board[CASTLING][5] = blackKingFile;
- if(board[CASTLING][4] != NoRights) virgin[board[CASTLING][4]] |= VIRGIN_B;
- if(board[CASTLING][5] != NoRights) virgin[board[CASTLING][5]] |= VIRGIN_B;
- if(blackKingFile != BOARD_WIDTH>>1|| i != BOARD_LEFT) fischer = 1;
- case '-':
- break;
- default: /* FRC castlings */
- if(c >= 'a') { /* black rights */
- if(gameInfo.variant == VariantSChess) { virgin[c-AAA] |= VIRGIN_B; break; } // in S-Chess castlings are always kq, so just virginity
- for(i=BOARD_LEFT; i<BOARD_RGHT; i++)
- if(board[BOARD_HEIGHT-1][i] == BlackKing) break;
- if(i == BOARD_RGHT) break;
- board[CASTLING][5] = i;
- c -= AAA;
- if(board[BOARD_HEIGHT-1][c] < BlackPawn ||
- board[BOARD_HEIGHT-1][c] >= BlackKing ) break;
- if(c > i)
- board[CASTLING][3] = c;
- else
- board[CASTLING][4] = c;
- } else { /* white rights */
- if(gameInfo.variant == VariantSChess) { virgin[c-AAA-'A'+'a'] |= VIRGIN_W; break; } // in S-Chess castlings are always KQ
- for(i=BOARD_LEFT; i<BOARD_RGHT; i++)
- if(board[0][i] == WhiteKing) break;
- if(i == BOARD_RGHT) break;
- board[CASTLING][2] = i;
- c -= AAA - 'a' + 'A';
- if(board[0][c] >= WhiteKing) break;
- if(c > i)
- board[CASTLING][0] = c;
- else
- board[CASTLING][1] = c;
- }
- }
- }
- for(i=0; i<nrCastlingRights; i++)
- if(board[CASTLING][i] != NoRights) initialRights[i] = board[CASTLING][i];
- if(gameInfo.variant == VariantSChess)
- for(i=0; i<BOARD_FILES; i++) board[VIRGIN][i] = shuffle ? VIRGIN_W | VIRGIN_B : virgin[i]; // when shuffling assume all virgin
- if(fischer && shuffle) appData.fischerCastling = TRUE;
- if (appData.debugMode) {
- fprintf(debugFP, "FEN castling rights:");
- for(i=0; i<nrCastlingRights; i++)
- fprintf(debugFP, " %d", board[CASTLING][i]);
- fprintf(debugFP, "\n");
- }
-
- while(*p==' ') p++;
- }
-
- if(shuffle) SetUpShuffle(board, appData.defaultFrcPosition);
-
- /* read e.p. field in games that know e.p. capture */
- if(gameInfo.variant != VariantShogi && gameInfo.variant != VariantXiangqi &&
- gameInfo.variant != VariantShatranj && gameInfo.variant != VariantCourier &&
- gameInfo.variant != VariantMakruk && gameInfo.variant != VariantASEAN ) {
- if(*p=='-') {
- p++; board[EP_STATUS] = EP_NONE;
- } else {
- char c = *p++ - AAA;
-
- if(c < BOARD_LEFT || c >= BOARD_RGHT) return TRUE;
- if(*p >= '0' && *p <='9') p++;
- board[EP_STATUS] = c;
- }
- }
-
-
- if(sscanf(p, "%d", &i) == 1) {
- FENrulePlies = i; /* 50-move ply counter */
- /* (The move number is still ignored) */
- }
-
- return TRUE;
-}
-
-void
-EditPositionPasteFEN (char *fen)
-{
- if (fen != NULL) {
- Board initial_position;
-
- if (!ParseFEN(initial_position, &blackPlaysFirst, fen, TRUE)) {
- DisplayError(_("Bad FEN position in clipboard"), 0);
- return ;
- } else {
- int savedBlackPlaysFirst = blackPlaysFirst;
- EditPositionEvent();
- blackPlaysFirst = savedBlackPlaysFirst;
- CopyBoard(boards[0], initial_position);
- initialRulePlies = FENrulePlies; /* [HGM] copy FEN attributes as well */
- EditPositionDone(FALSE); // [HGM] fake: do not fake rights if we had FEN
- DisplayBothClocks();
- DrawPosition(FALSE, boards[currentMove]);
- }
- }
-}
-
-static char cseq[12] = "\\ ";
-
-Boolean
-set_cont_sequence (char *new_seq)
-{
- int len;
- Boolean ret;
-
- // handle bad attempts to set the sequence
- if (!new_seq)
- return 0; // acceptable error - no debug
-
- len = strlen(new_seq);
- ret = (len > 0) && (len < sizeof(cseq));
- if (ret)
- safeStrCpy(cseq, new_seq, sizeof(cseq)/sizeof(cseq[0]));
- else if (appData.debugMode)
- fprintf(debugFP, "Invalid continuation sequence \"%s\" (maximum length is: %u)\n", new_seq, (unsigned) sizeof(cseq)-1);
- return ret;
-}
-
-/*
- reformat a source message so words don't cross the width boundary. internal
- newlines are not removed. returns the wrapped size (no null character unless
- included in source message). If dest is NULL, only calculate the size required
- for the dest buffer. lp argument indicats line position upon entry, and it's
- passed back upon exit.
-*/
-int
-wrap (char *dest, char *src, int count, int width, int *lp)
-{
- int len, i, ansi, cseq_len, line, old_line, old_i, old_len, clen;
-
- cseq_len = strlen(cseq);
- old_line = line = *lp;
- ansi = len = clen = 0;
-
- for (i=0; i < count; i++)
- {
- if (src[i] == '\033')
- ansi = 1;
-
- // if we hit the width, back up
- if (!ansi && (line >= width) && src[i] != '\n' && src[i] != ' ')
- {
- // store i & len in case the word is too long
- old_i = i, old_len = len;
-
- // find the end of the last word
- while (i && src[i] != ' ' && src[i] != '\n')
- {
- i--;
- len--;
- }
-
- // word too long? restore i & len before splitting it
- if ((old_i-i+clen) >= width)
- {
- i = old_i;
- len = old_len;
- }
-
- // extra space?
- if (i && src[i-1] == ' ')
- len--;
-
- if (src[i] != ' ' && src[i] != '\n')
- {
- i--;
- if (len)
- len--;
- }
-
- // now append the newline and continuation sequence
- if (dest)
- dest[len] = '\n';
- len++;
- if (dest)
- strncpy(dest+len, cseq, cseq_len);
- len += cseq_len;
- line = cseq_len;
- clen = cseq_len;
- continue;
- }
-
- if (dest)
- dest[len] = src[i];
- len++;
- if (!ansi)
- line++;
- if (src[i] == '\n')
- line = 0;
- if (src[i] == 'm')
- ansi = 0;
- }
- if (dest && appData.debugMode)
- {
- fprintf(debugFP, "wrap(count:%d,width:%d,line:%d,len:%d,*lp:%d,src: ",
- count, width, line, len, *lp);
- show_bytes(debugFP, src, count);
- fprintf(debugFP, "\ndest: ");
- show_bytes(debugFP, dest, len);
- fprintf(debugFP, "\n");
- }
- *lp = dest ? line : old_line;
-
- return len;
-}
-
-// [HGM] vari: routines for shelving variations
-Boolean modeRestore = FALSE;
-
-void
-PushInner (int firstMove, int lastMove)
-{
- int i, j, nrMoves = lastMove - firstMove;
-
- // push current tail of game on stack
- savedResult[storedGames] = gameInfo.result;
- savedDetails[storedGames] = gameInfo.resultDetails;
- gameInfo.resultDetails = NULL;
- savedFirst[storedGames] = firstMove;
- savedLast [storedGames] = lastMove;
- savedFramePtr[storedGames] = framePtr;
- framePtr -= nrMoves; // reserve space for the boards
- for(i=nrMoves; i>=1; i--) { // copy boards to stack, working downwards, in case of overlap
- CopyBoard(boards[framePtr+i], boards[firstMove+i]);
- for(j=0; j<MOVE_LEN; j++)
- moveList[framePtr+i][j] = moveList[firstMove+i-1][j];
- for(j=0; j<2*MOVE_LEN; j++)
- parseList[framePtr+i][j] = parseList[firstMove+i-1][j];
- timeRemaining[0][framePtr+i] = timeRemaining[0][firstMove+i];
- timeRemaining[1][framePtr+i] = timeRemaining[1][firstMove+i];
- pvInfoList[framePtr+i] = pvInfoList[firstMove+i-1];
- pvInfoList[firstMove+i-1].depth = 0;
- commentList[framePtr+i] = commentList[firstMove+i];
- commentList[firstMove+i] = NULL;
- }
-
- storedGames++;
- forwardMostMove = firstMove; // truncate game so we can start variation
-}
-
-void
-PushTail (int firstMove, int lastMove)
-{
- if(appData.icsActive) { // only in local mode
- forwardMostMove = currentMove; // mimic old ICS behavior
- return;
- }
- if(storedGames >= MAX_VARIATIONS-2) return; // leave one for PV-walk
-
- PushInner(firstMove, lastMove);
- if(storedGames == 1) GreyRevert(FALSE);
- if(gameMode == PlayFromGameFile) gameMode = EditGame, modeRestore = TRUE;
-}
-
-void
-PopInner (Boolean annotate)
-{
- int i, j, nrMoves;
- char buf[8000], moveBuf[20];
-
- ToNrEvent(savedFirst[storedGames-1]); // sets currentMove
- storedGames--; // do this after ToNrEvent, to make sure HistorySet will refresh entire game after PopInner returns
- nrMoves = savedLast[storedGames] - currentMove;
- if(annotate) {
- int cnt = 10;
- if(!WhiteOnMove(currentMove))
- snprintf(buf, sizeof(buf)/sizeof(buf[0]),"(%d...", (currentMove+2)>>1);
- else safeStrCpy(buf, "(", sizeof(buf)/sizeof(buf[0]));
- for(i=currentMove; i<forwardMostMove; i++) {
- if(WhiteOnMove(i))
- snprintf(moveBuf, sizeof(moveBuf)/sizeof(moveBuf[0]), " %d. %s", (i+2)>>1, SavePart(parseList[i]));
- else snprintf(moveBuf, sizeof(moveBuf)/sizeof(moveBuf[0])," %s", SavePart(parseList[i]));
- strcat(buf, moveBuf);
- if(commentList[i]) { strcat(buf, " "); strcat(buf, commentList[i]); }
- if(!--cnt) { strcat(buf, "\n"); cnt = 10; }
- }
- strcat(buf, ")");
- }
- for(i=1; i<=nrMoves; i++) { // copy last variation back
- CopyBoard(boards[currentMove+i], boards[framePtr+i]);
- for(j=0; j<MOVE_LEN; j++)
- moveList[currentMove+i-1][j] = moveList[framePtr+i][j];
- for(j=0; j<2*MOVE_LEN; j++)
- parseList[currentMove+i-1][j] = parseList[framePtr+i][j];
- timeRemaining[0][currentMove+i] = timeRemaining[0][framePtr+i];
- timeRemaining[1][currentMove+i] = timeRemaining[1][framePtr+i];
- pvInfoList[currentMove+i-1] = pvInfoList[framePtr+i];
- if(commentList[currentMove+i]) free(commentList[currentMove+i]);
- commentList[currentMove+i] = commentList[framePtr+i];
- commentList[framePtr+i] = NULL;
- }
- if(annotate) AppendComment(currentMove+1, buf, FALSE);
- framePtr = savedFramePtr[storedGames];
- gameInfo.result = savedResult[storedGames];
- if(gameInfo.resultDetails != NULL) {
- free(gameInfo.resultDetails);
- }
- gameInfo.resultDetails = savedDetails[storedGames];
- forwardMostMove = currentMove + nrMoves;
-}
-
-Boolean
-PopTail (Boolean annotate)
-{
- if(appData.icsActive) return FALSE; // only in local mode
- if(!storedGames) return FALSE; // sanity
- CommentPopDown(); // make sure no stale variation comments to the destroyed line can remain open
-
- PopInner(annotate);
- if(currentMove < forwardMostMove) ForwardEvent(); else
- HistorySet(parseList, backwardMostMove, forwardMostMove, currentMove-1);
-
- if(storedGames == 0) { GreyRevert(TRUE); if(modeRestore) modeRestore = FALSE, gameMode = PlayFromGameFile; }
- return TRUE;
-}
-
-void
-CleanupTail ()
-{ // remove all shelved variations
- int i;
- for(i=0; i<storedGames; i++) {
- if(savedDetails[i])
- free(savedDetails[i]);
- savedDetails[i] = NULL;
- }
- for(i=framePtr; i<MAX_MOVES; i++) {
- if(commentList[i]) free(commentList[i]);
- commentList[i] = NULL;
- }
- framePtr = MAX_MOVES-1;
- storedGames = 0;
-}
-
-void
-LoadVariation (int index, char *text)
-{ // [HGM] vari: shelve previous line and load new variation, parsed from text around text[index]
- char *p = text, *start = NULL, *end = NULL, wait = NULLCHAR;
- int level = 0, move;
-
- if(gameMode != EditGame && gameMode != AnalyzeMode && gameMode != PlayFromGameFile) return;
- // first find outermost bracketing variation
- while(*p) { // hope I got this right... Non-nesting {} and [] can screen each other and nesting ()
- if(!wait) { // while inside [] pr {}, ignore everyting except matching closing ]}
- if(*p == '{') wait = '}'; else
- if(*p == '[') wait = ']'; else
- if(*p == '(' && level++ == 0 && p-text < index) start = p+1;
- if(*p == ')' && level > 0 && --level == 0 && p-text > index && end == NULL) end = p-1;
- }
- if(*p == wait) wait = NULLCHAR; // closing ]} found
- p++;
- }
- if(!start || !end) return; // no variation found, or syntax error in PGN: ignore click
- if(appData.debugMode) fprintf(debugFP, "at move %d load variation '%s'\n", currentMove, start);
- end[1] = NULLCHAR; // clip off comment beyond variation
- ToNrEvent(currentMove-1);
- PushTail(currentMove, forwardMostMove); // shelve main variation. This truncates game
- // kludge: use ParsePV() to append variation to game
- move = currentMove;
- ParsePV(start, TRUE, TRUE);
- forwardMostMove = endPV; endPV = -1; currentMove = move; // cleanup what ParsePV did
- ClearPremoveHighlights();
- CommentPopDown();
- ToNrEvent(currentMove+1);
-}
-
-void
-LoadTheme ()
-{
- char *p, *q, buf[MSG_SIZ];
- if(engineLine && engineLine[0]) { // a theme was selected from the listbox
- snprintf(buf, MSG_SIZ, "-theme %s", engineLine);
- ParseArgsFromString(buf);
- ActivateTheme(TRUE); // also redo colors
- return;
- }
- p = nickName;
- if(*p && !strchr(p, '"')) // theme name specified and well-formed; add settings to theme list
- {
- int len;
- q = appData.themeNames;
- snprintf(buf, MSG_SIZ, "\"%s\"", nickName);
- if(appData.useBitmaps) {
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -ubt true -lbtf \"%s\" -dbtf \"%s\" -lbtm %d -dbtm %d",
- appData.liteBackTextureFile, appData.darkBackTextureFile,
- appData.liteBackTextureMode,
- appData.darkBackTextureMode );
- } else {
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -ubt false -lsc %s -dsc %s",
- Col2Text(2), // lightSquareColor
- Col2Text(3) ); // darkSquareColor
- }
- if(appData.useBorder) {
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -ub true -border \"%s\"",
- appData.border);
- } else {
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -ub false");
- }
- if(appData.useFont) {
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -upf true -pf \"%s\" -fptc \"%s\" -fpfcw %s -fpbcb %s",
- appData.renderPiecesWithFont,
- appData.fontToPieceTable,
- Col2Text(9), // appData.fontBackColorWhite
- Col2Text(10) ); // appData.fontForeColorBlack
- } else {
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -upf false -pid \"%s\"",
- appData.pieceDirectory);
- if(!appData.pieceDirectory[0])
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -wpc %s -bpc %s",
- Col2Text(0), // whitePieceColor
- Col2Text(1) ); // blackPieceColor
- }
- snprintf(buf+strlen(buf), MSG_SIZ-strlen(buf), " -hsc %s -phc %s\n",
- Col2Text(4), // highlightSquareColor
- Col2Text(5) ); // premoveHighlightColor
- appData.themeNames = malloc(len = strlen(q) + strlen(buf) + 1);
- if(insert != q) insert[-1] = NULLCHAR;
- snprintf(appData.themeNames, len, "%s\n%s%s", q, buf, insert);
- if(q) free(q);
- }
- ActivateTheme(FALSE);
-}