X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fcontent_pres%2FtermContentPres.mli;h=9c08650c23adfa6a4ac88e17ff220d4088f610e7;hb=56fb3c39cc9186ad2700b0ee8ca37f8d759c2376;hp=a9bcd850c07aa3b8fd506616bd33cceaab5a70f6;hpb=8a660ee06d72cfee52c707bb1d8d8be3bab0d682;p=helm.git

diff --git a/matita/components/content_pres/termContentPres.mli b/matita/components/content_pres/termContentPres.mli
index a9bcd850c..9c08650c2 100644
--- a/matita/components/content_pres/termContentPres.mli
+++ b/matita/components/content_pres/termContentPres.mli
@@ -23,30 +23,35 @@
  * http://helm.cs.unibo.it/
  *)
 
-  (** {2 Persistant state handling} *)
+  (** {2 state handling} *)
 
-type pretty_printer_id
+type db
+
+class type g_status =
+  object
+    method content_pres_db: db
+  end
+
+class virtual status :
+  object ('self)
+    inherit NCic.status
+    method content_pres_db: db
+    method set_content_pres_db: db -> 'self
+    method set_content_pres_status: #g_status -> 'self
+  end
 
 val add_pretty_printer:
+ #status as 'status ->
   NotationPt.term ->             (* level 2 pattern *)
   CicNotationParser.checked_l1_pattern ->
-    pretty_printer_id
-
-exception Pretty_printer_not_found
-
-  (** @raise Pretty_printer_not_found *)
-val remove_pretty_printer: pretty_printer_id -> unit
+   'status
 
   (** {2 content -> pres} *)
 
-val pp_ast: NotationPt.term -> NotationPt.term
+val pp_ast: #status -> NotationPt.term -> NotationPt.term
 
   (** {2 pres -> content} *)
 
   (** fills a term pattern instantiating variable magics *)
 val instantiate_level2:
-  NotationEnv.t -> NotationPt.term ->
-    NotationPt.term
-
-val push: unit -> unit
-val pop: unit -> unit
+ #NCic.status -> NotationEnv.t -> NotationPt.term -> NotationPt.term