/*LINTLIBRARY*/
/*
 * SCCS_data:    %Z% %M%	%I% %E% %U%
 */
#include <X11/Xp/COPY>
#include <X11/IntrinsicP.h>

#ifdef sun
#include <X11/ObjectP.h>        /* why don't they just use X from mit!?! */
#include <X11/RectObjP.h>
#endif

#include <X11/Xp/TableP.h>

/* TableLoc methods
**==================**
   An Table widget keeps its default_layout and real_layout as two TableLoc's,
   which are pointers to the first element of a null terminated array of
   TableLocRecs.

   Each TableLocRec defines a Table widget child's location information (the
   row, col, spans, and layout options like justification and sizing controls).
   The default_layout describes where widgets may be placed if and when they
   become managed.  The real_layout describes where managed children are
   actually placed.

   The default_layout differs slightly from the real_layout:  Initially, it
   knows only the names of widgets (their quarks) as specified by the layout
   resource.  As time goes on and widgets become managed or are placed, then
   the default_layout may also learn the actual identities of widgets.  Note
   that it is possible and sometimes very useful to have multiple children with
   the same name, but different positions and/or options and/or sizes.  If a
   table has multiple children of the same name, then there may be multiple
   default_layout and real_layout locs with the same quark but different
   widgets.

   The default_layout is created from a string by the TableLocParse function
   which is usually called via the converter.  It is changed due to positioning
   and XtSetValues calls.  The real_layout is calculated by the table's layout
   method, triggered by its ChangeManaged method and by the Positioning or
   SetValues methods.
*/

/* Allocate, Grow, and Free Arrays of TableLocRec's
**==================================================**
*/
XpTableLoc  XpTableLocNew(  n )
    int n;
{
    return (XpTableLoc) XtCalloc( n+1, sizeof(XpTableLocRec) );
}

XpTableLoc  XpTableLocGrow(  loc )
    XpTableLoc loc;
{
    static XpTableLocRec  nullLoc;	/* all zeros, as if XtCalloc'd */

    int len = XpTableLocLen(  loc );

    /* XtRealloc leaves additional loc + terminating loc as garbage...
    */
    XpTableLoc  new = (XpTableLoc) XtRealloc( (char*)loc,
						(len+2)*sizeof(XpTableLocRec) );

    /* ... so initialize the additional and terminating loc to NULLs
    */
    new[len] = nullLoc;
    new[len+1] = nullLoc;

    /* Now new[TableLocLen(new)] is the additional location
    */
    return new;
}

XpTableLoc  XpTableLocCopy(  loc )
    XpTableLoc  loc;
{
    int len = XpTableLocLen(  loc );
    XpTableLoc  copy = XpTableLocNew(  len );
    while (len--)
	copy[len] = loc[len];
    return copy;
}

void XpTableLocFree(  loc )
    XpTableLoc  loc;
{
    XtFree( (char*)loc );
}


/* Parse Layout String
**=====================**
Parse a layout string, allocating and setting the values.  Return
pointer to first element, or NULL if parse fails for any reason.
The result is suitable for use in a call to XtSetValues().

A layout is a list of location specifications separated by semi-colons.
Each location specification has the form:

	widget_name  column  row  col_span  row_span  opt_list

where the meaning of each field is:

	widget_name	Name of the widget as given to XtCreateWidget().
	column		Integer >= 0 descibing column in array
	row		Row >= 0 describing row in array
	col_span	Integer >= 1 describing horizontal widget span
	row_span	Integer >= 1 describing vertical widget span
	opt_list	Series of characters each representing an option:
				l:  TBL_LEFT
				r:  TBL_RIGHT
				t:  TBL_TOP
				b:  TBL_BOTTOM
				w:  TBL_LK_WIDTH
				h:  TBL_LK_HEIGHT
				W:  TBL_SM_WIDTH
				H:  TBL_SM_HEIGHT

The options are interpreted in the TableChildPosition() method.
*/

