Add LCD control structure.

Also add the Bin module to easily deal with binary.
This commit is contained in:
Fabien Freling 2015-04-08 14:49:24 +02:00
parent 52e5afa344
commit 644a1356a8
3 changed files with 39 additions and 1 deletions

4
src/bit.ml Normal file
View file

@ -0,0 +1,4 @@
let is_set num i =
if i < 0 then failwith "Invalid bit index."
(num lsr i) land 0b00000001 <> 0