+++ /dev/null
-%{
-
-/*
- * FILE: parser.y
- *
- * Board parser for xshogi.
- *
- * ------------------------------------------------------------------------
- * xshogi is based on XBoard -- an Xt/Athena user interface for GNU Chess.
- *
- * Original authors: Dan Sears, Chris Sears
- * Enhancements (Version 2.0 and following): Tim Mann
- * Modifications to XShogi (Version 1.0): Matthias Mutz
- * Enhancements to XShogi (Version 1.1): Matthias Mutz
- * Modified implementation of ISS mode for XShogi: Matthias Mutz
- * Current maintainer: Michael C. Vanier
- *
- * XShogi borrows some of its piece bitmaps from CRANES Shogi.
- *
- * Copyright 1991 by Digital Equipment Corporation, Maynard, Massachusetts.
- * Enhancements Copyright 1992 Free Software Foundation, Inc.
- * Enhancements for XShogi Copyright 1993, 1994, 1995 Matthias Mutz
- * Copyright 1998, 1999 Michael C. Vanier and the Free Software Foundation
- *
- * 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.
- * ------------------------------------------------------------------------
- *
- * This file is part of GNU shogi.
- *
- * GNU shogi 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.
- *
- * GNU shogi 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 GNU shogi; see the file COPYING. If not, write to
- * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * ------------------------------------------------------------------------
- *
- */
-
-#include "xshogi.h"
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-enum { False, True };
-
-static void yyerror();
-
-static ShogiMove move_type;
-static int from_x, from_y, to_x, to_y;
-static char piece;
-
-char currentMoveString[MSG_SIZ];
-static char token[20];
-
-FILE *outfile = (FILE *)0;
-
-extern FILE *gameFileFP, *toFirstProgFP;
-extern int currentMove;
-extern char moveList[MAX_MOVES][MOVE_LEN];
-
-extern void SendToProgram(char *message, FILE *fp);
-extern void MakeMove(ShogiMove *move_type, int from_x, int from_y,
- int to_x, int to_y);
-
-%}
-
-%start goal
-%token PROMOTE DROPS PIECE SQUARE NUMBER COMMENT COLON
-%token BLACK_WINS WHITE_WINS DRAW
-
-%union { int val; char* string; }
-
-%%
-
- goal:
- comment_list move_elem move_list
- ;
-
- comment_list:
- | comment_list COMMENT
- { fprintf(stderr, "%s\n", $<string>2); }
- ;
-
- move_list:
- | move_list move_elem
- ;
-
- move_elem:
- { strcpy(token, "number"); } number
- { strcpy(token, "promoted"); } promoted
- { strcpy(token, "move"); } move
- ;
-
- number:
- | NUMBER { strcpy(token, "colon"); } COLON
- ;
-
- promoted:
- | PROMOTE
- ;
-
- move:
- SQUARE { from_x = '9' - $<string>1[0];
- from_y = 'i' - $<string>1[1];
- strcpy(currentMoveString,$<string>1);
- strcpy(token, "square"); }
- SQUARE { to_x = '9' - $<string>3[0];
- to_y = 'i' - $<string>3[1];
- strcat(currentMoveString,$<string>3); }
- { move_type = NormalMove; }
- promotion
- {
- SendToProgram(currentMoveString, toFirstProgFP);
- strcpy(moveList[currentMove], currentMoveString);
- MakeMove(&move_type, from_x, from_y, to_x, to_y);
- }
- |
- PIECE { piece = $<string>1[0];
- strcpy(currentMoveString,$<string>1);
- strcpy(token,"'*'"); }
- DROPS { strcat(currentMoveString,"*");
- strcpy(token, "square"); }
- SQUARE { to_x = '9' - $<string>5[0];
- to_y = 'i' - $<string>5[1];
- strcat(currentMoveString,$<string>5); }
- {
- move_type = (BlackOnMove(currentMove) ? BlackDrop : WhiteDrop);
-
- switch ( piece )
- {
- case 'P': from_x = 81; break;
- case 'L': from_x = 82; break;
- case 'N': from_x = 83; break;
- case 'S': from_x = 84; break;
- case 'G': from_x = 85; break;
- case 'B': from_x = 86; break;
- case 'R': from_x = 87; break;
- case 'K': from_x = 88; break;
- default: from_x = -1;
- };
-
- from_y = from_x;
- SendToProgram(currentMoveString, toFirstProgFP);
- strcpy(moveList[currentMove], currentMoveString);
- MakeMove(&move_type, from_x, from_y, to_x, to_y);
- }
- | BLACK_WINS
- {
- loaded_game_finished = 1;
- DisplayMessage("Black wins", False);
- }
- | WHITE_WINS
- {
- loaded_game_finished = 1;
- DisplayMessage("White wins", False);
- }
- | DRAW
- {
- loaded_game_finished = 1;
- DisplayMessage("Draw", False);
- }
- ;
-
- promotion:
- | PROMOTE
- { move_type = (BlackOnMove(currentMove)
- ? BlackPromotion : WhitePromotion);
- strcat(currentMoveString,"+"); }
- ;
-
-%%
-
-
-
-#include "scanner.c"
-
-
-static void yyerror(char *errmsg)
-{
- if (strlen(token) > 0)
- {
- fprintf(stderr, "parse error line %d column %d : %s expected\n",
- lines, cols, token);
- token[0] = '\0';
- }
- else
- {
- fprintf(stderr,"parse error line %d column %d : %s\n",
- lines, cols, errmsg);
- }
-
- exit(-1);
-}
-
-
-void parseGameFile()
-{
- yyin = gameFileFP;
- outfile = stderr;
- yyparse();
-}
-