From 7f815beab8eb99f1829cd47975cf2f63b9c8811d Mon Sep 17 00:00:00 2001
From: Ryan Davis <ryan@mokeys.org>
Date: Mon, 28 Sep 2009 18:11:27 -0400
Subject: [PATCH] Got a simple program to say "Hello\n" every 2s, and then a
 simple lisp file to read that out.  Requires some weird `__cxa_pure_virtual`
 stuff so the avr-gcc compiler can deal with virtual methods used in the
 arduino base cpp files.

refs #1
---
 serial-repeater/Makefile            |  2 ++
 serial-repeater/reader.lisp         | 13 +++++++++++++
 serial-repeater/serial-repeater.pde | 19 +++++++++++++++++++
 3 files changed, 34 insertions(+)
 create mode 100755 serial-repeater/Makefile
 create mode 100644 serial-repeater/reader.lisp
 create mode 100644 serial-repeater/serial-repeater.pde

diff --git a/serial-repeater/Makefile b/serial-repeater/Makefile
new file mode 100755
index 0000000..697f5d1
--- /dev/null
+++ b/serial-repeater/Makefile
@@ -0,0 +1,2 @@
+TARGET = serial-repeater
+include ../arduino.mk
\ No newline at end of file
diff --git a/serial-repeater/reader.lisp b/serial-repeater/reader.lisp
new file mode 100644
index 0000000..cb6799a
--- /dev/null
+++ b/serial-repeater/reader.lisp
@@ -0,0 +1,13 @@
+;;;; reader.lisp
+
+(defpackage #:serial-reader
+  (:use #:cl))
+
+(in-package #:serial-reader)
+
+(defun read-serial ()   
+  (with-open-file (s "/dev/ttyUSB0"
+		     :direction :io
+		     :if-exists :overwrite)
+    (read-line s)))
+
diff --git a/serial-repeater/serial-repeater.pde b/serial-repeater/serial-repeater.pde
new file mode 100644
index 0000000..e84f668
--- /dev/null
+++ b/serial-repeater/serial-repeater.pde
@@ -0,0 +1,19 @@
+// -*- mode: c -*-
+int ledPin = 13;
+int blinkMs = 2000;
+
+void setup(){
+  pinMode(ledPin, OUTPUT);
+  Serial.begin(9600);
+}
+
+void loop (){
+  digitalWrite(ledPin, HIGH);
+  Serial.println("Hello");
+  delay(blinkMs);
+  digitalWrite(ledPin, LOW);
+  delay(blinkMs);
+}
+
+extern "C" void __cxa_pure_virtual(void);
+void __cxa_pure_virtual(void) {}