/* $XConsortium: geoTattler.c /main/4 1995/07/15 21:13:42 drk $ */
/*
 * Motif
 *
 * Copyright (c) 1987-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/*
 * HISTORY
 */
#include "IntrinsicI.h"      /* for the class_name field */
#include "VarargsI.h"        /* for _GeoPrintTrace */
#include <X11/StringDefs.h>  /* XtRBoolean .. */
#include "geoTattler.h"


/**************************************************************************
 GeoTattler API:
  
  if those lines are found in the resource database:

    myapp*draw.XmScale.geoTattler: ON
    *XmScrollBar.geoTattler:ON
    *XmRowColumn.exit_button.geoTattler:ON

   then:

    all the XmScale children of the widget named draw,
    all the XmScrollBars,
    the widget named exit_button in any XmRowColumn

   will return True to the function _GeoIsTattled(), and will generate
   outlined trace in stdout.

*************************************************************************/

typedef struct {   Boolean   geo_tattler ;} GeoDataRec ;


static XtResource geo_resources[] = {
    { XtNgeoTattler, XtCGeoTattler, XtRBoolean, sizeof(Boolean),
      XtOffsetOf(GeoDataRec, geo_tattler), 
      XtRImmediate, (caddr_t) False }
};

/* Now define a simple cache mechanism to be used in the main function */

typedef struct _GeoTatCache
{
   Widget widget;
   String widget_name;
   String class_name;
   Boolean is_geotattled ;
   struct _GeoTatCache * next;
} GeoTatCache;

static GeoTatCache * geotat_cache = NULL;




/****************************************************************
  This function return True is the widget is already in the cache,
  False otherwise. It also return the current value if True */
Boolean 
#if NeedFunctionPrototypes
_GeoIsCached (Widget widget, Boolean* is_geotattled)
#else
_GeoIsCached (widget, is_geotattled)
Widget widget;
Boolean * is_geotattled ;
#endif
{
    register GeoTatCache * cache_ptr;
    
    for (cache_ptr = geotat_cache; cache_ptr; cache_ptr = cache_ptr->next) {
	if ((cache_ptr->widget == widget) &&
	    (strcmp (cache_ptr->widget_name, XtName(widget)) == 0)  &&
	    (strcmp (cache_ptr->class_name, XtClassName(widget)) == 0)) {
	    /* if something found return its state and True */

	    *is_geotattled = cache_ptr->is_geotattled ;
	    return (True);
	}
    }
    
    return (False);
}


/****************************************************************
   This function looks for a widget in the cache and if found, assigns
   a new value for the is_geotattled field 
   It is used for dynamic change (e.g. editres stuff) */
void 
#if NeedFunctionPrototypes
_GeoChangeCache (Widget widget, Boolean geo_tat)
#else
_GeoChangeCache (widget, geo_tat)
Widget widget;
Boolean geo_tat ;
#endif
{
    register GeoTatCache * cache_ptr;

    for (cache_ptr = geotat_cache; cache_ptr; cache_ptr = cache_ptr->next) {
	if ((cache_ptr->widget == widget) &&
	    (strcmp (cache_ptr->widget_name, XtName(widget)) == 0)  &&
	    (strcmp (cache_ptr->class_name, XtClassName(widget)) == 0)) {
	    /* if something found, change the value */

	    cache_ptr->is_geotattled = geo_tat;
	    return ;
	}
    }
    
    return ;
}

/****************************************************************
   This function adds an entry in the cache, based on the given widget
   and bool */

void 
#if NeedFunctionPrototypes
_GeoCache (Widget widget, Boolean geo_tat)
#else
_GeoCache (widget, geo_tat)
Widget widget;
Boolean geo_tat ;
#endif
{
    register GeoTatCache * cache_ptr;

    /* create a new entry in the geo cache */

    cache_ptr = XtNew (GeoTatCache);
    cache_ptr->next = geotat_cache;
    geotat_cache = cache_ptr;

    /* fill it, please, regular */

    cache_ptr->widget = widget ;
    cache_ptr->widget_name = XtNewString(XtName(widget));
    cache_ptr->class_name = XtNewString(XtClassName(widget));
    cache_ptr->is_geotattled = geo_tat ;
}

/************************************************************************
  This function uses XtGetSubresources to find out if a widget
  needs to be geo-spied by the caller.
  Since XtGetSubresources is expensive, it also uses a cache. */

Boolean 
#if NeedFunctionPrototypes
_GeoIsTattled (Widget widget)
#else
_GeoIsTattled (widget)
Widget widget;
#endif
{
    GeoDataRec geo_data ;
    Boolean is_geotattled, cach ;

       /* First check for a matching widget  */
    if (_GeoIsCached (widget, &is_geotattled)) return is_geotattled ;

       /* no widget found in the cache, look in the database and cache */
    XtGetSubresources(widget, (XtPointer)&geo_data,
                      (String)NULL, (String)NULL, 
		      geo_resources, XtNumber(geo_resources), 
		      NULL, 0);
    
       /* add in the cache */
    _GeoCache(widget, geo_data.geo_tattler) ;

    return geo_data.geo_tattler;

}  /* _GeoIsTattled */


/************************************************************************
  Trace stuff now */

static n_tab = 0 ;

void 
#if NeedFunctionPrototypes
_GeoTabTrace (void)
#else
_GeoTabTrace ()
#endif
{
    n_tab ++ ;
}


void
#if NeedFunctionPrototypes
_GeoUnTabTrace (void)
#else
_GeoUnTabTrace ()
#endif
{
    n_tab -- ;
}


void 
#if NeedFunctionPrototypes
_GeoPrintTab (void)
#else
_GeoPrintTab ()
#endif
{
    int i ;

    for (i=0; i<n_tab; i++) printf("     ");
}


void 
#if NeedVarargsPrototypes
_GeoPrintTrace (Widget widget, ...)
#else
_GeoPrintTrace (widget, va_alist)
Widget widget;
va_dcl
#endif
{
    va_list args;
    char *fmt;

    if (_GeoIsTattled(widget)) {
	Va_start(args, widget);
	fmt = va_arg(args, char *);
	_GeoPrintTab ();
	(void) vprintf(fmt, args);
	va_end(args);
    }
}