EXPERIMENTAL COMMIT (part B, by CSC :-):

[helm.git] / helm / software / components / grafite_engine / grafiteTypes.mli

diff --git a/helm/software/components/grafite_engine/grafiteTypes.mli b/helm/software/components/grafite_engine/grafiteTypes.mli
index a8b86c27639fc9fe0f678332c7c1c94aeb4f5e1f..4d693ea6b3be77bbf56fc3469a68a7fe18102eae 100644 (file)
--- a/helm/software/components/grafite_engine/grafiteTypes.mli
+++ b/helm/software/components/grafite_engine/grafiteTypes.mli
@@ -42,18 +42,18 @@ type proof_status =
   | Proof of ProofEngineTypes.proof
   | Intermediate of Cic.metasenv
 
-type option_value =
-  | String of string
-  | Int of int
-type options
-val no_options: options
+type ng_status =
+  | ProofMode of NTacStatus.tac_status
+  | CommandMode of NEstatus.extra_status
 
 type status = {
   moo_content_rev: GrafiteMarshal.moo;
-  proof_status: proof_status;                             (** logical status *)
-  options: options;
-  objects: UriManager.uri list;  (** in-scope objects *)
-  coercions: UriManager.uri list;                      (** defined coercions *)
+  proof_status: proof_status;
+  objects: UriManager.uri list;
+  coercions: CoercDb.coerc_db;
+  automation_cache:AutomationCache.cache;  
+  baseuri: string;
+  ng_status: ng_status;
 }
 
 val dump_status : status -> unit
@@ -61,17 +61,33 @@ 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 qualify: status -> string -> string
+*)
+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
 val get_proof_context : status -> int -> Cic.context
 val get_proof_conclusion : status -> int -> Cic.term
+val get_lexicon : status -> LexiconEngine.status
+val get_estatus : status -> NEstatus.extra_status
+val get_rstatus : status -> NRstatus.refiner_status
+val get_hstatus : status -> NCicUnifHint.db
+val get_library_db : status -> NCicLibrary.timestamp
+val get_dump : status -> (NRstatus.refiner_status -> NRstatus.refiner_status)
+val get_coercions: status -> NCicCoercion.db
 
 val set_stack: Continuationals.Stack.t -> status -> status
 val set_metasenv: Cic.metasenv -> status -> status
+val set_lexicon : LexiconEngine.status -> status -> status
+val set_coercions: NCicCoercion.db -> status -> status 
+val set_estatus : NEstatus.extra_status -> status -> status
+val set_rstatus : NRstatus.refiner_status -> status -> status
+val set_hstatus : NCicUnifHint.db -> status -> status
+val set_library_db : NCicLibrary.timestamp -> status -> status
+val set_dump : (NRstatus.refiner_status -> NRstatus.refiner_status) -> status -> status
+