src/chess/rules.c

Wed, 29 Aug 2018 17:05:40 +0200

author
Mike Becker <universe@uap-core.de>
date
Wed, 29 Aug 2018 17:05:40 +0200
changeset 67
c76e46970a59
parent 66
f5cc75565f7c
child 68
b34de5ce7d0e
permissions
-rw-r--r--

verified that checkmate notation does work correctly

universe@19 1 /*
universe@19 2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
universe@19 3 *
universe@55 4 * Copyright 2016 Mike Becker. All rights reserved.
universe@19 5 *
universe@19 6 * Redistribution and use in source and binary forms, with or without
universe@19 7 * modification, are permitted provided that the following conditions are met:
universe@19 8 *
universe@19 9 * 1. Redistributions of source code must retain the above copyright
universe@19 10 * notice, this list of conditions and the following disclaimer.
universe@19 11 *
universe@19 12 * 2. Redistributions in binary form must reproduce the above copyright
universe@19 13 * notice, this list of conditions and the following disclaimer in the
universe@19 14 * documentation and/or other materials provided with the distribution.
universe@19 15 *
universe@19 16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
universe@19 17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
universe@19 18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
universe@19 19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
universe@19 20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
universe@19 21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
universe@19 22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
universe@19 23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
universe@19 24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
universe@19 25 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
universe@19 26 * POSSIBILITY OF SUCH DAMAGE.
universe@19 27 *
universe@19 28 */
universe@19 29
universe@19 30 #include "rules.h"
universe@19 31 #include "chess.h"
universe@19 32 #include <string.h>
universe@23 33 #include <stdlib.h>
universe@36 34 #include <sys/time.h>
universe@23 35
universe@48 36 static GameState gamestate_copy_sim(GameState *gamestate) {
universe@48 37 GameState simulation = *gamestate;
universe@66 38 simulation.movecount = 0; /* simulations do not count moves */
universe@48 39 if (simulation.lastmove) {
universe@48 40 MoveList *lastmovecopy = malloc(sizeof(MoveList));
universe@48 41 *lastmovecopy = *(simulation.lastmove);
universe@48 42 simulation.movelist = simulation.lastmove = lastmovecopy;
universe@48 43 }
universe@51 44
universe@48 45 return simulation;
universe@48 46 }
universe@48 47
universe@50 48 void gamestate_init(GameState *gamestate) {
universe@50 49 memset(gamestate, 0, sizeof(GameState));
universe@50 50
universe@50 51 Board initboard = {
universe@50 52 {WROOK, WKNIGHT, WBISHOP, WQUEEN, WKING, WBISHOP, WKNIGHT, WROOK},
universe@50 53 {WPAWN, WPAWN, WPAWN, WPAWN, WPAWN, WPAWN, WPAWN, WPAWN},
universe@50 54 {0, 0, 0, 0, 0, 0, 0, 0},
universe@50 55 {0, 0, 0, 0, 0, 0, 0, 0},
universe@50 56 {0, 0, 0, 0, 0, 0, 0, 0},
universe@50 57 {0, 0, 0, 0, 0, 0, 0, 0},
universe@50 58 {BPAWN, BPAWN, BPAWN, BPAWN, BPAWN, BPAWN, BPAWN, BPAWN},
universe@50 59 {BROOK, BKNIGHT, BBISHOP, BQUEEN, BKING, BBISHOP, BKNIGHT, BROOK}
universe@50 60 };
universe@50 61 memcpy(gamestate->board, initboard, sizeof(Board));
universe@50 62 }
universe@50 63
universe@23 64 void gamestate_cleanup(GameState *gamestate) {
universe@23 65 MoveList *elem;
universe@23 66 elem = gamestate->movelist;
universe@23 67 while (elem) {
universe@23 68 MoveList *cur = elem;
universe@23 69 elem = elem->next;
universe@23 70 free(cur);
universe@23 71 };
universe@23 72 }
universe@23 73
universe@67 74 /* MUST be called BETWEEN validating AND applying a move to work correctly */
universe@49 75 static void format_move(GameState *gamestate, Move *move) {
universe@66 76 char *string = &(move->string[0]);
universe@49 77
universe@49 78 /* at least 8 characters should be available, wipe them out */
universe@49 79 memset(string, 0, 8);
universe@49 80
universe@64 81 unsigned int idx;
universe@49 82 if ((move->piece&PIECE_MASK) == KING &&
universe@49 83 abs(move->tofile-move->fromfile) == 2) {
universe@64 84 /* special formats for castling */
universe@49 85 if (move->tofile==fileidx('c')) {
universe@49 86 memcpy(string, "O-O-O", 5);
universe@64 87 idx = 5;
universe@49 88 } else {
universe@49 89 memcpy(string, "O-O", 3);
universe@64 90 idx = 3;
universe@49 91 }
universe@64 92 } else {
universe@64 93 /* start by notating the piece character */
universe@64 94 string[0] = getpiecechr(move->piece);
universe@64 95 idx = string[0] ? 1 : 0;
universe@49 96
universe@64 97 /* find out how many source information we do need */
universe@64 98 uint8_t piece = move->piece & PIECE_MASK;
universe@64 99 if (piece == PAWN) {
universe@64 100 if (move->capture) {
universe@64 101 string[idx++] = filechr(move->fromfile);
universe@64 102 }
universe@64 103 } else if (piece != KING) {
universe@64 104 /* resolve ambiguities, if any */
universe@64 105 Move threats[16];
universe@64 106 uint8_t threatcount;
universe@66 107 if (get_threats(gamestate, move->torow, move->tofile,
universe@66 108 move->piece&COLOR_MASK, threats, &threatcount)) {
universe@66 109 unsigned int ambrows = 0, ambfiles = 0, ambpiece = 0;
universe@64 110 for (uint8_t i = 0 ; i < threatcount ; i++) {
universe@66 111 if (threats[i].piece == move->piece) {
universe@66 112 ambpiece++;
universe@66 113 if (threats[i].fromrow == move->fromrow) {
universe@66 114 ambrows++;
universe@66 115 }
universe@66 116 if (threats[i].fromfile == move->fromfile) {
universe@66 117 ambfiles++;
universe@66 118 }
universe@64 119 }
universe@49 120 }
universe@66 121 /* neither file, nor row are ambiguous, name file */
universe@66 122 if (ambpiece > 1 && ambrows == 1 && ambfiles == 1) {
universe@66 123 /* this is most likely the case with Knights
universe@66 124 * in diagonal opposition */
universe@64 125 string[idx++] = filechr(move->fromfile);
universe@66 126 } else {
universe@66 127 /* ambiguous row, name file */
universe@66 128 if (ambrows > 1) {
universe@66 129 string[idx++] = filechr(move->fromfile);
universe@66 130 }
universe@66 131 /* ambiguous file, name row */
universe@66 132 if (ambfiles > 1) {
universe@66 133 string[idx++] = filechr(move->fromrow);
universe@66 134 }
universe@49 135 }
universe@49 136 }
universe@49 137 }
universe@64 138
universe@64 139 /* capturing? */
universe@64 140 if (move->capture) {
universe@64 141 string[idx++] = 'x';
universe@64 142 }
universe@64 143
universe@64 144 /* destination */
universe@64 145 string[idx++] = filechr(move->tofile);
universe@64 146 string[idx++] = rowchr(move->torow);
universe@64 147
universe@64 148 /* promotion? */
universe@64 149 if (move->promotion) {
universe@64 150 string[idx++] = '=';
universe@64 151 string[idx++] = getpiecechr(move->promotion);
universe@64 152 }
universe@49 153 }
universe@49 154
universe@49 155 /* check? */
universe@49 156 if (move->check) {
universe@49 157 string[idx++] = gamestate->checkmate?'#':'+';
universe@49 158 }
universe@49 159 }
universe@49 160
universe@23 161 static void addmove(GameState* gamestate, Move *move) {
universe@23 162 MoveList *elem = malloc(sizeof(MoveList));
universe@23 163 elem->next = NULL;
universe@23 164 elem->move = *move;
universe@23 165
universe@40 166 struct timeval curtimestamp;
universe@40 167 gettimeofday(&curtimestamp, NULL);
universe@40 168 elem->move.timestamp.tv_sec = curtimestamp.tv_sec;
universe@40 169 elem->move.timestamp.tv_usec = curtimestamp.tv_usec;
universe@33 170
universe@23 171 if (gamestate->lastmove) {
universe@40 172 struct movetimeval *lasttstamp = &(gamestate->lastmove->move.timestamp);
universe@40 173 uint64_t sec = curtimestamp.tv_sec - lasttstamp->tv_sec;
universe@36 174 suseconds_t micros;
universe@40 175 if (curtimestamp.tv_usec < lasttstamp->tv_usec) {
universe@40 176 micros = 1e6L-(lasttstamp->tv_usec - curtimestamp.tv_usec);
universe@33 177 sec--;
universe@33 178 } else {
universe@40 179 micros = curtimestamp.tv_usec - lasttstamp->tv_usec;
universe@33 180 }
universe@33 181
universe@33 182 elem->move.movetime.tv_sec = sec;
universe@36 183 elem->move.movetime.tv_usec = micros;
universe@33 184
universe@23 185 gamestate->lastmove->next = elem;
universe@23 186 gamestate->lastmove = elem;
universe@63 187 gamestate->movecount++;
universe@23 188 } else {
universe@36 189 elem->move.movetime.tv_usec = 0;
universe@33 190 elem->move.movetime.tv_sec = 0;
universe@23 191 gamestate->movelist = gamestate->lastmove = elem;
universe@63 192 gamestate->movecount = 1;
universe@23 193 }
universe@23 194 }
universe@19 195
universe@19 196 char getpiecechr(uint8_t piece) {
universe@19 197 switch (piece & PIECE_MASK) {
universe@19 198 case ROOK: return 'R';
universe@19 199 case KNIGHT: return 'N';
universe@19 200 case BISHOP: return 'B';
universe@19 201 case QUEEN: return 'Q';
universe@19 202 case KING: return 'K';
universe@19 203 default: return '\0';
universe@19 204 }
universe@19 205 }
universe@19 206
universe@19 207 uint8_t getpiece(char c) {
universe@19 208 switch (c) {
universe@19 209 case 'R': return ROOK;
universe@19 210 case 'N': return KNIGHT;
universe@19 211 case 'B': return BISHOP;
universe@19 212 case 'Q': return QUEEN;
universe@19 213 case 'K': return KING;
universe@19 214 default: return 0;
universe@19 215 }
universe@19 216 }
universe@19 217
universe@49 218 static void apply_move_impl(GameState *gamestate, Move *move, _Bool simulate) {
universe@66 219 /* format move before moving (s.t. ambiguities can be resolved) */
universe@66 220 if (!simulate) {
universe@66 221 if (!move->string[0]) {
universe@66 222 format_move(gamestate, move);
universe@66 223 }
universe@66 224 }
universe@66 225
universe@19 226 uint8_t piece = move->piece & PIECE_MASK;
universe@19 227 uint8_t color = move->piece & COLOR_MASK;
universe@19 228
universe@19 229 /* en passant capture */
universe@19 230 if (move->capture && piece == PAWN &&
universe@23 231 mdst(gamestate->board, move) == 0) {
universe@23 232 gamestate->board[move->fromrow][move->tofile] = 0;
universe@19 233 }
universe@19 234
universe@19 235 /* remove old en passant threats */
universe@19 236 for (uint8_t file = 0 ; file < 8 ; file++) {
universe@23 237 gamestate->board[3][file] &= ~ENPASSANT_THREAT;
universe@23 238 gamestate->board[4][file] &= ~ENPASSANT_THREAT;
universe@19 239 }
universe@19 240
universe@19 241 /* add new en passant threat */
universe@19 242 if (piece == PAWN && (
universe@19 243 (move->fromrow == 1 && move->torow == 3) ||
universe@19 244 (move->fromrow == 6 && move->torow == 4))) {
universe@19 245 move->piece |= ENPASSANT_THREAT;
universe@19 246 }
universe@19 247
universe@19 248 /* move (and maybe capture or promote) */
universe@23 249 msrc(gamestate->board, move) = 0;
universe@19 250 if (move->promotion) {
universe@23 251 mdst(gamestate->board, move) = move->promotion;
universe@19 252 } else {
universe@23 253 mdst(gamestate->board, move) = move->piece;
universe@19 254 }
universe@19 255
universe@19 256 /* castling */
universe@49 257 if (piece == KING && move->fromfile == fileidx('e')) {
universe@19 258 if (move->tofile == fileidx('g')) {
universe@23 259 gamestate->board[move->torow][fileidx('h')] = 0;
universe@23 260 gamestate->board[move->torow][fileidx('f')] = color|ROOK;
universe@19 261 } else if (move->tofile == fileidx('c')) {
universe@23 262 gamestate->board[move->torow][fileidx('a')] = 0;
universe@23 263 gamestate->board[move->torow][fileidx('d')] = color|ROOK;
universe@19 264 }
universe@19 265 }
universe@66 266
universe@49 267 /* add move, even in simulation (checkmate test needs it) */
universe@23 268 addmove(gamestate, move);
universe@19 269 }
universe@19 270
universe@49 271 void apply_move(GameState *gamestate, Move *move) {
universe@49 272 apply_move_impl(gamestate, move, 0);
universe@49 273 }
universe@49 274
universe@48 275 static int validate_move_rules(GameState *gamestate, Move *move) {
universe@19 276 /* validate indices (don't trust opponent) */
universe@19 277 if (!chkidx(move)) {
universe@48 278 return INVALID_POSITION;
universe@19 279 }
universe@19 280
universe@21 281 /* must move */
universe@21 282 if (move->fromfile == move->tofile && move->fromrow == move->torow) {
universe@48 283 return INVALID_MOVE_SYNTAX;
universe@21 284 }
universe@21 285
universe@19 286 /* does piece exist */
universe@47 287 if ((msrc(gamestate->board, move)&(PIECE_MASK|COLOR_MASK))
universe@47 288 != (move->piece&(PIECE_MASK|COLOR_MASK))) {
universe@48 289 return INVALID_POSITION;
universe@29 290 }
universe@19 291
universe@19 292 /* can't capture own pieces */
universe@29 293 if ((mdst(gamestate->board, move) & COLOR_MASK)
universe@47 294 == (move->piece & COLOR_MASK)) {
universe@48 295 return RULES_VIOLATED;
universe@47 296 }
universe@47 297
universe@47 298 /* must capture, if and only if destination is occupied */
universe@47 299 if ((mdst(gamestate->board, move) == 0 && move->capture) ||
universe@47 300 (mdst(gamestate->board, move) != 0 && !move->capture)) {
universe@48 301 return INVALID_MOVE_SYNTAX;
universe@19 302 }
universe@19 303
universe@19 304 /* validate individual rules */
universe@48 305 _Bool chkrules;
universe@19 306 switch (move->piece & PIECE_MASK) {
universe@19 307 case PAWN:
universe@48 308 chkrules = pawn_chkrules(gamestate, move) &&
universe@29 309 !pawn_isblocked(gamestate, move);
universe@48 310 break;
universe@19 311 case ROOK:
universe@48 312 chkrules = rook_chkrules(move) &&
universe@29 313 !rook_isblocked(gamestate, move);
universe@48 314 break;
universe@19 315 case KNIGHT:
universe@48 316 chkrules = knight_chkrules(move); /* knight is never blocked */
universe@48 317 break;
universe@19 318 case BISHOP:
universe@48 319 chkrules = bishop_chkrules(move) &&
universe@29 320 !bishop_isblocked(gamestate, move);
universe@48 321 break;
universe@19 322 case QUEEN:
universe@48 323 chkrules = queen_chkrules(move) &&
universe@29 324 !queen_isblocked(gamestate, move);
universe@48 325 break;
universe@19 326 case KING:
universe@48 327 chkrules = king_chkrules(gamestate, move) &&
universe@29 328 !king_isblocked(gamestate, move);
universe@48 329 break;
universe@19 330 default:
universe@48 331 return INVALID_MOVE_SYNTAX;
universe@19 332 }
universe@48 333
universe@48 334 return chkrules ? VALID_MOVE_SEMANTICS : RULES_VIOLATED;
universe@29 335 }
universe@29 336
universe@48 337 int validate_move(GameState *gamestate, Move *move) {
universe@19 338
universe@48 339 int result = validate_move_rules(gamestate, move);
universe@29 340
universe@29 341 /* cancel processing to save resources */
universe@48 342 if (result != VALID_MOVE_SEMANTICS) {
universe@48 343 return result;
universe@25 344 }
universe@25 345
universe@62 346 /* simulate move for check validation */
universe@62 347 GameState simulation = gamestate_copy_sim(gamestate);
universe@62 348 Move simmove = *move;
universe@62 349 apply_move_impl(&simulation, &simmove, 1);
universe@62 350
universe@28 351 /* find kings for check validation */
universe@29 352 uint8_t piececolor = (move->piece & COLOR_MASK);
universe@29 353
universe@28 354 uint8_t mykingfile = 0, mykingrow = 0, opkingfile = 0, opkingrow = 0;
universe@28 355 for (uint8_t row = 0 ; row < 8 ; row++) {
universe@28 356 for (uint8_t file = 0 ; file < 8 ; file++) {
universe@62 357 if (simulation.board[row][file] ==
universe@28 358 (piececolor == WHITE?WKING:BKING)) {
universe@28 359 mykingfile = file;
universe@28 360 mykingrow = row;
universe@62 361 } else if (simulation.board[row][file] ==
universe@28 362 (piececolor == WHITE?BKING:WKING)) {
universe@28 363 opkingfile = file;
universe@28 364 opkingrow = row;
universe@28 365 }
universe@28 366 }
universe@28 367 }
universe@28 368
universe@28 369 /* don't move into or stay in check position */
universe@28 370 if (is_covered(&simulation, mykingrow, mykingfile,
universe@28 371 opponent_color(piececolor))) {
universe@48 372
universe@48 373 gamestate_cleanup(&simulation);
universe@48 374 if ((move->piece & PIECE_MASK) == KING) {
universe@48 375 return KING_MOVES_INTO_CHECK;
universe@48 376 } else {
universe@48 377 /* last move is always not null in this case */
universe@48 378 return gamestate->lastmove->move.check ?
universe@48 379 KING_IN_CHECK : PIECE_PINNED;
universe@48 380 }
universe@28 381 }
universe@19 382
universe@25 383 /* correct check and checkmate flags (move is still valid) */
universe@29 384 Move threats[16];
universe@29 385 uint8_t threatcount;
universe@29 386 move->check = get_threats(&simulation, opkingrow, opkingfile,
universe@29 387 piececolor, threats, &threatcount);
universe@19 388
universe@28 389 if (move->check) {
universe@28 390 /* determine possible escape fields */
universe@28 391 _Bool canescape = 0;
universe@28 392 for (int dr = -1 ; dr <= 1 && !canescape ; dr++) {
universe@28 393 for (int df = -1 ; df <= 1 && !canescape ; df++) {
universe@28 394 if (!(dr == 0 && df == 0) &&
universe@28 395 isidx(opkingrow + dr) && isidx(opkingfile + df)) {
universe@28 396
universe@28 397 /* escape field neither blocked nor covered */
universe@28 398 if ((simulation.board[opkingrow + dr][opkingfile + df]
universe@28 399 & COLOR_MASK) != opponent_color(piececolor)) {
universe@28 400 canescape |= !is_covered(&simulation,
universe@28 401 opkingrow + dr, opkingfile + df, piececolor);
universe@28 402 }
universe@28 403 }
universe@28 404 }
universe@28 405 }
universe@29 406 /* can't escape, can he capture? */
universe@29 407 if (!canescape && threatcount == 1) {
universe@29 408 canescape = is_attacked(&simulation, threats[0].fromrow,
universe@29 409 threats[0].fromfile, opponent_color(piececolor));
universe@29 410 }
universe@29 411
universe@29 412 /* can't capture, can he block? */
universe@29 413 if (!canescape && threatcount == 1) {
universe@29 414 Move *threat = &(threats[0]);
universe@29 415 uint8_t threatpiece = threat->piece & PIECE_MASK;
universe@29 416
universe@29 417 /* knight, pawns and the king cannot be blocked */
universe@29 418 if (threatpiece == BISHOP || threatpiece == ROOK
universe@29 419 || threatpiece == QUEEN) {
universe@29 420 if (threat->fromrow == threat->torow) {
universe@29 421 /* rook aspect (on row) */
universe@29 422 int d = threat->tofile > threat->fromfile ? 1 : -1;
universe@29 423 uint8_t file = threat->fromfile;
universe@29 424 while (!canescape && file != threat->tofile - d) {
universe@29 425 file += d;
universe@29 426 canescape |= is_protected(&simulation,
universe@29 427 threat->torow, file, opponent_color(piececolor));
universe@29 428 }
universe@29 429 } else if (threat->fromfile == threat->tofile) {
universe@29 430 /* rook aspect (on file) */
universe@29 431 int d = threat->torow > threat->fromrow ? 1 : -1;
universe@29 432 uint8_t row = threat->fromrow;
universe@29 433 while (!canescape && row != threat->torow - d) {
universe@29 434 row += d;
universe@29 435 canescape |= is_protected(&simulation,
universe@29 436 row, threat->tofile, opponent_color(piececolor));
universe@29 437 }
universe@29 438 } else {
universe@29 439 /* bishop aspect */
universe@51 440 int dr = threat->torow > threat->fromrow ? 1 : -1;
universe@51 441 int df = threat->tofile > threat->fromfile ? 1 : -1;
universe@29 442
universe@51 443 uint8_t row = threat->fromrow;
universe@51 444 uint8_t file = threat->fromfile;
universe@51 445 while (!canescape && file != threat->tofile - df
universe@51 446 && row != threat->torow - dr) {
universe@29 447 row += dr;
universe@29 448 file += df;
universe@29 449 canescape |= is_protected(&simulation, row, file,
universe@29 450 opponent_color(piececolor));
universe@29 451 }
universe@29 452 }
universe@29 453 }
universe@29 454 }
universe@29 455
universe@28 456 if (!canescape) {
universe@29 457 gamestate->checkmate = 1;
universe@28 458 }
universe@28 459 }
universe@28 460
universe@48 461 gamestate_cleanup(&simulation);
universe@48 462
universe@48 463 return VALID_MOVE_SEMANTICS;
universe@19 464 }
universe@19 465
universe@47 466 _Bool get_threats(GameState *gamestate, uint8_t row, uint8_t file,
universe@47 467 uint8_t color, Move *threats, uint8_t *threatcount) {
universe@47 468 Move candidates[32];
universe@47 469 int candidatecount = 0;
universe@47 470 for (uint8_t r = 0 ; r < 8 ; r++) {
universe@47 471 for (uint8_t f = 0 ; f < 8 ; f++) {
universe@47 472 if ((gamestate->board[r][f] & COLOR_MASK) == color) {
universe@64 473 /* non-capturing move */
universe@47 474 memset(&(candidates[candidatecount]), 0, sizeof(Move));
universe@47 475 candidates[candidatecount].piece = gamestate->board[r][f];
universe@47 476 candidates[candidatecount].fromrow = r;
universe@47 477 candidates[candidatecount].fromfile = f;
universe@47 478 candidates[candidatecount].torow = row;
universe@47 479 candidates[candidatecount].tofile = file;
universe@47 480 candidatecount++;
universe@47 481
universe@64 482 /* capturing move */
universe@47 483 memcpy(&(candidates[candidatecount]),
universe@47 484 &(candidates[candidatecount-1]), sizeof(Move));
universe@47 485 candidates[candidatecount].capture = 1;
universe@47 486 candidatecount++;
universe@47 487 }
universe@47 488 }
universe@47 489 }
universe@47 490
universe@47 491 if (threatcount) {
universe@47 492 *threatcount = 0;
universe@47 493 }
universe@47 494
universe@47 495
universe@47 496 _Bool result = 0;
universe@47 497
universe@47 498 for (int i = 0 ; i < candidatecount ; i++) {
universe@48 499 if (validate_move_rules(gamestate, &(candidates[i]))
universe@48 500 == VALID_MOVE_SEMANTICS) {
universe@47 501 result = 1;
universe@47 502 if (threats && threatcount) {
universe@47 503 threats[(*threatcount)++] = candidates[i];
universe@47 504 }
universe@47 505 }
universe@47 506 }
universe@47 507
universe@47 508 return result;
universe@47 509 }
universe@47 510
universe@47 511 _Bool is_pinned(GameState *gamestate, Move *move) {
universe@47 512 uint8_t color = move->piece & COLOR_MASK;
universe@47 513
universe@62 514 GameState simulation = gamestate_copy_sim(gamestate);
universe@62 515 Move simmove = *move;
universe@62 516 apply_move(&simulation, &simmove);
universe@62 517
universe@47 518 uint8_t kingfile = 0, kingrow = 0;
universe@47 519 for (uint8_t row = 0 ; row < 8 ; row++) {
universe@47 520 for (uint8_t file = 0 ; file < 8 ; file++) {
universe@62 521 if (simulation.board[row][file] == (color|KING)) {
universe@47 522 kingfile = file;
universe@47 523 kingrow = row;
universe@47 524 }
universe@47 525 }
universe@47 526 }
universe@62 527
universe@48 528 _Bool covered = is_covered(&simulation,
universe@48 529 kingrow, kingfile, opponent_color(color));
universe@48 530 gamestate_cleanup(&simulation);
universe@48 531
universe@48 532 return covered;
universe@47 533 }
universe@47 534
universe@47 535 _Bool get_real_threats(GameState *gamestate, uint8_t row, uint8_t file,
universe@47 536 uint8_t color, Move *threats, uint8_t *threatcount) {
universe@47 537
universe@47 538 if (threatcount) {
universe@47 539 *threatcount = 0;
universe@47 540 }
universe@47 541
universe@47 542 Move candidates[16];
universe@47 543 uint8_t candidatecount;
universe@47 544 if (get_threats(gamestate, row, file, color, candidates, &candidatecount)) {
universe@47 545
universe@47 546 _Bool result = 0;
universe@47 547 uint8_t kingfile = 0, kingrow = 0;
universe@47 548 for (uint8_t row = 0 ; row < 8 ; row++) {
universe@47 549 for (uint8_t file = 0 ; file < 8 ; file++) {
universe@47 550 if (gamestate->board[row][file] == (color|KING)) {
universe@47 551 kingfile = file;
universe@47 552 kingrow = row;
universe@47 553 }
universe@47 554 }
universe@47 555 }
universe@47 556
universe@47 557 for (uint8_t i = 0 ; i < candidatecount ; i++) {
universe@48 558 GameState simulation = gamestate_copy_sim(gamestate);
universe@47 559 Move simmove = candidates[i];
universe@47 560 apply_move(&simulation, &simmove);
universe@47 561 if (!is_covered(&simulation, kingrow, kingfile,
universe@47 562 opponent_color(color))) {
universe@47 563 result = 1;
universe@47 564 if (threats && threatcount) {
universe@47 565 threats[(*threatcount)++] = candidates[i];
universe@47 566 }
universe@47 567 }
universe@47 568 }
universe@47 569
universe@47 570 return result;
universe@47 571 } else {
universe@47 572 return 0;
universe@47 573 }
universe@47 574 }
universe@48 575
universe@47 576 static int getlocation(GameState *gamestate, Move *move) {
universe@47 577
universe@47 578 uint8_t color = move->piece & COLOR_MASK;
universe@47 579 _Bool incheck = gamestate->lastmove?gamestate->lastmove->move.check:0;
universe@47 580
universe@47 581 Move threats[16], *threat = NULL;
universe@47 582 uint8_t threatcount;
universe@47 583
universe@47 584 if (get_threats(gamestate, move->torow, move->tofile, color,
universe@47 585 threats, &threatcount)) {
universe@47 586
universe@49 587 int reason = INVALID_POSITION;
universe@49 588
universe@64 589 /* find threats for the specified position */
universe@62 590 for (uint8_t i = 0 ; i < threatcount ; i++) {
universe@47 591 if ((threats[i].piece & (PIECE_MASK | COLOR_MASK))
universe@47 592 == move->piece &&
universe@47 593 (move->fromrow == POS_UNSPECIFIED ||
universe@47 594 move->fromrow == threats[i].fromrow) &&
universe@47 595 (move->fromfile == POS_UNSPECIFIED ||
universe@47 596 move->fromfile == threats[i].fromfile)) {
universe@47 597
universe@47 598 if (threat) {
universe@47 599 return AMBIGUOUS_MOVE;
universe@47 600 } else {
universe@64 601 /* found threat is no real threat */
universe@49 602 if (is_pinned(gamestate, &(threats[i]))) {
universe@49 603 reason = incheck?KING_IN_CHECK:PIECE_PINNED;
universe@49 604 } else {
universe@49 605 threat = &(threats[i]);
universe@49 606 }
universe@47 607 }
universe@47 608 }
universe@47 609 }
universe@47 610
universe@64 611 /* can't threaten specified position */
universe@47 612 if (!threat) {
universe@49 613 return reason;
universe@47 614 }
universe@47 615
universe@49 616 memcpy(move, threat, sizeof(Move));
universe@49 617 return VALID_MOVE_SYNTAX;
universe@47 618 } else {
universe@47 619 return INVALID_POSITION;
universe@47 620 }
universe@47 621 }
universe@47 622
universe@50 623 int eval_move(GameState *gamestate, char *mstr, Move *move, uint8_t color) {
universe@19 624 memset(move, 0, sizeof(Move));
universe@19 625 move->fromfile = POS_UNSPECIFIED;
universe@19 626 move->fromrow = POS_UNSPECIFIED;
universe@19 627
universe@19 628 size_t len = strlen(mstr);
universe@48 629 if (len < 1 || len > 6) {
universe@48 630 return INVALID_MOVE_SYNTAX;
universe@48 631 }
universe@19 632
universe@19 633 /* evaluate check/checkmate flags */
universe@19 634 if (mstr[len-1] == '+') {
universe@19 635 len--; mstr[len] = '\0';
universe@19 636 move->check = 1;
universe@19 637 } else if (mstr[len-1] == '#') {
universe@19 638 len--; mstr[len] = '\0';
universe@27 639 /* ignore - validation should set game state */
universe@19 640 }
universe@19 641
universe@19 642 /* evaluate promotion */
universe@19 643 if (len > 3 && mstr[len-2] == '=') {
universe@19 644 move->promotion = getpiece(mstr[len-1]);
universe@19 645 if (!move->promotion) {
universe@19 646 return INVALID_MOVE_SYNTAX;
universe@19 647 } else {
universe@50 648 move->promotion |= color;
universe@19 649 len -= 2;
universe@19 650 mstr[len] = 0;
universe@19 651 }
universe@19 652 }
universe@19 653
universe@19 654 if (len == 2) {
universe@19 655 /* pawn move (e.g. "e4") */
universe@19 656 move->piece = PAWN;
universe@19 657 move->tofile = fileidx(mstr[0]);
universe@19 658 move->torow = rowidx(mstr[1]);
universe@19 659 } else if (len == 3) {
universe@19 660 if (strcmp(mstr, "O-O") == 0) {
universe@19 661 /* king side castling */
universe@19 662 move->piece = KING;
universe@19 663 move->fromfile = fileidx('e');
universe@19 664 move->tofile = fileidx('g');
universe@50 665 move->fromrow = move->torow = color == WHITE ? 0 : 7;
universe@19 666 } else {
universe@19 667 /* move (e.g. "Nf3") */
universe@19 668 move->piece = getpiece(mstr[0]);
universe@19 669 move->tofile = fileidx(mstr[1]);
universe@19 670 move->torow = rowidx(mstr[2]);
universe@19 671 }
universe@19 672 } else if (len == 4) {
universe@19 673 move->piece = getpiece(mstr[0]);
universe@19 674 if (!move->piece) {
universe@19 675 move->piece = PAWN;
universe@19 676 move->fromfile = fileidx(mstr[0]);
universe@19 677 }
universe@19 678 if (mstr[1] == 'x') {
universe@19 679 /* capture (e.g. "Nxf3", "dxe5") */
universe@19 680 move->capture = 1;
universe@19 681 } else {
universe@19 682 /* move (e.g. "Ndf3", "N2c3", "e2e4") */
universe@19 683 if (isfile(mstr[1])) {
universe@19 684 move->fromfile = fileidx(mstr[1]);
universe@19 685 if (move->piece == PAWN) {
universe@19 686 move->piece = 0;
universe@19 687 }
universe@19 688 } else {
universe@19 689 move->fromrow = rowidx(mstr[1]);
universe@19 690 }
universe@19 691 }
universe@19 692 move->tofile = fileidx(mstr[2]);
universe@19 693 move->torow = rowidx(mstr[3]);
universe@19 694 } else if (len == 5) {
universe@19 695 if (strcmp(mstr, "O-O-O") == 0) {
universe@19 696 /* queen side castling "O-O-O" */
universe@19 697 move->piece = KING;
universe@19 698 move->fromfile = fileidx('e');
universe@19 699 move->tofile = fileidx('c');
universe@50 700 move->fromrow = move->torow = color == WHITE ? 0 : 7;
universe@19 701 } else {
universe@19 702 move->piece = getpiece(mstr[0]);
universe@19 703 if (mstr[2] == 'x') {
universe@19 704 move->capture = 1;
universe@19 705 if (move->piece) {
universe@19 706 /* capture (e.g. "Ndxf3") */
universe@19 707 move->fromfile = fileidx(mstr[1]);
universe@19 708 } else {
universe@19 709 /* long notation capture (e.g. "e5xf6") */
universe@19 710 move->piece = PAWN;
universe@19 711 move->fromfile = fileidx(mstr[0]);
universe@19 712 move->fromrow = rowidx(mstr[1]);
universe@19 713 }
universe@19 714 } else {
universe@19 715 /* long notation move (e.g. "Nc5a4") */
universe@19 716 move->fromfile = fileidx(mstr[1]);
universe@19 717 move->fromrow = rowidx(mstr[2]);
universe@19 718 }
universe@19 719 move->tofile = fileidx(mstr[3]);
universe@19 720 move->torow = rowidx(mstr[4]);
universe@19 721 }
universe@19 722 } else if (len == 6) {
universe@19 723 /* long notation capture (e.g. "Nc5xf3") */
universe@19 724 if (mstr[3] == 'x') {
universe@19 725 move->capture = 1;
universe@19 726 move->piece = getpiece(mstr[0]);
universe@19 727 move->fromfile = fileidx(mstr[1]);
universe@19 728 move->fromrow = rowidx(mstr[2]);
universe@19 729 move->tofile = fileidx(mstr[4]);
universe@19 730 move->torow = rowidx(mstr[5]);
universe@19 731 }
universe@19 732 }
universe@19 733
universe@19 734
universe@19 735 if (move->piece) {
universe@23 736 if (move->piece == PAWN
universe@50 737 && move->torow == (color==WHITE?7:0)
universe@19 738 && !move->promotion) {
universe@19 739 return NEED_PROMOTION;
universe@19 740 }
universe@19 741
universe@50 742 move->piece |= color;
universe@19 743 if (move->fromfile == POS_UNSPECIFIED
universe@19 744 || move->fromrow == POS_UNSPECIFIED) {
universe@23 745 return getlocation(gamestate, move);
universe@19 746 } else {
universe@19 747 return chkidx(move) ? VALID_MOVE_SYNTAX : INVALID_POSITION;
universe@19 748 }
universe@19 749 } else {
universe@19 750 return INVALID_MOVE_SYNTAX;
universe@19 751 }
universe@19 752 }
universe@29 753
universe@29 754 _Bool is_protected(GameState *gamestate, uint8_t row, uint8_t file,
universe@29 755 uint8_t color) {
universe@29 756
universe@29 757 Move threats[16];
universe@29 758 uint8_t threatcount;
universe@29 759 if (get_real_threats(gamestate, row, file, color, threats, &threatcount)) {
universe@29 760 for (int i = 0 ; i < threatcount ; i++) {
universe@29 761 if (threats[i].piece != (color|KING)) {
universe@29 762 return 1;
universe@29 763 }
universe@29 764 }
universe@29 765 return 0;
universe@29 766 } else {
universe@29 767 return 0;
universe@29 768 }
universe@29 769 }
universe@33 770
universe@33 771 uint16_t remaining_movetime(GameInfo *gameinfo, GameState *gamestate,
universe@33 772 uint8_t color) {
universe@33 773 if (!gameinfo->timecontrol) {
universe@33 774 return 0;
universe@33 775 }
universe@33 776
universe@33 777 if (gamestate->movelist) {
universe@33 778 uint16_t time = gameinfo->time;
universe@36 779 suseconds_t micros = 0;
universe@33 780
universe@33 781 MoveList *movelist = color == WHITE ?
universe@33 782 gamestate->movelist : gamestate->movelist->next;
universe@33 783
universe@33 784 while (movelist) {
universe@33 785 time += gameinfo->addtime;
universe@33 786
universe@40 787 struct movetimeval *movetime = &(movelist->move.movetime);
universe@33 788 if (movetime->tv_sec >= time) {
universe@33 789 return 0;
universe@33 790 }
universe@33 791
universe@33 792 time -= movetime->tv_sec;
universe@36 793 micros += movetime->tv_usec;
universe@33 794
universe@33 795 movelist = movelist->next ? movelist->next->next : NULL;
universe@33 796 }
universe@33 797
universe@33 798 time_t sec;
universe@33 799 movelist = gamestate->lastmove;
universe@33 800 if ((movelist->move.piece & COLOR_MASK) != color) {
universe@40 801 struct movetimeval *lastmovetstamp = &(movelist->move.timestamp);
universe@36 802 struct timeval currenttstamp;
universe@36 803 gettimeofday(&currenttstamp, NULL);
universe@36 804 micros += currenttstamp.tv_usec - lastmovetstamp->tv_usec;
universe@33 805 sec = currenttstamp.tv_sec - lastmovetstamp->tv_sec;
universe@33 806 if (sec >= time) {
universe@33 807 return 0;
universe@33 808 }
universe@33 809
universe@33 810 time -= sec;
universe@33 811 }
universe@33 812
universe@36 813 sec = micros / 1e6L;
universe@33 814
universe@33 815 if (sec >= time) {
universe@33 816 return 0;
universe@33 817 }
universe@33 818
universe@33 819 time -= sec;
universe@33 820
universe@33 821 return time;
universe@33 822 } else {
universe@33 823 return gameinfo->time;
universe@33 824 }
universe@33 825 }

mercurial