4 * ----------------------------------------------------------------------
5 * Copyright (c) 1993, 1994, 1995 Matthias Mutz
6 * Copyright (c) 1999 Michael Vanier and the Free Software Foundation
8 * GNU SHOGI is based on GNU CHESS
10 * Copyright (c) 1988, 1989, 1990 John Stanback
11 * Copyright (c) 1992 Free Software Foundation
13 * This file is part of GNU SHOGI.
15 * GNU Shogi is free software; you can redistribute it and/or modify it
16 * under the terms of the GNU General Public License as published by the
17 * Free Software Foundation; either version 3 of the License,
18 * or (at your option) any later version.
20 * GNU Shogi is distributed in the hope that it will be useful, but WITHOUT
21 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
22 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
25 * You should have received a copy of the GNU General Public License along
26 * with GNU Shogi; see the file COPYING. If not, see
27 * <http://www.gnu.org/licenses/>.
28 * ----------------------------------------------------------------------
35 #include <sys/param.h>
36 #include <sys/types.h>
42 unsigned short MV[MAXDEPTH];
48 extern short pscore[];
51 /****************************************
52 * Trivial output functions.
53 ****************************************/
58 if (!barebones && !XSHOGI)
66 if (!barebones && !XSHOGI)
68 /* printf("\nYour move is? "); */
69 fputs(CP[124], stdout);
75 Raw_ShowCurrentMove(short pnt, short f, short t)
81 Raw_ShowDepth(char ch)
83 if (!barebones && !XSHOGI)
85 printf(CP[53], Sdepth, ch); /* Depth = %d%c */
92 Raw_ShowGameType(void)
95 printf("%c vs. %c\n", GameType[black], GameType[white]);
100 Raw_ShowLine(unsigned short *bstline)
104 for (i = 1; bstline[i] > 0; i++)
106 if ((i > 1) && (i % 8 == 1))
109 algbr((short)(bstline[i] >> 8), (short)(bstline[i] & 0xFF), false);
110 printf("%5s ", mvstr[0]);
118 Raw_ShowMessage(char *s)
126 Raw_AlwaysShowMessage(const char *format, va_list ap)
134 Raw_Printf(const char *format, va_list ap)
141 Raw_doRequestInputString(const char* fmt, char* buffer)
148 Raw_GetString(char* sx)
153 while(!eof && !sx[0])
154 eof = (fgets(sx, 80, stdin) == NULL);
160 Raw_ShowNodeCnt(long NodeCnt)
163 NodeCnt, (((et) ? ((NodeCnt * 100) / et) : 0)));
168 Raw_ShowPatternCount(short side, short n)
171 printf("%s matches %d pattern(s)\n", ColorStr[side], n);
176 Raw_ShowResponseTime(void)
182 Raw_ShowResults(short score, unsigned short *bstline, char ch)
184 if (flag.post && !XSHOGI)
187 printf("%2d%c %6d %4ld %8ld ",
188 Sdepth, ch, score, et / 100, NodeCnt);
189 Raw_ShowLine(bstline);
195 Raw_ShowSidetoMove(void)
203 printf("stage = %d\n", stage);
204 printf("balance[black] = %d balance[white] = %d\n",
205 balance[black], balance[white]);
208 /****************************************
209 * End of trivial output routines.
210 ****************************************/
219 #ifdef HAVE_SETLINEBUF
223 setvbuf(stdout, NULL, _IOLBF, BUFSIZ);
225 # error "Need setlinebuf() or setvbuf() to compile gnushogi!"
228 printf("GNU Shogi %sp%s\n", version, patchlevel);
233 if (!TCflag && (MaxResponseTime == 0))
234 MaxResponseTime = 15L * 100L;
242 /* CHECKME: what purpose does this next statement serve? */
243 signal(SIGTERM, SIG_IGN);
257 Raw_ShowMessage(CP[31]); /* Abort? */
260 if (strcmp(s, CP[210]) == 0) /* yes */
266 Raw_TerminateSearch(int sig)
268 #ifdef INTERRUPT_TEST
269 ElapsedTime(INIT_INTERRUPT_MODE);
273 flag.back = true; /* previous: flag.timeout = true; */
275 flag.bothsides = false;
283 /* printf("SHOGI command summary\n"); */
284 printf(CP[40], version, patchlevel);
285 printf("----------------------------------"
286 "------------------------------\n");
287 /* printf("7g7f move from 7g to 7f quit
289 fputs(CP[158], stdout);
290 /* printf("S6h move silver to 6h beep
291 * turn %s\n", (flag.beep) ? "off" : "on"); */
292 printf(CP[86], (flag.beep) ? CP[92] : CP[93]);
293 /* printf("2d2c+ move from 2d to 2c and promote\n"); */
294 printf(CP[128], (flag.material) ? CP[92] : CP[93]);
295 /* printf("P*5e drop pawn to 5e easy
296 * turn %s\n", (flag.easy) ? "off" : "on"); */
297 printf(CP[173], (flag.easy) ? CP[92] : CP[93]);
299 * turn %s\n", (flag.hash) ? "off" : "on"); */
300 printf(CP[174], (flag.hash) ? CP[92] : CP[93]);
301 /* printf("bd redraw board reverse
302 * board display\n"); */
303 fputs(CP[130], stdout);
304 /* printf("list game to shogi.lst book
305 * turn %s used %d of %d\n", (Book) ? "off" : "on", bookcount); */
306 printf(CP[170], (Book) ? CP[92] : CP[93], bookcount, booksize);
307 /* printf("undo undo last ply remove
308 * take back a move\n"); */
309 fputs(CP[200], stdout);
310 /* printf("edit edit board force
311 * enter game moves\n"); */
312 fputs(CP[153], stdout);
313 /* printf("switch sides with computer both
314 * computer match\n"); */
315 fputs(CP[194], stdout);
316 /* printf("black computer plays black white
317 * computer plays white\n"); */
318 fputs(CP[202], stdout);
319 /* printf("depth set search depth clock
320 * set time control\n"); */
321 fputs(CP[149], stdout);
322 /* printf("post principle variation hint
323 * suggest a move\n"); */
324 fputs(CP[177], stdout);
325 /* printf("save game to file get
326 * game from file\n"); */
327 fputs(CP[188], stdout);
328 printf("xsave pos. to xshogi file xget"
329 " pos. from xshogi file\n");
330 /* printf("random randomize play new
331 * start new game\n"); */
332 fputs(CP[181], stdout);
333 printf("--------------------------------"
334 "--------------------------------\n");
335 /* printf("Computer: %-12s Opponent: %s\n", */
337 ColorStr[computer], ColorStr[opponent]);
338 /* printf("Depth: %-12d Response time: %d sec\n", */
340 MaxSearchDepth, MaxResponseTime/100);
341 /* printf("Random: %-12s Easy mode: %s\n", */
343 (dither) ? CP[93] : CP[92], (flag.easy) ? CP[93] : CP[92]);
344 /* printf("Beep: %-12s Transposition file: %s\n", */
346 (flag.beep) ? CP[93] : CP[92], (flag.hash) ? CP[93] : CP[92]);
347 /* printf("Tsume: %-12s Force: %s\n")*/
349 (flag.tsume) ? CP[93] : CP[92], (flag.force) ? CP[93] : CP[92]);
350 /* printf("Time Control %s %d moves %d seconds %d opr %d
351 * depth\n", (TCflag) ? "ON" : "OFF", */
353 (TCflag) ? CP[93] : CP[92],
354 TimeControl.moves[black], TimeControl.clock[black] / 100,
355 TCadd/100, MaxSearchDepth);
360 * Set up a board position. Pieces are entered by typing the piece followed
361 * by the location. For example, Nf3 will place a knight on square f3.
366 short a, r, c, sq, i, found;
369 flag.regularstart = true;
372 Raw_UpdateDisplay(0, 0, 1, 0);
373 /* printf(". exit to main\n"); */
374 fputs(CP[29], stdout);
375 /* printf("# clear board\n"); */
376 fputs(CP[28], stdout);
377 /* printf("c change sides\n"); */
378 fputs(CP[136], stdout);
379 /* printf("enter piece & location: \n"); */
380 fputs(CP[155], stdout);
389 if (s[0] == CP[28][0]) /*#*/
391 for (sq = 0; sq < NO_SQUARES; sq++)
393 board[sq] = no_piece;
400 if (s[0] == CP[136][0]) /*c*/
405 for (i = pawn; i <= king; i++)
407 if ((s[0] == pxx[i]) || (s[0] == qxx[i]))
424 if ((c >= 0) && (c < NO_COLS) && (r >= 0) && (r < NO_ROWS))
428 board[sq] = no_piece;
430 for (i = no_piece; i <= king; i++)
432 if ((s[0] == pxx[i]) || (s[0] == qxx[i]))
435 board[sq] = promoted[i];
448 while (s[0] != CP[29][0]);
450 for (sq = 0; sq < NO_SQUARES; sq++)
451 Mvboard[sq] = ((board[sq] != Stboard[sq]) ? 10 : 0);
459 Raw_UpdateDisplay(0, 0, 1, 0);
464 * Set up a board position.
465 * Nine lines of nine characters are used to setup the board. 9a-1a is the
466 * first line. White pieces are represented by uppercase characters.
477 fgets(s, 80, stdin); /* skip "setup" command */
479 for (r = NO_ROWS - 1; r >= 0; r--)
483 for (c = 0; c <= (NO_COLS - 1); c++)
488 board[sq] = no_piece;
490 for (i = no_piece; i <= king; i++)
498 else if (ch == qxx[i])
508 for (sq = 0; sq < NO_SQUARES; sq++)
509 Mvboard[sq] = ((board[sq] != Stboard[sq]) ? 10 : 0);
513 Raw_UpdateDisplay(0, 0, 1, 0);
514 /* printf("Setup successful\n"); */
515 fputs(CP[106], stdout);
520 Raw_SearchStartStuff(short side)
526 ResponseTime, TimeControl.clock[side]);
536 printf("%s\n", CP[225]);
540 if (mvstr[0][0] == '\0')
545 /* add remaining time in milliseconds to xshogi */
546 printf("%d. ... %s %ld\n", ++mycnt1, mvstr[0],
547 (TimeControl.clock[player] - et) * 10);
551 printf("%d. ... %s\n", ++mycnt1, mvstr[0]);
555 if ((root->flags & draw) || (root->score == -(SCORE_LIMIT + 999))
556 || (root->score == (SCORE_LIMIT + 998)))
569 if (Tree[t].f || Tree[t].t)
577 /* printf("Nodes %ld Tree %d Eval %ld
578 * Rate %ld RS high %ld low %ld\n", */
579 printf(CP[89], GenCnt, NodeCnt, t, EvalNodes,
580 (et > 100) ? (NodeCnt / (et / 100)) : 0,
581 EADD, EGET, reminus, replus);
583 /* printf("Hin/Hout/Coll/Fin/Fout =
584 * %ld/%ld/%ld/%ld/%ld\n", */
586 HashAdd, HashCnt, THashCol, HashCol, FHashCnt, FHashAdd);
589 Raw_UpdateDisplay(root->f, root->t, 0, root->flags);
593 /* printf("My move is: %s\n", mvstr[0]); */
594 printf(CP[83], mvstr[0]);
601 if (root->flags & draw)
603 /* printf("Drawn game!\n"); */
604 fputs(CP[57], stdout);
606 else if (root->score == -(SCORE_LIMIT + 999))
608 printf("%s mates!\n", ColorStr[opponent]);
610 else if (root->score == (SCORE_LIMIT + 998))
612 printf("%s mates!\n", ColorStr[computer]);
615 else if (!barebones && (root->score < -SCORE_LIMIT))
617 printf("%s has a forced mate in %d moves!\n",
618 ColorStr[opponent], SCORE_LIMIT + 999 + root->score - 1);
620 else if (!barebones && (root->score > SCORE_LIMIT))
622 printf("%s has a forced mate in %d moves!\n",
623 ColorStr[computer], SCORE_LIMIT + 998 - root->score - 1);
625 #endif /* VERYBUGGY */
630 Raw_UpdateDisplay(short f, short t, short redraw, short isspec)
635 if (redraw && !XSHOGI)
638 r = (short)(TimeControl.clock[black] / 6000);
639 c = (short)((TimeControl.clock[black] % 6000) / 100);
640 l = (short)(TimeControl.clock[white] / 6000);
641 m = (short)((TimeControl.clock[white] % 6000) / 100);
642 /* printf("Black %d:%02d White %d:%02d\n", r, c, l, m); */
643 printf(CP[116], r, c, l, m);
646 for (r = (NO_ROWS - 1); r >= 0; r--)
648 for (c = 0; c <= (NO_COLS - 1); c++)
652 ? locn((NO_ROWS - 1) - r, (NO_COLS - 1) - c)
654 pc = (is_promoted[board[l]] ? '+' : ' ');
656 if (color[l] == neutral)
658 else if (color[l] == black)
659 printf("%c%c", pc, qxx[board[l]]);
661 printf("%c%c", pc, pxx[board[l]]);
671 for (side = black; side <= white; side++)
674 printf((side == black)?"black ":"white ");
676 for (piece = pawn; piece <= king; piece++)
678 if ((c = Captured[side][piece]))
679 printf("%i%c ", c, pxx[piece]);
690 Raw_ChangeAlphaWindow(void)
692 printf("WAwindow: ");
693 scanf("%hd", &WAwindow);
694 printf("BAwindow: ");
695 scanf("%hd", &BAwindow);
700 Raw_ChangeBetaWindow(void)
702 printf("WBwindow: ");
703 scanf("%hd", &WBwindow);
704 printf("BBwindow: ");
705 scanf("%hd", &BBwindow);
714 algbr((short) (hint >> 8), (short) (hint & 0xFF), false);
715 printf(CP[72], mvstr[0]); /*hint*/
718 fputs(CP[223], stdout);
723 Raw_SelectLevel(char *sx)
726 char T[NO_SQUARES + 1], *p, *q;
728 if ((p = strstr(sx, CP[169])) != NULL)
729 p += strlen(CP[169]);
730 else if ((p = strstr(sx, CP[217])) != NULL)
731 p += strlen(CP[217]);
737 for (; *p != 'X'; *q++ = *p++);
741 /* line empty ask for input */
744 fputs(CP[61], stdout);
745 fgets(T, NO_SQUARES + 1, stdin);
749 /* skip blackspace */
750 for (p = T; *p == ' '; p++) ;
752 /* could be moves or a fischer clock */
755 /* its a fischer clock game */
757 TCminutes = (short)strtol(p, &q, 10);
758 TCadd = (short)strtol(q, NULL, 10) *100;
766 TCmoves = (short)strtol(p, &q, 10);
767 TCminutes = (short)strtol(q, &q, 10);
770 TCseconds = (short)strtol(q + 1, (char **) NULL, 10);
775 fputs(CP[94], stdout);
776 scanf("%hd", &OperatorTime);
782 MaxResponseTime = TCminutes*60L * 100L + TCseconds * 100L;
783 TCminutes = TCseconds = 0;
792 TimeControl.clock[black] = TimeControl.clock[white] = 0;
797 printf("Clocks: %ld %ld\n",
798 TimeControl.clock[black] * 10,
799 TimeControl.clock[white] * 10);
805 Raw_ChangeSearchDepth(void)
808 scanf("%hd", &MaxSearchDepth);
809 TCflag = !(MaxSearchDepth > 0);
814 Raw_ChangeHashDepth(void)
816 printf("hashdepth = ");
817 scanf("%hd", &HashDepth);
818 printf("MoveLimit = ");
819 scanf("%hd", &HashMoveLimit);
824 Raw_SetContempt(void)
826 printf("contempt = ");
827 scanf("%hd", &contempt);
832 Raw_ChangeXwindow(void)
835 scanf("%hd", &xwndw);
840 * Raw_ShowPostnValue(short sq)
841 * must have called ExaminePosition() first
844 Raw_ShowPostnValue(short sq)
847 score = ScorePosition(color[sq]);
849 if (color[sq] != neutral)
851 #if defined SAVE_SVALUE
852 printf("???%c ", (color[sq] == white)?'b':'w');
854 printf("%3d%c ", svalue[sq], (color[sq] == white)?'b':'w');
867 short c, p, sq, tp, tc, tsq, score, j, k;
870 ExaminePosition(opponent);
871 Raw_ShowMessage(CP[65]);
875 if ((s[0] == CP[9][0]) || (s[0] == CP[9][1])) /* w W */
878 if ((s[0] == CP[9][2]) || (s[0] == CP[9][3])) /* b B */
881 for (p = king; p > no_piece; p--)
883 if ((s[1] == pxx[p]) || (s[1] == qxx[p]))
889 for (j = (NO_ROWS - 1); j >= 0; j--)
891 for (k = 0; k < (NO_COLS); k++)
893 sq = j*(NO_COLS) + k;
898 tsq = PieceList[c][1];
899 PieceList[c][1] = sq;
900 Raw_ShowPostnValue(sq);
901 PieceList[c][1] = tsq;
910 score = ScorePosition(opponent);
912 for (j = (NO_ROWS - 1); j >= 0; j--)
914 for (k = 0; k < (NO_COLS); k++)
916 sq = j*(NO_COLS) + k;
918 if (color[sq] != neutral)
920 #if defined SAVE_SVALUE
921 printf("%?????%c ", (color[sq] == white)?'b':'w');
923 printf("%5d%c ", svalue[sq], (color[sq] == white)?'b':'w');
935 printf("stage = %d\n", stage);
936 printf(CP[103], score,
937 mtl[computer], pscore[computer], GameType[computer],
938 mtl[opponent], pscore[opponent], GameType[opponent]);
943 Raw_DoTable(short table[NO_SQUARES])
946 ExaminePosition(opponent);
948 for (j = (NO_ROWS - 1); j >= 0; j--)
950 for (k = 0; k < NO_COLS; k++)
952 sq = j*(NO_ROWS) + k;
953 printf("%3d ", table[sq]);
962 Raw_ShowPostnValues(void)
964 short sq, score, j, k;
965 ExaminePosition(opponent);
967 for (j = (NO_ROWS - 1); j >= 0; j--)
969 for (k = 0; k < NO_COLS; k++)
971 sq = j * NO_COLS + k;
972 Raw_ShowPostnValue(sq);
978 score = ScorePosition(opponent);
979 printf(CP[103], score,
980 mtl[computer], pscore[computer], GameType[computer],
981 mtl[opponent], pscore[opponent], GameType[opponent]);
982 printf("\nhung black %d hung white %d\n", hung[black], hung[white]);
987 * Determine the time that has passed since the search was started. If the
988 * elapsed time exceeds the target(ResponseTime + ExtraTime) then set timeout
989 * to true which will terminate the search.
990 * iop = COMPUTE_MODE calculate et, bump ETnodes
991 * iop = COMPUTE_AND_INIT_MODE calculate et, set timeout if time exceeded,
995 Raw_ElapsedTime(ElapsedTime_mode iop)
998 #ifdef HAVE_GETTIMEOFDAY
1000 gettimeofday(&tv, NULL);
1001 current_time = tv.tv_sec*100 + (tv.tv_usec/10000);
1003 et = ((current_time = time((long *) 0)) - time0) * 100;
1006 #ifdef INTERRUPT_TEST
1007 if (iop == INIT_INTERRUPT_MODE)
1009 itime0 = current_time;
1011 else if (iop == COMPUTE_INTERRUPT_MODE)
1013 it = current_time - itime0;
1018 #ifdef HAVE_GETTIMEOFDAY
1019 et = current_time - time0;
1021 ETnodes = NodeCnt + znodes;
1025 #ifdef INTERRUPT_TEST
1026 printf("elapsed time %ld not positive\n", et);
1031 if (iop == COMPUTE_AND_INIT_MODE)
1033 if ((et > (ResponseTime + ExtraTime)) && (Sdepth > MINDEPTH))
1034 flag.timeout = true;
1036 time0 = current_time;