at_least now supports the ownerized tables

[helm.git] / helm / ocaml / metadata / metadataTypes.ml

diff --git a/helm/ocaml/metadata/metadataTypes.ml b/helm/ocaml/metadata/metadataTypes.ml
index 5542825893d65369c9099bb36579d51abdb98d31..3f55b886f8b2b0ea19ddbbec115b1427a5f3499d 100644 (file)
--- a/helm/ocaml/metadata/metadataTypes.ml
+++ b/helm/ocaml/metadata/metadataTypes.ml
@@ -97,4 +97,13 @@ let ownerize_tables owner =
   name_tbl_real := ( name_tbl_original ^ "_" ^ owner) 
 ;;
 
+let library_sort_tbl =   sort_tbl_original
+let library_rel_tbl = rel_tbl_original
+let library_obj_tbl = obj_tbl_original
+let library_conclno_tbl = conclno_tbl_original
+let library_conclno_hyp_tbl = conclno_hyp_tbl_original
+let library_name_tbl = name_tbl_original
 
+let are_tables_ownerized () =
+  sort_tbl () <> library_sort_tbl
+