Subversion Repositories qaz_libs

//////////////////////////////////////////////////////////////////////

////                                                              ////

//// Copyright (C) 2015 Authors and OPENCORES.ORG                 ////

////                                                              ////

//// This source file may be used and distributed without         ////

//// restriction provided that this copyright statement is not    ////

//// removed from the file and that any derivative work contains  ////

//// the original copyright notice and the associated disclaimer. ////

////                                                              ////

//// This source file is free software; you can redistribute it   ////

//// and/or modify it under the terms of the GNU Lesser General   ////

//// Public License as published by the Free Software Foundation; ////

//// either version 2.1 of the License, or (at your option) any   ////

//// later version.                                               ////

////                                                              ////

//// This source 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 Lesser General Public License for more ////

//// details.                                                     ////

////                                                              ////

//// You should have received a copy of the GNU Lesser General    ////

//// Public License along with this source; if not, download it   ////

//// from http://www.opencores.org/lgpl.shtml                     ////

////                                                              ////

//////////////////////////////////////////////////////////////////////

package logger_pkg;

  // --------------------------------------------------------------------

  //

  typedef enum

  {

    FATAL,

    ERROR,

    WARNING,

    INFO

  } logger_severity_t;

  // --------------------------------------------------------------------

  //

  class logger_class;

    logger_severity_t verbosity = WARNING;

    bit log_debug = 0;

    string time_string;

    int error_count = 0;

    int max_error_display = 8;

    bit stop_at_max_error = 1;

    // --------------------------------------------------------------------

    //

    function void

      set_verbosity(logger_severity_t level);

      verbosity = level;

    endfunction: set_verbosity

    // --------------------------------------------------------------------

    //

    function void

      debug_enable;

      log_debug = 1;

    endfunction: debug_enable

    // --------------------------------------------------------------------

    //

    function void debug(string message);

      time_string = $sformatf("??? %16.t | ", $time);

      if(log_debug == 1)

        $display({time_string, message});

    endfunction: debug

    // --------------------------------------------------------------------

    //

    function void display(string message);

      time_string = $sformatf("--- %16.t | ", $time);

      $display({time_string, message});

    endfunction: display

    // --------------------------------------------------------------------

    //

    function void info(string message);

      time_string = $sformatf("^^^ %16.t | ", $time);

      if(verbosity >= INFO)

        $display({time_string, message});

    endfunction: info

    // --------------------------------------------------------------------

    //

    function void warning(string message);

      time_string = $sformatf("*** %16.t | ", $time);

      if(verbosity >= WARNING)

        $display({time_string, message});

    endfunction: warning

    // --------------------------------------------------------------------

    //

    function void error(string message);

      time_string = $sformatf("!!! %16.t | ", $time);

      error_count++;

      if(error_count > max_error_display)

        if(stop_at_max_error)

          $stop;

        else

          return;

      if(verbosity >= ERROR)

        $display({time_string, message});

    endfunction: error

    // --------------------------------------------------------------------

    //

    function void fatal(string message);

      if(verbosity >= FATAL)

        $fatal(1, message);

    endfunction: fatal

  //--------------------------------------------------------------------

  //

  endclass: logger_class

//--------------------------------------------------------------------

//

endpackage: logger_pkg