/*
 * $Id: Form.c,v 1.2 1999-01-22 23:16:52 ghudson Exp $
 *
 * Copyright 1990, 1991 by the Massachusetts Institute of Technology. 
 *
 * For copying and distribution information, please see the file
 * <mit-copyright.h>. 
 *
 */

#if  (!defined(lint))  &&  (!defined(SABER))
static char *rcsid =
"$Id: Form.c,v 1.2 1999-01-22 23:16:52 ghudson Exp $";
#endif

#include "mit-copyright.h"
#include <stdio.h>
#include <ctype.h>
#include "Jets.h"
#include "Form.h"

#define offset(field) XjOffset(FormJet,field)

static XjResource resources[] = {
  { XjNx, XjCX, XjRInt, sizeof(int),
     offset(core.x), XjRString, XjInheritValue },
  { XjNy, XjCY, XjRInt, sizeof(int),
     offset(core.y), XjRString, XjInheritValue },
  { XjNwidth, XjCWidth, XjRInt, sizeof(int),
     offset(core.width), XjRString, XjInheritValue },
  { XjNheight, XjCHeight, XjRInt, sizeof(int),
     offset(core.height), XjRString, XjInheritValue },
  { XjNpadding, XjCPadding, XjRInt, sizeof(int),
     offset(form.padding), XjRString, "0" },
  { XjNform, XjCForm, XjRString, sizeof(char *),
     offset(form.form), XjRString, "" }
};

#undef offset

static void resize(), expose();

FormClassRec formClassRec = {
  {
    /* class name */		"Form",
    /* jet size */		sizeof(FormRec),
    /* classInitialize */	NULL,
    /* classInitialized? */	1,
    /* initialize */		NULL,
    /* prerealize */    	NULL,
    /* realize */       	NULL,
    /* event */			NULL,
    /* expose */		expose,
    /* querySize */     	NULL,
    /* move */			NULL,
    /* resize */        	resize,
    /* destroy */       	NULL,
    /* resources */		resources,
    /* number of 'em */		XjNumber(resources)
  }
};

JetClass formJetClass = (JetClass)&formClassRec;


#define XJ_FORM_UNDEF -1
#define XJ_FORM_ATTACH -2

#define LEFT 0
#define TOP 1
#define RIGHT 2
#define BOTTOM 3
#define SIDES 4


static void parse(ptr, name, sides, sidestr)
     char **ptr, *name, sidestr[SIDES][50];
     int sides[SIDES];
{
  char *p, *q;
  int i = 0;
  int j;

  p = *ptr;

  while (*p != ':' && *p != '\0')
    name[i++] = *p++;

  name[i] = '\0';

  if (*p == '\0')
    {
      *ptr = p;
      return;
    }
  else
    p++; /* skip the colon ":" */


  for (j=0; j < SIDES; j++)
    {
      sides[j] = XJ_FORM_UNDEF;

      while (isspace(*p)) p++;

      if (*p != '\0' && *p != '-')
	{
	  if (isdigit(*p))
	    {
	      sides[j] = atoi(p);
	      while (isdigit(*p)) p++;
	    }
	  else
	    {
	      q = sidestr[j];
	      while (isalnum(*p))
		*q++ = *p++;
	      *q = '\0';
	      sides[j] = XJ_FORM_ATTACH;
	    }
	}
  
      if (*p == '-') p++;
    }


  while (isspace(*p)) p++;
  if (*p == ';')
    p++;

  *ptr = p;
}

#define spec(x) (x != XJ_FORM_UNDEF)
#define attachment(x) (x == XJ_FORM_ATTACH)

/*
 * This code *really* needs to be done in a better way.
 */
