(***********************************************************************)
(*                                                                     *)
(*                             Heptagon                                *)
(*                                                                     *)
(* Gwenael Delaval, LIG/INRIA, UJF                                     *)
(* Leonard Gerard, Parkas, ENS                                         *)
(* Adrien Guatto, Parkas, ENS                                          *)
(* Cedric Pasteur, Parkas, ENS                                         *)
(* Marc Pouzet, Parkas, ENS                                            *)
(*                                                                     *)
(* Copyright 2012 ENS, INRIA, UJF                                      *)
(*                                                                     *)
(* This file is part of the Heptagon compiler.                         *)
(*                                                                     *)
(* Heptagon is free software: you can redistribute it and/or modify it *)
(* under the terms of the GNU General Public License as published by   *)
(* the Free Software Foundation, either version 3 of the License, or   *)
(* (at your option) any later version.                                 *)
(*                                                                     *)
(* Heptagon is distributed in the hope that it will be useful,         *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of      *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the       *)
(* GNU General Public License for more details.                        *)
(*                                                                     *)
(* You should have received a copy of the GNU General Public License   *)
(* along with Heptagon.  If not, see <http://www.gnu.org/licenses/>    *)
(*                                                                     *)
(***********************************************************************)

open Unix

let current_module = ref ""
let timings = ref []
let compilation_start = ref 0.
let compilation_stop = ref 0.

let start_compiling modname =
  current_module := modname;
  compilation_start := Unix.gettimeofday ()

let elapsed_seconds_between start stop = stop -. start

let time_pass name f x =
  let start = Unix.gettimeofday () in
  let r = f x in
  let stop = Unix.gettimeofday () in
  timings := (name, elapsed_seconds_between start stop) :: !timings;
  r

let report_statistics () =
  if not !Compiler_options.time_passes then ()
  else
    (
      compilation_stop := Unix.gettimeofday ();
      let total_time =
        elapsed_seconds_between !compilation_start !compilation_stop in

      let compute_percent time = int_of_float (time /. total_time *. 100.) in

      let max_size =
        let sizes = List.map (fun (name, _) -> String.length name) !timings in
        List.fold_left max 0 sizes
      in

      let big_space = String.make 4 ' ' in

      let format time =
        let secs = int_of_float time in
        let mins = int_of_float (time /. 60.) in

        let post_secs = if secs > 1 then "s" else " " in
        let post_mins = if mins > 1 then "s" else " " in

        Printf.sprintf "%.2d min%s %.2d sec%s%s" mins post_mins secs post_secs big_space
      in

      let display (name, time) =
        print_string name;
        for i = 1 to max_size - String.length name do
          print_string " "
        done;

        Printf.printf "  %s(%.2d%%)\n" (format time) (compute_percent time)
      in

      let print_sep () =
        for i = 1 to max_size + 22 + String.length big_space do
          print_string "#"
        done;
        Printf.printf "\n"
      in

      print_sep ();

      Printf.printf "Compilation statistics for %s\n" !current_module;

      print_sep ();

      List.iter display (List.rev !timings);

      print_sep ();

      Printf.printf "TOTAL";
      for i = 1 to max_size - 5 do
        print_string " "
      done;
      let percent = List.fold_left (+) 0 (List.map compute_percent (List.map snd !timings)) in
      Printf.printf "  %s(%.2d%%)\n" (format total_time) percent;
      current_module := ""
    )