1 %{
2
3 /*
4 * FILE: parser.y
5 *
6 * Board parser for xshogi.
7 *
8 * ------------------------------------------------------------------------
9 * xshogi is based on XBoard -- an Xt/Athena user interface for GNU Chess.
10 *
11 * Original authors: Dan Sears, Chris Sears
12 * Enhancements (Version 2.0 and following): Tim Mann
13 * Modifications to XShogi (Version 1.0): Matthias Mutz
14 * Enhancements to XShogi (Version 1.1): Matthias Mutz
15 * Modified implementation of ISS mode for XShogi: Matthias Mutz
16 * Current maintainer: Michael C. Vanier
17 *
18 * XShogi borrows some of its piece bitmaps from CRANES Shogi.
19 *
20 * Copyright 1991 by Digital Equipment Corporation, Maynard, Massachusetts.
21 * Enhancements Copyright 1992 Free Software Foundation, Inc.
22 * Enhancements for XShogi Copyright 1993, 1994, 1995 Matthias Mutz
23 * Copyright 1998, 1999 Michael C. Vanier and the Free Software Foundation
24 *
25 * The following terms apply to Digital Equipment Corporation's copyright
26 * interest in XBoard:
27 * ------------------------------------------------------------------------
28 * All Rights Reserved
29 *
30 * Permission to use, copy, modify, and distribute this software and its
31 * documentation for any purpose and without fee is hereby granted,
32 * provided that the above copyright notice appear in all copies and that
33 * both that copyright notice and this permission notice appear in
34 * supporting documentation, and that the name of Digital not be
35 * used in advertising or publicity pertaining to distribution of the
36 * software without specific, written prior permission.
37 *
38 * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
39 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
40 * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
41 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
42 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
43 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
44 * SOFTWARE.
45 * ------------------------------------------------------------------------
46 *
47 * This file is part of GNU shogi.
48 *
49 * GNU shogi is free software; you can redistribute it and/or modify
50 * it under the terms of the GNU General Public License as published by
51 * the Free Software Foundation.
52 *
53 * GNU shogi is distributed in the hope that it will be useful,
54 * but WITHOUT ANY WARRANTY; without even the implied warranty of
55 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
56 * GNU General Public License for more details.
57 *
58 * You should have received a copy of the GNU General Public License
59 * along with GNU shogi; see the file COPYING. If not, write to
60 * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
61 *
62 * ------------------------------------------------------------------------
63 *
64 */
65
66 #include "xshogi.h"
67 #include <stdio.h>
68 #include <stdlib.h>
69 #include <string.h>
70
71 enum { False, True };
72
73 static void yyerror();
74
75 static ShogiMove move_type;
76 static int from_x, from_y, to_x, to_y;
77 static char piece;
78
79 char currentMoveString[MSG_SIZ];
80 static char token[20];
81
82 FILE *outfile = (FILE *)0;
83
84 extern FILE *gameFileFP, *toFirstProgFP;
85 extern int currentMove;
86 extern char moveList[MAX_MOVES][MOVE_LEN];
87
88 extern void SendToProgram(char *message, FILE *fp);
89 extern void MakeMove(ShogiMove *move_type, int from_x, int from_y,
90 int to_x, int to_y);
91
92 int lines = 1, cols = 1;
93
94 %}
95
96 %start goal
97 %token PROMOTE DROPS PIECE SQUARE NUMBER COMMENT COLON
98 %token BLACK_WINS WHITE_WINS DRAW
99
100 %union { int val; char* string; }
101
102 %%
103
104 goal:
105 comment_list move_elem move_list
106 ;
107
108 comment_list:
109 | comment_list COMMENT
110 { fprintf(stderr, "%s\n", $<string>2); }
111 ;
112
113 move_list:
114 | move_list move_elem
115 ;
116
117 move_elem:
118 { strcpy(token, "number"); } number
119 { strcpy(token, "promoted"); } promoted
120 { strcpy(token, "move"); } move
121 ;
122
123 number:
124 | NUMBER { strcpy(token, "colon"); } COLON
125 ;
126
127 promoted:
128 | PROMOTE
129 ;
130
131 move:
132 SQUARE { from_x = '9' - $<string>1[0];
133 from_y = 'i' - $<string>1[1];
134 strcpy(currentMoveString,$<string>1);
135 strcpy(token, "square"); }
136 SQUARE { to_x = '9' - $<string>3[0];
137 to_y = 'i' - $<string>3[1];
138 strcat(currentMoveString,$<string>3); }
139 { move_type = NormalMove; }
140 promotion
141 {
142 SendToProgram(currentMoveString, toFirstProgFP);
143 strcpy(moveList[currentMove], currentMoveString);
144 MakeMove(&move_type, from_x, from_y, to_x, to_y);
145 }
146 |
147 PIECE { piece = $<string>1[0];
148 strcpy(currentMoveString,$<string>1);
149 strcpy(token,"'*'"); }
150 DROPS { strcat(currentMoveString,"*");
151 strcpy(token, "square"); }
152 SQUARE { to_x = '9' - $<string>5[0];
153 to_y = 'i' - $<string>5[1];
154 strcat(currentMoveString,$<string>5); }
155 {
156 move_type = (BlackOnMove(currentMove) ? BlackDrop : WhiteDrop);
157
158 switch ( piece )
159 {
160 case 'P': from_x = 81; break;
161 case 'L': from_x = 82; break;
162 case 'N': from_x = 83; break;
163 case 'S': from_x = 84; break;
164 case 'G': from_x = 85; break;
165 case 'B': from_x = 86; break;
166 case 'R': from_x = 87; break;
167 case 'K': from_x = 88; break;
168 default: from_x = -1;
169 };
170
171 from_y = from_x;
172 SendToProgram(currentMoveString, toFirstProgFP);
173 strcpy(moveList[currentMove], currentMoveString);
174 MakeMove(&move_type, from_x, from_y, to_x, to_y);
175 }
176 | BLACK_WINS
177 {
178 loaded_game_finished = 1;
179 DisplayMessage("Black wins", False);
180 }
181 | WHITE_WINS
182 {
183 loaded_game_finished = 1;
184 DisplayMessage("White wins", False);
185 }
186 | DRAW
187 {
188 loaded_game_finished = 1;
189 DisplayMessage("Draw", False);
190 }
191 ;
192
193 promotion:
194 | PROMOTE
195 { move_type = (BlackOnMove(currentMove)
196 ? BlackPromotion : WhitePromotion);
197 strcat(currentMoveString,"+"); }
198 ;
199
200 %%
201
202
203 static void yyerror(char *errmsg)
204 {
205 if (strlen(token) > 0)
206 {
207 fprintf(stderr, "parse error line %d column %d : %s expected\n",
208 lines, cols, token);
209 token[0] = '\0';
210 }
211 else
212 {
213 fprintf(stderr,"parse error line %d column %d : %s\n",
214 lines, cols, errmsg);
215 }
216
217 exit(-1);
218 }
219
220 extern FILE *yyin;
221
parseGameFile()222 void parseGameFile()
223 {
224 yyin = gameFileFP;
225 outfile = stderr;
226 yyparse();
227 }
228
229