| … | |
… | |
| 32 | #endif |
32 | #endif |
| 33 | |
33 | |
| 34 | /* place holders used for parsing command-line options */ |
34 | /* place holders used for parsing command-line options */ |
| 35 | #define Optflag_Reverse 1 |
35 | #define Optflag_Reverse 1 |
| 36 | #define Optflag_Boolean 2 |
36 | #define Optflag_Boolean 2 |
|
|
37 | #define Optflag_Switch 4 |
| 37 | |
38 | |
| 38 | /* monolithic option/resource structure: */ |
39 | /* monolithic option/resource structure: */ |
| 39 | /* |
40 | /* |
| 40 | * `string' options MUST have a usage argument |
41 | * `string' options MUST have a usage argument |
| 41 | * `switch' and `boolean' options have no argument |
42 | * `switch' and `boolean' options have no argument |
| … | |
… | |
| 58 | #define BOOL(rsp, kw, opt, option, flag, desc) \ |
59 | #define BOOL(rsp, kw, opt, option, flag, desc) \ |
| 59 | { (option), (Optflag_Boolean | (flag)), (rsp), (kw), (opt), NULL, (desc)} |
60 | { (option), (Optflag_Boolean | (flag)), (rsp), (kw), (opt), NULL, (desc)} |
| 60 | |
61 | |
| 61 | /* SWCH () - `-' flag */ |
62 | /* SWCH () - `-' flag */ |
| 62 | #define SWCH(opt, option, flag, desc) \ |
63 | #define SWCH(opt, option, flag, desc) \ |
| 63 | { (option), (Optflag_Boolean | (flag)), -1, NULL, (opt), NULL, (desc)} |
64 | { (option), (Optflag_Switch | (flag)), -1, NULL, (opt), NULL, (desc)} |
| 64 | |
65 | |
| 65 | /* convenient macros */ |
66 | /* convenient macros */ |
| 66 | #define optList_strlen(i) \ |
67 | #define optList_strlen(i) \ |
| 67 | (optList[i].flag ? 0 : (optList[i].arg ? strlen (optList[i].arg) : 1)) |
68 | (optList[i].flag ? 0 : (optList[i].arg ? strlen (optList[i].arg) : 1)) |
| 68 | #define optList_isBool(i) \ |
69 | #define optList_isBool(i) \ |
| … | |
… | |
| 92 | SWCH ("iconic", Opt_iconic, 0, "start iconic"), |
93 | SWCH ("iconic", Opt_iconic, 0, "start iconic"), |
| 93 | SWCH ("ic", Opt_iconic, 0, NULL), /* short form */ |
94 | SWCH ("ic", Opt_iconic, 0, NULL), /* short form */ |
| 94 | BOOL (Rs_reverseVideo, "reverseVideo", "rv", Opt_reverseVideo, 0, "reverse video"), |
95 | BOOL (Rs_reverseVideo, "reverseVideo", "rv", Opt_reverseVideo, 0, "reverse video"), |
| 95 | BOOL (Rs_loginShell, "loginShell", "ls", Opt_loginShell, 0, "login shell"), |
96 | BOOL (Rs_loginShell, "loginShell", "ls", Opt_loginShell, 0, "login shell"), |
| 96 | BOOL (Rs_jumpScroll, "jumpScroll", "j", Opt_jumpScroll, 0, "jump scrolling"), |
97 | BOOL (Rs_jumpScroll, "jumpScroll", "j", Opt_jumpScroll, 0, "jump scrolling"), |
|
|
98 | BOOL (Rs_skipScroll, "skipScroll", "ss", Opt_skipScroll, 0, "skip scrolling"), |
| 97 | BOOL (Rs_pastableTabs, "pastableTabs", "ptab", Opt_pastableTabs, 0, "tab characters are pastable"), |
99 | BOOL (Rs_pastableTabs, "pastableTabs", "ptab", Opt_pastableTabs, 0, "tab characters are pastable"), |
| 98 | #if HAVE_SCROLLBARS |
100 | #if HAVE_SCROLLBARS |
| 99 | RSTRG (Rs_scrollstyle, "scrollstyle", "mode"), |
101 | RSTRG (Rs_scrollstyle, "scrollstyle", "mode"), |
| 100 | BOOL (Rs_scrollBar, "scrollBar", "sb", Opt_scrollBar, 0, "scrollbar"), |
102 | BOOL (Rs_scrollBar, "scrollBar", "sb", Opt_scrollBar, 0, "scrollbar"), |
| 101 | BOOL (Rs_scrollBar_right, "scrollBar_right", "sr", Opt_scrollBar_right, 0, "scrollbar right"), |
103 | BOOL (Rs_scrollBar_right, "scrollBar_right", "sr", Opt_scrollBar_right, 0, "scrollbar right"), |
| … | |
… | |
| 258 | RSTRG (Rs_perl_lib, "perl-lib", "string"), //, "colon-separated directories with extension scripts"),TODO |
260 | RSTRG (Rs_perl_lib, "perl-lib", "string"), //, "colon-separated directories with extension scripts"),TODO |
| 259 | RSTRG (Rs_perl_eval, "perl-eval", "perl-eval"), // "string", "code to be evaluated after all extensions have been loaded"),TODO |
261 | RSTRG (Rs_perl_eval, "perl-eval", "perl-eval"), // "string", "code to be evaluated after all extensions have been loaded"),TODO |
| 260 | RSTRG (Rs_perl_ext_1, "perl-ext-common", "string"), //, "colon-separated list of perl extensions to enable"),TODO |
262 | RSTRG (Rs_perl_ext_1, "perl-ext-common", "string"), //, "colon-separated list of perl extensions to enable"),TODO |
| 261 | STRG (Rs_perl_ext_2, "perl-ext", "pe", "string", "colon-separated list of perl extensions to enable for this instance"), |
263 | STRG (Rs_perl_ext_2, "perl-ext", "pe", "string", "colon-separated list of perl extensions to enable for this instance"), |
| 262 | #endif |
264 | #endif |
| 263 | |
265 | #if ISO_14755 |
|
|
266 | BOOL (Rs_iso14755_52, "iso14755_52", NULL, Opt_iso14755_52, 0, NULL), |
|
|
267 | #endif |
| 264 | #ifdef HAVE_AFTERIMAGE |
268 | #ifdef HAVE_AFTERIMAGE |
| 265 | STRG (Rs_blendtype, "blendType", "blt", "string", "background image blending type - alpha, tint, etc..."), |
269 | STRG (Rs_blendtype, "blendType", "blt", "string", "background image blending type - alpha, tint, etc..."), |
| 266 | STRG (Rs_blurradius, "blurRadius", "blr", "number", "Gaussian Blur radius to apply to the root background"), |
270 | STRG (Rs_blurradius, "blurRadius", "blr", "number", "Gaussian Blur radius to apply to the root background"), |
| 267 | #endif |
271 | #endif |
| 268 | #ifndef NO_RESOURCES |
272 | #ifndef NO_RESOURCES |
| … | |
… | |
| 546 | /* |
550 | /* |
| 547 | * special cases are handled in main.c:main () to allow |
551 | * special cases are handled in main.c:main () to allow |
| 548 | * X resources to set these values before we settle for |
552 | * X resources to set these values before we settle for |
| 549 | * default values |
553 | * default values |
| 550 | */ |
554 | */ |
|
|
555 | |
| 551 | if (optList[entry].doff != -1) |
556 | if (optList[entry].doff != -1) |
| 552 | { |
557 | { |
| 553 | if (flag == resval_on && !argv [i+1]) |
558 | if (flag == resval_on && !argv [i+1]) |
| 554 | rxvt_fatal ("option '%s' needs an argument, aborting.\n", argv [i]); |
559 | rxvt_fatal ("option '%s' needs an argument, aborting.\n", argv [i]); |
| 555 | |
560 | |
