]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/ocaml/cic_cache/cicCache.ml
removed dependency on netclient, use http_client module from ocaml-http
[helm.git] / helm / ocaml / cic_cache / cicCache.ml
index 1080c39e76873171f9cc64e486b2c8de50a5adfd..394f9db77bcc158d467fd8db7fa4e86d40bb49d4 100644 (file)
@@ -41,10 +41,17 @@ let get_annobj uri =
   let cicfilename = G.getxml (U.cicuri_of_uri uri) in
    match (U.bodyuri_of_uri uri) with
       None ->
-        CicParser.annobj_of_xml cicfilename None
+        let annobj = CicParser.annobj_of_xml cicfilename None in
+         Unix.unlink cicfilename ;
+         annobj
     | Some bodyuri ->
        let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in
-        CicParser.annobj_of_xml cicfilename (Some cicbodyfilename)
+        let annobj =
+         CicParser.annobj_of_xml cicfilename (Some cicbodyfilename)
+        in
+         Unix.unlink cicfilename ;
+         Unix.unlink cicbodyfilename ;
+         annobj
 ;;
 
 let get_obj uri =
@@ -53,8 +60,13 @@ let get_obj uri =
   let cicfilename = G.getxml (U.cicuri_of_uri uri) in
    match (U.bodyuri_of_uri uri) with
       None ->
-        CicParser.obj_of_xml cicfilename None
+        let obj = CicParser.obj_of_xml cicfilename None in
+         Unix.unlink cicfilename ;
+         obj
     | Some bodyuri ->
        let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in
-        CicParser.obj_of_xml cicfilename (Some cicbodyfilename)
+       let obj = CicParser.obj_of_xml cicfilename (Some cicbodyfilename) in
+        Unix.unlink cicfilename ;
+        Unix.unlink cicbodyfilename ;
+        obj
 ;;