mindstorm 0.5.3 · OCaml Package

type usb

type bluetooth

type 'a conn

val connect_bluetooth : ?check_status:bool -> string -> bluetooth conn

module USB : sig ... end

val close : 'a conn -> unit

type error =

exception Error of error

exception File_not_found

module Program : sig ... end

module Motor : sig ... end

module Sensor : sig ... end

module Sound : sig ... end

module Message : sig ... end

type 'a in_channel

val open_in : 'a conn -> string -> 'a in_channel

val in_channel_length : 'a in_channel -> int

val close_in : 'a in_channel -> unit

val input : 'a in_channel -> string -> int -> int -> int

type 'a out_channel

type out_flag = [

]

val open_out : 'a conn -> out_flag -> string -> 'a out_channel

val close_out : 'a out_channel -> unit

val output : 'a out_channel -> string -> int -> int -> int

val remove : 'a conn -> string -> unit

module Find : sig ... end

val firmware_version : 'a conn -> int * int * int * int

val set_brick_name : ?check_status:bool -> 'a conn -> string -> unit

type brick_info = {

}

val get_device_info : 'a conn -> brick_info

val keep_alive : 'a conn -> int

val battery_level : 'a conn -> int

val delete_user_flash : 'a conn -> unit

val bluetooth_reset : usb conn -> unit

val boot : usb conn -> unit

val poll_length : 'a conn -> [ `High_speed_buffer | `Poll_buffer ] -> int

val poll_command : 
  'a conn ->
  [ `High_speed_buffer | `Poll_buffer ] ->
  int ->
  int * string

package mindstorm