| /* xscreensaver, Copyright (c) 1992, 1997, 1998 |
| * Jamie Zawinski <jwz@jwz.org> |
| * |
| * Permission to use, copy, modify, distribute, and sell this software and its |
| * documentation for any purpose is hereby granted without fee, provided that |
| * the above copyright notice appear in all copies and that both that |
| * copyright notice and this permission notice appear in supporting |
| * documentation. No representations are made about the suitability of this |
| * software for any purpose. It is provided "as is" without express or |
| * implied warranty. |
| */ |
| |
| #include "utils.h" |
| #include "resources.h" |
| #include <X11/Xresource.h> |
| |
| |
| /* Resource functions. Assumes: */ |
| |
| extern char *progname; |
| extern char *progclass; |
| extern XrmDatabase db; |
| |
| #ifndef isupper |
| # define isupper(c) ((c) >= 'A' && (c) <= 'Z') |
| #endif |
| #ifndef _tolower |
| # define _tolower(c) ((c) - 'A' + 'a') |
| #endif |
| |
| char * |
| get_string_resource (char *res_name, char *res_class) |
| { |
| XrmValue value; |
| char *type; |
| char full_name [1024], full_class [1024]; |
| strcpy (full_name, progname); |
| strcat (full_name, "."); |
| strcat (full_name, res_name); |
| strcpy (full_class, progclass); |
| strcat (full_class, "."); |
| strcat (full_class, res_class); |
| if (XrmGetResource (db, full_name, full_class, &type, &value)) |
| { |
| char *str = (char *) malloc (value.size + 1); |
| strncpy (str, (char *) value.addr, value.size); |
| str [value.size] = 0; |
| return str; |
| } |
| return 0; |
| } |
| |
| Bool |
| get_boolean_resource (char *res_name, char *res_class) |
| { |
| char *tmp, buf [100]; |
| char *s = get_string_resource (res_name, res_class); |
| char *os = s; |
| if (! s) return 0; |
| for (tmp = buf; *s; s++) |
| *tmp++ = isupper (*s) ? _tolower (*s) : *s; |
| *tmp = 0; |
| free (os); |
| |
| while (*buf && |
| (buf[strlen(buf)-1] == ' ' || |
| buf[strlen(buf)-1] == '\t')) |
| buf[strlen(buf)-1] = 0; |
| |
| if (!strcmp (buf, "on") || !strcmp (buf, "true") || !strcmp (buf, "yes")) |
| return 1; |
| if (!strcmp (buf,"off") || !strcmp (buf, "false") || !strcmp (buf,"no")) |
| return 0; |
| fprintf (stderr, "%s: %s must be boolean, not %s.\n", |
| progname, res_name, buf); |
| return 0; |
| } |
| |
| unsigned int |
| get_pixel_resource (char *res_name, char *res_class, |
| Display *dpy, Colormap cmap) |
| { |
| XColor color; |
| char *s = get_string_resource (res_name, res_class); |
| char *s2; |
| if (!s) goto DEFAULT; |
| |
| for (s2 = s + strlen(s) - 1; s2 > s; s2--) |
| if (*s2 == ' ' || *s2 == '\t') |
| *s2 = 0; |
| else |
| break; |
| |
| if (! XParseColor (dpy, cmap, s, &color)) |
| { |
| fprintf (stderr, "%s: can't parse color %s\n", progname, s); |
| goto DEFAULT; |
| } |
| if (! XAllocColor (dpy, cmap, &color)) |
| { |
| fprintf (stderr, "%s: couldn't allocate color %s\n", progname, s); |
| goto DEFAULT; |
| } |
| free (s); |
| return color.pixel; |
| DEFAULT: |
| if (s) free (s); |
| return ((strlen(res_class) >= 10 && |
| !strcmp ("Background", res_class + strlen(res_class) - 10)) |
| ? BlackPixel (dpy, DefaultScreen (dpy)) |
| : WhitePixel (dpy, DefaultScreen (dpy))); |
| } |
| |