* http://helm.cs.unibo.it/
*)
+exception NoUnfinishedProof
+exception ActionCancelled
+
class type script =
object
method error_tag : GText.tag
(** @return current status *)
- method status: GrafiteTypes.status
+ method lexicon_status: LexiconEngine.status
+ method grafite_status: GrafiteTypes.status
(** {2 Observers} *)
- method addObserver : (GrafiteTypes.status -> unit) -> unit
+ method addObserver :
+ (LexiconEngine.status -> GrafiteTypes.status -> unit) -> unit
(** {2 History} *)
method proofConclusion: Cic.term (** @raise Statement_error *)
method stack: Continuationals.Stack.t (** @raise Statement_error *)
- method setGoal: int -> unit
- method goal: int
+ method setGoal: int option -> unit
+ method goal: int option
(** end of script, true if the whole script has been executed *)
method eos: bool
* "*") on the side of a script name *)
val script:
source_view:GSourceView.source_view ->
- init:GrafiteTypes.status ->
mathviewer: MatitaTypes.mathViewer->
urichooser: (UriManager.uri list -> UriManager.uri list) ->
develcreator: (containing:string option -> unit) ->