error.ml

   1 (*
   2   $Id$
   3 *)
   4
   5 open Printf
   6
   7 let logs = prerr_endline
   8 let log format = ksprintf logs format
   9 let report format = ksprintf (fun str -> logs ("Project : warning _____: " ^ str)) format
  10
  11 (* path(lineno) : warning _____: string*)