… | |
… | |
5 | * All portions of code are copyright by their respective author/s. |
5 | * All portions of code are copyright by their respective author/s. |
6 | * Copyright (c) 1994 Robert Nation <nation@rocket.sanders.lockheed.com> |
6 | * Copyright (c) 1994 Robert Nation <nation@rocket.sanders.lockheed.com> |
7 | * - original version |
7 | * - original version |
8 | * Copyright (c) 1997,1998 mj olesen <olesen@me.queensu.ca> |
8 | * Copyright (c) 1997,1998 mj olesen <olesen@me.queensu.ca> |
9 | * Copyright (c) 2003-2006 Marc Lehmann <schmorp@schmorp.de> |
9 | * Copyright (c) 2003-2006 Marc Lehmann <schmorp@schmorp.de> |
10 | * Copyright (c) 2007 Emanuele Giaquinta <e.giaquinta@glauco.it> |
10 | * Copyright (c) 2007,2015 Emanuele Giaquinta <e.giaquinta@glauco.it> |
11 | * |
11 | * |
12 | * This program is free software; you can redistribute it and/or modify |
12 | * This program is free software; you can redistribute it and/or modify |
13 | * it under the terms of the GNU General Public License as published by |
13 | * it under the terms of the GNU General Public License as published by |
14 | * the Free Software Foundation; either version 2 of the License, or |
14 | * the Free Software Foundation; either version 3 of the License, or |
15 | * (at your option) any later version. |
15 | * (at your option) any later version. |
16 | * |
16 | * |
17 | * This program is distributed in the hope that it will be useful, |
17 | * This program is distributed in the hope that it will be useful, |
18 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
18 | * but WITHOUT ANY WARRANTY; without even the implied warranty of |
19 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
19 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
… | |
… | |
96 | STRG (Rs_geometry, "geometry", "geometry", "geometry", "size (in characters) and position"), |
96 | STRG (Rs_geometry, "geometry", "geometry", "geometry", "size (in characters) and position"), |
97 | SWCH ("C", Opt_console, 0, "intercept console messages"), |
97 | SWCH ("C", Opt_console, 0, "intercept console messages"), |
98 | SWCH ("iconic", Opt_iconic, 0, "start iconic"), |
98 | SWCH ("iconic", Opt_iconic, 0, "start iconic"), |
99 | SWCH ("ic", Opt_iconic, 0, NULL), /* short form */ |
99 | SWCH ("ic", Opt_iconic, 0, NULL), /* short form */ |
100 | STRG (Rs_chdir, "chdir", "cd", "string", "start shell in this directory"), |
100 | STRG (Rs_chdir, "chdir", "cd", "string", "start shell in this directory"), |
|
|
101 | SWCH ("dockapp", Opt_dockapp, 0, "start as dockapp"), |
101 | BOOL (Rs_reverseVideo, "reverseVideo", "rv", Opt_reverseVideo, 0, "reverse video"), |
102 | BOOL (Rs_reverseVideo, "reverseVideo", "rv", Opt_reverseVideo, 0, "reverse video"), |
102 | BOOL (Rs_loginShell, "loginShell", "ls", Opt_loginShell, 0, "login shell"), |
103 | BOOL (Rs_loginShell, "loginShell", "ls", Opt_loginShell, 0, "login shell"), |
|
|
104 | STRG (Rs_multiClickTime, "multiClickTime", "mc", "number", "maximum time (in ms) between multi-click selections"), |
103 | BOOL (Rs_jumpScroll, "jumpScroll", "j", Opt_jumpScroll, 0, "jump scrolling"), |
105 | BOOL (Rs_jumpScroll, "jumpScroll", "j", Opt_jumpScroll, 0, "jump scrolling"), |
104 | BOOL (Rs_skipScroll, "skipScroll", "ss", Opt_skipScroll, 0, "skip scrolling"), |
106 | BOOL (Rs_skipScroll, "skipScroll", "ss", Opt_skipScroll, 0, "skip scrolling"), |
105 | BOOL (Rs_pastableTabs, "pastableTabs", "ptab", Opt_pastableTabs, 0, "tab characters are pastable"), |
107 | BOOL (Rs_pastableTabs, "pastableTabs", "ptab", Opt_pastableTabs, 0, "tab characters are pastable"), |
106 | RSTRG (Rs_scrollstyle, "scrollstyle", "mode"), |
108 | RSTRG (Rs_scrollstyle, "scrollstyle", "mode"), |
107 | BOOL (Rs_scrollBar, "scrollBar", "sb", Opt_scrollBar, 0, "scrollbar"), |
109 | BOOL (Rs_scrollBar, "scrollBar", "sb", Opt_scrollBar, 0, "scrollbar"), |
… | |
… | |
111 | STRG (Rs_scrollBar_thickness, "thickness", "sbt", "number", "scrollbar thickness/width in pixels"), |
113 | STRG (Rs_scrollBar_thickness, "thickness", "sbt", "number", "scrollbar thickness/width in pixels"), |
112 | BOOL (Rs_scrollTtyOutput, "scrollTtyOutput", NULL, Opt_scrollTtyOutput, 0, NULL), |
114 | BOOL (Rs_scrollTtyOutput, "scrollTtyOutput", NULL, Opt_scrollTtyOutput, 0, NULL), |
113 | BOOL (Rs_scrollTtyOutput, NULL, "si", Opt_scrollTtyOutput, Optflag_Reverse, "scroll-on-tty-output inhibit"), |
115 | BOOL (Rs_scrollTtyOutput, NULL, "si", Opt_scrollTtyOutput, Optflag_Reverse, "scroll-on-tty-output inhibit"), |
114 | BOOL (Rs_scrollTtyKeypress, "scrollTtyKeypress", "sk", Opt_scrollTtyKeypress, 0, "scroll-on-keypress"), |
116 | BOOL (Rs_scrollTtyKeypress, "scrollTtyKeypress", "sk", Opt_scrollTtyKeypress, 0, "scroll-on-keypress"), |
115 | BOOL (Rs_scrollWithBuffer, "scrollWithBuffer", "sw", Opt_scrollWithBuffer, 0, "scroll-with-buffer"), |
117 | BOOL (Rs_scrollWithBuffer, "scrollWithBuffer", "sw", Opt_scrollWithBuffer, 0, "scroll-with-buffer"), |
116 | #if ENABLE_TRANSPARENCY |
|
|
117 | BOOL (Rs_transparent, "inheritPixmap", "ip", Opt_transparent, 0, "inherit parent pixmap"), |
|
|
118 | BOOL (Rs_transparent, "transparent", "tr", Opt_transparent, 0, "inherit parent pixmap"), |
|
|
119 | STRG (Rs_color + Color_tint, "tintColor", "tint", "color", "tint color"), |
|
|
120 | STRG (Rs_shade, "shading", "sh", "number", "shade background by number %."), |
|
|
121 | STRG (Rs_blurradius, "blurRadius", "blr", "HxV", "gaussian blur radii to apply to the root background"), |
|
|
122 | #endif |
|
|
123 | #if OFF_FOCUS_FADING |
118 | #if OFF_FOCUS_FADING |
124 | STRG (Rs_fade, "fading", "fade", "number", "fade colors by number % when losing focus"), |
119 | STRG (Rs_fade, "fading", "fade", "number", "fade colors by number % when losing focus"), |
125 | STRG (Rs_color + Color_fade, "fadeColor", "fadecolor", "color", "target color for off-focus fading"), |
120 | STRG (Rs_color + Color_fade, "fadeColor", "fadecolor", "color", "target color for off-focus fading"), |
126 | #endif |
121 | #endif |
127 | BOOL (Rs_utmpInhibit, "utmpInhibit", "ut", Opt_utmpInhibit, 0, "utmp inhibit"), |
122 | BOOL (Rs_utmpInhibit, "utmpInhibit", "ut", Opt_utmpInhibit, 0, "utmp inhibit"), |
… | |
… | |
139 | #endif |
134 | #endif |
140 | #ifdef MOUSE_WHEEL |
135 | #ifdef MOUSE_WHEEL |
141 | BOOL (Rs_mouseWheelScrollPage, "mouseWheelScrollPage", NULL, Opt_mouseWheelScrollPage, 0, NULL), |
136 | BOOL (Rs_mouseWheelScrollPage, "mouseWheelScrollPage", NULL, Opt_mouseWheelScrollPage, 0, NULL), |
142 | #endif |
137 | #endif |
143 | #if ENABLE_FRILLS |
138 | #if ENABLE_FRILLS |
|
|
139 | BOOL (Rs_disablePasteBrackets, "disablePasteBrackets", "dpb", Opt_disablePasteBrackets, 0, "paste bracket suppression"), |
144 | BOOL (Rs_tripleclickwords, "tripleclickwords", "tcw", Opt_tripleclickwords, 0, "triple click word selection"), |
140 | BOOL (Rs_tripleclickwords, "tripleclickwords", "tcw", Opt_tripleclickwords, 0, "triple click word selection"), |
145 | BOOL (Rs_insecure, "insecure", "insecure", Opt_insecure, 0, "enable possibly insecure escape sequences"), |
141 | BOOL (Rs_insecure, "insecure", "insecure", Opt_insecure, 0, "enable possibly insecure escape sequences"), |
146 | BOOL (Rs_cursorUnderline, "cursorUnderline", "uc", Opt_cursorUnderline, 0, "underline cursor"), |
142 | BOOL (Rs_cursorUnderline, "cursorUnderline", "uc", Opt_cursorUnderline, 0, "underline cursor"), |
147 | #endif |
143 | #endif |
148 | #if CURSOR_BLINK |
144 | #if CURSOR_BLINK |
… | |
… | |
192 | RSTRG (Rs_color + Color_cursor2, "cursorColor2", "color"), |
188 | RSTRG (Rs_color + Color_cursor2, "cursorColor2", "color"), |
193 | #endif /* NO_CURSORCOLOR */ |
189 | #endif /* NO_CURSORCOLOR */ |
194 | STRG (Rs_color + Color_pointer_fg, "pointerColor", "pr", "color", "pointer color"), |
190 | STRG (Rs_color + Color_pointer_fg, "pointerColor", "pr", "color", "pointer color"), |
195 | STRG (Rs_color + Color_pointer_bg, "pointerColor2", "pr2", "color", "pointer bg color"), |
191 | STRG (Rs_color + Color_pointer_bg, "pointerColor2", "pr2", "color", "pointer bg color"), |
196 | STRG (Rs_color + Color_border, "borderColor", "bd", "color", "border color"), |
192 | STRG (Rs_color + Color_border, "borderColor", "bd", "color", "border color"), |
197 | #if BG_IMAGE_FROM_FILE |
|
|
198 | RSTRG (Rs_path, "path", "search path"), |
|
|
199 | STRG (Rs_backgroundPixmap, "backgroundPixmap", "pixmap", "file[;geom]", "background pixmap"), |
|
|
200 | # if ENABLE_EWMH |
193 | #if ENABLE_EWMH |
201 | STRG (Rs_iconfile, "iconFile", "icon", "file", "path to application icon image"), |
194 | STRG (Rs_iconfile, "iconFile", "icon", "file", "path to application icon image"), |
202 | # endif |
195 | #endif |
|
|
196 | #ifdef HAVE_XMU |
|
|
197 | RSTRG (Rs_pointerShape, "pointerShape", "string"), |
203 | #endif |
198 | #endif |
204 | /* fonts: command-line option = resource name */ |
199 | /* fonts: command-line option = resource name */ |
205 | STRG (Rs_font, "font", "fn", "fontname", "normal text font"), |
200 | STRG (Rs_font, "font", "fn", "fontname", "normal text font"), |
206 | #if ENABLE_STYLES |
201 | #if ENABLE_STYLES |
207 | STRG (Rs_boldFont, "boldFont", "fb", "fontname", "bold font"), |
202 | STRG (Rs_boldFont, "boldFont", "fb", "fontname", "bold font"), |
… | |
… | |
225 | #endif |
220 | #endif |
226 | #if XFT |
221 | #if XFT |
227 | BOOL (Rs_buffered, "buffered", NULL, Opt_buffered, 0, NULL), |
222 | BOOL (Rs_buffered, "buffered", NULL, Opt_buffered, 0, NULL), |
228 | #endif |
223 | #endif |
229 | #if ENABLE_FRILLS |
224 | #if ENABLE_FRILLS |
|
|
225 | STRG (Rs_refreshRate, "refreshRate", "fps", "number", "refresh rate / frames per second"), |
230 | STRG (Rs_depth, "depth", "depth", "number", "depth of visual to request"), |
226 | STRG (Rs_depth, "depth", "depth", "number", "depth of visual to request"), |
231 | STRG (Rs_visual, "visual", "visual", "number", "visual id to request"), |
227 | STRG (Rs_visual, "visual", "visual", "number", "visual id to request"), |
232 | RSTRG (Rs_transient_for, "transient-for", "windowid"), |
228 | RSTRG (Rs_transient_for, "transient-for", "windowid"), |
233 | BOOL (Rs_override_redirect, "override-redirect", "override-redirect", Opt_override_redirect, 0, "set override-redirect on the terminal window"), |
229 | BOOL (Rs_override_redirect, "override-redirect", "override-redirect", Opt_override_redirect, 0, "override-redirect on the terminal window"), |
234 | STRG (Rs_pty_fd, NULL, "pty-fd", "fileno", "file descriptor of pty to use"), |
230 | STRG (Rs_pty_fd, NULL, "pty-fd", "fileno", "file descriptor of pty to use"), |
235 | BOOL (Rs_hold, "hold", "hold", Opt_hold, 0, "retain window after shell exit"), |
231 | BOOL (Rs_hold, "hold", "hold", Opt_hold, 0, "retain window after shell exit"), |
236 | STRG (Rs_ext_bwidth, "externalBorder", "w", "number", "external border in pixels"), |
232 | STRG (Rs_ext_bwidth, "externalBorder", "w", "number", "external border in pixels"), |
237 | STRG (Rs_ext_bwidth, NULL, "bw", NULL, NULL), |
233 | STRG (Rs_ext_bwidth, NULL, "bw", NULL, NULL), |
238 | STRG (Rs_ext_bwidth, NULL, "borderwidth", NULL, NULL), |
234 | STRG (Rs_ext_bwidth, NULL, "borderwidth", NULL, NULL), |
… | |
… | |
240 | BOOL (Rs_borderLess, "borderLess", "bl", Opt_borderLess, 0, "borderless window"), |
236 | BOOL (Rs_borderLess, "borderLess", "bl", Opt_borderLess, 0, "borderless window"), |
241 | STRG (Rs_lineSpace, "lineSpace", "lsp", "number", "number of extra pixels between rows"), |
237 | STRG (Rs_lineSpace, "lineSpace", "lsp", "number", "number of extra pixels between rows"), |
242 | STRG (Rs_letterSpace, "letterSpace", "letsp", "number", "letter spacing adjustment"), |
238 | STRG (Rs_letterSpace, "letterSpace", "letsp", "number", "letter spacing adjustment"), |
243 | #endif |
239 | #endif |
244 | #ifdef BUILTIN_GLYPHS |
240 | #ifdef BUILTIN_GLYPHS |
245 | BOOL (Rs_skipBuiltinGlyphs, "skipBuiltinGlyphs", "sbg", Opt_skipBuiltinGlyphs, 0, "do not use internal glyphs"), |
241 | BOOL (Rs_skipBuiltinGlyphs, "skipBuiltinGlyphs", "sbg", Opt_skipBuiltinGlyphs, 0, "use of font glyphs instead of internal glyphs"), |
246 | #endif |
242 | #endif |
247 | #ifdef POINTER_BLANK |
243 | #ifdef POINTER_BLANK |
248 | RSTRG (Rs_pointerBlankDelay, "pointerBlankDelay", "number"), |
244 | RSTRG (Rs_pointerBlankDelay, "pointerBlankDelay", "number"), |
249 | #endif |
245 | #endif |
250 | #ifndef NO_BACKSPACE_KEY |
246 | #ifndef NO_BACKSPACE_KEY |
… | |
… | |
258 | #endif |
254 | #endif |
259 | STRG (Rs_modifier, "modifier", "mod", "modifier", "meta modifier = alt|meta|hyper|super|mod1|...|mod5"), |
255 | STRG (Rs_modifier, "modifier", "mod", "modifier", "meta modifier = alt|meta|hyper|super|mod1|...|mod5"), |
260 | RSTRG (Rs_cutchars, "cutchars", "string"), |
256 | RSTRG (Rs_cutchars, "cutchars", "string"), |
261 | RSTRG (Rs_answerbackstring, "answerbackString", "string"), |
257 | RSTRG (Rs_answerbackstring, "answerbackString", "string"), |
262 | #ifndef NO_SECONDARY_SCREEN |
258 | #ifndef NO_SECONDARY_SCREEN |
263 | BOOL (Rs_secondaryScreen, "secondaryScreen", "ssc", Opt_secondaryScreen, 0, "enable secondary screen"), |
259 | BOOL (Rs_secondaryScreen, "secondaryScreen", "ssc", Opt_secondaryScreen, 0, "secondary screen"), |
264 | BOOL (Rs_secondaryScroll, "secondaryScroll", "ssr", Opt_secondaryScroll, 0, "enable secondary screen scroll"), |
260 | BOOL (Rs_secondaryScroll, "secondaryScroll", "ssr", Opt_secondaryScroll, 0, "secondary screen scroll"), |
|
|
261 | #endif |
|
|
262 | #if ENABLE_FRILLS |
|
|
263 | STRG (Rs_rewrapMode, "rewrapMode", "rm", "string", "rewrap mode (auto, always, never)"), |
265 | #endif |
264 | #endif |
266 | #if ENABLE_PERL |
265 | #if ENABLE_PERL |
267 | RSTRG (Rs_perl_lib, "perl-lib", "string"), //, "colon-separated directories with extension scripts"),TODO |
266 | RSTRG (Rs_perl_lib, "perl-lib", "string"), //, "colon-separated directories with extension scripts"),TODO |
268 | RSTRG (Rs_perl_eval, "perl-eval", "perl-eval"), // "string", "code to be evaluated after all extensions have been loaded"),TODO |
267 | RSTRG (Rs_perl_eval, "perl-eval", "perl-eval"), // "string", "code to be evaluated after all extensions have been loaded"),TODO |
269 | RSTRG (Rs_perl_ext_1, "perl-ext-common", "string"), //, "colon-separated list of perl extensions to enable"),TODO |
268 | RSTRG (Rs_perl_ext_1, "perl-ext-common", "string"), //, "colon-separated list of perl extensions to enable"),TODO |
… | |
… | |
623 | return 0; |
622 | return 0; |
624 | } |
623 | } |
625 | |
624 | |
626 | /*}}} */ |
625 | /*}}} */ |
627 | |
626 | |
628 | #ifndef NO_RESOURCES |
|
|
629 | /*----------------------------------------------------------------------*/ |
627 | /*----------------------------------------------------------------------*/ |
630 | |
628 | |
631 | # ifdef KEYSYM_RESOURCE |
629 | #ifdef KEYSYM_RESOURCE |
632 | /* |
|
|
633 | * Define key from XrmEnumerateDatabase. |
|
|
634 | * quarks will be something like |
|
|
635 | * "rxvt" "keysym" "0xFF01" |
|
|
636 | * value will be a string |
|
|
637 | */ |
|
|
638 | static int |
630 | static void |
639 | rxvt_define_key (XrmDatabase *database ecb_unused, |
631 | rxvt_define_key (rxvt_term *term, const char *k, const char *v) |
640 | XrmBindingList bindings ecb_unused, |
|
|
641 | XrmQuarkList quarks, |
|
|
642 | XrmRepresentation *type ecb_unused, |
|
|
643 | XrmValue *value, |
|
|
644 | XPointer closure ecb_unused) |
|
|
645 | { |
632 | { |
646 | int last; |
633 | term->bind_action (k, v); |
647 | |
|
|
648 | for (last = 0; quarks[last] != NULLQUARK; last++) /* look for last quark in list */ |
|
|
649 | ; |
|
|
650 | |
|
|
651 | last--; |
|
|
652 | GET_R->parse_keysym (XrmQuarkToString (quarks[last]), (char *)value->addr);//D//TODO |
|
|
653 | return False; |
|
|
654 | } |
634 | } |
655 | |
635 | |
656 | /* |
636 | /* |
657 | * look for something like this (XK_Delete) |
637 | * look for something like this (XK_Delete) |
658 | * rxvt*keysym.0xFFFF: "\177" |
638 | * rxvt*keysym.0xFFFF: "\177" |
… | |
… | |
692 | { "4", 1, Mod4Mask }, |
672 | { "4", 1, Mod4Mask }, |
693 | { "5", 1, Mod5Mask }, |
673 | { "5", 1, Mod5Mask }, |
694 | }; |
674 | }; |
695 | |
675 | |
696 | int |
676 | int |
697 | rxvt_term::parse_keysym (const char *str, const char *arg) |
677 | rxvt_term::parse_keysym (const char *str, unsigned int &state) |
698 | { |
678 | { |
699 | int sym; |
679 | int sym; |
700 | unsigned int state = 0; |
|
|
701 | const char *key = strrchr (str, '-'); |
680 | const char *key = strrchr (str, '-'); |
|
|
681 | |
|
|
682 | state = 0; |
702 | |
683 | |
703 | if (!key) |
684 | if (!key) |
704 | key = str; |
685 | key = str; |
705 | else |
686 | else |
706 | key++; |
687 | key++; |
707 | |
688 | |
708 | // string or key is empty |
689 | // string or key is empty |
709 | if (*arg == '\0' || *key == '\0') |
690 | if (*key == '\0') |
710 | return -1; |
691 | return -1; |
711 | |
692 | |
712 | // parse modifiers |
693 | // parse modifiers |
713 | while (str < key) |
694 | while (str < key) |
714 | { |
695 | { |
… | |
… | |
739 | sym = strtol (str, &end, 16); |
720 | sym = strtol (str, &end, 16); |
740 | if (*end) |
721 | if (*end) |
741 | return -1; |
722 | return -1; |
742 | } |
723 | } |
743 | |
724 | |
|
|
725 | return sym; |
|
|
726 | } |
|
|
727 | |
|
|
728 | int |
|
|
729 | rxvt_term::bind_action (const char *str, const char *arg) |
|
|
730 | { |
|
|
731 | int sym; |
|
|
732 | unsigned int state; |
|
|
733 | |
|
|
734 | if (*arg == '\0' || (sym = parse_keysym (str, state)) == -1) |
|
|
735 | return -1; |
|
|
736 | |
744 | wchar_t *ws = rxvt_mbstowcs (arg); |
737 | wchar_t *ws = rxvt_mbstowcs (arg); |
745 | if (!HOOK_INVOKE ((this, HOOK_REGISTER_COMMAND, DT_INT, sym, DT_INT, state, DT_WCS_LEN, ws, wcslen (ws), DT_END))) |
738 | if (!HOOK_INVOKE ((this, HOOK_REGISTER_COMMAND, DT_INT, sym, DT_INT, state, DT_WCS_LEN, ws, wcslen (ws), DT_END))) |
746 | keyboard->register_user_translation (sym, state, ws); |
739 | keyboard->register_action (sym, state, ws); |
|
|
740 | |
747 | free (ws); |
741 | free (ws); |
748 | return 1; |
742 | return 1; |
749 | } |
743 | } |
750 | |
744 | |
751 | # endif /* KEYSYM_RESOURCE */ |
745 | #endif /* KEYSYM_RESOURCE */ |
752 | #endif /* NO_RESOURCES */ |
|
|
753 | |
746 | |
754 | static char * |
747 | static char * |
755 | get_res (XrmDatabase database, const char *program, const char *option) |
748 | get_res (XrmDatabase database, const char *program, const char *option) |
756 | { |
749 | { |
757 | char resource[512]; |
750 | char resource[512]; |
… | |
… | |
828 | } |
821 | } |
829 | } |
822 | } |
830 | #endif /* NO_RESOURCES */ |
823 | #endif /* NO_RESOURCES */ |
831 | } |
824 | } |
832 | |
825 | |
|
|
826 | struct rxvt_enumerate_closure |
|
|
827 | { |
|
|
828 | rxvt_term *term; |
|
|
829 | void (*cb)(rxvt_term *, const char *, const char *); |
|
|
830 | int specific; // iterate over only a specific subhierarchy |
|
|
831 | }; |
|
|
832 | |
|
|
833 | /* |
|
|
834 | * Define key from XrmEnumerateDatabase. |
|
|
835 | * quarks will be something like |
|
|
836 | * "rxvt" "keysym" "0xFF01" |
|
|
837 | * value will be a string |
|
|
838 | */ |
|
|
839 | static int |
|
|
840 | rxvt_enumerate_helper ( |
|
|
841 | XrmDatabase *database ecb_unused, |
|
|
842 | XrmBindingList bindings ecb_unused, |
|
|
843 | XrmQuarkList quarks, |
|
|
844 | XrmRepresentation *type ecb_unused, |
|
|
845 | XrmValue *value, |
|
|
846 | XPointer closure |
|
|
847 | ) |
|
|
848 | { |
|
|
849 | const rxvt_enumerate_closure *data = (const rxvt_enumerate_closure *)closure; |
|
|
850 | |
|
|
851 | if (*quarks == NULLQUARK) return False; |
|
|
852 | |
|
|
853 | // if the quark list starts with a tightly bound quark, we skip it, |
|
|
854 | // as it exactly matched the prefix. Otherwise, it matched because |
|
|
855 | // it started with "*", in which case we assume the prefix is part |
|
|
856 | // of the "*". |
|
|
857 | if (*bindings == XrmBindTightly) |
|
|
858 | { |
|
|
859 | ++quarks, ++bindings; // skip if this is a fixed prefix, rather than a *-match |
|
|
860 | if (*quarks == NULLQUARK) return False; |
|
|
861 | } |
|
|
862 | |
|
|
863 | // specific, a bit misleadingly named, is used when a specific "subclass" |
|
|
864 | // is iterated over, e.g. "keysym", and is used to skip one more |
|
|
865 | // component, as well as all generic prefixes |
|
|
866 | // this is a bit of a hack, ideally, keysym (the only user) should use its |
|
|
867 | // own iteration function, but this ought to be less bloated |
|
|
868 | if (data->specific) |
|
|
869 | { |
|
|
870 | ++quarks, ++bindings; |
|
|
871 | if (*quarks == NULLQUARK) return False; |
|
|
872 | } |
|
|
873 | |
|
|
874 | char *pattern; |
|
|
875 | if (quarks[1] == NULLQUARK) |
|
|
876 | pattern = XrmQuarkToString (quarks[0]); // single component, fast path |
|
|
877 | else |
|
|
878 | { |
|
|
879 | // multiple components, slow path - should be rare, don't optimize for speed |
|
|
880 | int size = 0; |
|
|
881 | |
|
|
882 | for (int i = 0; quarks[i] != NULLQUARK; ++i) |
|
|
883 | size += strlen (XrmQuarkToString (quarks[i])) + 1; |
|
|
884 | |
|
|
885 | pattern = rxvt_temp_buf<char> (size + 1); |
|
|
886 | |
|
|
887 | // now print all components |
|
|
888 | { |
|
|
889 | char *cur = pattern; |
|
|
890 | |
|
|
891 | for (int i = 0; quarks[i] != NULLQUARK; ++i) |
|
|
892 | cur += sprintf (cur, ".%s", XrmQuarkToString (quarks[i])); |
|
|
893 | } |
|
|
894 | |
|
|
895 | ++pattern; // skip initial dot |
|
|
896 | } |
|
|
897 | |
|
|
898 | data->cb (data->term, pattern, (char *)value->addr); |
|
|
899 | |
|
|
900 | return False; |
|
|
901 | } |
|
|
902 | |
833 | void |
903 | void |
834 | rxvt_term::extract_keysym_resources () |
904 | rxvt_term::enumerate_resources (void (*cb)(rxvt_term *, const char *, const char *), const char *name_p, const char *class_p) |
835 | { |
905 | { |
836 | #ifndef NO_RESOURCES |
|
|
837 | /* |
906 | /* |
838 | * [R5 or later]: enumerate the resource database |
907 | * [R5 or later]: enumerate the resource database |
839 | */ |
908 | */ |
|
|
909 | assert (!name_p == !class_p); // both must be specified, or missing |
|
|
910 | |
840 | # ifdef KEYSYM_RESOURCE |
911 | #ifdef KEYSYM_RESOURCE |
|
|
912 | rxvt_enumerate_closure closure = { this, cb, name_p ? 1 : 0 }; |
|
|
913 | |
841 | XrmDatabase database = XrmGetDatabase (dpy); |
914 | XrmDatabase database = XrmGetDatabase (dpy); |
842 | XrmName name_prefix[3]; |
915 | XrmName name_prefix[3]; |
843 | XrmClass class_prefix[3]; |
916 | XrmClass class_prefix[3]; |
844 | |
917 | |
845 | name_prefix[0] = XrmStringToName (rs[Rs_name]); |
918 | name_prefix[1] = name_p ? XrmStringToName (name_p) : NULLQUARK; |
846 | name_prefix[1] = XrmStringToName ("keysym"); |
|
|
847 | name_prefix[2] = NULLQUARK; |
919 | name_prefix[2] = NULLQUARK; |
848 | class_prefix[0] = XrmStringToName (RESCLASS); |
920 | class_prefix[1] = class_p ? XrmStringToName (class_p) : NULLQUARK; |
849 | class_prefix[1] = XrmStringToName ("Keysym"); |
|
|
850 | class_prefix[2] = NULLQUARK; |
921 | class_prefix[2] = NULLQUARK; |
851 | /* XXX: Need to check sizeof (rxvt_t) == sizeof (XPointer) */ |
922 | |
|
|
923 | # ifdef RESFALLBACK |
|
|
924 | name_prefix[0] = class_prefix[0] = XrmStringToName (RESFALLBACK); |
852 | XrmEnumerateDatabase (database, name_prefix, class_prefix, |
925 | XrmEnumerateDatabase (database, name_prefix, class_prefix, |
853 | XrmEnumOneLevel, rxvt_define_key, NULL); |
926 | XrmEnumAllLevels, rxvt_enumerate_helper, (XPointer)&closure); |
854 | # ifdef RESFALLBACK |
927 | # endif |
|
|
928 | |
855 | name_prefix[0] = class_prefix[0] = XrmStringToName (RESFALLBACK); |
929 | name_prefix[0] = class_prefix[0] = XrmStringToName (RESCLASS); |
856 | /* XXX: Need to check sizeof (rxvt_t) == sizeof (XPointer) */ |
|
|
857 | XrmEnumerateDatabase (database, name_prefix, class_prefix, |
930 | XrmEnumerateDatabase (database, name_prefix, class_prefix, |
858 | XrmEnumOneLevel, rxvt_define_key, NULL); |
931 | XrmEnumAllLevels, rxvt_enumerate_helper, (XPointer)&closure); |
859 | # endif |
932 | |
|
|
933 | name_prefix[0] = class_prefix[0] = XrmStringToName (rs[Rs_name]); |
|
|
934 | XrmEnumerateDatabase (database, name_prefix, class_prefix, |
|
|
935 | XrmEnumAllLevels, rxvt_enumerate_helper, (XPointer)&closure); |
860 | # endif |
936 | #endif |
|
|
937 | } |
861 | |
938 | |
862 | #endif /* NO_RESOURCES */ |
939 | void |
|
|
940 | rxvt_term::extract_keysym_resources () |
|
|
941 | { |
|
|
942 | #ifdef KEYSYM_RESOURCE |
|
|
943 | enumerate_keysym_resources (rxvt_define_key); |
|
|
944 | #endif |
863 | } |
945 | } |
864 | |
946 | |
865 | /*----------------------- end-of-file (C source) -----------------------*/ |
947 | /*----------------------- end-of-file (C source) -----------------------*/ |
|
|
948 | |