/* $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 $ */

#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();
static void _set_and_search();
static int _locate_children();

#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 (w, resource, value, last_part)
	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;
	int		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 (w, remainder, resource, value, last_token, last_part)
	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 (w, indx, remainder, resource, value, last_token, last_part)
	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 (remainder, indx, 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 (w, part)
	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 (w, indx, remainder, resource, value, last_token, last_part)
	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 (remainder, 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 ('*');
	}

	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 (w, resource, value)
	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 (parent, children)
	Widget parent;
	Widget **children;
{
	CompositeWidget comp = (CompositeWidget) parent;
	int	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 (w, indent)
	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 (w, client_data, event)
	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);
}
