svn merge ^/branches/released .

1 files changed, 999 insertions, 1023 deletions

diff --git a/libXt/src/ResConfig.c b/libXt/src/ResConfig.c
index fd6d057c9..88590986f 100644
--- a/libXt/src/ResConfig.c
+++ b/libXt/src/ResConfig.c
@@ -1,1023 +1,999 @@
-/* $Xorg: ResConfig.c,v 1.5 2001/02/09 02:03:56 xorgcvs Exp $ */
-/*
-
-Copyright 1987, 1988, 1998  The Open Group
-
-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.
-
-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
-OPEN GROUP 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 Open Group 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 Open Group.
-
-*/
-/*****************************************************************
-
-(C) COPYRIGHT International Business Machines Corp. 1992,1997
-    All Rights Reserved
-
-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.
-
-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 IBM CORPORATION BE LIABLE FOR ANY CLAIM, DAMAGES, INCLUDING,
-BUT NOT LIMITED TO CONSEQUENTIAL OR INCIDENTAL 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 IBM Corporation 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 IBM
-Corporation.
-
-******************************************************************/
-/* $XFree86: xc/lib/Xt/ResConfig.c,v 3.7 2001/08/22 22:52:19 dawes Exp $ */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Intrinsic.h"
-#include "IntrinsicI.h"
-#include "Core.h"
-#include "CoreP.h"
-#include "ShellP.h"
-#include "StringDefs.h"
-#include "ResConfigP.h"
-#include <X11/Xatom.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#define MAX_BUFFER 512
-
-static void _search_child(Widget, char *, char *, char *, char *, char, char *);
-static void _set_and_search(Widget, char *, char *, char *, char *, char , char *);
-static int _locate_children(Widget, Widget **);
-
-#if defined(sun) && !defined(SVR4)
-# define Strtoul(a,b,c) (unsigned long)strtol(a,b,c)
-#else
-# define Strtoul(a,b,c) strtoul(a,b,c)
-#endif
-
-
-/*
- * NAME: _set_resource_values
- *
- * FUNCTION:
- *	This function sets the value on the widget.  It must first determine
- *	if the last part is a valid resource for that widget.  (eg.
- *	labelString is a valid resource for label but not for bulletin board)
- *	It must also add the resource to the application's resource database
- *	and then query it out using specific resource strings that it builds
- *	from the widget information.  This ensures that a customizing tool
- *	on-the-fly paradigm is followed:  an application that is
- *	instantaneously updated should look the same as one that is restarted
- *	and uses the .Xdefaults file.
- *
- * PARAMETERS:
- *	w		the widget to match
- *	resource	the resource string to be matched
- *	value		the value to be set
- *	last_part	the last resource part (e.g. *background)
- *
- * RETURN VALUES: void
- *
- * ERRORS: none
- */
-static void
-_set_resource_values (
-	Widget w,
-	char *resource,
-	char *value,
-	char *last_part)
-{
-	XrmDatabase 	db = NULL;
-	char		*resource_name = NULL;
-	char		*resource_class = NULL;
-	char		*return_type;
-	XrmValue	return_value;
-	char		*resource_value;
-	Widget		cur = w;
-	char		*temp;
-	XtResourceList	resources_return = NULL;
-	Cardinal 	num_resources_return = 0;
-	Cardinal	res_index;
-	Boolean		found_resource = False;
-	Display		*dpy;
-	XrmDatabase	tmp_db;
-
-	if (!XtIsWidget (w))
-		dpy = XtDisplay (w->core.parent);
-	else
-		dpy = XtDisplay (w);
-	tmp_db = XtDatabase(dpy);
-
-	/*
-	 * get a list of all the valid resources for this widget
-	 */
-	XtGetResourceList (w->core.widget_class,
-		&resources_return, &num_resources_return);
-
-	/*
-	 * try to match the last_part of the resource string with
-	 * a resource in this resource list
-	 */
-	for (res_index=0; res_index<num_resources_return; res_index++) {
-		if ((strcmp (last_part,
-			resources_return[res_index].resource_name) == 0) ||
-		    (strcmp (last_part,
-			resources_return[res_index].resource_class) == 0)) {
-			found_resource = True;
-			break;
-		}
-	}
-
-	/*
-	 * if resource is not a valid resource for this widget
-	 * or the resource name or class are NULL
-	 * then exit this function
-	 */
-	if (!found_resource
-		|| !resources_return[res_index].resource_name
-		|| !resources_return[res_index].resource_class) {
-		XtFree ((char *) resources_return);
-		return;
-	}
-
-	/*
-	 * build the full resource name and class specifications so
-	 * that you can query the resource database
-	 * 	eg: .app.button1.foreground
-	 * 	    .App.XmPushButton.Foreground
-	 */
-	while (cur != NULL) {
-		/*
-		 * create resource name string
-		 */
-		if (resource_name) {
-			temp = XtMalloc (sizeof(char) *
-				(2 + strlen(cur->core.name)
-			   	+ strlen(resource_name)));
-			sprintf (temp, ".%s%s", cur->core.name, resource_name);
-			XtFree (resource_name);
-		} else if (!XtIsWidget (cur) || !cur->core.name) {
-			cur = XtParent(cur);
-			continue;
-		} else {
-			temp = XtMalloc (sizeof(char) *
-				(2 + strlen(cur->core.name)));
-			sprintf (temp, ".%s", cur->core.name);
-		}
-		resource_name = temp;
-
-		/*
-		 * create resource class string
-		 */
-		if ((XtIsTopLevelShell (cur)) && (XtParent (cur) == NULL)) {
-			ApplicationShellWidget	top =
-				(ApplicationShellWidget) (cur);
-
-			if (resource_class) {
-				temp = XtMalloc (sizeof(char) *
-					(2 + strlen(top->application.class)
-					+ strlen(resource_class)));
-				sprintf (temp, ".%s%s",
-					top->application.class, resource_class);
-			} else {
-				temp = XtMalloc (sizeof(char) *
-					(2 + strlen(top->application.class)));
-				sprintf (temp, ".%s",
-					top->application.class);
-			}
-		} else {
-			if (resource_class) {
-				temp = XtMalloc (sizeof(char) *
-					(2 + strlen(
-					cur->core.widget_class->core_class.class_name)
-					+ strlen(resource_class)));
-				sprintf (temp, ".%s%s",
-					cur->core.widget_class->core_class.class_name,
-					resource_class);
-			} else {
-				temp = XtMalloc (sizeof(char) *
-					(2 + strlen(
-					cur->core.widget_class->core_class.class_name)));
-				sprintf (temp, ".%s",
-					cur->core.widget_class->core_class.class_name);
-			}
-		}
-		if (resource_class != NULL)
-			XtFree (resource_class);
-		resource_class = temp;
-
-		cur = XtParent(cur);
-	}
-
-	/*
-	 * add the resource name to the end of the resource name string
-	 */
-	temp = XtMalloc (2 + strlen(resource_name) +
-		strlen(resources_return[res_index].resource_name));
-	sprintf (temp, "%s.%s", resource_name,
-		resources_return[res_index].resource_name);
-	if (resource_name != NULL)
-		XtFree (resource_name);
-	resource_name = temp;
-
-	/*
-	 * add the resource class to the end of the resource class string
-	 */
-	temp = XtMalloc (2 + strlen(resource_class) +
-		strlen(resources_return[res_index].resource_class));
-	sprintf (temp, "%s.%s", resource_class,
-		resources_return[res_index].resource_class);
-	if (resource_class != NULL)
-		XtFree (resource_class);
-	resource_class = temp;
-
-#ifdef DEBUG
-	fprintf (stderr, "resource_name = %s\n", resource_name);
-	fprintf (stderr, "resource_class = %s\n", resource_class);
-#endif
-
-	/*
-	 * put the resource and its value in a resource database and
-	 * then query it back out again using the specific name and
-	 * class resource strings that were built above.  This is
-	 * necessary to maintain a precedence similar to the .Xdefaults
-	 * file
-	 */
-	XrmPutStringResource (&db, resource, value);
-	XrmMergeDatabases (db, &tmp_db);
-	XrmGetResource (tmp_db, resource_name, resource_class,
-		&return_type, &return_value);
-	if (return_type)
-		resource_value = XtNewString (return_value.addr);
-	else
-		resource_value = XtNewString (value);
-
-#ifdef DEBUG
-	fprintf (stderr,
-		"Apply:\n\twidget = %s\n\tlast_part = %s\n\tvalue = %s\n",
-		(w->core.name == NULL) ? "NULL" : w->core.name,
-		resources_return[res_index].resource_name,
-		resource_value);
-#endif
-	/*
-	 * use XtVaSetValues with XtVaTypedArg to convert the value of
-	 * type String the the same type as the resource (last_part).
-	 * Then set the value.
-	 */
-	XtVaSetValues (w,
-		XtVaTypedArg, resources_return[res_index].resource_name,
-		XtRString, resource_value,
-		strlen (resource_value) + 1,
-		NULL);
-
-	XtFree ((char *) resources_return);
-	XtFree (resource_name);
-	XtFree (resource_class);
-	XtFree (resource_value);
-}
-
-/*
- * NAME: _apply_values_to_children
- *
- * FUNCTION:
- *	Once the resource string matches the value must be applied to
- *	all children if applicable. (eg. App*Form.background must apply
- *	background to all children of the Form widget)
- *
- * PARAMETERS:
- *	w		the widget to match
- *	remainder	the part of the resource string left over
- *	resource	the resource string to be matched
- *	value		the value to be set
- *	last_token	the last * or . before the final resoruce part
- *	last_part	the last resource part (e.g. *background)
- *
- * RETURN VALUES: void
- *
- * ERRORS: none
- */
-static void
-_apply_values_to_children (
-	Widget w,
-	char *remainder,
-	char *resource,
-	char *value,
-	char last_token,
-	char *last_part)
-{
-	int 	i;
-	int	num_children;
-	Widget	*children;
-
-	/*
-	 * Recursively search through the children
-	 */
-	num_children = _locate_children (w, &children);
-
-	for (i=0; i<num_children; i++) {
-
-#ifdef DEBUG
-		if (XtIsWidget (children[i]) && XtIsWidget (w))
-			fprintf (stderr, "searching child %s of parent %s\n",
-				children[i]->core.name, w->core.name);
-		else
-			fprintf (stderr,"searching child (NULL) of parent %s\n",
-				w->core.name);
-		if (!XtIsWidget (children[i]))
-			fprintf (stderr, "children[%d] is NOT a widget\n", i);
-		if (!XtIsWidget (w))
-			fprintf (stderr, "w is NOT a widget\n");
-#endif
-
-		_set_resource_values (children[i], resource, value, last_part);
-		_apply_values_to_children (children[i], remainder,
-				resource, value, last_token, last_part);
-	}
-
-	XtFree ((char *)children);
-}
-
-/*
- * NAME: _search_child
- *
- * FUNCTION:
- *	descends through each child of the tree
- *
- * PARAMETERS:
- *	w		the widget whose children are to be searched
- *	indx		index into the resource string
- *	remainder	the remaining part of the resource string
- *	resource	the resource string to be matched
- *	value		the value to be applied
- *	last_token	the last * or . before the final resoruce part
- *	last_part	the last resource part (e.g. *background)
- *
- * RETURN VALUES: none
- *
- * ERRORS: none
- */
-static void
-_search_child (
-	Widget w,
-	char *indx,
-	char *remainder,
-	char *resource,
-	char *value,
-	char last_token,
-	char *last_part)
-{
-	int 	i;
-	int	num_children;
-	Widget	*children;
-
-	/*
-	 * Recursively search through the children
-	 */
-	num_children = _locate_children (w, &children);
-	for (i=0; i<num_children; i++) {
-		_set_and_search (children[i], indx, remainder, resource,
-			value, last_token, last_part);
-	}
-
-	XtFree ((char *)children);
-}
-
-/*
- * NAME: _get_part
- *
- * FUNCTION:
- * 	This routine will return the token and following part of the resource
- * 	when given the current index it will update the index accordingly
- *
- * PARAMETERS:
- *	remainder	the part of the resource string left over
- *	indx		the index into the resource string
- *	part		the parsed off part of the resource string
- *
- * RETURN VALUES:
- *	char		the token (* or . or ?) preceding the resource part
- *	indx		the index into the resource string
- *	part		the parsed off part of the resource string
- *
- * ERRORS: none
- */
-/* ARGSUSED */
-static char
-_get_part (
-	char *remainder,
-	char **indx,
-	char **part)
-{
-	char	buffer[MAX_BUFFER];
-	char	*buf_ptr;
-	char	token = **indx;
-	int	i = 0;
-
-	/*
-	 * copy the remainder part into the buffer
-	 */
-	buf_ptr = buffer;
-	(*indx)++;			/* get rid of the token		*/
-	while (**indx && (**indx != '.') && (**indx != '*')) {
-		*buf_ptr++ = *(*indx)++;
-		if (++i >= MAX_BUFFER - 1)
-			break;
-	}
-	*buf_ptr = '\0';
-
-	*part = XtNewString (buffer);	/* return a new string to part	*/
-
-	if (strcmp (*indx, "") == 0)
-		*indx = NULL;
-
-	return (token);			/* return the token		*/
-}
-
-/*
- * NAME: _match_resource_to_widget
- *
- * FUNCTION:
- *	This function matches the resource part to the widget name or class
- *
- * PARAMETERS:
- *	w		the widget to match
- *	part		the parsed off part of the resource string
- *
- * RETURN VALUES:
- *	Boolean		true if a match occurs
- *
- * ERRORS: none
- */
-static Boolean
-_match_resource_to_widget (
-	Widget w,
-	char *part)
-{
-	/*
-	 * Match any widget at this level if the ? is used
-	 */
-	if (strcmp (part, "?") == 0)
-		return (True);
-
-	/*
-	 * if the object is really a widget then its name can be matched
-	 * otherwise only use its class.  Note that if you try to reference
-	 * a widget name when the object is not a widget, you may get a
-	 * core dump from an invalid pointer reference.
-	 */
-	if (XtIsWidget (w)) {
-		if ((strcmp (w->core.name, part) == 0) ||
-		    (strcmp (w->core.widget_class->core_class.class_name,
-							part) == 0))
-			return (True);
-		else
-			return (False);
-	} else {
-		if ((strcmp (w->core.widget_class->core_class.class_name,
-							part) == 0))
-			return (True);
-		else
-			return (False);
-	}
-}
-
-/*
- * NAME: _set_and_search
- *
- * FUNCTION:
- * 	The algorithm to search the widget tree and apply a resource string
- *
- * PARAMETERS:
- *	w		the widget to match
- *	indx		the index into the resource string
- *	remainder	the part of the resource string left over
- *	resource	the resource string to be matched
- *	value		the value to be set
- *	last_token	the last * or . before the final resoruce part
- *	last_part	the last resource part (e.g. *background)
- *
- * RETURN VALUES: none
- *
- * ERRORS: none
- *
- * ALGORITHM:
- * loop (look at all children)
- * 	if (resource segment and current widget match)
- *		if '.'
- *			if at end of resource string
- *				set values (	.=over all children
- *						*=this widget only)
- *			else
- *				descend the widget tree
- *				and parse off resource segment
- *			exit the loop
- *		if '*'
- *			if at end of resource string
- *				set values (	.=over all children
- *						*=this widget only)
- *			descend and parse
- *	else
- *		if '.'
- *			continue looping
- *		if '*'
- *			descend but don't parse
- *			continue looping
- * end loop
- *
- * NOTE:  the _set_resource_values routine will not allow a value to be
- *	set on a resource against the rules of the resource database manager
- */
-static void
-_set_and_search (
-	Widget w,
-	char *indx,
-	char *remainder,
-	char *resource,
-	char *value,
-	char last_token,
-	char *last_part)
-{
-	char	*part;
-	char	*local_index = indx;
-	char	token;
-
-	/*
-	 * parse off one part, return token and the new index
-	 */
-	token = _get_part (remainder, &local_index, &part);
-
-	if (_match_resource_to_widget (w, part)) {
-		if (token == '.') {
-			if (local_index == NULL) {
-				if (last_token == '.') {
-					_set_resource_values (w, resource,
-						value, last_part);
-				} else if (last_token == '*') {
-					_set_resource_values (w, resource,
-						value, last_part);
-					_apply_values_to_children (w,
-						remainder, resource, value,
-						last_token, last_part);
-				}
-			} else
-				_search_child (w, local_index, remainder,
-					resource, value, last_token, last_part);
-			return;
-		}
-		if (token == '*') {
-			if (local_index == NULL) {
-				if (last_token == '.') {
-					_set_resource_values (w, resource,
-						value, last_part);
-				} else if (last_token == '*') {
-					_set_resource_values (w, resource,
-						value, last_part);
-					_apply_values_to_children ( w,
-						remainder, resource, value,
-						last_token, last_part);
-				}
-			} else
-				_search_child (w, local_index, remainder,
-					resource, value, last_token, last_part);
-		}
-	} else {/* if the widget name and class don't match the part */
-		/* if (token == '.') just continue looping */
-
-		if (token == '*') {
-			_search_child (w, indx, remainder, resource, value,
-				last_token, last_part);
-		}
-	}
-
-	XtFree (part);
-}
-
-/*
- * NAME: _get_last_part
- *
- * FUNCTION:
- * 	This routine will parse off the last segment of a resource string
- * 	and its token and return them.  the remainder of resource is also
- * 	returned.  strcoll is used to guarantee no problems with
- *	international strings.
- *
- * PARAMETERS:
- *	remainder	the part of the resource string left over
- *	part		the parsed off part of the resource string
- *
- * RETURN VALUES:
- *	char		the token (* or . or ?) preceding the resource part
- *	remainder	the part of the resource string left over
- *	part		the parsed off part of the resource string
- *
- * ERRORS: none
- */
-static char
-_get_last_part (
-	char *remainder,
-	char **part)
-{
-	char	*loose, *tight;
-
-	loose = strrchr (remainder, '*');
-	tight = strrchr (remainder, '.');
-
-	if ((loose == NULL) && (tight == NULL)) {
-		*part = XtNewString (remainder);
-		return ('.');
-	}
-	if ((loose == NULL) || (tight && (strcoll (loose, tight) < 0))) {
-		*tight++ = '\0';	/* shorten the remainder string */
-		*part = XtNewString (tight);
-		return ('.');
-	}
-	if ((tight == NULL) || (loose && (strcoll (tight, loose) < 0))) {
-		*loose++ = '\0';
-		*part = XtNewString (loose);
-		return ('*');
-	}
-	*part = NULL;
-
-	return ('0');	/* error - return 0 */
-}
-
-/*
- * NAME: _search_widget_tree
- *
- * FUNCTION:
- *	This function tries to match a resource string to the widgets
- *	it applies to.  The functions it invokes to do this then set
- *	the value for that resource to each widget.
- *
- *	The resource string has to be parsed into the following format:
- *		resource = App*Form*button1.background
- *		remainder = *Form*button1
- *		last_part = background		last_token = .
- *	As the widget tree is recursively descended, these variables are
- *	passed.  The remainder is parsed at each level in the widget
- *	tree as the _set_and_search function attempts to match
- *	the resource part (eg. part = Form  token = *) to a widget.  When
- *	the entire resource string has been matched, the _set_resource_values
- *	functions is called to apply the value to the widget or widgets.
- *
- * PARAMETERS:
- *	w		a widget from whose toplevel shell ancestor
- *			the search will start
- *	resource	the resource string to match
- *	value		the value to apply
- *
- * RETURN VALUES: none
- *
- * ERRORS: none
- */
-static void
-_search_widget_tree (
-	Widget w,
-	char *resource,
-	char *value)
-{
-	Widget	parent = w;
-	char	*last_part;
-	char	*remainder = NULL;
-	char	last_token;
-	char	*indx, *copy;
-	char	*loose, *tight;
-	int	loose_len, tight_len;
-
-	/*
-	 * Find the root of the tree given any widget
-	 */
-	while (XtParent(parent) != NULL) {
-		parent = XtParent(parent);
-	}
-#ifdef DEBUG
-	if (XtIsWidget (w) && XtIsWidget (parent))
-		fprintf (stderr, "widget = %s parent = %s\n",
-			w->core.name, parent->core.name);
-	else
-		fprintf (stderr, "widget = NULL parent = NULL\n");
-#endif
-
-	/*
-	 * parse off the Class name that was prepended to this string in
-	 * a customizing tool
-	 */
-	loose = strchr (resource, '*');
-	tight = strchr (resource, '.');
-	if ((loose == NULL) && (tight == NULL))
-		return;
-
-	loose_len = (loose) ? strlen (loose) : 0;
-	tight_len = (tight) ? strlen (tight) : 0;
-
-	if ((loose == NULL) || (tight_len > loose_len))
-		remainder = XtNewString (tight);
-	else if ((tight == NULL) || (loose_len > tight_len))
-		remainder = XtNewString (loose);
-
-	/*
-	 * Parse last segment off of resource string, (eg. background, font,
-	 * etc.)
-	 */
-	last_token = _get_last_part (remainder, &last_part);
-	/*
-	 * this case covers resources of only one level (eg. *background)
-	 */
-	if (strcmp (remainder, "") == 0) {
-		_set_resource_values (w, resource, value, last_part);
-		if (last_token == '*')
-			_apply_values_to_children (parent, remainder, resource,
-				value, last_token, last_part);
-	/*
-	 * all other resource strings are recursively applied to the widget tree.
-	 * Prepend a '.' to the remainder string if there is no leading token.
-	 */
-	} else {
-		if (remainder[0] != '*' && remainder[0] != '.') {
-			copy = XtMalloc (strlen(remainder) + 2);
-			sprintf (copy, ".%s", remainder);
-			XtFree (remainder);
-			remainder = copy;
-		}
-		indx = remainder;
-		_set_and_search (parent, indx, remainder, resource, value,
-			last_token, last_part);
-	}
-
-	XtFree (remainder);
-	XtFree (last_part);
-}
-
-/*
- * NAME: _locate_children
- *
- * FUNCTION:
- *	returns a list of all of a widget's children
- *
- * PARAMETERS:
- *	w		the parent to search for its children
- *	children	the list of children that is created
- *	normal		flag for normal children
- *	popup		flag for popup children
- *
- * RETURN VALUES:
- *	int		the number of children
- *	children	the list of children found
- *
- * ERRORS: none
- */
-static int
-_locate_children (
-	Widget parent,
-	Widget **children)
-{
-	CompositeWidget comp = (CompositeWidget) parent;
-	Cardinal	i;
-	int	num_children = 0;
-	int	current = 0;
-
-	/*
-	 * count the number of children
-	 */
-	if (XtIsWidget (parent))
-		num_children += parent->core.num_popups;
-	if (XtIsComposite (parent))
-		num_children += comp->composite.num_children;
-	if (num_children == 0) {
-		*children = NULL;
-		return (0);
-	}
-
-	*children = (Widget *)
-		XtMalloc ((Cardinal) sizeof(Widget) * num_children);
-
-	if (XtIsComposite (parent)) {
-		for (i=0; i<comp->composite.num_children; i++) {
-			(*children)[current] = comp->composite.children[i];
-			current++;
-		}
-	}
-
-	if (XtIsWidget (parent)) {
-		for (i=0; i<parent->core.num_popups; i++) {
-			(*children)[current] = comp->core.popup_list[i];
-			current++;
-		}
-	}
-
-	return (num_children);
-}
-
-#ifdef DEBUG
-/*
- * NAME: dump_widget_tree
- *
- * FUNCTION:
- *	recursively printout entire widget tree
- *
- * PARAMETERS:
- *	w		the widget to match
- *	indent		the amount to indent each line
- *
- * RETURN VALUES: void
- *
- * ERRORS: none
- */
-static void
-dump_widget_tree (
-	Widget w,
-	int	indent)
-{
-	int 	i,j;
-	int	num_children;
-	Widget	*children;
-
-	/*
-	 * Recursively search through the children
-	 */
-	num_children = _locate_children (w, &children);
-	indent += 2;
-	for (i=0; i<num_children; i++) {
-		if (children[i] != NULL) {
-			for (j=0; j<indent; j++)
-				fprintf (stderr, " ");
-			if (XtIsWidget (children[i])) {
-				fprintf (stderr, "(%s)\t",children[i]->core.name);
-				fprintf (stderr, "(%s)\n",
-			children[i]->core.widget_class->core_class.class_name);
-			} else {
-				fprintf (stderr, "(NULL)\t");
-				fprintf (stderr, "(%s)\n",
-			children[i]->core.widget_class->core_class.class_name);
-			}
-		}
-		dump_widget_tree (children[i], indent);
-	}
-
-	XtFree ((char *)children);
-}
-#endif
-
-/*
- * NAME: _XtResourceConfiguationEH
- *
- * FUNCTION:
- *	This function is the event handler for the on-the-fly communication
- *	with a resource customization tool.  This event handler must be
- *      registered for the toplevel shell of each app.  This is best done
- *      in the _XtCreatePopupShell and _XtAppCreateShell functions in Xt's
- *	Create.c source file.
- *
- * 	The property used to communicate with a customizing tool is
- *	placed on the toplevel shell window of the application.  The
- *	customizing tool places a property on this window which causes
- *	this event handler to be invoked via the PropertyNotify event.
- *	This event handler reads the property and then deletes it from
- *	the server.  The contents of the property are a resource string
- *	and value.  The event handler then calls functions to walk the
- *	applications widget tree, determining which widgets are affected
- *	by the resource string, and then applying the value with XtSetValues.
- *
- * PARAMETERS:
- *	w		the widget that invoked this event handler
- *	client_data	not used
- *	event		the event structure
- *
- * RETURN VALUES: none
- *
- * ERRORS: none
- */
-/* ARGSUSED */
-void
-_XtResourceConfigurationEH (
-	Widget w,
-	XtPointer client_data,
-	XEvent *event)
-{
-	Atom		actual_type;
-	int		actual_format;
-	unsigned long	nitems;
-	unsigned long	leftover;
-	unsigned char	*data = NULL;
-	unsigned long	resource_len;
-	char		*data_ptr;
-	char		*resource;
-	char		*value;
-#ifdef DEBUG
-	int		indent = 0;
-#endif
-	XtPerDisplay	pd;
-
-#ifdef DEBUG
-	fprintf (stderr, "in _XtResourceConfiguationEH atom = %d\n",event->xproperty.atom);
-	fprintf (stderr, "    window = %x\n", XtWindow (w));
-	if (XtIsWidget (w))
-		fprintf (stderr, "    widget = %x   name = %s\n", w, w->core.name);
-#endif
-
-	pd = _XtGetPerDisplay (XtDisplay (w));
-
-	/*
-	 * The window on which a customizing tool places the property
-	 * is determined at this point.  It should be the applications
-	 * toplevel shell window.
-	 *
-	 * A customizing tool sends a "ping" to the application on
-	 * the RCM_INIT property.  The application answers the ping
-	 * by deleting the property.
-	 */
-	if (event->xproperty.atom == pd->rcm_init) {
-		XDeleteProperty (XtDisplay(w), XtWindow (w), pd->rcm_init);
-
-#ifdef DEBUG
-		if (XtIsWidget (w))
-			fprintf (stderr, "%s\n", w->core.name);
-		else
-			fprintf (stderr, "NULL name\n");
-		dump_widget_tree(w, indent);
-
-		fprintf (stderr, "answer ping\n");
-#endif
-	}
-
-	/*
-	 * This event handler ignores any property notify events that
-	 * are not RCM_INIT or RCM_DATA
-	 */
-	if (event->xproperty.atom != pd->rcm_data)
-		return;
-
-	/*
-	 * Retrieve the data from the property
-	 */
-#ifdef DEBUG
-	fprintf (stderr, "receiving RCM_DATA property\n");
-#endif
-	if (XGetWindowProperty (XtDisplay(w),
-		XtWindow (w),
-		pd->rcm_data, 0L, 8192L,
-		TRUE, XA_STRING,
-		&actual_type, &actual_format, &nitems, &leftover,
-		&data ) == Success && actual_type == XA_STRING
-			   && actual_format == 8) {
-	/*
-	 *      data format is:
-	 *
-	 *      resource_length, resource, value
-	 *
-	 *      convert the resource_length to a long, skip over it, put a
-	 *      zero byte at the end of the resource, and pick off the
-	 *      resource and value fields.
-	 */
-		if (data) {
-			resource_len = Strtoul ((void *)data, &data_ptr, 10);
-			data_ptr++;
-
-			data_ptr[resource_len] = '\0';
-
-			resource = XtNewString (data_ptr);
-			value = XtNewString (&data_ptr[resource_len + 1]);
-#ifdef DEBUG
-			fprintf (stderr, "resource_len=%d\n",resource_len);
-			fprintf (stderr, "resource = %s\t value = %s\n",
-					resource, value);
-#endif
-			/*
-			 * descend the application widget tree and
-			 * apply the value to the appropriate widgets
-			 */
-			_search_widget_tree (w, resource, value);
-
-			XtFree (resource);
-			XtFree (value);
-		}
-	}
-
-	if (data)
-		XFree ((char *)data);
-}
+/*

+

+Copyright 1987, 1988, 1998  The Open Group

+

+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.

+

+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

+OPEN GROUP 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 Open Group 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 Open Group.

+

+*/

