module Errormsg:sig
..end
val logChannel : out_channel ref
val debugFlag : bool ref
val verboseFlag : bool ref
val colorFlag : bool ref
val redEscStr : string
val greenEscStr : string
val yellowEscStr : string
val blueEscStr : string
val purpleEscStr : string
val cyanEscStr : string
val whiteEscStr : string
val resetEscStr : string
val warnFlag : bool ref
exception Error
val error : ('a, unit, Pretty.doc, unit) format4 -> 'a
Error: ...
.
Use in conjunction with s, for example: E.s (E.error ... )
.val bug : ('a, unit, Pretty.doc, unit) format4 -> 'a
error
except that its output has the form Bug: ...
val unimp : ('a, unit, Pretty.doc, unit) format4 -> 'a
error
except that its output has the form Unimplemented: ...
val s : 'a -> 'b
val hadErrors : bool ref
val warn : ('a, unit, Pretty.doc, unit) format4 -> 'a
val warnOpt : ('a, unit, Pretty.doc, unit) format4 -> 'a
val log : ('a, unit, Pretty.doc, unit) format4 -> 'a
logChannel
val logg : ('a, unit, Pretty.doc, unit) format4 -> 'a
Errormsg.log
but do not wrap linesval null : ('a, unit, Pretty.doc, unit) format4 -> 'a
val pushContext : (unit -> Pretty.doc) -> unit
val popContext : unit -> unit
val showContext : unit -> unit
val withContext : (unit -> Pretty.doc) -> ('a -> 'b) -> 'a -> 'b
val newline : unit -> unit
val newHline : unit -> unit
val getPosition : unit -> int * string * int
val getHPosition : unit -> int * string
val setHLine : int -> unit
val setHFile : string -> unit
val setCurrentLine : int -> unit
val setCurrentFile : string -> unit
type
location = {
|
file : |
(* |
The file name
| *) |
|
line : |
(* |
The line number
| *) |
|
hfile : |
(* |
The high-level file name, or "" if not present
| *) |
|
hline : |
(* |
The high-level line number, or 0 if not present
| *) |
val d_loc : unit -> location -> Pretty.doc
val d_hloc : unit -> location -> Pretty.doc
val getLocation : unit -> location
val parse_error : string -> 'a
val locUnknown : location
val readingFromStdin : bool ref
val startParsing : ?useBasename:bool -> string -> Lexing.lexbuf
val startParsingFromString : ?file:string -> ?line:int -> string -> Lexing.lexbuf
val finishParsing : unit -> unit