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 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_toggle, 'h',
 282                    _("exit history mode"), 0);
 283
 284   add_key_binding (&edit_keys, do_edit_select, ' ',
 285                    _("select piece for movement"), 0);
 286   add_key_binding (&edit_keys, do_edit_commit, '\n',
 287                    _("commit selected piece"), 0);
 288   add_key_binding (&edit_keys, do_edit_cancel_selected, KEY_ESCAPE,
 289                    _("cancel selected piece"), 0);
 290   add_key_binding (&edit_keys, do_edit_delete, 'd',
 291                    _("remove the piece under the cursor"), 0);
 292   add_key_binding (&edit_keys, do_edit_insert, 'i', _("insert piece"), 0);
 293   add_key_binding (&edit_keys, do_edit_toggle_castle, 'c',
 294                    _("toggle castling availability"), 0);
 295   add_key_binding (&edit_keys, do_edit_enpassant, 'p',
 296                    _("toggle enpassant square"), 0);
 297   add_key_binding (&edit_keys, do_edit_switch_turn, 'w', _("toggle turn"), 0);
 298   add_key_binding (&edit_keys, do_edit_exit, 'e', _("exit edit mode"), 0);
 299
 300   add_key_binding (&play_keys, do_play_select, ' ',
 301                    _("select piece for movement"), 0);
 302   add_key_binding (&play_keys, do_play_commit, '\n',
 303                    _("commit selected piece"), 0);
 304   add_key_binding (&play_keys, do_play_cancel_selected, KEY_ESCAPE,
 305                    _("cancel selected piece"), 0);
 306   add_key_binding (&play_keys, do_play_set_clock, 'C', _("set clock"), 0);
 307 //    add_key_binding(&play_keys, do_play_switch_turn, 'w', _("switch turn"), 0);
 308   add_key_binding (&play_keys, do_play_undo, 'u', _("undo previous move"), 1);
 309   add_key_binding (&play_keys, do_play_go, 'g',
 310                    _("force the chess engine to make the next move"), 0);
 311   add_key_binding (&play_keys, do_play_send_command, '|',
 312                    _("send a command to the chess engine"), 0);
 313   add_key_binding (&play_keys, do_play_toggle_eh_mode, 'w',
 314                    _("toggle engine/human play"), 0);
 315   add_key_binding (&play_keys, do_play_toggle_engine, 'E',
 316                    _("toggle engine/engine play"), 0);
 317   add_key_binding (&play_keys, do_play_toggle_human, 'H',
 318                    _("toggle human/human play"), 0);
 319   add_key_binding (&play_keys, do_play_toggle_pause, 'p',
 320                    _("toggle pausing of this game"), 0);
 321   add_key_binding (&play_keys, do_play_history_mode, 'h',
 322                    _("enter history mode"), 0);
 323   add_key_binding (&play_keys, do_play_edit_mode, 'e', _("enter edit mode"),
 324                    0);
 325   add_key_binding (&play_keys, do_play_toggle_strict_castling,
 326                    CTRL_KEY ('p'), _("toggle strict castling"), 0);
 327
 328   add_key_binding (&global_keys, do_global_tag_edit, CTRL_KEY ('t'),
 329                    _("edit roster tags"), 0);
 330   add_key_binding (&global_keys, do_global_tag_view, 't',
 331                    _("view roster tags"), 0);
 332   add_key_binding (&global_keys, do_global_find_new, '?',
 333                    _("new find game expression"), 0);
 334   add_key_binding (&global_keys, do_global_find_next, '}',
 335                    _("find next game"), 1);
 336   add_key_binding (&global_keys, do_global_find_prev, '{',
 337                    _("find previous game"), 1);
 338   add_key_binding (&global_keys, do_global_new_game, CTRL_KEY ('n'),
 339                    _("new game or round"), 0);
 340   add_key_binding (&global_keys, do_global_new_all, CTRL_KEY ('k'),
 341                    _("new game from scratch"), 0);
 342   add_key_binding (&global_keys, do_global_copy_game, CTRL_KEY ('i'),
 343                    _("copy current game"), 0);
 344   add_key_binding (&global_keys, do_global_next_game, '>', _("next game"), 1);
 345   add_key_binding (&global_keys, do_global_prev_game, '<', _("previous game"),
 346                    1);
 347   add_key_binding (&global_keys, do_global_game_jump, 'J', _("jump to game"),
 348                    1);
 349   add_key_binding (&global_keys, do_global_toggle_delete, 'X',
 350                    _("toggle delete flag"), 1);
 351   add_key_binding (&global_keys, do_global_delete_game, CTRL_KEY ('X'),
 352                    _("delete the current or flagged games"), 0);
 353   add_key_binding (&global_keys, do_global_resume_game, CTRL_KEY ('r'),
 354                    _("load a PGN file"), 0);
 355   add_key_binding (&global_keys, do_global_save_game, 's', _("save game"), 0);
 356   add_key_binding (&global_keys, do_global_toggle_board_details,
 357                    CTRL_KEY ('d'), _("toggle board details"), 0);
 358   add_key_binding (&global_keys, do_global_toggle_engine_window, 'W',
 359                    _("toggle chess engine IO window"), 0);
 360 #ifdef WITH_LIBPERL
 361   add_key_binding (&global_keys, do_global_perl, CTRL_KEY ('O'),
 362                    _("Call PERL subroutine"), 0);
 363 #endif
 364   add_key_binding (&global_keys, do_global_about, KEY_F (10),
 365                    _("version information"), 0);
 366   add_key_binding (&global_keys, do_global_redraw, CTRL_KEY ('L'),
 367                    _("redraw the screen"), 0);
 368   add_key_binding (&global_keys, do_global_help, KEY_F (1), NULL, 0);
 369   add_key_binding (&global_keys, do_global_quit, 'Q', _("quit"), 0);
 370 }
 371
 372 void
 373 set_config_defaults ()
 374 {
 375   struct stat st;
 376
 377   config.pattern = strdup ("*.[Pp][Gg][Nn]*");
 378   config.engine_cmd = strdup ("gnuchess --xboard");
 379   config.engine_protocol = 1;
 380   config.jumpcount = 5;
 381   config.linegraphics = 1;
 382   config.saveprompt = 1;
 383   config.deleteprompt = 1;
 384   config.validmoves = 1;
 385   config.details = 1;
 386   config.showattacks = 1;
 387   config.coordsyleft = TRUE;
 388   config.fmpolyglot = FALSE;
 389   config.boardleft = TRUE;
 390   config.exitdialogbox = TRUE;
 391   config.enginecmdblacktag = TRUE;
 392   config.bprevmove = TRUE;
 393   config.utf8_pieces = 1;
 394
 395   set_default_colors ();
 396
 397   if (stat (config.nagfile, &st) == -1)
 398     {
 399       if (errno == ENOENT)
 400         copydatafile (config.nagfile, "nag.data");
 401       else
 402         warn ("%s", config.nagfile);
 403     }
 404
 405   if (stat (config.ccfile, &st) == -1)
 406     {
 407       if (errno == ENOENT)
 408         copydatafile (config.ccfile, "cc.data");
 409       else
 410         warn ("%s", config.ccfile);
 411     }
 412 }
 413
 414 static void
 415 update_key (struct key_s **dst, struct custom_key_s config_key,
 416             wint_t c, char *desc)
 417 {
 418   int i;
 419
 420   for (i = 0; dst[i]; i++)
 421     {
 422       if (dst[i]->f == config_key.func)
 423         {
 424           dst[i]->c = c;
 425
 426           if (dst[i]->key)
 427             free (dst[i]->key);
 428
 429           dst[i]->key = str_to_wchar (fancy_key_name (c));
 430           if (desc)
 431             {
 432               free (dst[i]->d);
 433               dst[i]->d = str_to_wchar (desc);
 434             }
 435
 436           goto done;
 437         }
 438     }
 439
 440   add_key_binding (&dst, config_key.func, c,
 441                    (desc) ? desc : _("no description"), config_key.r);
 442
 443 done:
 444   return;
 445 }
 446
 447 static struct known_key_s
 448 {
 449   wint_t c;
 450   const char *name;
 451 } known_keys[] =
 452 {
 453   {
 454   KEY_UP, "up"},
 455   {
 456   KEY_DOWN, "down"},
 457   {
 458   KEY_LEFT, "left"},
 459   {
 460   KEY_RIGHT, "right"},
 461   {
 462   KEY_HOME, "home"},
 463   {
 464   KEY_END, "end"},
 465   {
 466   KEY_DC, "delete"},
 467   {
 468   KEY_PPAGE, "pgup"},
 469   {
 470   KEY_NPAGE, "pgdn"},
 471   {
 472   KEY_IC, "insert"},
 473   {
 474   ' ', "space"},
 475   {
 476   KEY_ESCAPE, "escape"},
 477   {
 478   '\n', "enter"},
 479   {
 480   0, NULL}
 481 };
 482
 483 static wint_t
 484 parse_key (const char *filename, int lines, int word, wchar_t ** key)
 485 {
 486   wchar_t *p = key ? *key : NULL;
 487   wchar_t *orig = key ? *key : NULL;
 488   wint_t c = 0;
 489   int quote = 0;
 490
 491   if (!key || !wcslen (*key))
 492     return 0;
 493
 494   if (*p == '\"' && !isspace (*(p+1)))
 495     {
 496       quote = 1;
 497       p++;
 498     }
 499
 500   if (*p == '<')
 501     {
 502       int i;
 503
 504       p++;
 505
 506       for (i = 0; known_keys[i].name; i++)
 507         {
 508           wchar_t *wc = str_to_wchar (known_keys[i].name);
 509
 510           if (!wcsncasecmp (p, wc, wcslen (wc)))
 511             {
 512               c = known_keys[i].c;
 513               p += strlen (known_keys[i].name);
 514               free (wc);
 515               break;
 516             }
 517
 518           free (wc);
 519         }
 520
 521       if (!c)
 522         {
 523           if (*p == '^')
 524             {
 525               p++;
 526               c = CTRL_KEY (*p++);
 527             }
 528           else if (*p == 'F' || *p == 'f')
 529             {
 530               char *str = wchar_to_str (++p);
 531
 532               c = KEY_F (atoi (str));
 533               p += integer_len (atoi (str));
 534               free (str);
 535             }
 536         }
 537
 538       if (!c)
 539         c = *p++;
 540
 541       if (*p++ != '>')
 542         errx (EXIT_FAILURE, _("%s(%i): parse error \"%ls\""), filename,
 543               lines, orig);
 544     }
 545   else if (*p == '\\')
 546     {
 547       p++;
 548       c = *p++;
 549     }
 550   else
 551     c = *p++;
 552
 553   if (quote && *p != '\"')
 554     errx (EXIT_FAILURE, _("%s(%i): parse error \"%ls\""), filename,
 555           lines, orig);
 556   else if (quote)
 557     p++;
 558
 559   if (word && *p && !isspace (*p))
 560     errx (EXIT_FAILURE, _("%s(%i): parse error \"%ls\""), filename,
 561           lines, orig);
 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 if (strcasecmp (mode, "any") == 0)
 594     m = MODE_ANY;
 595   else
 596     errx (EXIT_FAILURE, _("%s(%i): invalid game mode \"%s\""), filename,
 597           lines, mode);
 598
 599   p = key;
 600   c = parse_key (filename, lines, 1, &p);
 601
 602   if (m != -1)
 603     {
 604       for (i = 0; global_keys[i]; i++)
 605         {
 606           if (global_keys[i]->c == c)
 607             errx (EXIT_FAILURE,
 608                   _("%s(%i): key \"%ls\" conflicts with a global key"),
 609                   filename, lines, key);
 610         }
 611     }
 612
 613   for (f = -2, i = 0; config_keys[i].name; i++)
 614     {
 615       if (strcmp (config_keys[i].name, func) == 0 && config_keys[i].mode == m)
 616         {
 617           f = i;
 618           break;
 619         }
 620     }
 621
 622   if (f == -2)
 623     errx (EXIT_FAILURE, _("%s(%i): invalid command \"%s\""), filename,
 624           lines, func);
 625
 626   str = wchar_to_str (desc);
 627
 628   switch (m)
 629     {
 630     case MODE_PLAY:
 631       update_key (play_keys, config_keys[f], c, (n > 3) ? str : NULL);
 632       break;
 633     case MODE_HISTORY:
 634       update_key (history_keys, config_keys[f], c, (n > 3) ? str : NULL);
 635       break;
 636     case MODE_EDIT:
 637       update_key (edit_keys, config_keys[f], c, (n > 3) ? str : NULL);
 638       break;
 639     default:
 640       update_key (global_keys, config_keys[f], c, (n > 3) ? str : NULL);
 641       break;
 642     }
 643
 644   free (str);
 645 }
 646
 647 static wchar_t *
 648 parse_macro_desc (const char *filename, int lines, wchar_t **val)
 649 {
 650   int quote = 0;
 651   wchar_t *p;
 652   wchar_t *buf = Malloc (256 * sizeof (wchar_t));
 653   wchar_t *b = buf;
 654
 655   if (!buf)
 656     return NULL;
 657
 658   for (p = *val; p && *p; p++)
 659     {
 660       if (*p == '\"')
 661         {
 662           if (quote)
 663             {
 664               p++;
 665               break;
 666             }
 667
 668           quote = 1;
 669           continue;
 670         }
 671       else if (isspace (*p) && !quote)
 672         break;
 673
 674       *b++ = *p;
 675     }
 676
 677   if (!isspace (*p) || !*(p+1))
 678     {
 679       fprintf(stderr, _ ("%s(%i): parse error\n"), filename, lines);
 680       free (buf);
 681       return NULL;
 682     }
 683
 684   while (isspace (*p))
 685     p++;
 686
 687   *val = p;
 688   *b = 0;
 689   return buf;
 690 }
 691
 692 static void
 693 parse_macro (const char *filename, int lines, char *val)
 694 {
 695   char mode[16];
 696   wchar_t keys[2048] = { 0 }, key[8];
 697   int n;
 698   int m;
 699   wint_t c;
 700   int i = 0;
 701   wchar_t *p;
 702
 703   n = sscanf (val, "%s %ls %2047lc", mode, key, keys);
 704
 705   if (n != 3)
 706     errx (EXIT_FAILURE, _("%s(%i): too few arguments"), filename, lines);
 707
 708   if (strcasecmp (mode, "history") == 0)
 709     m = MODE_HISTORY;
 710   else if (strcasecmp (mode, "play") == 0)
 711     m = MODE_PLAY;
 712   else if (strcasecmp (mode, "edit") == 0)
 713     m = MODE_EDIT;
 714   else if (strcasecmp (mode, "any") == 0)
 715     m = -1;
 716   else
 717     errx (EXIT_FAILURE, _("%s(%i): invalid game mode \"%s\""), filename,
 718           lines, mode);
 719
 720   p = key;
 721   c = parse_key (filename, lines, 1, &p);
 722
 723   if (macros)
 724     for (i = 0; macros[i]; i++);
 725
 726   macros = Realloc (macros, (i + 2) * sizeof (struct macro_s *));
 727   macros[i] = Calloc (1, sizeof (struct macro_s));
 728   macros[i]->c = c;
 729   macros[i]->mode = m;
 730   p = keys;
 731
 732   macros[i]->desc = parse_macro_desc (filename, lines, &p);
 733   if (!macros[i]->desc)
 734     exit (EXIT_FAILURE);
 735
 736   while ((c = parse_key (filename, lines, 0, &p)) != 0)
 737     {
 738       macros[i]->keys = Realloc (macros[i]->keys, (macros[i]->total + 2) *
 739                                  sizeof (wint_t));
 740       macros[i]->keys[macros[i]->total++] = c;
 741     }
 742
 743   macros[++i] = NULL;
 744 }
 745
 746 void
 747 parse_rcfile (const char *filename)
 748 {
 749   FILE *fp;
 750   char *line, buf[LINE_MAX];
 751   int lines = 0;
 752   char *altengine = NULL;
 753   int init = 0;
 754   int k = 0;
 755   int c;
 756
 757   if ((fp = fopen (filename, "r")) == NULL)
 758     err (EXIT_FAILURE, "%s", filename);
 759
 760   while ((line = fgets (buf, sizeof (buf), fp)) != NULL)
 761     {
 762       int n;
 763       char var[30] = { 0 }, val[LINE_MAX - sizeof (var) - 1] =
 764       {
 765       0};
 766       char token[MAX_PGN_LINE_LEN + 1] = { 0 };
 767       char value[MAX_PGN_LINE_LEN + 1] = { 0 };
 768       char *p;
 769
 770       lines++;
 771       line = trim (line);
 772
 773       if (!line[0] || line[0] == '#')
 774         continue;
 775
 776       if ((n = sscanf (line, "%s %[^\n]", var, val)) != 2)
 777         errx (EXIT_FAILURE, _("%s(%i): parse error %i"), filename, lines, n);
 778
 779       p = strdup (trim (val));
 780       strncpy (val, p, sizeof (val) - 1);
 781       free (p);
 782       p = strdup (trim (var));
 783       strncpy (var, p, sizeof (var) - 1);
 784       free (p);
 785
 786       if (strcmp (var, "jump_count") == 0)
 787         {
 788           if (!isinteger (val))
 789             errx (EXIT_FAILURE, _("%s(%i): value is not an integer"),
 790                   filename, lines);
 791
 792           config.jumpcount = atoi (val);
 793         }
 794       else if (strcmp (var, "engine_init") == 0)
 795         {
 796           config.einit =
 797             Realloc (config.einit, (init + 2) * sizeof (wchar_t *));
 798           config.einit[init++] = str_to_wchar (val);
 799           config.einit[init] = NULL;
 800         }
 801       else if (strcmp (var, "pattern") == 0)
 802         {
 803           free (config.pattern);
 804           config.pattern = strdup (val);
 805         }
 806       else if (strcmp (var, "mpl") == 0)
 807         {
 808           if (!isinteger (val))
 809             errx (EXIT_FAILURE, _("%s(%i): value is not an integer"),
 810                   filename, lines);
 811           pgn_config_set (PGN_MPL, atoi (val));
 812         }
 813       else if (strcmp (var, "stop_on_error") == 0)
 814         pgn_config_set (PGN_STOP_ON_ERROR, on_or_off (filename, lines, val));
 815       else if (strcmp (var, "tag") == 0)
 816         {
 817           if ((n = sscanf (val, "%s %s ", token, value)) < 1 || n > 2)
 818             errx (EXIT_FAILURE, _("%s(%i): invalid value \"%s\""), filename,
 819                   lines, val);
 820
 821           if (n == 1)
 822             value[0] = 0;
 823           else
 824             {
 825               p = val + strlen (token);
 826               strncpy (value, p, sizeof (value) - 1);
 827             }
 828
 829           for (n = 0; n < strlen (token); n++)
 830             {
 831               if (!isalnum (token[n]) && token[n] != '_')
 832                 errx (EXIT_FAILURE,
 833                       _("%s(%i): token names must match 0-9A-Za-z_."),
 834                       filename, lines);
 835             }
 836
 837           token[0] = toupper (token[0]);
 838           pgn_tag_add (&config.tag, token, value);
 839         }
 840       else if (strcmp (var, "save_directory") == 0)
 841         config.savedirectory = strdup (val);
 842       else if (strcmp (var, "line_graphics") == 0)
 843         config.linegraphics = on_or_off (filename, lines, val);
 844       else if (strcmp (var, "save_prompt") == 0)
 845         config.saveprompt = on_or_off (filename, lines, val);
 846       else if (strcmp (var, "delete_prompt") == 0)
 847         config.deleteprompt = on_or_off (filename, lines, val);
 848       else if (strcmp (var, "valid_moves") == 0)
 849         config.validmoves = on_or_off (filename, lines, val);
 850       else if (strcmp (var, "board_details") == 0)
 851         config.details = on_or_off (filename, lines, val);
 852       else if (strcmp (var, "show_attacks") == 0)
 853         config.showattacks = on_or_off (filename, lines, val);
 854       else if (strcmp (var, "coords_y_left") == 0)
 855         config.coordsyleft = on_or_off (filename, lines, val);
 856       else if (strcmp (var, "fm_polyglot") == 0)
 857         config.fmpolyglot = on_or_off (filename, lines, val);
 858       else if (strcmp (var, "board_left") == 0)
 859         config.boardleft = on_or_off (filename, lines, val);
 860       else if (strcmp (var, "exit_dialog_box") == 0)
 861         config.exitdialogbox = on_or_off (filename, lines, val);
 862       else if (strcmp (var, "engine_cmd_blacktag") == 0)
 863         config.enginecmdblacktag = on_or_off (filename, lines, val);
 864       else if (strcmp (var, "board_prev_move") == 0)
 865         config.bprevmove = on_or_off (filename, lines, val);
 866       else if (strcmp (var, "strict_castling") == 0)
 867         pgn_config_set (PGN_STRICT_CASTLING,
 868                         on_or_off (filename, lines, val));
 869       else if (strcmp (var, "engine_cmd") == 0)
 870         altengine = strdup (val);
 871       else if (strcmp (var, "engine_protocol") == 0)
 872         {
 873           if (!isinteger (val))
 874             errx (EXIT_FAILURE, _("%s(%i): value is not an integer"),
 875                   filename, lines);
 876
 877           config.engine_protocol = atoi (val);
 878
 879           if (config.engine_protocol != 1 && config.engine_protocol != 2)
 880             errx (EXIT_FAILURE, _("%s(%i): invalid value"), filename, lines);
 881         }
 882       else if (strcmp (var, "utf8_pieces") == 0)
 883         config.utf8_pieces = on_or_off (filename, lines, val);
 884       else if (strcmp (var, "turn_cmd") == 0)
 885         config.turn_cmd = strdup (val);
 886       else if (strcmp (var, "color_board_window") == 0)
 887         parse_color (filename, lines, val, &config.color[CONF_BDWINDOW]);
 888       else if (strcmp (var, "color_board_selected") == 0)
 889         parse_color (filename, lines, val, &config.color[CONF_BSELECTED]);
 890       else if (strcmp (var, "color_board_white_moves") == 0)
 891         parse_color (filename, lines, val, &config.color[CONF_BMOVESW]);
 892       else if (strcmp (var, "color_board_black_moves") == 0)
 893         parse_color (filename, lines, val, &config.color[CONF_BMOVESB]);
 894       else if (strcmp (var, "color_board_count") == 0)
 895         parse_color (filename, lines, val, &config.color[CONF_BCOUNT]);
 896       else if (strcmp (var, "color_board_cursor") == 0)
 897         parse_color (filename, lines, val, &config.color[CONF_BCURSOR]);
 898       else if (strcmp (var, "color_board_black") == 0)
 899         parse_color (filename, lines, val, &config.color[CONF_BBLACK]);
 900       else if (strcmp (var, "color_board_white") == 0)
 901         parse_color (filename, lines, val, &config.color[CONF_BWHITE]);
 902       else if (strcmp (var, "color_board_graphics") == 0)
 903         parse_color (filename, lines, val, &config.color[CONF_BGRAPHICS]);
 904       else if (strcmp (var, "color_board_coords") == 0)
 905         parse_color (filename, lines, val, &config.color[CONF_BCOORDS]);
 906       else if (strcmp (var, "color_board_castling") == 0)
 907         parse_color (filename, lines, val, &config.color[CONF_BCASTLING]);
 908       else if (strcmp (var, "color_board_enpassant") == 0)
 909         parse_color (filename, lines, val, &config.color[CONF_BENPASSANT]);
 910       else if (strcmp (var, "color_board_attack") == 0)
 911         parse_color (filename, lines, val, &config.color[CONF_BATTACK]);
 912       else if (strcmp (var, "color_board_prev_move") == 0)
 913         parse_color (filename, lines, val, &config.color[CONF_BPREVMOVE]);
 914       else if (strcmp (var, "color_status_window") == 0)
 915         parse_color (filename, lines, val, &config.color[CONF_SWINDOW]);
 916       else if (strcmp (var, "color_status_title") == 0)
 917         parse_color (filename, lines, val, &config.color[CONF_STITLE]);
 918       else if (strcmp (var, "color_status_border") == 0)
 919         parse_color (filename, lines, val, &config.color[CONF_SBORDER]);
 920       else if (strcmp (var, "color_status_notify") == 0)
 921         parse_color (filename, lines, val, &config.color[CONF_SNOTIFY]);
 922       else if (strcmp (var, "color_status_engine") == 0)
 923         parse_color (filename, lines, val, &config.color[CONF_SENGINE]);
 924       else if (strcmp (var, "color_tag_window") == 0)
 925         parse_color (filename, lines, val, &config.color[CONF_TWINDOW]);
 926       else if (strcmp (var, "color_tag_title") == 0)
 927         parse_color (filename, lines, val, &config.color[CONF_TTITLE]);
 928       else if (strcmp (var, "color_tag_border") == 0)
 929         parse_color (filename, lines, val, &config.color[CONF_TBORDER]);
 930       else if (strcmp (var, "color_history_window") == 0)
 931         parse_color (filename, lines, val, &config.color[CONF_HWINDOW]);
 932       else if (strcmp (var, "color_history_title") == 0)
 933         parse_color (filename, lines, val, &config.color[CONF_HTITLE]);
 934       else if (strcmp (var, "color_history_border") == 0)
 935         parse_color (filename, lines, val, &config.color[CONF_HBORDER]);
 936       else if (strcmp (var, "color_message_window") == 0)
 937         parse_color (filename, lines, val, &config.color[CONF_MWINDOW]);
 938       else if (strcmp (var, "color_message_title") == 0)
 939         parse_color (filename, lines, val, &config.color[CONF_MTITLE]);
 940       else if (strcmp (var, "color_message_border") == 0)
 941         parse_color (filename, lines, val, &config.color[CONF_MBORDER]);
 942       else if (strcmp (var, "color_message_prompt") == 0)
 943         parse_color (filename, lines, val, &config.color[CONF_MPROMPT]);
 944       else if (strcmp (var, "color_input_window") == 0)
 945         parse_color (filename, lines, val, &config.color[CONF_IWINDOW]);
 946       else if (strcmp (var, "color_input_title") == 0)
 947         parse_color (filename, lines, val, &config.color[CONF_ITITLE]);
 948       else if (strcmp (var, "color_input_border") == 0)
 949         parse_color (filename, lines, val, &config.color[CONF_IBORDER]);
 950       else if (strcmp (var, "color_input_prompt") == 0)
 951         parse_color (filename, lines, val, &config.color[CONF_IPROMPT]);
 952       else if (strcmp (var, "color_menu") == 0)
 953         parse_color (filename, lines, val, &config.color[CONF_MENU]);
 954       else if (strcmp (var, "color_menu_selected") == 0)
 955         parse_color (filename, lines, val, &config.color[CONF_MENUS]);
 956       else if (strcmp (var, "color_menu_highlight") == 0)
 957         parse_color (filename, lines, val, &config.color[CONF_MENUH]);
 958       else if (strcmp (var, "color_menu_graphics") == 0)
 959         parse_color (filename, lines, val,
 960                      &config.color[CONF_HISTORY_MENU_LG]);
 961       else if (strcmp (var, "bind") == 0)
 962         parse_key_binding (filename, lines, val);
 963       else if (strcmp (var, "macro") == 0)
 964         parse_macro (filename, lines, val);
 965       else if (strcmp (var, "cbind") == 0)
 966         {
 967           config.keys = Realloc (config.keys, (k + 2) *
 968                                  sizeof (struct config_key_s *));
 969           config.keys[k] = Calloc (1, sizeof (struct config_key_s));
 970           p = val;
 971           n = 0;
 972
 973           while (*p && !isspace (*p))
 974             p++, n++;
 975
 976           c = *p;
 977           *p = 0;
 978           p -= n;
 979
 980           if (strcasecmp (p, "none") == 0)
 981             config.keys[k]->type = KEY_DEFAULT;
 982           else if (strcasecmp (p, "repeat") == 0)
 983             config.keys[k]->type = KEY_REPEAT;
 984           else if (strcasecmp (p, "set") == 0)
 985             config.keys[k]->type = KEY_SET;
 986           else
 987             errx (EXIT_FAILURE, _("%s(%i): invalid value \"%s\""), filename,
 988                   lines, p);
 989
 990           p = val + n;
 991           *p = c;
 992
 993           while (*p && isspace (*p))
 994             p++;
 995
 996           config.keys[k]->c = *p++;
 997
 998           while (isspace (*p))
 999             p++;
1000
1001           config.keys[k++]->str = str_to_wchar (p);
1002           config.keys[k] = NULL;
1003         }
1004       else
1005         errx (EXIT_FAILURE, _("%s(%i): invalid parameter \"%s\""), filename,
1006               lines, var);
1007     }
1008
1009   fclose (fp);
1010
1011   if (altengine)
1012     {
1013       free (config.engine_cmd);
1014       config.engine_cmd = NULL;
1015       config.engine_cmd = altengine;
1016     }
1017
1018   if (config.enginecmdblacktag)
1019     pgn_tag_add (&config.tag, (char *) "Black", config.engine_cmd);
1020 }
1021
1022 static struct key_s *
1023 find_key (struct key_s **keys, key_func f)
1024 {
1025   int i;
1026
1027   for (i = 0; keys[i]; i++)
1028     {
1029       if (keys[i]->f == f)
1030         return keys[i];
1031     }
1032
1033   return NULL;
1034 }
1035
1036 const wchar_t *
1037 key_lookup (struct key_s **keys, key_func f)
1038 {
1039   struct key_s *k = find_key (keys, f);
1040
1041   return k ? k->key : NULL;
1042 }
1043
1044 wint_t
1045 keycode_lookup (struct key_s **keys, key_func f)
1046 {
1047   struct key_s *k = find_key (keys, f);
1048
1049   return k ? k->c : 0;
1050 }