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 #include <sys/utsname.h>
  35
  36 #ifdef KEYSYM_RESOURCE
  37 #include "keyboard.h"
  38 #endif
  39
  40 /* #define DEBUG_RESOURCES */
  41
  42 /*{{{ monolithic option/resource structure: */
  43 /*
  44  * `string' options MUST have a usage argument
  45  * `switch' and `boolean' options have no argument
  46  * if there's no desc (ription), it won't appear in rxvt_usage ()
  47  */
  48
  49 /* INFO () - descriptive information only */
  50 #define INFO(opt, arg, desc)                                    \
  51     {0, -1, NULL, (opt), (arg), (desc)}
  52
  53 /* STRG () - command-line option, with/without resource */
  54 #define STRG(rsp, kw, opt, arg, desc)                           \
  55     {0, (rsp), (kw), (opt), (arg), (desc)}
  56
  57 /* RSTRG () - resource/long-option */
  58 #define RSTRG(rsp, kw, arg)                                     \
  59     {0, (rsp), (kw), NULL, (arg), NULL}
  60
  61 /* BOOL () - regular boolean `-/+' flag */
  62 #define BOOL(rsp, kw, opt, flag, desc)                          \
  63     { (Opt_Boolean| (flag)), (rsp), (kw), (opt), NULL, (desc)}
  64
  65 /* SWCH () - `-' flag */
  66 #define SWCH(opt, flag, desc)                                   \
  67     { (flag), -1, NULL, (opt), NULL, (desc)}
  68
  69 /* convenient macros */
  70 #define optList_strlen(i)                                               \
  71     (optList[i].flag ? 0 : (optList[i].arg ? strlen (optList[i].arg) : 1))
  72 #define optList_isBool(i)                                               \
  73     (optList[i].flag & Opt_Boolean)
  74 #define optList_isReverse(i)                                            \
  75     (optList[i].flag & Opt_Reverse)
  76 #define optList_size                                                    \
  77     (sizeof (optList) / sizeof (optList[0]))
  78
  79 static const struct
  80   {
  81     const unsigned long flag;   /* Option flag */
  82     const int       doff;       /* data offset */
  83     const char     *kw;         /* keyword */
  84     const char     *opt;        /* option */
  85     const char     *arg;        /* argument */
  86     const char     *desc;       /* description */
  87   }
  88 optList[] = {
  89               STRG (Rs_display_name, NULL, "d", NULL, NULL),    /* short form */
  90               STRG (Rs_display_name, NULL, "display", "string", "X server to contact"),
  91               STRG (Rs_term_name, "termName", "tn", "string", "value of the TERM environment variable"),
  92               STRG (Rs_geometry, NULL, "g", NULL, NULL),        /* short form */
  93               STRG (Rs_geometry, "geometry", "geometry", "geometry", "size (in characters) and position"),
  94               SWCH ("C", Opt_console, "intercept console messages"),
  95               SWCH ("iconic", Opt_iconic, "start iconic"),
  96               SWCH ("ic", Opt_iconic, NULL),    /* short form */
  97               BOOL (Rs_reverseVideo, "reverseVideo", "rv", Opt_reverseVideo, "reverse video"),
  98               BOOL (Rs_loginShell, "loginShell", "ls", Opt_loginShell, "login shell"),
  99               BOOL (Rs_jumpScroll, "jumpScroll", "j", Opt_jumpScroll, "jump scrolling"),
 100               BOOL (Rs_pastableTabs, "pastableTabs", "ptab", Opt_pastableTabs, "tab characters are pastable"),
 101 #ifdef HAVE_SCROLLBARS
 102               RSTRG (Rs_scrollstyle, "scrollstyle", "mode"),
 103               BOOL (Rs_scrollBar, "scrollBar", "sb", Opt_scrollBar, "scrollbar"),
 104               BOOL (Rs_scrollBar_right, "scrollBar_right", "sr", Opt_scrollBar_right, "scrollbar right"),
 105               BOOL (Rs_scrollBar_floating, "scrollBar_floating", "st", Opt_scrollBar_floating, "scrollbar without a trough"),
 106               RSTRG (Rs_scrollBar_align, "scrollBar_align", "mode"),
 107               STRG (Rs_scrollBar_thickness, "thickness", "sbt", "number", "scrollbar thickness/width in pixels"),
 108 #endif
 109               BOOL (Rs_scrollTtyOutput, "scrollTtyOutput", NULL, Opt_scrollTtyOutput, NULL),
 110               BOOL (Rs_scrollTtyOutput, NULL, "si", Opt_Reverse | Opt_scrollTtyOutput, "scroll-on-tty-output inhibit"),
 111               BOOL (Rs_scrollTtyKeypress, "scrollTtyKeypress", "sk", Opt_scrollTtyKeypress, "scroll-on-keypress"),
 112               BOOL (Rs_scrollWithBuffer, "scrollWithBuffer", "sw", Opt_scrollWithBuffer, "scroll-with-buffer"),
 113 #ifdef TRANSPARENT
 114               BOOL (Rs_transparent, "inheritPixmap", "ip", Opt_transparent, "inherit parent pixmap"),
 115               BOOL (Rs_transparent_all, "inheritPixmapforce", "ipf", Opt_transparent_all, "forcefully inherit root pixmap"),
 116               SWCH ("tr", Opt_transparent, NULL),
 117 #if TINTING
 118               STRG (Rs_color + Color_tint, "tintColor", "tint", "color", "tint color"),
 119 #endif
 120 #endif
 121 #ifdef OFF_FOCUS_FADING
 122               STRG (Rs_fade, "fading", "fade", "%", "make colors x% darker when rxvt-unicode is losing focus."),
 123 #endif
 124 #ifdef TINTING
 125               STRG (Rs_shade, "shading", "sh", "%", "shade background by x% when tinting."),
 126 #endif
 127               BOOL (Rs_utmpInhibit, "utmpInhibit", "ut", Opt_utmpInhibit, "utmp inhibit"),
 128 #ifndef NO_BELL
 129               BOOL (Rs_visualBell, "visualBell", "vb", Opt_visualBell, "visual bell"),
 130 # if ! defined(NO_MAPALERT) && defined(MAPALERT_OPTION)
 131               BOOL (Rs_mapAlert, "mapAlert", NULL, Opt_mapAlert, NULL),
 132 # endif
 133 #endif
 134 #ifdef META8_OPTION
 135               BOOL (Rs_meta8, "meta8", NULL, Opt_meta8, NULL),
 136 #endif
 137 #ifdef MOUSE_WHEEL
 138               BOOL (Rs_mouseWheelScrollPage, "mouseWheelScrollPage", NULL, Opt_mouseWheelScrollPage, NULL),
 139 #endif
 140 #if ENABLE_FRILLS
 141               BOOL (Rs_tripleclickwords, "tripleclickwords", "tcw", Opt_tripleclickwords, "triple click word selection"),
 142               BOOL (Rs_insecure, "insecure", "insecure", Opt_insecure, "enable possibly insecure escape sequences"),
 143 #endif
 144 #ifdef CURSOR_BLINK
 145               BOOL (Rs_cursorBlink, "cursorBlink", "bc", Opt_cursorBlink, "blinking cursor"),
 146 #endif
 147 #ifdef POINTER_BLANK
 148               BOOL (Rs_pointerBlank, "pointerBlank", "pb", Opt_pointerBlank, "switch off pointer after delay"),
 149 #endif
 150               STRG (Rs_color + Color_bg, "background", "bg", "color", "background color"),
 151               STRG (Rs_color + Color_fg, "foreground", "fg", "color", "foreground color"),
 152               RSTRG (Rs_color + minCOLOR + 0, "color0", "color"),
 153               RSTRG (Rs_color + minCOLOR + 1, "color1", "color"),
 154               RSTRG (Rs_color + minCOLOR + 2, "color2", "color"),
 155               RSTRG (Rs_color + minCOLOR + 3, "color3", "color"),
 156               RSTRG (Rs_color + minCOLOR + 4, "color4", "color"),
 157               RSTRG (Rs_color + minCOLOR + 5, "color5", "color"),
 158               RSTRG (Rs_color + minCOLOR + 6, "color6", "color"),
 159               RSTRG (Rs_color + minCOLOR + 7, "color7", "color"),
 160 #ifndef NO_BRIGHTCOLOR
 161               RSTRG (Rs_color + minBrightCOLOR + 0, "color8", "color"),
 162               RSTRG (Rs_color + minBrightCOLOR + 1, "color9", "color"),
 163               RSTRG (Rs_color + minBrightCOLOR + 2, "color10", "color"),
 164               RSTRG (Rs_color + minBrightCOLOR + 3, "color11", "color"),
 165               RSTRG (Rs_color + minBrightCOLOR + 4, "color12", "color"),
 166               RSTRG (Rs_color + minBrightCOLOR + 5, "color13", "color"),
 167               RSTRG (Rs_color + minBrightCOLOR + 6, "color14", "color"),
 168               RSTRG (Rs_color + minBrightCOLOR + 7, "color15", "color"),
 169 #endif                          /* NO_BRIGHTCOLOR */
 170 #ifndef NO_BOLD_UNDERLINE_REVERSE
 171               RSTRG (Rs_color + Color_BD, "colorBD", "color"),
 172               RSTRG (Rs_color + Color_IT, "colorIT", "color"),
 173               RSTRG (Rs_color + Color_UL, "colorUL", "color"),
 174               RSTRG (Rs_color + Color_RV, "colorRV", "color"),
 175 #endif                          /* ! NO_BOLD_UNDERLINE_REVERSE */
 176 #if ENABLE_FRILLS
 177               RSTRG (Rs_color + Color_underline, "underlineColor", "color"),
 178 #endif
 179 #ifdef KEEP_SCROLLCOLOR
 180               RSTRG (Rs_color + Color_scroll, "scrollColor", "color"),
 181               RSTRG (Rs_color + Color_trough, "troughColor", "color"),
 182 #endif                          /* KEEP_SCROLLCOLOR */
 183 #ifdef OPTION_HC
 184               STRG (Rs_color + Color_HC, "highlightColor", "hc", "color", "highlight color"),
 185 #endif
 186 #ifndef NO_CURSORCOLOR
 187               STRG (Rs_color + Color_cursor, "cursorColor", "cr", "color", "cursor color"),
 188               /* command-line option = resource name */
 189               RSTRG (Rs_color + Color_cursor2, "cursorColor2", "color"),
 190 #endif                          /* NO_CURSORCOLOR */
 191               STRG (Rs_color + Color_pointer_fg, "pointerColor", "pr", "color", "pointer color"),
 192               STRG (Rs_color + Color_pointer_bg, "pointerColor2", "pr2", "color", "pointer bg color"),
 193               STRG (Rs_color + Color_border, "borderColor", "bd", "color", "border color"),
 194 #if defined (XPM_BACKGROUND) || (MENUBAR_MAX)
 195               RSTRG (Rs_path, "path", "search path"),
 196 #endif                          /* defined (XPM_BACKGROUND) || (MENUBAR_MAX) */
 197 #ifdef XPM_BACKGROUND
 198               STRG (Rs_backgroundPixmap, "backgroundPixmap", "pixmap", "file[;geom]", "background pixmap"),
 199 #endif                          /* XPM_BACKGROUND */
 200 #if (MENUBAR_MAX)
 201               RSTRG (Rs_menu, "menu", "name[;tag]"),
 202 #endif
 203               /* fonts: command-line option = resource name */
 204               STRG (Rs_font, "font", "fn", "fontname", "normal text font"),
 205 #if ENABLE_STYLES
 206               STRG (Rs_boldFont, "boldFont", "fb", "fontname", "bold font"),
 207               STRG (Rs_italicFont, "italicFont", "fi", "fontname", "italic font"),
 208               STRG (Rs_boldItalicFont, "boldItalicFont", "fbi", "fontname", "bold italic font"),
 209 #endif
 210 #ifdef USE_XIM
 211               STRG (Rs_inputMethod, "inputMethod", "im", "name", "name of input method"),
 212               STRG (Rs_preeditType, "preeditType", "pt", "style", "input style: style = OverTheSpot|OffTheSpot|Root"),
 213               STRG (Rs_imLocale, "imLocale", "imlocale", "string", "locale to use for input method"),
 214               STRG (Rs_imFont, "imFont", "imfont", "fontname", "fontset for styles OverTheSpot and OffTheSpot"),
 215 #endif                          /* USE_XIM */
 216               STRG (Rs_name, NULL, "name", "string", "client instance, icon, and title strings"),
 217               STRG (Rs_title, "title", "title", "string", "title name for window"),
 218               STRG (Rs_title, NULL, "T", NULL, NULL),   /* short form */
 219               STRG (Rs_iconName, "iconName", "n", "string", "icon name for window"),
 220               STRG (Rs_saveLines, "saveLines", "sl", "number", "number of scrolled lines to save"),
 221 #if ENABLE_FRILLS
 222               STRG (Rs_ext_bwidth, "externalBorder", "w", "number", "external border in pixels"),
 223               STRG (Rs_ext_bwidth, NULL, "bw", NULL, NULL),
 224               STRG (Rs_ext_bwidth, NULL, "borderwidth", NULL, NULL),
 225               STRG (Rs_int_bwidth, "internalBorder", "b", "number", "internal border in pixels"),
 226               BOOL (Rs_borderLess, "borderLess", "bl", Opt_borderLess, "borderless window"),
 227               STRG (Rs_lineSpace, "lineSpace", "lsp", "number", "number of extra pixels between rows"),
 228 #endif
 229 #ifdef POINTER_BLANK
 230               RSTRG (Rs_pointerBlankDelay, "pointerBlankDelay", "number"),
 231 #endif
 232 #ifndef NO_BACKSPACE_KEY
 233               RSTRG (Rs_backspace_key, "backspacekey", "string"),
 234 #endif
 235 #ifndef NO_DELETE_KEY
 236               RSTRG (Rs_delete_key, "deletekey", "string"),
 237 #endif
 238               RSTRG (Rs_selectstyle, "selectstyle", "mode"),
 239 #ifdef PRINTPIPE
 240               RSTRG (Rs_print_pipe, "print-pipe", "string"),
 241 #endif
 242               STRG (Rs_modifier, "modifier", "mod", "modifier", "meta modifier = alt|meta|hyper|super|mod1|...|mod5"),
 243 #ifdef CUTCHAR_RESOURCE
 244               RSTRG (Rs_cutchars, "cutchars", "string"),
 245 #endif                          /* CUTCHAR_RESOURCE */
 246               RSTRG (Rs_answerbackstring, "answerbackString", "string"),
 247 #ifndef NO_SECONDARY_SCREEN
 248               BOOL (Rs_secondaryScreen, "secondaryScreen", "ssc", Opt_secondaryScreen, "enable secondary screen"),
 249               BOOL (Rs_secondaryScroll, "secondaryScroll", "ssr", Opt_secondaryScroll, "enable secondary screen scroll"),
 250 #endif
 251 #if 0 && TODO
 252 #if !defined(NO_RESOURCES) && defined(USE_XGETDEFAULT)
 253               INFO ("xrm", "string", "X resource"),
 254 #endif
 255 #endif
 256               INFO ("e", "command arg ...", "command to execute")
 257             };
 258
 259 #undef INFO
 260 #undef STRG
 261 #undef RSTRG
 262 #undef SWCH
 263 #undef BOOL
 264 /*}}} */
 265
 266 static const char releasestring[] = "rxvt-unicode (" RXVTNAME ") v" VERSION " - released: " DATE "\n";
 267 static const char optionsstring[] = "options: "
 268 #if XFT
 269                                     "xft,"
 270 #endif
 271 #if ENABLE_STYLES
 272                                     "styles,"
 273 #endif
 274 #if ENABLE_COMBINING
 275                                     "combining,"
 276 #endif
 277 #if TEXT_BLINK
 278                                     "blink,"
 279 #endif
 280 #if ISO_14755
 281                                     "iso14755,"
 282 #endif
 283 #if UNICODE_3
 284                                     "unicode3,"
 285 #endif
 286                                     "encodings=eu+vn"
 287 #if ENCODING_JP
 288                                     "+jp"
 289 #endif
 290 #if ENCODING_JP_EXT
 291                                     "+jp-ext"
 292 #endif
 293 #if ENCODING_KR
 294                                     "+kr"
 295 #endif
 296 #if ENCODING_ZH
 297                                     "+zh"
 298 #endif
 299 #if ENCODING_ZH_EXT
 300                                     "+zh-ext"
 301 #endif
 302                                     ","
 303 #if OFF_FOCUS_FADING
 304                                     "fade,"
 305 #endif
 306 #if defined(XPM_BACKGROUND)
 307                                     "XPM,"
 308 #endif
 309 #if defined(TRANSPARENT)
 310                                     "transparent,"
 311 #endif
 312 #if TINTING
 313                                     "tint,"
 314 #endif
 315 #if defined(UTMP_SUPPORT)
 316                                     "utmp,"
 317 #endif
 318 #if defined(MENUBAR)
 319                                     "menubar,"
 320 #endif
 321 #if defined(USE_XIM)
 322                                     "XIM,"
 323 #endif
 324                                     "scrollbars="
 325 #if !defined(HAVE_SCROLLBARS)
 326                                     "NONE"
 327 #else
 328 # if defined(PLAIN_SCROLLBAR)
 329                                     "plain"
 330 #  if defined(RXVT_SCROLLBAR) || defined(NEXT_SCROLLBAR) || defined(XTERM_SCROLLBAR)
 331                                     "+"
 332 #  endif
 333 # endif
 334 # if defined(RXVT_SCROLLBAR)
 335                                     "rxvt"
 336 #  if defined(NEXT_SCROLLBAR) || defined(XTERM_SCROLLBAR)
 337                                     "+"
 338 #  endif
 339 # endif
 340 # if defined(NEXT_SCROLLBAR)
 341                                     "NeXT"
 342 #  if defined(XTERM_SCROLLBAR)
 343                                     "+"
 344 #  endif
 345 # endif
 346 # if defined(XTERM_SCROLLBAR)
 347                                     "xterm"
 348 # endif
 349 #endif
 350                                     ","
 351 #if defined(NO_BACKSPACE_KEY)
 352                                     "no_backspace,"
 353 #endif
 354 #if defined(NO_DELETE_KEY)
 355                                     "no_delete,"
 356 #endif
 357 #if EIGHT_BIT_CONTROLS
 358                                     "8bitctrls,"
 359 #endif
 360 #if !defined(NO_STRINGS)
 361                                     "strings,"
 362 #endif
 363 #if defined(ENABLE_FRILLS)
 364                                     "frills,"
 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
 617   last--;
 618   GET_R->parse_keysym (XrmQuarkToString (quarks[last]), (char *)value->addr);//D//TODO
 619   return False;
 620 }
 621
 622 /*
 623  * look for something like this (XK_Delete)
 624  * rxvt*keysym.0xFFFF: "\177"
 625  *
 626  * arg will be
 627  *      NULL for ~/.Xdefaults and
 628  *      non-NULL for command-line options (need to allocate)
 629  */
 630 #define NEWARGLIM       500     /* `reasonable' size */
 631
 632 struct keysym_vocabulary_t
 633 {
 634   const char    *name;
 635   unsigned short len;
 636   unsigned short value;
 637 };
 638 keysym_vocabulary_t keysym_vocabulary[] =
 639 {
 640   { "ISOLevel3", 9, Level3Mask    },
 641   { "AppKeypad", 9, AppKeypadMask },
 642   { "Control",   7, ControlMask   },
 643   { "NumLock",   7, NumLockMask   },
 644   { "Shift",     5, ShiftMask     },
 645   { "Meta",      4, MetaMask      },
 646   { "Lock",      4, LockMask      },
 647   { "Mod1",      4, Mod1Mask      },
 648   { "Mod2",      4, Mod2Mask      },
 649   { "Mod3",      4, Mod3Mask      },
 650   { "Mod4",      4, Mod4Mask      },
 651   { "Mod5",      4, Mod5Mask      },
 652   { "I",         1, Level3Mask    },
 653   { "K",         1, AppKeypadMask },
 654   { "C",         1, ControlMask   },
 655   { "N",         1, NumLockMask   },
 656   { "S",         1, ShiftMask     },
 657   { "M",         1, MetaMask      },
 658   { "A",         1, MetaMask      },
 659   { "L",         1, LockMask      },
 660   { "1",         1, Mod1Mask      },
 661   { "2",         1, Mod2Mask      },
 662   { "3",         1, Mod3Mask      },
 663   { "4",         1, Mod4Mask      },
 664   { "5",         1, Mod5Mask      },
 665 };
 666
 667 int
 668 rxvt_term::parse_keysym (const char *str, const char *arg)
 669 {
 670   int n, sym;
 671   unsigned int state = 0;
 672   const char *pmodend = NULL;
 673   char *newarg = NULL;
 674   char newargstr[NEWARGLIM];
 675
 676   if (arg == NULL)
 677     {
 678       if ((n = rxvt_Str_match (str, "keysym.")) == 0)
 679         return 0;
 680
 681       str += n;         /* skip `keysym.' */
 682       if ((pmodend = strchr (str, ':')) < str)
 683         return -1;
 684     }
 685   else
 686     pmodend = str + strlen(str);
 687
 688   for (--pmodend; str < pmodend; --pmodend)
 689     if (*pmodend == '-')
 690       break;
 691
 692   while (str < pmodend)
 693     {
 694       unsigned int i;
 695
 696       for (i=0; i < sizeof (keysym_vocabulary) / sizeof (keysym_vocabulary_t); ++i)
 697         {
 698           if (strncmp (str, keysym_vocabulary [i].name, keysym_vocabulary [i].len) == 0)
 699             {
 700               state |= keysym_vocabulary[i].value;
 701               str += keysym_vocabulary[i].len;
 702               break;
 703             }
 704         }
 705
 706       if (i >= sizeof (keysym_vocabulary) / sizeof (keysym_vocabulary_t))
 707         return -1;
 708
 709       if (*str == '-')
 710         ++str;
 711     }
 712
 713   /* some scanf () have trouble with a 0x prefix */
 714   if (str[0] == '0' && toupper (str[1]) == 'X')
 715     {
 716       str += 2;
 717
 718       if (arg)
 719         {
 720           if (sscanf (str, (strchr (str, ':') ? "%x:" : "%x"), &sym) != 1)
 721             return -1;
 722         }
 723       else
 724         {
 725           if (sscanf (str, "%x:", &sym) != 1)
 726             return -1;
 727
 728           /* cue to ':', it's there since sscanf () worked */
 729           strncpy (newargstr, strchr (str, ':') + 1, NEWARGLIM - 1);
 730           newargstr[NEWARGLIM - 1] = '\0';
 731           newarg = newargstr;
 732         }
 733     }
 734   else
 735     {
 736       /*
 737        * convert keysym name to keysym number
 738        */
 739       strncpy (newargstr, str, NEWARGLIM - 1);
 740       newargstr[NEWARGLIM - 1] = '\0';
 741
 742       if (arg == NULL)
 743         {
 744           if ((newarg = strchr (newargstr, ':')) == NULL)
 745             return -1;
 746
 747           *newarg++ = '\0';     /* terminate keysym name */
 748         }
 749
 750       if ((sym = XStringToKeysym (newargstr)) == None)
 751         return -1;
 752     }
 753
 754   if (newarg == NULL)
 755     {
 756       strncpy (newargstr, arg, NEWARGLIM - 1);
 757       newargstr[NEWARGLIM - 1] = '\0';
 758       newarg = newargstr;
 759     }
 760
 761   rxvt_Str_trim (newarg);
 762   if (*newarg == '\0' || (n = rxvt_Str_escaped (newarg)) == 0)
 763     return -1;
 764
 765   keyboard->register_user_translation (sym, state, newarg);
 766   return 1;
 767 }
 768
 769 # endif                         /* KEYSYM_RESOURCE */
 770
 771 # ifndef USE_XGETDEFAULT
 772 /*{{{ rxvt_get_xdefaults () */
 773 /*
 774  * the matching algorithm used for memory-save fake resources
 775  */
 776 void
 777 rxvt_term::get_xdefaults (FILE *stream, const char *name)
 778 {
 779   unsigned int len;
 780   char *str, buffer[256];
 781
 782   if (stream == NULL)
 783     return;
 784
 785   len = strlen (name);
 786   while ((str = fgets (buffer, sizeof (buffer), stream)) != NULL)
 787     {
 788       unsigned int entry, n;
 789
 790       while (*str && isspace (*str))
 791         str++;          /* leading whitespace */
 792
 793       if ((str[len] != '*' && str[len] != '.')
 794           || (len && strncmp (str, name, len)))
 795         continue;
 796       str += (len + 1); /* skip `name*' or `name.' */
 797
 798 # ifdef KEYSYM_RESOURCE
 799       if (!parse_keysym (str, NULL))
 800 # endif                         /* KEYSYM_RESOURCE */
 801         for (entry = 0; entry < optList_size; entry++)
 802           {
 803             const char *kw = optList[entry].kw;
 804
 805             if (kw == NULL)
 806               continue;
 807
 808             n = strlen (kw);
 809             if (str[n] == ':' && rxvt_Str_match (str, kw))
 810               {
 811                 /* skip `keyword:' */
 812                 str += n + 1;
 813                 rxvt_Str_trim (str);
 814                 n = strlen (str);
 815
 816                 if (n && rs[optList[entry].doff] == NULL)
 817                   {
 818                     /* not already set */
 819                     int s;
 820                     char *p = 0;
 821
 822                     for (int o = 0;;)
 823                       {
 824                         p = (char *)rxvt_realloc (p, o + n + 1);
 825                         memcpy (p + o, str, n);
 826                         o += n;
 827                         p[o] = 0;
 828
 829                         if (o == 0 || p[o - 1] != '\\') // continuation line
 830                           break;
 831
 832                         o--; // eat "\"
 833
 834                         if ((str = fgets (buffer, sizeof (buffer), stream)) == NULL)
 835                           break;
 836
 837                         rxvt_Str_trim (str);
 838                         n = strlen (str);
 839                       }
 840
 841                     rs[optList[entry].doff] = p;
 842                     allocated.push_back (p);
 843
 844                     if (optList_isBool (entry))
 845                       {
 846                         s = strcasecmp (str, "true") == 0
 847                             || strcasecmp (str, "yes") == 0
 848                             || strcasecmp (str, "on") == 0
 849                             || strcmp (str, "1") == 0;
 850
 851                         if (optList_isReverse (entry))
 852                           s = !s;
 853
 854                         if (s)
 855                           options |= optList[entry].flag;
 856                         else
 857                           options &= ~optList[entry].flag;
 858                       }
 859                   }
 860
 861                 break;
 862               }
 863           }
 864     }
 865
 866   rewind (stream);
 867 }
 868
 869 /*}}} */
 870 # endif                         /* ! USE_XGETDEFAULT */
 871 #endif                          /* NO_RESOURCES */
 872
 873 /*{{{ read the resources files */
 874 /*
 875  * using XGetDefault () or the hand-rolled replacement
 876  */
 877 /* ARGSUSED */
 878 void
 879 rxvt_term::extract_resources ()
 880 {
 881   dDisp;
 882
 883 #ifndef NO_RESOURCES
 884
 885   char *homedir = (char *)getenv ("HOME");
 886   char fname[1024];
 887
 888 # if defined XAPPLOADDIR
 889 #  if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
 890   /* Compute the path of the possibly available localized Rxvt file */
 891   char localepath[1024];
 892
 893   if (locale)
 894     snprintf (localepath, sizeof (localepath), XAPPLOADDIRLOCALE "/" RESCLASS, locale);
 895   else
 896     localepath[0] = 0;
 897 #  endif
 898 # endif
 899
 900 # ifdef USE_XGETDEFAULT
 901   /*
 902    * get resources using the X library function
 903    */
 904   int entry;
 905
 906 #  ifdef XrmEnumOneLevel
 907   int i;
 908   char *displayResource, *xe;
 909   XrmName name_prefix[3];
 910   XrmClass class_prefix[3];
 911   XrmDatabase database, rdb1;
 912
 913   XrmInitialize ();
 914   database = NULL;
 915
 916   // for ordering, see for example http://www.faqs.org/faqs/Xt-FAQ/ Subject: 20
 917
 918   // 6. System wide per application default file.
 919   /* Add in Rxvt file */
 920 #   if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
 921   if (*localepath
 922       && ((rdb1 = XrmGetFileDatabase (localepath))
 923           || (rdb1 = XrmGetFileDatabase (XAPPLOADDIR "/" RESCLASS))))
 924 #   endif
 925     XrmMergeDatabases (rdb1, &database);
 926
 927   /* Add in $XAPPLRESDIR/Rxvt only; not bothering with XUSERFILESEARCHPATH */
 928   if ((xe = (char *)getenv ("XAPPLRESDIR")))
 929     {
 930       snprintf (fname, sizeof (fname), "%s/%s", xe, RESCLASS);
 931
 932       if ((rdb1 = XrmGetFileDatabase (fname)))
 933         XrmMergeDatabases (rdb1, &database);
 934     }
 935
 936   // 5. User's per application default file.
 937   // none
 938
 939   // 4. User's defaults file.
 940   /* Get any Xserver defaults */
 941   displayResource = XResourceManagerString (disp);
 942   if (displayResource != NULL)
 943     {
 944       if ((rdb1 = XrmGetStringDatabase (displayResource)))
 945         XrmMergeDatabases (rdb1, &database);
 946     }
 947   else if (homedir)
 948     {
 949       snprintf (fname, sizeof (fname), "%s/.Xdefaults", homedir);
 950
 951       if ((rdb1 = XrmGetFileDatabase (fname)))
 952         XrmMergeDatabases (rdb1, &database);
 953     }
 954
 955   /* Get screen specific resources */
 956   displayResource = XScreenResourceString (ScreenOfDisplay (disp, display->screen));
 957   if (displayResource != NULL)
 958     {
 959       if ((rdb1 = XrmGetStringDatabase (displayResource)))
 960         /* Merge with screen-independent resources */
 961         XrmMergeDatabases (rdb1, &database);
 962
 963       XFree (displayResource);
 964     }
 965
 966   // 3. User's per host defaults file
 967   /* Add in XENVIRONMENT file */
 968   if ((xe = (char *)getenv ("XENVIRONMENT"))
 969       && (rdb1 = XrmGetFileDatabase (xe)))
 970     XrmMergeDatabases (rdb1, &database);
 971   else if (homedir)
 972     {
 973       struct utsname un;
 974
 975       if (!uname (&un))
 976         {
 977           snprintf (fname, sizeof (fname), "%s/.Xdefaults-%s", homedir, un.nodename);
 978
 979           if ((rdb1 = XrmGetFileDatabase (fname)))
 980             XrmMergeDatabases (rdb1, &database);
 981         }
 982     }
 983
 984   XrmSetDatabase (disp, database);
 985 #  endif
 986
 987   /*
 988    * Query resources for options that affect us
 989    */
 990   for (entry = 0; entry < optList_size; entry++)
 991     {
 992       int s;
 993       char *p, *p0;
 994       const char *kw = optList[entry].kw;
 995
 996       if (kw == NULL || rs[optList[entry].doff] != NULL)
 997         continue;               /* previously set */
 998
 999       p = XGetDefault (disp, rs[Rs_name], kw);
1000       p0 = XGetDefault (disp, "!INVALIDPROGRAMMENAMEDONTMATCH!", kw);
1001       if (p == NULL || (p0 && strcmp (p, p0) == 0))
1002         {
1003           p = XGetDefault (disp, RESCLASS, kw);
1004 #ifdef RESFALLBACK
1005           if (p == NULL || (p0 && strcmp (p, p0) == 0))
1006             p = XGetDefault (disp, RESFALLBACK, kw);
1007 #endif
1008         }
1009
1010       if (p == NULL && p0)
1011         p = p0;
1012
1013       if (p)
1014         {
1015           rs[optList[entry].doff] = p;
1016
1017           if (optList_isBool (entry))
1018             {
1019               s = strcasecmp (p, "TRUE") == 0
1020                   || strcasecmp (p, "YES") == 0
1021                   || strcasecmp (p, "ON") == 0
1022                   || strcasecmp (p, "1") == 0;
1023
1024               if (optList_isReverse (entry))
1025                 s = !s;
1026
1027               if (s)
1028                 options |= optList[entry].flag;
1029               else
1030                 options &= ~optList[entry].flag;
1031             }
1032         }
1033     }
1034
1035   /*
1036    * [R5 or later]: enumerate the resource database
1037    */
1038 #  ifdef KEYSYM_RESOURCE
1039   name_prefix[0] = XrmStringToName (rs[Rs_name]);
1040   name_prefix[1] = XrmStringToName ("keysym");
1041   name_prefix[2] = NULLQUARK;
1042   class_prefix[0] = XrmStringToName (RESCLASS);
1043   class_prefix[1] = XrmStringToName ("Keysym");
1044   class_prefix[2] = NULLQUARK;
1045   /* XXX: Need to check sizeof (rxvt_t) == sizeof (XPointer) */
1046   XrmEnumerateDatabase (XrmGetDatabase (disp), name_prefix, class_prefix,
1047                         XrmEnumOneLevel, rxvt_define_key, NULL);
1048 #   ifdef RESFALLBACK
1049   name_prefix[0] = XrmStringToName (RESFALLBACK);
1050   name_prefix[1] = XrmStringToName ("keysym");
1051   class_prefix[0] = XrmStringToName (RESFALLBACK);
1052   class_prefix[1] = XrmStringToName ("Keysym");
1053   /* XXX: Need to check sizeof (rxvt_t) == sizeof (XPointer) */
1054   XrmEnumerateDatabase (XrmGetDatabase (disp), name_prefix, class_prefix,
1055                         XrmEnumOneLevel, rxvt_define_key, NULL);
1056 #   endif
1057 #  endif
1058
1059 # else                          /* USE_XGETDEFAULT */
1060   /* get resources the hard way, but save lots of memory */
1061   FILE *fd = NULL;
1062
1063   if (homedir)
1064     {
1065       static const char *const xnames[2] = { ".Xdefaults", ".Xresources" };
1066
1067       for (int i = 0; i < (sizeof (xnames) / sizeof (xnames [0])); i++)
1068         {
1069           snprintf (fname, sizeof (fname), "%s/%s", homedir, xnames [i]);
1070
1071           if ((fd = fopen (fname, "r")) != NULL)
1072             break;
1073         }
1074     }
1075   /*
1076   * The normal order to match resources is the following:
1077   * @ global resources (partial match, ~/.Xdefaults)
1078   * @ application file resources (XAPPLOADDIR/Rxvt)
1079   * @ class resources (~/.Xdefaults)
1080   * @ private resources (~/.Xdefaults)
1081   *
1082   * However, for the hand-rolled resources, the matching algorithm
1083   * checks if a resource string value has already been allocated
1084   * and won't overwrite it with (in this case) a less specific
1085   * resource value.
1086   *
1087   * This avoids multiple allocation.  Also, when we've called this
1088   * routine command-line string options have already been applied so we
1089   * needn't to allocate for those resources.
1090   *
1091   * So, search in resources from most to least specific.
1092   *
1093   * Also, use a special sub-class so that we can use either or both of
1094   * "XTerm" and "Rxvt" as class names.
1095   */
1096
1097   get_xdefaults (fd, rs[Rs_name]);
1098   get_xdefaults (fd, RESCLASS);
1099 #  ifdef RESFALLBACK
1100   get_xdefaults (fd, RESFALLBACK);
1101 #  endif
1102
1103 #  if defined(XAPPLOADDIR) && defined(USE_XAPPLOADDIR)
1104   {
1105     FILE *ad = NULL;
1106
1107 #   if defined(HAVE_XSETLOCALE) || defined(HAVE_SETLOCALE)
1108     if (!*localepath || (ad = fopen (localepath, "r")) == NULL)
1109 #   endif
1110       ad = fopen (XAPPLOADDIR "/" RESCLASS, "r");
1111     if (ad != NULL)
1112       {
1113         get_xdefaults (ad, RESCLASS);
1114         get_xdefaults (ad, "");
1115         fclose (ad);
1116       }
1117   }
1118 #  endif                        /* XAPPLOADDIR */
1119
1120   get_xdefaults (fd, "");       /* partial match */
1121   if (fd != NULL)
1122     fclose (fd);
1123 # endif                         /* USE_XGETDEFAULT */
1124
1125 #endif                          /* NO_RESOURCES */
1126 }
1127
1128 /*}}} */
1129 /*----------------------- end-of-file (C source) -----------------------*/