19 gtp_prefix(char prefix
, int id
)
22 printf("%c%d ", prefix
, id
);
24 printf("%c ", prefix
);
35 gtp_output(char prefix
, int id
, va_list params
)
37 gtp_prefix(prefix
, id
);
39 while ((s
= va_arg(params
, char *))) {
47 gtp_reply(int id
, ...)
51 gtp_output('=', id
, params
);
56 gtp_error(int id
, ...)
60 gtp_output('?', id
, params
);
65 /* XXX: THIS IS TOTALLY INSECURE!!!!
66 * Even basic input checking is missing. */
69 gtp_parse(struct board
*board
, struct engine
*engine
, struct time_info
*ti
, char *buf
)
71 #define next_tok(to_) \
73 next = next + strcspn(next, " \t\r\n"); \
76 next += strspn(next, " \t\r\n"); \
80 *strchr(buf
, '#') = 0;
82 char *cmd
, *next
= buf
;
94 if (!strcasecmp(cmd
, "protocol_version")) {
95 gtp_reply(id
, "2", NULL
);
97 } else if (!strcasecmp(cmd
, "name")) {
99 gtp_reply(id
, "Pachi ", engine
->name
, NULL
);
101 } else if (!strcasecmp(cmd
, "version")) {
102 gtp_reply(id
, PACHI_VERSION
, ": ", engine
->comment
, NULL
);
104 /* TODO: known_command */
106 } else if (!strcasecmp(cmd
, "list_commands")) {
107 gtp_reply(id
, "protocol_version\n"
117 "kgs-genmove_cleanup\n"
118 "set_free_handicap\n"
119 "place_free_handicap\n"
120 "final_status_list\n"
124 "kgs-time_settings", NULL
);
126 } else if (!strcasecmp(cmd
, "quit")) {
130 } else if (!strcasecmp(cmd
, "boardsize")) {
133 board_resize(board
, atoi(arg
));
137 } else if (!strcasecmp(cmd
, "clear_board")) {
141 board_print(board
, stderr
);
144 } else if (!strcasecmp(cmd
, "komi")) {
147 sscanf(arg
, "%f", &board
->komi
);
150 board_print(board
, stderr
);
153 } else if (!strcasecmp(cmd
, "play")) {
158 m
.color
= str2stone(arg
);
160 coord_t
*c
= str2coord(arg
, board_size(board
));
161 m
.coord
= *c
; coord_done(c
);
165 fprintf(stderr
, "got move %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
167 // This is where kgs starts our timer, not at coming genmove!
168 time_start_timer(&ti
[stone_other(m
.color
)]);
170 if (engine
->notify_play
)
171 reply
= engine
->notify_play(engine
, board
, &m
);
172 if (board_play(board
, &m
) < 0) {
174 fprintf(stderr
, "! ILLEGAL MOVE %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
175 board_print(board
, stderr
);
177 gtp_error(id
, "illegal move", NULL
);
180 board_print(board
, stderr
);
181 gtp_reply(id
, reply
, NULL
);
184 } else if (!strcasecmp(cmd
, "genmove") || !strcasecmp(cmd
, "kgs-genmove_cleanup")) {
187 enum stone color
= str2stone(arg
);
188 time_prepare_move(&ti
[color
], board
);
190 coord_t
*c
= engine
->genmove(engine
, board
, &ti
[color
], color
, !strcasecmp(cmd
, "kgs-genmove_cleanup"));
191 struct move m
= { *c
, color
};
192 board_play(board
, &m
);
193 char *str
= coord2str(*c
, board
);
195 fprintf(stderr
, "playing move %s\n", str
);
197 board_print_custom(board
, stderr
, engine
->printhook
);
199 gtp_reply(id
, str
, NULL
);
200 free(str
); coord_done(c
);
202 } else if (!strcasecmp(cmd
, "set_free_handicap")) {
209 coord_t
*c
= str2coord(arg
, board_size(board
));
210 m
.coord
= *c
; coord_done(c
);
212 fprintf(stderr
, "setting handicap %d,%d\n", coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
214 if (board_play(board
, &m
) < 0) {
216 fprintf(stderr
, "! ILLEGAL MOVE %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
217 gtp_error(id
, "illegal move", NULL
);
223 board_print(board
, stderr
);
226 /* TODO: Engine should choose free handicap; however, it tends to take
227 * overly long to think it all out, and unless it's clever its
228 * handicap stones won't be of much help. ;-) */
229 } else if (!strcasecmp(cmd
, "place_free_handicap")
230 || !strcasecmp(cmd
, "fixed_handicap")) {
233 int stones
= atoi(arg
);
236 board_handicap(board
, stones
, stdout
);
238 board_print(board
, stderr
);
242 } else if (!strcasecmp(cmd
, "final_score")) {
243 struct move_queue q
= { .moves
= 0 };
244 if (engine
->dead_group_list
)
245 engine
->dead_group_list(engine
, board
, &q
);
246 float score
= board_official_score(board
, &q
);
249 fprintf(stderr
, "counted score %.1f\n", score
);
251 gtp_reply(id
, "0", NULL
);
252 } else if (score
> 0) {
253 snprintf(str
, 64, "W+%.1f", score
);
254 gtp_reply(id
, str
, NULL
);
256 snprintf(str
, 64, "B+%.1f", -score
);
257 gtp_reply(id
, str
, NULL
);
260 /* XXX: This is a huge hack. */
261 } else if (!strcasecmp(cmd
, "final_status_list")) {
264 struct move_queue q
= { .moves
= 0 };
265 if (engine
->dead_group_list
)
266 engine
->dead_group_list(engine
, board
, &q
);
267 /* else we return empty list - i.e. engine not supporting
268 * this assumes all stones alive at the game end. */
269 if (!strcasecmp(arg
, "dead")) {
271 for (int i
= 0; i
< q
.moves
; i
++) {
272 foreach_in_group(board
, q
.move
[i
]) {
273 printf("%s ", coord2sstr(c
, board
));
274 } foreach_in_group_end
;
280 } else if (!strcasecmp(arg
, "seki") || !strcasecmp(arg
, "alive")) {
282 bool printed_group
= false;
283 foreach_point(board
) { // foreach_group, effectively
284 group_t g
= group_at(board
, c
);
285 if (!g
|| g
!= c
) continue;
287 for (int i
= 0; i
< q
.moves
; i
++) {
291 foreach_in_group(board
, g
) {
292 printf("%s ", coord2sstr(c
, board
));
293 } foreach_in_group_end
;
295 printed_group
= true;
302 gtp_error(id
, "illegal status specifier", NULL
);
305 /* Custom commands for handling UCT opening book */
306 } else if (!strcasecmp(cmd
, "uct_genbook")) {
307 /* Board must be initialized properly, as if for genmove;
308 * makes sense only as 'uct_genbook b'. */
311 enum stone color
= str2stone(arg
);
312 if (uct_genbook(engine
, board
, &ti
[color
], color
))
315 gtp_error(id
, "error generating book", NULL
);
317 } else if (!strcasecmp(cmd
, "uct_dumpbook")) {
320 enum stone color
= str2stone(arg
);
321 uct_dumpbook(engine
, board
, color
);
324 } else if (!strcasecmp(cmd
, "kgs-chat")) {
333 reply
= engine
->chat(engine
, board
, msg
);
335 gtp_reply(id
, reply
, NULL
);
337 gtp_error(id
, "unknown chat command", NULL
);
339 } else if (!strcasecmp(cmd
, "time_left")) {
342 enum stone color
= str2stone(arg
);
344 int time
= atoi(arg
);
346 int stones
= atoi(arg
);
347 time_left(&ti
[color
], time
, stones
);
351 } else if (!strcasecmp(cmd
, "time_settings") || !strcasecmp(cmd
, "kgs-time_settings")) {
352 char *time_system
= "canadian";
354 int main_time
= -1, byoyomi_time
= 0, byoyomi_stones
= 0, byoyomi_periods
= 0;
355 if (!strcasecmp(cmd
, "kgs-time_settings")) {
356 next_tok(time_system
);
357 if (!strcasecmp(time_system
, "none")) {
358 // time > 0, stones 0: convention for unlimited
361 } else if (!strcasecmp(time_system
, "absolute")) {
363 main_time
= atoi(arg
);
364 } else if (!strcasecmp(time_system
, "byoyomi")) {
366 main_time
= atoi(arg
);
368 byoyomi_time
= atoi(arg
);
371 byoyomi_periods
= atoi(arg
);
374 if (main_time
< 0) { // canadian time system
376 main_time
= atoi(arg
);
378 byoyomi_time
= atoi(arg
);
380 byoyomi_stones
= atoi(arg
);
383 fprintf(stderr
, "time_settings %d %d %d %d\n",
384 main_time
, byoyomi_time
, byoyomi_stones
, byoyomi_periods
);
385 time_settings(&ti
[S_BLACK
], main_time
, byoyomi_time
, byoyomi_stones
, byoyomi_periods
);
386 ti
[S_WHITE
] = ti
[S_BLACK
];
391 gtp_error(id
, "unknown command", NULL
);