X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_notation%2FcicNotation.ml;h=cbad3391f3e01f8f67acec183780c5a748a58b00;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=9ed0c5038e07c5c5d28792c4bf17233144a0df6e;hpb=71adb7c2f7f84e6bfe523cf066a65cc14cc9217b;p=helm.git

diff --git a/helm/ocaml/cic_notation/cicNotation.ml b/helm/ocaml/cic_notation/cicNotation.ml
index 9ed0c5038..cbad3391f 100644
--- a/helm/ocaml/cic_notation/cicNotation.ml
+++ b/helm/ocaml/cic_notation/cicNotation.ml
@@ -70,3 +70,21 @@ let load_notation fname =
     done
   with End_of_file -> close_in ic
 
+let get_all_notations () =
+  List.map
+    (fun (interp_id, dsc) ->
+      InterpretationId interp_id, "interpretation: " ^ dsc)
+    (CicNotationRew.get_all_interpretations ())
+
+let get_active_notations () =
+  List.map (fun id -> InterpretationId id)
+    (CicNotationRew.get_active_interpretations ())
+
+let set_active_notations ids =
+  let interp_ids =
+    HExtlib.filter_map
+      (function InterpretationId interp_id -> Some interp_id | _ -> None)
+      ids
+  in
+  CicNotationRew.set_active_interpretations interp_ids
+