ocaml 3.09 transition

[helm.git] / helm / ocaml / getter / http_getter.mli

diff --git a/helm/ocaml/getter/http_getter.mli b/helm/ocaml/getter/http_getter.mli
index a7d12f5a1611e8867d280d5df34bfd9a819665f1..4bbc447bdac85cca2102b21b302a05b014ac8d0a 100644 (file)
--- a/helm/ocaml/getter/http_getter.mli
+++ b/helm/ocaml/getter/http_getter.mli
@@ -37,29 +37,30 @@ val stdout_logger: logger_callback
   (** {2 Getter Web Service interface as API *)
 
 val help: unit -> string
+
+  (** @raise Http_getter_types.Unresolvable_URI _
+  * @raise Http_getter_types.Key_not_found _ *)
 val resolve: string -> string (* uri -> url *)
-val register: uri:string -> url:string -> unit
-val update: ?logger:logger_callback -> unit -> unit
-val getxml  : ?format:encoding -> ?patch_dtd:bool -> string -> string
-val getxslt : ?patch_dtd:bool -> string -> string
-val getdtd  : ?patch_dtd:bool -> string -> string
+
+val exists: string -> bool
+
+val getxml  : string -> string
+val getxslt : string -> string
+val getdtd  : string -> string
 val clean_cache: unit -> unit
-val list_servers: unit -> (int * string) list
-val add_server: ?logger:logger_callback -> ?position:int -> string -> unit
-val remove_server: ?logger:logger_callback -> int -> unit
 val getalluris: unit -> string list
-val getallrdfuris: [ `Forward | `Backward ] -> string list
-val ls: xml_uri -> ls_item list
 
-  (** {2 Shorthands} *)
+  (** @param baseuri uri to be listed, simple form or regular expressions (a
+   * single choice among parens) are permitted *)
+val ls: string -> ls_item list
+
+  (** {2 UriManager shorthands} *)
 
-val getxml'   : UriManager.uri -> string
-val resolve'  : UriManager.uri -> string
-val register' : UriManager.uri -> string -> unit
+val getxml'     : UriManager.uri -> string
+val resolve'    : UriManager.uri -> string
+val exists'     : UriManager.uri -> bool
 
   (** {2 Misc} *)
 
-val close_maps: unit -> unit
-val update_from_one_server: ?logger:logger_callback -> string -> unit
-val has_server: int -> bool (* does a server with a given position exists? *)
+val init: unit -> unit