indent'd like "x-indent.sh", but with a more complete set of typedefs - see

https://github.com/ThomasDickey/cindent-snapshots/blob/master/scripts/xxx-profile

Signed-off-by: Thomas E. Dickey <dickey@invisible-island.net>

1 files changed, 719 insertions, 733 deletions

diff --git a/src/ResConfig.c b/src/ResConfig.c
index 6a87355..c00d48e 100644
--- a/src/ResConfig.c
+++ b/src/ResConfig.c
@@ -69,433 +69,422 @@ Corporation.
 #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 void _set_and_search(Widget, char *, char *, char *, char *, char,
+                            char *);
 static int _locate_children(Widget, Widget **);
 
 /*
  * 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.
+ *      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)
+ *      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)
+_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 (last_part == NULL)
-	    return;
-
-	if (!XtIsWidget (w)) {
-	    if (w == 0 || w->core.parent == 0)
-		return;
-	    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);
-			}
-		}
-
-		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);
-
-	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);
-
-	XtFree (resource_class);
-	resource_class = temp;
+    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 (last_part == NULL)
+        return;
+
+    if (!XtIsWidget(w)) {
+        if (w == 0 || w->core.parent == 0)
+            return;
+        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);
+            }
+        }
+
+        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);
+
+    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);
+
+    XtFree(resource_class);
+    resource_class = temp;
 
 #ifdef DEBUG
-	fprintf (stderr, "resource_name = %s\n", resource_name);
-	fprintf (stderr, "resource_class = %s\n", resource_class);
+    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);
+    /*
+     * 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);
+    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);
+    /*
+     * 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)
+ *      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)
+ *      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)
+_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;
+    int i;
+    int num_children;
+    Widget *children;
 
-	/*
-	 * Recursively search through the children
-	 */
-	num_children = _locate_children (w, &children);
+    /*
+     * Recursively search through the children
+     */
+    num_children = _locate_children(w, &children);
 
-	for (i=0; i<num_children; i++) {
+    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");
+        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);
-	}
+        _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);
+    XtFree((char *) children);
 }
 
 /*
  * NAME: _search_child
  *
  * FUNCTION:
- *	descends through each child of the tree
+ *      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)
+ *      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)
+_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);
+    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
+ *      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
+ *      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
+ *      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 _X_UNUSED,
-	char **indx,
-	char **part)
+_get_part(char *remainder _X_UNUSED, 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		*/
+    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
+ *      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
+ *      w               the widget to match
+ *      part            the parsed off part of the resource string
  *
  * RETURN VALUES:
- *	Boolean		true if a match occurs
+ *      Boolean         true if a match occurs
  *
  * ERRORS: none
  */
 static Boolean
