let command_error msg = raise (Command_error msg)
-class virtual status = fun (b : string) ->
+class virtual status = fun (uid : string option) (b : string) ->
let fake_obj =
NUri.uri_of_string "cic:/matita/dummy.decl",0,[],[],
NCic.Constant([],"",None,NCic.Implicit `Closed,(`Provided,`Theorem,`Regular))
in
object
(* Warning: #stack and #obj are meaningful iff #ng_mode is `ProofMode *)
- inherit ([Continuationals.Stack.t] NTacStatus.status fake_obj (Continuationals.Stack.empty))
- inherit NCicLibrary.dumpable_status
- inherit NCicLibrary.status
- inherit GrafiteDisambiguate.status
- inherit GrafiteParser.status
- inherit TermContentPres.status
+ inherit ([Continuationals.Stack.t] NTacStatus.status uid fake_obj (Continuationals.Stack.empty))
+ inherit NCicLibrary.dumpable_status uid
+ inherit NCicLibrary.status uid
+ inherit GrafiteDisambiguate.status uid
+ inherit GrafiteParser.status uid
+ inherit TermContentPres.status uid
val baseuri = b
val ng_mode = (`CommandMode : [`CommandMode | `ProofMode])
method baseuri = baseuri
type dumpable_s = status
let get status = (status : #status :> NCicLibrary.dumpable_status)
let set (status : dumpable_s) dump_status = status#set_dumpable_status dump_status
+ let user (status : dumpable_s) = status#user
end)