added # to comment

[helm.git] / helm / software / components / ng_kernel / check.ml

diff --git a/helm/software/components/ng_kernel/check.ml b/helm/software/components/ng_kernel/check.ml
index bc3b600fe943d623c0e7f3a1dbab75be8b4373f0..68c9ff1ae489e0cdf37f65e4a4166017fe426d7b 100644 (file)
--- a/helm/software/components/ng_kernel/check.ml
+++ b/helm/software/components/ng_kernel/check.ml
@@ -28,6 +28,7 @@ let _ =
       with _ -> List.rev !r
   in
   List.iter (fun uu ->
+    if uu.[0] = '#' then prerr_endline "SKIP" else begin
     prerr_endline ("************* INIZIO **************** " ^ uu);
     let u = UriManager.uri_of_string uu in
     let _,o = NCicEnvironment.get_obj (NUri.nuri_of_ouri u) in
@@ -37,8 +38,10 @@ let _ =
     with 
     | NCicTypeChecker.AssertFailure s 
     | NCicTypeChecker.TypeCheckerFailure s as e -> 
+(*        prerr_endline ("Obj: " ^ NCicPp.ppobj o); *)
        prerr_endline (Lazy.force s); raise e
     | CicEnvironment.Object_not_found s -> 
-        prerr_endline ("Obj not found: " ^ UriManager.string_of_uri s))
+                    prerr_endline ("Obj not found: " ^ UriManager.string_of_uri s);
+    end)
     alluris
 ;;