module type Callbacks =
sig
+ (* The following two functions are used to save/restore the metasenv *)
+ (* before/after the parsing. *)
+ (*CSC: This should be made functional sooner or later! *)
+ val get_metasenv : unit -> Cic.metasenv
+ val set_metasenv : Cic.metasenv -> unit
+
val output_html : string -> unit
val interactive_user_uri_choice :
selection_mode:[`SINGLE | `EXTENDED] ->
end
type domain_and_interpretation =
- string list * (string -> CicTextualParser0.uri option)
+ CicTextualParser0.interpretation_domain_item list *
+ CicTextualParser0.interpretation
module Make (C : Callbacks) :
sig
val disambiguate_input :
Cic.context ->
Cic.metasenv ->
- string list ->
- ((string -> CicTextualParser0.interp_codomain option) ->
- Cic.metasenv * Cic.term) ->
+ CicTextualParser0.interpretation_domain_item list ->
+ (CicTextualParser0.interpretation -> Cic.metasenv * Cic.term) ->
id_to_uris:domain_and_interpretation ->
domain_and_interpretation * Cic.metasenv * Cic.term
end