/*
* In MultiWidget this function is needed to count how many tags
* a widget (menu, checklist, radiolist) has
*/
static int
howmany_tags(char *argv[], int group)
{
int result = 0;
int have;
const char *format = "Expected %d arguments, found only %d";
char temp[80];
while (argv[0] != 0) {
if (!strcmp(argv[0], and_widget))
break;
if ((have = arg_rest(argv)) < group) {
sprintf(temp, format, group, have);
Usage(temp);
}
argv += group;
result++;
}
if (argv[0] != 0
&& strcmp(argv[0], and_widget) != 0
&& (have = arg_rest(argv)) < group) {
sprintf(temp, format, group, have);
Usage(temp);
}
return result;
}
static int
optional_num(char **av, int n, int dft)
{
int ret = dft;
if (arg_rest(av) > n)
ret = numeric_arg(av, n);
return ret;
}
static char *
optional_str(char **av, int n, char *dft)
{
char *ret = dft;
if (arg_rest(av) > n)
ret = av[n];
return ret;
}
static int
j_fselect(JUMPARGS)
{
*offset_add = arg_rest(av);
return show_result(dialog_fselect(t,
av[1],
numeric_arg(av, 2),
numeric_arg(av, 3)));
}
static int
j_gauge(JUMPARGS)
{
*offset_add = arg_rest(av);
return dialog_gauge(t,
av[1],
numeric_arg(av, 2),
numeric_arg(av, 3),
optional_num(av, 4, 0));
}
static int
j_passwordbox(JUMPARGS)
{
*offset_add = arg_rest(av);
return show_result(dialog_inputbox(t,
av[1],
numeric_arg(av, 2),
numeric_arg(av, 3),
optional_str(av, 4, 0), 1));
}
static int
j_timebox(JUMPARGS)
{
*offset_add = arg_rest(av);
return show_result(dialog_timebox(t,
av[1],
numeric_arg(av, 2),
numeric_arg(av, 3),
optional_num(av, 4, -1),
optional_num(av, 5, -1),
optional_num(av, 6, -1)));
}
static int
j_calendar(JUMPARGS)
{
*offset_add = arg_rest(av);
return show_result(dialog_calendar(t,
av[1],
numeric_arg(av, 2),
numeric_arg(av, 3),
numeric_arg(av, 4),
numeric_arg(av, 5),
numeric_arg(av, 6)));
}
int
main(int argc, char *argv[])
{
FILE *output = stderr;
char temp[80];
const char *separate_str = DEFAULT_SEPARATE_STR;
bool esc_pressed = FALSE;
int offset = 1;
int offset_add;
int retval = DLG_EXIT_OK;
int done;
int j;
eOptions code;
const Mode *modePtr;
#ifndef HAVE_COLOR
int use_shadow = FALSE; /* ignore corresponding option */
#endif
#if defined(ENABLE_NLS)
/* initialize locale support */
setlocale(LC_ALL, "");
bindtextdomain(PACKAGE, LOCALEDIR);
textdomain(PACKAGE);
#elif defined(HAVE_SETLOCALE)
(void) setlocale(LC_ALL, "");
#endif
program = argv[0];
dialog_vars.output = output;
if (argc == 2) { /* if we don't want clear screen */
switch (lookupOption(argv[1], 7)) {
case o_print_maxsize:
(void) initscr();
fprintf(output, "MaxSize: %d, %d\n", SLINES, SCOLS);
end_dialog();
break;
case o_print_version:
fprintf(output, "Version: %s\n", VERSION);
break;
default:
case o_help:
Help();
break;
}
return 0;
}
if (argc < 2) {
Help();
}
init_dialog();
#ifdef HAVE_RC_FILE
if (!strcmp(argv[1], "--create-rc")) {
if (argc != 3) {
sprintf(temp, "Expected a filename for %s", argv[1]);
Usage(temp);
}
end_dialog();
create_rc(argv[2]);
return 0;
}
#endif
while (offset < argc && !esc_pressed) {
memset(&dialog_vars, 0, sizeof(dialog_vars));
dialog_vars.aspect_ratio = DEFAULT_ASPECT_RATIO;
dialog_vars.tab_len = TAB_LEN;
dialog_vars.output = output;
done = FALSE;
while (offset < argc && !done) { /* Common options */
switch (lookupOption(argv[offset], 1)) {
case o_title:
dialog_vars.title = optionString(argv, &offset);
break;
case o_backtitle:
dialog_vars.backtitle = optionString(argv, &offset);
break;
case o_separate_widget:
separate_str = optionString(argv, &offset);
break;
case o_separate_output:
dialog_vars.separate_output = TRUE;
break;
case o_cr_wrap:
dialog_vars.cr_wrap = TRUE;
break;
case o_no_kill:
dialog_vars.cant_kill = TRUE;
break;
case o_nocancel:
dialog_vars.nocancel = TRUE;
break;
case o_size_err:
dialog_vars.size_err = TRUE;
break;
case o_beep:
dialog_vars.beep_signal = TRUE;
break;
case o_beep_after:
dialog_vars.beep_after_signal = TRUE;
break;
case o_shadow:
use_shadow = TRUE;
break;
case o_defaultno:
defaultno = TRUE;
break;
case o_default_item:
dialog_vars.default_item = optionString(argv, &offset);
break;
case o_item_help:
dialog_vars.item_help = TRUE;
break;
case o_no_shadow:
use_shadow = FALSE;
break;
case o_print_size:
dialog_vars.print_siz = TRUE;
break;
case o_print_maxsize:
fprintf(output, "MaxSize: %d, %d\n", SLINES, SCOLS);
break;
case o_print_version:
fprintf(output, "Version: %s\n", VERSION);
break;
case o_tab_correct:
dialog_vars.tab_correct = TRUE;
break;
case o_sleep:
dialog_vars.sleep_secs = optionValue(argv, &offset);
break;
case o_stderr:
dialog_vars.output = output = stderr;
break;
case o_stdout:
dialog_vars.output = output = stdout;
break;
case o_tab_len:
dialog_vars.tab_len = optionValue(argv, &offset);
break;
case o_aspect:
dialog_vars.aspect_ratio = optionValue(argv, &offset);
break;
case o_begin:
dialog_vars.begin_set = TRUE;
dialog_vars.begin_y = optionValue(argv, &offset);
dialog_vars.begin_x = optionValue(argv, &offset);
break;
case o_clear:
if (argc == 2) { /* we only want to clear the screen */
killall_bg(&retval);
(void) refresh();
end_dialog();
return 0;
}
dialog_vars.dlg_clear_screen = TRUE;
break;
case o_noitem:
case o_fullbutton:
/* ignore */
break;
default: /* no more common options */
done = TRUE;
break;
}
if (!done)
offset++;
}
for (j = 1; j < argc; j++) {
if (strncmp(argv[j - 1], "--", 2) == 0 &&
strcmp(argv[j - 1], "--backtitle") != 0 &&
strcmp(argv[j - 1], "--title") != 0) {
dlg_trim_string(argv[j]);
}
}
if (argv[offset] == NULL) {
Usage("Expected a box option");
}
if (lookupOption(argv[offset], 2) != o_checklist
&& dialog_vars.separate_output) {
sprintf(temp, "Expected --checklist, not %.20s", argv[offset]);
Usage(temp);
}
if (dialog_vars.aspect_ratio == 0)
dialog_vars.aspect_ratio = DEFAULT_ASPECT_RATIO;
put_backtitle();
/* use a table to look for the requested mode, to avoid code duplication */
modePtr = 0;
if ((code = lookupOption(argv[offset], 2)) != o_unknown)
modePtr = lookupMode(code);
if (modePtr == 0) {
sprintf(temp, "Unknown option %.20s", argv[offset]);
Usage(temp);
}
if (arg_rest(&argv[offset]) < modePtr->argmin) {
sprintf(temp, "Expected at least %d tokens for %.20s, have %d",
modePtr->argmin - 1, argv[offset],
arg_rest(&argv[offset]) - 1);
Usage(temp);
}
if (modePtr->argmax && arg_rest(&argv[offset]) > modePtr->argmax) {
sprintf(temp,
"Expected no more than %d tokens for %.20s, have %d",
modePtr->argmax - 1, argv[offset],
arg_rest(&argv[offset]) - 1);
Usage(temp);
}
retval = (*(modePtr->jumper)) (dialog_vars.title, argv + offset, &offset_add);
offset += offset_add;
if (retval == DLG_EXIT_ESC) {
esc_pressed = TRUE;
} else {
if (dialog_vars.beep_after_signal)
(void) beep();
if (dialog_vars.sleep_secs)
(void) napms(dialog_vars.sleep_secs * 1000);
if (offset < argc) {
switch (lookupOption(argv[offset], 7)) {
case o_and_widget:
(void) fputs(separate_str, output);
offset++;
break;
case o_unknown:
sprintf(temp, "Expected --and-widget, not %.20s",
argv[offset]);
Usage(temp);
break;
default:
/* if we got a cancel, etc., stop chaining */
if (retval != DLG_EXIT_OK)
esc_pressed = TRUE;
else
dialog_vars.dlg_clear_screen = TRUE;
break;
}
}
if (dialog_vars.dlg_clear_screen)
dialog_clear();
}
}
killall_bg(&retval);
(void) refresh();
end_dialog();
return retval; /* assume this is the same as exit(retval) */
}
void loop_xboard(void)
{
position_t* pos = position_new();
color_t engineColor = C_BLACK;
IF.info_depth = info_depth;
IF.info_pv = info_pv;
IF.info_curmove = info_curmove;
IF.search_done = search_done;
log_set_mode(MODE_GUI);
log_line("xboard mode");
threads_init(pos);
while (1)
{
char* line = get_line();
char* token = arg_start(line);
if (!strcmp(token, "new"))
{
position_reset(pos);
TT_clear();
engineColor = C_BLACK;
InGame = 1;
}
else if (!strcmp(token, "quit"))
{
InGame = 0;
threads_search_stop();
break;
}
else if (!strcmp(token, "protover"))
{
char* v = arg_next();
if (v && atoi(v) == 2)
{
send_line("feature myname=\"Walce\"");
send_line("feature setboard=1 usermove=1 sigint=0 sigterm=0");
send_line("feature playother=1 ping=1 time=1 colors=0 name=1");
send_line("feature ics=1 analyze=1");
send_line("feature option=\"Search Depth -spin %d 0 20\"", 0);
send_line("feature option=\"Thinking Time -spin %d 0 600000\"", 0);
send_line("feature done=1");
}
}
else if (!strcmp(token, "random") ||
!strcmp(token, "bk") ||
!strcmp(token, "ics") ||
!strcmp(token, "name") ||
!strcmp(token, "accepted") ||
!strcmp(token, "computer") )
{
; // IGNORE
}
else if (!strcmp(token, "variant") ||
!strcmp(token, "rejected") ||
!strcmp(token, "draw") ||
!strcmp(token, "hint") ||
!strcmp(token, "hard") ||
!strcmp(token, "easy") ||
!strcmp(token, "rating") ||
!strcmp(token, "pause") ||
!strcmp(token, "resume") ||
!strcmp(token, "memory") ||
!strcmp(token, "cores") ||
!strcmp(token, "egtpath") )
{
send_line("Error (not implemented yet): %s", token);
}
else if (!strcmp(token, "?"))
{
threads_search_stop();
}
else if (!strcmp(token, "st"))
{
token = arg_next();
if (token)
TC.l_time = atoi(token) * 1000;
}
else if (!strcmp(token, "level"))
{
char* moves = arg_next();
char* min = arg_next();
char* inc = arg_next();
char* sec = min ? strchr(min, ':') : NULL;
if (sec)
*sec++ = 0;
if (inc)
{
int t = atoi(min) * 60 + (sec ? atoi(sec) : 0);
TC.togo = atoi(moves);
TC.ctime[0] = TC.otime[0] = t * 1000;
TC.ctime[1] = TC.otime[1] = atoi(inc) * 1000;
}
}
else if (!strcmp(token, "time"))
{
token = arg_next();
if (token)
TC.ctime[0] = atoi(token) * 10;
}
else if (!strcmp(token, "otim"))
{
token = arg_next();
if (token)
TC.otime[0] = atoi(token) * 10;
}
else if (!strcmp(token, "analyze"))
{
ModeAnalyze = 1;
TC.infinite = 1;
engineColor = pos->to_move;
threads_search();
}
else if (ModeAnalyze && !strcmp(token, "exit"))
{
threads_search_stop();
ModeAnalyze = 0;
TC.infinite = 0;
}
else if (ModeAnalyze && !strcmp(token, "."))
{
//send_line("Error (not implemented yet): %s", token);
}
else if (!strncmp(line, "result", 6))
{
InGame = 0;
threads_search_stop();
}
else if (!strncmp(line, "force", 5))
{
engineColor = C_NONE;
}
else if (!strcmp(token, "go"))
{
engineColor = pos->to_move;
threads_search();
}
else if (!strcmp(token, "playother"))
{
engineColor = 1 ^ pos->to_move;
}
else if (!strcmp(token, "white"))
{
pos->to_move = C_WHITE;
engineColor = C_BLACK;
}
else if (!strcmp(token, "black"))
{
pos->to_move = C_BLACK;
engineColor = C_WHITE;
}
else if (!strcmp(token, "sd"))
{
char* d = arg_next();
if (d)
TC.l_depth = atoi(d);
}
else if (!strcmp(token, "ping"))
{
char* a = arg_rest();
if (a)
send_line("pong %s", a);
else
send_line("pong");
}
else if (!strcmp(token, "edit"))
{
send_line("Error (command not implemented): %s", token);
}
else if (!strcmp(token, "undo"))
{
if (!position_unmove(pos))
send_line("Error (command not legal now): %s", token);
}
else if (!strcmp(token, "remove"))
{
if (!position_unmove(pos) || !position_unmove(pos))
send_line("Error (command not legal now): %s", token);
}
else if (!strcmp(token, "setboard"))
{
char* b = arg_rest();
if (!b)
send_line("Error (missing argument): %s", token);
else
position_set(pos, b);
}
else if (!strcmp(token, "post"))
{
ModePost = 1;
}
else if (!strcmp(token, "nopost"))
{
ModePost = 1;
}
else if (!strcmp(token, "option"))
{
char* o = arg_next_sep('=');
char* v = arg_next();
if (!o)
log_line("missing option");
else if (!strcmp(o, "Thinking Time"))
{
if (v)
TC.l_time = atoi(v);
}
else if (!strcmp(o, "Search Depth"))
{
if (v)
TC.l_depth = atoi(v);
}
else
log_line("unknown option: %s", o);
}
else
{
if (!strcmp(token, "usermove"))
token = arg_next();
threads_search_stop();
move_t move = parse_move(pos, token);
if (!move)
{
send_line("Illegal move: %s", token);
}
else
{
position_move(pos, move);
position_print(pos, C_WHITE);
if (ModeAnalyze || engineColor == pos->to_move)
threads_search();
}
}
}
threads_exit();
position_destroy(pos);
}
