From 448d93205b37c75e7a652edbd40b4857b840f9e4 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Mon, 28 Oct 2002 10:48:01 +0000 Subject: [PATCH] - cicParser interface simplified --- helm/ocaml/cic_annotations_cache/cicCache.ml | 2 +- helm/ocaml/cic_cache/cicCache.ml | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/helm/ocaml/cic_annotations_cache/cicCache.ml b/helm/ocaml/cic_annotations_cache/cicCache.ml index 58a8f4197..de5c1926e 100644 --- a/helm/ocaml/cic_annotations_cache/cicCache.ml +++ b/helm/ocaml/cic_annotations_cache/cicCache.ml @@ -45,7 +45,7 @@ let get_annobj uri = | Some bodyuri -> Some (G.getxml (U.cicuri_of_uri bodyuri)) in - let annobj = CicParser.annobj_of_xml cicfilename cicbodyfilename uri in + let annobj = CicParser.annobj_of_xml cicfilename cicbodyfilename in annobj, if U.uri_is_annuri uri then begin diff --git a/helm/ocaml/cic_cache/cicCache.ml b/helm/ocaml/cic_cache/cicCache.ml index 71fc4e638..1080c39e7 100644 --- a/helm/ocaml/cic_cache/cicCache.ml +++ b/helm/ocaml/cic_cache/cicCache.ml @@ -41,10 +41,10 @@ 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 uri + CicParser.annobj_of_xml cicfilename None | Some bodyuri -> let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in - CicParser.annobj_of_xml cicfilename (Some cicbodyfilename) uri + CicParser.annobj_of_xml cicfilename (Some cicbodyfilename) ;; let get_obj uri = @@ -53,8 +53,8 @@ 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 uri + CicParser.obj_of_xml cicfilename None | Some bodyuri -> let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in - CicParser.obj_of_xml cicfilename (Some cicbodyfilename) uri + CicParser.obj_of_xml cicfilename (Some cicbodyfilename) ;; -- 2.39.2