XpTableLoc  XpTableLocParse(  layout )
    char* layout;
{
#ifndef CHILD_NAME_LEN
#define CHILD_NAME_LEN 127
#endif
    char	buf[CHILD_NAME_LEN+1];
    int		numLocs;
    XpTableLoc  locs;		/* array XtCalloc'd and returned	*/
    XpTableLoc  loc;		/* current location being parsed	*/
    int		thisLoc;	/* index of current loc			*/
    int		i;
    char*	cp;

    if ( layout == (char*)0 || *layout == '\0' )
	return (XpTableLoc)0;

    /* Figure out how many location specification there are in the layout.
    ** Each location specifier may be semi-colon SEPARATED, so we may
    ** have one more than the number of semi-colons.  Space for null
    ** termination is provided by TableLocNew().
    */
    for ( numLocs = 1, cp = layout ; *cp ; cp++ )
	if (*cp == ';') numLocs++;

    /* TableLocNew() provides additional NULL location so we do not
    ** need logic to null terminate array.
    */
    locs = XpTableLocNew(  numLocs );

    loc = locs;
    thisLoc = 0;
    cp = layout;

#define EAT_WHITESPACE(cp) while (*cp && *cp <= ' ') cp++;

    EAT_WHITESPACE(cp)

    while ( *cp && ++thisLoc <= numLocs )
    {
	/* Parse a location specification from the layout string
	*/

	for (i = 0 ; ' ' < *cp && i < CHILD_NAME_LEN ; i++, cp++ )
	    buf[i] = *cp;
	buf[i] = '\0';

	if ( i )
	    loc->w_quark = XrmStringToQuark(buf);	/* widget name */

	EAT_WHITESPACE(cp)

	while ('0' <= *cp && *cp <= '9')
	    loc->col = loc->col * 10 + *cp++ - '0';

	EAT_WHITESPACE(cp)

	while ('0' <= *cp && *cp <= '9')
	    loc->row = loc->row * 10 + *cp++ - '0';

	EAT_WHITESPACE(cp)

	while ('0' <= *cp && *cp <= '9')
	    loc->col_span = loc->col_span * 10 + *cp++ - '0';
	if (loc->col_span == 0)
	    loc->col_span = 1;		/* default span */

	EAT_WHITESPACE(cp)

	while ('0' <= *cp && *cp <= '9')
	    loc->row_span = loc->row_span * 10 + *cp++ - '0';
	if (loc->row_span == 0)
	    loc->row_span = 1;		/* default span */

	EAT_WHITESPACE(cp)

	i = 0;
	while ( *cp && i < CHILD_NAME_LEN &&
		*cp == 'l' || *cp == 'r' || *cp == 't' || *cp == 'b' ||
		*cp == 'w' || *cp == 'h' || *cp == 'W' || *cp == 'H' )
	    buf[i++] = *cp++;
	buf[i] = '\0';
	if ( i )
	    loc->options = XpTableOptsParse( buf);

	while (*cp && *cp <= ' ' || *cp == ';' ) cp++;

	loc++;
    }

    if (*cp )
    {
	/* Something went wrong.
	*/
	XpTableLocFree(  locs );
	locs = (XpTableLoc)0;
    }
    return locs;
}


int XpTableLocLen( loc)
    XpTableLoc  loc;
{
    int i = 0;

    for ( i = 0 ;  loc && loc->w_quark != NULLQUARK  ; loc++ )
	i++;
    return i;
}

/* Find things in TableLocs
**==========================**
   Linear search of TableLoc array looking for various parameters
*/

XpTableLoc  XpTableLocFind(  loc, w )
    XpTableLoc  loc;		/* Table Locations to examine	*/
    Widget	w;		/* Widget to find		*/
{
    if ( loc && w )
    {
	for ( ;  loc->w_quark != NULLQUARK  ; loc++ )
	{
	    if ( loc->w_quark == w->core.xrm_name &&
		 loc->w == w )
		return loc;
	}
    }
    return (XpTableLoc)0;
}

XpTableLoc  XpTableLocFindDefault(  loc, w )
    XpTableLoc  loc;		/* Table Locations to examine   */
    Widget	w;		/* Widget to find		*/
{
    if ( loc && w )
    {
	for ( ;  loc->w_quark != NULLQUARK  ; loc++ )
	{
	    if ( loc->w_quark == w->core.xrm_name && loc->w == (Widget)0 )
		return loc;
	}
    }
    return (XpTableLoc)0;
}

XpTableLoc  XpTableLocFindAtPosition(  loc, col, row )
    XpTableLoc  loc;		/* Table Locations to examine   */
    int		col, row;	/* position of widget to find	*/
{
    if ( loc && (0 <= col) && (0 <= row) )
    {
	for ( ;  loc->w_quark != NULLQUARK  ; loc++ )
	{
	    if ( loc->col == col && loc->row == row )
		return loc;
	}
    }
    return (XpTableLoc)0;
}


/* Preferred size determination:
**==============================**
   This almost follows the Xt specification.  There are two distinctions:

   First, if widgets are in any SameSize resource list, then that SameSize
   is the preferred size.  This even overrides resize requests!

   Second, Xt says:
	"The changed_managed procedure may assume that the
	child's current geometry is its preferred geometry."

   This is usually wrong for Table:  take the case where we have 5
   widgets, all of size 1.  Then 3 are unmanaged, and the layout causes
   the two remaining to become size 2.5.  Then the same 3 are re-managed.
   They will want to be 1 again, the existing ones still 2.5.  This causes
   a total size of 8.  Table then squishes each down to make them fit,
   resulting in the sizes of the re-managed widgets becoming much smaller
   than the ones which were before.  Repeat several more times, and the
   transient widgets become very small (size 1).
*/

