spark: add spark_fp tool

this needs my patched aotom driver to work


Origin commit data
------------------
Branch: master
Commit: e91dcc03bc
Author: Stefan Seyfried <seife@tuxbox-git.slipkontur.de>
Date: 2012-04-15 (Sun, 15 Apr 2012)



------------------
This commit was generated by Migit

.gitignore

@@ -15,4 +15,4 @@
 /ltmain.sh
 /missing
 /Makefile.in
-
+/tools/Makefile.in

Makefile.am

@@ -1,6 +1,6 @@
 noinst_LIBRARIES = libstb-hal.a
 libstb_hal_a_SOURCES =
-SUBDIRS = common
+SUBDIRS = common tools
 bin_PROGRAMS = libstb-hal-test
 
 libstb_hal_a_LIBADD = \

configure.ac

@@ -24,5 +24,6 @@ common/Makefile
 libeplayer3/Makefile
 libtriple/Makefile
 libspark/Makefile
+tools/Makefile
 ])
 

tools/Makefile.am

@@ -0,0 +1,6 @@
+bin_PROGRAMS =
+
+if BOXTYPE_SPARK
+bin_PROGRAMS += spark_fp
+spark_fp_SOURCES = spark_fp.c
+endif

tools/spark_fp.c

@@ -0,0 +1,230 @@
+/*
+ * spark_fp - frontcontroller tool for SPARK boxes
+ *
+ * (C) 2012 Stefan Seyfried <seife@tuxboxcvs.slipkontur.de>
+ *
+ * License: GPL v2 or later
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <ctype.h>
+#include <stdbool.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <time.h>
+#include <unistd.h>
+#include <sys/ioctl.h>
+#include <aotom_main.h>
+
+#define FP_DEV "/dev/vfd"
+
+void usage()
+{
+	printf("usage spark_fp <option>\n");
+	printf("\t-g: get wakeup reason (return code == reason)\n");
+	printf("\t-t: get current FP time\n");
+	printf("\t-s <time>: set FP time (time = 0: use current time)\n");
+	printf("\t-w <time>: set FP wakeup time and power down (time = 1: no wakeup)\n");
+	printf("times are given in unix time (UTC, seconds since 1970-01-01 00:00:00)\n");
+	printf("\n");
+}
+
+#if 0
+double mod_julian_date(struct tm *t)
+{
+	double date;
+	int month;
+	int day;
+	int year;
+
+	year  = t->tm_year + 1900;
+	month = t->tm_mon + 1;
+	day   = t->tm_mday;
+
+	date = day - 32076 +
+		1461 * (year + 4800 + (month - 14) / 12) / 4 +
+		367 *  (month - 2 -   (month - 14) / 12 * 12) / 12 -
+		3 *   ((year + 4900 + (month - 14) / 12 ) / 100) / 4;
+
+	date += (t->tm_hour + 12.0) / 24.0;
+	date += (t->tm_min) / 1440.0;
+	date += (t->tm_sec) / 86400.0;
+	date -= 2400000.5;
+
+	return date;
+}
+#endif
+
+void time_to_aotom(time_t t, char *dest)
+{
+	/* from u-boot aotom */
+	struct tm* tmp;
+	tmp = localtime(&t);
+#if 0
+	/* this mjd stuff is totally useless: driver only uses dest[2] and dest[3]... */
+	double mjd = mod_julian_date(tmp);
+	int mjd_int = mjd;
+
+	dest[0] = mjd_int >> 8;
+	dest[1] = mjd_int & 0xff;
+#else
+	dest[0] = dest[1] = 0;
+#endif
+	dest[2] = tmp->tm_hour;
+	dest[3] = tmp->tm_min;
+	dest[4] = tmp->tm_sec;
+}
+
+int set_aotom_time(int fd, time_t t)
+{
+	struct tm *tmp;
+	struct aotom_ioctl_data aotom;
+	memset(&aotom, 0, sizeof(aotom));
+
+	tmp = localtime(&t);
+	t += tmp->tm_gmtoff;
+	if (ioctl(fd, VFDSETTIME2, &t) >= 0)
+		return 0;
+	fprintf(stderr, "warning: VFDSETTIME2 failed (%m), falling back to VFDSETTIME\n");
+	time_to_aotom(t, aotom.u.time.time);
+	if (ioctl(fd, VFDSETTIME, &aotom) < 0)
+	{
+		perror("ioctl VFDSETTIME");
+		return -1;
+	}
+	return 0;
+}
+
+
+int main(int argc, char **argv)
+{
+	const char *wakeupreason[4] = { "unknown", "poweron", "standby", "timer" };
+	struct aotom_ioctl_data aotom;
+	memset(&aotom, 0, sizeof(aotom));
+	int ret, c, val;
+	time_t t, t2, diff;
+	struct tm *tmp;
+
+	int fd = open(FP_DEV, O_RDWR);
+	if (fd < 0)
+	{
+		fprintf(stderr, "error: cannot open %s: %m\n", FP_DEV);
+		return 64;
+	}
+
+	if (argc == 1)
+	{
+		usage();
+		return 0;
+	}
+
+	ret = 0;
+	while ((c = getopt (argc, argv, "gs:tw:")) != -1)
+	{
+		switch (c)
+		{
+			case 'g':
+				ret = ioctl(fd, VFDGETSTARTUPSTATE, &val);
+				if (ret < 0)
+					perror("ioctl VFDGETSTARTUPSTATE");
+				else
+				{
+					printf("%s\n", wakeupreason[val & 0x03]);
+					ret = val;
+				}
+				break;
+			case 's':
+				t = atol(optarg);
+				if (t == 0)
+					t = time(NULL),
+				ret = set_aotom_time(fd, t);
+				break;
+			case 't':
+				ret = ioctl(fd, VFDGETTIME, &t);
+				if (ret < 0)
+					perror("ioctl VFDGETTIME");
+				else
+				{
+					tmp = localtime(&t);
+					t -= tmp->tm_gmtoff;
+					printf("%ld\n", t);
+				}
+				break;
+			case 'w':
+				t = atol(optarg);
+				if (t == 0)
+				{
+					fprintf(stderr, "invalid time?\n");
+					ret = 1;
+					break;
+				}
+				/* set AOTOM time to current time... */
+				t2 = time(NULL);
+				ret = set_aotom_time(fd, t2);
+				if (ret < 0)
+					break;
+				diff = t - t2;
+				/* green LED off */
+				aotom.u.led.on = LOG_OFF;
+				aotom.u.led.led_nr = 1;
+				ioctl(fd, VFDSETLED, &aotom);
+				/* red LED on */
+				aotom.u.led.on = LOG_ON;
+				aotom.u.led.led_nr = 0;
+				ioctl(fd, VFDSETLED, &aotom);
+				if (t < t2)
+				{
+					/* no valid wakeup time -> clear... */
+					t = 0;
+				}
+				else
+				{
+					/* green LED on */
+					aotom.u.led.on = LOG_ON;
+					aotom.u.led.led_nr = 1;
+					ioctl(fd, VFDSETLED, &aotom);
+					ret = ioctl(fd, VFDGETTIME, &t);
+					if (ret < 0)
+					{
+						perror("ioctl VFDGETTIME");
+						break;
+					}
+					t += diff;
+				}
+				tmp = gmtime(&t2);
+				fprintf(stderr, "current time: %04d-%02d-%02d %02d:%02d:%02d\n", tmp->tm_year + 1900,
+						tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
+				tmp = gmtime(&t);
+				fprintf(stderr, "wakeup time:  %04d-%02d-%02d %02d:%02d:%02d\n", tmp->tm_year + 1900,
+						tmp->tm_mon + 1, tmp->tm_mday, tmp->tm_hour, tmp->tm_min, tmp->tm_sec);
+				ret = ioctl(fd, VFDSTANDBY, &t);
+				/* driver always returns einval here...
+				if (ret < 0)
+					perror("ioctl VFDSTANDBY");
+				 */
+				sleep(2); /* not reached... */
+				break;
+			default:
+				usage();
+				return 0;
+		}
+	}
+	close(fd);
+	return ret;
+}