The tmp is now cleared from the http___* files.

diff --git a/helm/ocaml/cic_annotations_cache/cicCache.ml b/helm/ocaml/cic_annotations_cache/cicCache.ml
index de5c1926e6f3d569169e3c08b2ee8ae3cd47641d..0885397581690671e0f04ab6cb3e109e5846dc0e 100644 (file)
--- a/helm/ocaml/cic_annotations_cache/cicCache.ml
+++ b/helm/ocaml/cic_annotations_cache/cicCache.ml
@@ -46,11 +46,17 @@ let get_annobj uri =
        Some (G.getxml (U.cicuri_of_uri bodyuri))
   in
    let annobj = CicParser.annobj_of_xml cicfilename cicbodyfilename in
+    Unix.unlink cicfilename ;
+    (match cicbodyfilename with None -> () | Some fn -> Unix.unlink fn) ;
     annobj,
      if U.uri_is_annuri uri then
       begin
        let annfilename = G.getxml (U.annuri_of_uri uri) in
-        Some (CicAnnotationParser.get_annotations annfilename)
+        let res =
+         Some (CicAnnotationParser.get_annotations annfilename)
+        in
+         Unix.unlink annfilename ;
+         res
       end
      else
       None

diff --git a/helm/ocaml/cic_cache/cicCache.ml b/helm/ocaml/cic_cache/cicCache.ml
index 1080c39e76873171f9cc64e486b2c8de50a5adfd..394f9db77bcc158d467fd8db7fa4e86d40bb49d4 100644 (file)
--- a/helm/ocaml/cic_cache/cicCache.ml
+++ b/helm/ocaml/cic_cache/cicCache.ml
@@ -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
 ;;