1) grafiteWalker removed

[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 8ed9fe4898d3469d978c55d63d7c94aa86b15a9e..867e5299e47ed323bbeb8f5edaea61aa24298fba 100644 (file)
--- a/helm/software/components/grafite_engine/grafiteTypes.mli
+++ b/helm/software/components/grafite_engine/grafiteTypes.mli
@@ -44,7 +44,7 @@ type proof_status =
 
 type ng_status =
   | ProofMode of NTacStatus.tac_status
-  | CommandMode of NEstatus.extra_status
+  | CommandMode of NEstatus.status
 
 type status = {
   moo_content_rev: GrafiteMarshal.moo;
@@ -61,11 +61,6 @@ 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
@@ -73,12 +68,8 @@ 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_dstatus : status -> NRstatus.dumpable_status
+val get_estatus : status -> NEstatus.status
 
 val set_stack: Continuationals.Stack.t -> status -> status
 val set_metasenv: Cic.metasenv -> status -> status
-val set_lexicon : LexiconEngine.status -> status -> status
-val set_estatus : NEstatus.extra_status -> status -> status
-val set_dstatus : NRstatus.dumpable_status -> status -> status
+val set_estatus : NEstatus.status -> status -> status