+/*****************************************************************

+

+(C) COPYRIGHT International Business Machines Corp. 1992,1997

+    All Rights Reserved

+

+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.

+

+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 IBM CORPORATION BE LIABLE FOR ANY CLAIM, DAMAGES, INCLUDING,

+BUT NOT LIMITED TO CONSEQUENTIAL OR INCIDENTAL 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 IBM Corporation 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 IBM

+Corporation.

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Intrinsic.h"

+#include "IntrinsicI.h"

+#include "Core.h"

+#include "CoreP.h"

+#include "ShellP.h"

+#include "StringDefs.h"

+#include "ResConfigP.h"

+#include <X11/Xatom.h>

+#include <stdio.h>

+#include <stdlib.h>

+

+#define MAX_BUFFER 512

+

+static void _search_child(Widget, char *, char *, char *, char *, char, char *);

+static void _set_and_search(Widget, char *, char *, char *, char *, char , char *);

+static int _locate_children(Widget, Widget **);

+

+#if defined(sun) && !defined(SVR4)

+# define Strtoul(a,b,c) (unsigned long)strtol(a,b,c)

+#else

+# define Strtoul(a,b,c) strtoul(a,b,c)

+#endif

+

+

+/*

+ * NAME: _set_resource_values

+ *

+ * FUNCTION:

+ *	This function sets the value on the widget.  It must first determine

+ *	if the last part is a valid resource for that widget.  (eg.

+ *	labelString is a valid resource for label but not for bulletin board)

+ *	It must also add the resource to the application's resource database

+ *	and then query it out using specific resource strings that it builds

+ *	from the widget information.  This ensures that a customizing tool

+ *	on-the-fly paradigm is followed:  an application that is

+ *	instantaneously updated should look the same as one that is restarted

+ *	and uses the .Xdefaults file.

+ *

+ * PARAMETERS:

+ *	w		the widget to match

+ *	resource	the resource string to be matched

+ *	value		the value to be set

+ *	last_part	the last resource part (e.g. *background)

+ *

+ * RETURN VALUES: void

+ *

+ * ERRORS: none

+ */

