X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaDisambiguator.mli;h=740de989ecfa027c3c73a0e1f63c8355b1f7dafd;hb=12cc5b2b8e7f7bb0b5e315094b008a293a4df6b1;hp=9b432f845270d88febf2ded021965419e19274cc;hpb=1d431843f49b3658593c8cc918b53a43479a6486;p=helm.git diff --git a/helm/matita/matitaDisambiguator.mli b/helm/matita/matitaDisambiguator.mli index 9b432f845..740de989e 100644 --- a/helm/matita/matitaDisambiguator.mli +++ b/helm/matita/matitaDisambiguator.mli @@ -1,4 +1,4 @@ -(* Copyright (C) 2004, HELM Team. +(* Copyright (C) 2004-2005, HELM Team. * * This file is part of HELM, an Hypertextual, Electronic * Library of Mathematics, developed at the Computer Science @@ -23,13 +23,32 @@ * http://helm.cs.unibo.it/ *) -class parserr: unit -> MatitaTypes.parserr +open MatitaTypes -class disambiguator: - parserr:MatitaTypes.parserr -> (** parser *) - dbh:Dbi.connection -> - chooseUris:MatitaTypes.choose_uris_callback -> - chooseInterp:MatitaTypes.choose_interp_callback -> - unit -> - MatitaTypes.disambiguator +(** raised when ambiguous input is found but not expected (e.g. in the batch + * compiler) *) +exception Ambiguous_input + +type choose_uris_callback = id:string -> UriManager.uri list -> UriManager.uri list +type choose_interp_callback = (string * string) list list -> int list + +val set_choose_uris_callback: choose_uris_callback -> unit +val set_choose_interp_callback: choose_interp_callback -> unit + +(** @raise Ambiguous_input if called, default value for internal + * choose_uris_callback if not set otherwise with set_choose_uris_callback + * above *) +val mono_uris_callback: choose_uris_callback + +(** @raise Ambiguous_input if called, default value for internal + * choose_interp_callback if not set otherwise with set_choose_interp_callback + * above *) +val mono_interp_callback: choose_interp_callback + +(** for GUI callbacks see MatitaGui.interactive_{interp,user_uri}_choice *) + +include Disambiguate.Disambiguator + (* + * val disambiguate_term: ... + *)