Error

#

val set_filename : string -> unit

#

val get_filename : unit -> string

#

val get_filemark : unit -> Mark.t

#

val file_contents : string option Pervasives.ref

#

val get_file_contents : unit -> string

#

val logG : int -> (Pervasives.out_channel -> unit) -> unit

#

val logA : int -> (Pervasives.out_channel -> unit) -> unit

#

val logC : int -> (Pervasives.out_channel -> unit) -> unit

#

val error : Positions.positions -> string -> 'a

#

val errorp : 'a Positions.located -> string -> 'b

#

val warning : Positions.positions -> string -> unit

#

val signal : Positions.positions -> string -> unit

#

val errors : unit -> bool

#

val grammar_warning : Positions.positions -> string -> unit

module Error