+static void

+_set_resource_values (

+	Widget w,

+	char *resource,

+	char *value,

+	char *last_part)

+{

+	XrmDatabase 	db = NULL;

+	char		*resource_name = NULL;

+	char		*resource_class = NULL;

+	char		*return_type;

+	XrmValue	return_value;

+	char		*resource_value;

+	Widget		cur = w;

+	char		*temp;

+	XtResourceList	resources_return = NULL;

+	Cardinal 	num_resources_return = 0;

+	Cardinal	res_index;

+	Boolean		found_resource = False;

+	Display		*dpy;

+	XrmDatabase	tmp_db;

+

+	if (!XtIsWidget (w))

+		dpy = XtDisplay (w->core.parent);

+	else

+		dpy = XtDisplay (w);

+	tmp_db = XtDatabase(dpy);

+

+	/*

+	 * get a list of all the valid resources for this widget

+	 */

+	XtGetResourceList (w->core.widget_class,

+		&resources_return, &num_resources_return);

+

+	/*

+	 * try to match the last_part of the resource string with

+	 * a resource in this resource list

+	 */

+	for (res_index=0; res_index<num_resources_return; res_index++) {

+		if ((strcmp (last_part,

+			resources_return[res_index].resource_name) == 0) ||

+		    (strcmp (last_part,

+			resources_return[res_index].resource_class) == 0)) {

+			found_resource = True;

+			break;

+		}

+	}

+

+	/*

+	 * if resource is not a valid resource for this widget

+	 * or the resource name or class are NULL

+	 * then exit this function

+	 */

+	if (!found_resource

+		|| !resources_return[res_index].resource_name

+		|| !resources_return[res_index].resource_class) {

+		XtFree ((char *) resources_return);

+		return;

+	}

+

+	/*

+	 * build the full resource name and class specifications so

+	 * that you can query the resource database

+	 * 	eg: .app.button1.foreground

+	 * 	    .App.XmPushButton.Foreground

+	 */

+	while (cur != NULL) {

+		/*

+		 * create resource name string

+		 */

+		if (resource_name) {

+			XtAsprintf (&temp, ".%s%s", cur->core.name, resource_name);

+			XtFree (resource_name);

+		} else if (!XtIsWidget (cur) || !cur->core.name) {

+			cur = XtParent(cur);

+			continue;

+		} else {

+			XtAsprintf (&temp, ".%s", cur->core.name);

+		}

+		resource_name = temp;

+

+		/*

+		 * create resource class string

+		 */

+		if ((XtIsTopLevelShell (cur)) && (XtParent (cur) == NULL)) {

+			ApplicationShellWidget	top =

+				(ApplicationShellWidget) (cur);

+

+			if (resource_class) {

+				XtAsprintf (&temp, ".%s%s",

+					top->application.class, resource_class);

+			} else {

+				XtAsprintf (&temp, ".%s",

+					top->application.class);

+			}

+		} else {

+			if (resource_class) {

+				XtAsprintf (&temp, ".%s%s",

+					cur->core.widget_class->core_class.class_name,

+					resource_class);

+			} else {

+				XtAsprintf (&temp, ".%s",

+					cur->core.widget_class->core_class.class_name);

+			}

+		}

+		if (resource_class != NULL)

+			XtFree (resource_class);

+		resource_class = temp;

+

+		cur = XtParent(cur);

+	}

+

+	/*

+	 * add the resource name to the end of the resource name string

+	 */

+	XtAsprintf (&temp, "%s.%s", resource_name,

+		resources_return[res_index].resource_name);

+	if (resource_name != NULL)

+		XtFree (resource_name);

+	resource_name = temp;

+

+	/*

+	 * add the resource class to the end of the resource class string

+	 */

+	XtAsprintf (&temp, "%s.%s", resource_class,

+		resources_return[res_index].resource_class);

+	if (resource_class != NULL)

+		XtFree (resource_class);

+	resource_class = temp;

+

+#ifdef DEBUG

+	fprintf (stderr, "resource_name = %s\n", resource_name);

+	fprintf (stderr, "resource_class = %s\n", resource_class);

+#endif

+

+	/*

+	 * put the resource and its value in a resource database and

+	 * then query it back out again using the specific name and

+	 * class resource strings that were built above.  This is

+	 * necessary to maintain a precedence similar to the .Xdefaults

+	 * file

+	 */

+	XrmPutStringResource (&db, resource, value);

+	XrmMergeDatabases (db, &tmp_db);

+	XrmGetResource (tmp_db, resource_name, resource_class,

+		&return_type, &return_value);

+	if (return_type)

+		resource_value = XtNewString (return_value.addr);

+	else

+		resource_value = XtNewString (value);

+

+#ifdef DEBUG

+	fprintf (stderr,

+		"Apply:\n\twidget = %s\n\tlast_part = %s\n\tvalue = %s\n",

+		(w->core.name == NULL) ? "NULL" : w->core.name,

+		resources_return[res_index].resource_name,

+		resource_value);

+#endif

+	/*

+	 * use XtVaSetValues with XtVaTypedArg to convert the value of

+	 * type String the the same type as the resource (last_part).

+	 * Then set the value.

+	 */

+	XtVaSetValues (w,

+		XtVaTypedArg, resources_return[res_index].resource_name,

+		XtRString, resource_value,

+		strlen (resource_value) + 1,

+		NULL);

+

+	XtFree ((char *) resources_return);

+	XtFree (resource_name);

+	XtFree (resource_class);

+	XtFree (resource_value);

+}

