src/rcfile.c

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