implement firmata digital-read

nakkaya · Dec 29, 2010 · 88b3272 · 88b3272
1 parent 77d0891
commit 88b3272
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/clodiuno/firmata.clj b/src/clodiuno/firmata.clj
@@ -75,7 +75,7 @@
 		 (.write out 1)))
 	     (if (= type :digital)
 	       (do
-		 (.write out (bit-or REPORT-DIGITAL pin))
+                 (.write out (bit-or REPORT-DIGITAL (if (< pin 8) 0 1)))
 		 (.write out 1)))
 	     (.flush out)))
 
@@ -87,8 +87,8 @@
 		 (.write out 0)))
 	     (if (= type :digital)
 	       (do
-		 (.write out (bit-or REPORT-DIGITAL pin))
-		 (.write out 0)))
+                 (.write out (bit-or REPORT-DIGITAL (if (< pin 8) 0 1)))
+                 (.write out 0)))
 	     (.flush out)))
 
 (defmethod pin-mode :firmata [conn pin mode]
@@ -122,6 +122,9 @@
 	       (.write (byte-array (to-byte cmd state)))
 	       (.flush))))
 
+(defmethod digital-read :firmata [conn pin]
+	   ((:digital-in-state @conn) pin))
+
 (defmethod analog-read :firmata [conn pin]
 	   ((:analog-in-state @conn) pin))