4 * ----------------------------------------------------------------------
5 * Copyright (c) 1993, 1994, 1995 Matthias Mutz
6 * Copyright (c) 1999 Michael Vanier and the Free Software Foundation
7 * Copyright (c) 2008, 2013, 2014 Yann Dirson and the Free Software Foundation
9 * GNU SHOGI is based on GNU CHESS
11 * Copyright (c) 1988, 1989, 1990 John Stanback
12 * Copyright (c) 1992 Free Software Foundation
14 * This file is part of GNU SHOGI.
16 * GNU Shogi is free software; you can redistribute it and/or modify it
17 * under the terms of the GNU General Public License as published by the
18 * Free Software Foundation; either version 3 of the License,
19 * or (at your option) any later version.
21 * GNU Shogi is distributed in the hope that it will be useful, but WITHOUT
22 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
23 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
26 * You should have received a copy of the GNU General Public License along
27 * with GNU Shogi; see the file COPYING. If not, see
28 * <http://www.gnu.org/licenses/>.
29 * ----------------------------------------------------------------------
36 #include <sys/param.h>
37 #include <sys/types.h>
47 unsigned short MV
[MAXDEPTH
];
53 extern short pscore
[];
56 /****************************************
57 * Trivial output functions.
58 ****************************************/
63 if (!barebones
&& !XSHOGI
)
71 if (!barebones
&& !XSHOGI
)
73 fputs("\nYour move is? ", stdout
);
79 Raw_ShowCurrentMove(short pnt
, short f
, short t
)
85 Raw_ShowDepth(char ch
)
87 if (!barebones
&& !XSHOGI
)
89 printf("Depth= %d%c ", Sdepth
, ch
);
96 Raw_ShowGameType(void)
99 printf("%c vs. %c\n", GameType
[black
], GameType
[white
]);
104 Raw_ShowLine(unsigned short *bstline
)
108 for (i
= 1; bstline
[i
] > 0; i
++)
110 if ((i
> 1) && (i
% 8 == 1))
113 algbr((short)(bstline
[i
] >> 8), (short)(bstline
[i
] & 0xFF), false);
114 printf("%5s ", mvstr
[0]);
122 Raw_ShowMessage(char *s
)
130 Raw_AlwaysShowMessage(const char *format
, va_list ap
)
138 Raw_Printf(const char *format
, va_list ap
)
145 Raw_doRequestInputString(const char* fmt
, char* buffer
)
152 Raw_GetString(char* sx
)
157 while(!eof
&& !sx
[0])
158 eof
= (fgets(sx
, 80, stdin
) == NULL
);
164 Raw_ShowNodeCnt(long NodeCnt
)
166 printf("Nodes = %ld Nodes/sec = %ld\n",
167 NodeCnt
, (((et
) ? ((NodeCnt
* 100) / et
) : 0)));
172 Raw_ShowPatternCount(short side
, short n
)
175 printf("%s matches %d pattern(s)\n", ColorStr
[side
], n
);
180 Raw_ShowResponseTime(void)
186 Raw_ShowResults(short score
, unsigned short *bstline
, char ch
)
188 if (flag
.post
&& !XSHOGI
)
191 printf("%2d%c %6d %4ld %8ld ",
192 Sdepth
, ch
, score
, et
/ 100, NodeCnt
);
193 Raw_ShowLine(bstline
);
199 Raw_ShowSidetoMove(void)
207 printf("stage = %d\n", stage
);
208 printf("balance[black] = %d balance[white] = %d\n",
209 balance
[black
], balance
[white
]);
212 /****************************************
213 * End of trivial output routines.
214 ****************************************/
224 /* needed because of inconsistency between MSVC run-time system and gcc includes */
225 setbuf(stdout
, NULL
);
228 setvbuf(stdout
, NULL
, _IOLBF
, BUFSIZ
);
230 # ifdef HAVE_SETLINEBUF
233 # error "Need setvbuf() or setlinebuf() to compile gnushogi!"
237 printf("GNU Shogi %s\n", PACKAGE_VERSION
);
242 if (!TCflag
&& (MaxResponseTime
== 0))
243 MaxResponseTime
= 15L * 100L;
251 /* CHECKME: what purpose does this next statement serve? */
252 signal(SIGTERM
, SIG_IGN
);
266 Raw_ShowMessage("Abort? ");
269 if (strcmp(s
, "yes") == 0)
275 Raw_TerminateSearch(int sig
)
277 #ifdef INTERRUPT_TEST
278 ElapsedTime(INIT_INTERRUPT_MODE
);
282 flag
.back
= true; /* previous: flag.timeout = true; */
284 flag
.bothsides
= false;
292 printf("GNU Shogi %s command summary\n", PACKAGE_VERSION
);
293 printf("----------------------------------"
294 "------------------------------\n");
295 fputs ("7g7f move from 7g to 7f quit Exit Shogi\n", stdout
);
296 printf("S6h move silver to 6h beep turn %s\n", (flag
.beep
) ? "OFF" : "ON");
297 printf("2d2c+ move to 2c and promote material turn %s\n", (flag
.material
) ? "OFF" : "ON");
298 printf("P*5e drop pawn to 5e easy turn %s\n", (flag
.easy
) ? "OFF" : "ON");
299 printf("tsume toggle tsume mode hash turn %s\n", (flag
.hash
) ? "OFF" : "ON");
300 fputs ("bd redraw board reverse board display\n", stdout
);
301 printf("list game to shogi.lst book turn %s used %d of %d\n", (Book
) ? "OFF" : "ON", bookcount
, booksize
);
302 fputs ("undo undo last ply remove take back a move\n", stdout
);
303 fputs ("edit edit board force toggle manual move mode\n", stdout
);
304 fputs ("switch sides with computer both computer match\n", stdout
);
305 fputs ("black computer plays black white computer plays white\n", stdout
);
306 fputs ("depth set search depth clock set time control\n", stdout
);
307 fputs ("post principle variation hint suggest a move\n", stdout
);
308 fputs ("save game to file get game from file\n", stdout
);
309 printf("xsave pos. to xshogi file xget"
310 " pos. from xshogi file\n");
311 fputs("random randomize play new start new game\n", stdout
);
312 printf("--------------------------------"
313 "--------------------------------\n");
314 printf("Computer: %-12s Opponent: %s\n",
315 ColorStr
[computer
], ColorStr
[opponent
]);
316 printf("Depth: %-12d Response time: %d sec\n",
317 MaxSearchDepth
, MaxResponseTime
/100);
318 printf("Random: %-12s Easy mode: %s\n",
319 (dither
) ? "ON" : "OFF", (flag
.easy
) ? "ON" : "OFF");
320 printf("Beep: %-12s Transposition file: %s\n",
321 (flag
.beep
) ? "ON" : "OFF", (flag
.hash
) ? "ON" : "OFF");
322 printf("Tsume: %-12s Force: %s\n",
323 (flag
.tsume
) ? "ON" : "OFF", (flag
.force
) ? "ON" : "OFF");
324 printf("Time Control %s %d moves %d sec %d add %d depth\n",
325 (TCflag
) ? "ON" : "OFF",
326 TimeControl
.moves
[black
], TimeControl
.clock
[black
] / 100,
327 TCadd
/100, MaxSearchDepth
);
332 * Set up a board position. Pieces are entered by typing the piece followed
333 * by the location. For example, Nf3 will place a knight on square f3.
338 short a
, r
, c
, sq
, i
, found
;
341 flag
.regularstart
= true;
344 Raw_UpdateDisplay(0, 0, 1, 0);
345 printf(". Exit to main\n");
346 printf("# Clear board\n");
347 printf("c Change sides\n");
348 printf("enter piece & location:\n");
362 for (sq
= 0; sq
< NO_SQUARES
; sq
++)
364 board
[sq
] = no_piece
;
379 for (i
= pawn
; i
<= king
; i
++)
381 if ((s
[0] == pxx
[i
]) || (s
[0] == qxx
[i
]))
389 printf("# Invalid piece type '%c'\n", s
[0]);
396 if ((c
< 0) || (c
>= NO_COLS
) || (r
< 0) || (r
>= NO_ROWS
)) {
397 printf("# Out-of-board position '%c%c'\n", s
[1], s
[2]);
403 for (i
= no_piece
; i
<= king
; i
++)
405 if ((s
[0] == pxx
[i
]) || (s
[0] == qxx
[i
]))
409 board
[sq
] = promoted
[i
];
419 printf("# Invalid piece type '%c'\n", s
[0]);
422 for (sq
= 0; sq
< NO_SQUARES
; sq
++)
423 Mvboard
[sq
] = ((board
[sq
] != Stboard
[sq
]) ? 10 : 0);
431 Raw_UpdateDisplay(0, 0, 1, 0);
436 * Set up a board position.
437 * Nine lines of nine characters are used to setup the board. 9a-1a is the
438 * first line. White pieces are represented by uppercase characters.
449 fgets(s
, 80, stdin
); /* skip "setup" command */
451 for (r
= NO_ROWS
- 1; r
>= 0; r
--)
455 for (c
= 0; c
<= (NO_COLS
- 1); c
++)
460 board
[sq
] = no_piece
;
462 for (i
= no_piece
; i
<= king
; i
++)
470 else if (ch
== qxx
[i
])
480 for (sq
= 0; sq
< NO_SQUARES
; sq
++)
481 Mvboard
[sq
] = ((board
[sq
] != Stboard
[sq
]) ? 10 : 0);
485 Raw_UpdateDisplay(0, 0, 1, 0);
486 fputs("Setup successful\n", stdout
);
491 Raw_SearchStartStuff(short side
)
495 printf("\nMove# %d Target = %ld Clock: %ld\n",
497 ResponseTime
, TimeControl
.clock
[side
]);
507 printf("Illegal position.\n");
511 if (mvstr
[0][0] == '\0')
516 /* add remaining time in milliseconds to xshogi */
517 printf("%d. ... %s %ld\n", ++mycnt1
, mvstr
[0],
518 (TimeControl
.clock
[player
] - et
) * 10);
522 printf("%d. ... %s\n", ++mycnt1
, mvstr
[0]);
526 if ((root
->flags
& draw
) || (root
->score
== -(SCORE_LIMIT
+ 999))
527 || (root
->score
== (SCORE_LIMIT
+ 998)))
540 if (Tree
[t
].f
|| Tree
[t
].t
)
548 printf("Gen %ld Node %ld Tree %d Eval %ld Rate %ld EC %d/%d RS hi %ld lo %ld \n", GenCnt
, NodeCnt
, t
, EvalNodes
,
549 (et
> 100) ? (NodeCnt
/ (et
/ 100)) : 0,
550 EADD
, EGET
, reminus
, replus
);
552 printf("Hin/Hout/Tcol/Coll/Fin/Fout = %ld/%ld/%ld/%ld/%ld/%ld\n",
553 HashAdd
, HashCnt
, THashCol
, HashCol
, FHashCnt
, FHashAdd
);
556 Raw_UpdateDisplay(root
->f
, root
->t
, 0, root
->flags
);
560 printf("My move is: %5s\n", mvstr
[0]);
567 if (root
->flags
& draw
)
569 fputs("Drawn game!\n", stdout
);
571 else if (root
->score
== -(SCORE_LIMIT
+ 999))
573 printf("%s mates!\n", ColorStr
[opponent
]);
575 else if (root
->score
== (SCORE_LIMIT
+ 998))
577 printf("%s mates!\n", ColorStr
[computer
]);
580 else if (!barebones
&& (root
->score
< -SCORE_LIMIT
))
582 printf("%s has a forced mate in %d moves!\n",
583 ColorStr
[opponent
], SCORE_LIMIT
+ 999 + root
->score
- 1);
585 else if (!barebones
&& (root
->score
> SCORE_LIMIT
))
587 printf("%s has a forced mate in %d moves!\n",
588 ColorStr
[computer
], SCORE_LIMIT
+ 998 - root
->score
- 1);
590 #endif /* VERYBUGGY */
595 Raw_UpdateClocks(void)
601 Raw_UpdateDisplay(short f
, short t
, short redraw
, short isspec
)
606 if (redraw
&& !XSHOGI
)
609 r
= (short)(TimeControl
.clock
[black
] / 6000);
610 c
= (short)((TimeControl
.clock
[black
] % 6000) / 100);
611 l
= (short)(TimeControl
.clock
[white
] / 6000);
612 m
= (short)((TimeControl
.clock
[white
] % 6000) / 100);
613 printf("Black %d:%02d White %d:%02d\n", r
, c
, l
, m
);
616 for (r
= (NO_ROWS
- 1); r
>= 0; r
--)
618 for (c
= 0; c
<= (NO_COLS
- 1); c
++)
622 ? locn((NO_ROWS
- 1) - r
, (NO_COLS
- 1) - c
)
624 pc
= (is_promoted
[board
[l
]] ? '+' : ' ');
626 if (color
[l
] == neutral
)
628 else if (color
[l
] == black
)
629 printf("%c%c", pc
, qxx
[board
[l
]]);
631 printf("%c%c", pc
, pxx
[board
[l
]]);
641 for (side
= black
; side
<= white
; side
++)
644 printf((side
== black
)?"black ":"white ");
646 for (piece
= pawn
; piece
<= king
; piece
++)
648 if ((c
= Captured
[side
][piece
]))
649 printf("%i%c ", c
, pxx
[piece
]);
660 Raw_ChangeAlphaWindow(void)
662 printf("WAwindow: ");
663 scanf("%hd", &WAwindow
);
664 printf("BAwindow: ");
665 scanf("%hd", &BAwindow
);
670 Raw_ChangeBetaWindow(void)
672 printf("WBwindow: ");
673 scanf("%hd", &WBwindow
);
674 printf("BBwindow: ");
675 scanf("%hd", &BBwindow
);
684 algbr((short) (hint
>> 8), (short) (hint
& 0xFF), false);
685 printf("Hint: %s\n", mvstr
[0]);
688 fputs("I have no idea.\n", stdout
);
693 Raw_SelectLevel(char *sx
)
696 char T
[NO_SQUARES
+ 1], *p
, *q
;
698 if ((p
= strstr(sx
, "level")) != NULL
)
699 p
+= strlen("level");
700 else if ((p
= strstr(sx
, "clock")) != NULL
)
701 p
+= strlen("clock");
707 for (; *p
!= 'X'; *q
++ = *p
++);
711 /* line empty ask for input */
714 fputs("Enter #moves #minutes: ", stdout
);
715 fgets(T
, NO_SQUARES
+ 1, stdin
);
719 /* skip blackspace */
720 for (p
= T
; *p
== ' '; p
++) ;
722 /* could be moves or a fischer clock */
725 /* its a fischer clock game */
727 TCminutes
= (short)strtol(p
, &q
, 10);
728 TCadd
= (short)strtol(q
, NULL
, 10) *100;
736 TCmoves
= (short)strtol(p
, &q
, 10);
737 TCminutes
= (short)strtol(q
, &q
, 10);
740 TCseconds
= (short)strtol(q
+ 1, (char **) NULL
, 10);
745 fputs("Operator time (hundredths) = ", stdout
);
746 scanf("%hd", &OperatorTime
);
752 MaxResponseTime
= TCminutes
*60L * 100L + TCseconds
* 100L;
753 TCminutes
= TCseconds
= 0;
762 TimeControl
.clock
[black
] = TimeControl
.clock
[white
] = 0;
767 printf("Clocks: %ld %ld\n",
768 TimeControl
.clock
[black
] * 10,
769 TimeControl
.clock
[white
] * 10);
775 Raw_ChangeSearchDepth(void)
778 scanf("%hd", &MaxSearchDepth
);
779 TCflag
= !(MaxSearchDepth
> 0);
784 Raw_ChangeHashDepth(void)
786 printf("hashdepth = ");
787 scanf("%hd", &HashDepth
);
788 printf("MoveLimit = ");
789 scanf("%hd", &HashMoveLimit
);
794 Raw_SetContempt(void)
796 printf("contempt = ");
797 scanf("%hd", &contempt
);
802 Raw_ChangeXwindow(void)
805 scanf("%hd", &xwndw
);
810 * Raw_ShowPostnValue(short sq)
811 * must have called ExaminePosition() first
814 Raw_ShowPostnValue(short sq
)
817 score
= ScorePosition(color
[sq
]);
819 if (color
[sq
] != neutral
)
821 #if defined SAVE_SVALUE
822 printf("???%c ", (color
[sq
] == white
)?'b':'w');
824 printf("%3d%c ", svalue
[sq
], (color
[sq
] == white
)?'b':'w');
837 short c
, p
, sq
, tp
, tc
, tsq
, score
, j
, k
;
840 ExaminePosition(opponent
);
841 Raw_ShowMessage("Enter piece: ");
845 if ((s
[0] == 'b') || (s
[0] == 'B'))
848 if ((s
[0] == 'w') || (s
[0] == 'W'))
851 for (p
= king
; p
> no_piece
; p
--)
853 if ((s
[1] == pxx
[p
]) || (s
[1] == qxx
[p
]))
859 for (j
= (NO_ROWS
- 1); j
>= 0; j
--)
861 for (k
= 0; k
< (NO_COLS
); k
++)
863 sq
= j
*(NO_COLS
) + k
;
868 tsq
= PieceList
[c
][1];
869 PieceList
[c
][1] = sq
;
870 Raw_ShowPostnValue(sq
);
871 PieceList
[c
][1] = tsq
;
880 score
= ScorePosition(opponent
);
882 for (j
= (NO_ROWS
- 1); j
>= 0; j
--)
884 for (k
= 0; k
< (NO_COLS
); k
++)
886 sq
= j
*(NO_COLS
) + k
;
888 if (color
[sq
] != neutral
)
890 #if defined SAVE_SVALUE
891 printf("%?????%c ", (color
[sq
] == white
)?'b':'w');
893 printf("%5d%c ", svalue
[sq
], (color
[sq
] == white
)?'b':'w');
905 printf("stage = %d\n", stage
);
906 printf("S%d m%d ps%d gt%c m%d ps%d gt%c", score
,
907 mtl
[computer
], pscore
[computer
], GameType
[computer
],
908 mtl
[opponent
], pscore
[opponent
], GameType
[opponent
]);
913 Raw_DoTable(short table
[NO_SQUARES
])
916 ExaminePosition(opponent
);
918 for (j
= (NO_ROWS
- 1); j
>= 0; j
--)
920 for (k
= 0; k
< NO_COLS
; k
++)
922 sq
= j
*(NO_ROWS
) + k
;
923 printf("%3d ", table
[sq
]);
932 Raw_ShowPostnValues(void)
934 short sq
, score
, j
, k
;
935 ExaminePosition(opponent
);
937 for (j
= (NO_ROWS
- 1); j
>= 0; j
--)
939 for (k
= 0; k
< NO_COLS
; k
++)
941 sq
= j
* NO_COLS
+ k
;
942 Raw_ShowPostnValue(sq
);
948 score
= ScorePosition(opponent
);
949 printf("S%d m%d ps%d gt%c m%d ps%d gt%c", score
,
950 mtl
[computer
], pscore
[computer
], GameType
[computer
],
951 mtl
[opponent
], pscore
[opponent
], GameType
[opponent
]);
952 printf("\nhung black %d hung white %d\n", hung
[black
], hung
[white
]);
957 Raw_PollForInput(void)
961 if (!PeekNamedPipe(GetStdHandle(STD_INPUT_HANDLE
), NULL
, 0, NULL
, &cnt
, NULL
))
964 static struct pollfd pollfds
[1] = { /* [0] = */ { /* .fd = */ STDIN_FILENO
,
965 /* .events = */ POLLIN
} };
966 int cnt
= poll(pollfds
, sizeof(pollfds
)/sizeof(pollfds
[0]), 0);
968 perror("polling standard input");
972 if (cnt
) { /* if anything to read, or error occured */
974 flag
.back
= true; /* previous: flag.timeout = true; */
975 flag
.bothsides
= false;