Add easymini turnon script and helpers

Signed-off-by: Keith Packard <keithp@keithp.com>

4 files changed, 428 insertions, 0 deletions

diff --git a/ao-bringup/test-baro b/ao-bringup/test-baro
new file mode 100755
index 00000000..45d7ccac
--- /dev/null
+++ b/ao-bringup/test-baro
@@ -0,0 +1,117 @@
+#!/usr/bin/nickle
+
+import File;
+
+string timed_read(file f, int timeout) {
+	thread reader = fork func() {
+		try {
+			return fgets(f);
+		} catch Thread::signal(int i) {
+			return "";
+		}
+	}();
+
+	thread killer = fork func() {
+		try {
+			sleep (timeout);
+			Thread::send_signal(reader, 1);
+		} catch Thread::signal(int i) {
+			return;
+		}
+	}();
+
+	poly v = Thread::join(reader);
+	Thread::send_signal(killer, 1);
+	Thread::join(killer);
+	if (is_string(v))
+		return v;
+	return "";
+}
+
+void flush_input(file f) {
+	for (;;) {
+		string s = timed_read(f, 200);
+		if (s == "")
+			break;
+	}
+}
+
+string[*] settings(file f) {
+	string[...] x = {};
+
+	flush_input(f);
+	fprintf (f, "c s\nv\n");
+	flush(f);
+	for (;;) {
+		string l = File::fgets(f);
+		x[dim(x)] = l;
+		if (String::index(l, "software-version") == 0)
+			break;
+	}
+	return x;
+}
+
+string[*] find_setting(string[*] s, string match) {
+	for (int i = 0; i < dim(s); i++)
+		if (String::index(s[i], match) == 0)
+			return String::wordsplit(s[i], " ");
+	return (string[*]) {};
+}
+
+string[*] baro(file f) {
+	string[...] x = {};
+
+	flush_input(f);
+	fprintf (f, "B\n");
+	flush(f);
+	for (;;) {
+		string l = File::fgets(f);
+		x[dim(x)] = l;
+		if (String::index(l, "Altitude:") == 0)
+			break;
+	}
+	return x;
+}
+
+string[*] find_baro(string[*] s, string match) {
+	for (int i = 0; i < dim(s); i++)
+		if (String::index(s[i], match) >= 0)
+			return String::wordsplit(s[i], " ");
+	return (string[*]) {};
+}
+
+bool
+do_baro(file f) {
+	string[*] i = baro(f);
+	string[*] temp = find_baro(i, "Temperature");
+	string[*] alt = find_baro(i, "Altitude");
+
+	real temperature = string_to_integer(temp[2]) / 100.0;
+	real altitude = string_to_integer(alt[1]);
+
+	if (altitude < 0 || 3000 < altitude) {
+		printf ("weird altitude %f\n", altitude);
+		return false;
+	}
+
+	if (temperature < 20 || 30 < temperature) {
+		printf ("weird temperature %f\n", temperature);
+		return false;
+	}
+
+	printf ("altitude %f temperature %f\n", altitude, temperature);
+
+	return true;
+}
+
+void main () {
+	string	name = argv[1];
+	file	f = open(name, "r+");
+	bool ret = true;
+
+	if (!do_baro(f))
+		ret = false;
+	exit (ret? 0 : 1);
+}
+
+main();
diff --git a/ao-bringup/test-flash b/ao-bringup/test-flash
new file mode 100755
index 00000000..c42ddee3
--- /dev/null
+++ b/ao-bringup/test-flash
@@ -0,0 +1,119 @@
+#!/usr/bin/nickle
+
+import File;
+
+string timed_read(file f, int timeout) {
+	thread reader = fork func() {
+		try {
+			return fgets(f);
+		} catch Thread::signal(int i) {
+			return "";
+		}
+	}();
+
+	thread killer = fork func() {
+		try {
+			sleep (timeout);
+			Thread::send_signal(reader, 1);
+		} catch Thread::signal(int i) {
+			return;
+		}
+	}();
+
+	poly v = Thread::join(reader);
+	Thread::send_signal(killer, 1);
+	Thread::join(killer);
+	if (is_string(v))
+		return v;
+	return "";
+}
+
+void flush_input(file f) {
+	for (;;) {
+		string s = timed_read(f, 200);
+		if (s == "")
+			break;
+	}
+}
+
+string[*] settings(file f) {
+	string[...] x = {};
+
+	flush_input(f);
+	fprintf (f, "c s\nv\n");
+	flush(f);
+	for (;;) {
+		string l = File::fgets(f);
+		x[dim(x)] = l;
+		if (String::index(l, "software-version") == 0)
+			break;
+	}
+	return x;
+}
+
+string[*] find_setting(string[*] s, string match) {
+	for (int i = 0; i < dim(s); i++)
+		if (String::index(s[i], match) == 0)
+			return String::wordsplit(s[i], " ");
+	return (string[*]) {};
+}
+
+string[*] flash(file f) {
+	string[...] x = {};
+
+	flush_input(f);
+	fprintf (f, "f\nv\n");
+	flush(f);
+	for (;;) {
+		string l = File::fgets(f);
+		x[dim(x)] = l;
+		if (String::index(l, "software-version") == 0)
+			break;
+	}
+	return x;
+}
+
+string[*] find_flash(string[*] s, string match) {
+	for (int i = 0; i < dim(s); i++)
+		if (String::index(s[i], match) >= 0)
+			return String::wordsplit(s[i], " ");
+	return (string[*]) {};
+}
+
+bool
+do_flash(file f, int expected_size) {
+	string[*] i = flash(f);
+	string[*] size = find_flash(i, "Storage size:");
+	string[*] erase = find_flash(i, "Storage erase unit:");
+
+	int actual_size = string_to_integer(size[2]);
+
+	if (actual_size != expected_size) {
+		printf ("weird flash size %d != %d\n", actual_size, expected_size);
+		return false;
+	}
+
+	int actual_erase = string_to_integer(erase[3]);
+
+	if (actual_erase != 65536) {
+		printf ("weird erase size %d\n", actual_erase);
+		return false;
+	}
+
+	printf ("flash size %d erase block %d\n", actual_size, actual_erase);
+
+	return true;
+}
+
+void main () {
+	string	name = argv[1];
+	string	size = argv[2];
+	file	f = open(name, "r+");
+	bool ret = true;
+
+	if (!do_flash(f, string_to_integer(size)))
+		ret = false;
+	exit (ret? 0 : 1);
+}
+
+main();
diff --git a/ao-bringup/test-igniter b/ao-bringup/test-igniter
new file mode 100755
index 00000000..72dd7723
--- /dev/null
+++ b/ao-bringup/test-igniter
@@ -0,0 +1,114 @@
+#!/usr/bin/nickle
+
+import File;
+
+string timed_read(file f, int timeout) {
+	thread reader = fork func() {
+		try {
+			return fgets(f);
+		} catch Thread::signal(int i) {
+			return "";
+		}
+	}();
+
+	thread killer = fork func() {
+		try {
+			sleep (timeout);
+			Thread::send_signal(reader, 1);
+		} catch Thread::signal(int i) {
+			return;
+		}
+	}();
+
+	poly v = Thread::join(reader);
+	Thread::send_signal(killer, 1);
+	Thread::join(killer);
+	if (is_string(v))
+		return v;
+	return "";
+}
+
+void flush_input(file f) {
+	for (;;) {
+		string s = timed_read(f, 200);
+		if (s == "")
+			break;
+	}
+}
+
+string[*] settings(file f) {
+	string[...] x = {};
+
+	flush_input(f);
+	fprintf (f, "c s\nv\n");
+	flush(f);
+	for (;;) {
+		string l = File::fgets(f);
+		x[dim(x)] = l;
+		if (String::index(l, "software-version") == 0)
+			break;
+	}
+	return x;
+}
+
+string[*] find_setting(string[*] s, string match) {
+	for (int i = 0; i < dim(s); i++)
+		if (String::index(s[i], match) == 0)
+			return String::wordsplit(s[i], " ");
+	return (string[*]) {};
+}
+
+string[*] igniters(file f) {
+	string[...] x = {};
+
+	flush_input(f);
+	fprintf (f, "t\nv\n");
+	flush(f);
+	for (;;) {
+		string l = File::fgets(f);
+		x[dim(x)] = l;
+		if (String::index(l, "software-version") == 0)
+			break;
+	}
+	return x;
+}
+
+string[*] find_igniter(string[*] s, string match) {
+	for (int i = 0; i < dim(s); i++)
+		if (String::index(s[i], match) >= 0)
+			return String::wordsplit(s[i], " ");
+	return (string[*]) {};
+}
+
+bool
+do_igniter(file f, string igniter) {
+	string[*] i = igniters(f);
+	string[*] status = find_igniter(i, igniter);
+	if (dim(status) < 4) {
+		printf ("no igniter %s found in %v\n", igniter, i);
+		return false;
+	}
+	if (String::index(status[3], "ready") < 0) {
+		printf("igniter %s status is \"%s\"\n", igniter, status[3]);
+		return false;
+	}
+	fprintf(f, "i DoIt %s\n", igniter);
+	flush(f);
+	flush_input(f);
+	return true;
+}
+
+void main () {
+	string	name = argv[1];
+	string[dim(argv)-2]	igniters = { [i] = argv[i+2] };
+	file	f = open(name, "r+");
+	bool ret = true;
+
+	for (int i = 0; i < dim(igniters); i++) {
+		if (!do_igniter(f, igniters[i]))
+			ret = false;
+	}
+	exit (ret? 0 : 1);
+}
+
+main();
diff --git a/ao-bringup/turnon_easymini b/ao-bringup/turnon_easymini
new file mode 100644
index 00000000..3c24aa21
--- /dev/null
+++ b/ao-bringup/turnon_easymini
@@ -0,0 +1,78 @@
+#!/bin/sh
+
+if [ -x ../ao-tools/ao-flash/ao-flash-lpc ]; then
+	FLASH_LPC=../ao-tools/ao-flash/ao-flash-lpc
+elif [ -x /usr/bin/ao-flash-lpc ]; then
+	FLASH_LPC=/usr/bin/ao-flash-lpc
+else
+	echo "Can't find ao-flash-lpc!  Aborting."
+	exit 1
+fi
+
+if [ -x ../ao-tools/ao-usbload/ao-usbload ]; then
+	USBLOAD=../ao-tools/ao-usbload/ao-usbload
+elif [ -x /usr/bin/ao-usbload ]; then
+	USBLOAD=/usr/bin/ao-usbload
+else
+	echo "Can't find ao-usbload!  Aborting."
+	exit 1
+fi
+
+VERSION=1.0
+PRODUCT=EasyMini
+#VERSION=0.1
+
+echo "$PRODUCT v$VERSION Turn-On and Calibration Program"
+echo "Copyright 2010 by Bdale Garbee.  Released under GPL v2"
+echo
+echo "Expectations:"
+echo "\t$PRODUCT v$VERSION powered from USB"
+echo "\t\twith ST-Link-V2 cabled to debug header"
+echo
+echo -n "$PRODUCT-$VERSION serial number: "
+read SERIAL
+
+echo $FLASH_LPC
+
+$FLASH_LPC ../src/easymini-v$VERSION/flash-loader/*.elf || exit 1
+
+sleep 2
+
+$USBLOAD --serial=$SERIAL ../src/easymini-v$VERSION/*.ihx || exit 1
+#$USBLOAD --serial=$SERIAL /usr/share/altos/telemega-v$VERSION*.ihx || exit 1
+
+sleep 2
+
+dev=`ao-list | awk '/$PRODUCT-v'"$VERSION"'/ { print $3; exit(0); }'`
+
+case "$dev" in
+/dev/tty*)
+	echo "$PRODUCT found on $dev"
+	;;
+*)
+	echo 'No $PRODUCT-v'"$VERSION"' found'
+	exit 1
+	;;
+esac
+
+echo "Testing igniters. Both should flash"
+./test-igniter "$dev" drogue main
+
+case $? in
+0)
+	;;
+*)
+	echo "failed"
+	exit 1
+esac
+
+echo "Testing baro sensor"
+./test-baro "$dev"
+
+case $? in
+0)
+	;;
+*)
+	echo "failed"
+	exit 1
+esac