X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaScript.mli;h=35ae43ebb7e5c6d2622a7d950045f019c3931a8a;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=cbdfb286bbdef58e8d0eb54448a7776a483afd1a;hpb=b60666721441e676081a6e3b2f436b23dbcdae0f;p=helm.git diff --git a/helm/matita/matitaScript.mli b/helm/matita/matitaScript.mli index cbdfb286b..35ae43ebb 100644 --- a/helm/matita/matitaScript.mli +++ b/helm/matita/matitaScript.mli @@ -26,6 +26,9 @@ class type script = object + method locked_mark : Gtk.text_mark + method locked_tag : GText.tag + (** @return current status *) method status: MatitaTypes.status @@ -44,22 +47,29 @@ object (** {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 @@ -69,10 +79,11 @@ end (** @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 -> + source_view:GSourceView.source_view -> init:MatitaTypes.status -> 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) -> @@ -83,5 +94,5 @@ val script: * 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