val command_error: string -> 'a (** @raise Command_error *)
-class status :
+class virtual status :
string ->
object ('self)
- method moo_content_rev: GrafiteMarshal.moo
- method set_moo_content_rev: GrafiteMarshal.moo -> '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
+ (* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
+ inherit NTacStatus.tac_status
+ inherit NCicLibrary.dumpable_status
+ inherit NCicLibrary.status
+ inherit NCicExtraction.status
+ inherit OcamlExtractionTable.status
+ inherit GrafiteParser.status
+ inherit TermContentPres.status
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
+module Serializer: NCicLibrary.SerializerType with type dumpable_status = status