#include <X11/Intrinsic.h>
#include <stdio.h>
#include <stdlib.h>
#define NONAME "-AppResTest-"
char *ProgramName;
XrmQuark XrmQString;
static void
usage (void)
{
fprintf (stderr,
"usage: %s [class [instance]] [-1] [toolkitoptions]\n",
ProgramName);
fprintf (stderr,
"-1 list resources only at the specified level\n");
fprintf (stderr,
"The number of class and instance elements must be equal.\n");
exit (1);
}
static void
PrintBindingQuarkList(XrmBindingList bindings,
XrmQuarkList quarks,
FILE* stream)
{
Bool firstNameSeen;
for (firstNameSeen = False; *quarks; bindings++, quarks++) {
if (*bindings == XrmBindLoosely) {
(void) fprintf(stream, "*");
} else if (firstNameSeen) {
(void) fprintf(stream, ".");
}
firstNameSeen = True;
(void) fputs(XrmQuarkToString(*quarks), stream);
}
}
static Bool
DumpEntry(XrmDatabase *db,
XrmBindingList bindings,
XrmQuarkList quarks,
XrmRepresentation *type,
XrmValuePtr value,
XPointer data)
{
FILE *stream = (FILE *)data;
register unsigned int i;
register char *s;
register char c;
if (*type != XrmQString)
(void) putc('!', stream);
PrintBindingQuarkList(bindings, quarks, stream);
s = value->addr;
i = value->size;
if (*type == XrmQString) {
(void) fputs(":\t", stream);
if (i)
i--;
}
else
fprintf(stream, "=%s:\t", XrmRepresentationToString(*type));
if (i && (*s == ' ' || *s == '\t'))
(void) putc('\\', stream);
while (i--) {
c = *s++;
if (c == '\n') {
if (i)
(void) fputs("\\n\\\n", stream);
else
(void) fputs("\\n", stream);
} else if (c == '\\')
(void) fputs("\\\\", stream);
else if ((c < ' ' && c != '\t') ||
((unsigned char)c >= 0x7f && (unsigned char)c < 0xa0))
(void) fprintf(stream, "\\%03o", (unsigned char)c);
else
(void) putc(c, stream);
}
(void) putc('\n', stream);
return False;
}
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 (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);
}