/*
 * Copyright 1996, 1997, 1998, 1999 by Daniel B. Suthers,
 * Pleasanton Ca. 94588 USA
 * E-MAIL dbs@tanj.com
 *
 * You may freely copy, use, and distribute this software,
 * in whole or in part, subject to the following restrictions:
 *
 *  1)  You may not charge money for it.
 *  2)  You may not remove or alter this copyright notice.
 *  3)  You may not claim you wrote it.
 *  4)  If you make improvements (or other changes), you are requested
 *      to send them to me, so there's a focal point for distributing
 *      improved versions.
 *
 */


#include <stdio.h>
#include <ctype.h>
#include <strings.h>
#include <string.h>
#include "x10.h"
#include <unistd.h>


extern int tty;
extern int sptty;

extern int Irev, Idays, Ijday, Ihours, Iminutes, Iseconds;
extern int Istatdim, Istatmon, Iaddmon, verbose;

extern unsigned char Ihcode;


/* buf should be a 16 byte character array. It will be read into. */
int get_status()
{
    register int n;
    unsigned int batlife;
    extern int timeout;
    static int tries = 0;
    int cnt;
    unsigned char buf[20];
    unsigned char powerfail[16];
    char *bits2day();
    char RCSID[]= "@(#) $Id: status.c,v 1.11 1999/12/13 21:11:21 dbs Exp $\n";
    extern int xwrite(), exread(), check4poll();


    display(RCSID);

    /* check the status of the interface.  See section 9 of the
       protocol doc.
     */
    timeout = TIMEOUT;
    for(n=0; n < 15; n++)
        powerfail[n] = 0xa5;
    powerfail[n] = '\0';

    buf[0] = 0x8b;	/* get status command */
    (void) xwrite(tty, buf, 1);  /* STATUS REQUEST command */

    n = exread(sptty, buf, 14, 3);

    if (n != 14)
    {
	if( buf[0] == 0x5a || n == 0 || (strncmp(buf, powerfail,n) == 0 ))
	{
	    if( n > 0 && (strncmp(buf, powerfail,n) == 0) )
	    {					 /* power failed, wait */
		if( verbose )
		    fprintf( stderr, "Power fail detected, wait 10 seconds.\n");
	        sleep(2);
	    }
	    if( tries++ < 2)
	    {
		if( verbose )
		    fprintf( stderr, "re checking for poll \n");
		check4poll(0,2);
		if( verbose )
		    fprintf( stderr, "re entering get status \n");
		return(get_status());
	    }
	}
	else
	{
	    if( n == 13 )
		return(get_status());
	    else
	        if( tries++ < 4 )
		    return(get_status());
	}
        fprintf(stderr,"Invalid status response (was %d bytes instead of 14)\n",
		n);
	for( cnt = 0; cnt < n; cnt++)
	    fprintf(stderr," byte %d was 0x%02x\n", cnt, buf[cnt]);
        return(-1);
    }

    /* No check sum after status command */

    /* The battery state should be checked.  It's in bytes 0  and 1 
     * It starts at 0xffff at reset acording to the docs.
     * I'm currently getting 0.  I see it going up when disconnected
     * from the AC line.
     * The battery is supposed to last up to 500 hours... Right.
     */
    batlife = ( (buf[1] << 8) | (unsigned int) buf[0] );
    if ( batlife == 65535 )
	batlife=0;
    if( batlife > 2400)
    {
        fprintf( stderr,
        "Battery has been used  %d minutes.  It should be replaced soon.\n", batlife);
    }
    if( verbose )
    {
	if ( batlife > 59 )
	    fprintf(stderr,
	        "The battery has been used for %d hour%sand %d minute%s\n",
		batlife / 60, (batlife/60) == 1 ? " " : "s ",
		batlife % 60, (batlife % 60)  == 1 ? "." : "s.");
	else
        fprintf(stderr, "The battery has been used for %d minute%s\n",
	    batlife, batlife == 1 ? "." : "s.");
    }

    Irev = (buf[7] & 0x0F);
    Iseconds = (buf[2]& 0xff);
    Iminutes = (buf[3]& 0xff) %60;
    Ihours =  ((buf[4]& 0xff) * 2) + ((buf[3] & 0xff) / 60);
    Ijday = buf[5] + (((buf[6] & 0x080) >> 7) * 256) ;
    Idays = buf[6] & 0x07f;
    Ihcode = ((buf[7] & 0xF0 ) >> 4);


    /* check the clock against current time. */
    /* Btye 4 has the hours divided in half, 3 has 2 hours worth of minutes, */
    /* 2 has seconds */
    if( verbose )
    {
    fprintf (stderr, "%02d:%02d:%02d is the interface time\n",
            Ihours, Iminutes, Iseconds);
    fprintf (stderr, "%03d is the julian date\n",
	    buf[5] + (((buf[6] & 0x080) >> 7) * 256) );
    fprintf (stderr, "%s (%2x) is the interface day of the week\n",
	    bits2day(buf[6] & 0x07f), buf[6] & 0x07f );
    }

    Iaddmon = buf[8] + (buf[9] << 8);
    Istatmon = buf[10] + (buf[11] << 8);
    Istatdim = buf[12] + (buf[13] << 8);

    return(1);
}