synchroscope (part E)

README.org

@@ -43,3 +43,47 @@ This implementation supports the [[https://opensoundcontrol.stanford.edu/spec-1_
 
 - *R*equired, *O*ptional and *N*ot supported (or *N*ot required).
 - data is encoded as =(vector (unsigned 8))= by =cl-osc=
+
+* Float encoding & decoding
+
+#+BEGIN_SRC lisp
+(defun encode-float32 (f)
+  "Encode an ieee754 float as a 4 byte vector. currently sbcl/cmucl specific."
+  (encode-int32 (ieee-floats:encode-float32 f)))
+  ;; #+sbcl (encode-int32 (sb-kernel:single-float-bits f))
+  ;; #+cmucl (encode-int32 (kernel:single-float-bits f))
+  ;; #+openmcl (encode-int32 (CCL::SINGLE-FLOAT-BITS f))
+  ;; #+allegro (encode-int32 (multiple-value-bind (x y)
+  ;;                           (excl:single-float-to-shorts f)
+  ;;                           (+ (ash x 16) y)))
+  ;; #-(or sbcl cmucl openmcl allegro ieee-floats) (error "Can't encode single-floats using this implementation."))
+#+END_SRC
+
+#+BEGIN_SRC lisp
+(defun decode-float32 (v)
+  "Convert a vector of 4 bytes in network byte order into an ieee754 float."
+  (ieee-floats:decode-float32 (decode-int32 v)))
+  ;; #+sbcl (sb-kernel:make-single-float (decode-int32 v))
+  ;; #+cmucl (kernel:make-single-float (decode-int32 v))
+  ;; #+openmcl (CCL::HOST-SINGLE-FLOAT-FROM-UNSIGNED-BYTE-32 (decode-uint32 v))
+  ;; #+allegro (excl:shorts-to-single-float (ldb (byte 16 16) (decode-int32 v))
+  ;;                                        (ldb (byte 16 0) (decode-int32 v)))
+  ;; #-(or sbcl cmucl openmcl allegro) (error "Can't decode single-floats using this implementation."))
+#+END_SRC
+
+#+BEGIN_SRC lisp
+(defun encode-float64 (d)
+  "Encode an ieee754 float as a 8 byte vector. currently sbcl/cmucl specific."
+  #+sbcl (cat (encode-int32 (sb-kernel:double-float-high-bits d))
+              (encode-int32 (sb-kernel:double-float-low-bits d)))
+  #-(or sbcl ieee-floats) (error "Can't encode double-floats using this implementation."))
+#+END_SRC
+
+#+BEGIN_SRC lisp
+(defun decode-float64 (v)
+  "Convert a vector of 8 bytes in network byte order into an ieee754 float."
+  #+sbcl (sb-kernel:make-double-float
+          (decode-uint32 (subseq v 0 4))
+          (decode-uint32 (subseq v 4 8)))
+  #-(or sbcl ieee-floats) (error "Can't decode single-floats using this implementation."))
+#+END_SRC