int XpTableLocPreferredWidth(  loc, tw )
    XpTableLoc     loc;  	/* preferred size of widget in this loc	*/
    XpTableWidget  tw;  	/* The widget containing this loc	*/
{
    /* First take care of situations where SameSize resources apply
    */
    if ( loc->same_width && loc->same_border )
    {
	return loc->same_width + 2 * loc->same_border;
    }
    else if ( loc->same_width && tw->table.resize_child == loc->w )
    {
	return loc->same_width + 2 * tw->table.resize_border_width;
    }
    else if ( loc->same_width )
    {
	return loc->same_width + 2 * loc->w->core.border_width;
    }
    else if ( loc->same_border && tw->table.resize_child == loc->w )
    {
	return tw->table.resize_width + 2 * loc->same_border;
    }
    else if ( tw->table.resize_child == loc->w )
    {
	/* Xt says: "The change request passed to the geometry manager takes
	 * precedence over the preferred geometry [from XtQueryGeometry]"
	 */
	return tw->table.resize_width + 2 * tw->table.resize_border_width;
    }
    else if ( loc->options & TBL_SM_WIDTH )
    {
	/* Do not change the size of this child from the size it
	 * was when it first became managed.
	 */
	return loc->orig_width + 2 * loc->orig_border_width;
    }
    else if ( XtClass(loc->w)->core_class.query_geometry == NULL )
    {
	/* If the widget cannot figure its size out except at creation time
	 * (they can all at least do that), then we will use that originally
	 * determined size.  XtQueryGeometry returns the current size, which
	 * looks like the widget wants to stay at a changed size, which it
	 * usually does not: a label which has been shrunk seems to like
	 * clipping its image (wrong!), a separator which has been stretched
	 * seems to want to keep the interface wide (wrong!).
	 */
	return loc->orig_width + 2 * loc->orig_border_width;
    }
    else
    {
	XtWidgetGeometry	child;
	int			width	= loc->w->core.width;
	int			border	= loc->w->core.border_width;

	(void)XtQueryGeometry(loc->w, (XtWidgetGeometry*)0, &child);

	if (child.request_mode & CWWidth)	width  = child.width;
	if (child.request_mode & CWBorderWidth) border = child.border_width;

	return width + 2*border;
    }
}

int XpTableLocPreferredHeight(  loc, tw )
    XpTableLoc     loc;  	/* preferred size of widget in this loc	*/
    XpTableWidget  tw;  	/* The widget containing this loc	*/
{
    if ( loc->same_height && loc->same_border )
    {
	return loc->same_height + 2 * loc->same_border;
    }
    else if ( loc->same_height && tw->table.resize_child == loc->w )
    {
	return loc->same_height + 2 * tw->table.resize_border_width;
    }
    else if ( loc->same_height )
    {
	return loc->same_height + 2 * loc->w->core.border_width;
    }
    else if ( loc->same_border && tw->table.resize_child == loc->w )
    {
	return tw->table.resize_width + 2 * loc->same_border;
    }
    else if ( tw->table.resize_child == loc->w )
    {
	return tw->table.resize_height + 2 * tw->table.resize_border_width;
    }
    else if ( loc->options & TBL_SM_HEIGHT )
    {
	return loc->orig_height + 2 * loc->orig_border_width;
    }
    else if ( XtClass(loc->w)->core_class.query_geometry == NULL )
    {
	return loc->orig_height + 2 * loc->orig_border_width;
    }
    else
    {
	XtWidgetGeometry	child;
	int			height	= loc->w->core.height;
	int			border	= loc->w->core.border_width;

	(void)XtQueryGeometry(loc->w, (XtWidgetGeometry*)0, &child);

	if (child.request_mode & CWHeight)	height = child.height;
	if (child.request_mode & CWBorderWidth) border = child.border_width;

	return height + 2*border;
    }
}

int XpTableLocNumCols(  loc )
    XpTableLoc  loc;
{
    int cols;
    for ( cols = 0  ;  loc && loc->w_quark != NULLQUARK  ; loc++ )
	if ( cols < (loc->col + loc->col_span) )
	    cols = loc->col + loc->col_span;
    return cols;
}

int XpTableLocNumRows(  loc )
    XpTableLoc  loc;
{
    int rows;
    for ( rows = 0  ;  loc && loc->w_quark != NULLQUARK  ;  loc++)
        if ( rows < (loc->row + loc->row_span) )
            rows = loc->row + loc->row_span;
    return rows;
}

/* Used by qsort when the real_layout table is sorted by
** span before doing distribution of space to rows or columns.
*/
int XpTableLocCompareColSpan(  loc1, loc2 )
    XpTableLoc  loc1, loc2;
{
    if ( loc1->col_span == loc2->col_span )
	return loc1->col - loc2->col;

    return loc1->col_span - loc2->col_span;
}

int XpTableLocCompareRowSpan(  loc1, loc2 )
    XpTableLoc  loc1, loc2;
{
    if ( loc1->row_span == loc2->row_span )
	return loc1->row - loc2->row;

    return loc1->row_span - loc2->row_span;
}