#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/utsname.h>

#include "shared/sockets.h"

#include "main.h"
#include "mode.h"
#include "batt.h"

int batt_fd = 0;

static int get_batt_stat (int *acstat, int *battstat, int *battflag, int *percent);

static int
get_batt_stat (int *acstat, int *battstat, int *battflag, int *percent)
{
	char str[64];

	if (!batt_fd)
		batt_fd = open ("/proc/apm", O_RDONLY);
	if (batt_fd <= 0)
		return -1;

	if (lseek (batt_fd, 0, 0) != 0)
		return -1;

	if (read (batt_fd, str, sizeof (str) - 1) < 0)
		return -1;

	if (3 > sscanf (str + 13, "0x%x 0x%x 0x%x %d", acstat, battstat, battflag, percent))
		return -1;

	return 0;

}

int
batt_init ()
{
	static int first = 1;

	if (first) {
		first = 0;
		sock_send_string (sock, "screen_add B\n");
	}

	return 0;
}

int
batt_close ()
{
	if (batt_fd)
		close (batt_fd);
	batt_fd = 0;

	return 0;
}

////////////////////////////////////////////////////////////////////////
// Battery Screen shows apm battery status...
//

//####################
//## Battery: 100% ###
//AC: Unknown
//Batt: Low (Charging)
//E------------------F

int
battery_screen (int rep, int display)
{
	static int first = 1;

	int acstat = 0, battstat = 0, battflag = 0, percent = 0;

	if (first) {
		first = 0;

		sprintf (buffer, "screen_set B -name {APM stats: %s}\n", host);
		sock_send_string (sock, buffer);
		sock_send_string (sock, "widget_add B title title\n");
		sprintf (tmp, "widget_set B title {LCDPROC %s}\n", version);
		sock_send_string (sock, tmp);
		sock_send_string (sock, "widget_add B one string\n");
		if (lcd_hgt >= 4) {
			sock_send_string (sock, "widget_add B two string\n");
			sock_send_string (sock, "widget_add B three string\n");
			sock_send_string (sock, "widget_add B gauge hbar\n");
			sock_send_string (sock, "widget_set B one 1 2 {AC: Unknown}\n");
			sock_send_string (sock, "widget_set B two 1 3 {Batt: Unknown}\n");
			sock_send_string (sock, "widget_set B three 1 4 {E                  F}\n");
			sock_send_string (sock, "widget_set B gauge 2 4 0\n");
		}
	}
	// Only run once every 16 frames...
	//if(rep&0x0f) return 0;

	get_batt_stat (&acstat, &battstat, &battflag, &percent);

	if (percent >= 0)
		sprintf (buffer, "%i%%", percent);
	else
		sprintf (buffer, "??%%");
	sprintf (tmp, "widget_set B title {Batt: %s: %s}\n", buffer, host);

	if (display)
		sock_send_string (sock, tmp);

	if (lcd_hgt >= 4)				  // 4-line version of the screen
	{
		sprintf (tmp, "widget_set B one 1 2 {");
		switch (acstat) {
		case 0:
			sprintf (tmp + strlen (tmp), "AC: Off}\n");
			break;
		case 1:
			sprintf (tmp + strlen (tmp), "AC: On}\n");
			break;
		case 2:
			sprintf (tmp + strlen (tmp), "AC: Backup}\n");
			break;
		default:
			sprintf (tmp + strlen (tmp), "AC: Unknown}\n");
			break;
		}

		if (display)
			sock_send_string (sock, tmp);

		sprintf (tmp, "widget_set B two 1 3 {");
		if (battflag == 0xff) {
			sprintf (tmp + strlen (tmp), "Battery Stat Unknown");
		} else {
			sprintf (tmp + strlen (tmp), "Batt:");
			if (battflag & 1)
				sprintf (tmp + strlen (tmp), " High");
			if (battflag & 2)
				sprintf (tmp + strlen (tmp), " Low");
			if (battflag & 4)
				sprintf (tmp + strlen (tmp), " Critical");
			if (battflag & 8 || battstat == 3)
				sprintf (tmp + strlen (tmp), " Charging");
			if (battflag & 128)
				sprintf (tmp + strlen (tmp), " (NONE)");
		}
		sprintf (tmp + strlen (tmp), "}\n");
		if (display)
			sock_send_string (sock, tmp);

		if (percent > 0) {
			sprintf (tmp, "widget_set B gauge 2 4 %i\n", (percent * ((lcd_wid - 2) * lcd_cellwid) / 100));
			if (display)
				sock_send_string (sock, tmp);
		}
	}									  // end if(lcd_hgt >= 4)
	else								  // two-line version of the screen
	{
		sprintf (tmp, "widget_set B one 1 2 {");
		if (acstat == 1)
			sprintf (tmp + strlen (tmp), "AC, ");

		if (battflag == 0xff) {
			sprintf (tmp + strlen (tmp), "No battery???");
		} else {
			sprintf (tmp + strlen (tmp), "Batt:");
			if (battflag & 1)
				sprintf (tmp + strlen (tmp), " High");
			if (battflag & 2)
				sprintf (tmp + strlen (tmp), " Low");
			if (battflag & 4)
				sprintf (tmp + strlen (tmp), " Critical");
			if (battflag & 8 || battstat == 3)
				sprintf (tmp + strlen (tmp), " Charging");
			if (battflag & 128)
				sprintf (tmp + strlen (tmp), " (NONE)");
		}
		sprintf (tmp + strlen (tmp), "}\n");
		if (display)
			sock_send_string (sock, tmp);

	}

	return 0;
}