Gnudap
 
Home
Documentation
Download
Credits
 

Module Libgnudap


module Libgnudap: sig  end

exception Device_not_found
exception Invalid_file

type file_info = {
   title : string;
   fileID : string;
   kind : string;
   cID : int array;
   bho1 : int array;
   size : int;
}

type directory = {
   capacity : int;
   available : int;
   files : file_info list;
}

type work_device = {
   unknown : (unit -> int array) option;
   get_dev_info : (unit -> string) option;
   get_dev_info2 : (unit -> string) option;
   get_directory : (unit -> directory) option;
   put_file : (directory ->
file_info -> string -> (float -> float -> float -> unit) -> unit)
option
;
   get_file : (file_info -> string -> (float -> float -> float -> unit) -> unit)
option
;
   delete_file : (file_info -> unit) option;
   format : (unit -> unit) option;
   move : (file_info -> int -> unit) option;
   rename : (file_info -> file_info -> unit) option;
   close : (unit -> unit) option;
}
type protocol = known_device -> work_device 

type known_device = {
   dev : Usb_fun.device;
   protocol : protocol;
}
val open_dap : known_device -> work_device
val choosefID : directory -> string
val finfo : string -> directory -> file_info
val pbar1 : float -> float -> float -> unit
val call : 'a option -> 'a