+

+/*

+ * NAME: _apply_values_to_children

+ *

+ * FUNCTION:

+ *	Once the resource string matches the value must be applied to

+ *	all children if applicable. (eg. App*Form.background must apply

+ *	background to all children of the Form widget)

+ *

+ * PARAMETERS:

+ *	w		the widget to match

+ *	remainder	the part of the resource string left over

+ *	resource	the resource string to be matched

+ *	value		the value to be set

+ *	last_token	the last * or . before the final resoruce part

+ *	last_part	the last resource part (e.g. *background)

+ *

+ * RETURN VALUES: void

+ *

+ * ERRORS: none

+ */

+static void

+_apply_values_to_children (

+	Widget w,

+	char *remainder,

+	char *resource,

+	char *value,

+	char last_token,

+	char *last_part)

+{

+	int 	i;

+	int	num_children;

+	Widget	*children;

+

+	/*

+	 * Recursively search through the children

+	 */

+	num_children = _locate_children (w, &children);

+

+	for (i=0; i<num_children; i++) {

+

+#ifdef DEBUG

+		if (XtIsWidget (children[i]) && XtIsWidget (w))

+			fprintf (stderr, "searching child %s of parent %s\n",

+				children[i]->core.name, w->core.name);

+		else

+			fprintf (stderr,"searching child (NULL) of parent %s\n",

+				w->core.name);

+		if (!XtIsWidget (children[i]))

+			fprintf (stderr, "children[%d] is NOT a widget\n", i);

+		if (!XtIsWidget (w))

+			fprintf (stderr, "w is NOT a widget\n");

+#endif

+

+		_set_resource_values (children[i], resource, value, last_part);

+		_apply_values_to_children (children[i], remainder,

+				resource, value, last_token, last_part);

+	}

+

+	XtFree ((char *)children);

+}

