class type script =
object
+ method locked_mark : Gtk.text_mark
+ method locked_tag : GText.tag
+ method error_tag : GText.tag
+
(** @return current status *)
- method status: MatitaTypes.status
+ method lexicon_status: LexiconEngine.status
+ method grafite_status: GrafiteTypes.status
(** {2 Observers} *)
- method addObserver : (MatitaTypes.status -> unit) -> unit
+ method addObserver :
+ (LexiconEngine.status -> GrafiteTypes.status -> unit) -> unit
(** {2 History} *)
method retract : unit -> unit
method goto: [`Top | `Bottom | `Cursor] -> unit -> unit
method reset: unit -> unit
+ method template: unit -> unit
(** {2 Load/save} *)
method assignFileName : string -> unit (* to the current active file *)
- method loadFromFile : unit -> unit
+ 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
+
+ (** misc *)
+ method clean_dirty_lock: unit
(* debug *)
method dump : unit -> unit
(** @param set_star callback used to set the modified symbol (usually a star
* "*") on the side of a script name *)
val script:
- buffer:GText.buffer ->
- init:MatitaTypes.status ->
+ source_view:GSourceView.source_view ->
mathviewer: MatitaTypes.mathViewer->
urichooser: (UriManager.uri list -> UriManager.uri list) ->
+ develcreator: (containing:string option -> unit) ->
ask_confirmation:
(title:string -> message:string -> [`YES | `NO | `CANCEL]) ->
set_star: (string -> bool -> unit) ->
* 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