static void resize(me, mysize)
     FormJet me;
     XjSize *mysize;
{
  Jet child, tmp[SIDES];
  char *ptr;
  char name[50], sidestr[SIDES][50];
  int x, y, width, height;
  int sides[SIDES];
  XjSize size;
  char errtext[100];
  int j;

  me->core.width = mysize->width;
  me->core.height = mysize->height;

  ptr = me->form.form;

  while (*ptr != '\0')
    {
      parse(&ptr, name, sides, sidestr);

      for (child = me->core.child; child != NULL; child = child->core.sibling)
	if (strcmp(name, child->core.name) == 0)
	  {
	    XjQuerySize(child, &size);
	    size.width += 2 * (child->core.borderWidth + me->form.padding);
	    size.height += 2 * (child->core.borderWidth + me->form.padding);

	    x = child->core.x;
	    y = child->core.y;
	    width = size.width;
	    height = size.height; /* just in case */
	      
	    /* 
	     *  Find all the attachment jets, if there are any.
	     */
	    for (j=0; j < SIDES; j++)
	      {
		tmp[j] = NULL;
		if (attachment(sides[j]))
		  {
		    if ((tmp[j] = XjFindJet(sidestr[j], (Jet) me)) == NULL)
		      {
			sprintf(errtext, "form: couldn't find jet `%s'",
				sidestr[j]);
			XjWarning(errtext);
		      }
		  }
	      }
		  

	    /*
	     *  Figure out the x coord and width.
	     */
	    if (spec(sides[LEFT]))
	      {
		if (tmp[LEFT])
		  x = tmp[LEFT]->core.x + tmp[LEFT]->core.width +
		    2 * (tmp[LEFT]->core.borderWidth + me->form.padding);
		else
		  x = (sides[LEFT] * me->core.width) / 100;

		if (spec(sides[RIGHT]))
		  {
		    if (tmp[RIGHT])
		      width = tmp[RIGHT]->core.x - x - 2*me->form.padding;
		    else
		      width = ((sides[RIGHT] * me->core.width) / 100) - x;
		  }
	      }

	    else		/* sides[LEFT] was not specified */
	      if (spec(sides[RIGHT]))
		{
		  if (tmp[RIGHT])
		    x = tmp[RIGHT]->core.x - width - 1;
		  else
		    x = ((sides[RIGHT] * me->core.width) / 100) - width;
		}


	    /*
	     *  Figure out the y coord and height.
	     */
	    if (spec(sides[TOP]))
	      {
		if (tmp[TOP])
		  y = tmp[TOP]->core.y + tmp[TOP]->core.height +
		    2 * (tmp[TOP]->core.borderWidth + me->form.padding);
		else
		  y = (sides[TOP] * me->core.height) / 100;

		if (spec(sides[BOTTOM]))
		  {
		    if (tmp[BOTTOM])
		      height = tmp[BOTTOM]->core.y - y - 2*me->form.padding;
		    else
		      height = ((sides[BOTTOM] * me->core.height) / 100) - y;
		  }
	      }

	    else		/* sides[TOP] was not specified */
	      if (spec(sides[BOTTOM]))
		{
		  if (tmp[BOTTOM])
		    y = tmp[BOTTOM]->core.y - height - 1;
		  else
		    y = ((sides[BOTTOM] * me->core.height) / 100) - height;
		}



	    XjMove(child, x + me->form.padding, y + me->form.padding);
	    size.width = width -
	      2 * (child->core.borderWidth + me->form.padding);
	    size.height = height -
	      2 * (child->core.borderWidth + me->form.padding);
	    XjResize(child, &size);

	    break;
	  }
    }
}


static void expose(me, event)
     Jet me;
     XEvent *event;
{
  Jet child;

  if (event->xexpose.count == 0)
    {
      for (child = me->core.child; child != NULL; child = child->core.sibling)
	XjExpose(child, event);
#ifdef notdefined
	if (child->core.classRec->core_class.expose != NULL)
	  child->core.classRec->core_class.expose(child, event);
#endif
    }
}


void setForm(me, form)
     FormJet me;
     char *form;
{
  me->form.form = XjNewString(form);
}