+

+/*

+ * NAME: _search_child

+ *

+ * FUNCTION:

+ *	descends through each child of the tree

+ *

+ * PARAMETERS:

+ *	w		the widget whose children are to be searched

+ *	indx		index into the resource string

+ *	remainder	the remaining part of the resource string

+ *	resource	the resource string to be matched

+ *	value		the value to be applied

+ *	last_token	the last * or . before the final resoruce part

+ *	last_part	the last resource part (e.g. *background)

+ *

+ * RETURN VALUES: none

+ *

+ * ERRORS: none

+ */

+static void

+_search_child (

+	Widget w,

+	char *indx,

+	char *remainder,

+	char *resource,

+	char *value,

+	char last_token,

+	char *last_part)

+{

+	int 	i;

+	int	num_children;

+	Widget	*children;

+

+	/*

+	 * Recursively search through the children

+	 */

+	num_children = _locate_children (w, &children);

+	for (i=0; i<num_children; i++) {

+		_set_and_search (children[i], indx, remainder, resource,

+			value, last_token, last_part);

+	}

+

+	XtFree ((char *)children);

+}

+

+/*

+ * NAME: _get_part

+ *

+ * FUNCTION:

+ * 	This routine will return the token and following part of the resource

+ * 	when given the current index it will update the index accordingly

+ *

+ * PARAMETERS:

+ *	remainder	the part of the resource string left over

+ *	indx		the index into the resource string

+ *	part		the parsed off part of the resource string

+ *

+ * RETURN VALUES:

+ *	char		the token (* or . or ?) preceding the resource part

+ *	indx		the index into the resource string

+ *	part		the parsed off part of the resource string

+ *

+ * ERRORS: none

+ */

