X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter.mli;h=4bbc447bdac85cca2102b21b302a05b014ac8d0a;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=f0b32b3841a700874736dd92a8c42ae28b71b7f4;hpb=ae1f66ceadc14c7d0824bb375c5af175b15f083c;p=helm.git

diff --git a/helm/ocaml/getter/http_getter.mli b/helm/ocaml/getter/http_getter.mli
index f0b32b384..4bbc447bd 100644
--- a/helm/ocaml/getter/http_getter.mli
+++ b/helm/ocaml/getter/http_getter.mli
@@ -42,35 +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
 
-  (** @raise Http_getter_types.Key_not_found _ *)
-val unregister: 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 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
-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