diff options
Diffstat (limited to 'lib/util.mli')
| -rw-r--r-- | lib/util.mli | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index 25b419be83..5d4c706b9a 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -3,6 +3,16 @@ open Pp +(* Errors *) + +exception Anomaly of string * std_ppcmds (* System errors *) +val anomaly : string -> 'a +val anomalylabstrm : string -> std_ppcmds -> 'a + +exception UserError of string * std_ppcmds (* User errors *) +val error : string -> 'a +val errorlabstrm : string -> std_ppcmds -> 'a + (* Strings *) val explode : string -> string list @@ -10,6 +20,11 @@ val implode : string list -> string val parse_section_path : string -> string list * string * string +(* Lists *) + +val intersect : 'a list -> 'a list -> 'a list +val subtract : 'a list -> 'a list -> 'a list + (* Pretty-printing *) val pr_spc : unit -> std_ppcmds |