Initial revisionXORG-STABLE

2 files changed, 389 insertions, 0 deletions

diff --git a/listres.c b/listres.c
new file mode 100644
index 0000000..9d53e71
--- /dev/null
+++ b/listres.c
@@ -0,0 +1,306 @@
+/*
+ * $XConsortium: listres.c,v 1.32 94/04/17 20:43:22 dave Exp $
+ *
+ * 
+Copyright (c) 1989  X Consortium
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of the X Consortium shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from the X Consortium.
+ * *
+ * Author:  Jim Fulton, MIT X Consortium
+ */
+/* $XFree86: xc/programs/listres/listres.c,v 1.4 2001/04/01 14:00:18 tsi Exp $ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <X11/Xos.h>
+#include <X11/StringDefs.h>
+#include <X11/IntrinsicP.h>
+#include <X11/Xaw/Cardinals.h>
+#include <X11/Core.h>
+#include <X11/Xmu/CharSet.h>
+#include <X11/Xmu/WidgetNode.h>
+#include <X11/Xaw/AllWidgets.h>
+
+#define widget_list XawWidgetArray  /* or motif or ol or ... */
+#define nwidgets XawWidgetCount
+
+
+static XrmOptionDescRec Options[] = {
+  { "-top", "*topObject", XrmoptionSepArg, (caddr_t) NULL },
+  { "-format", "*resourceFormat", XrmoptionSepArg, (caddr_t) NULL },
+  { "-tree", "*showTree", XrmoptionNoArg, (caddr_t) "on" },
+  { "-nosuper", "*showSuper", XrmoptionNoArg, (caddr_t) "off" },
+  { "-variable", "*showVariable", XrmoptionNoArg, (caddr_t) "on" },
+};
+
+typedef struct {
+    Boolean show_tree;
+    Boolean show_all;
+    Boolean show_variable;
+    Boolean show_superclass;
+    char *top_object;
+    char *format;
+  } OptionsRec;
+
+OptionsRec options;
+
+#define Offset(field) XtOffsetOf(OptionsRec, field)
+
+static XtResource Resources[] = {
+  { "showTree", "ShowTree", XtRBoolean, sizeof(Boolean),
+      Offset(show_tree), XtRImmediate, (XtPointer) FALSE },
+  { "showSuper", "ShowSuper", XtRBoolean, sizeof(Boolean),
+      Offset(show_superclass), XtRImmediate, (caddr_t) TRUE },
+  { "showVariable", "ShowVariable", XtRBoolean, sizeof(Boolean),
+      Offset(show_variable), XtRImmediate, (caddr_t) FALSE },
+  { "topObject", "TopObject", XtRString, sizeof(char *),
+      Offset(top_object), XtRString, (caddr_t) "core" },
+  { "resourceFormat", "ResourceFormat", XtRString, sizeof(char *),
+      Offset(format), XtRString, (caddr_t) " %-16s %20s  %-20s  %s" },
+};
+
+#undef Offset
+
+const char *ProgramName;
+
+void
+usage ()
+{
+    fprintf(stderr, "usage:  %s [-options...]\n", ProgramName);
+    fprintf(stderr, "\nwhere options include:\n");
+    fprintf(stderr,
+	    "    -all             list all known widget and object classes\n");
+    fprintf(stderr,
+	    "    -tree            list all widgets and objects in a tree\n");
+    fprintf(stderr,
+	    "    -nosuper         do not print superclass resources\n");
+    fprintf(stderr,
+	    "    -variable        show variable name instead of class name\n");
+    fprintf(stderr,
+	    "    -top name        object to be top of tree\n");
+    fprintf(stderr,
+	    "    -format string   printf format for instance, class, type\n");
+    fprintf(stderr, "\n");
+    exit (1);
+}
+
+static void print_tree_level (wn, level)
+    register XmuWidgetNode *wn;
+    register int level;
+{
+    register int i;
+
+    if (!wn) return;
+
+    for (i = 0; i < level; i++) {
+	putchar (' '); putchar (' '); 
+    }
+    printf ("%d:  %s/%s\n", level, wn->label, XmuWnClassname(wn));
+    print_tree_level (wn->children, level + 1);
+    print_tree_level (wn->siblings, level);
+}
+
+static void tree_known_widgets ()
+{
+    register int i;
+    register XmuWidgetNode *wn;
+
+    for (i = 0, wn = widget_list; i < nwidgets; i++, wn++) {
+	if (!wn->superclass) {		/* list all rooted objects */
+	    print_tree_level (wn, 0);
+	}
+    }
+}
+
+
+/*
+ * print_classname - print out the superclass-to-subclass hierchy of names
+ * in the form super\sub\sub....
+ */
+static int print_classname (node, topnode, level, showvar)
+    XmuWidgetNode *node, *topnode;
+    int level;
+    Bool showvar;
+{
+    int retval;
+
+    if (node && node != topnode) {
+	retval = print_classname (node->superclass, topnode, level + 1,
+				  showvar);
+    } else {
+	retval = level - 1;
+    }
+    if (node)
+      printf ("%s%s", showvar ? node->label : XmuWnClassname(node),
+	      level ? "\\" : "");
+
+    return retval;
+}
+
+static void list_known_widgets ()
+{
+    int i;
+    XmuWidgetNode *wn;
+    int width = 0;
+    char format[20];
+
+    for (i = 0, wn = widget_list; i < nwidgets; i++, wn++) {
+	int l = strlen (wn->label);
+	if (l > width) width = l;
+    }
+    sprintf (format, "%%-%ds  ", width);
+    for (i = 0, wn = widget_list; i < nwidgets; i++, wn++) {
+	printf (format, wn->label);
+	print_classname (wn, (XmuWidgetNode *) NULL, 0, False);
+	putchar ('\n');
+    }
+}
+
+/* ARGSUSED */
+static void print_resources (node, format, topnode, showsuper, showvar)
+    XmuWidgetNode *node;
+    const char *format;
+    XmuWidgetNode *topnode;
+    Bool showsuper;
+    Bool showvar;
+{
+    int i;
+    XtResourceList res = node->resources;
+    XmuWidgetNode **wn = node->resourcewn;
+
+    for (i = 0; i < node->nresources; i++, res++, wn++) {
+	if (!showsuper && *wn != node) continue;
+	printf (format, showvar ? (*wn)->label : XmuWnClassname(*wn),
+		res->resource_name, res->resource_class, res->resource_type);
+	putchar ('\n');
+    }
+    if (node->nconstraints > 0) {
+	printf (format, "----", "----", "----", "----");
+	putchar ('\n');
+    }
+    res = node->constraints;
+    wn = node->constraintwn;
+    for (i = 0; i < node->nconstraints; i++, res++, wn++) {
+	if (!showsuper && *wn != node) continue;
+	printf (format, showvar ? (*wn)->label : XmuWnClassname(*wn),
+		res->resource_name, res->resource_class, res->resource_type);
+	putchar ('\n');
+    }
+    return;
+}
+
+
+/*
+ * list_resources - display resources of a widget, identifying class from
+ * which they come
+ */
+static void
+list_resources (node, format, topnode, toplevel, showsuper, showvar)
+    XmuWidgetNode *node;
+    const char *format;
+    XmuWidgetNode *topnode;
+    Widget toplevel;
+    Bool showsuper;
+    Bool showvar;
+{
+    static Bool first = True;
+
+    XmuWnFetchResources (node, toplevel, topnode);
+    if (first) {
+	printf (format, showvar ? "Variable" : "WidgetClass",
+		"Instance", "Class", "Type");
+	putchar ('\n');
+	printf (format, showvar ? "--------" : "-----------",
+		"--------", "-----", "----");
+	putchar ('\n');
+	first = False;
+    }
+    printf ("%s:  ", node->label);
+    print_classname (node, topnode, 0, showvar);
+    putchar ('\n');
+    print_resources (node, format, topnode, showsuper, showvar);
+    putchar ('\n');
+}
+
+
+int
+main (argc, argv)
+    int argc;
+    char **argv;
+{
+    int i;
+    XtAppContext appcon;
+    XmuWidgetNode *topnode;
+    Widget toplevel, container;
+
+    ProgramName = argv[0];
+
+    XtSetLanguageProc(NULL, (XtLanguageProc) NULL, NULL);
+
+    toplevel = XtAppInitialize (&appcon, "Listres", Options, XtNumber(Options),
+				&argc, argv, NULL, NULL, 0);
+    container = XtCreateWidget ("dummy", widgetClass, toplevel, NULL, ZERO);
+
+    XtGetApplicationResources (toplevel, (caddr_t) &options,
+			       Resources, XtNumber(Resources), NULL, ZERO);
+    XmuWnInitializeNodes (widget_list, nwidgets);
+    if (argc == 1) {
+	if (options.show_tree) {
+	    tree_known_widgets();
+	} else {
+	    list_known_widgets();
+	}
+	exit (0);
+    }
+
+    topnode = XmuWnNameToNode (widget_list, nwidgets, options.top_object);
+    argc--, argv++;			/* skip command */
+
+    if (argc > 0 && argv[0][0] == '-') {
+	int len = strlen (argv[0]);
+	if (len >= 2 && strncmp(argv[0], "-all", len) == 0) {
+	    XmuWidgetNode *wn;
+	    for (i = 0, wn = widget_list; i < nwidgets; i++, wn++) {
+		list_resources (wn, options.format, topnode, container,
+				(Bool) options.show_superclass,
+				(Bool) options.show_variable);
+	    }
+	} else
+	  usage();
+    } else {
+	for (; argc > 0; argc--, argv++) {
+	    XmuWidgetNode *node;
+
+	    if (argv[0][0] == '-') usage ();
+	    node = XmuWnNameToNode (widget_list, nwidgets, *argv);
+	    if (!node) {
+		fprintf (stderr, "%s:  unable to find widget \"%s\"\n",
+			 ProgramName, *argv);
+		continue;
+	    }
+	    list_resources (node, options.format, topnode, container,
+			    (Bool) options.show_superclass,
+			    (Bool) options.show_variable);
+	}
+    }
+    exit (0);
+}
diff --git a/listres.man b/listres.man
new file mode 100644
index 0000000..0afac2b
--- /dev/null
+++ b/listres.man
@@ -0,0 +1,83 @@
+.\" $XConsortium: listres.man,v 1.8 94/04/17 20:43:22 gildea Exp $
+.\" Copyright (c) 1994  X Consortium
+.\" 
+.\" Permission is hereby granted, free of charge, to any person obtaining
+.\" a copy of this software and associated documentation files (the
+.\" "Software"), to deal in the Software without restriction, including
+.\" without limitation the rights to use, copy, modify, merge, publish,
+.\" distribute, sublicense, and/or sell copies of the Software, and to
+.\" permit persons to whom the Software is furnished to do so, subject to
+.\" the following conditions:
+.\" 
+.\" The above copyright notice and this permission notice shall be included
+.\" in all copies or substantial portions of the Software.
+.\" 
+.\" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+.\" OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+.\" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+.\" IN NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR
+.\" OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
+.\" ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+.\" OTHER DEALINGS IN THE SOFTWARE.
+.\" 
+.\" Except as contained in this notice, the name of the X Consortium shall
+.\" not be used in advertising or otherwise to promote the sale, use or
+.\" other dealings in this Software without prior written authorization
+.\" from the X Consortium.
+.\"
+.\" $XFree86: xc/programs/listres/listres.man,v 1.3 2001/01/27 18:21:04 dawes Exp $
+.\"
+.TH LISTRES 1 __xorgversion__
+.SH NAME
+listres - list resources in widgets
+.SH SYNOPSIS
+.B "listres"
+[-option ...]
+.SH DESCRIPTION
+.PP
+The \fIlistres\fP program generates a list of a widget's resource database.  
+The class in which each resource is first defined, the instance and class
+name, and the type of each resource is listed.  If no specific widgets
+or the \fI-all\fP switch are given, a two-column list of widget names and
+their class hierarchies is printed.
+.SH OPTIONS
+\fIListres\fP accepts all of the standard toolkit command line options along
+with those listed below:
+.TP 8
+.B \-all
+This option indicates that \fIlistres\fP should print information for all
+known widgets and objects. 
+.TP 8
+.B \-nosuper
+This option indicates that resources that are inherited from a superclass
+should not be listed.  This is useful for determining which resources are
+new to a subclass.
+.TP 8
+.B \-variable
+This option indicates that widgets should be identified by the names of the
+class record variables rather than the class name given in the variable.  This
+is useful for distinguishing subclasses that have the same class name as their
+superclasses.
+.TP 8
+.B \-top \fIname\fP
+This option specifies the name of the widget to be treated as the top of the
+hierarchy.  Case is not significant, and the name may match either the class
+variable name or the class name.  The default is ``core''.
+.TP 8
+.B \-format \fIprintf\-string\fP
+This option specifies the \fIprintf\fP-style format string to be used to print
+out the name, instance, class, and type of each resource.
+.SH "X DEFAULTS"
+To be written.
+.SH "SEE ALSO"
+X(__miscmansuffix__), xrdb(1), appropriate widget documents
+.SH "BUGS"
+On operating systems that do not support dynamic linking of run-time routines,
+this program must have all of its known widgets compiled in.  The sources
+provide several tools for automating this process for various widget sets.
+.SH COPYRIGHT
+Copyright ([\d,\s]*) X Consortium
+.br
+See \fIX(__miscmansuffix__)\fP for a full statement of rights and permissions.
+.SH AUTHOR
+Jim Fulton, MIT X Consortium