hphp/hack/src/utils/hh_logger.ml

   1 (**
   2  * Copyright (c) 2015, Facebook, Inc.
   3  * All rights reserved.
   4  *
   5  * This source code is licensed under the BSD-style license found in the
   6  * LICENSE file in the "hack" directory of this source tree. An additional grant
   7  * of patent rights can be found in the PATENTS file in the same directory.
   8  *
   9  *)
  10
  11 open Utils
  12
  13 let log_raw s =
  14   let open Unix in
  15   let tm = localtime (time ()) in
  16   let year = tm.tm_year + 1900 in
  17   let time_str = spf "[%d-%02d-%02d %02d:%02d:%02d]"
  18     year (tm.tm_mon + 1) tm.tm_mday tm.tm_hour tm.tm_min tm.tm_sec in
  19   Printf.eprintf "%s %s%!" time_str s
  20
  21 (* wraps log_raw in order to take a format string & add a newline *)
  22 let log fmt = Printf.ksprintf log_raw (fmt^^"\n")
  23
  24 let log_duration name t =
  25   log_raw (name ^ ": ");
  26   let t2 = Unix.gettimeofday() in
  27   Printf.eprintf "%f\n%!" (t2 -. t);
  28   t2