src/xdefaults.C

   1 /*--------------------------------*-C-*---------------------------------*
   2  * File:        xdefaults.C
   3  *----------------------------------------------------------------------*
   4  *
   5  * All portions of code are copyright by their respective author/s.
   6  * Copyright (c) 1994      Robert Nation <nation@rocket.sanders.lockheed.com>
   7  *                              - original version
   8  * Copyright (c) 1997,1998 mj olesen <olesen@me.queensu.ca>
   9  * Copyright (c) 2003-2004 Marc Lehmann <pcg@goof.com>
  10  *
  11  * This program is free software; you can redistribute it and/or modify
  12  * it under the terms of the GNU General Public License as published by
  13  * the Free Software Foundation; either version 2 of the License, or
  14  * (at your option) any later version.
  15  *
  16  * This program is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU General Public License
  22  * along with this program; if not, write to the Free Software
  23  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24  *----------------------------------------------------------------------*/
  25 /*----------------------------------------------------------------------*
  26  * get resources from ~/.Xdefaults or ~/.Xresources with the memory-saving
  27  * default or with XGetDefault() (#define USE_XGETDEFAULT)
  28  *----------------------------------------------------------------------*/
  29
  30 #include "../config.h"          /* NECESSARY */
  31 #include "rxvt.h"               /* NECESSARY */
  32 #include "version.h"
  33
  34 /* #define DEBUG_RESOURCES */
  35
  36 static const char *const xnames[2] = { ".Xdefaults", ".Xresources" };
  37
  38 /*{{{ monolithic option/resource structure: */
  39 /*
  40  * `string' options MUST have a usage argument
  41  * `switch' and `boolean' options have no argument
  42  * if there's no desc (ription), it won't appear in rxvt_usage ()
  43  */
  44
  45 /* INFO () - descriptive information only */
  46 #define INFO(opt, arg, desc)                                    \
  47     {0, -1, NULL, (opt), (arg), (desc)}
  48
  49 /* STRG () - command-line option, with/without resource */
  50 #define STRG(rsp, kw, opt, arg, desc)                           \
  51     {0, (rsp), (kw), (opt), (arg), (desc)}
  52
  53 /* RSTRG () - resource/long-option */
  54 #define RSTRG(rsp, kw, arg)                                     \
  55     {0, (rsp), (kw), NULL, (arg), NULL}
  56
  57 /* BOOL () - regular boolean `-/+' flag */
  58 #define BOOL(rsp, kw, opt, flag, desc)                          \
  59     { (Opt_Boolean| (flag)), (rsp), (kw), (opt), NULL, (desc)}
  60
  61 /* SWCH () - `-' flag */
  62 #define SWCH(opt, flag, desc)                                   \
  63     { (flag), -1, NULL, (opt), NULL, (desc)}
  64
  65 /* convenient macros */
  66 #define optList_strlen(i)                                               \
  67     (optList[i].flag ? 0 : (optList[i].arg ? strlen (optList[i].arg) : 1))
  68 #define optList_isBool(i)                                               \
  69     (optList[i].flag & Opt_Boolean)
  70 #define optList_isReverse(i)                                            \
  71     (optList[i].flag & Opt_Reverse)
  72 #define optList_size()                                                  \
  73     (sizeof (optList) / sizeof (optList[0]))
  74
  75 static const struct
  76   {
  77     const unsigned long flag;   /* Option flag */
  78     const int       doff;       /* data offset */
  79     const char     *kw;         /* keyword */
  80     const char     *opt;        /* option */
  81     const char     *arg;        /* argument */
  82     const char     *desc;       /* description */
  83   }
  84 optList[] = {
  85               STRG (Rs_display_name, NULL, "d", NULL, NULL),    /* short form */
  86               STRG (Rs_display_name, NULL, "display", "string", "X server to contact"),
  87               STRG (Rs_term_name, "termName", "tn", "string", "value of the TERM environment variable"),
  88               STRG (Rs_geometry, NULL, "g", NULL, NULL),        /* short form */
  89               STRG (Rs_geometry, "geometry", "geometry", "geometry", "size (in characters) and position"),
  90               SWCH ("C", Opt_console, "intercept console messages"),
  91               SWCH ("iconic", Opt_iconic, "start iconic"),
  92               SWCH ("ic", Opt_iconic, NULL),    /* short form */
  93               BOOL (Rs_reverseVideo, "reverseVideo", "rv", Opt_reverseVideo, "reverse video"),
  94               BOOL (Rs_loginShell, "loginShell", "ls", Opt_loginShell, "login shell"),
  95               BOOL (Rs_jumpScroll, "jumpScroll", "j", Opt_jumpScroll, "jump scrolling"),
  96               BOOL (Rs_pastableTabs, "pastableTabs", "ptab", Opt_pastableTabs, "tab characters are pastable"),
  97 #ifdef HAVE_SCROLLBARS
  98               BOOL (Rs_scrollBar, "scrollBar", "sb", Opt_scrollBar, "scrollbar"),
  99               BOOL (Rs_scrollBar_right, "scrollBar_right", "sr", Opt_scrollBar_right, "scrollbar right"),
 100               BOOL (Rs_scrollBar_floating, "scrollBar_floating", "st", Opt_scrollBar_floating, "scrollbar without a trough"),
 101 #endif
 102               BOOL (Rs_scrollTtyOutput, "scrollTtyOutput", NULL, Opt_scrollTtyOutput, NULL),
 103               BOOL (Rs_scrollTtyOutput, NULL, "si", Opt_Reverse | Opt_scrollTtyOutput, "scroll-on-tty-output inhibit"),
 104               BOOL (Rs_scrollTtyKeypress, "scrollTtyKeypress", "sk", Opt_scrollTtyKeypress, "scroll-on-keypress"),
 105               BOOL (Rs_scrollWithBuffer, "scrollWithBuffer", "sw", Opt_scrollWithBuffer, "scroll-with-buffer"),
 106 #ifdef TRANSPARENT
 107               BOOL (Rs_transparent, "inheritPixmap", "ip", Opt_transparent, "inherit parent pixmap"),
 108               BOOL (Rs_transparent_all, "inheritPixmapforce", "ipf", Opt_transparent_all, "forcefully inherit root pixmap"),
 109               SWCH ("tr", Opt_transparent, NULL),
 110 #if TINTING
 111               STRG (Rs_color + Color_tint, "tintColor", "tint", "color", "tint color"),
 112 #endif
 113 #endif
 114 #ifdef OFF_FOCUS_FADING
 115               STRG (Rs_fade, "fading", "fade", "%", "make colors x% darker when rxvt-unicode is losing focus."),
 116 #endif
 117 #ifdef TINTING
 118               STRG (Rs_shade, "shading", "sh", "%", "shade background by x% when tinting."),
 119 #endif
 120               BOOL (Rs_utmpInhibit, "utmpInhibit", "ut", Opt_utmpInhibit, "utmp inhibit"),
 121 #ifndef NO_BELL
 122               BOOL (Rs_visualBell, "visualBell", "vb", Opt_visualBell, "visual bell"),
 123 # if ! defined(NO_MAPALERT) && defined(MAPALERT_OPTION)
 124               BOOL (Rs_mapAlert, "mapAlert", NULL, Opt_mapAlert, NULL),
 125 # endif
 126 #endif
 127 #ifdef META8_OPTION
 128               BOOL (Rs_meta8, "meta8", NULL, Opt_meta8, NULL),
 129 #endif
 130 #ifdef MOUSE_WHEEL
 131               BOOL (Rs_mouseWheelScrollPage, "mouseWheelScrollPage", NULL, Opt_mouseWheelScrollPage, NULL),
 132 #endif
 133 #if ENABLE_FRILLS
 134               BOOL (Rs_tripleclickwords, "tripleclickwords", "tcw", Opt_tripleclickwords, "triple click word selection"),
 135               BOOL (Rs_insecure, "insecure", "insecure", Opt_insecure, "enable possibly insecure escape sequences"),
 136 #endif
 137 #ifdef CURSOR_BLINK
 138               BOOL (Rs_cursorBlink, "cursorBlink", "bc", Opt_cursorBlink, "blinking cursor"),
 139 #endif
 140 #ifdef POINTER_BLANK
 141               BOOL (Rs_pointerBlank, "pointerBlank", "pb", Opt_pointerBlank, "switch off pointer after delay"),
 142 #endif
 143               STRG (Rs_color + Color_bg, "background", "bg", "color", "background color"),
 144               STRG (Rs_color + Color_fg, "foreground", "fg", "color", "foreground color"),
 145               RSTRG (Rs_color + minCOLOR + 0, "color0", "color"),
 146               RSTRG (Rs_color + minCOLOR + 1, "color1", "color"),
 147               RSTRG (Rs_color + minCOLOR + 2, "color2", "color"),
 148               RSTRG (Rs_color + minCOLOR + 3, "color3", "color"),
 149               RSTRG (Rs_color + minCOLOR + 4, "color4", "color"),
 150               RSTRG (Rs_color + minCOLOR + 5, "color5", "color"),
 151               RSTRG (Rs_color + minCOLOR + 6, "color6", "color"),
 152               RSTRG (Rs_color + minCOLOR + 7, "color7", "color"),
 153 #ifndef NO_BRIGHTCOLOR
 154               RSTRG (Rs_color + minBrightCOLOR + 0, "color8", "color"),
 155               RSTRG (Rs_color + minBrightCOLOR + 1, "color9", "color"),
 156               RSTRG (Rs_color + minBrightCOLOR + 2, "color10", "color"),
 157               RSTRG (Rs_color + minBrightCOLOR + 3, "color11", "color"),
 158               RSTRG (Rs_color + minBrightCOLOR + 4, "color12", "color"),
 159               RSTRG (Rs_color + minBrightCOLOR + 5, "color13", "color"),
 160               RSTRG (Rs_color + minBrightCOLOR + 6, "color14", "color"),
 161               RSTRG (Rs_color + minBrightCOLOR + 7, "color15", "color"),
 162 #endif                          /* NO_BRIGHTCOLOR */
 163 #ifndef NO_BOLD_UNDERLINE_REVERSE
 164               RSTRG (Rs_color + Color_BD, "colorBD", "color"),
 165               RSTRG (Rs_color + Color_IT, "colorIT", "color"),
 166               RSTRG (Rs_color + Color_UL, "colorUL", "color"),
 167               RSTRG (Rs_color + Color_RV, "colorRV", "color"),
 168 #endif                          /* ! NO_BOLD_UNDERLINE_REVERSE */
 169 #if ENABLE_FRILLS
 170               RSTRG (Rs_color + Color_underline, "underlineColor", "color"),
 171 #endif
 172 #ifdef KEEP_SCROLLCOLOR
 173               RSTRG (Rs_color + Color_scroll, "scrollColor", "color"),
 174               RSTRG (Rs_color + Color_trough, "troughColor", "color"),
 175 #endif                          /* KEEP_SCROLLCOLOR */
 176 #ifdef OPTION_HC
 177               STRG (Rs_color + Color_HC, "highlightColor", "hc", "color", "highlight color"),
 178 #endif
 179 #if defined (XPM_BACKGROUND) || (MENUBAR_MAX)
 180               RSTRG (Rs_path, "path", "search path"),
 181 #endif                          /* defined (XPM_BACKGROUND) || (MENUBAR_MAX) */
 182 #ifdef XPM_BACKGROUND
 183               STRG (Rs_backgroundPixmap, "backgroundPixmap", "pixmap", "file[;geom]", "background pixmap"),
 184 #endif                          /* XPM_BACKGROUND */
 185 #if (MENUBAR_MAX)
 186               RSTRG (Rs_menu, "menu", "name[;tag]"),
 187 #endif
 188               /* fonts: command-line option = resource name */
 189               STRG (Rs_font, "font", "fn", "fontname", "normal text font"),
 190 #if ENABLE_STYLES
 191               STRG (Rs_boldFont, "boldFont", "fb", "fontname", "bold font"),
 192               STRG (Rs_italicFont, "italicFont", "fi", "fontname", "italic font"),
 193               STRG (Rs_boldItalicFont, "boldItalicFont", "fbi", "fontname", "bold italic font"),
 194 #endif
 195 #ifdef USE_XIM
 196               STRG (Rs_inputMethod, "inputMethod", "im", "name", "name of input method"),
 197               STRG (Rs_preeditType, "preeditType", "pt", "style", "input style: style = OverTheSpot|OffTheSpot|Root"),
 198 #if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
 199               STRG (Rs_imLocale, "imLocale", "imlocale", "string", "locale to use for input method"),
 200 #endif
 201 #endif                          /* USE_XIM */
 202               STRG (Rs_name, NULL, "name", "string", "client instance, icon, and title strings"),
 203               STRG (Rs_title, "title", "title", "string", "title name for window"),
 204               STRG (Rs_title, NULL, "T", NULL, NULL),   /* short form */
 205               STRG (Rs_iconName, "iconName", "n", "string", "icon name for window"),
 206 #ifndef NO_CURSORCOLOR
 207               STRG (Rs_color + Color_cursor, "cursorColor", "cr", "color", "cursor color"),
 208               /* command-line option = resource name */
 209               RSTRG (Rs_color + Color_cursor2, "cursorColor2", "color"),
 210 #endif                          /* NO_CURSORCOLOR */
 211               STRG (Rs_color + Color_pointer_fg, "pointerColor", "pr", "color", "pointer color"),
 212               STRG (Rs_color + Color_pointer_bg, "pointerColor2", "pr2", "color", "pointer bg color"),
 213               STRG (Rs_color + Color_border, "borderColor", "bd", "color", "border color"),
 214               STRG (Rs_saveLines, "saveLines", "sl", "number", "number of scrolled lines to save"),
 215 #if ENABLE_FRILLS
 216               STRG (Rs_ext_bwidth, "externalBorder", "w", "number", "external border in pixels"),
 217               STRG (Rs_ext_bwidth, NULL, "bw", NULL, NULL),
 218               STRG (Rs_ext_bwidth, NULL, "borderwidth", NULL, NULL),
 219               STRG (Rs_int_bwidth, "internalBorder", "b", "number", "internal border in pixels"),
 220               BOOL (Rs_borderLess, "borderLess", "bl", Opt_borderLess, "borderless window"),
 221 #endif
 222 #ifndef NO_LINESPACE
 223               STRG (Rs_lineSpace, "lineSpace", "lsp", "number", "number of extra pixels between rows"),
 224 #endif
 225               STRG (Rs_scrollBar_thickness, "thickness", "sbt", "number", "scrollbar thickness/width in pixels"),
 226 #ifdef POINTER_BLANK
 227               RSTRG (Rs_pointerBlankDelay, "pointerBlankDelay", "number"),
 228 #endif
 229 #ifndef NO_BACKSPACE_KEY
 230               RSTRG (Rs_backspace_key, "backspacekey", "string"),
 231 #endif
 232 #ifndef NO_DELETE_KEY
 233               RSTRG (Rs_delete_key, "deletekey", "string"),
 234 #endif
 235               RSTRG (Rs_selectstyle, "selectstyle", "mode"),
 236               RSTRG (Rs_scrollstyle, "scrollstyle", "mode"),
 237 #ifdef HAVE_SCROLLBARS
 238               RSTRG (Rs_scrollBar_align, "scrollBar_align", "mode"),
 239 #endif
 240 #ifdef PRINTPIPE
 241               RSTRG (Rs_print_pipe, "print-pipe", "string"),
 242 #endif
 243               STRG (Rs_modifier, "modifier", "mod", "modifier", "meta modifier = alt|meta|hyper|super|mod1|...|mod5"),
 244               INFO ("xrm", "string", "X resource"),
 245 #ifdef CUTCHAR_RESOURCE
 246               RSTRG (Rs_cutchars, "cutchars", "string"),
 247 #endif                          /* CUTCHAR_RESOURCE */
 248               RSTRG (Rs_answerbackstring, "answerbackString", "string"),
 249 #ifndef NO_SECONDARY_SCREEN
 250               BOOL (Rs_secondaryScreen, "secondaryScreen", "ssc", Opt_secondaryScreen, "enable secondary screen"),
 251               BOOL (Rs_secondaryScroll, "secondaryScroll", "ssr", Opt_secondaryScroll, "enable secondary screen scroll"),
 252 #endif
 253               INFO ("e", "command arg ...", "command to execute")
 254             };
 255
 256 #undef INFO
 257 #undef STRG
 258 #undef RSTRG
 259 #undef SWCH
 260 #undef BOOL
 261 /*}}} */
 262
 263 static const char releasestring[] = "rxvt-unicode (" RXVTNAME ") v" VERSION " - released: " DATE "\n";
 264 static const char optionsstring[] = "options: "
 265 #if XFT
 266                                     "xft,"
 267 #endif
 268 #if ENABLE_STYLES
 269                                     "styles,"
 270 #endif
 271 #if ENABLE_COMBINING
 272                                     "combining,"
 273 #endif
 274 #if TEXT_BLINK
 275                                     "blink,"
 276 #endif
 277 #if ISO_14755
 278                                     "iso14755,"
 279 #endif
 280 #if UNICODE_3
 281                                     "unicode3,"
 282 #endif
 283                                     "encodings=eu+vn"
 284 #if ENCODING_JP
 285                                     "+jp"
 286 #endif
 287 #if ENCODING_JP_EXT
 288                                     "+jp-ext"
 289 #endif
 290 #if ENCODING_KR
 291                                     "+kr"
 292 #endif
 293 #if ENCODING_ZH
 294                                     "+zh"
 295 #endif
 296 #if ENCODING_ZH_EXT
 297                                     "+zh-ext"
 298 #endif
 299                                     ","
 300 #if OFF_FOCUS_FADING
 301                                     "fade,"
 302 #endif
 303 #if defined(XPM_BACKGROUND)
 304                                     "XPM,"
 305 #endif
 306 #if defined(TRANSPARENT)
 307                                     "transparent,"
 308 #endif
 309 #if TINTING
 310                                     "tint,"
 311 #endif
 312 #if defined(UTMP_SUPPORT)
 313                                     "utmp,"
 314 #endif
 315 #if defined(MENUBAR)
 316                                     "menubar,"
 317 #endif
 318 #if defined(USE_XIM)
 319                                     "XIM,"
 320 #endif
 321                                     "scrollbars="
 322 #if !defined(HAVE_SCROLLBARS)
 323                                     "NONE"
 324 #else
 325 # if defined(PLAIN_SCROLLBAR)
 326                                     "plain"
 327 #  if defined(RXVT_SCROLLBAR) || defined(NEXT_SCROLLBAR) || defined(XTERM_SCROLLBAR)
 328                                     "+"
 329 #  endif
 330 # endif
 331 # if defined(RXVT_SCROLLBAR)
 332                                     "rxvt"
 333 #  if defined(NEXT_SCROLLBAR) || defined(XTERM_SCROLLBAR)
 334                                     "+"
 335 #  endif
 336 # endif
 337 # if defined(NEXT_SCROLLBAR)
 338                                     "NeXT"
 339 #  if defined(XTERM_SCROLLBAR)
 340                                     "+"
 341 #  endif
 342 # endif
 343 # if defined(XTERM_SCROLLBAR)
 344                                     "xterm"
 345 # endif
 346 #endif
 347                                     ","
 348 #if defined(NO_BACKSPACE_KEY)
 349                                     "no_backspace,"
 350 #endif
 351 #if defined(NO_DELETE_KEY)
 352                                     "no_delete,"
 353 #endif
 354 #if EIGHT_BIT_CONTROLS
 355                                     "8bitctrls,"
 356 #endif
 357 #if !defined(NO_STRINGS)
 358                                     "strings,"
 359 #endif
 360 #if defined(ENABLE_FRILLS)
 361                                     "frills,"
 362 #endif
 363 #if !defined(NO_LINESPACE)
 364                                     "linespace,"
 365 #endif
 366 #if defined(PREFER_24BIT)
 367                                     "24bit,"
 368 #endif
 369 #if defined(SELECTION_SCROLLING)
 370                                     "selectionscrolling,"
 371 #endif
 372 #if MOUSE_WHEEL
 373                                     "wheel,"
 374 #endif
 375 #if MOUSE_SLIP_WHEELING
 376                                     "slipwheel,"
 377 #endif
 378 #if defined(SMART_RESIZE)
 379                                     "smart-resize,"
 380 #endif
 381 #if defined(CURSOR_BLINK)
 382                                     "cursorBlink,"
 383 #endif
 384 #if defined(POINTER_BLANK)
 385                                     "pointerBlank,"
 386 #endif
 387 #if defined(NO_RESOURCES)
 388                                     "NoResources"
 389 #else
 390 # if defined(USE_XGETDEFAULT)
 391                                     "XGetDefaults"
 392 # else
 393                                     ".Xdefaults"
 394 # endif
 395 #endif
 396                                     "\nUsage: ";                /* Usage */
 397
 398 #define INDENT 18
 399
 400 /*{{{ usage: */
 401 /*----------------------------------------------------------------------*/
 402 static void
 403 rxvt_usage (int type)
 404 {
 405   unsigned int i, col;
 406
 407   rxvt_log ("%s%s%s", releasestring, optionsstring, RESNAME);
 408
 409   switch (type)
 410     {
 411       case 0:                   /* brief listing */
 412         rxvt_log (" [-help] [--help]\n");
 413
 414         for (col = 1, i = 0; i < optList_size (); i++)
 415           if (optList[i].desc != NULL)
 416             {
 417               int             len = 0;
 418
 419               if (!optList_isBool (i))
 420                 {
 421                   len = optList_strlen (i);
 422                   if (len > 0)
 423                     len++;      /* account for space */
 424                 }
 425 #ifdef DEBUG_STRICT
 426               assert (optList[i].opt != NULL);
 427 #endif
 428               len += 4 + strlen (optList[i].opt) + (optList_isBool (i) ? 2: 0);
 429               col += len;
 430               if (col > 79)
 431                 {       /* assume regular width */
 432                   rxvt_log ("\n");
 433                   col = 1 + len;
 434                 }
 435
 436               rxvt_log (" [-%s%s", (optList_isBool (i) ? "/+" : ""), optList[i].opt);
 437               if (optList_strlen (i))
 438                 rxvt_log (" %s]", optList[i].arg);
 439               else
 440                 rxvt_log ("]");
 441             }
 442         break;
 443
 444       case 1:                   /* full command-line listing */
 445         rxvt_log (" [options] [-e command args]\n\nwhere options include:\n");
 446
 447         for (i = 0; i < optList_size (); i++)
 448           if (optList[i].desc != NULL)
 449             {
 450 #ifdef DEBUG_STRICT
 451               assert (optList[i].opt != NULL);
 452 #endif
 453               rxvt_log ("  %s%s %-*s%s%s\n",
 454                          (optList_isBool (i) ? "-/+" : "-"), optList[i].opt,
 455                          (INDENT - strlen (optList[i].opt)
 456                           + (optList_isBool (i) ? 0 : 2)),
 457                          (optList[i].arg ? optList[i].arg : ""),
 458                          (optList_isBool (i) ? "turn on/off " : ""),
 459                          optList[i].desc);
 460             }
 461         rxvt_log ("\n  --help to list long-options");
 462         break;
 463
 464       case 2:                   /* full resource listing */
 465         rxvt_log (" [options] [-e command args]\n\n"
 466                    "where resources (long-options) include:\n");
 467
 468         for (i = 0; i < optList_size (); i++)
 469           if (optList[i].kw != NULL)
 470             rxvt_log ("  %s: %*s%s\n",
 471                     optList[i].kw,
 472                     (INDENT - strlen (optList[i].kw)), "", /* XXX */
 473                     (optList_isBool (i) ? "boolean" : optList[i].arg));
 474 #ifdef KEYSYM_RESOURCE
 475         rxvt_log ("  " "keysym.sym" ": %*s%s\n",
 476                 (INDENT - sizeof ("keysym.sym") + 1), "", /* XXX */
 477                 "keysym");
 478 #endif
 479         rxvt_log ("\n  -help to list options");
 480         break;
 481     }
 482
 483   rxvt_log ("\n\n");
 484   rxvt_exit_failure ();
 485   /* NOTREACHED */
 486 }
 487
 488 /*}}} */
 489
 490 /*{{{ get command-line options before getting resources */
 491 void
 492 rxvt_term::get_options (int argc, const char *const *argv)
 493 {
 494   int             i, bad_option = 0;
 495   static const char On[3] = "ON", Off[4] = "OFF";
 496
 497   for (i = 1; i < argc; i++)
 498     {
 499       unsigned int    entry, longopt = 0;
 500       const char     *flag, *opt;
 501
 502       opt = argv[i];
 503 #ifdef DEBUG_RESOURCES
 504       fprintf (stderr, "argv[%d] = %s: ", i, opt);
 505 #endif
 506       if (*opt == '-')
 507         {
 508           flag = On;
 509           if (*++opt == '-')
 510             longopt = *opt++;   /* long option */
 511         }
 512       else if (*opt == '+')
 513         {
 514           flag = Off;
 515           if (*++opt == '+')
 516             longopt = *opt++;   /* long option */
 517         }
 518       else
 519         {
 520           bad_option = 1;
 521           rxvt_warn ("\"%s\": malformed option.\n", opt);
 522           continue;
 523         }
 524
 525       if (!strcmp (opt, "help"))
 526         rxvt_usage (longopt ? 2 : 1);
 527       if (!strcmp (opt, "h"))
 528         rxvt_usage (0);
 529
 530       /* feature: always try to match long-options */
 531       for (entry = 0; entry < optList_size (); entry++)
 532         if ((optList[entry].kw && !strcmp (opt, optList[entry].kw))
 533             || (!longopt
 534                 && optList[entry].opt && !strcmp (opt, optList[entry].opt)))
 535           break;
 536
 537       if (entry < optList_size ())
 538         {
 539           if (optList_isReverse (entry))
 540             flag = flag == On ? Off : On;
 541
 542           if (optList_strlen (entry))
 543             {
 544               /*
 545                * special cases are handled in main.c:main () to allow
 546                * X resources to set these values before we settle for
 547                * default values
 548                */
 549
 550               if (optList[entry].doff != -1)
 551                 rs[optList[entry].doff] = flag == On && argv[i+1]
 552                                           ? argv[++i] : 0;
 553             }
 554           else
 555             {           /* boolean value */
 556 #ifdef DEBUG_RESOURCES
 557               fprintf (stderr, "boolean (%s,%s) = %s\n",
 558                       optList[entry].opt, optList[entry].kw, flag);
 559 #endif
 560               if (flag == On)
 561                 options |= (optList[entry].flag);
 562               else
 563                 options &= ~ (optList[entry].flag);
 564
 565               if (optList[entry].doff != -1)
 566                 rs[optList[entry].doff] = flag;
 567             }
 568         }
 569       else
 570 #ifdef KEYSYM_RESOURCE
 571         /* if (!strncmp (opt, "keysym.", sizeof ("keysym.") - 1)) */
 572         if (rxvt_Str_match (opt, "keysym."))
 573           {
 574             const char *str = argv[++i];
 575
 576             if (str != NULL)
 577               parse_keysym (opt + sizeof ("keysym.") - 1, str);
 578           }
 579         else
 580 #endif
 581           {
 582             bad_option = 1;
 583             rxvt_warn ("\"%s\": unknown or malformed option.\n", opt);
 584           }
 585     }
 586
 587   if (bad_option)
 588     rxvt_usage (0);
 589 }
 590
 591 /*}}} */
 592
 593 #ifndef NO_RESOURCES
 594 /*----------------------------------------------------------------------*/
 595
 596 # ifdef KEYSYM_RESOURCE
 597 /*
 598  * Define key from XrmEnumerateDatabase.
 599  *   quarks will be something like
 600  *      "rxvt" "keysym" "0xFF01"
 601  *   value will be a string
 602  */
 603 /* ARGSUSED */
 604 int
 605 rxvt_define_key (XrmDatabase *database __attribute__((unused)),
 606                  XrmBindingList bindings __attribute__((unused)),
 607                  XrmQuarkList quarks,
 608                  XrmRepresentation *type __attribute__((unused)),
 609                  XrmValue *value,
 610                  XPointer closure __attribute__((unused)))
 611 {
 612   int             last;
 613
 614   for (last = 0; quarks[last] != NULLQUARK; last++)     /* look for last quark in list */
 615     ;
 616   last--;
 617   GET_R->parse_keysym (XrmQuarkToString (quarks[last]), (char *)value->addr);//D//TODO
 618   return False;
 619 }
 620
 621 /*
 622  * look for something like this (XK_Delete)
 623  * rxvt*keysym.0xFFFF: "\177"
 624  *
 625  * arg will be
 626  *      NULL for ~/.Xdefaults and
 627  *      non-NULL for command-line options (need to allocate)
 628  */
 629 #define NEWARGLIM       500     /* `reasonable' size */
 630 int
 631 rxvt_term::parse_keysym (const char *str, const char *arg)
 632 {
 633   int             n, sym;
 634   char           *key_string, *newarg = NULL;
 635   char            newargstr[NEWARGLIM];
 636
 637   if (arg == NULL)
 638     {
 639       if ((n = rxvt_Str_match (str, "keysym.")) == 0)
 640         return 0;
 641       str += n;         /* skip `keysym.' */
 642     }
 643   /* some scanf () have trouble with a 0x prefix */
 644   if (isdigit (str[0]))
 645     {
 646       if (str[0] == '0' && toupper (str[1]) == 'X')
 647         str += 2;
 648       if (arg)
 649         {
 650           if (sscanf (str, (strchr (str, ':') ? "%x:" : "%x"), &sym) != 1)
 651             return -1;
 652         }
 653       else
 654         {
 655           if (sscanf (str, "%x:", &sym) != 1)
 656             return -1;
 657
 658           /* cue to ':', it's there since sscanf () worked */
 659           strncpy (newargstr, strchr (str, ':') + 1, NEWARGLIM - 1);
 660           newargstr[NEWARGLIM - 1] = '\0';
 661           newarg = newargstr;
 662         }
 663     }
 664   else
 665     {
 666       /*
 667        * convert keysym name to keysym number
 668        */
 669       strncpy (newargstr, str, NEWARGLIM - 1);
 670       newargstr[NEWARGLIM - 1] = '\0';
 671       if (arg == NULL)
 672         {
 673           if ((newarg = strchr (newargstr, ':')) == NULL)
 674             return -1;
 675           *newarg++ = '\0';     /* terminate keysym name */
 676         }
 677       if ((sym = XStringToKeysym (newargstr)) == None)
 678         return -1;
 679     }
 680
 681   if (sym < 0xFF00 || sym > 0xFFFF)     /* we only do extended keys */
 682     return -1;
 683   sym &= 0xFF;
 684   if (Keysym_map[sym] != NULL)  /* already set ? */
 685     return -1;
 686
 687   if (newarg == NULL)
 688     {
 689       strncpy (newargstr, arg, NEWARGLIM - 1);
 690       newargstr[NEWARGLIM - 1] = '\0';
 691       newarg = newargstr;
 692     }
 693   rxvt_Str_trim (newarg);
 694   if (*newarg == '\0' || (n = rxvt_Str_escaped (newarg)) == 0)
 695     return -1;
 696   MIN_IT (n, 255);
 697   key_string = (char *)rxvt_malloc ((n + 1) * sizeof (char));
 698
 699   key_string[0] = n;
 700   strncpy (key_string + 1, newarg, n);
 701   Keysym_map[sym] = (unsigned char *)key_string;
 702
 703   return 1;
 704 }
 705
 706 # endif                         /* KEYSYM_RESOURCE */
 707
 708 # ifndef USE_XGETDEFAULT
 709 /*{{{ rxvt_get_xdefaults () */
 710 /*
 711  * the matching algorithm used for memory-save fake resources
 712  */
 713 void
 714 rxvt_term::get_xdefaults (FILE *stream, const char *name)
 715 {
 716   unsigned int len;
 717   char *str, buffer[256];
 718
 719   if (stream == NULL)
 720     return;
 721
 722   len = strlen (name);
 723   while ((str = fgets (buffer, sizeof (buffer), stream)) != NULL)
 724     {
 725       unsigned int    entry, n;
 726
 727       while (*str && isspace (*str))
 728         str++;          /* leading whitespace */
 729
 730       if ((str[len] != '*' && str[len] != '.')
 731           || (len && strncmp (str, name, len)))
 732         continue;
 733       str += (len + 1); /* skip `name*' or `name.' */
 734
 735 # ifdef KEYSYM_RESOURCE
 736       if (!parse_keysym (str, NULL))
 737 # endif                         /* KEYSYM_RESOURCE */
 738         for (entry = 0; entry < optList_size (); entry++)
 739           {
 740             const char *kw = optList[entry].kw;
 741
 742             if (kw == NULL)
 743               continue;
 744
 745             n = strlen (kw);
 746             if (str[n] == ':' && rxvt_Str_match (str, kw))
 747               {
 748                 /* skip `keyword:' */
 749                 str += n + 1;
 750                 rxvt_Str_trim (str);
 751                 n = strlen (str);
 752                 if (n && rs[optList[entry].doff] == NULL)
 753                   {
 754                     /* not already set */
 755                     int s;
 756                     char *p = 0;
 757
 758                     for (int o = 0;;)
 759                       {
 760                         p = (char *)rxvt_realloc (p, o + n + 1);
 761                         memcpy (p + o, str, n);
 762                         o += n;
 763                         p[o] = 0;
 764
 765                         if (o == 0 || p[o - 1] != '\\') // continuation line
 766                           break;
 767
 768                         o--; // eat "\"
 769
 770                         if ((str = fgets (buffer, sizeof (buffer), stream)) == NULL)
 771                           break;
 772
 773                         rxvt_Str_trim (str);
 774                         n = strlen (str);
 775                       }
 776
 777                     rs[optList[entry].doff] = p;
 778                     allocated.push_back (p);
 779
 780                     if (optList_isBool (entry))
 781                       {
 782                         s = strcasecmp (str, "TRUE") == 0
 783                             || strcasecmp (str, "YES") == 0
 784                             || strcasecmp (str, "ON") == 0
 785                             || strcasecmp (str, "1") == 0;
 786
 787                         if (optList_isReverse (entry))
 788                           s = !s;
 789
 790                         if (s)
 791                           options |= optList[entry].flag;
 792                         else
 793                           options &= ~optList[entry].flag;
 794                       }
 795                   }
 796
 797                 break;
 798               }
 799           }
 800     }
 801
 802   rewind (stream);
 803 }
 804
 805 /*}}} */
 806 # endif                         /* ! USE_XGETDEFAULT */
 807 #endif                          /* NO_RESOURCES */
 808
 809 /*{{{ read the resources files */
 810 /*
 811  * using XGetDefault () or the hand-rolled replacement
 812  */
 813 /* ARGSUSED */
 814 void
 815 rxvt_term::extract_resources (Display *display __attribute__ ((unused)), const char *name)
 816 {
 817 #ifndef NO_RESOURCES
 818
 819 # if defined XAPPLOADDIR
 820 #  if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
 821   /* Compute the path of the possibly available localized Rxvt file */
 822   char *localepath = NULL;
 823
 824   if (locale != NULL)
 825     {   /* XXX: must limit length of string */
 826       localepath = (char *)rxvt_malloc (256);
 827       sprintf (localepath, XAPPLOADDIRLOCALE "/" RESCLASS,
 828               (int) (258 - sizeof (XAPPLOADDIRLOCALE) - sizeof (RESCLASS)),
 829               locale);  /* 258 = 255 + 4 (-.*s) - 1 (/) */
 830     }
 831
 832   {
 833 #  endif
 834 # endif
 835
 836 # ifdef USE_XGETDEFAULT
 837     /*
 838      * get resources using the X library function
 839      */
 840     int entry;
 841
 842 #  ifdef XrmEnumOneLevel
 843     int i;
 844     char *displayResource, *xe;
 845     XrmName name_prefix[3];
 846     XrmClass class_prefix[3];
 847     XrmDatabase database, rdb1;
 848     char fname[1024];
 849
 850     XrmInitialize ();
 851     database = NULL;
 852
 853     /* Get any Xserver defaults */
 854
 855     displayResource = XResourceManagerString (display);
 856     if (displayResource != NULL)
 857       database = XrmGetStringDatabase (displayResource);
 858
 859 #   ifdef HAVE_EXTRA_XRESOURCE_FILES
 860     /* Add in ~/.Xdefaults or ~/.Xresources */
 861     {
 862       char *ptr;
 863
 864       if ((ptr = (char *)getenv ("HOME")) == NULL)
 865         ptr = ".";
 866
 867       for (i = 0; i < (sizeof (xnames) / sizeof (xnames[0])); i++)
 868         {
 869           sprintf (fname, "%-.*s/%s", sizeof (fname) - strlen (xnames[i]) - 2,
 870                   ptr, xnames[i]);
 871           if ((rdb1 = XrmGetFileDatabase (fname)))
 872             {
 873               XrmMergeDatabases (rdb1, &database);
 874 #    ifndef HAVE_BOTH_XRESOURCE_FILES
 875               break;
 876 #    endif
 877
 878             }
 879         }
 880     }
 881 #   endif
 882
 883     /* Add in XENVIRONMENT file */
 884
 885     if ((xe = (char *)getenv ("XENVIRONMENT")) != NULL
 886         && (rdb1 = XrmGetFileDatabase (xe)) != NULL)
 887       XrmMergeDatabases (rdb1, &database);
 888
 889     /* Add in Rxvt file */
 890 #   if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
 891     if (localepath == NULL || (rdb1 = XrmGetFileDatabase (localepath)) == NULL)
 892 #   endif
 893       rdb1 = XrmGetFileDatabase (XAPPLOADDIR "/" RESCLASS);
 894
 895     if (rdb1 != NULL)
 896       XrmMergeDatabases (rdb1, &database);
 897
 898     /* Add in $XAPPLRESDIR/Rxvt only; not bothering with XUSERFILESEARCHPATH */
 899     if ((xe = (char *)getenv ("XAPPLRESDIR")) != NULL)
 900       {
 901         sprintf (fname, "%-.*s/" RESCLASS, sizeof (fname)
 902                 - sizeof (RESCLASS) - 2, xe);
 903         if ((rdb1 = XrmGetFileDatabase (fname)) != NULL)
 904           XrmMergeDatabases (rdb1, &database);
 905       }
 906
 907     XrmSetDatabase (display, database);
 908 #  endif
 909
 910     /*
 911      * Query resources for options that affect us
 912      */
 913     for (entry = 0; entry < optList_size (); entry++)
 914       {
 915         int             s;
 916         char           *p, *p0;
 917         const char     *kw = optList[entry].kw;
 918
 919         if (kw == NULL || rs[optList[entry].doff] != NULL)
 920           continue;             /* previously set */
 921
 922         p = XGetDefault (display, name, kw);
 923         p0 = XGetDefault (display, "!INVALIDPROGRAMMENAMEDONTMATCH!", kw);
 924         if (p == NULL || (p0 && strcmp (p, p0) == 0))
 925           {
 926             p = XGetDefault (display, RESCLASS, kw);
 927 #ifdef RESFALLBACK
 928             if (p == NULL || (p0 && strcmp (p, p0) == 0))
 929               p = XGetDefault (display, RESFALLBACK, kw);
 930 #endif
 931           }
 932
 933         if (p == NULL && p0)
 934           p = p0;
 935
 936         if (p)
 937           {
 938             rs[optList[entry].doff] = p;
 939
 940             if (optList_isBool (entry))
 941               {
 942                 s = strcasecmp (p, "TRUE") == 0
 943                     || strcasecmp (p, "YES") == 0
 944                     || strcasecmp (p, "ON") == 0
 945                     || strcasecmp (p, "1") == 0;
 946                 if (optList_isReverse (entry))
 947                   s = !s;
 948                 if (s)
 949                   options |= (optList[entry].flag);
 950                 else
 951                   options &= ~ (optList[entry].flag);
 952               }
 953           }
 954       }
 955
 956     /*
 957      * [R5 or later]: enumerate the resource database
 958      */
 959 #  ifdef XrmEnumOneLevel
 960 #   ifdef KEYSYM_RESOURCE
 961     name_prefix[0] = XrmStringToName (name);
 962     name_prefix[1] = XrmStringToName ("keysym");
 963     name_prefix[2] = NULLQUARK;
 964     class_prefix[0] = XrmStringToName (RESCLASS);
 965     class_prefix[1] = XrmStringToName ("Keysym");
 966     class_prefix[2] = NULLQUARK;
 967     /* XXX: Need to check sizeof (rxvt_t) == sizeof (XPointer) */
 968     XrmEnumerateDatabase (XrmGetDatabase (display), name_prefix, class_prefix,
 969                           XrmEnumOneLevel, rxvt_define_key, NULL);
 970 #    ifdef RESFALLBACK
 971     name_prefix[0] = XrmStringToName (RESFALLBACK);
 972     name_prefix[1] = XrmStringToName ("keysym");
 973     class_prefix[0] = XrmStringToName (RESFALLBACK);
 974     class_prefix[1] = XrmStringToName ("Keysym");
 975     /* XXX: Need to check sizeof (rxvt_t) == sizeof (XPointer) */
 976     XrmEnumerateDatabase (XrmGetDatabase (display), name_prefix, class_prefix,
 977                           XrmEnumOneLevel, rxvt_define_key, NULL);
 978 #    endif
 979 #   endif
 980 #  endif
 981
 982 # else                          /* USE_XGETDEFAULT */
 983     /* get resources the hard way, but save lots of memory */
 984     FILE           *fd = NULL;
 985     char           *home;
 986
 987     if ((home = getenv ("HOME")) != NULL)
 988       {
 989         unsigned int    i, len = strlen (home) + 2;
 990         char           *f = NULL;
 991
 992         for (i = 0; i < (sizeof (xnames) / sizeof (xnames[0])); i++)
 993           {
 994             f = (char *)rxvt_realloc (f, (len + strlen (xnames[i])) * sizeof (char));
 995
 996             sprintf (f, "%s/%s", home, xnames[i]);
 997
 998             if ((fd = fopen (f, "r")) != NULL)
 999               break;
1000           }
1001         free (f);
1002       }
1003     /*
1004     * The normal order to match resources is the following:
1005     * @ global resources (partial match, ~/.Xdefaults)
1006     * @ application file resources (XAPPLOADDIR/Rxvt)
1007     * @ class resources (~/.Xdefaults)
1008     * @ private resources (~/.Xdefaults)
1009     *
1010     * However, for the hand-rolled resources, the matching algorithm
1011     * checks if a resource string value has already been allocated
1012     * and won't overwrite it with (in this case) a less specific
1013     * resource value.
1014     *
1015     * This avoids multiple allocation.  Also, when we've called this
1016     * routine command-line string options have already been applied so we
1017     * needn't to allocate for those resources.
1018     *
1019     * So, search in resources from most to least specific.
1020     *
1021     * Also, use a special sub-class so that we can use either or both of
1022     * "XTerm" and "Rxvt" as class names.
1023     */
1024
1025     get_xdefaults (fd, name);
1026     get_xdefaults (fd, RESCLASS);
1027 #  ifdef RESFALLBACK
1028     get_xdefaults (fd, RESFALLBACK);
1029 #  endif
1030
1031 #  if defined(XAPPLOADDIR) && defined(USE_XAPPLOADDIR)
1032     {
1033       FILE *ad = NULL;
1034
1035 #   if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
1036       if (localepath == NULL || (ad = fopen (localepath, "r")) == NULL)
1037 #   endif
1038         ad = fopen (XAPPLOADDIR "/" RESCLASS, "r");
1039       if (ad != NULL)
1040         {
1041           get_xdefaults (ad, RESCLASS);
1042           get_xdefaults (ad, "");
1043           fclose (ad);
1044         }
1045     }
1046 #  endif                        /* XAPPLOADDIR */
1047
1048     get_xdefaults (fd, "");     /* partial match */
1049     if (fd != NULL)
1050       fclose (fd);
1051 # endif                         /* USE_XGETDEFAULT */
1052
1053 # if defined XAPPLOADDIR
1054 #  if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
1055
1056   }
1057
1058   /* Free the path of the possibly available localized Rxvt file */
1059   free (localepath);
1060 #  endif
1061 # endif
1062
1063 #endif                          /* NO_RESOURCES */
1064 }
1065
1066 /*}}} */
1067 /*----------------------- end-of-file (C source) -----------------------*/