[248975]: PC_Mainboard / Apps / cards / lib / compass.ml  Maximize  Restore  History

Download this file

23 lines (17 with data), 503 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
(*
* compass.ml
* ----------
* Copyright : (c) 2009, Jeremie Dimino <jeremie@dimino.org>
* Licence : BSD3
*
* This file is a part of [kro]bot.
*)
open OBus_type.Perv
open Lwt
include OBus_interface.Make(struct let name = "fr.krobot.Device.Compass" end)
type t = OBus_proxy.t
let compass = lazy(
lwt bus = Lazy.force OBus_bus.system in
return (OBus_proxy.make (OBus_peer.make bus "fr.krobot.Device.Compass") [ "fr"; "krobot"; "Devices"; "Compass" ])
)
OP_method GetCompass as get : int