method assignFileName : string -> unit (* to the current active file *)
method loadFromFile : string -> unit
method saveToFile : unit -> unit
+ method filename : string
(** {2 Current proof} (if any) *)
(** @return true if there is an ongoing proof, false otherise *)
method onGoingProof: unit -> bool
- method proofStatus: ProofEngineTypes.status (** @raise Statement_error *)
+(* method proofStatus: ProofEngineTypes.status |+* @raise Statement_error +| *)
method proofMetasenv: Cic.metasenv (** @raise Statement_error *)
method proofContext: Cic.context (** @raise Statement_error *)
method proofConclusion: Cic.term (** @raise Statement_error *)
+ method stack: Continuationals.Stack.t (** @raise Statement_error *)
method setGoal: int -> unit
+ method goal: int
(** end of script, true if the whole script has been executed *)
method eos: bool
* the value of this ref *)
(* TODO Zack: orrible solution until we found a better one for having a single
* access point for the script *)
-val instance: unit -> script
+val current: unit -> script