with Failure _ ->
command_error (sprintf "Not an integer value \"%s\"" value))
in
- { status with options = StringMap.add name value status.options }
+ if StringMap.mem name status.options && name = "baseuri" then
+ command_error "Redefinition of 'baseuri' is forbidden."
+ else
+ { status with options = StringMap.add name value status.options }
(* subset of MatitaConsole.console methods needed by MatitaInterpreter *)
class type console =
| `Check of string (* term *)
| `Cic of Cic.term * Cic.metasenv
| `Dir of string (* "directory" in cic uris namespace *)
- | `Uri of string (* cic object uri *)
- | `Whelp of string * string list (* query and results *)
+ | `Uri of UriManager.uri (* cic object uri *)
+ | `Whelp of string * UriManager.uri list (* query and results *)
]
let string_of_entry = function
| `About `Us -> "about:us"
| `Check _ -> "check:"
| `Cic (_, _) -> "term:"
- | `Dir uri | `Uri uri -> uri
+ | `Dir uri -> uri
+ | `Uri uri -> UriManager.string_of_uri uri
| `Whelp (query, _) -> query
let entry_of_string = function
*)
method show_entry: ?reuse:bool -> mathViewer_entry -> unit
method show_uri_list:
- ?reuse:bool -> entry:mathViewer_entry -> string list -> unit
+ ?reuse:bool -> entry:mathViewer_entry -> UriManager.uri list -> unit
end