X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_map.ml;h=b7ac1c605d7a4d435f9642205dd1a315e07fc2c6;hb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;hp=c4ff0102f48e13f35131913f4966ead9ac2d80a7;hpb=32bc9336091a84376f93b06325c08dab58124a0d;p=helm.git diff --git a/helm/http_getter/http_getter_map.ml b/helm/http_getter/http_getter_map.ml index c4ff0102f..b7ac1c605 100644 --- a/helm/http_getter/http_getter_map.ml +++ b/helm/http_getter/http_getter_map.ml @@ -1,5 +1,7 @@ (* - * Copyright (C) 2003, HELM Team. + * Copyright (C) 2003: + * Stefano Zacchiroli + * for the HELM Team http://helm.cs.unibo.it/ * * This file is part of HELM, an Hypertextual, Electronic * Library of Mathematics, developed at the Computer Science @@ -21,7 +23,7 @@ * MA 02111-1307, USA. * * For details, see the HELM World-Wide-Web page, - * http://cs.unibo.it/helm/. + * http://helm.cs.unibo.it/ *) exception Key_already_in of string;; @@ -46,6 +48,11 @@ class map dbname = with Dbm.Dbm_error "Entry already exists" -> raise (Key_already_in key) )) + method replace key value = + self#doWriter (lazy ( + Dbm.replace db key value + )) + method remove key = self#doWriter (lazy ( try