+/* ARGSUSED */

+static char

+_get_part (

+	char *remainder,

+	char **indx,

+	char **part)

+{

+	char	buffer[MAX_BUFFER];

+	char	*buf_ptr;

+	char	token = **indx;

+	int	i = 0;

+

+	/*

+	 * copy the remainder part into the buffer

+	 */

+	buf_ptr = buffer;

+	(*indx)++;			/* get rid of the token		*/

+	while (**indx && (**indx != '.') && (**indx != '*')) {

+		*buf_ptr++ = *(*indx)++;

+		if (++i >= MAX_BUFFER - 1)

+			break;

+	}

+	*buf_ptr = '\0';

+

+	*part = XtNewString (buffer);	/* return a new string to part	*/

+

+	if (strcmp (*indx, "") == 0)

+		*indx = NULL;

+

+	return (token);			/* return the token		*/

+}

+

+/*

+ * NAME: _match_resource_to_widget

+ *

+ * FUNCTION:

+ *	This function matches the resource part to the widget name or class

+ *

+ * PARAMETERS:

+ *	w		the widget to match

+ *	part		the parsed off part of the resource string

+ *

+ * RETURN VALUES:

+ *	Boolean		true if a match occurs

+ *

+ * ERRORS: none

+ */

+static Boolean

+_match_resource_to_widget (

+	Widget w,

+	char *part)

+{

+	/*

+	 * Match any widget at this level if the ? is used

+	 */

+	if (strcmp (part, "?") == 0)

+		return (True);

+

+	/*

+	 * if the object is really a widget then its name can be matched

+	 * otherwise only use its class.  Note that if you try to reference

+	 * a widget name when the object is not a widget, you may get a

+	 * core dump from an invalid pointer reference.

+	 */

+	if (XtIsWidget (w)) {

+		if ((strcmp (w->core.name, part) == 0) ||

+		    (strcmp (w->core.widget_class->core_class.class_name,

+							part) == 0))

+			return (True);

+		else

+			return (False);

+	} else {

+		if ((strcmp (w->core.widget_class->core_class.class_name,

+							part) == 0))

+			return (True);

+		else

+			return (False);

+	}

+}

+

+/*

+ * NAME: _set_and_search

+ *

+ * FUNCTION:

+ * 	The algorithm to search the widget tree and apply a resource string

+ *

+ * PARAMETERS:

+ *	w		the widget to match

+ *	indx		the index into the resource string

+ *	remainder	the part of the resource string left over

+ *	resource	the resource string to be matched

+ *	value		the value to be set

+ *	last_token	the last * or . before the final resoruce part

+ *	last_part	the last resource part (e.g. *background)

+ *

+ * RETURN VALUES: none

+ *

+ * ERRORS: none

+ *

+ * ALGORITHM:

+ * loop (look at all children)

+ * 	if (resource segment and current widget match)

+ *		if '.'

+ *			if at end of resource string

+ *				set values (	.=over all children

+ *						*=this widget only)

+ *			else

+ *				descend the widget tree

+ *				and parse off resource segment

+ *			exit the loop

+ *		if '*'

+ *			if at end of resource string

+ *				set values (	.=over all children

+ *						*=this widget only)

+ *			descend and parse

+ *	else

+ *		if '.'

+ *			continue looping

+ *		if '*'

+ *			descend but don't parse

+ *			continue looping

+ * end loop

+ *

+ * NOTE:  the _set_resource_values routine will not allow a value to be

+ *	set on a resource against the rules of the resource database manager

+ */

