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
|