stats_feature_t Derived Type

type, private, extends(watch_feature_t) :: stats_feature_t

A feature that counts how many command runs have completed.


Inherits

type~~stats_feature_t~~InheritsGraph type~stats_feature_t stats_feature_t type~watch_feature_t watch_feature_t type~stats_feature_t->type~watch_feature_t

Components

Type Visibility Attributes Name Initial
integer, public :: runs = 0

Type-Bound Procedures

procedure, public :: init => stats_init

procedure, public :: on_after_run => stats_after

  • private subroutine stats_after(self, exitstat, seconds)

    Update run counter after each completed command execution.

    Read more…

    Arguments

    Type IntentOptional Attributes Name
    class(stats_feature_t), intent(inout) :: self
    integer, intent(in) :: exitstat
    real, intent(in) :: seconds

procedure, public :: on_before_run => feat_before_noop

  • private subroutine feat_before_noop(self, cmd)

    No-op callback invoked just before executing the command.

    Arguments

    Type IntentOptional Attributes Name
    class(watch_feature_t), intent(inout) :: self
    character(len=:), intent(inout), allocatable :: cmd

procedure, public :: on_change_detected => feat_change_noop

  • private subroutine feat_change_noop(self, changed)

    No-op callback for detected file changes.

    Arguments

    Type IntentOptional Attributes Name
    class(watch_feature_t), intent(inout) :: self
    type(string_t), intent(in), allocatable :: changed(:)

procedure, public :: on_manifest_changed => feat_manifest_noop

  • private subroutine feat_manifest_noop(self, old_key, new_key)

    No-op callback for manifest key change.

    Arguments

    Type IntentOptional Attributes Name
    class(watch_feature_t), intent(inout) :: self
    integer(kind=int64), intent(in) :: old_key
    integer(kind=int64), intent(in) :: new_key

procedure, public :: on_start => feat_noop

  • private subroutine feat_noop(self)

    No-op start callback.

    Arguments

    Type IntentOptional Attributes Name
    class(watch_feature_t), intent(inout) :: self

procedure, public :: on_watch_list_built => feat_list_noop

  • private subroutine feat_list_noop(self, files, roots)

    No-op callback for watch list rebuild completion.

    Arguments

    Type IntentOptional Attributes Name
    class(watch_feature_t), intent(inout) :: self
    type(string_t), intent(inout), allocatable :: files(:)
    type(root_info_t), intent(inout), allocatable :: roots(:)

Source Code

   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