diff --git a/README.md b/README.md index c5d6f36..ddaf2d5 100644 --- a/README.md +++ b/README.md @@ -8,13 +8,12 @@ use flogging ``` To load the logging module and its utility functions. -To use the preprovided macros, include the header file and turn on the preprocessor by compiling with -cpp +To use the preprovided macros, include the header file and turn on the preprocessor by compiling with `-cpp` ```C #include "flogging.h" ``` This macro defines the following functions: ```fortran -log(level, format) log_fatal(format) log_error(format) log_warn(format) @@ -22,7 +21,6 @@ log_info(format) log_debug(format) log_trace(format) -log_root(level, format) log_root_fatal(format) log_root_error(format) log_root_warn(format) @@ -30,10 +28,10 @@ log_root_info(format) log_root_debug(format) log_root_trace(format) ``` -Where `format` is usually `*`, but can be adjusted to suit your needs. Remember to include a single `A` specifier for the log lead. +Where `format` is usually `*`, but can be adjusted to suit your needs. Remember to include a single `A` specifier for the log lead if you set it yourself. The functions print a log message only if the level is greater than or equal to the current minimum loglevel. -The second set of functions function includes a check to print a log message only from the root MPI process, if compiled +The second functions include a check to print a log message only from the root MPI process, if compiled with `USE_MPI`. If not compiled with `USE_MPI`, it works the same as the log function. If you do not want to use the preprocessor macros, you can log like this. @@ -52,6 +50,26 @@ make USE_MPI=1 ``` Then, place `libflogging.so` into your `LD_LIBRARY_PATH` and put `flogging.h` into your include path. +## Compilation flags +Compile your own code with +``` +-DDISABLE_LOG_DEBUG +``` +to remove any debug statements from your code. Note that you cannot use `-v` to get these back then. +By default any `log_trace` messages are not included in the executable. Compile with +``` +-DENABLE_LOG_TRACE +``` +to get these back. Note that you still need to use `-vv` (by default) to see the messages. +This is a good compilation flag to have in your debug build profile. + +## Transitioning to flogging +You can change all of the messages in your application to the `log_info` level by +```bash +git sed 's/write ?(\*,\*)/log_info(*)/g' +``` +You might need to split some lines, as the `__FILE__` and `__LINE__` macros require quite some space. +This can also be circumvented by compiling with `-ffree-line-length-none` or equivalent. # Examples ```fortran @@ -60,7 +78,7 @@ log(warn,*) "this is a warning" log(info,*) "here, have some info" log(debug,*) "and this is a debug message" ``` -outputs +outputs (with default compilation flag) ``` localhost test.f90:9 ERROR this is an error localhost test.f90:10 WARN this is a warning @@ -105,6 +123,8 @@ Logging is to stderr by default. Another output unit can be selected by setting This will probably not work well with MPI. ## Internals +The latest documentation can be found [here](http://exteris.github.io/flogging/). + The module defines a function defining whether or not to print this log message, ```fortran logp(level) @@ -116,3 +136,13 @@ This can be used to print messages only from the root thread, to prevent log mes ```fortran logp(level,0) ``` + +## Contributing +Pull requests and comments are appreciated. + +## TODO +- Argument parsing is quite flaky (try -qqqqqq and see what happens) +- Time and date output at the same time does not work yet +- Compilation flag to control argument parsing +- Log output to a different file per MPI process +- Multiple logging streams/outputs (this will be tricky) diff --git a/doc/lists/modules.html b/doc/lists/modules.html index 6c6d6d2..0a5b930 100644 --- a/doc/lists/modules.html +++ b/doc/lists/modules.html @@ -115,26 +115,26 @@

Modules

module~~graph~~ModuleGraph - -module~vt100 - - -vt100 - - - -module~flogging - +module~flogging + flogging + +module~vt100 + + +vt100 + + + module~vt100->module~flogging - - + + iso_fortran_env @@ -146,8 +146,8 @@

Modules

 iso_fortran_env->module~flogging - - + + diff --git a/doc/lists/procedures.html b/doc/lists/procedures.html index fa05548..77147b4 100644 --- a/doc/lists/procedures.html +++ b/doc/lists/procedures.html @@ -128,74 +128,74 @@

Procedures

