X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fcortexelf-v1%2Fao_cortexelf.c;h=8be7ef151457acd362733157709f0684dd7ff159;hb=1bc48b075f76bfef258f516549573429b24f284c;hp=776530e0c9a9a28c5ee82402656dd0c156d34160;hpb=637d522c6a15b47051103ccc3626be3206a7a2df;p=fw%2Faltos

diff --git a/src/cortexelf-v1/ao_cortexelf.c b/src/cortexelf-v1/ao_cortexelf.c
index 776530e0..8be7ef15 100644
--- a/src/cortexelf-v1/ao_cortexelf.c
+++ b/src/cortexelf-v1/ao_cortexelf.c
@@ -25,6 +25,11 @@
 #include <ao_ps2.h>
 #include <ao_vga.h>
 #include <ao_console.h>
+#include <ao_sdcard.h>
+#include <ao_fat.h>
+#include <ao_lisp.h>
+#include <ao_button.h>
+#include <ao_event.h>
 
 struct ao_task ball_task;
 
@@ -180,14 +185,46 @@ ao_console_send(void)
 	}
 }
 
+static void lisp_cmd() {
+	ao_lisp_read_eval_print();
+}
+
+static void
+ao_serial_blather(void)
+{
+	char c;
+
+	while ((c = getchar()) != '~') {
+		ao_serial1_putchar(c);
+		ao_serial2_putchar(c);
+	}
+}
+
 __code struct ao_cmds ao_demo_cmds[] = {
 	{ ao_video_toggle, "V\0Toggle video" },
 	{ ao_ball_toggle, "B\0Toggle ball" },
 	{ ao_ps2_read_keys, "K\0Read keys from keyboard" },
 	{ ao_console_send, "C\0Send data to console, end with ~" },
+	{ ao_serial_blather, "S\0Blather on serial ports briefly" },
+	{ lisp_cmd, "l\0Run lisp interpreter" },
 	{ 0, NULL }
 };
 
+static struct ao_task event_task;
+
+static void
+ao_event_loop(void)
+{
+	for (;;) {
+		struct ao_event	ev;
+
+		ao_event_get(&ev);
+		printf("type %d uint %d tick %d value %d\n",
+		       ev.type, ev.unit, ev.tick, ev.value);
+		flush();
+	}
+}
+
 int
 main(void)
 {
@@ -205,6 +242,9 @@ main(void)
 	ao_dma_init();
 	ao_exti_init();
 
+	ao_sdcard_init();
+	ao_fat_init();
+
 	ao_ps2_init();
 	ao_vga_init();
 	ao_console_init();
@@ -213,9 +253,12 @@ main(void)
 
 	ao_usb_init();
 
+	ao_button_init();
+
 	ao_config_init();
 
 	ao_add_task(&ball_task, ao_ball, "ball");
+	ao_add_task(&event_task, ao_event_loop, "events");
 	ao_cmd_register(&ao_demo_cmds[0]);
 
 	ao_start_scheduler();