Use gcore for creating core dump on segfault
[capablanca.git] / lasker-2.2.3 / src / setup.c
1 /*
2    This program is free software; you can redistribute it and/or modify
3    it under the terms of the GNU General Public License as published by
4    the Free Software Foundation; either version 2 of the License, or
5    (at your option) any later version.
6    
7    This program is distributed in the hope that it will be useful,
8    but WITHOUT ANY WARRANTY; without even the implied warranty of
9    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10    GNU General Public License for more details.
11    
12    You should have received a copy of the GNU General Public License
13    along with this program; if not, write to the Free Software
14    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
15 */
16
17 /* setup.c 
18
19  Contains stuff for setting up boards in examine mode
20
21 */
22
23 #include "includes.h"
24
25 static int check_valid_square(char* square)
26 {
27  if (strlen (square) == 2) {
28    if ( (square[0] <= 'a') && (square[0] >= 'h')
29      && (square[1] <= '1') && (square [1] >= '8') )
30      return 0;
31    return 1; 
32  } else
33    return 0;
34 }
35
36 /* Check the position is valid
37   ie two kings - one white one black
38   ie no pawns on 1st or 8th ranks
39   only the king that is to move may be in check,
40   checkmate and stalemate */
41
42 static int validate_position (int p,struct game_state_t *b)
43 {
44  int r,f,check;
45  int white_k = 0;
46  int black_k = 0;
47
48   for (f = 0; (f < b->files); f++) {
49     for (r = 0; (r < b->ranks); r++) {
50       if (b->board[f][r] == W_KING) {
51          white_k += 1;
52          if (white_k == 2) {
53            pprintf (p,"You can only have one white king.\n");
54            return 0;
55          }
56       }
57       if (b->board[f][r] == B_KING) {
58          black_k += 1;
59          if (black_k == 2) {
60            pprintf (p,"You can only have one black king.\n");
61            return 0;
62          }
63       }
64       if (((b->board[f][r] == W_PAWN) || (b->board[f][r] == B_PAWN)) &&
65          ((r == 0) || (r == b->ranks-1))) {
66          pprintf (p,"Pawns cannot be placed on the first or eighth rank.\n");
67          return 0;
68       }
69     }
70   }
71   if (!white_k) {
72     pprintf (p,"There is no white king.\n");
73     return 0;
74   }
75   if (!black_k) {
76     pprintf (p,"There is no black king.\n");
77     return 0;
78   }
79   if (b->onMove == WHITE) { pprintf(p, "WHITE to move\n"); }
80   else if (b->onMove == BLACK) { pprintf(p, "BLACK to move\n"); }
81   else pprintf(p, "ERROR!!\n");
82   check = in_check(b);
83   if (check) {
84     pprintf (p,"Only the player to move may be in check.\n");
85     return 0;
86   }
87   if (!has_legal_move(b)) {
88     b->onMove = CToggle(b->onMove);
89     if (in_check(b)) {
90       pprintf (p, "%s is checkmated.\n",
91                    b->onMove == WHITE  ?  "BLACK"  :  "WHITE");
92     } else {
93       pprintf (p, "%s is stalemated.\n",
94                    b->onMove == WHITE  ?  "BLACK"  :  "WHITE");
95     }
96     b->onMove = CToggle(b->onMove);
97   }
98   return 1; /* valid position */
99 }
100
101 int com_setup (int p,param_list param)
102 {
103  struct player *pp = &player_globals.parray[p];
104  int gamenum;
105
106  if ((pp->game <0) || (game_globals.garray[pp->game].status != GAME_SETUP)) {
107    if (param[0].type == TYPE_NULL) {
108        if (pp->game >= 0)
109          if  (game_globals.garray[pp->game].status == GAME_EXAMINE) {
110            game_free (pp->game);
111            game_globals.garray[pp->game].status = GAME_SETUP;
112            game_globals.garray[pp->game].numHalfMoves = 0;
113            game_globals.garray[pp->game].totalHalfMoves = 0;
114            game_globals.garray[pp->game].revertHalfMove = 0;
115            pprintf (p,"Entering examine(setup) mode.\n");
116            return COM_OK;
117          }
118      pcommand (p,"examine setup");
119      return COM_OK_NOPROMPT;
120    } else {
121    pprintf(p, "You are not setting up a position.\n");
122    return COM_OK;
123    }
124  }
125  gamenum = game_globals.garray[pp->game].game_state.gameNum;
126  if (param[0].type != TYPE_NULL) {
127    if (!strcmp("clear",param[0].val.word)) {
128      board_clear(&(game_globals.garray[pp->game].game_state));
129      game_globals.garray[pp->game].game_state.gameNum = gamenum; 
130      send_board_to(pp->game, p);
131      pprintf (p,"Board cleared.\n"); 
132      return COM_OK;
133    } else if (!strcmp("start",param[0].val.word)) {
134      board_standard(&(game_globals.garray[pp->game].game_state));
135      game_globals.garray[pp->game].game_state.gameNum = gamenum;
136      send_board_to(pp->game, p);
137      pprintf (p,"Board set up as starting position.\n");
138      return COM_OK;
139    } else if (!strcmp("fen",param[0].val.word) && param[1].type != TYPE_NULL) {
140      FEN_to_board(param[1].val.string, &(game_globals.garray[pp->game].game_state));
141      game_globals.garray[pp->game].game_state.gameNum = gamenum;
142      send_board_to(pp->game, p);
143      pprintf (p,"Board set up by FEN.\n");
144      return COM_OK;
145    } else if (!strcmp("done",param[0].val.word)) {
146      if (validate_position (p,&(game_globals.garray[pp->game].game_state))) {
147        game_globals.garray[pp->game].status = GAME_EXAMINE;
148        pprintf(p,"Game is validated - entering examine mode.\n");
149        MakeFENpos(pp->game, game_globals.garray[pp->game].FENstartPos);
150      } else
151        pprintf(p,"The position is not valid - staying in setup mode.\n");
152      return COM_OK;
153    } else { /* try to load a category of board */
154      char *board = param[1].val.word;
155      if (param[1].type == TYPE_NULL) board = "0";
156      game_globals.garray[pp->game].FENstartPos[0] = 0; // [HGM] new shuffle
157        if (!board_init (pp->game,&(game_globals.garray[pp->game].game_state),param[0].val.word,board)) {
158          game_globals.garray[pp->game].game_state.gameNum = gamenum;
159          if(!strcmp(board,"0"))
160            sprintf(game_globals.garray[pp->game].variant, "%s",param[0].val.word);
161          else
162            sprintf(game_globals.garray[pp->game].variant, "%s/%s",param[0].val.word,board);
163          send_board_to(pp->game, p);
164          pprintf (p,"Board set up as %s %s.\n",param[0].val.word,board);
165        } else {
166          pprintf (p,"Board %s %s is unavailable.\n",param[0].val.word,board);
167          game_globals.garray[pp->game].game_state.gameNum = gamenum;
168        }
169        return COM_OK;
170      
171    }
172  }
173  pprintf (p, "You have supplied an incorrect parameter to setup.\n");
174  return COM_OK;
175 }
176
177 int com_tomove (int p,param_list param)
178 {
179  struct player *pp = &player_globals.parray[p];
180  if ((pp->game <0) || (game_globals.garray[pp->game].status != GAME_SETUP)) {
181    if (pp->game >= 0)
182      if (game_globals.garray[pp->game].status == GAME_EXAMINE) {
183        pprintf (p,"This game is active - type 'setup' to allow editing.\n");
184        return COM_OK;
185      }
186    pprintf(p, "You are not setting up a position.\n");
187    return COM_OK;
188  }
189  if (!strcmp("white",param[0].val.word))
190     game_globals.garray[pp->game].game_state.onMove = WHITE;
191  else if (!strcmp("black",param[0].val.word))
192     game_globals.garray[pp->game].game_state.onMove = BLACK;
193  else {
194    pprintf (p,"Please type: tomove white    or   tomove black\n");
195    return COM_OK;
196  }
197  pcommand (p,"refresh");
198  return COM_OK_NOPROMPT;
199 }
200
201 int com_clrsquare (int p,param_list param)
202 {
203  struct player *pp = &player_globals.parray[p];
204  if ((pp->game <0) || (game_globals.garray[pp->game].status != GAME_SETUP)) {
205    if (pp->game >= 0)
206      if (game_globals.garray[pp->game].status == GAME_EXAMINE) {
207        pprintf (p,"This game is active - type 'setup' to allow editing.\n");
208        return COM_OK;
209      }
210    pprintf(p, "You are not setting up a position.\n");
211    return COM_OK;
212  }
213
214  if (!check_valid_square(param[0].val.word)) {    
215    pprintf (p,"You must specify a square.");
216    return COM_OK;
217  }
218
219  pcommand (p,"x@%s",param[0].val.word);
220  return COM_OK_NOPROMPT;
221 }
222
223 /* allows the following
224
225  x@rf or X@rf - clear a square
226  P@rf - drop a white pawn
227  p@rf - drop a black pawn
228  wp@rf - drop a white pawn
229  bp@rf - drop a black pawn
230   can replace the @ with a * - some people do not have a @ key
231 */
232
233 /* having to check before then after is lame - will change this later */
234 int is_drop(char* dropstr)
235 {
236
237  int len = strlen (dropstr);
238
239  if ((len < 4) || (len > 5))
240    return 0;
241
242 /*check x@e3 */
243
244  if ((dropstr[0] == 'x') || (dropstr[0] == 'X')) {
245    if (!((dropstr[1] == '@') || (dropstr[1] == '*')))
246      return 0;
247    if (!check_valid_square(dropstr+2))
248      return 0;
249
250 /*check wp@e3 */
251
252  } else if (dropstr[0] == 'w') {
253    if (!((dropstr[1] == 'p') || (dropstr[1] == 'r') || (dropstr[1] == 'n') || (dropstr[1] == 'b') || (dropstr[1] == 'q') || (dropstr[1] == 'k')))
254      return 0;
255    if (!((dropstr[2] == '@') || (dropstr[2] == '*')))
256      return 0;
257    if (!check_valid_square(dropstr+3))
258      return 0;
259
260 /* check bp@e3 */
261
262  } else if (len == 5) { /* so b@e2 and bb@e2 aren't confused */
263    if (dropstr[0] == 'b') {
264      if (!((dropstr[1] == 'p') || (dropstr[1] == 'r') || (dropstr[1] == 'n') || (dropstr[1] == 'b') || (dropstr[1] == 'q') || (dropstr[1] == 'k')))
265        return 0;
266      if (!((dropstr[2] == '@') || (dropstr[2] == '*')))
267        return 0;
268      if (!check_valid_square(dropstr+3))
269        return 0;
270      } else return 0; /* Exhausted 5 char possibilities */ 
271
272 /* check p@e3 and P@e3 */
273
274  } else if ((dropstr[0] == 'p') || (dropstr[0] == 'r') || (dropstr[0] == 'n') || (dropstr[0] == 'b') || (dropstr[0] == 'q') || (dropstr[0] == 'k') || 
275        (dropstr[0] == 'P') || (dropstr[0] == 'R') || (dropstr[0] == 'N') || (dropstr[0] == 'B') || (dropstr[0] == 'Q') || (dropstr[0] == 'K')) {
276
277      if (!((dropstr[1] == '@') || (dropstr[1] == '*')))
278       return 0;
279      if (!check_valid_square(dropstr+2))
280        return 0;
281  } else return 0;
282  return 1; /* valid drop */
283 }
284
285 static void getsquare(char* square,int *f, int *r)
286 {
287  *f = square[0] - 'a';
288  *r = square[1] - '1';
289 }
290
291 int attempt_drop(int p,int g,char* dropstr)
292 {
293  int len = strlen (dropstr);
294  int color;
295  int piece = 0;
296  int f;
297  int r;
298
299  if ((len < 4) || (len > 5))
300    return 0;
301
302 /*check x@e3 */
303
304  if ((dropstr[0] == 'x') || (dropstr[0] == 'X')) { /* as x must be clear */
305    getsquare(dropstr+2,&f,&r);
306    piece = NOPIECE;
307
308 /*check wp@e3 */
309
310  } else if (dropstr[0] == 'w') {
311    piece = CharToPiece(dropstr[1], game_globals.garray[g].game_state.variant) & 0x7F;
312    color = WHITE;
313    getsquare(dropstr+3,&f,&r);
314
315 /* check bp@e3 */
316
317  } else  if (len == 5) { /* check length to avoid b@e2 and bb@e2 being confused */
318    if (dropstr[0] == 'b') {
319      piece = CharToPiece(dropstr[1], game_globals.garray[g].game_state.variant) | BLACK;
320      getsquare(dropstr+3,&f,&r);
321    }
322
323 /* check p@e3 and P@e3 */
324
325  } else {
326    if (!((dropstr[1] == '@') || (dropstr[1] == '*')))
327      return 0;
328    else {
329      piece = CharToPiece(dropstr[0], game_globals.garray[g].game_state.variant);
330      getsquare(dropstr+2,&f,&r);
331      }
332  }
333
334  game_globals.garray[g].game_state.board[f][r] = piece;
335  return 1; /* valid drop */
336 }