int
main (int argc, char *argv[])
{
Widget toplevel;
char *iname = NONAME, *cname = NONAME;
XtAppContext xtcontext;
XrmName names[101];
XrmClass classes[101];
int i;
int mode = XrmEnumAllLevels;
ProgramName = argv[0];
if (argc > 1 && argv[1][0] != '-') {
cname = argv[1];
if (argc > 2 && argv[2][0] != '-')
iname = argv[2];
}
XrmStringToClassList(cname, classes);
XrmStringToNameList(iname, names);
for (i = 0; names[i]; i++)
;
if (!i || classes[i] || !classes[i-1]) usage ();
argv[0] = XrmNameToString(names[0]);
toplevel = XtAppInitialize(&xtcontext, XrmClassToString(classes[0]),
NULL, 0, &argc, argv, NULL, NULL, 0);
iname = NULL;
cname = NULL;
for (i = 1; i < argc; i++) {
if (!strcmp(argv[i], "-1"))
mode = XrmEnumOneLevel;
else if (!strcmp(argv[i], "-V")) {
printf("%s\n", PACKAGE_STRING);
exit(0);
}
else if (argv[i][0] == '-')
usage();
else if (!cname)
cname = argv[i];
else if (!iname)
iname = argv[i];
else
usage();
}
if (!iname) {
XtGetApplicationNameAndClass(XtDisplay(toplevel), &iname, &cname);
names[0] = XrmStringToName(iname);
}
XrmQString = XrmPermStringToQuark("String");
XrmEnumerateDatabase(XtDatabase(XtDisplay(toplevel)),
names, classes, mode,
DumpEntry, (XPointer)stdout);
return (0);
}
static void
SetValues(Widget w, XawVendorShellExtPart *ve,
ArgList args, Cardinal num_args)
{
ArgList arg;
XrmName argName;
XrmResourceList xrmres;
Cardinal i;
XawIcTablePart *p, save_tbl;
if ((p = GetIcTable(w, ve)) == NULL) return;
memcpy(&save_tbl, p, sizeof(XawIcTablePart));
for (arg = args ; num_args != 0; num_args--, arg++) {
argName = XrmStringToName(arg->name);
for (xrmres = (XrmResourceList)ve->im.resources, i = 0;
i < ve->im.num_resources; i++, xrmres++) {
if (argName == xrmres->xrm_name) {
_XtCopyFromArg(arg->value,
(char *)p - xrmres->xrm_offset - 1,
xrmres->xrm_size);
break;
}
}
}
if (p->font_set != save_tbl.font_set) {
p->flg |= CIFontSet;
}
if (p->foreground != save_tbl.foreground) {
p->flg |= CIFg;
}
if (p->background !=save_tbl.background) {
p->flg |= CIBg;
}
if (p->bg_pixmap != save_tbl.bg_pixmap) {
p->flg |= CIBgPixmap;
}
if (p->cursor_position != save_tbl.cursor_position) {
p->flg |= CICursorP;
}
if (p->line_spacing != save_tbl.line_spacing) {
p->flg |= CILineS;
}
p->prev_flg |= p->flg;
}
char *
XGetDefault(
Display *dpy, /* display for defaults.... */
char _Xconst *prog, /* name of program for option */
register _Xconst char *name) /* name of option program wants */
{ /* to get, for example, "font" */
XrmName names[3];
XrmClass classes[3];
XrmRepresentation fromType;
XrmValue result;
char *progname;
#ifdef WIN32
char *progname2;
#endif
#ifdef __UNIXOS2__
char *progname2;
char *dotpos;
#endif
/*
* strip path off of program name (XXX - this is OS specific)
*/
progname = strrchr (prog, '/');
#ifdef WIN32
progname2 = strrchr (prog, '\\');
if (progname2 && (!progname || progname < progname2))
progname = progname2;
#endif
#ifdef __UNIXOS2__ /* Very similar to WIN32 */
progname2 = strrchr (prog, '\\');
if (progname2 && (!progname || progname < progname2))
progname = progname2;
dotpos = strrchr (prog, '.');
if (dotpos && (dotpos>progname2)) *dotpos='\0';
#endif /* We take out the .exe suffix */
if (progname)
progname++;
else
progname = (char *)prog;
/*
* see if database has ever been initialized. Lookups can be done
* without locks held.
*/
LockDisplay(dpy);
if (dpy->db == NULL) {
dpy->db = InitDefaults(dpy);
dpy->flags |= XlibDisplayDfltRMDB;
}
UnlockDisplay(dpy);
names[0] = XrmStringToName(progname);
names[1] = XrmStringToName(name);
names[2] = NULLQUARK;
classes[0] = XrmStringToClass("Program");
classes[1] = XrmStringToClass("Name");
classes[2] = NULLQUARK;
(void)XrmQGetResource(dpy->db, names, classes, &fromType, &result);
return (result.addr);
}