call~~graph~~CallGraph - -proc~tput - - -tput - - - -proc~log_set_disable_colors - - -log_set_disable_colors +proc~log_set_disable_colors + + +log_set_disable_colors -proc~logp - - -logp +proc~logp + + +logp mpi_comm_rank - -mpi_comm_rank + +mpi_comm_rank proc~logp->mpi_comm_rank - - + + -proc~log_set_output_time - - -log_set_output_time +proc~log_set_output_time + + +log_set_output_time -proc~logl - - -logl +proc~logl + + +logl -proc~stput - - -stput +proc~stput + + +stput proc~logl->proc~stput - - + + -proc~log_set_skip_terminal_check - - -log_set_skip_terminal_check +proc~log_set_skip_terminal_check + + +log_set_skip_terminal_check + + + + +proc~tput + + +tput diff --git a/doc/tipuesearch/tipuesearch_content.js b/doc/tipuesearch/tipuesearch_content.js index db3bdea..e9ee918 100644 --- a/doc/tipuesearch/tipuesearch_content.js +++ b/doc/tipuesearch/tipuesearch_content.js @@ -1 +1 @@ -var tipuesearch = {"pages":[{"tags":"","loc":"index.html","text":"flogging This library provides a logging framework for Fortran 90 and up, with MPI support, vt100 colors, command-line arguments and more. License The bspline-fortran source code and related files and documentation are distributed under a permissive license (MIT). Developer Info Daan van Vugt","title":" flogging "},{"tags":"","loc":"sourcefile/flogging.f90.html","text":"This module contains a logging system intended for use in MPI\n codes, with facilities for colored output, log level filters,\n code location and date and time annotation. This software is governed by the MIT license, found in the\n file LICENSE. Source Code !************************************************************** ! This module contains a logging system intended for use in MPI ! codes, with facilities for colored output, log level filters, ! code location and date and time annotation. ! ! This software is governed by the MIT license, found in the ! file LICENSE. !************************************************************** #include \"flogging.h\" module flogging use :: vt100 ! For color output #ifdef f2003 use , intrinsic :: iso_fortran_env , only : stdin => input_unit , stdout => output_unit , stderr => error_unit #else #define stdin 5 #define stdout 6 #define stderr 0 #endif implicit none ! Log levels integer , public , parameter :: NUM_LOG_LEVELS = 6 !< 1 through 6 (fatal through trace) integer , public , parameter :: LOG_FATAL = LOG_LEVEL_FATAL_DEF !< = 1, Runtime error causing termination integer , public , parameter :: LOG_ERROR = LOG_LEVEL_ERROR_DEF !< = 2, Runtime error integer , public , parameter :: LOG_WARN = LOG_LEVEL_WARN_DEF !< = 3, Warning, but we can continue integer , public , parameter :: LOG_INFO = LOG_LEVEL_INFO_DEF !< = 4, Interesting events integer , public , parameter :: LOG_DEBUG = LOG_LEVEL_DEBUG_DEF !< = 5, Detailed debug output, disable by compiling your program with -DDISABLE_LOG_DEBUG integer , public , parameter :: LOG_TRACE = LOG_LEVEL_TRACE_DEF !< = 6, Extremely detailed output, compile your program with -DENABLE_LOG_TRACE to enable integer , public , save :: logu = stderr !< By default, log to stderr integer , public , save :: minimum_log_level = LOG_INFO !< Note that more critical means a lower number public :: log_set_output_hostname public :: log_set_output_severity public :: log_set_output_date public :: log_set_output_time public :: log_set_output_fileline public :: log_set_skip_terminal_check public :: log_set_disable_colors public :: log_disable_cli_arguments public :: logp , logl private ! Default settings for hostname and severity output logical , save :: output_hostname = . false . logical , save :: output_severity = . true . logical , save :: output_date = . false . logical , save :: output_time = . false . logical , save :: output_fileline = . true . logical , save :: skip_terminal_check = . false . logical , save :: disable_colors = . false . logical , save :: cla_checked = . false . ! These are the color codes corresponding to the loglevels above character ( len =* ), dimension ( NUM_LOG_LEVELS ), parameter :: color_codes = & [ \"31\" , \"31\" , \"33\" , \"32\" , \"34\" , \"30\" ] ! These are the styles corresponding to the loglevels above character ( len =* ), dimension ( NUM_LOG_LEVELS ), parameter :: style_codes = & [ bold , reset , reset , reset , reset , reset ] ! Colors for other output character ( len =* ), parameter :: level_color = \"20\" contains !**** Settings functions (public) !> Set the default for hostname output subroutine log_set_output_hostname ( bool ) logical , intent ( in ) :: bool output_hostname = bool end subroutine log_set_output_hostname !> Set the default for severity output subroutine log_set_output_severity ( bool ) logical , intent ( in ) :: bool output_severity = bool end subroutine log_set_output_severity !> Set the default for date output subroutine log_set_output_date ( bool ) logical , intent ( in ) :: bool output_date = bool end subroutine log_set_output_date !> Set time-only date format subroutine log_set_output_time ( bool ) logical , intent ( in ) :: bool output_time = bool end subroutine log_set_output_time !> Set the default for file/line output subroutine log_set_output_fileline ( bool ) logical , intent ( in ) :: bool output_fileline = bool end subroutine log_set_output_fileline !> Whether or not to skip the terminal check subroutine log_set_skip_terminal_check ( bool ) logical , intent ( in ) :: bool skip_terminal_check = bool end subroutine log_set_skip_terminal_check !> Disable colors altogether subroutine log_set_disable_colors ( bool ) logical , intent ( in ) :: bool disable_colors = bool end subroutine log_set_disable_colors !> Disable reading arguments from the commandline subroutine log_disable_cli_arguments () cla_checked = . true . end subroutine !**** Logging functions (public) !> Output this log statement or not function logp ( level , only_n ) #ifdef USE_MPI use mpi #endif integer , intent ( in ) :: level !< The log level of the current message integer , intent ( in ), optional :: only_n !< Show only if the current mpi rank equals only_n logical :: logp !< Output: true if this log message can be printed #ifdef USE_MPI integer :: rank , ierr #endif ! Check command-line arguments if that has not been done yet if (. not . cla_checked ) call log_check_cli_arguments () if ( level . le . minimum_log_level ) then logp = . true . else logp = . false . endif #ifdef USE_MPI if ( logp . and . present ( only_n )) then call MPI_COMM_RANK ( MPI_COMM_WORLD , rank , ierr ) if ( rank . ne . only_n ) logp = . false . endif #endif end function logp !> Write a log lead containing level and optional info !> The name is shortened to allow for longer log messages without needing continuations function logl ( level , filename , linenum ) ! Input parameters integer :: level !< The log level character ( len =* ), optional :: filename !< An optional filename to add to the log lead integer , optional :: linenum !< With line number character ( len = 300 ) :: logl !< The output log leader ! Internal parameters character ( len = 50 ), dimension ( 6 ) :: log_tmp !< The different parts of the log lead integer :: fn_len !< Add extra spaces after part i integer :: i , j !< The counter for the different parts character ( 4 ) :: linenum_lj ! left-justified line number logical :: show_colors = . false . i = 1 ! Set level to 1 if it is too low, skip if too high if ( level . lt . 1 ) level = 1 if ( level . gt . minimum_log_level . or . level . gt . NUM_LOG_LEVELS ) return ! only show colors if we are outputting to a terminal if ( skip_terminal_check ) then show_colors = . not . disable_colors else show_colors = isatty ( stdout ) . and . . not . disable_colors endif ! This works in ifort and gfortran (log_unit is stdout here because log_lead is an internal string) ! Initialize log_tmp log_tmp = \"\" fn_len = 0 ! Reset the colors if needed if ( show_colors ) call stput ( log_tmp ( i ), reset ) ! Do not increment i to add it before the next space ! Write date and time if wanted if ( output_date . or . output_time ) then log_tmp ( i ) = trim ( log_tmp ( i )) // log_datetime () i = i + 1 endif ! Write hostname if requested if ( output_hostname ) then log_tmp ( i ) = trim ( log_tmp ( i )) // log_hostname () i = i + 1 endif #ifdef USE_MPI ! Write mpi id log_tmp ( i ) = trim ( log_tmp ( i )) // log_mpi_id () i = i + 1 #endif if ( present ( filename ) . and . output_fileline ) then log_tmp ( i ) = trim ( log_tmp ( i )) // trim ( filename ) if ( present ( linenum )) then ! Left-justify the line number and cap it to 4 characters write ( linenum_lj , '(i4)' ) linenum log_tmp ( i ) = trim ( log_tmp ( i )) // \":\" // adjustl ( linenum_lj ) endif ! How many extra spaces are needed to fill out to multiple of n characters fn_len = fn_len + len_trim ( log_tmp ( i )) i = i + 1 endif ! Output severity level if ( output_severity ) then fn_len = fn_len + len_trim ( log_severity ( level , . false .)) log_tmp ( i ) = trim ( log_tmp ( i )) // spaces ( mod ( 7 - fn_len , 8 ) + 8 ) // log_severity ( level , show_colors ) endif ! Set color based on severity level if ( show_colors ) then ! Set bold for errors (must go first, resets the color code otherwise) call stput ( log_tmp ( i ), style_codes ( level )) call stput ( log_tmp ( i ), color_codes ( level )) endif ! Concatenate trim(log_tmp(i)) with spaces in between logl = log_tmp ( 1 ) do j = 2 , i logl = trim ( logl ) // \" \" // trim ( log_tmp ( j )) enddo end function logl !*** Utility functions (private) !> Return the hostname in a 50 character string function log_hostname () character ( len = 50 ) log_hostname call hostnm ( log_hostname ) end function log_hostname !> Return n spaces function spaces ( n ) integer , intent ( in ) :: n !< Maximum is 30 character ( len = n ) :: spaces spaces = \" \" end function spaces !> Return the severity level with colors etc in a 50 char string function log_severity ( level , show_colors ) integer , intent ( in ) :: level logical , intent ( in ) :: show_colors character ( len = 50 ) log_severity log_severity = \"\" if ( show_colors ) call stput ( log_severity , level_color ) if ( level . eq . LOG_FATAL ) then if ( show_colors ) then call stput ( log_severity , bold ) call stput ( log_severity , color_codes ( level )) ! error has the same color, for reading convenience endif log_severity = trim ( log_severity ) // \"FATAL\" elseif ( level . eq . LOG_ERROR ) then if ( show_colors ) call stput ( log_severity , bold ) log_severity = trim ( log_severity ) // \"ERROR\" elseif ( level . eq . LOG_WARN ) then log_severity = trim ( log_severity ) // \"WARN\" elseif ( level . eq . LOG_INFO ) then log_severity = trim ( log_severity ) // \"INFO\" elseif ( level . eq . LOG_DEBUG ) then log_severity = trim ( log_severity ) // \"DEBUG\" elseif ( level . eq . LOG_TRACE ) then log_severity = trim ( log_severity ) // \"TRACE\" endif if ( show_colors ) call stput ( log_severity , reset ) end function log_severity #ifdef USE_MPI !> Return the mpi id of the current process function log_mpi_id () use mpi character ( 50 ) :: log_mpi_id !< The mpi id part of a log character ( 6 ) :: mpi_id_lj !< MPI id in string character ( 4 ) :: id_fmt !< The forhmat to print mpi_id_lj in integer :: rank , n_cpu , ierr call MPI_COMM_RANK ( MPI_COMM_WORLD , rank , ierr ) call MPI_COMM_SIZE ( MPI_COMM_WORLD , n_cpu , ierr ) if ( n_cpu . eq . 1 ) then log_mpi_id = \"\" else write ( id_fmt , '(A,i1,A)' ) \"(i\" , ceiling ( log10 ( real ( n_cpu ))), \")\" write ( mpi_id_lj , id_fmt ) rank write ( log_mpi_id , '(\"#\",a)' ) trim ( adjustl ( mpi_id_lj )) endif end function log_mpi_id #endif !> Return the current date, formatted nicely function log_datetime () character ( 50 ) :: log_datetime !< Output the date here character ( 8 ) :: date character ( 10 ) :: time character ( 5 ) :: zone call date_and_time ( date , time , zone ) if ( output_date . and . output_time ) then write ( log_datetime , '(a,\"/\",a,\"/\",a,\" \",a,\":\",a,\":\",a,\" \")' ) date ( 1 : 4 ), date ( 5 : 6 ), date ( 7 : 8 ), & time ( 1 : 2 ), time ( 3 : 4 ), time ( 5 : 6 ) endif if ( output_time ) then write ( log_datetime , '(a,\":\",a,\":\",a,\" \")' ) time ( 1 : 2 ), time ( 3 : 4 ), time ( 5 : 6 ) endif if ( output_date ) then write ( log_datetime , '(a,\"/\",a,\"/\",a,\" \")' ) date ( 1 : 4 ), date ( 5 : 6 ), date ( 7 : 8 ) endif end function log_datetime !> Check the command-line arguments to set the default logging level !> and color settings. subroutine log_check_cli_arguments () integer :: i , length , status character ( len = 32 ) :: arg ! Loop over all command-line arguments to look for -v do i = 1 , command_argument_count () call get_command_argument ( i , arg , length , status ) if ( status . eq . 0 ) then select case ( trim ( arg )) case ( \"--verbose\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 1 ) case ( \"-v\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 1 ) case ( \"-vv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 2 ) case ( \"-vvv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 3 ) case ( \"-vvvv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 4 ) case ( \"-vvvvv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 5 ) case ( \"-q\" ) minimum_log_level = max ( 1 , minimum_log_level - 1 ) case ( \"-qq\" ) minimum_log_level = max ( 1 , minimum_log_level - 2 ) case ( \"-qqq\" ) minimum_log_level = max ( 1 , minimum_log_level - 3 ) case ( \"-qqqq\" ) minimum_log_level = max ( 1 , minimum_log_level - 4 ) case ( \"-qqqqq\" ) minimum_log_level = max ( 1 , minimum_log_level - 5 ) case ( \"--quiet\" ) minimum_log_level = max ( 1 , minimum_log_level - 1 ) case ( \"--log-output-hostname\" ) output_hostname = . true . case ( \"--log-force-colors\" ) skip_terminal_check = . true . case ( \"--log-no-colors\" ) disable_colors = . true . case ( \"--log-output-date\" ) output_date = . true . case ( \"--log-output-time\" ) output_time = . true . end select endif enddo cla_checked = . true . end subroutine log_check_cli_arguments end module flogging","title":"flogging.f90 – flogging"},{"tags":"","loc":"sourcefile/vt100.f90.html","text":"This module sets terminal colors, boldness and other settings\n Using ANSI/VT100 control sequences\n See http://misc.flogisoft.com/bash/tip_colors_and_formatting for a list of sequences\n This code is governed by the MIT license. See LICENSE for details. Source Code !************************************************************************ ! This module sets terminal colors, boldness and other settings ! Using ANSI/VT100 control sequences ! See http://misc.flogisoft.com/bash/tip_colors_and_formatting for a list of sequences ! This code is governed by the MIT license. See LICENSE for details. !************************************************************************ module vt100 implicit none ! Control start character character ( len =* ), parameter :: start = achar ( 27 ) character ( len =* ), parameter :: reset = \"0\" ! Styles character ( len =* ), parameter :: bold = \"1\" , dimmed = \"2\" , & underline = \"4\" , blink = \"5\" , invert = \"7\" , hidden = \"8\" contains subroutine tput ( lu , code ) implicit none character ( len =* ), intent ( in ) :: code integer , intent ( in ) :: lu write ( lu , '(a,\"[\",a,\"m\")' , advance = \"no\" ) start , code end subroutine tput subroutine stput ( str , code ) implicit none character ( len =* ), intent ( inout ) :: str character ( len =* ), intent ( in ) :: code str = trim ( str ) // start // \"[\" // trim ( code ) // \"m\" end subroutine stput end module vt100","title":"vt100.f90 – flogging"},{"tags":"","loc":"proc/logp.html","text":"public function logp(level, only_n) Uses: mpi Arguments Type Intent Optional Attributes Name integer, intent(in) :: level The log level of the current message integer, intent(in), optional :: only_n Show only if the current mpi rank equals only_n Return Value logical Description Output this log statement or not Calls proc~~logp~~CallsGraph proc~logp logp mpi_comm_rank mpi_comm_rank proc~logp->mpi_comm_rank Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Variables Type Visibility Attributes Name Initial integer, public :: rank integer, public :: ierr","title":"logp – flogging"},{"tags":"","loc":"proc/logl.html","text":"public function logl(level, filename, linenum) Arguments Type Intent Optional Attributes Name integer :: level The log level character(len=*) , optional :: filename An optional filename to add to the log lead integer , optional :: linenum With line number Return Value character(len=300) The output log leader Description Write a log lead containing level and optional info\n The name is shortened to allow for longer log messages without needing continuations Calls proc~~logl~~CallsGraph proc~logl logl proc~stput stput proc~logl->proc~stput Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Variables Type Visibility Attributes Name Initial character(len=50), public, dimension(6) :: log_tmp The different parts of the log lead integer, public :: fn_len Add extra spaces after part i integer, public :: i integer, public :: j The counter for the different parts character(len=4), public :: linenum_lj logical, public :: show_colors = .false.","title":"logl – flogging"},{"tags":"","loc":"proc/log_set_output_hostname.html","text":"public subroutine log_set_output_hostname(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for hostname output","title":"log_set_output_hostname – flogging"},{"tags":"","loc":"proc/log_set_output_severity.html","text":"public subroutine log_set_output_severity(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for severity output","title":"log_set_output_severity – flogging"},{"tags":"","loc":"proc/log_set_output_date.html","text":"public subroutine log_set_output_date(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for date output","title":"log_set_output_date – flogging"},{"tags":"","loc":"proc/log_set_output_time.html","text":"public subroutine log_set_output_time(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set time-only date format","title":"log_set_output_time – flogging"},{"tags":"","loc":"proc/log_set_output_fileline.html","text":"public subroutine log_set_output_fileline(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for file/line output","title":"log_set_output_fileline – flogging"},{"tags":"","loc":"proc/log_set_skip_terminal_check.html","text":"public subroutine log_set_skip_terminal_check(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Whether or not to skip the terminal check","title":"log_set_skip_terminal_check – flogging"},{"tags":"","loc":"proc/log_set_disable_colors.html","text":"public subroutine log_set_disable_colors(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Disable colors altogether","title":"log_set_disable_colors – flogging"},{"tags":"","loc":"proc/log_disable_cli_arguments.html","text":"public subroutine log_disable_cli_arguments() Arguments None Description Disable reading arguments from the commandline","title":"log_disable_cli_arguments – flogging"},{"tags":"","loc":"proc/tput.html","text":"public subroutine tput(lu, code) Arguments Type Intent Optional Attributes Name integer, intent(in) :: lu character(len=*), intent(in) :: code","title":"tput – flogging"},{"tags":"","loc":"proc/stput.html","text":"public subroutine stput(str, code) Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: str character(len=*), intent(in) :: code Called By proc~~stput~~CalledByGraph proc~stput stput proc~logl logl proc~logl->proc~stput Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module.","title":"stput – flogging"},{"tags":"","loc":"module/flogging.html","text":"Uses: vt100 iso_fortran_env module~~flogging~~UsesGraph module~flogging flogging iso_fortran_env iso_fortran_env iso_fortran_env->module~flogging module~vt100 vt100 module~vt100->module~flogging Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Settings functions (public) Logging functions (public)\n** Utility functions (private) Variables Type Visibility Attributes Name Initial integer, public, parameter :: NUM_LOG_LEVELS = 6 1 through 6 (fatal through trace) integer, public, parameter :: LOG_FATAL = LOG_LEVEL_FATAL_DEF = 1, Runtime error causing termination integer, public, parameter :: LOG_ERROR = LOG_LEVEL_ERROR_DEF = 2, Runtime error integer, public, parameter :: LOG_WARN = LOG_LEVEL_WARN_DEF = 3, Warning, but we can continue integer, public, parameter :: LOG_INFO = LOG_LEVEL_INFO_DEF = 4, Interesting events integer, public, parameter :: LOG_DEBUG = LOG_LEVEL_DEBUG_DEF = 5, Detailed debug output, disable by compiling your program with -DDISABLE_LOG_DEBUG integer, public, parameter :: LOG_TRACE = LOG_LEVEL_TRACE_DEF = 6, Extremely detailed output, compile your program with -DENABLE_LOG_TRACE to enable integer, public, save :: logu = stderr By default, log to stderr integer, public, save :: minimum_log_level = LOG_INFO Note that more critical means a lower number Functions public function logp (level, only_n) Arguments Type Intent Optional Attributes Name integer, intent(in) :: level The log level of the current message integer, intent(in), optional :: only_n Show only if the current mpi rank equals only_n Return Value logical Description Output this log statement or not public function logl (level, filename, linenum) Arguments Type Intent Optional Attributes Name integer :: level The log level character(len=*) , optional :: filename An optional filename to add to the log lead integer , optional :: linenum With line number Return Value character(len=300) The output log leader Description Write a log lead containing level and optional info\n The name is shortened to allow for longer log messages without needing continuations Subroutines public subroutine log_set_output_hostname (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for hostname output public subroutine log_set_output_severity (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for severity output public subroutine log_set_output_date (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for date output public subroutine log_set_output_time (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set time-only date format public subroutine log_set_output_fileline (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for file/line output public subroutine log_set_skip_terminal_check (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Whether or not to skip the terminal check public subroutine log_set_disable_colors (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Disable colors altogether public subroutine log_disable_cli_arguments () Arguments None Description Disable reading arguments from the commandline","title":"flogging – flogging"},{"tags":"","loc":"module/vt100.html","text":"Used By module~~vt100~~UsedByGraph module~vt100 vt100 module~flogging flogging module~vt100->module~flogging Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Variables Type Visibility Attributes Name Initial character(len=*), public, parameter :: start = achar(27) character(len=*), public, parameter :: reset = \"0\" character(len=*), public, parameter :: bold = \"1\" character(len=*), public, parameter :: dimmed = \"2\" character(len=*), public, parameter :: underline = \"4\" character(len=*), public, parameter :: blink = \"5\" character(len=*), public, parameter :: invert = \"7\" character(len=*), public, parameter :: hidden = \"8\" Subroutines public subroutine tput (lu, code) Arguments Type Intent Optional Attributes Name integer, intent(in) :: lu character(len=*), intent(in) :: code public subroutine stput (str, code) Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: str character(len=*), intent(in) :: code","title":"vt100 – flogging"}]} \ No newline at end of file +var tipuesearch = {"pages":[{"loc":"index.html","text":"flogging This library provides a logging framework for Fortran 90 and up, with MPI support, vt100 colors, command-line arguments and more. License The bspline-fortran source code and related files and documentation are distributed under a permissive license (MIT). Developer Info Daan van Vugt","title":" flogging ","tags":""},{"loc":"sourcefile/flogging.f90.html","text":"This module contains a logging system intended for use in MPI\n codes, with facilities for colored output, log level filters,\n code location and date and time annotation. This software is governed by the MIT license, found in the\n file LICENSE. Source Code !************************************************************** ! This module contains a logging system intended for use in MPI ! codes, with facilities for colored output, log level filters, ! code location and date and time annotation. ! ! This software is governed by the MIT license, found in the ! file LICENSE. !************************************************************** #include \"flogging.h\" module flogging use :: vt100 ! For color output #ifdef f2003 use , intrinsic :: iso_fortran_env , only : stdin => input_unit , stdout => output_unit , stderr => error_unit #else #define stdin 5 #define stdout 6 #define stderr 0 #endif implicit none ! Log levels integer , public , parameter :: NUM_LOG_LEVELS = 6 !< 1 through 6 (fatal through trace) integer , public , parameter :: LOG_FATAL = LOG_LEVEL_FATAL_DEF !< = 1, Runtime error causing termination integer , public , parameter :: LOG_ERROR = LOG_LEVEL_ERROR_DEF !< = 2, Runtime error integer , public , parameter :: LOG_WARN = LOG_LEVEL_WARN_DEF !< = 3, Warning, but we can continue integer , public , parameter :: LOG_INFO = LOG_LEVEL_INFO_DEF !< = 4, Interesting events integer , public , parameter :: LOG_DEBUG = LOG_LEVEL_DEBUG_DEF !< = 5, Detailed debug output, disable by compiling your program with -DDISABLE_LOG_DEBUG integer , public , parameter :: LOG_TRACE = LOG_LEVEL_TRACE_DEF !< = 6, Extremely detailed output, compile your program with -DENABLE_LOG_TRACE to enable integer , public , save :: logu = stderr !< By default, log to stderr integer , public , save :: minimum_log_level = LOG_INFO !< Note that more critical means a lower number public :: log_set_output_hostname public :: log_set_output_severity public :: log_set_output_date public :: log_set_output_time public :: log_set_output_fileline public :: log_set_skip_terminal_check public :: log_set_disable_colors public :: log_disable_cli_arguments public :: logp , logl private ! Default settings for hostname and severity output logical , save :: output_hostname = . false . logical , save :: output_severity = . true . logical , save :: output_date = . false . logical , save :: output_time = . false . logical , save :: output_fileline = . true . logical , save :: skip_terminal_check = . false . logical , save :: disable_colors = . false . logical , save :: cla_checked = . false . ! These are the color codes corresponding to the loglevels above character ( len =* ), dimension ( NUM_LOG_LEVELS ), parameter :: color_codes = & [ \"31\" , \"31\" , \"33\" , \"32\" , \"34\" , \"30\" ] ! These are the styles corresponding to the loglevels above character ( len =* ), dimension ( NUM_LOG_LEVELS ), parameter :: style_codes = & [ bold , reset , reset , reset , reset , reset ] ! Colors for other output character ( len =* ), parameter :: level_color = \"20\" contains !**** Settings functions (public) !> Set the default for hostname output subroutine log_set_output_hostname ( bool ) logical , intent ( in ) :: bool output_hostname = bool end subroutine log_set_output_hostname !> Set the default for severity output subroutine log_set_output_severity ( bool ) logical , intent ( in ) :: bool output_severity = bool end subroutine log_set_output_severity !> Set the default for date output subroutine log_set_output_date ( bool ) logical , intent ( in ) :: bool output_date = bool end subroutine log_set_output_date !> Set time-only date format subroutine log_set_output_time ( bool ) logical , intent ( in ) :: bool output_time = bool end subroutine log_set_output_time !> Set the default for file/line output subroutine log_set_output_fileline ( bool ) logical , intent ( in ) :: bool output_fileline = bool end subroutine log_set_output_fileline !> Whether or not to skip the terminal check subroutine log_set_skip_terminal_check ( bool ) logical , intent ( in ) :: bool skip_terminal_check = bool end subroutine log_set_skip_terminal_check !> Disable colors altogether subroutine log_set_disable_colors ( bool ) logical , intent ( in ) :: bool disable_colors = bool end subroutine log_set_disable_colors !> Disable reading arguments from the commandline subroutine log_disable_cli_arguments () cla_checked = . true . end subroutine !**** Logging functions (public) !> Output this log statement or not function logp ( level , only_n ) #ifdef USE_MPI use mpi #endif integer , intent ( in ) :: level !< The log level of the current message integer , intent ( in ), optional :: only_n !< Show only if the current mpi rank equals only_n logical :: logp !< Output: true if this log message can be printed #ifdef USE_MPI integer :: rank , ierr #endif ! Check command-line arguments if that has not been done yet if (. not . cla_checked ) call log_check_cli_arguments () if ( level . le . minimum_log_level ) then logp = . true . else logp = . false . endif #ifdef USE_MPI if ( logp . and . present ( only_n )) then call MPI_COMM_RANK ( MPI_COMM_WORLD , rank , ierr ) if ( rank . ne . only_n ) logp = . false . endif #endif end function logp !> Write a log lead containing level and optional info !> The name is shortened to allow for longer log messages without needing continuations function logl ( level , filename , linenum ) ! Input parameters integer :: level !< The log level character ( len =* ), optional :: filename !< An optional filename to add to the log lead integer , optional :: linenum !< With line number character ( len = 300 ) :: logl !< The output log leader ! Internal parameters character ( len = 50 ), dimension ( 6 ) :: log_tmp !< The different parts of the log lead integer :: fn_len !< Add extra spaces after part i integer :: i , j !< The counter for the different parts character ( 4 ) :: linenum_lj ! left-justified line number logical :: show_colors = . false . i = 1 ! Set level to 1 if it is too low, skip if too high if ( level . lt . 1 ) level = 1 if ( level . gt . minimum_log_level . or . level . gt . NUM_LOG_LEVELS ) return ! only show colors if we are outputting to a terminal if ( skip_terminal_check ) then show_colors = . not . disable_colors else show_colors = isatty ( stdout ) . and . . not . disable_colors endif ! This works in ifort and gfortran (log_unit is stdout here because log_lead is an internal string) ! Initialize log_tmp log_tmp = \"\" fn_len = 0 ! Reset the colors if needed if ( show_colors ) call stput ( log_tmp ( i ), reset ) ! Do not increment i to add it before the next space ! Write date and time if wanted if ( output_date . or . output_time ) then log_tmp ( i ) = trim ( log_tmp ( i )) // log_datetime () i = i + 1 endif ! Write hostname if requested if ( output_hostname ) then log_tmp ( i ) = trim ( log_tmp ( i )) // log_hostname () i = i + 1 endif #ifdef USE_MPI ! Write mpi id log_tmp ( i ) = trim ( log_tmp ( i )) // log_mpi_id () i = i + 1 #endif if ( present ( filename ) . and . output_fileline ) then log_tmp ( i ) = trim ( log_tmp ( i )) // trim ( filename ) if ( present ( linenum )) then ! Left-justify the line number and cap it to 4 characters write ( linenum_lj , '(i4)' ) linenum log_tmp ( i ) = trim ( log_tmp ( i )) // \":\" // adjustl ( linenum_lj ) endif ! How many extra spaces are needed to fill out to multiple of n characters fn_len = fn_len + len_trim ( log_tmp ( i )) i = i + 1 endif ! Output severity level if ( output_severity ) then fn_len = fn_len + len_trim ( log_severity ( level , . false .)) log_tmp ( i ) = trim ( log_tmp ( i )) // spaces ( mod ( 7 - fn_len , 8 ) + 8 ) // log_severity ( level , show_colors ) endif ! Set color based on severity level if ( show_colors ) then ! Set bold for errors (must go first, resets the color code otherwise) call stput ( log_tmp ( i ), style_codes ( level )) call stput ( log_tmp ( i ), color_codes ( level )) endif ! Concatenate trim(log_tmp(i)) with spaces in between logl = log_tmp ( 1 ) do j = 2 , i logl = trim ( logl ) // \" \" // trim ( log_tmp ( j )) enddo end function logl !*** Utility functions (private) !> Return the hostname in a 50 character string function log_hostname () character ( len = 50 ) log_hostname call hostnm ( log_hostname ) end function log_hostname !> Return n spaces function spaces ( n ) integer , intent ( in ) :: n !< Maximum is 30 character ( len = n ) :: spaces spaces = \" \" end function spaces !> Return the severity level with colors etc in a 50 char string function log_severity ( level , show_colors ) integer , intent ( in ) :: level logical , intent ( in ) :: show_colors character ( len = 50 ) log_severity log_severity = \"\" if ( show_colors ) call stput ( log_severity , level_color ) if ( level . eq . LOG_FATAL ) then if ( show_colors ) then call stput ( log_severity , bold ) call stput ( log_severity , color_codes ( level )) ! error has the same color, for reading convenience endif log_severity = trim ( log_severity ) // \"FATAL\" elseif ( level . eq . LOG_ERROR ) then if ( show_colors ) call stput ( log_severity , bold ) log_severity = trim ( log_severity ) // \"ERROR\" elseif ( level . eq . LOG_WARN ) then log_severity = trim ( log_severity ) // \"WARN\" elseif ( level . eq . LOG_INFO ) then log_severity = trim ( log_severity ) // \"INFO\" elseif ( level . eq . LOG_DEBUG ) then log_severity = trim ( log_severity ) // \"DEBUG\" elseif ( level . eq . LOG_TRACE ) then log_severity = trim ( log_severity ) // \"TRACE\" endif if ( show_colors ) call stput ( log_severity , reset ) end function log_severity #ifdef USE_MPI !> Return the mpi id of the current process function log_mpi_id () use mpi character ( 50 ) :: log_mpi_id !< The mpi id part of a log character ( 6 ) :: mpi_id_lj !< MPI id in string character ( 4 ) :: id_fmt !< The forhmat to print mpi_id_lj in integer :: rank , n_cpu , ierr call MPI_COMM_RANK ( MPI_COMM_WORLD , rank , ierr ) call MPI_COMM_SIZE ( MPI_COMM_WORLD , n_cpu , ierr ) if ( n_cpu . eq . 1 ) then log_mpi_id = \"\" else write ( id_fmt , '(A,i1,A)' ) \"(i\" , ceiling ( log10 ( real ( n_cpu ))), \")\" write ( mpi_id_lj , id_fmt ) rank write ( log_mpi_id , '(\"#\",a)' ) trim ( adjustl ( mpi_id_lj )) endif end function log_mpi_id #endif !> Return the current date, formatted nicely function log_datetime () character ( 50 ) :: log_datetime !< Output the date here character ( 8 ) :: date character ( 10 ) :: time character ( 5 ) :: zone call date_and_time ( date , time , zone ) if ( output_date . and . output_time ) then write ( log_datetime , '(a,\"/\",a,\"/\",a,\" \",a,\":\",a,\":\",a,\" \")' ) date ( 1 : 4 ), date ( 5 : 6 ), date ( 7 : 8 ), & time ( 1 : 2 ), time ( 3 : 4 ), time ( 5 : 6 ) endif if ( output_time ) then write ( log_datetime , '(a,\":\",a,\":\",a,\" \")' ) time ( 1 : 2 ), time ( 3 : 4 ), time ( 5 : 6 ) endif if ( output_date ) then write ( log_datetime , '(a,\"/\",a,\"/\",a,\" \")' ) date ( 1 : 4 ), date ( 5 : 6 ), date ( 7 : 8 ) endif end function log_datetime !> Check the command-line arguments to set the default logging level !> and color settings. subroutine log_check_cli_arguments () integer :: i , length , status character ( len = 32 ) :: arg ! Loop over all command-line arguments to look for -v do i = 1 , command_argument_count () call get_command_argument ( i , arg , length , status ) if ( status . eq . 0 ) then select case ( trim ( arg )) case ( \"--verbose\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 1 ) case ( \"-v\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 1 ) case ( \"-vv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 2 ) case ( \"-vvv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 3 ) case ( \"-vvvv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 4 ) case ( \"-vvvvv\" ) minimum_log_level = min ( NUM_LOG_LEVELS , minimum_log_level + 5 ) case ( \"-q\" ) minimum_log_level = max ( 1 , minimum_log_level - 1 ) case ( \"-qq\" ) minimum_log_level = max ( 1 , minimum_log_level - 2 ) case ( \"-qqq\" ) minimum_log_level = max ( 1 , minimum_log_level - 3 ) case ( \"-qqqq\" ) minimum_log_level = max ( 1 , minimum_log_level - 4 ) case ( \"-qqqqq\" ) minimum_log_level = max ( 1 , minimum_log_level - 5 ) case ( \"--quiet\" ) minimum_log_level = max ( 1 , minimum_log_level - 1 ) case ( \"--log-output-hostname\" ) output_hostname = . true . case ( \"--log-force-colors\" ) skip_terminal_check = . true . case ( \"--log-no-colors\" ) disable_colors = . true . case ( \"--log-output-date\" ) output_date = . true . case ( \"--log-output-time\" ) output_time = . true . end select endif enddo cla_checked = . true . end subroutine log_check_cli_arguments end module flogging","title":"flogging.f90 – flogging","tags":""},{"loc":"sourcefile/vt100.f90.html","text":"This module sets terminal colors, boldness and other settings\n Using ANSI/VT100 control sequences\n See http://misc.flogisoft.com/bash/tip_colors_and_formatting for a list of sequences\n This code is governed by the MIT license. See LICENSE for details. Source Code !************************************************************************ ! This module sets terminal colors, boldness and other settings ! Using ANSI/VT100 control sequences ! See http://misc.flogisoft.com/bash/tip_colors_and_formatting for a list of sequences ! This code is governed by the MIT license. See LICENSE for details. !************************************************************************ module vt100 implicit none ! Control start character character ( len =* ), parameter :: start = achar ( 27 ) character ( len =* ), parameter :: reset = \"0\" ! Styles character ( len =* ), parameter :: bold = \"1\" , dimmed = \"2\" , & underline = \"4\" , blink = \"5\" , invert = \"7\" , hidden = \"8\" contains subroutine tput ( lu , code ) implicit none character ( len =* ), intent ( in ) :: code integer , intent ( in ) :: lu write ( lu , '(a,\"[\",a,\"m\")' , advance = \"no\" ) start , code end subroutine tput subroutine stput ( str , code ) implicit none character ( len =* ), intent ( inout ) :: str character ( len =* ), intent ( in ) :: code str = trim ( str ) // start // \"[\" // trim ( code ) // \"m\" end subroutine stput end module vt100","title":"vt100.f90 – flogging","tags":""},{"loc":"proc/logp.html","text":"public function logp(level, only_n) Uses: mpi Arguments Type Intent Optional Attributes Name integer, intent(in) :: level The log level of the current message integer, intent(in), optional :: only_n Show only if the current mpi rank equals only_n Return Value logical Description Output this log statement or not Calls proc~~logp~~CallsGraph proc~logp logp mpi_comm_rank mpi_comm_rank proc~logp->mpi_comm_rank Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Variables Type Visibility Attributes Name Initial integer, public :: rank integer, public :: ierr","title":"logp – flogging","tags":""},{"loc":"proc/logl.html","text":"public function logl(level, filename, linenum) Arguments Type Intent Optional Attributes Name integer :: level The log level character(len=*) , optional :: filename An optional filename to add to the log lead integer , optional :: linenum With line number Return Value character(len=300) The output log leader Description Write a log lead containing level and optional info\n The name is shortened to allow for longer log messages without needing continuations Calls proc~~logl~~CallsGraph proc~logl logl proc~stput stput proc~logl->proc~stput Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Variables Type Visibility Attributes Name Initial character(len=50), public, dimension(6) :: log_tmp The different parts of the log lead integer, public :: fn_len Add extra spaces after part i integer, public :: i integer, public :: j The counter for the different parts character(len=4), public :: linenum_lj logical, public :: show_colors = .false.","title":"logl – flogging","tags":""},{"loc":"proc/log_set_output_hostname.html","text":"public subroutine log_set_output_hostname(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for hostname output","title":"log_set_output_hostname – flogging","tags":""},{"loc":"proc/log_set_output_severity.html","text":"public subroutine log_set_output_severity(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for severity output","title":"log_set_output_severity – flogging","tags":""},{"loc":"proc/log_set_output_date.html","text":"public subroutine log_set_output_date(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for date output","title":"log_set_output_date – flogging","tags":""},{"loc":"proc/log_set_output_time.html","text":"public subroutine log_set_output_time(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set time-only date format","title":"log_set_output_time – flogging","tags":""},{"loc":"proc/log_set_output_fileline.html","text":"public subroutine log_set_output_fileline(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for file/line output","title":"log_set_output_fileline – flogging","tags":""},{"loc":"proc/log_set_skip_terminal_check.html","text":"public subroutine log_set_skip_terminal_check(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Whether or not to skip the terminal check","title":"log_set_skip_terminal_check – flogging","tags":""},{"loc":"proc/log_set_disable_colors.html","text":"public subroutine log_set_disable_colors(bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Disable colors altogether","title":"log_set_disable_colors – flogging","tags":""},{"loc":"proc/log_disable_cli_arguments.html","text":"public subroutine log_disable_cli_arguments() Arguments None Description Disable reading arguments from the commandline","title":"log_disable_cli_arguments – flogging","tags":""},{"loc":"proc/tput.html","text":"public subroutine tput(lu, code) Arguments Type Intent Optional Attributes Name integer, intent(in) :: lu character(len=*), intent(in) :: code","title":"tput – flogging","tags":""},{"loc":"proc/stput.html","text":"public subroutine stput(str, code) Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: str character(len=*), intent(in) :: code Called By proc~~stput~~CalledByGraph proc~stput stput proc~logl logl proc~logl->proc~stput Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module.","title":"stput – flogging","tags":""},{"loc":"module/flogging.html","text":"Uses: vt100 iso_fortran_env module~~flogging~~UsesGraph module~flogging flogging iso_fortran_env iso_fortran_env iso_fortran_env->module~flogging module~vt100 vt100 module~vt100->module~flogging Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Settings functions (public) Logging functions (public)\n** Utility functions (private) Variables Type Visibility Attributes Name Initial integer, public, parameter :: NUM_LOG_LEVELS = 6 1 through 6 (fatal through trace) integer, public, parameter :: LOG_FATAL = LOG_LEVEL_FATAL_DEF = 1, Runtime error causing termination integer, public, parameter :: LOG_ERROR = LOG_LEVEL_ERROR_DEF = 2, Runtime error integer, public, parameter :: LOG_WARN = LOG_LEVEL_WARN_DEF = 3, Warning, but we can continue integer, public, parameter :: LOG_INFO = LOG_LEVEL_INFO_DEF = 4, Interesting events integer, public, parameter :: LOG_DEBUG = LOG_LEVEL_DEBUG_DEF = 5, Detailed debug output, disable by compiling your program with -DDISABLE_LOG_DEBUG integer, public, parameter :: LOG_TRACE = LOG_LEVEL_TRACE_DEF = 6, Extremely detailed output, compile your program with -DENABLE_LOG_TRACE to enable integer, public, save :: logu = stderr By default, log to stderr integer, public, save :: minimum_log_level = LOG_INFO Note that more critical means a lower number Functions public function logp (level, only_n) Arguments Type Intent Optional Attributes Name integer, intent(in) :: level The log level of the current message integer, intent(in), optional :: only_n Show only if the current mpi rank equals only_n Return Value logical Description Output this log statement or not public function logl (level, filename, linenum) Arguments Type Intent Optional Attributes Name integer :: level The log level character(len=*) , optional :: filename An optional filename to add to the log lead integer , optional :: linenum With line number Return Value character(len=300) The output log leader Description Write a log lead containing level and optional info\n The name is shortened to allow for longer log messages without needing continuations Subroutines public subroutine log_set_output_hostname (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for hostname output public subroutine log_set_output_severity (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for severity output public subroutine log_set_output_date (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for date output public subroutine log_set_output_time (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set time-only date format public subroutine log_set_output_fileline (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Set the default for file/line output public subroutine log_set_skip_terminal_check (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Whether or not to skip the terminal check public subroutine log_set_disable_colors (bool) Arguments Type Intent Optional Attributes Name logical, intent(in) :: bool Description Disable colors altogether public subroutine log_disable_cli_arguments () Arguments None Description Disable reading arguments from the commandline","title":"flogging – flogging","tags":""},{"loc":"module/vt100.html","text":"Used By module~~vt100~~UsedByGraph module~vt100 vt100 module~flogging flogging module~vt100->module~flogging Help × Graph Key Nodes of different colours represent the following: Graph Key Module Module Submodule Submodule Type Type Subroutine Subroutine Function Function Interface Interface Unknown Procedure Type Unknown Procedure Type Program Program This Page's Entity This Page's Entity Where possible, edges connecting nodes are given different colours to make them\neasier to distinguish in large graphs. Module Graph Solid arrows point from a parent (sub)module to the submodule which is\ndescended from it. Dashed arrows point from a module being used to the\nmodule using it. Type Graph Solid arrows point from one derived type to another which extends\n(inherits from) it. Dashed arrows point from a derived type to another\ntype containing it as a components, with a label listing the name(s) of\nsaid component(s). Call Graph Solid arrows point from a procedure to one which it calls. Dashed \narrows point from an interface to procedures which implement that interface.\nThis could include the module procedures in a generic interface or the\nimplementation in a submodule of an interface in a parent module. Variables Type Visibility Attributes Name Initial character(len=*), public, parameter :: start = achar(27) character(len=*), public, parameter :: reset = \"0\" character(len=*), public, parameter :: bold = \"1\" character(len=*), public, parameter :: dimmed = \"2\" character(len=*), public, parameter :: underline = \"4\" character(len=*), public, parameter :: blink = \"5\" character(len=*), public, parameter :: invert = \"7\" character(len=*), public, parameter :: hidden = \"8\" Subroutines public subroutine tput (lu, code) Arguments Type Intent Optional Attributes Name integer, intent(in) :: lu character(len=*), intent(in) :: code public subroutine stput (str, code) Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: str character(len=*), intent(in) :: code","title":"vt100 – flogging","tags":""}]} \ No newline at end of file diff --git a/include/flogging.h b/include/flogging.h index 71da27d..d89aa7e 100644 --- a/include/flogging.h +++ b/include/flogging.h @@ -1,17 +1,46 @@ /* This code is governed by the MIT license. See LICENSE for details. */ -/* The lines below have little spacing to ease the line-length requirement */ -/* There is no conflict with the fortran intrinsic log because that only has one argument */ -#define log(level,format) if(logp(level))write(logu,format)trim(logl(level,__FILE__,__LINE__))//" ", -#define log_fatal(format) if(logp(LOG_FATAL))write(logu,format)trim(logl(LOG_FATAL,__FILE__,__LINE__))//" ", -#define log_error(format) if(logp(LOG_ERROR))write(logu,format)trim(logl(LOG_ERROR,__FILE__,__LINE__))//" ", -#define log_warn(format) if(logp(LOG_WARN))write(logu,format)trim(logl(LOG_WARN,__FILE__,__LINE__))//" ", -#define log_info(format) if(logp(LOG_INFO))write(logu,format)trim(logl(LOG_INFO,__FILE__,__LINE__))//" ", -#define log_debug(format) if(logp(LOG_DEBUG))write(logu,format)trim(logl(LOG_DEBUG,__FILE__,__LINE__))//" ", -#define log_trace(format) if(logp(LOG_TRACE))write(logu,format)trim(logl(LOG_TRACE,__FILE__,__LINE__))//" ", -#define log_root(level,format) if(logp(level,0))write(logu,format)trim(logl(level,__FILE__,__LINE__))//" ", -#define log_root_fatal(format) if(logp(LOG_FATAL,0))write(logu,format)trim(logl(LOG_FATAL,__FILE__,__LINE__))//" ", -#define log_root_error(format) if(logp(LOG_ERROR,0))write(logu,format)trim(logl(LOG_ERROR,__FILE__,__LINE__))//" ", -#define log_root_warn(format) if(logp(LOG_WARN,0))write(logu,format)trim(logl(LOG_WARN,__FILE__,__LINE__))//" ", -#define log_root_info(format) if(logp(LOG_INFO,0))write(logu,format)trim(logl(LOG_INFO,__FILE__,__LINE__))//" ", -#define log_root_debug(format) if(logp(LOG_DEBUG,0))write(logu,format)trim(logl(LOG_DEBUG,__FILE__,__LINE__))//" ", -#define log_root_trace(format) if(logp(LOG_TRACE,0))write(logu,format)trim(logl(LOG_TRACE,__FILE__,__LINE__))//" ", + +/* Log level constants */ +#define LOG_LEVEL_FATAL_DEF 1 +#define LOG_LEVEL_ERROR_DEF 2 +#define LOG_LEVEL_WARN_DEF 3 +#define LOG_LEVEL_INFO_DEF 4 +#define LOG_LEVEL_DEBUG_DEF 5 +#define LOG_LEVEL_TRACE_DEF 6 + +/* The lines below have little spacing to ease the fortran line-length requirement */ +#define log_fatal(format) if(logp(LOG_LEVEL_FATAL_DEF))write(logu,format)trim(logl(LOG_LEVEL_FATAL_DEF,__FILE__,__LINE__))//" ", +#define log_error(format) if(logp(LOG_LEVEL_ERROR_DEF))write(logu,format)trim(logl(LOG_LEVEL_ERROR_DEF,__FILE__,__LINE__))//" ", +#define log_warn(format) if(logp(LOG_LEVEL_WARN_DEF))write(logu,format)trim(logl(LOG_LEVEL_WARN_DEF,__FILE__,__LINE__))//" ", +#define log_info(format) if(logp(LOG_LEVEL_INFO_DEF))write(logu,format)trim(logl(LOG_LEVEL_INFO_DEF,__FILE__,__LINE__))//" ", + +#ifdef DISABLE_LOG_DEBUG +#define log_debug(format) if(.false.)write(logu,format)trim(logl(LOG_LEVEL_DEBUG_DEF,__FILE__,__LINE__))//" ", +#else +#define log_debug(format) if(logp(LOG_LEVEL_DEBUG_DEF))write(logu,format)trim(logl(LOG_LEVEL_DEBUG_DEF,__FILE__,__LINE__))//" ", +#endif + +#ifdef ENABLE_LOG_TRACE +#define log_trace(format) if(logp(LOG_LEVEL_TRACE_DEF))write(logu,format)trim(logl(LOG_LEVEL_TRACE_DEF,__FILE__,__LINE__))//" ", +#else +#define log_trace(format) if(.false.)write(logu,format)trim(logl(LOG_LEVEL_TRACE_DEF,__FILE__,__LINE__))//" ", +#endif + + + +#define log_root_fatal(format) if(logp(LOG_LEVEL_FATAL_DEF,0))write(logu,format)trim(logl(LOG_LEVEL_FATAL_DEF,__FILE__,__LINE__))//" ", +#define log_root_error(format) if(logp(LOG_LEVEL_ERROR_DEF,0))write(logu,format)trim(logl(LOG_LEVEL_ERROR_DEF,__FILE__,__LINE__))//" ", +#define log_root_warn(format) if(logp(LOG_LEVEL_WARN_DEF,0))write(logu,format)trim(logl(LOG_LEVEL_WARN_DEF,__FILE__,__LINE__))//" ", +#define log_root_info(format) if(logp(LOG_LEVEL_INFO_DEF,0))write(logu,format)trim(logl(LOG_LEVEL_INFO_DEF,__FILE__,__LINE__))//" ", + +#ifdef DISABLE_LOG_DEBUG +#define log_root_debug(format) if(.false.)write(logu,format)trim(logl(LOG_LEVEL_DEBUG_DEF,__FILE__,__LINE__))//" ", +#else +#define log_root_debug(format) if(logp(LOG_LEVEL_DEBUG_DEF,0))write(logu,format)trim(logl(LOG_LEVEL_DEBUG_DEF,__FILE__,__LINE__))//" ", +#endif + +#ifdef ENABLE_LOG_TRACE +#define log_root_trace(format) if(logp(LOG_LEVEL_TRACE_DEF,0))write(logu,format)trim(logl(LOG_LEVEL_TRACE_DEF,__FILE__,__LINE__))//" ", +#else +#define log_root_trace(format) if(.false.)write(logu,format)trim(logl(LOG_LEVEL_TRACE_DEF,__FILE__,__LINE__))//" ", +#endif diff --git a/src/flogging.f90 b/src/flogging.f90 index 8daf15a..b98f960 100644 --- a/src/flogging.f90 +++ b/src/flogging.f90 @@ -1,8 +1,4 @@ !************************************************************** -! Copyright Daan van Vugt -! -! See README for usage information. -! ! This module contains a logging system intended for use in MPI ! codes, with facilities for colored output, log level filters, ! code location and date and time annotation. @@ -10,6 +6,7 @@ ! This software is governed by the MIT license, found in the ! file LICENSE. !************************************************************** +#include "flogging.h" module flogging use :: vt100 ! For color output @@ -24,16 +21,16 @@ module flogging implicit none ! Log levels - integer, public, parameter :: NUM_LOG_LEVELS = 6 - integer, public, parameter :: LOG_FATAL = 1,& !< Runtime error causing termination - LOG_ERROR = 2,& !< Runtime error - LOG_WARN = 3,& !< Warning, but we can continue - LOG_INFO = 4,& !< Interesting events - LOG_DEBUG = 5,& !< Detailed debug output, disable by compiling your program with -DDISABLE_LOG_DEBUG - LOG_TRACE = 6 !< Extremely detailed output, compile your program with -DENABLE_LOG_TRACE + integer, public, parameter :: NUM_LOG_LEVELS = 6 !< 1 through 6 (fatal through trace) + integer, public, parameter :: LOG_FATAL = LOG_LEVEL_FATAL_DEF !< = 1, Runtime error causing termination + integer, public, parameter :: LOG_ERROR = LOG_LEVEL_ERROR_DEF !< = 2, Runtime error + integer, public, parameter :: LOG_WARN = LOG_LEVEL_WARN_DEF !< = 3, Warning, but we can continue + integer, public, parameter :: LOG_INFO = LOG_LEVEL_INFO_DEF !< = 4, Interesting events + integer, public, parameter :: LOG_DEBUG = LOG_LEVEL_DEBUG_DEF !< = 5, Detailed debug output, disable by compiling your program with -DDISABLE_LOG_DEBUG + integer, public, parameter :: LOG_TRACE = LOG_LEVEL_TRACE_DEF !< = 6, Extremely detailed output, compile your program with -DENABLE_LOG_TRACE to enable - integer, public, save :: logu = stderr ! By default, log to stderr - integer, public, save :: minimum_log_level = 4 !< Note that more critical means a lower number + integer, public, save :: logu = stderr !< By default, log to stderr + integer, public, save :: minimum_log_level = LOG_INFO !< Note that more critical means a lower number public :: log_set_output_hostname @@ -105,21 +102,18 @@ end subroutine log_set_output_fileline !> Whether or not to skip the terminal check subroutine log_set_skip_terminal_check(bool) - implicit none logical, intent(in) :: bool skip_terminal_check = bool end subroutine log_set_skip_terminal_check !> Disable colors altogether subroutine log_set_disable_colors(bool) - implicit none logical, intent(in) :: bool disable_colors = bool end subroutine log_set_disable_colors !> Disable reading arguments from the commandline subroutine log_disable_cli_arguments() - implicit none cla_checked = .true. end subroutine @@ -133,7 +127,6 @@ function logp(level, only_n) #ifdef USE_MPI use mpi #endif - implicit none integer, intent(in) :: level !< The log level of the current message integer, intent(in), optional :: only_n !< Show only if the current mpi rank equals only_n @@ -143,6 +136,9 @@ function logp(level, only_n) integer :: rank, ierr #endif + ! Check command-line arguments if that has not been done yet + if (.not. cla_checked) call log_check_cli_arguments() + if (level .le. minimum_log_level) then logp = .true. else @@ -159,7 +155,6 @@ end function logp !> Write a log lead containing level and optional info !> The name is shortened to allow for longer log messages without needing continuations function logl(level, filename, linenum) - implicit none ! Input parameters integer :: level !< The log level character(len=*), optional :: filename !< An optional filename to add to the log lead @@ -175,9 +170,6 @@ function logl(level, filename, linenum) logical :: show_colors = .false. i = 1 - ! Check command-line arguments if that has not been done yet - if (.not. cla_checked) call log_check_cli_arguments() - ! Set level to 1 if it is too low, skip if too high if (level .lt. 1) level = 1 if (level .gt. minimum_log_level .or. level .gt. NUM_LOG_LEVELS) return @@ -253,14 +245,12 @@ end function logl !*** Utility functions (private) !> Return the hostname in a 50 character string function log_hostname() - implicit none character(len=50) log_hostname call hostnm(log_hostname) end function log_hostname !> Return n spaces function spaces(n) - implicit none integer, intent(in) :: n !< Maximum is 30 character(len=n) :: spaces spaces = " " @@ -268,7 +258,6 @@ end function spaces !> Return the severity level with colors etc in a 50 char string function log_severity(level, show_colors) - implicit none integer, intent(in) :: level logical, intent(in) :: show_colors character(len=50) log_severity @@ -300,7 +289,6 @@ end function log_severity !> Return the mpi id of the current process function log_mpi_id() use mpi - implicit none character(50) :: log_mpi_id !< The mpi id part of a log character(6) :: mpi_id_lj !< MPI id in string character(4) :: id_fmt !< The forhmat to print mpi_id_lj in @@ -320,7 +308,6 @@ end function log_mpi_id !> Return the current date, formatted nicely function log_datetime() - implicit none character(50) :: log_datetime !< Output the date here character(8) :: date @@ -343,8 +330,6 @@ end function log_datetime !> Check the command-line arguments to set the default logging level !> and color settings. subroutine log_check_cli_arguments() - implicit none - integer :: i,length,status character(len=32) :: arg @@ -353,12 +338,28 @@ subroutine log_check_cli_arguments() call get_command_argument(i,arg,length,status) if (status .eq. 0) then select case (trim(arg)) - case ("-v") - minimum_log_level = min(NUM_LOG_LEVELS,minimum_log_level+1) case ("--verbose") minimum_log_level = min(NUM_LOG_LEVELS,minimum_log_level+1) + case ("-v") + minimum_log_level = min(NUM_LOG_LEVELS,minimum_log_level+1) + case ("-vv") + minimum_log_level = min(NUM_LOG_LEVELS,minimum_log_level+2) + case ("-vvv") + minimum_log_level = min(NUM_LOG_LEVELS,minimum_log_level+3) + case ("-vvvv") + minimum_log_level = min(NUM_LOG_LEVELS,minimum_log_level+4) + case ("-vvvvv") + minimum_log_level = min(NUM_LOG_LEVELS,minimum_log_level+5) case ("-q") minimum_log_level = max(1,minimum_log_level-1) + case ("-qq") + minimum_log_level = max(1,minimum_log_level-2) + case ("-qqq") + minimum_log_level = max(1,minimum_log_level-3) + case ("-qqqq") + minimum_log_level = max(1,minimum_log_level-4) + case ("-qqqqq") + minimum_log_level = max(1,minimum_log_level-5) case ("--quiet") minimum_log_level = max(1,minimum_log_level-1) case ("--log-output-hostname") diff --git a/src/vt100.f90 b/src/vt100.f90 index 56dc1cd..65117d8 100644 --- a/src/vt100.f90 +++ b/src/vt100.f90 @@ -1,7 +1,9 @@ -!> This module sets terminal colors, boldness and other settings -!! Using ANSI/VT100 control sequences -!! See http://misc.flogisoft.com/bash/tip_colors_and_formatting for a list of sequences -!! This code is governed by the X11 license. See LICENSE for details. +!************************************************************************ +! This module sets terminal colors, boldness and other settings +! Using ANSI/VT100 control sequences +! See http://misc.flogisoft.com/bash/tip_colors_and_formatting for a list of sequences +! This code is governed by the MIT license. See LICENSE for details. +!************************************************************************ module vt100 implicit none ! Control start character diff --git a/tests/test.f90 b/tests/test.f90 index 4125a7c..b42ddf9 100644 --- a/tests/test.f90 +++ b/tests/test.f90 @@ -15,6 +15,6 @@ program test_log ! Enable date output call log_set_output_date(.true.) - log_error(*) "Error from thread 0 with line-info and mpi id and date" + log_error(*) "Error from thread 0 with date" end program