--- /dev/null
+/*
+ * pgntags.c -- Functions to manage PGN tags
+ * XBoard $Id$
+ *
+ * Copyright 1995 Free Software Foundation, Inc.
+ *
+ * ------------------------------------------------------------------------
+ * This program 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; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program 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 this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA.
+ * ------------------------------------------------------------------------
+ *
+ * This file could well be a part of backend.c, but I prefer it this
+ * way.
+ */
+
+#include "config.h"
+
+#include <stdio.h>
+#include <errno.h>
+#include <ctype.h>
+#if STDC_HEADERS
+# include <stdlib.h>
+# include <string.h>
+#else /* not STDC_HEADERS */
+# if HAVE_STRING_H
+# include <string.h>
+# else /* not HAVE_STRING_H */
+# include <strings.h>
+# endif /* not HAVE_STRING_H */
+#endif /* not STDC_HEADERS */
+
+#include "common.h"
+#include "frontend.h"
+#include "backend.h"
+#include "parser.h"
+
+static char *PGNTagsStatic P((GameInfo *));
+
+
+
+/* Parse PGN tags; returns 0 for success or error number
+ */
+int ParsePGNTag(tag, gameInfo)
+ char *tag;
+ GameInfo *gameInfo;
+{
+ char *name, *value, *p, *oldTags;
+ int len;
+ int success;
+
+ name = tag;
+ while (!isalpha(*name) && !isdigit(*name)) {
+ name++;
+ }
+ p = name;
+ while (*p != ' ' && *p != '\t' && *p != '\n') {
+ p++;
+ }
+ *p = NULLCHAR;
+ value = strchr(p + 1, '"') + 1;
+ p = strrchr(value, '"');
+ *p = NULLCHAR;
+
+ if (StrCaseCmp(name, "Event") == 0) {
+ success = StrSavePtr(value, &gameInfo->event) != NULL;
+ } else if (StrCaseCmp(name, "Site") == 0) {
+ success = StrSavePtr(value, &gameInfo->site) != NULL;
+ } else if (StrCaseCmp(name, "Date") == 0) {
+ success = StrSavePtr(value, &gameInfo->date) != NULL;
+ } else if (StrCaseCmp(name, "Round") == 0) {
+ success = StrSavePtr(value, &gameInfo->round) != NULL;
+ } else if (StrCaseCmp(name, "White") == 0) {
+ success = StrSavePtr(value, &gameInfo->white) != NULL;
+ } else if (StrCaseCmp(name, "Black") == 0) {
+ success = StrSavePtr(value, &gameInfo->black) != NULL;
+ }
+ /* Fold together the various ways of denoting White/Black rating */
+ else if ((StrCaseCmp(name, "WhiteElo")==0) ||
+ (StrCaseCmp(name, "WhiteUSCF")==0) ) {
+ success = TRUE;
+ gameInfo->whiteRating = atoi( value );
+ } else if ((StrCaseCmp(name, "BlackElo")==0) ||
+ (StrCaseCmp(name, "BlackUSCF")==0)) {
+ success = TRUE;
+ gameInfo->blackRating = atoi( value );
+ }
+ else if (StrCaseCmp(name, "Result") == 0) {
+ if (strcmp(value, "1-0") == 0)
+ gameInfo->result = WhiteWins;
+ else if (strcmp(value, "0-1") == 0)
+ gameInfo->result = BlackWins;
+ else if (strcmp(value, "1/2-1/2") == 0)
+ gameInfo->result = GameIsDrawn;
+ else
+ gameInfo->result = GameUnfinished;
+ success = TRUE;
+ } else if (StrCaseCmp(name, "FEN") == 0) {
+ success = StrSavePtr(value, &gameInfo->fen) != NULL;
+ } else if (StrCaseCmp(name, "SetUp") == 0) {
+ /* ignore on input; presence of FEN governs */
+ success = TRUE;
+ } else if (StrCaseCmp(name, "Variant") == 0) {
+ /* xboard-defined extension */
+ gameInfo->variant = StringToVariant(value);
+ success = TRUE;
+ } else {
+ if (gameInfo->extraTags == NULL) {
+ oldTags = "";
+ } else {
+ oldTags = gameInfo->extraTags;
+ }
+ /* Buffer size includes 7 bytes of space for [ ""]\n\0 */
+ len = strlen(oldTags) + strlen(value) + strlen(name) + 7;
+ if ((p = (char *) malloc(len)) != NULL) {
+ sprintf(p, "%s[%s \"%s\"]\n", oldTags, name, value);
+ if (gameInfo->extraTags != NULL) free(gameInfo->extraTags);
+ gameInfo->extraTags = p;
+ success = TRUE;
+ } else {
+ success = FALSE;
+ }
+ }
+ return(success ? 0 : ENOMEM);
+}
+
+
+
+/* Return a static buffer with a game's data.
+ */
+static char *PGNTagsStatic(gameInfo)
+ GameInfo *gameInfo;
+{
+ static char buf[8192];
+ char buf1[MSG_SIZ];
+
+ buf[0] = NULLCHAR;
+
+ sprintf(buf1, "[Event \"%s\"]\n",
+ gameInfo->event ? gameInfo->event : "?");
+ strcat(buf, buf1);
+ sprintf(buf1, "[Site \"%s\"]\n",
+ gameInfo->site ? gameInfo->site : "?");
+ strcat(buf, buf1);
+ sprintf(buf1, "[Date \"%s\"]\n",
+ gameInfo->date ? gameInfo->date : "?");
+ strcat(buf, buf1);
+ sprintf(buf1, "[Round \"%s\"]\n",
+ gameInfo->round ? gameInfo->round : "-");
+ strcat(buf, buf1);
+ sprintf(buf1, "[White \"%s\"]\n",
+ gameInfo->white ? gameInfo->white : "?");
+ strcat(buf, buf1);
+ sprintf(buf1, "[Black \"%s\"]\n",
+ gameInfo->black ? gameInfo->black : "?");
+ strcat(buf, buf1);
+ sprintf(buf1, "[Result \"%s\"]\n", PGNResult(gameInfo->result));
+ strcat(buf, buf1);
+
+ if (gameInfo->whiteRating >= 0 ) {
+ sprintf(buf1, "[WhiteElo \"%d\"]\n", gameInfo->whiteRating );
+ strcat(buf, buf1);
+ }
+ if ( gameInfo->blackRating >= 0 ) {
+ sprintf(buf1, "[BlackElo \"%d\"]\n", gameInfo->blackRating );
+ strcat(buf, buf1);
+ }
+ if (gameInfo->timeControl != NULL) {
+ sprintf(buf1, "[TimeControl \"%s\"]\n", gameInfo->timeControl);
+ strcat(buf, buf1);
+ }
+ if (gameInfo->variant != VariantNormal) {
+ sprintf(buf1, "[Variant \"%s\"]\n", VariantName(gameInfo->variant));
+ strcat(buf, buf1);
+ }
+ if (gameInfo->extraTags != NULL) {
+ strcat(buf, gameInfo->extraTags);
+ }
+ return buf;
+}
+
+
+
+/* Print game info
+ */
+void PrintPGNTags(fp, gameInfo)
+ FILE *fp;
+ GameInfo *gameInfo;
+{
+ fprintf(fp, "%s", PGNTagsStatic(gameInfo));
+}
+
+
+/* Return a non-static buffer with a games info.
+ */
+char *PGNTags(gameInfo)
+ GameInfo *gameInfo;
+{
+ return StrSave(PGNTagsStatic(gameInfo));
+}
+
+
+/* Returns pointer to a static string with a result.
+ */
+char *PGNResult(result)
+ ChessMove result;
+{
+ switch (result) {
+ case GameUnfinished:
+ default:
+ return "*";
+ case WhiteWins:
+ return "1-0";
+ case BlackWins:
+ return "0-1";
+ case GameIsDrawn:
+ return "1/2-1/2";
+ }
+}
+
+/* Returns 0 for success, nonzero for error */
+int
+ReplaceTags(tags, gameInfo)
+ char *tags;
+ GameInfo *gameInfo;
+{
+ ChessMove moveType;
+ int err;
+
+ ClearGameInfo(gameInfo);
+ yynewstr(tags);
+ for (;;) {
+ yyboardindex = 0;
+ moveType = (ChessMove) yylex();
+ if (moveType == (ChessMove) 0) {
+ break;
+ } else if (moveType == PGNTag) {
+ err = ParsePGNTag(yy_text, gameInfo);
+ if (err != 0) return err;
+ }
+ }
+ /* just one problem...if there is a result in the new tags,
+ * DisplayMove() won't ever show it because ClearGameInfo() set
+ * gameInfo->resultDetails to NULL. So we must plug something in if there
+ * is a result.
+ */
+ if (gameInfo->result != GameUnfinished) {
+ if (gameInfo->resultDetails) free(gameInfo->resultDetails);
+ gameInfo->resultDetails = strdup("");
+ }
+ return 0;
+}