#include <stddef.h>
#include <assert.h>

#include "FTreg.h"
#include "string.h"
#include "getdate.h"
#include "memory.h"

union un1 {
  time_t t;
  char ch[sizeof(time_t)];
};

static char *parser(s)
char *s;
{
  union un1 u;
  char *temp;

  u.t = getdate(s, (struct timeb *)NULL);
  if (u.t == (time_t)-1)
    return NULL;
  temp = (char *)Memory_allocate(sizeof u);
  strncpy(temp, &(u.ch[0]), sizeof(u.ch));
  return temp;
}

static char *un_parser(s)
char *s;
{
  char *temp1, *temp2;
  union un1 u;

  strncpy(&(u.ch[0]), s, sizeof(u.ch));
  temp1 = ctime(&(u.t));
  if (temp1 == NULL)
    return NULL;
  temp2 = (char *)Memory_allocate(strlen(temp1)+1);
  strcpy(temp2, temp1);
  return temp2;
}


static int date_equal(rule, msg)
char *rule, *msg;
{
  union un1 uR, uM;
  struct tm *ruleT, *msgT;

  tzset();
  strncpy(&(uR.ch[0]), rule, sizeof(uR.ch));
  strncpy(&(uM.ch[0]), msg, sizeof(uM.ch));

  printf("ctime of %d is %s\n",uR.t,ctime(&(uR.t)));
  ruleT=localtime((time_t*)&(uR.t));
  msgT=localtime((time_t*)&(uM.t));
  printf("rule yday=%d year=%d mday=%d\n",
	 msgT->tm_yday,msgT->tm_year,msgT->tm_mday);

  return (ruleT->tm_yday == msgT->tm_yday &&
	  ruleT->tm_year == msgT->tm_year); 
	  
}

static int date_less(value, pattern)
char *value, *pattern;
{
  union un1 u1, u2;

  strncpy(&(u1.ch[0]), value, sizeof(u1.ch));
  strncpy(&(u2.ch[0]), pattern, sizeof(u2.ch));
  return u2.t > u1.t;
}

static int date_greater(value, pattern)
char *value, *pattern;
{
  union un1 u1, u2;

  strncpy(&(u1.ch[0]), value, sizeof(u1.ch));
  strncpy(&(u2.ch[0]), pattern, sizeof(u2.ch));
  return u2.t < u1.t;
}

static NORET date_free(data)
char *data;
{
  Memory_free(data);
}

static FieldOpArg fieldOpList[]={
  { "%is_before",date_less },
  { "%before",date_less },
  { "<",date_less },
  { "%is_after",date_greater },
  { "%after",date_greater },
  { ">",date_greater },
/*  { "%is_equal",date_equal },
  { "%equal",date_equal },
  { "%equals",date_equal },
  { "=",date_equal }, */
  { (char *)NULL, NULL}
};

static struct AlFieldTypeRegistry_str  date_FTrec={
  "Date",
  parser,
  un_parser,
  fieldOpList,
  NULL,
  NULL,
  date_free,
};

struct AlFieldTypeRegistry_str  *date_FTrecptr = &date_FTrec;