Carp/scratch

18 lines
641 B
Plaintext
Raw Normal View History

2020-02-21 07:39:25 +03:00
(defn safe-to-int16 [m m2]
(match m
(Maybe.Just b)
(match m2
(Maybe.Just bb) (Maybe.Just (to-int16 b bb))
(Maybe.Nothing) (Maybe.Nothing))
(Maybe.Nothing) (Maybe.Nothing)))
(doc bytes->int16
"Interprets the first two bytes in a byte sequence as an int16 value.")
(sig bytes->int16 (Fn [Order (Ref (Array Byte) a)] (Maybe Int)))
(defn bytes->int16 [order bs]
(let [first-byte (Array.nth bs 0)
second-byte (Array.nth bs 1)]
(match order
(Order.LittleEndian) (safe-to-int16 first-byte second-byte)
(Order.BigEndian) (safe-to-int16 second-byte first-byte))))