watch_feat_stats.f90 Source File

!> Example "stats" feature plugin.
!!
!! This feature demonstrates the plugin system by tracking the number of runs.
!! It currently does not print or export statistics; it simply increments an
!! internal counter after each run.
!!
!! The `exitstat` and `seconds` arguments are accepted to conform to the plugin
!! interface. Dummy references are used to prevent unused-argument warnings.
module watch_feat_stats
   use watch_feature_api, only: watch_feature_t
   use watch_types, only: watch_config_t
   use watch_log, only: log_info
   implicit none
   private
   public new_stats_feature

   !> A feature that counts how many command runs have completed.
   type, extends(watch_feature_t) :: stats_feature_t
      integer :: runs = 0
   contains
      procedure :: init         => stats_init
      procedure :: on_after_run => stats_after
   end type stats_feature_t

contains

   !> Allocate a new stats feature instance.
   subroutine new_stats_feature(f)
      class(watch_feature_t), allocatable, intent(out) :: f
      allocate(stats_feature_t :: f)
   end subroutine new_stats_feature

   !> Initialize the stats feature.
   !!
   !! Currently logs a single "feature enabled" message.
   subroutine stats_init(self, cfg)
      class(stats_feature_t), intent(inout) :: self
      type(watch_config_t), intent(in) :: cfg
      call log_info(cfg%w, "feature enabled: stats")
   end subroutine stats_init

   !> Update run counter after each completed command execution.
   !!
   !! The exit status and runtime are currently not used by this feature.
   subroutine stats_after(self, exitstat, seconds)
      class(stats_feature_t), intent(inout) :: self
      integer, intent(in) :: exitstat
      real, intent(in) :: seconds
      self%runs = self%runs + 1
      if (.false.) then
         if (exitstat /= 0) continue
         if (seconds < 0.0) continue
      end if
   end subroutine stats_after

end module watch_feat_stats