![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to record.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / chess / Xchess|
Return to record.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / chess / Xchess |
1.1 root 1:
2: /* This file contains code for X-CHESS.
3: Copyright (C) 1986 Free Software Foundation, Inc.
4:
5: This file is part of X-CHESS.
6:
7: X-CHESS is distributed in the hope that it will be useful,
8: but WITHOUT ANY WARRANTY. No author or distributor
9: accepts responsibility to anyone for the consequences of using it
10: or for whether it serves any particular purpose or works at all,
11: unless he says so in writing. Refer to the X-CHESS General Public
12: License for full details.
13:
14: Everyone is granted permission to copy, modify and redistribute
15: X-CHESS, but only under the conditions described in the
16: X-CHESS General Public License. A copy of this license is
17: supposed to have been given to you along with X-CHESS so you
18: can know your rights and responsibilities. It should be in a
19: file named COPYING. Among other things, the copyright notice
20: and this notice must be preserved on all copies. */
21:
22:
23: /* RCS Info: $Revision: 1.4 $ on $Date: 86/11/23 17:18:20 $
24: * $Source: /users/faustus/xchess/RCS/record.c,v $
25: * Copyright (c) 1986 Wayne A. Christopher, U. C. Berkeley CAD Group
26: * Permission is granted to do anything with this code except sell it
27: * or remove this message.
28: *
29: * Deal with recording moves.
30: */
31:
32: #include "xchess.h"
33:
34: #undef smartass
35:
36: bool record_english = true;
37: char *record_file = DEF_RECORD_FILE;
38: int movenum = 0;
39: bool saveflag = false;
40:
41: static char *colnames[] = { "qr", "qn", "qb", "q", "k", "kb", "kn", "kr" } ;
42: static char *pcnames[] = { "P", "R", "N", "B", "Q", "K" } ;
43:
44: static char *movestring();
45: static char *tstring();
46: static FILE *backup;
47:
48: #define RECORD_HEADER "\n1 XChess Game Record0\n"
49:
50: void
51: record_init(win)
52: windata *win;
53: {
54: int i;
55:
56: i = XTextWidth(win->medium, RECORD_HEADER,
57: sizeof(RECORD_HEADER) - 1);
58: i = (40 * win->small->max_bounds.width - i *
59: win->medium->max_bounds.width) /
60: win->medium->max_bounds.width / 2;
61: TxtGrab(win->display, win->recwin, "xchess", win->small, win->textback.pixel,
62: win->textcolor.pixel, win->cursorcolor.pixel);
63: TxtAddFont(win->display, win->recwin, 1, win->medium, win->textcolor.pixel);
64: for (; i > 0; i++)
65: TxtWriteStr(win->display, win->recwin, " ");
66: TxtWriteStr(win->display, win->recwin, RECORD_HEADER);
67:
68: if (saveflag) {
69: if (!(backup = fopen(record_file, "w"))) {
70: perror(record_file);
71: saveflag = false;
72: } else {
73: fprintf(backup, "X Chess -- %s\n", datestring());
74: if (dispname2)
75: fprintf(backup, "\tWhite on %s, black on %s\n",
76: dispname1, dispname2);
77: else
78: fprintf(backup, "\tGame played on %s\n",
79: dispname1);
80: fprintf(backup, "\t%s\n", record_english ? "english" :
81: "algebraic");
82: fflush(backup);
83: }
84: }
85:
86: movenum = 0;
87: return;
88: }
89:
90: void
91: record_reset()
92: {
93: TxtWriteStr(win1->display, win1->recwin, "\n\n1 New Game0\n\n");
94: if (!oneboard) {
95: TxtWriteStr(win2->display, win2->recwin, "\n\n1 New Game0\n\n");
96: }
97: movenum = 0;
98: if (saveflag) {
99: fprintf(backup, "\n\nNew Game\n\n");
100: fflush(backup);
101: }
102: return;
103: }
104:
105: void
106: record_end(s)
107: char *s;
108: {
109: char buf[BSIZE];
110:
111: sprintf(buf, "\n%s\n", s);
112: TxtWriteStr(win1->display, win1->recwin, s);
113: if (!oneboard) {
114: TxtWriteStr(win2->display, win2->recwin, s);
115: }
116: if (saveflag) {
117: fprintf(backup, "\n%s\n", s);
118: fprintf(backup, "Time: white: %s, ", tstring(whiteseconds));
119: fprintf(backup, "black: %s\n", tstring(blackseconds));
120: fclose(backup);
121: }
122: return;
123: }
124:
125: void
126: record_save()
127: {
128: move *m;
129: FILE *fp;
130: int i;
131: char *s;
132:
133: if (!(fp = fopen(record_file, "w"))) {
134: perror(record_file);
135: return;
136: }
137: fprintf(fp, "X Chess -- %s\n", datestring());
138: if (dispname2)
139: fprintf(fp, "\tWhite on %s, black on %s\n",
140: dispname1, dispname2);
141: else
142: fprintf(fp, "\tGame played on %s\n", dispname1);
143: fprintf(fp, "\t%s\n", record_english ? "english" : "algebraic");
144:
145: for (m = moves, i = 1; m; i++) {
146: s = movestring(m);
147: fprintf(fp, "%2d. %-16s ", i, s);
148: m = m->next;
149: if (m)
150: s = movestring(m);
151: else
152: s = "";
153: fprintf(fp, "%s\n", s);
154: if (m)
155: m = m->next;
156: }
157: fclose(fp);
158: return;
159: }
160:
161: void
162: record_move(m)
163: move *m;
164: {
165: char *s, buf[BSIZE];
166:
167: s = movestring(m);
168:
169: if (m->piece.color == WHITE) {
170: movenum++;
171: sprintf(buf, "%2d. %-16s ", movenum, s);
172: } else {
173: sprintf(buf, "%s\n", s);
174: }
175: TxtWriteStr(win1->display, win1->recwin, buf);
176: if (!oneboard) {
177: TxtWriteStr(win2->display, win2->recwin, buf);
178: }
179: if (saveflag) {
180: fprintf(backup, "%s", buf);
181: fflush(backup);
182: }
183:
184: return;
185: }
186:
187: void
188: record_back()
189: {
190: extern move *lastmove;
191: move *m = lastmove;
192: char *s = movestring(m);
193: char buf[BSIZE];
194: long i;
195:
196: if (m->piece.color == WHITE) {
197: sprintf(buf, "%2d. %-16s ", movenum, s);
198: } else {
199: sprintf(buf, "%s\n", s);
200: }
201: s = buf;
202: for (i = 0; *s != '\0'; i++)
203: *s++ = ''; /* control H, backspace */
204:
205: TxtWriteStr(win1->display, win1->recwin, buf);
206: if (!oneboard) {
207: TxtWriteStr(win2->display, win2->recwin, buf);
208: }
209:
210: if (nexttomove == BLACK)
211: movenum--;
212: if (saveflag) {
213: fseek(backup, -i, 1);
214: fflush(backup);
215: }
216:
217: return;
218: }
219:
220: static char *
221: movestring(m)
222: move *m;
223: {
224: int fy, ty;
225: static char buf[BSIZE];
226:
227: if (!record_english || (m->piece.color == WHITE)) {
228: fy = SIZE - m->fromy;
229: ty = SIZE - m->toy;
230: } else {
231: fy = m->fromy + 1;
232: ty = m->toy + 1;
233: }
234:
235: switch (m->type) {
236: case MOVE:
237: if (record_english)
238: sprintf(buf, "%s/%s%d-%s%d%s", pcnames[(int) m->piece.
239: type], colnames[m->fromx], fy,
240: colnames[m->tox], ty, m->check ? "+" :
241: "");
242: else
243: sprintf(buf, "%c%d%c%d", 'a' + m->fromx, fy, 'a' +
244: m->tox, ty);
245: break;
246: case CAPTURE:
247: if (record_english)
248: sprintf(buf, "%s/%s%dx%s/%s%d%s%s",
249: pcnames[(int) m->piece.type],
250: colnames[m->fromx], fy,
251: pcnames[(int) m->taken.type],
252: colnames[m->tox], ty,
253: m->enpassant ? "e.p." : "",
254: m->check ? "+" : "");
255: else
256: sprintf(buf, "%c%d%c%d", 'a' + m->fromx, fy, 'a' +
257: m->tox, ty);
258: break;
259:
260: case KCASTLE:
261: if (record_english)
262: sprintf(buf, "O-O%s", m->check ? "ch" : "");
263: else if (m->piece.color == WHITE)
264: strcpy(buf, "e1g1");
265: else
266: strcpy(buf, "e8g8");
267: break;
268:
269: case QCASTLE:
270: if (record_english)
271: sprintf(buf, "O-O-O%s", m->check ? "ch" : "");
272: else if (m->piece.color == WHITE)
273: strcpy(buf, "e1c1");
274: else
275: strcpy(buf, "e8c8");
276: break;
277:
278: default:
279: sprintf(buf, "something strange");
280: break;
281: }
282: if ((m->piece.type == PAWN) && (((m->piece.color == BLACK) &&
283: (m->toy == 7)) || ((m->piece.color == WHITE) &&
284: (m->toy == 0))))
285: strcat(buf, "(Q)");
286:
287: #ifdef smartass
288: if (!(random() % 50))
289: strcat(buf, "?");
290: else if (!(random() % 50))
291: strcat(buf, "!");
292: else if (!(random() % 500))
293: strcat(buf, "???");
294: else if (!(random() % 500))
295: strcat(buf, "!!!");
296: #endif smartass
297:
298: return (buf);
299: }
300:
301: static char *
302: tstring(s)
303: int s;
304: {
305: static char buf[64];
306:
307: if (s > 3600)
308: sprintf(buf, "%dh %dm %ds", s / 3600, (s % 3600) / 60, s % 60);
309: else if (s > 60)
310: sprintf(buf, "%dm %ds", (s % 3600) / 60, s % 60);
311: else
312: sprintf(buf, "%ds", s);
313: return (buf);
314: }
315:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.