zzkt/osc
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Activity Actions

Use Read-time evaluation to make code more readable

Browse source
This commit is contained in:
Javier Olaechea 2019-03-24 16:57:45 -05:00 committed by nik gaffney
parent f8cb331753
commit d472261c4f
Signed by: nik
GPG key ID: 989F5E6EDB478160
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
osc.lisp
View file

@ -382,15 +382,15 @@ with the current time use (encode-timetag :time)."
(defun decode-int32 (s) (defun decode-int32 (s)
"4 byte -> 32 bit int -> two's complement (in network byte order)" "4 byte -> 32 bit int -> two's complement (in network byte order)"
(let ((i (decode-uint32 s))) (let ((i (decode-uint32 s)))
(if (>= i #x7fffffff) (if (>= i #.(1- (expt 2 31)))
(- 0 (- #x100000000 i)) (- (- #.(expt 2 32) i))
i))) i)))
(defun decode-int64 (s) (defun decode-int64 (s)
"8 byte -> 64 bit int -> two's complement (in network byte order)" "8 byte -> 64 bit int -> two's complement (in network byte order)"
(let ((i (decode-uint64 s))) (let ((i (decode-uint64 s)))
(if (>= i #x7fffffffffffffff) (if (>= i #.(1- (expt 2 63)))
(- 0 (- #x10000000000000000 i)) (- (- #.(expt 2 64) i))
i))) i)))
;; osc-strings are unsigned bytes, padded to a 4 byte boundary ;; osc-strings are unsigned bytes, padded to a 4 byte boundary