X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteTypes.mli;h=4e2decc9c863498fc442271223774cf7ede2257d;hb=f9abd21eb0d26cf9b632af4df819225be4d091e3;hp=95f65f3601c84d63ca53b533d57700a1da7623f7;hpb=84e6cbe962c9a534be48542c098d7bb0d90be9a1;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteTypes.mli b/helm/software/components/grafite_engine/grafiteTypes.mli
index 95f65f360..4e2decc9c 100644
--- a/helm/software/components/grafite_engine/grafiteTypes.mli
+++ b/helm/software/components/grafite_engine/grafiteTypes.mli
@@ -42,27 +42,32 @@ type proof_status =
   | Proof of ProofEngineTypes.proof
   | Intermediate of Cic.metasenv
 
-type status = {
-  moo_content_rev: GrafiteMarshal.moo;
-  proof_status: proof_status;                             (** logical status *)
-  objects: UriManager.uri list;  (** in-scope objects *)
-  coercions: CoercDb.coerc_db;
-  universe:Universe.universe;  (** universe of terms used by auto *)
-  baseuri: string;
-}
+class status :
+ string ->
+  object ('self)
+   method moo_content_rev: GrafiteMarshal.moo
+   method set_moo_content_rev: GrafiteMarshal.moo -> 'self
+   method proof_status: proof_status
+   method set_proof_status: proof_status -> 'self
+   method objects: UriManager.uri list
+   method set_objects: UriManager.uri list -> 'self
+   method coercions: CoercDb.coerc_db
+   method set_coercions: CoercDb.coerc_db -> 'self
+   method automation_cache:AutomationCache.cache
+   method set_automation_cache:AutomationCache.cache -> 'self  
+   method baseuri: string
+   method set_baseuri: string -> 'self
+   method ng_mode: [`ProofMode | `CommandMode]
+   method set_ng_mode: [`ProofMode | `CommandMode] -> 'self
+   (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
+   inherit NTacStatus.tac_status
+  end
 
 val dump_status : status -> unit
 
   (** list is not reversed, head command will be the first emitted *)
 val add_moo_content: GrafiteMarshal.ast_command list -> status -> status
 
-(* REOMVE ME
-val get_option : status -> string -> option_value
-val get_string_option : status -> string -> string
-val set_option : status -> string -> string -> status
-*)
-val get_baseuri: status -> string 
-
 val get_current_proof: status -> ProofEngineTypes.proof
 val get_proof_metasenv: status ->  Cic.metasenv
 val get_stack: status -> Continuationals.Stack.t
@@ -71,4 +76,3 @@ val get_proof_conclusion : status -> int -> Cic.term
 
 val set_stack: Continuationals.Stack.t -> status -> status
 val set_metasenv: Cic.metasenv -> status -> status
-