Up

module Error

: sig
#
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
end