+static void

+_set_and_search (

+	Widget w,

+	char *indx,

+	char *remainder,

+	char *resource,

+	char *value,

+	char last_token,

+	char *last_part)

+{

+	char	*part;

+	char	*local_index = indx;

+	char	token;

+

+	/*

+	 * parse off one part, return token and the new index

+	 */

+	token = _get_part (remainder, &local_index, &part);

+

+	if (_match_resource_to_widget (w, part)) {

+		if (token == '.') {

+			if (local_index == NULL) {

+				if (last_token == '.') {

+					_set_resource_values (w, resource,

+						value, last_part);

+				} else if (last_token == '*') {

+					_set_resource_values (w, resource,

+						value, last_part);

+					_apply_values_to_children (w,

+						remainder, resource, value,

+						last_token, last_part);

+				}

+			} else

+				_search_child (w, local_index, remainder,

+					resource, value, last_token, last_part);

+			return;

+		}

+		if (token == '*') {

+			if (local_index == NULL) {

+				if (last_token == '.') {

+					_set_resource_values (w, resource,

+						value, last_part);

+				} else if (last_token == '*') {

+					_set_resource_values (w, resource,

+						value, last_part);

+					_apply_values_to_children ( w,

+						remainder, resource, value,

+						last_token, last_part);

+				}

+			} else

+				_search_child (w, local_index, remainder,

+					resource, value, last_token, last_part);

+		}

+	} else {/* if the widget name and class don't match the part */

+		/* if (token == '.') just continue looping */

+

+		if (token == '*') {

+			_search_child (w, indx, remainder, resource, value,

+				last_token, last_part);

+		}

+	}

+

+	XtFree (part);

+}

+

+/*

+ * NAME: _get_last_part

+ *

+ * FUNCTION:

+ * 	This routine will parse off the last segment of a resource string

+ * 	and its token and return them.  the remainder of resource is also

+ * 	returned.  strcoll is used to guarantee no problems with

+ *	international strings.

+ *

+ * PARAMETERS:

+ *	remainder	the part of the resource string left over

+ *	part		the parsed off part of the resource string

+ *

+ * RETURN VALUES:

+ *	char		the token (* or . or ?) preceding the resource part

+ *	remainder	the part of the resource string left over

+ *	part		the parsed off part of the resource string

+ *

+ * ERRORS: none

+ */

+static char

+_get_last_part (

+	char *remainder,

+	char **part)

+{

+	char	*loose, *tight;

+

+	loose = strrchr (remainder, '*');

+	tight = strrchr (remainder, '.');

+

+	if ((loose == NULL) && (tight == NULL)) {

+		*part = XtNewString (remainder);

+		return ('.');

+	}

+	if ((loose == NULL) || (tight && (strcoll (loose, tight) < 0))) {

+		*tight++ = '\0';	/* shorten the remainder string */

+		*part = XtNewString (tight);

+		return ('.');

+	}

+	if ((tight == NULL) || (loose && (strcoll (tight, loose) < 0))) {

+		*loose++ = '\0';

+		*part = XtNewString (loose);

+		return ('*');

+	}

+	*part = NULL;

+

+	return ('0');	/* error - return 0 */

+}

+

+/*

+ * NAME: _search_widget_tree

+ *

+ * FUNCTION:

+ *	This function tries to match a resource string to the widgets

+ *	it applies to.  The functions it invokes to do this then set

+ *	the value for that resource to each widget.

+ *

+ *	The resource string has to be parsed into the following format:

+ *		resource = App*Form*button1.background

+ *		remainder = *Form*button1

+ *		last_part = background		last_token = .

+ *	As the widget tree is recursively descended, these variables are

+ *	passed.  The remainder is parsed at each level in the widget

+ *	tree as the _set_and_search function attempts to match

+ *	the resource part (eg. part = Form  token = *) to a widget.  When

+ *	the entire resource string has been matched, the _set_resource_values

+ *	functions is called to apply the value to the widget or widgets.

+ *

+ * PARAMETERS:

+ *	w		a widget from whose toplevel shell ancestor

+ *			the search will start

+ *	resource	the resource string to match

+ *	value		the value to apply

+ *

+ * RETURN VALUES: none

+ *

+ * ERRORS: none

+ */

+static void

+_search_widget_tree (

+	Widget w,

+	char *resource,

+	char *value)

+{

+	Widget	parent = w;

+	char	*last_part;

+	char	*remainder = NULL;

+	char	last_token;

+	char	*indx, *copy;

+	char	*loose, *tight;

+	int	loose_len, tight_len;

+

+	/*

+	 * Find the root of the tree given any widget

+	 */

+	while (XtParent(parent) != NULL) {

+		parent = XtParent(parent);

+	}

+#ifdef DEBUG

+	if (XtIsWidget (w) && XtIsWidget (parent))

+		fprintf (stderr, "widget = %s parent = %s\n",

+			w->core.name, parent->core.name);

+	else

+		fprintf (stderr, "widget = NULL parent = NULL\n");

+#endif

+

+	/*

+	 * parse off the Class name that was prepended to this string in

+	 * a customizing tool

+	 */

+	loose = strchr (resource, '*');

+	tight = strchr (resource, '.');

+	if ((loose == NULL) && (tight == NULL))

+		return;

+

+	loose_len = (loose) ? strlen (loose) : 0;

+	tight_len = (tight) ? strlen (tight) : 0;

+

+	if ((loose == NULL) || (tight_len > loose_len))

+		remainder = XtNewString (tight);

+	else if ((tight == NULL) || (loose_len > tight_len))

+		remainder = XtNewString (loose);

+

+	/*

+	 * Parse last segment off of resource string, (eg. background, font,

+	 * etc.)

+	 */

+	last_token = _get_last_part (remainder, &last_part);

+	/*

+	 * this case covers resources of only one level (eg. *background)

+	 */

+	if (remainder[0] == 0) {

+		_set_resource_values (w, resource, value, last_part);

+		if (last_token == '*')

+			_apply_values_to_children (parent, remainder, resource,

+				value, last_token, last_part);

+	/*

+	 * all other resource strings are recursively applied to the widget tree.

+	 * Prepend a '.' to the remainder string if there is no leading token.

+	 */

+	} else {

+		if (remainder[0] != '*' && remainder[0] != '.') {

+			XtAsprintf (&copy, ".%s", remainder);

+			XtFree (remainder);

+			remainder = copy;

+		}

+		indx = remainder;

+		_set_and_search (parent, indx, remainder, resource, value,

+			last_token, last_part);

+	}

+

+	XtFree (remainder);

+	XtFree (last_part);

+}

+

