src/error.ml

   1 (** Error output *)
   2
   3 open Printf
   4
   5 let errors = ref false
   6
   7 let logs s = errors := true; prerr_endline s
   8 let log format = ksprintf logs format
   9 (* let report format = ksprintf (fun str -> logs ("Project : warning _____: " ^ str)) format *)
  10 (* let report = log *)
  11
  12 (* VS error format:
  13   path(lineno) : warning _____: string
  14 *)