summaryrefslogtreecommitdiff
path: root/src/util.mli
blob: 7254fe11e08997af71b979f99073fc91a8649feb (plain)
1
2
3
4
5
6
7
exception Syntax_error of ((int * int) option * string)

val get_lexing_position : Lexing.lexbuf -> int * int

val escape_string : string -> string

val default : 'a -> 'a option -> 'a