exception Dynlink_error of string * exnexception Findlib_error of string * exnexception Plugin_not_found of stringclass foo : object ... endtype 'a t = {system : string;msg : ([> `Debug | `Warning | `Error ] as 'a) -> string -> unit;
}type entry = {findlib_name : string;name : string;synopsis : string option;version : string option;deprecated : bool;
}val findfiles : [> `Debug | `Error | `Warning ] t -> string -> string listval list : [> `Debug | `Error | `Warning ] t -> SetEntry.elt listval load : [> `Debug | `Error | `Warning ] t -> string -> unit