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 0b86e730d54eabac028cfb8aea52ec4cbf61ef0b..4bbc447bdac85cca2102b21b302a05b014ac8d0a 100644 (file)
--- a/helm/ocaml/getter/http_getter.mli
+++ b/helm/ocaml/getter/http_getter.mli
@@ -42,42 +42,25 @@ val help: unit -> string
   * @raise Http_getter_types.Key_not_found _ *)
 val resolve: string -> string (* uri -> url *)
 
-  (** @raise Http_getter_types.Key_already_in _ *)
-val register: uri:string -> url:string -> unit
+val exists: string -> bool
 
-  (** does not fail if given uri does not exist *)
-val unregister: string -> unit
-
-val update: ?logger:logger_callback -> unit -> unit
-
-  (** @param format defaults to `Gzipped
-   * @param patch_dtd defaults to false *)
-val getxml  : ?format:encoding -> ?patch_dtd:bool -> string -> string
-val getxslt : ?patch_dtd:bool -> string -> string
-val getdtd  : ?patch_dtd:bool -> string -> string
+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
 
-  (** @param regexp regular expression (PCRE syntax) over HELM URIs *)
+  (** @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 Shorthands} *)
+  (** {2 UriManager shorthands} *)
 
-val getxml'     : UriManager.uri -> string  (* `Gzipped format, no DTD patch *)
+val getxml'     : UriManager.uri -> string
 val resolve'    : UriManager.uri -> string
-val register'   : UriManager.uri -> string -> unit
-val unregister' : UriManager.uri -> unit
+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
 
-  (** cal this at exit() *)
-val sync_dump_file: unit -> unit