-_match_resource_to_widget (
-	Widget w,
-	char *part)
+_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);
-	}
+    /*
+     * 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
+ *      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)
+ *      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
  *
@@ -503,312 +492,309 @@ _match_resource_to_widget (
  *
  * 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
+ *      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
+ *      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)
+_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);
-			XtFree (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);
+    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);
+            XtFree(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.
+ *      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
+ *      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
+ *      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)
+_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 */
+    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.
+ *      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
+ *      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)
+_search_widget_tree(Widget w, char *resource, char *value)
 {
-	Widget	parent = w;
-	char	*last_part;
-	char	*remainder = NULL;
-	char	last_token;
-	char	*loose, *tight;
-	int	loose_len, tight_len;
-
-	/*
-	 * Find the root of the tree given any widget
-	 */
-	while (XtParent(parent) != NULL) {
-		parent = XtParent(parent);
-	}
+    Widget parent = w;
+    char *last_part;
+    char *remainder = NULL;
+    char last_token;
+    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");
+    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) ? (int) strlen (loose) : 0;
-	tight_len = (tight) ? (int) 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.)
-	 */
-	if (remainder) {
-	    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 {
-		    char *indx, *copy;
-		    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);
-	}
+    /*
+     * 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) ? (int) strlen(loose) : 0;
+    tight_len = (tight) ? (int) 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.)
+     */
+    if (remainder) {
+        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 {
+            char *indx, *copy;
+
+            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
+ *      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
+ *      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
+ *      int             the number of children
+ *      children        the list of children found
  *
  * ERRORS: none
  */
 static int
-_locate_children (
-	Widget parent,
-	Widget **children)
+_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 = (int) ((Cardinal) num_children + parent->core.num_popups);
-	if (XtIsComposite (parent))
-		num_children = (int) ((Cardinal) num_children + comp->composite.num_children);
-	if (num_children == 0) {
-		*children = NULL;
-		return (0);
-	}
-
-	*children = (Widget *)
-		XtMalloc ((Cardinal) (sizeof(Widget) * (size_t) 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);
+    CompositeWidget comp = (CompositeWidget) parent;
+    Cardinal i;
+    int num_children = 0;
+    int current = 0;
+
+    /*
+     * count the number of children
+     */
+    if (XtIsWidget(parent))
+        num_children =
+            (int) ((Cardinal) num_children + parent->core.num_popups);
+    if (XtIsComposite(parent))
+        num_children =
+            (int) ((Cardinal) num_children + comp->composite.num_children);
+    if (num_children == 0) {
+        *children = NULL;
+        return (0);
+    }
+
+    *children = (Widget *)
+        XtMalloc((Cardinal) (sizeof(Widget) * (size_t) 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
@@ -816,48 +802,47 @@ _locate_children (
  * NAME: dump_widget_tree
  *
  * FUNCTION:
- *	recursively printout entire widget tree
+ *      recursively printout entire widget tree
  *
  * PARAMETERS:
- *	w		the widget to match
- *	indent		the amount to indent each line
+ *      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)
+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);
+    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
 
@@ -865,148 +850,149 @@ dump_widget_tree (
  * 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
+ *      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.
+ *      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
+ *      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 _X_UNUSED,
-	XEvent *event)
+_XtResourceConfigurationEH(Widget w,
+                           XtPointer client_data _X_UNUSED,
+                           XEvent *event)
 {
-	Atom		actual_type;
-	int		actual_format;
-	unsigned long	nitems;
-	unsigned long	leftover;
-	char		*data = NULL;
-	char		*data_ptr;
+    Atom actual_type;
+    int actual_format;
+    unsigned long nitems;
+    unsigned long leftover;
+    char *data = NULL;
+    char *data_ptr;
+
 #ifdef DEBUG
-	int		indent = 0;
+    int indent = 0;
 #endif
-	XtPerDisplay	pd;
+    XtPerDisplay pd;
 
 #ifdef DEBUG
-	fprintf (stderr, "in _XtResourceConfiguationEH atom = %u\n",(unsigned) event->xproperty.atom);
-	fprintf (stderr, "    window = %x\n", (unsigned) XtWindow (w));
-	if (XtIsWidget (w))
-		fprintf (stderr, "    widget = %zx   name = %s\n", (size_t)w, w->core.name);
+    fprintf(stderr, "in _XtResourceConfiguationEH atom = %u\n",
+            (unsigned) event->xproperty.atom);
+    fprintf(stderr, "    window = %x\n", (unsigned) XtWindow(w));
+    if (XtIsWidget(w))
+        fprintf(stderr, "    widget = %zx   name = %s\n", (size_t) w,
+                w->core.name);
 #endif
 
-	pd = _XtGetPerDisplay (XtDisplay (w));
+    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);
+    /*
+     * 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);
+        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");
+        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
-	 */
+    }
+
+    /*
+     * 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");
+    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,
-		(unsigned char **)&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) {
-			char *data_end = data + nitems;
-			char *data_value;
-			unsigned long resource_len;
-
-			resource_len = strtoul (data, &data_ptr, 10);
-
-			if (data_ptr != (char *) data) {
-				data_ptr++;
-				data_value = data_ptr + resource_len;
-			} else /* strtoul failed to convert a number */
-				data_ptr = data_value = NULL;
-
-			if (data_value > data_ptr && data_value < data_end) {
-				char *resource;
-				char *value;
-
-				*data_value++ = '\0';
-
-				resource = XtNewString (data_ptr);
-				value = XtNewString (data_value);
+    if (XGetWindowProperty(XtDisplay(w),
+                           XtWindow(w),
+                           pd->rcm_data, 0L, 8192L,
+                           TRUE, XA_STRING,
+                           &actual_type, &actual_format, &nitems, &leftover,
+                           (unsigned char **) &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) {
+            char *data_end = data + nitems;
+            char *data_value;
+            unsigned long resource_len;
+
+            resource_len = strtoul(data, &data_ptr, 10);
+
+            if (data_ptr != (char *) data) {
+                data_ptr++;
+                data_value = data_ptr + resource_len;
+            }
+            else                /* strtoul failed to convert a number */
+                data_ptr = data_value = NULL;
+
+            if (data_value > data_ptr && data_value < data_end) {
+                char *resource;
+                char *value;
+
+                *data_value++ = '\0';
+
+                resource = XtNewString(data_ptr);
+                value = XtNewString(data_value);
 #ifdef DEBUG
-				fprintf (stderr, "resource_len=%lu\n",
-					 resource_len);
-				fprintf (stderr, "resource = %s\t value = %s\n",
-					 resource, value);
+                fprintf(stderr, "resource_len=%lu\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);
-			}
-		}
-	}
-
-	XFree ((char *)data);
+                /*
+                 * descend the application widget tree and
+                 * apply the value to the appropriate widgets
+                 */
+                _search_widget_tree(w, resource, value);
+
+                XtFree(resource);
+                XtFree(value);
+            }
+        }
+    }
+
+    XFree((char *) data);
 }