X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter.mli;h=8d1ae4b5c05e57e5a598661efce2ffe2a799b2fc;hb=3af56c5a48f7cad33fd701e0061fe143e0e2a7c5;hp=e6a41117f4a608279be820fd9935956f9ac08886;hpb=384c369d4cbf5dd6cf1013902d3a218260400e73;p=helm.git

diff --git a/helm/ocaml/getter/http_getter.mli b/helm/ocaml/getter/http_getter.mli
index e6a41117f..8d1ae4b5c 100644
--- a/helm/ocaml/getter/http_getter.mli
+++ b/helm/ocaml/getter/http_getter.mli
@@ -28,19 +28,21 @@
 
 open Http_getter_types
 
+type logger_callback = HelmLogger.html_tag -> unit
+
   (** {2 Getter Web Service interface as API *)
 
 val help: unit -> string
 val resolve: string -> string (* uri -> url *)
 val register: uri:string -> url:string -> unit
-val update: unit -> HelmLogger.html_msg
+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 clean_cache: unit -> unit
 val list_servers: unit -> (int * string) list
-val add_server: ?position:int -> string -> HelmLogger.html_msg
-val remove_server: int -> HelmLogger.html_msg
+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
@@ -54,5 +56,6 @@ val register' : UriManager.uri -> string -> unit
   (** {2 Misc} *)
 
 val close_maps: unit -> unit
-val update_from_one_server: string -> HelmLogger.html_msg
+val update_from_one_server: ?logger:logger_callback -> string -> unit
+val has_server: int -> bool (* does a server with a given position exists? *)