let command_error msg = raise (Command_error msg)
-class status = fun (b : string) ->
+class virtual status = fun (b : string) ->
let fake_obj =
NUri.uri_of_string "cic:/matita/dummy.decl",0,[],[],
NCic.Constant([],"",None,NCic.Implicit `Closed,(`Provided,`Theorem,`Regular))
inherit ([Continuationals.Stack.t] NTacStatus.status fake_obj (Continuationals.Stack.empty))
inherit NCicLibrary.dumpable_status
inherit NCicLibrary.status
+ inherit NCicExtraction.status
+ inherit OcamlExtractionTable.status
inherit GrafiteParser.status
+ inherit TermContentPres.status
val baseuri = b
val ng_mode = (`CommandMode : [`CommandMode | `ProofMode])
method baseuri = baseuri
method set_ng_mode v = {< ng_mode = v >}
end
-module Serializer =
- NCicLibrary.Serializer(struct type dumpable_status = status end)
+module Serializer = NCicLibrary.Serializer(struct type dumpable_s = status end)