+/*

+ * NAME: _locate_children

+ *

+ * FUNCTION:

+ *	returns a list of all of a widget's children

+ *

+ * PARAMETERS:

+ *	w		the parent to search for its children

+ *	children	the list of children that is created

+ *	normal		flag for normal children

+ *	popup		flag for popup children

+ *

+ * RETURN VALUES:

+ *	int		the number of children

+ *	children	the list of children found

+ *

+ * ERRORS: none

+ */

+static int

+_locate_children (

+	Widget parent,

+	Widget **children)

+{

+	CompositeWidget comp = (CompositeWidget) parent;

+	Cardinal	i;

+	int	num_children = 0;

+	int	current = 0;

+

+	/*

+	 * count the number of children

+	 */

+	if (XtIsWidget (parent))

+		num_children += parent->core.num_popups;

+	if (XtIsComposite (parent))

+		num_children += comp->composite.num_children;

+	if (num_children == 0) {

+		*children = NULL;

+		return (0);

+	}

+

+	*children = (Widget *)

+		XtMalloc ((Cardinal) sizeof(Widget) * num_children);

+

+	if (XtIsComposite (parent)) {

+		for (i=0; i<comp->composite.num_children; i++) {

+			(*children)[current] = comp->composite.children[i];

+			current++;

+		}

+	}

+

+	if (XtIsWidget (parent)) {

+		for (i=0; i<parent->core.num_popups; i++) {

+			(*children)[current] = comp->core.popup_list[i];

+			current++;

+		}

+	}

+

+	return (num_children);

+}

+

+#ifdef DEBUG

+/*

+ * NAME: dump_widget_tree

+ *

+ * FUNCTION:

+ *	recursively printout entire widget tree

+ *

+ * PARAMETERS:

+ *	w		the widget to match

+ *	indent		the amount to indent each line

+ *

+ * RETURN VALUES: void

+ *

+ * ERRORS: none

+ */

+static void

+dump_widget_tree (

+	Widget w,

+	int	indent)

+{

+	int 	i,j;

+	int	num_children;

+	Widget	*children;

+

+	/*

+	 * Recursively search through the children

+	 */

+	num_children = _locate_children (w, &children);

+	indent += 2;

+	for (i=0; i<num_children; i++) {

+		if (children[i] != NULL) {

+			for (j=0; j<indent; j++)

+				fprintf (stderr, " ");

+			if (XtIsWidget (children[i])) {

+				fprintf (stderr, "(%s)\t",children[i]->core.name);

+				fprintf (stderr, "(%s)\n",

+			children[i]->core.widget_class->core_class.class_name);

+			} else {

+				fprintf (stderr, "(NULL)\t");

+				fprintf (stderr, "(%s)\n",

+			children[i]->core.widget_class->core_class.class_name);

+			}

+		}

+		dump_widget_tree (children[i], indent);

+	}

+

+	XtFree ((char *)children);

+}

+#endif

+

+/*

+ * NAME: _XtResourceConfiguationEH

+ *

+ * FUNCTION:

+ *	This function is the event handler for the on-the-fly communication

+ *	with a resource customization tool.  This event handler must be

+ *      registered for the toplevel shell of each app.  This is best done

+ *      in the _XtCreatePopupShell and _XtAppCreateShell functions in Xt's

+ *	Create.c source file.

+ *

+ * 	The property used to communicate with a customizing tool is

+ *	placed on the toplevel shell window of the application.  The

+ *	customizing tool places a property on this window which causes

+ *	this event handler to be invoked via the PropertyNotify event.

+ *	This event handler reads the property and then deletes it from

+ *	the server.  The contents of the property are a resource string

+ *	and value.  The event handler then calls functions to walk the

+ *	applications widget tree, determining which widgets are affected

+ *	by the resource string, and then applying the value with XtSetValues.

+ *

+ * PARAMETERS:

+ *	w		the widget that invoked this event handler

+ *	client_data	not used

+ *	event		the event structure

+ *

+ * RETURN VALUES: none

+ *

+ * ERRORS: none

+ */

+/* ARGSUSED */

+void

+_XtResourceConfigurationEH (

+	Widget w,

+	XtPointer client_data,

+	XEvent *event)

+{

+	Atom		actual_type;

+	int		actual_format;

+	unsigned long	nitems;

+	unsigned long	leftover;

+	unsigned char	*data = NULL;

+	unsigned long	resource_len;

+	char		*data_ptr;

+	char		*resource;

+	char		*value;

+#ifdef DEBUG

+	int		indent = 0;

+#endif

+	XtPerDisplay	pd;

+

+#ifdef DEBUG

+	fprintf (stderr, "in _XtResourceConfiguationEH atom = %d\n",event->xproperty.atom);

+	fprintf (stderr, "    window = %x\n", XtWindow (w));

+	if (XtIsWidget (w))

+		fprintf (stderr, "    widget = %x   name = %s\n", w, w->core.name);

+#endif

+

+	pd = _XtGetPerDisplay (XtDisplay (w));

+

+	/*

+	 * The window on which a customizing tool places the property

+	 * is determined at this point.  It should be the applications

+	 * toplevel shell window.

+	 *

+	 * A customizing tool sends a "ping" to the application on

+	 * the RCM_INIT property.  The application answers the ping

+	 * by deleting the property.

+	 */

+	if (event->xproperty.atom == pd->rcm_init) {

+		XDeleteProperty (XtDisplay(w), XtWindow (w), pd->rcm_init);

+

+#ifdef DEBUG

+		if (XtIsWidget (w))

+			fprintf (stderr, "%s\n", w->core.name);

+		else

+			fprintf (stderr, "NULL name\n");

+		dump_widget_tree(w, indent);

+

+		fprintf (stderr, "answer ping\n");

+#endif

+	}

+

+	/*

+	 * This event handler ignores any property notify events that

+	 * are not RCM_INIT or RCM_DATA

+	 */

+	if (event->xproperty.atom != pd->rcm_data)

+		return;

+

+	/*

+	 * Retrieve the data from the property

+	 */

+#ifdef DEBUG

+	fprintf (stderr, "receiving RCM_DATA property\n");

+#endif

+	if (XGetWindowProperty (XtDisplay(w),

+		XtWindow (w),

+		pd->rcm_data, 0L, 8192L,

+		TRUE, XA_STRING,

+		&actual_type, &actual_format, &nitems, &leftover,

+		&data ) == Success && actual_type == XA_STRING

+			   && actual_format == 8) {

+	/*

+	 *      data format is:

+	 *

+	 *      resource_length, resource, value

+	 *

+	 *      convert the resource_length to a long, skip over it, put a

+	 *      zero byte at the end of the resource, and pick off the

+	 *      resource and value fields.

+	 */

+		if (data) {

+			resource_len = Strtoul ((void *)data, &data_ptr, 10);

+			data_ptr++;

+

+			data_ptr[resource_len] = '\0';

+

+			resource = XtNewString (data_ptr);

+			value = XtNewString (&data_ptr[resource_len + 1]);

+#ifdef DEBUG

+			fprintf (stderr, "resource_len=%d\n",resource_len);

+			fprintf (stderr, "resource = %s\t value = %s\n",

+					resource, value);

+#endif

+			/*

+			 * descend the application widget tree and

+			 * apply the value to the appropriate widgets

+			 */

+			_search_widget_tree (w, resource, value);

+

+			XtFree (resource);

+			XtFree (value);

+		}

+	}

+

+	if (data)

+		XFree ((char *)data);

+}