src/rcfile.c

   1 /* vim:tw=78:ts=8:sw=4:set ft=c:  */
   2 /*
   3     Copyright (C) 2002-2013 Ben Kibbey <bjk@luxsci.net>
   4
   5     This program is free software; you can redistribute it and/or modify
   6     it under the terms of the GNU General Public License as published by
   7     the Free Software Foundation; either version 2 of the License, or
   8     (at your option) any later version.
   9
  10     This program is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13     GNU General Public License for more details.
  14
  15     You should have received a copy of the GNU General Public License
  16     along with this program; if not, write to the Free Software
  17     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18 */
  19 #ifdef HAVE_CONFIG_H
  20 #include <config.h>
  21 #endif
  22
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26 #include <ctype.h>
  27 #include <sys/types.h>
  28 #include <sys/stat.h>
  29 #include <errno.h>
  30 #include <err.h>
  31
  32 #ifdef HAVE_STRINGS_H
  33 #include <strings.h>
  34 #endif
  35
  36 #include "common.h"
  37 #include "conf.h"
  38 #include "misc.h"
  39 #include "colors.h"
  40 #include "keys.h"
  41 #include "rcfile.h"
  42 #include "common.h"
  43
  44 static int attributes(const char *filename, int line, char *str)
  45 {
  46     char *tmp;
  47     int attrs = 0;
  48
  49     while ((tmp = strsep(&str, ",")) != NULL) {
  50         if (strcasecmp(tmp, "BOLD") == 0)
  51             attrs |= A_BOLD;
  52         else if (strcasecmp(tmp, "REVERSE") == 0)
  53             attrs |= A_REVERSE;
  54         else if (strcasecmp(tmp, "NONE") == 0)
  55             attrs |= A_NORMAL;
  56         else if (strcasecmp(tmp, "DIM") == 0)
  57             attrs |= A_DIM;
  58         else if (strcasecmp(tmp, "STANDOUT") == 0)
  59             attrs |= A_STANDOUT;
  60         else if (strcasecmp(tmp, "UNDERLINE") == 0)
  61             attrs |= A_UNDERLINE;
  62         else if (strcasecmp(tmp, "BLINK") == 0)
  63             attrs |= A_BLINK;
  64         else if (strcasecmp(tmp, "INVISIBLE") == 0)
  65             attrs |= A_INVIS;
  66         else
  67           errx(EXIT_FAILURE, _("%s(%i): invalid attribute \"%s\""), filename,
  68                line, tmp);
  69     }
  70
  71     return attrs;
  72 }
  73
  74 static short color_name(const char *filename, int line, const char *color)
  75 {
  76     if (strcasecmp(color, "BLACK") == 0)
  77         return COLOR_BLACK;
  78     else if (strcasecmp(color, "WHITE") == 0)
  79         return COLOR_WHITE;
  80     else if (strcasecmp(color, "GREEN") == 0)
  81         return COLOR_GREEN;
  82     else if (strcasecmp(color, "YELLOW") == 0)
  83         return COLOR_YELLOW;
  84     else if (strcasecmp(color, "MAGENTA") == 0)
  85         return COLOR_MAGENTA;
  86     else if (strcasecmp(color, "BLUE") == 0)
  87         return COLOR_BLUE;
  88     else if (strcasecmp(color, "RED") == 0)
  89         return COLOR_RED;
  90     else if (strcasecmp(color, "CYAN") == 0)
  91         return COLOR_CYAN;
  92     else if (strcasecmp(color, "-") == 0)
  93         ;
  94     else
  95         errx(EXIT_FAILURE, _("%s(%i): invalid color \"%s\""), filename, line,
  96              color);
  97
  98     return -1;
  99 }
 100
 101 static void parse_color(const char *filename, int line, const char *str,
 102         struct color_s *c)
 103 {
 104     char fg[16], bg[16], attr[64], nattr[64];
 105     int n;
 106
 107     if ((n = sscanf(str, "%[a-zA-Z-] %[a-zA-Z-] %[a-zA-Z,-] %[a-zA-Z,-]", fg, bg,
 108                     attr, nattr)) < 2)
 109         errx(EXIT_FAILURE, _ ("%s(%i): parse error"), filename, line);
 110
 111     if ((n = color_name(filename, line, fg)) >= 0)
 112         c->fg = n;
 113
 114     if ((n = color_name(filename, line, bg)) >= 0)
 115         c->bg = n;
 116
 117     c->attrs = c->nattrs = 0;
 118
 119     if (n > 2)
 120         c->attrs = attributes(filename, line, attr);
 121
 122     if (n > 3)
 123         c->nattrs = attributes(filename, line, nattr);
 124 }
 125
 126 static int on_or_off(const char *filename, int lines, const char *str)
 127 {
 128     if (strcasecmp(str, "on") == 0 || strcasecmp(str, "1") == 0 ||
 129             strcasecmp(str, "yes") == 0 || strcasecmp(str, "true") == 0)
 130         return 1;
 131
 132     if (strcasecmp(str, "off") == 0 || strcasecmp(str, "0") == 0 ||
 133             strcasecmp(str, "no") == 0 || strcasecmp(str, "false") == 0)
 134         return 0;
 135
 136     errx(EXIT_FAILURE, _("%s(%i): invalid value \"%s\""), filename, lines, str);
 137 }
 138
 139 void copydatafile(const char *dst, const char *src)
 140 {
 141     FILE *fp, *ofp;
 142     char buf[LINE_MAX], *s;
 143
 144     snprintf(buf, sizeof(buf), "%s/%s", DATA_PATH, src);
 145
 146     if ((fp = fopen(buf, "r")) == NULL) {
 147         if (errno != ENOENT)
 148             warn("%s", buf);
 149         return;
 150     }
 151
 152     if ((ofp = fopen(dst, "w+")) == NULL) {
 153         fclose(fp);
 154         warn("%s", dst);
 155         return;
 156     }
 157
 158     while ((s = fgets(buf, sizeof(buf), fp)) != NULL)
 159         fprintf(ofp, "%s", s);
 160
 161     fclose(fp);
 162     fclose(ofp);
 163 }
 164
 165 static char *fancy_key_name(wint_t c)
 166 {
 167     static char buf[64] = {0};
 168     char *p;
 169
 170     strncpy(buf, keyname(c) ? keyname (c) : key_name (c), sizeof(buf)-1);
 171     p = buf;
 172
 173     if (*p == '^' && *(p + 1) == '[')
 174         return _("Escape");
 175
 176     if (*p == '^' && *(p + 1) == 'J')
 177         return _ ("Enter");
 178
 179     if (strncasecmp(p, "KEY_", 4) == 0) {
 180         for (p = buf; *p; p++)
 181             *p = tolower(*p);
 182
 183         p = buf;
 184         p += 4;
 185
 186         if (*p == 'f') {
 187             char *t = buf + 4;
 188
 189             p += 2;
 190
 191             while (isdigit(*p))
 192                 *++t = *p++;
 193
 194             *++t = 0;
 195             p = buf + 4;
 196         }
 197         else if (strcmp(p, "ppage") == 0)
 198             return _("PgUp");
 199         else if (strcmp(p, "npage") == 0)
 200             return _ ("PgDown");
 201
 202         *p = toupper(*p);
 203         return p;
 204     }
 205
 206     if (*p == ' ')
 207         return _("Space");
 208
 209     return p;
 210 }
 211
 212 void add_key_binding(struct key_s ***dst, key_func *func, wint_t c,
 213                      char *desc, int repeat)
 214 {
 215     int i = 0;
 216     struct key_s **k = *dst;
 217
 218     if (k)
 219         for (i = 0; k[i]; i++);
 220
 221     k = Realloc(k, (i + 2) * sizeof(struct key_s *));
 222     k[i] = Calloc(1, sizeof(struct key_s));
 223     k[i]->f = func;
 224     k[i]->c = c;
 225     k[i]->r = repeat;
 226     k[i]->key = str_to_wchar (fancy_key_name(c));
 227
 228     if (desc)
 229         k[i]->d = str_to_wchar(desc);
 230
 231     i++;
 232     k[i] = NULL;
 233     *dst = k;
 234 }
 235
 236 void set_default_keys()
 237 {
 238     add_key_binding(&history_keys, do_history_jump_next, KEY_UP, _("history jump next"), 1);
 239     add_key_binding(&history_keys, do_history_jump_prev, KEY_DOWN, _("history jump previous"), 1);
 240     add_key_binding(&history_keys, do_history_next, KEY_RIGHT, _("next move"), 1);
 241     add_key_binding(&history_keys, do_history_prev, KEY_LEFT, _("previous move"), 1);
 242     add_key_binding(&history_keys, do_history_half_move_toggle, ' ', _("toggle half move (ply) stepping"), 0);
 243     add_key_binding(&history_keys, do_history_rotate_board, 'r', _("rotate board"), 0);
 244     add_key_binding(&history_keys, do_history_jump, 'j', _("jump to move number"), 1);
 245     add_key_binding(&history_keys, do_history_find_new, '/', _("new move text expression"), 0);
 246     add_key_binding(&history_keys, do_history_find_next, ']', _("find next move text expression"), 1);
 247     add_key_binding(&history_keys, do_history_find_prev, '[', _("find previous move text expression"), 1);
 248     add_key_binding(&history_keys, do_history_annotate, CTRL_KEY('a'), _("annotate the previous move"), 0);
 249     add_key_binding(&history_keys, do_history_rav_next, '+', _("next variation of the previous move"), 0);
 250     add_key_binding(&history_keys, do_history_rav_prev, '-', _("previous variation of the previous move"), 0);
 251     add_key_binding(&history_keys, do_history_menu, 'M', _("move history tree"), 0);
 252     add_key_binding(&history_keys, do_history_help, KEY_F(1), _("more help"), 0);
 253     add_key_binding(&history_keys, do_history_help, CTRL_KEY('g'), NULL, 0);
 254     add_key_binding(&history_keys, do_history_toggle, 'h', _("exit history mode"), 0);
 255
 256     add_key_binding(&edit_keys, do_edit_select, ' ', _("select piece for movement"), 0);
 257     add_key_binding(&edit_keys, do_edit_commit, '\n', _("commit selected piece"), 0);
 258     add_key_binding(&edit_keys, do_edit_cancel_selected, KEY_ESCAPE, _("cancel selected piece"), 0);
 259     add_key_binding(&edit_keys, do_edit_delete, 'd', _("remove the piece under the cursor"), 0);
 260     add_key_binding(&edit_keys, do_edit_insert, 'i', _("insert piece"), 0);
 261     add_key_binding(&edit_keys, do_edit_toggle_castle, 'c', _("toggle castling availability"), 0);
 262     add_key_binding(&edit_keys, do_edit_enpassant, 'p', _("toggle enpassant square"), 0);
 263     add_key_binding(&edit_keys, do_edit_switch_turn, 'w', _("toggle turn"), 0);
 264     add_key_binding(&edit_keys, do_edit_help, KEY_F(1), _("more help"), 0);
 265     add_key_binding(&history_keys, do_edit_help, CTRL_KEY('g'), NULL, 0);
 266     add_key_binding(&edit_keys, do_edit_exit, 'e', _("exit edit mode"), 0);
 267
 268     add_key_binding(&play_keys, do_play_select, ' ', _("select piece for movement"), 0);
 269     add_key_binding(&play_keys, do_play_commit, '\n', _("commit selected piece"), 0);
 270     add_key_binding(&play_keys, do_play_cancel_selected, KEY_ESCAPE, _("cancel selected piece"), 0);
 271     add_key_binding(&play_keys, do_play_set_clock, 'C', _("set clock"), 0);
 272 //    add_key_binding(&play_keys, do_play_switch_turn, 'w', _("switch turn"), 0);
 273     add_key_binding(&play_keys, do_play_undo, 'u', _("undo previous move"), 1);
 274     add_key_binding(&play_keys, do_play_go, 'g', _("force the chess engine to make the next move"), 0);
 275     add_key_binding(&play_keys, do_play_send_command, '|', _("send a command to the chess engine"), 0);
 276     add_key_binding(&play_keys, do_play_toggle_eh_mode, 'w', _("toggle engine/human play"), 0);
 277     add_key_binding(&play_keys, do_play_toggle_engine, 'E', _("toggle engine/engine play"), 0);
 278     add_key_binding(&play_keys, do_play_toggle_human, 'H', _("toggle human/human play"), 0);
 279     add_key_binding(&play_keys, do_play_toggle_pause, 'p', _("toggle pausing of this game"), 0);
 280     add_key_binding(&play_keys, do_play_history_mode, 'h', _("enter history mode"), 0);
 281     add_key_binding(&play_keys, do_play_edit_mode, 'e', _("enter edit mode"), 0);
 282     add_key_binding(&play_keys, do_play_help, KEY_F(1), _("more help"), 0);
 283     add_key_binding(&play_keys, do_play_help, CTRL_KEY('g'), NULL, 0);
 284
 285     add_key_binding(&global_keys, do_global_tag_edit, CTRL_KEY('t'), _("edit roster tags"), 0);
 286     add_key_binding(&global_keys, do_global_tag_view, 't', _("view roster tags"), 0);
 287     add_key_binding(&global_keys, do_global_find_new, '?', _("new find game expression"), 0);
 288     add_key_binding(&global_keys, do_global_find_next, '}', _("find next game"), 1);
 289     add_key_binding(&global_keys, do_global_find_prev, '{', _("find previous game"), 1);
 290     add_key_binding(&global_keys, do_global_new_game, CTRL_KEY('n'), _("new game or round"), 0);
 291     add_key_binding(&global_keys, do_global_new_all, CTRL_KEY('k'), _("new game from scratch"), 0);
 292     add_key_binding(&global_keys, do_global_copy_game, CTRL_KEY('i'), _("copy current game"), 0);
 293     add_key_binding(&global_keys, do_global_next_game, '>', _("next game"), 1);
 294     add_key_binding(&global_keys, do_global_prev_game, '<', _("previous game"), 1);
 295     add_key_binding(&global_keys, do_global_game_jump, 'J', _("jump to game"), 1);
 296     add_key_binding(&global_keys, do_global_toggle_delete, 'X', _("toggle delete flag"), 1);
 297     add_key_binding(&global_keys, do_global_delete_game, CTRL_KEY('X'), _("delete the current or flagged games"), 0);
 298     add_key_binding(&global_keys, do_global_resume_game, CTRL_KEY('r'), _("load a PGN file"), 0);
 299     add_key_binding(&global_keys, do_global_save_game, 's', _("save game"), 0);
 300     add_key_binding(&global_keys, do_global_toggle_board_details, CTRL_KEY('d'), _("toggle board details"), 0);
 301     add_key_binding(&global_keys, do_global_toggle_strict_castling, CTRL_KEY('p'), _("toggle strict castling"), 0);
 302     add_key_binding(&global_keys, do_global_toggle_engine_window, 'W', _("toggle chess engine IO window"), 0);
 303 #ifdef WITH_LIBPERL
 304     add_key_binding(&global_keys, do_global_perl, CTRL_KEY('O'), _("Call PERL subroutine"), 0);
 305 #endif
 306     add_key_binding(&global_keys, do_global_about, KEY_F(10), _("version information"), 0);
 307     add_key_binding(&global_keys, do_global_redraw, CTRL_KEY('L'), _("redraw the screen"), 0);
 308     add_key_binding(&global_keys, do_global_quit, 'Q', _("quit"), 0);
 309 }
 310
 311 void set_config_defaults()
 312 {
 313     struct stat st;
 314
 315     config.pattern = strdup("*.[Pp][Gg][Nn]*");
 316     config.engine_cmd = strdup("gnuchess --xboard");
 317     config.engine_protocol = 1;
 318     config.jumpcount = 5;
 319     config.linegraphics = 1;
 320     config.saveprompt = 1;
 321     config.deleteprompt = 1;
 322     config.validmoves = 1;
 323     config.details = 1;
 324     config.showattacks = 1;
 325     config.coordsyleft = TRUE;
 326     config.fmpolyglot = FALSE;
 327     config.boardleft = TRUE;
 328     config.exitdialogbox = TRUE;
 329     config.enginecmdblacktag = TRUE;
 330
 331     set_default_colors();
 332
 333     if (stat(config.nagfile, &st) == -1) {
 334         if (errno == ENOENT)
 335             copydatafile(config.nagfile, "nag.data");
 336         else
 337             warn("%s", config.nagfile);
 338     }
 339
 340     if (stat(config.ccfile, &st) == -1) {
 341         if (errno == ENOENT)
 342             copydatafile(config.ccfile, "cc.data");
 343         else
 344             warn("%s", config.ccfile);
 345     }
 346 }
 347
 348 static void update_key(struct key_s **dst, struct custom_key_s config_key,
 349                        wint_t c, char *desc)
 350 {
 351     int i;
 352
 353     for (i = 0; dst[i]; i++) {
 354         if (dst[i]->f == config_key.func) {
 355             dst[i]->c = c;
 356
 357             if (dst[i]->key)
 358                 free(dst[i]->key);
 359
 360             dst[i]->key = str_to_wchar(fancy_key_name(c));
 361             if (desc) {
 362               free(dst[i]->d);
 363               dst[i]->d = str_to_wchar(desc);
 364             }
 365
 366             goto done;
 367         }
 368     }
 369
 370     add_key_binding(&dst, config_key.func, c,
 371                     (desc) ? desc : _("no description"), config_key.r);
 372
 373 done:
 374     return;
 375 }
 376
 377 static struct known_key_s
 378 {
 379     wint_t c;
 380     char *name;
 381 } known_keys[] = {
 382     { KEY_UP, "up" },
 383     { KEY_DOWN, "down" },
 384     { KEY_LEFT, "left" },
 385     { KEY_RIGHT, "right" },
 386     { KEY_HOME, "home" },
 387     { KEY_END, "end" },
 388     { KEY_DC, "delete" },
 389     { KEY_PPAGE, "pgup" },
 390     { KEY_NPAGE, "pgdn" },
 391     { KEY_IC, "insert" },
 392     { ' ', "space" },
 393     { KEY_ESCAPE, "escape" },
 394     { '\n', "enter" },
 395     { 0, NULL }
 396 };
 397
 398 static wint_t parse_key(const char *filename, int lines, wchar_t **key)
 399 {
 400     wchar_t *p = *key;
 401     wchar_t *orig = *key;
 402     wint_t c = 0;
 403
 404     if (!key || !wcslen (*key))
 405         return 0;
 406
 407     if (*p == '\"') {
 408         if (orig[wcslen(orig) - 1] != '\"')
 409             errx(EXIT_FAILURE, _("%s(%i): unbalanced quotes"), filename, lines);
 410
 411         p++;
 412         orig[wcslen(orig) - 1] = 0;
 413     }
 414
 415     if (*p == '<') {
 416         int i;
 417
 418         p++;
 419
 420         for (i = 0; known_keys[i].name; i++) {
 421             wchar_t *wc = str_to_wchar (known_keys[i].name);
 422
 423             if (!wcsncasecmp (p, wc, wcslen (wc))) {
 424                 c = known_keys[i].c;
 425                 p += strlen (known_keys[i].name);
 426                 free (wc);
 427                 break;
 428             }
 429
 430             free (wc);
 431         }
 432
 433         if (!c) {
 434             if (*p == '^') {
 435                 p++;
 436                 c = CTRL_KEY(*p++);
 437             }
 438             else if (*p == 'F' || *p == 'f') {
 439                 char  *str = wchar_to_str (++p);
 440
 441                 c = KEY_F(atoi(str));
 442                 p += integer_len(atoi(str));
 443                 free (str);
 444             }
 445         }
 446
 447         if (!c)
 448             c = *p++;
 449
 450         if (*p++ != '>')
 451             errx(EXIT_FAILURE, _("%s(%i): parse error \"%ls\""), filename,
 452                  lines, orig);
 453     }
 454     else if (*p == '\\') {
 455             p++;
 456             c = *p++;
 457     }
 458     else
 459         c = *p++;
 460
 461     orig += wcslen(orig) - wcslen(p);
 462     *key = orig;
 463     return c;
 464 }
 465
 466 static void parse_key_binding(const char *filename, int lines, char *val)
 467 {
 468     char mode[64], func[64];
 469     wchar_t desc[64] = {0};
 470     wchar_t key[64];
 471     int n;
 472     int m = 0;
 473     wint_t c = 0;
 474     int f;
 475     int i;
 476     wchar_t *p;
 477     char *str;
 478
 479     n = sscanf(val, "%s %ls %s %63lc", mode, key, func, desc);
 480
 481     if (n < 3)
 482         errx(EXIT_FAILURE, _ ("%s(%i): too few arguments"), filename, lines);
 483
 484     if (strcasecmp(mode, "history") == 0)
 485         m = MODE_HISTORY;
 486     else if (strcasecmp(mode, "play") == 0)
 487         m = MODE_PLAY;
 488     else if (strcasecmp(mode, "edit") == 0)
 489         m = MODE_EDIT;
 490     else
 491         errx(EXIT_FAILURE, _ ("%s(%i): invalid game mode \"%s\""), filename,
 492              lines, mode);
 493
 494     p = key;
 495     c = parse_key(filename, lines, &p);
 496
 497     if (m != -1) {
 498         for (i = 0; global_keys[i]; i++) {
 499             if (global_keys[i]->c == c)
 500                 errx(EXIT_FAILURE,
 501                      _("%s(%i): key \"%ls\" conflicts with a global key"),
 502                      filename, lines, key);
 503         }
 504     }
 505
 506     for (f = -2, i = 0; config_keys[i].name; i++) {
 507         if (strcmp(config_keys[i].name, func) == 0 &&
 508                 config_keys[i].mode == m) {
 509             f = i;
 510             break;
 511         }
 512     }
 513
 514     if (f == -2)
 515         errx(EXIT_FAILURE, _("%s(%i): invalid command \"%s\""), filename,
 516              lines, func);
 517
 518     str = wchar_to_str (desc);
 519
 520     switch (m) {
 521         case MODE_PLAY:
 522             update_key(play_keys, config_keys[f], c, (n > 3) ? str : NULL);
 523             break;
 524         case MODE_HISTORY:
 525             update_key(history_keys, config_keys[f], c, (n > 3) ? str : NULL);
 526             break;
 527         case MODE_EDIT:
 528             update_key(edit_keys, config_keys[f], c, (n > 3) ? str : NULL);
 529             break;
 530         default:
 531             update_key(global_keys, config_keys[f], c, (n > 3) ? str : NULL);
 532             break;
 533     }
 534
 535     free (str);
 536 }
 537
 538 static void parse_macro(const char *filename, int lines, char *val)
 539 {
 540     char mode[16];
 541     wchar_t keys[2048] = {0}, key[8];
 542     int n;
 543     int m;
 544     wint_t c;
 545     int i = 0;
 546     wchar_t *p;
 547
 548     n = sscanf(val, "%s %ls %2047lc", mode, key, keys);
 549
 550     if (n != 3)
 551          errx(EXIT_FAILURE, _("%s(%i): too few arguments"), filename, lines);
 552
 553     if (strcasecmp(mode, "history") == 0)
 554         m = MODE_HISTORY;
 555     else if (strcasecmp(mode, "play") == 0)
 556         m = MODE_PLAY;
 557     else if (strcasecmp(mode, "edit") == 0)
 558         m = MODE_EDIT;
 559     else if (strcasecmp(mode, "any") == 0)
 560         m = -1;
 561     else
 562         errx(EXIT_FAILURE, _ ("%s(%i): invalid game mode \"%s\""), filename,
 563              lines, mode);
 564
 565     p = key;
 566     c = parse_key(filename, lines, &p);
 567
 568     if (macros)
 569         for (i = 0; macros[i]; i++);
 570
 571     macros = Realloc(macros, (i + 2) * sizeof(struct macro_s));
 572     macros[i] = Calloc(1, sizeof(struct macro_s));
 573     macros[i]->c = c;
 574     macros[i]->mode = m;
 575     p = keys;
 576
 577     while ((c = parse_key(filename, lines, &p)) != 0) {
 578         macros[i]->keys = Realloc(macros[i]->keys, (macros[i]->total + 2) *
 579                 sizeof(wint_t));
 580         macros[i]->keys[macros[i]->total++] = c;
 581     }
 582
 583     macros[++i] = NULL;
 584 }
 585
 586 void parse_rcfile(const char *filename)
 587 {
 588     FILE *fp;
 589     char *line, buf[LINE_MAX];
 590     int lines = 0;
 591     char *altengine = NULL;
 592     int init = 0;
 593     int k = 0;
 594     int c;
 595
 596     if ((fp = fopen(filename, "r")) == NULL)
 597         err(EXIT_FAILURE, "%s", filename);
 598
 599     while ((line = fgets(buf, sizeof(buf), fp)) != NULL) {
 600         int n;
 601         char var[30] = {0}, val[LINE_MAX - sizeof(var) - 1] = {0};
 602         char token[MAX_PGN_LINE_LEN + 1] = {0};
 603         char value[MAX_PGN_LINE_LEN + 1] = {0};
 604         char *p;
 605
 606         lines++;
 607         line = trim(line);
 608
 609         if (!line[0] || line[0] == '#')
 610             continue;
 611
 612         if ((n = sscanf(line, "%s %[^\n]", var, val)) != 2)
 613           errx(EXIT_FAILURE, _("%s(%i): parse error %i"), filename, lines,n);
 614
 615         p = strdup(trim(val));
 616         strncpy(val, p, sizeof(val)-1);
 617         free(p);
 618         p = strdup(trim(var));
 619         strncpy(var, p, sizeof(var)-1);
 620         free(p);
 621
 622         if (strcmp(var, "jump_count") == 0) {
 623             if (!isinteger(val))
 624               errx(EXIT_FAILURE, _("%s(%i): value is not an integer"), filename,
 625                    lines);
 626
 627             config.jumpcount = atoi(val);
 628         }
 629         else if (strcmp(var, "engine_init") == 0) {
 630             config.einit = Realloc(config.einit, (init + 2) * sizeof(wchar_t *));
 631             config.einit[init++] = str_to_wchar (val);
 632             config.einit[init] = NULL;
 633         }
 634         else if (strcmp(var, "pattern") == 0) {
 635             free(config.pattern);
 636             config.pattern = strdup(val);
 637         }
 638         else if (strcmp(var, "mpl") == 0) {
 639             if (!isinteger(val))
 640                 errx(EXIT_FAILURE, _("%s(%i): value is not an integer"),
 641                      filename, lines);
 642             pgn_config_set(PGN_MPL, atoi(val));
 643         }
 644         else if (strcmp(var, "stop_on_error") == 0)
 645             pgn_config_set(PGN_STOP_ON_ERROR, on_or_off(filename, lines, val));
 646         else if (strcmp(var, "tag") == 0) {
 647             if ((n = sscanf(val, "%s %s ", token, value)) < 1 || n > 2)
 648               errx(EXIT_FAILURE, _ ("%s(%i): invalid value \"%s\""), filename,
 649                         lines, val);
 650
 651             if (n == 1)
 652                 value[0] = 0;
 653             else {
 654                 p = val + strlen(token);
 655                 strncpy(value, p, sizeof(value)-1);
 656             }
 657
 658             for (n = 0; n < strlen(token); n++) {
 659                 if (!isalnum(token[n]) && token[n] != '_')
 660                     errx(EXIT_FAILURE,
 661                          _ ("%s(%i): token names must match 0-9A-Za-z_."),
 662                          filename, lines);
 663             }
 664
 665             token[0] = toupper(token[0]);
 666             pgn_tag_add(&config.tag, token, value);
 667         }
 668         else if (strcmp(var, "save_directory") == 0)
 669             config.savedirectory = strdup(val);
 670         else if (strcmp(var, "line_graphics") == 0)
 671             config.linegraphics = on_or_off(filename, lines, val);
 672         else if (strcmp(var, "save_prompt") == 0)
 673             config.saveprompt = on_or_off(filename, lines, val);
 674         else if (strcmp(var, "delete_prompt") == 0)
 675             config.deleteprompt = on_or_off(filename, lines, val);
 676         else if (strcmp(var, "valid_moves") == 0)
 677             config.validmoves = on_or_off(filename, lines, val);
 678         else if (strcmp(var, "board_details") == 0)
 679             config.details = on_or_off(filename, lines, val);
 680         else if (strcmp(var, "show_attacks") == 0)
 681             config.showattacks = on_or_off(filename, lines, val);
 682         else if (strcmp(var, "coords_y_left") == 0 )
 683             config.coordsyleft = on_or_off(filename, lines, val);
 684         else if (strcmp(var, "fm_polyglot") == 0 )
 685             config.fmpolyglot = on_or_off(filename, lines, val);
 686         else if (strcmp(var, "board_left") == 0 )
 687             config.boardleft = on_or_off(filename, lines, val);
 688         else if (strcmp(var, "exit_dialog_box") == 0 )
 689             config.exitdialogbox = on_or_off(filename, lines, val);
 690         else if (strcmp(var, "engine_cmd_blacktag") == 0 )
 691             config.enginecmdblacktag = on_or_off(filename, lines, val);
 692         else if (strcmp(var, "strict_castling") == 0)
 693             pgn_config_set(PGN_STRICT_CASTLING, on_or_off(filename, lines, val));
 694         else if (strcmp(var, "engine_cmd") == 0)
 695             altengine = strdup(val);
 696         else if (strcmp(var, "engine_protocol") == 0) {
 697             if (!isinteger(val))
 698               errx(EXIT_FAILURE, _ ("%s(%i): value is not an integer"),
 699                    filename, lines);
 700
 701             config.engine_protocol = atoi(val);
 702
 703             if (config.engine_protocol != 1 && config.engine_protocol != 2)
 704               errx(EXIT_FAILURE, _ ("%s(%i): invalid value"), filename, lines);
 705         }
 706         else if (strcmp(var, "utf8_pieces") == 0)
 707             config.utf8_pieces = on_or_off (filename, lines, val);
 708         else if (strcmp(var, "color_board_window") == 0)
 709             parse_color(filename, lines, val, &config.color[CONF_BDWINDOW]);
 710         else if (strcmp(var, "color_board_selected") == 0)
 711             parse_color(filename, lines, val, &config.color[CONF_BSELECTED]);
 712         else if (strcmp(var, "color_board_white_moves") == 0)
 713             parse_color(filename, lines, val, &config.color[CONF_BMOVESW]);
 714         else if (strcmp(var, "color_board_black_moves") == 0)
 715             parse_color(filename, lines, val, &config.color[CONF_BMOVESB]);
 716         else if (strcmp(var, "color_board_count") == 0)
 717             parse_color(filename, lines, val, &config.color[CONF_BCOUNT]);
 718         else if (strcmp(var, "color_board_cursor") == 0)
 719             parse_color(filename, lines, val, &config.color[CONF_BCURSOR]);
 720         else if (strcmp(var, "color_board_black") == 0)
 721             parse_color(filename, lines, val, &config.color[CONF_BBLACK]);
 722         else if (strcmp(var, "color_board_white") == 0)
 723             parse_color(filename, lines, val, &config.color[CONF_BWHITE]);
 724         else if (strcmp(var, "color_board_graphics") == 0)
 725             parse_color(filename, lines, val, &config.color[CONF_BGRAPHICS]);
 726         else if (strcmp(var, "color_board_coords") == 0)
 727             parse_color(filename, lines, val, &config.color[CONF_BCOORDS]);
 728         else if (strcmp(var, "color_board_castling") == 0)
 729             parse_color(filename, lines, val, &config.color[CONF_BCASTLING]);
 730         else if (strcmp(var, "color_board_enpassant") == 0)
 731             parse_color(filename, lines, val, &config.color[CONF_BENPASSANT]);
 732         else if (strcmp(var, "color_board_attack") == 0)
 733           parse_color(filename, lines, val, &config.color[CONF_BATTACK]);
 734         else if (strcmp(var, "color_board_prev_move") == 0)
 735           parse_color(filename, lines, val, &config.color[CONF_BPREVMOVE]);
 736         else if (strcmp(var, "color_status_window") == 0)
 737             parse_color(filename, lines, val, &config.color[CONF_SWINDOW]);
 738         else if (strcmp(var, "color_status_title") == 0)
 739             parse_color(filename, lines, val, &config.color[CONF_STITLE]);
 740         else if (strcmp(var, "color_status_border") == 0)
 741             parse_color(filename, lines, val, &config.color[CONF_SBORDER]);
 742         else if (strcmp(var, "color_status_notify") == 0)
 743             parse_color(filename, lines, val, &config.color[CONF_SNOTIFY]);
 744         else if (strcmp(var, "color_status_engine") == 0)
 745             parse_color(filename, lines, val, &config.color[CONF_SENGINE]);
 746         else if (strcmp(var, "color_tag_window") == 0)
 747             parse_color(filename, lines, val, &config.color[CONF_TWINDOW]);
 748         else if (strcmp(var, "color_tag_title") == 0)
 749             parse_color(filename, lines, val, &config.color[CONF_TTITLE]);
 750         else if (strcmp(var, "color_tag_border") == 0)
 751             parse_color(filename, lines, val, &config.color[CONF_TBORDER]);
 752         else if (strcmp(var, "color_history_window") == 0)
 753             parse_color(filename, lines, val, &config.color[CONF_HWINDOW]);
 754         else if (strcmp(var, "color_history_title") == 0)
 755             parse_color(filename, lines, val, &config.color[CONF_HTITLE]);
 756         else if (strcmp(var, "color_history_border") == 0)
 757             parse_color(filename, lines, val, &config.color[CONF_HBORDER]);
 758         else if (strcmp(var, "color_message_window") == 0)
 759             parse_color(filename, lines, val, &config.color[CONF_MWINDOW]);
 760         else if (strcmp(var, "color_message_title") == 0)
 761             parse_color(filename, lines, val, &config.color[CONF_MTITLE]);
 762         else if (strcmp(var, "color_message_border") == 0)
 763             parse_color(filename, lines, val, &config.color[CONF_MBORDER]);
 764         else if (strcmp(var, "color_message_prompt") == 0)
 765             parse_color(filename, lines, val, &config.color[CONF_MPROMPT]);
 766         else if (strcmp(var, "color_input_window") == 0)
 767             parse_color(filename, lines, val, &config.color[CONF_IWINDOW]);
 768         else if (strcmp(var, "color_input_title") == 0)
 769             parse_color(filename, lines, val, &config.color[CONF_ITITLE]);
 770         else if (strcmp(var, "color_input_border") == 0)
 771             parse_color(filename, lines, val, &config.color[CONF_IBORDER]);
 772         else if (strcmp(var, "color_input_prompt") == 0)
 773             parse_color(filename, lines, val, &config.color[CONF_IPROMPT]);
 774         else if (strcmp(var, "color_menu") == 0)
 775             parse_color(filename, lines, val, &config.color[CONF_MENU]);
 776         else if (strcmp(var, "color_menu_selected") == 0)
 777             parse_color(filename, lines, val, &config.color[CONF_MENUS]);
 778         else if (strcmp(var, "color_menu_highlight") == 0)
 779             parse_color(filename, lines, val, &config.color[CONF_MENUH]);
 780         else if (strcmp(var, "color_menu_graphics") == 0)
 781             parse_color(filename, lines, val,
 782                     &config.color[CONF_HISTORY_MENU_LG]);
 783         else if (strcmp(var, "bind") == 0)
 784             parse_key_binding(filename, lines, val);
 785         else if (strcmp(var, "macro") == 0)
 786             parse_macro(filename, lines, val);
 787         else if (strcmp(var, "cbind") == 0) {
 788             config.keys = Realloc(config.keys, (k + 2) *
 789                     sizeof(struct config_key_s *));
 790             config.keys[k] = Calloc(1, sizeof(struct config_key_s));
 791             p = val;
 792             n = 0;
 793
 794             while (*p && !isspace(*p))
 795                 p++, n++;
 796
 797             c = *p;
 798             *p = 0;
 799             p -= n;
 800
 801             if (strcasecmp(p, "none") == 0)
 802                 config.keys[k]->type = KEY_DEFAULT;
 803             else if (strcasecmp(p, "repeat") == 0)
 804                 config.keys[k]->type = KEY_REPEAT;
 805             else if (strcasecmp(p, "set") == 0)
 806                 config.keys[k]->type = KEY_SET;
 807             else
 808               errx(EXIT_FAILURE, _ ("%s(%i): invalid value \"%s\""), filename,
 809                         lines, p);
 810
 811             p = val + n;
 812             *p = c;
 813
 814             while (*p && isspace(*p))
 815                 p++;
 816
 817             config.keys[k]->c = *p++;
 818
 819             while (isspace(*p))
 820                 p++;
 821
 822             config.keys[k++]->str = str_to_wchar (p);
 823             config.keys[k] = NULL;
 824         }
 825         else
 826           errx(EXIT_FAILURE, _ ("%s(%i): invalid parameter \"%s\""), filename,
 827                lines, var);
 828     }
 829
 830     fclose(fp);
 831
 832     if (altengine) {
 833         free(config.engine_cmd);
 834         config.engine_cmd = NULL;
 835         config.engine_cmd = altengine;
 836     }
 837
 838     if (config.enginecmdblacktag)
 839         pgn_tag_add(&config.tag, "Black", config.engine_cmd);
 840 }