#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include "wv.h"

void
wvGetDTTM (DTTM * item, wvStream * fd)
{
    U16 a = read_16ubit (fd);
    U16 b = read_16ubit (fd);
    wvCreateDTTM (item, a, b);
}

void
wvGetDTTMFromBucket (DTTM * item, U8 * pointer)
{
    U16 a = dread_16ubit (NULL, &pointer);
    U16 b = dread_16ubit (NULL, &pointer);
    wvCreateDTTM (item, a, b);
}


void
wvCreateDTTM (DTTM * dttm, U16 temp1_16, U16 temp2_16)
{
    dttm->mint = temp1_16 & 0x003F;
    dttm->hr = (temp1_16 & 0x07C0) >> 6;
    dttm->dom = (temp1_16 & 0xF800) >> 11;

    dttm->mon = temp2_16 & 0x000F;
    dttm->yr = (temp2_16 & 0x1FF0) >> 4;
    dttm->wdy = (temp2_16 & 0xE000) >> 13;
}


void
wvInitDTTM (DTTM * dttm)
{
    dttm->mint = 0;
    dttm->hr = 0;
    dttm->dom = 0;

    dttm->mon = 0;
    dttm->yr = 0;
    dttm->wdy = 0;
}

void
wvCopyDTTM (DTTM * dest, DTTM * src)
{
    memcpy (dest, src, sizeof (DTTM));
}

void
wvListDTTM (DTTM * src)
{
    wvError (("min is %d\n", src->mint));
    wvError (("hr is %d\n", src->hr));
    wvError (("dom is %d\n", src->dom));
    wvError (("mon is %d\n", src->mon));
    wvError (("yr is %d\n", src->yr));
    wvError (("wdy is %d\n", src->wdy));
}

/* 
 * dont free the char * back from this, its engine is
 * ctime
*/
char *
wvDTTMtoUnix (DTTM * src)
{
    /* 
       im concerned with the lack of yday to i run it
       through the system to fill it in before using asctime
     */
    time_t t;
    struct tm out;
    wvListDTTM (src);
    out.tm_sec = 0;
    out.tm_min = src->mint;
    out.tm_hour = src->hr;
    out.tm_mday = src->dom;
    out.tm_mon = src->mon - 1;
    out.tm_year = src->yr;
    out.tm_wday = src->wdy;
    out.tm_yday = 0;
    out.tm_isdst = -1;
    t = mktime (&out);
    if (t == -1)
      {
	  wvWarning ("Bad Time!!, not critical error\n");
	  return (NULL);
      }
    return (ctime (&t));
}