load_watch_table Subroutine

private subroutine load_watch_table(root, wt, ok)

Locate and return the [extra.fpm-watch] table from fpm.toml.

Returns ok=.false. when: - fpm.toml is missing, - the TOML cannot be read, - the extra table is absent, - the fpm-watch table is absent.

Arguments

Type IntentOptional Attributes Name
type(toml_table), intent(out), allocatable :: root
type(toml_table), intent(out), pointer :: wt
logical, intent(out) :: ok

Calls

proc~~load_watch_table~~CallsGraph proc~load_watch_table load_watch_table exists exists proc~load_watch_table->exists get_value get_value proc~load_watch_table->get_value read_package_file read_package_file proc~load_watch_table->read_package_file

Called by

proc~~load_watch_table~~CalledByGraph proc~load_watch_table load_watch_table proc~apply_watch_from_manifest apply_watch_from_manifest proc~apply_watch_from_manifest->proc~load_watch_table proc~get_restart_defaults get_restart_defaults proc~get_restart_defaults->proc~load_watch_table proc~parse_cli parse_cli proc~parse_cli->proc~apply_watch_from_manifest proc~parse_restart_flags parse_restart_flags proc~parse_restart_flags->proc~get_restart_defaults proc~maybe_supervise maybe_supervise proc~maybe_supervise->proc~parse_restart_flags proc~parse_cli_config parse_cli_config proc~parse_cli_config->proc~parse_cli

Source Code

   subroutine load_watch_table(root, wt, ok)
      type(toml_table), allocatable, intent(out) :: root
      type(toml_table), pointer, intent(out) :: wt
      logical, intent(out) :: ok

      type(toml_table), pointer :: extra
      type(error_t), allocatable :: err
      integer :: stat

      ok = .false.
      wt => null()
      extra => null()

      if (.not. exists("fpm.toml")) return

      call read_package_file(root, "fpm.toml", err)
      if (allocated(err)) return

      call get_value(root, "extra", extra, requested=.false., stat=stat)
      if (stat /= toml_stat%success) return
      if (.not. associated(extra)) return

      call get_value(extra, "fpm-watch", wt, requested=.false., stat=stat)
      if (stat /= toml_stat%success) return
      if (.not. associated(wt)) return

      ok = .true.
   end subroutine load_watch_table