type ng_status =
| ProofMode of NTacStatus.tac_status
- | CommandMode of NEstatus.extra_status
+ | CommandMode of NEstatus.status
-type status = {
- moo_content_rev: GrafiteMarshal.moo;
- proof_status: proof_status;
- objects: UriManager.uri list;
- coercions: CoercDb.coerc_db;
- automation_cache:AutomationCache.cache;
- baseuri: string;
- ng_status: ng_status;
-}
+class status :
+ GrafiteMarshal.moo ->
+ proof_status ->
+ UriManager.uri list ->
+ CoercDb.coerc_db ->
+ AutomationCache.cache ->
+ string ->
+ ng_status ->
+ 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_status: ng_status
+ method set_ng_status: ng_status -> 'self
+ 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_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.Serializer.obj list
-val get_coercions: status -> NCicCoercion.db
+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_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.Serializer.obj list -> status -> status
-
+val set_estatus : NEstatus.status -> status -> status