18 gtp_prefix(char prefix
, int id
)
21 printf("%c%d ", prefix
, id
);
23 printf("%c ", prefix
);
34 gtp_output(char prefix
, int id
, va_list params
)
36 gtp_prefix(prefix
, id
);
38 while ((s
= va_arg(params
, char *))) {
46 gtp_reply(int id
, ...)
50 gtp_output('=', id
, params
);
55 gtp_error(int id
, ...)
59 gtp_output('?', id
, params
);
64 /* XXX: THIS IS TOTALLY INSECURE!!!!
65 * Even basic input checking is missing. */
68 gtp_parse(struct board
*board
, struct engine
*engine
, char *buf
)
70 #define next_tok(to_) \
72 next = next + strcspn(next, " \t\r\n"); \
75 next += strspn(next, " \t\r\n"); \
79 *strchr(buf
, '#') = 0;
81 char *cmd
, *next
= buf
;
93 if (!strcasecmp(cmd
, "protocol_version")) {
94 gtp_reply(id
, "2", NULL
);
96 } else if (!strcasecmp(cmd
, "name")) {
98 gtp_reply(id
, "Pachi ", engine
->name
, NULL
);
100 } else if (!strcasecmp(cmd
, "version")) {
101 gtp_reply(id
, PACHI_VERSION
, ": ", engine
->comment
, NULL
);
103 /* TODO: known_command */
105 } else if (!strcasecmp(cmd
, "list_commands")) {
106 gtp_reply(id
, "protocol_version\nname\nversion\nlist_commands\nquit\nboardsize\nclear_board\nkomi\nplay\ngenmove\nset_free_handicap\nplace_free_handicap\nfinal_status_list\nkgs-chat", NULL
);
108 } else if (!strcasecmp(cmd
, "quit")) {
112 } else if (!strcasecmp(cmd
, "boardsize")) {
115 board_resize(board
, atoi(arg
));
119 } else if (!strcasecmp(cmd
, "clear_board")) {
121 assert(engine
->done_board_state
);
122 engine
->done_board_state(engine
, board
);
126 board_print(board
, stderr
);
129 } else if (!strcasecmp(cmd
, "komi")) {
132 sscanf(arg
, "%f", &board
->komi
);
135 board_print(board
, stderr
);
138 } else if (!strcasecmp(cmd
, "play")) {
143 m
.color
= str2stone(arg
);
145 coord_t
*c
= str2coord(arg
, board_size(board
));
146 m
.coord
= *c
; coord_done(c
);
149 fprintf(stderr
, "got move %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
150 engine
->notify_play(engine
, board
, &m
);
151 if (board_play(board
, &m
) < 0) {
153 fprintf(stderr
, "! ILLEGAL MOVE %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
154 board_print(board
, stderr
);
156 gtp_error(id
, "illegal move", NULL
);
159 board_print(board
, stderr
);
163 } else if (!strcasecmp(cmd
, "genmove")) {
166 enum stone color
= str2stone(arg
);
167 coord_t
*c
= engine
->genmove(engine
, board
, color
);
168 struct move m
= { *c
, color
};
169 board_play(board
, &m
);
170 char *str
= coord2str(*c
, board
);
172 fprintf(stderr
, "playing move %s\n", str
);
174 board_print_custom(board
, stderr
, engine
->printhook
);
176 gtp_reply(id
, str
, NULL
);
177 free(str
); coord_done(c
);
179 } else if (!strcasecmp(cmd
, "set_free_handicap")) {
186 coord_t
*c
= str2coord(arg
, board_size(board
));
187 m
.coord
= *c
; coord_done(c
);
189 fprintf(stderr
, "setting handicap %d,%d\n", coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
191 if (board_play(board
, &m
) < 0) {
193 fprintf(stderr
, "! ILLEGAL MOVE %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
194 gtp_error(id
, "illegal move", NULL
);
200 board_print(board
, stderr
);
203 /* TODO: Engine should choose free handicap; however, it tends to take
204 * overly long to think it all out, and unless it's clever its
205 * handicap stones won't be of much help. ;-) */
206 } else if (!strcasecmp(cmd
, "place_free_handicap")
207 || !strcasecmp(cmd
, "fixed_handicap")) {
210 int stones
= atoi(arg
);
213 board_handicap(board
, stones
, stdout
);
215 board_print(board
, stderr
);
219 } else if (!strcasecmp(cmd
, "final_score")) {
220 struct move_queue q
= { .moves
= 0 };
221 if (engine
->dead_group_list
)
222 engine
->dead_group_list(engine
, board
, &q
);
223 float score
= board_official_score(board
, &q
);
226 fprintf(stderr
, "counted score %.1f\n", score
);
228 gtp_reply(id
, "0", NULL
);
229 } else if (score
> 0) {
230 snprintf(str
, 64, "W+%.1f", score
);
231 gtp_reply(id
, str
, NULL
);
233 snprintf(str
, 64, "B+%.1f", -score
);
234 gtp_reply(id
, str
, NULL
);
237 /* XXX: This is a huge hack. */
238 } else if (!strcasecmp(cmd
, "final_status_list")) {
241 struct move_queue q
= { .moves
= 0 };
242 if (engine
->dead_group_list
)
243 engine
->dead_group_list(engine
, board
, &q
);
244 /* else we return empty list - i.e. engine not supporting
245 * this assumes all stones alive at the game end. */
246 if (!strcasecmp(arg
, "dead")) {
248 for (int i
= 0; i
< q
.moves
; i
++) {
249 foreach_in_group(board
, q
.move
[i
]) {
250 printf("%s ", coord2sstr(c
, board
));
251 } foreach_in_group_end
;
257 } else if (!strcasecmp(arg
, "seki") || !strcasecmp(arg
, "alive")) {
259 bool printed_group
= false;
260 foreach_point(board
) { // foreach_group, effectively
261 group_t g
= group_at(board
, c
);
262 if (!g
|| g
!= c
) continue;
264 for (int i
= 0; i
< q
.moves
; i
++) {
268 foreach_in_group(board
, g
) {
269 printf("%s ", coord2sstr(c
, board
));
270 } foreach_in_group_end
;
272 printed_group
= true;
279 gtp_error(id
, "illegal status specifier", NULL
);
282 /* Custom commands for handling UCT opening book */
283 } else if (!strcasecmp(cmd
, "uct_genbook")) {
284 /* Board must be initialized properly, as if for genmove;
285 * makes sense only as 'uct_genbook b'. */
288 enum stone color
= str2stone(arg
);
289 if (uct_genbook(engine
, board
, color
))
292 gtp_error(id
, "error generating book", NULL
);
294 } else if (!strcasecmp(cmd
, "uct_dumpbook")) {
297 enum stone color
= str2stone(arg
);
298 uct_dumpbook(engine
, board
, color
);
301 } else if (!strcasecmp(cmd
, "kgs-chat")) {
310 reply
= engine
->chat(engine
, board
, msg
);
312 gtp_reply(id
, reply
, NULL
);
314 gtp_error(id
, "unknown chat command", NULL
);
317 gtp_error(id
, "unknown command", NULL
);