~ubuntu-branches/ubuntu/warty/gnushogi/warty

« back to all changes in this revision

Viewing changes to xshogi/parser.y

  • Committer: Bazaar Package Importer
  • Author(s): Javier Fernandez-Sanguino Pen~a
  • Date: 2004-01-09 16:06:59 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040109160659-n26nu7009llm247p
Tags: 1.3-3.1
* NMU
 - Minimal testing done and looks quite OK (even if I don't know
   how to play the game...)
 - Build-Depends move from libxaw-dev to libxaw6-dev (Closes: #169975)
 - Included errno.h in gnushogi which makes the binary build properly
   now (and is usable with xshogi) (Closes: #226319)

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
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 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
%}
 
93
 
 
94
%start goal
 
95
%token PROMOTE DROPS PIECE SQUARE NUMBER COMMENT COLON
 
96
      
 
97
%union { int val; char* string; }
 
98
 
 
99
%%         
 
100
 
 
101
 goal:
 
102
   comment_list move_elem move_list
 
103
 ;                           
 
104
 
 
105
 comment_list:
 
106
  | comment_list COMMENT
 
107
        { fprintf(stderr, "%s\n", $<string>2); } 
 
108
 ;
 
109
 
 
110
 move_list:
 
111
  | move_list move_elem
 
112
 ;
 
113
 
 
114
 move_elem:
 
115
    { strcpy(token, "number");   } number 
 
116
    { strcpy(token, "promoted"); } promoted 
 
117
    { strcpy(token, "move");     } move
 
118
 ;
 
119
 
 
120
 number:
 
121
  | NUMBER { strcpy(token, "colon"); } COLON
 
122
 ;
 
123
 
 
124
 promoted:
 
125
  | PROMOTE
 
126
 ;
 
127
 
 
128
 move:
 
129
   SQUARE  { from_x = '9' - $<string>1[0]; 
 
130
             from_y = 'i' - $<string>1[1];
 
131
             strcpy(currentMoveString,$<string>1);
 
132
             strcpy(token, "square"); }
 
133
   SQUARE  { to_x = '9' - $<string>3[0]; 
 
134
             to_y = 'i' - $<string>3[1];
 
135
             strcat(currentMoveString,$<string>3); }
 
136
   { move_type = NormalMove; }
 
137
   promotion
 
138
    { 
 
139
      SendToProgram(currentMoveString, toFirstProgFP);
 
140
      strcpy(moveList[currentMove], currentMoveString);
 
141
      MakeMove(&move_type, from_x, from_y, to_x, to_y);
 
142
    }
 
143
  |
 
144
   PIECE   { piece = $<string>1[0]; 
 
145
             strcpy(currentMoveString,$<string>1); 
 
146
             strcpy(token,"'*'"); }
 
147
   DROPS   { strcat(currentMoveString,"*"); 
 
148
             strcpy(token, "square"); }
 
149
   SQUARE  { to_x = '9' - $<string>5[0]; 
 
150
             to_y = 'i' - $<string>5[1];
 
151
             strcat(currentMoveString,$<string>5); }
 
152
    { 
 
153
        move_type = (BlackOnMove(currentMove) ? BlackDrop : WhiteDrop);
 
154
 
 
155
        switch ( piece ) 
 
156
        {
 
157
        case 'P': from_x = 81; break;
 
158
        case 'L': from_x = 82; break;
 
159
        case 'N': from_x = 83; break;
 
160
        case 'S': from_x = 84; break;
 
161
        case 'G': from_x = 85; break;
 
162
        case 'B': from_x = 86; break;
 
163
        case 'R': from_x = 87; break;
 
164
        case 'K': from_x = 88; break;
 
165
        default:  from_x = -1;
 
166
        };
 
167
        
 
168
        from_y = from_x;
 
169
        SendToProgram(currentMoveString, toFirstProgFP);
 
170
        strcpy(moveList[currentMove], currentMoveString);
 
171
        MakeMove(&move_type, from_x, from_y, to_x, to_y);
 
172
    }
 
173
 ;         
 
174
 
 
175
 promotion:
 
176
   | PROMOTE 
 
177
    { move_type = (BlackOnMove(currentMove) ? BlackPromotion : WhitePromotion); 
 
178
      strcat(currentMoveString,"+"); }
 
179
 ;
 
180
 
 
181
%%
 
182
 
 
183
 
 
184
 
 
185
#include "scanner.c"
 
186
 
 
187
 
 
188
static void yyerror(char *errmsg)
 
189
{                               
 
190
    if (strlen(token) > 0) 
 
191
    {
 
192
        fprintf(stderr, "parse error line %d column %d : %s expected\n",
 
193
                lines, cols, token); 
 
194
        token[0] = '\0';
 
195
    } 
 
196
    else
 
197
    {
 
198
        fprintf(stderr,"parse error line %d column %d : %s\n",
 
199
                lines, cols, errmsg); 
 
200
    }
 
201
 
 
202
    exit(-1); 
 
203
}
 
204
       
 
205
 
 
206
void parseGameFile()
 
207
 
208
  yyin = gameFileFP;
 
209
  outfile = stderr;
 
210
  yyparse();
 
211
}
 
212