17 gtp_prefix(char prefix
, int id
)
20 printf("%c%d ", prefix
, id
);
22 printf("%c ", prefix
);
26 gtp_output(char prefix
, int id
, va_list params
)
28 gtp_prefix(prefix
, id
);
30 while ((s
= va_arg(params
, char *))) {
33 putchar('\n'); putchar('\n');
38 gtp_reply(int id
, ...)
42 gtp_output('=', id
, params
);
47 gtp_error(int id
, ...)
51 gtp_output('?', id
, params
);
56 /* XXX: THIS IS TOTALLY INSECURE!!!!
57 * Even basic input checking is missing. */
60 gtp_parse(struct board
*board
, struct engine
*engine
, char *buf
)
62 #define next_tok(to_) \
64 next = next + strcspn(next, " \t\r\n"); \
67 next += strspn(next, " \t\r\n"); \
71 *strchr(buf
, '#') = 0;
73 char *cmd
, *next
= buf
;
85 if (!strcasecmp(cmd
, "protocol_version")) {
86 gtp_reply(id
, "2", NULL
);
88 } else if (!strcasecmp(cmd
, "name")) {
90 gtp_reply(id
, "Pachi ", engine
->name
, NULL
);
92 } else if (!strcasecmp(cmd
, "version")) {
93 gtp_reply(id
, PACHI_VERSION
, ": ", engine
->comment
, NULL
);
95 /* TODO: known_command */
97 } else if (!strcasecmp(cmd
, "list_commands")) {
98 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", NULL
);
100 } else if (!strcasecmp(cmd
, "quit")) {
104 } else if (!strcasecmp(cmd
, "boardsize")) {
107 board_resize(board
, atoi(arg
));
111 } else if (!strcasecmp(cmd
, "clear_board")) {
115 } else if (!strcasecmp(cmd
, "komi")) {
118 sscanf(arg
, "%f", &board
->komi
);
122 } else if (!strcasecmp(cmd
, "play")) {
127 m
.color
= str2stone(arg
);
129 coord_t
*c
= str2coord(arg
, board_size(board
));
130 m
.coord
= *c
; coord_done(c
);
133 fprintf(stderr
, "got move %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
134 if (board_play(board
, &m
) < 0) {
136 fprintf(stderr
, "! ILLEGAL MOVE %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
137 board_print(board
, stderr
);
139 gtp_error(id
, "illegal move", NULL
);
144 } else if (!strcasecmp(cmd
, "genmove")) {
147 enum stone color
= str2stone(arg
);
148 coord_t
*c
= engine
->genmove(engine
, board
, color
);
149 struct move m
= { *c
, color
};
150 board_play(board
, &m
);
151 char *str
= coord2str(*c
, board
);
153 fprintf(stderr
, "playing move %s\n", str
);
154 gtp_reply(id
, str
, NULL
);
155 free(str
); coord_done(c
);
157 } else if (!strcasecmp(cmd
, "set_free_handicap")) {
164 coord_t
*c
= str2coord(arg
, board_size(board
));
165 m
.coord
= *c
; coord_done(c
);
167 fprintf(stderr
, "setting handicap %d,%d\n", coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
169 if (board_play(board
, &m
) < 0) {
171 fprintf(stderr
, "! ILLEGAL MOVE %d,%d,%d\n", m
.color
, coord_x(m
.coord
, board
), coord_y(m
.coord
, board
));
172 gtp_error(id
, "illegal move", NULL
);
178 /* TODO: Engine should choose free handicap; however, it tends to take
179 * overly long to think it all out, and unless it's clever its
180 * handicap stones won't be of much help. ;-) */
181 } else if (!strcasecmp(cmd
, "place_free_handicap")
182 || !strcasecmp(cmd
, "fixed_handicap")) {
185 int stones
= atoi(arg
);
188 board_handicap(board
, stones
, stdout
);
189 printf("\n\n"); fflush(stdout
);
191 } else if (!strcasecmp(cmd
, "final_score")) {
192 float score
= board_official_score(board
);
195 fprintf(stderr
, "counted score %.1f\n", score
);
197 gtp_reply(id
, "0", NULL
);
198 } else if (score
> 0) {
199 snprintf(str
, 64, "W+%.1f", score
);
200 gtp_reply(id
, str
, NULL
);
202 snprintf(str
, 64, "B+%.1f", -score
);
203 gtp_reply(id
, str
, NULL
);
206 /* XXX: This is a huge hack. */
207 } else if (!strcasecmp(cmd
, "final_status_list")) {
210 assert(!strcasecmp(arg
, "dead")); // yes, I know...
211 gtp_reply(id
, "", NULL
);
213 /* Custom commands for handling UCT opening book */
214 } else if (!strcasecmp(cmd
, "uct_genbook")) {
215 /* Board must be initialized properly, as if for genmove;
216 * makes sense only as 'uct_genbook b'. */
219 enum stone color
= str2stone(arg
);
220 if (uct_genbook(engine
, board
, color
))
223 gtp_error(id
, "error generating book", NULL
);
225 } else if (!strcasecmp(cmd
, "uct_dumpbook")) {
228 enum stone color
= str2stone(arg
);
229 uct_dumpbook(engine
, board
, color
);
233 gtp_error(id
, "unknown command", NULL
);