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, int word, wchar_t ** key)
 493 {
 494   wchar_t *p = key ? *key : NULL;
 495   wchar_t *orig = key ? *key : NULL;
 496   wint_t c = 0;
 497   int quote = 0;
 498
 499   if (!key || !wcslen (*key))
 500     return 0;
 501
 502   if (*p == '\"' && !isspace (*(p+1)))
 503     {
 504       quote = 1;
 505       p++;
 506     }
 507
 508   if (*p == '<')
 509     {
 510       int i;
 511
 512       p++;
 513
 514       for (i = 0; known_keys[i].name; i++)
 515         {
 516           wchar_t *wc = str_to_wchar (known_keys[i].name);
 517
 518           if (!wcsncasecmp (p, wc, wcslen (wc)))
 519             {
 520               c = known_keys[i].c;
 521               p += strlen (known_keys[i].name);
 522               free (wc);
 523               break;
 524             }
 525
 526           free (wc);
 527         }
 528
 529       if (!c)
 530         {
 531           if (*p == '^')
 532             {
 533               p++;
 534               c = CTRL_KEY (*p++);
 535             }
 536           else if (*p == 'F' || *p == 'f')
 537             {
 538               char *str = wchar_to_str (++p);
 539
 540               c = KEY_F (atoi (str));
 541               p += integer_len (atoi (str));
 542               free (str);
 543             }
 544         }
 545
 546       if (!c)
 547         c = *p++;
 548
 549       if (*p++ != '>')
 550         errx (EXIT_FAILURE, _("%s(%i): parse error \"%ls\""), filename,
 551               lines, orig);
 552     }
 553   else if (*p == '\\')
 554     {
 555       p++;
 556       c = *p++;
 557     }
 558   else
 559     c = *p++;
 560
 561   if (quote && *p != '\"')
 562     errx (EXIT_FAILURE, _("%s(%i): parse error \"%ls\""), filename,
 563           lines, orig);
 564   else if (quote)
 565     p++;
 566
 567   if (word && *p && !isspace (*p))
 568     errx (EXIT_FAILURE, _("%s(%i): parse error \"%ls\""), filename,
 569           lines, orig);
 570
 571   orig += wcslen (orig) - wcslen (p);
 572   *key = orig;
 573   return c;
 574 }
 575
 576 static void
 577 parse_key_binding (const char *filename, int lines, char *val)
 578 {
 579   char mode[64], func[64];
 580   wchar_t desc[64] = { 0 };
 581   wchar_t key[64];
 582   int n;
 583   int m = 0;
 584   wint_t c = 0;
 585   int f;
 586   int i;
 587   wchar_t *p;
 588   char *str;
 589
 590   n = sscanf (val, "%s %ls %s %63lc", mode, key, func, desc);
 591
 592   if (n < 3)
 593     errx (EXIT_FAILURE, _("%s(%i): too few arguments"), filename, lines);
 594
 595   if (strcasecmp (mode, "history") == 0)
 596     m = MODE_HISTORY;
 597   else if (strcasecmp (mode, "play") == 0)
 598     m = MODE_PLAY;
 599   else if (strcasecmp (mode, "edit") == 0)
 600     m = MODE_EDIT;
 601   else
 602     errx (EXIT_FAILURE, _("%s(%i): invalid game mode \"%s\""), filename,
 603           lines, mode);
 604
 605   p = key;
 606   c = parse_key (filename, lines, 1, &p);
 607
 608   if (m != -1)
 609     {
 610       for (i = 0; global_keys[i]; i++)
 611         {
 612           if (global_keys[i]->c == c)
 613             errx (EXIT_FAILURE,
 614                   _("%s(%i): key \"%ls\" conflicts with a global key"),
 615                   filename, lines, key);
 616         }
 617     }
 618
 619   for (f = -2, i = 0; config_keys[i].name; i++)
 620     {
 621       if (strcmp (config_keys[i].name, func) == 0 && config_keys[i].mode == m)
 622         {
 623           f = i;
 624           break;
 625         }
 626     }
 627
 628   if (f == -2)
 629     errx (EXIT_FAILURE, _("%s(%i): invalid command \"%s\""), filename,
 630           lines, func);
 631
 632   str = wchar_to_str (desc);
 633
 634   switch (m)
 635     {
 636     case MODE_PLAY:
 637       update_key (play_keys, config_keys[f], c, (n > 3) ? str : NULL);
 638       break;
 639     case MODE_HISTORY:
 640       update_key (history_keys, config_keys[f], c, (n > 3) ? str : NULL);
 641       break;
 642     case MODE_EDIT:
 643       update_key (edit_keys, config_keys[f], c, (n > 3) ? str : NULL);
 644       break;
 645     default:
 646       update_key (global_keys, config_keys[f], c, (n > 3) ? str : NULL);
 647       break;
 648     }
 649
 650   free (str);
 651 }
 652
 653 static wchar_t *
 654 parse_macro_desc (const char *filename, int lines, wchar_t **val)
 655 {
 656   int quote = 0;
 657   wchar_t *p;
 658   wchar_t *buf = Malloc (256 * sizeof (wchar_t));
 659   wchar_t *b = buf;
 660
 661   if (!buf)
 662     return NULL;
 663
 664   for (p = *val; p && *p; p++)
 665     {
 666       if (*p == '\"')
 667         {
 668           if (quote)
 669             {
 670               p++;
 671               break;
 672             }
 673
 674           quote = 1;
 675           continue;
 676         }
 677       else if (isspace (*p) && !quote)
 678         break;
 679
 680       *b++ = *p;
 681     }
 682
 683   if (!isspace (*p) || !*(p+1))
 684     {
 685       fprintf(stderr, _ ("%s(%i): parse error\n"), filename, lines);
 686       free (buf);
 687       return NULL;
 688     }
 689
 690   while (isspace (*p))
 691     p++;
 692
 693   *val = p;
 694   *b = 0;
 695   return buf;
 696 }
 697
 698 static void
 699 parse_macro (const char *filename, int lines, char *val)
 700 {
 701   char mode[16];
 702   wchar_t keys[2048] = { 0 }, key[8];
 703   int n;
 704   int m;
 705   wint_t c;
 706   int i = 0;
 707   wchar_t *p;
 708
 709   n = sscanf (val, "%s %ls %2047lc", mode, key, keys);
 710
 711   if (n != 3)
 712     errx (EXIT_FAILURE, _("%s(%i): too few arguments"), filename, lines);
 713
 714   if (strcasecmp (mode, "history") == 0)
 715     m = MODE_HISTORY;
 716   else if (strcasecmp (mode, "play") == 0)
 717     m = MODE_PLAY;
 718   else if (strcasecmp (mode, "edit") == 0)
 719     m = MODE_EDIT;
 720   else if (strcasecmp (mode, "any") == 0)
 721     m = -1;
 722   else
 723     errx (EXIT_FAILURE, _("%s(%i): invalid game mode \"%s\""), filename,
 724           lines, mode);
 725
 726   p = key;
 727   c = parse_key (filename, lines, 1, &p);
 728
 729   if (macros)
 730     for (i = 0; macros[i]; i++);
 731
 732   macros = Realloc (macros, (i + 2) * sizeof (struct macro_s *));
 733   macros[i] = Calloc (1, sizeof (struct macro_s));
 734   macros[i]->c = c;
 735   macros[i]->mode = m;
 736   p = keys;
 737
 738   macros[i]->desc = parse_macro_desc (filename, lines, &p);
 739   if (!macros[i]->desc)
 740     exit (EXIT_FAILURE);
 741
 742   while ((c = parse_key (filename, lines, 0, &p)) != 0)
 743     {
 744       macros[i]->keys = Realloc (macros[i]->keys, (macros[i]->total + 2) *
 745                                  sizeof (wint_t));
 746       macros[i]->keys[macros[i]->total++] = c;
 747     }
 748
 749   macros[++i] = NULL;
 750 }
 751
 752 void
 753 parse_rcfile (const char *filename)
 754 {
 755   FILE *fp;
 756   char *line, buf[LINE_MAX];
 757   int lines = 0;
 758   char *altengine = NULL;
 759   int init = 0;
 760   int k = 0;
 761   int c;
 762
 763   if ((fp = fopen (filename, "r")) == NULL)
 764     err (EXIT_FAILURE, "%s", filename);
 765
 766   while ((line = fgets (buf, sizeof (buf), fp)) != NULL)
 767     {
 768       int n;
 769       char var[30] = { 0 }, val[LINE_MAX - sizeof (var) - 1] =
 770       {
 771       0};
 772       char token[MAX_PGN_LINE_LEN + 1] = { 0 };
 773       char value[MAX_PGN_LINE_LEN + 1] = { 0 };
 774       char *p;
 775
 776       lines++;
 777       line = trim (line);
 778
 779       if (!line[0] || line[0] == '#')
 780         continue;
 781
 782       if ((n = sscanf (line, "%s %[^\n]", var, val)) != 2)
 783         errx (EXIT_FAILURE, _("%s(%i): parse error %i"), filename, lines, n);
 784
 785       p = strdup (trim (val));
 786       strncpy (val, p, sizeof (val) - 1);
 787       free (p);
 788       p = strdup (trim (var));
 789       strncpy (var, p, sizeof (var) - 1);
 790       free (p);
 791
 792       if (strcmp (var, "jump_count") == 0)
 793         {
 794           if (!isinteger (val))
 795             errx (EXIT_FAILURE, _("%s(%i): value is not an integer"),
 796                   filename, lines);
 797
 798           config.jumpcount = atoi (val);
 799         }
 800       else if (strcmp (var, "engine_init") == 0)
 801         {
 802           config.einit =
 803             Realloc (config.einit, (init + 2) * sizeof (wchar_t *));
 804           config.einit[init++] = str_to_wchar (val);
 805           config.einit[init] = NULL;
 806         }
 807       else if (strcmp (var, "pattern") == 0)
 808         {
 809           free (config.pattern);
 810           config.pattern = strdup (val);
 811         }
 812       else if (strcmp (var, "mpl") == 0)
 813         {
 814           if (!isinteger (val))
 815             errx (EXIT_FAILURE, _("%s(%i): value is not an integer"),
 816                   filename, lines);
 817           pgn_config_set (PGN_MPL, atoi (val));
 818         }
 819       else if (strcmp (var, "stop_on_error") == 0)
 820         pgn_config_set (PGN_STOP_ON_ERROR, on_or_off (filename, lines, val));
 821       else if (strcmp (var, "tag") == 0)
 822         {
 823           if ((n = sscanf (val, "%s %s ", token, value)) < 1 || n > 2)
 824             errx (EXIT_FAILURE, _("%s(%i): invalid value \"%s\""), filename,
 825                   lines, val);
 826
 827           if (n == 1)
 828             value[0] = 0;
 829           else
 830             {
 831               p = val + strlen (token);
 832               strncpy (value, p, sizeof (value) - 1);
 833             }
 834
 835           for (n = 0; n < strlen (token); n++)
 836             {
 837               if (!isalnum (token[n]) && token[n] != '_')
 838                 errx (EXIT_FAILURE,
 839                       _("%s(%i): token names must match 0-9A-Za-z_."),
 840                       filename, lines);
 841             }
 842
 843           token[0] = toupper (token[0]);
 844           pgn_tag_add (&config.tag, token, value);
 845         }
 846       else if (strcmp (var, "save_directory") == 0)
 847         config.savedirectory = strdup (val);
 848       else if (strcmp (var, "line_graphics") == 0)
 849         config.linegraphics = on_or_off (filename, lines, val);
 850       else if (strcmp (var, "save_prompt") == 0)
 851         config.saveprompt = on_or_off (filename, lines, val);
 852       else if (strcmp (var, "delete_prompt") == 0)
 853         config.deleteprompt = on_or_off (filename, lines, val);
 854       else if (strcmp (var, "valid_moves") == 0)
 855         config.validmoves = on_or_off (filename, lines, val);
 856       else if (strcmp (var, "board_details") == 0)
 857         config.details = on_or_off (filename, lines, val);
 858       else if (strcmp (var, "show_attacks") == 0)
 859         config.showattacks = on_or_off (filename, lines, val);
 860       else if (strcmp (var, "coords_y_left") == 0)
 861         config.coordsyleft = on_or_off (filename, lines, val);
 862       else if (strcmp (var, "fm_polyglot") == 0)
 863         config.fmpolyglot = on_or_off (filename, lines, val);
 864       else if (strcmp (var, "board_left") == 0)
 865         config.boardleft = on_or_off (filename, lines, val);
 866       else if (strcmp (var, "exit_dialog_box") == 0)
 867         config.exitdialogbox = on_or_off (filename, lines, val);
 868       else if (strcmp (var, "engine_cmd_blacktag") == 0)
 869         config.enginecmdblacktag = on_or_off (filename, lines, val);
 870       else if (strcmp (var, "board_prev_move") == 0)
 871         config.bprevmove = on_or_off (filename, lines, val);
 872       else if (strcmp (var, "strict_castling") == 0)
 873         pgn_config_set (PGN_STRICT_CASTLING,
 874                         on_or_off (filename, lines, val));
 875       else if (strcmp (var, "engine_cmd") == 0)
 876         altengine = strdup (val);
 877       else if (strcmp (var, "engine_protocol") == 0)
 878         {
 879           if (!isinteger (val))
 880             errx (EXIT_FAILURE, _("%s(%i): value is not an integer"),
 881                   filename, lines);
 882
 883           config.engine_protocol = atoi (val);
 884
 885           if (config.engine_protocol != 1 && config.engine_protocol != 2)
 886             errx (EXIT_FAILURE, _("%s(%i): invalid value"), filename, lines);
 887         }
 888       else if (strcmp (var, "utf8_pieces") == 0)
 889         config.utf8_pieces = on_or_off (filename, lines, val);
 890       else if (strcmp (var, "turn_cmd") == 0)
 891         config.turn_cmd = strdup (val);
 892       else if (strcmp (var, "color_board_window") == 0)
 893         parse_color (filename, lines, val, &config.color[CONF_BDWINDOW]);
 894       else if (strcmp (var, "color_board_selected") == 0)
 895         parse_color (filename, lines, val, &config.color[CONF_BSELECTED]);
 896       else if (strcmp (var, "color_board_white_moves") == 0)
 897         parse_color (filename, lines, val, &config.color[CONF_BMOVESW]);
 898       else if (strcmp (var, "color_board_black_moves") == 0)
 899         parse_color (filename, lines, val, &config.color[CONF_BMOVESB]);
 900       else if (strcmp (var, "color_board_count") == 0)
 901         parse_color (filename, lines, val, &config.color[CONF_BCOUNT]);
 902       else if (strcmp (var, "color_board_cursor") == 0)
 903         parse_color (filename, lines, val, &config.color[CONF_BCURSOR]);
 904       else if (strcmp (var, "color_board_black") == 0)
 905         parse_color (filename, lines, val, &config.color[CONF_BBLACK]);
 906       else if (strcmp (var, "color_board_white") == 0)
 907         parse_color (filename, lines, val, &config.color[CONF_BWHITE]);
 908       else if (strcmp (var, "color_board_graphics") == 0)
 909         parse_color (filename, lines, val, &config.color[CONF_BGRAPHICS]);
 910       else if (strcmp (var, "color_board_coords") == 0)
 911         parse_color (filename, lines, val, &config.color[CONF_BCOORDS]);
 912       else if (strcmp (var, "color_board_castling") == 0)
 913         parse_color (filename, lines, val, &config.color[CONF_BCASTLING]);
 914       else if (strcmp (var, "color_board_enpassant") == 0)
 915         parse_color (filename, lines, val, &config.color[CONF_BENPASSANT]);
 916       else if (strcmp (var, "color_board_attack") == 0)
 917         parse_color (filename, lines, val, &config.color[CONF_BATTACK]);
 918       else if (strcmp (var, "color_board_prev_move") == 0)
 919         parse_color (filename, lines, val, &config.color[CONF_BPREVMOVE]);
 920       else if (strcmp (var, "color_status_window") == 0)
 921         parse_color (filename, lines, val, &config.color[CONF_SWINDOW]);
 922       else if (strcmp (var, "color_status_title") == 0)
 923         parse_color (filename, lines, val, &config.color[CONF_STITLE]);
 924       else if (strcmp (var, "color_status_border") == 0)
 925         parse_color (filename, lines, val, &config.color[CONF_SBORDER]);
 926       else if (strcmp (var, "color_status_notify") == 0)
 927         parse_color (filename, lines, val, &config.color[CONF_SNOTIFY]);
 928       else if (strcmp (var, "color_status_engine") == 0)
 929         parse_color (filename, lines, val, &config.color[CONF_SENGINE]);
 930       else if (strcmp (var, "color_tag_window") == 0)
 931         parse_color (filename, lines, val, &config.color[CONF_TWINDOW]);
 932       else if (strcmp (var, "color_tag_title") == 0)
 933         parse_color (filename, lines, val, &config.color[CONF_TTITLE]);
 934       else if (strcmp (var, "color_tag_border") == 0)
 935         parse_color (filename, lines, val, &config.color[CONF_TBORDER]);
 936       else if (strcmp (var, "color_history_window") == 0)
 937         parse_color (filename, lines, val, &config.color[CONF_HWINDOW]);
 938       else if (strcmp (var, "color_history_title") == 0)
 939         parse_color (filename, lines, val, &config.color[CONF_HTITLE]);
 940       else if (strcmp (var, "color_history_border") == 0)
 941         parse_color (filename, lines, val, &config.color[CONF_HBORDER]);
 942       else if (strcmp (var, "color_message_window") == 0)
 943         parse_color (filename, lines, val, &config.color[CONF_MWINDOW]);
 944       else if (strcmp (var, "color_message_title") == 0)
 945         parse_color (filename, lines, val, &config.color[CONF_MTITLE]);
 946       else if (strcmp (var, "color_message_border") == 0)
 947         parse_color (filename, lines, val, &config.color[CONF_MBORDER]);
 948       else if (strcmp (var, "color_message_prompt") == 0)
 949         parse_color (filename, lines, val, &config.color[CONF_MPROMPT]);
 950       else if (strcmp (var, "color_input_window") == 0)
 951         parse_color (filename, lines, val, &config.color[CONF_IWINDOW]);
 952       else if (strcmp (var, "color_input_title") == 0)
 953         parse_color (filename, lines, val, &config.color[CONF_ITITLE]);
 954       else if (strcmp (var, "color_input_border") == 0)
 955         parse_color (filename, lines, val, &config.color[CONF_IBORDER]);
 956       else if (strcmp (var, "color_input_prompt") == 0)
 957         parse_color (filename, lines, val, &config.color[CONF_IPROMPT]);
 958       else if (strcmp (var, "color_menu") == 0)
 959         parse_color (filename, lines, val, &config.color[CONF_MENU]);
 960       else if (strcmp (var, "color_menu_selected") == 0)
 961         parse_color (filename, lines, val, &config.color[CONF_MENUS]);
 962       else if (strcmp (var, "color_menu_highlight") == 0)
 963         parse_color (filename, lines, val, &config.color[CONF_MENUH]);
 964       else if (strcmp (var, "color_menu_graphics") == 0)
 965         parse_color (filename, lines, val,
 966                      &config.color[CONF_HISTORY_MENU_LG]);
 967       else if (strcmp (var, "bind") == 0)
 968         parse_key_binding (filename, lines, val);
 969       else if (strcmp (var, "macro") == 0)
 970         parse_macro (filename, lines, val);
 971       else if (strcmp (var, "cbind") == 0)
 972         {
 973           config.keys = Realloc (config.keys, (k + 2) *
 974                                  sizeof (struct config_key_s *));
 975           config.keys[k] = Calloc (1, sizeof (struct config_key_s));
 976           p = val;
 977           n = 0;
 978
 979           while (*p && !isspace (*p))
 980             p++, n++;
 981
 982           c = *p;
 983           *p = 0;
 984           p -= n;
 985
 986           if (strcasecmp (p, "none") == 0)
 987             config.keys[k]->type = KEY_DEFAULT;
 988           else if (strcasecmp (p, "repeat") == 0)
 989             config.keys[k]->type = KEY_REPEAT;
 990           else if (strcasecmp (p, "set") == 0)
 991             config.keys[k]->type = KEY_SET;
 992           else
 993             errx (EXIT_FAILURE, _("%s(%i): invalid value \"%s\""), filename,
 994                   lines, p);
 995
 996           p = val + n;
 997           *p = c;
 998
 999           while (*p && isspace (*p))
1000             p++;
1001
1002           config.keys[k]->c = *p++;
1003
1004           while (isspace (*p))
1005             p++;
1006
1007           config.keys[k++]->str = str_to_wchar (p);
1008           config.keys[k] = NULL;
1009         }
1010       else
1011         errx (EXIT_FAILURE, _("%s(%i): invalid parameter \"%s\""), filename,
1012               lines, var);
1013     }
1014
1015   fclose (fp);
1016
1017   if (altengine)
1018     {
1019       free (config.engine_cmd);
1020       config.engine_cmd = NULL;
1021       config.engine_cmd = altengine;
1022     }
1023
1024   if (config.enginecmdblacktag)
1025     pgn_tag_add (&config.tag, (char *) "Black", config.engine_cmd);
1026 }