profile_config_t Derived Type

type, public, extends(serializable_t) :: profile_config_t

Configuration meta data for a profile (now based on features)


Components

Type Visibility Attributes Name Initial
type(file_scope_flag), public, allocatable :: file_scope_flags(:)

File scope flags (maintained for backwards compatibility)
type(feature_config_t), public :: profile_feature

Profile feature - contains all profile configuration

Type-Bound Procedures

procedure, public :: c_flags => get_profile_c_flags

  • public function get_profile_c_flags(self) result(c_flags)

    Get C flags

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value character(len=:), allocatable

procedure, public :: compiler => get_profile_compiler

  • public function get_profile_compiler(self) result(compiler)

    Get compiler name

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value character(len=:), allocatable

procedure, public :: cxx_flags => get_profile_cxx_flags

  • public function get_profile_cxx_flags(self) result(cxx_flags)

    Get C++ flags

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value character(len=:), allocatable

generic, public :: dump => dump_to_toml, dump_to_file, dump_to_unit

  • private subroutine srcfile_dump_to_toml(self, table, error)

    Dump dependency to toml table

    Arguments

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

    Instance of the serializable object
    type(toml_table), intent(inout) :: table

    Data structure
    type(error_t), intent(out), allocatable :: error

    Error handling

  • private subroutine dump_to_file(self, file, error, json)

    Write serializable object to file

    Arguments

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

    Instance of the dependency tree
    character(len=*), intent(in) :: file

    File name
    type(error_t), intent(out), allocatable :: error

    Error handling
    logical, intent(in), optional :: json

    Optional JSON format

  • private subroutine dump_to_unit(self, unit, error, json)

    Write serializable object to a formatted Fortran unit

    Arguments

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

    Instance of the dependency tree
    integer, intent(in) :: unit

    Formatted unit
    type(error_t), intent(out), allocatable :: error

    Error handling
    logical, intent(in), optional :: json

    Optional JSON format requested?

procedure, public :: dump_to_toml => profile_dump

  • public subroutine profile_dump(self, table, error)

    Dump to toml table

    Read more…

    Arguments

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

    Instance of the serializable object
    type(toml_table), intent(inout) :: table

    Data structure
    type(error_t), intent(out), allocatable :: error

    Error handling

procedure, public :: flags => get_profile_flags

  • public function get_profile_flags(self) result(flags)

    Get flags

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value character(len=:), allocatable

procedure, public :: info

Print information on this instance

  • public subroutine info(self, unit, verbosity)

    Write information on instance

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Instance of the profile configuration
    integer, intent(in) :: unit

    Unit for IO
    integer, intent(in), optional :: verbosity

    Verbosity of the printout

procedure, public :: is_built_in => get_profile_is_built_in

  • public function get_profile_is_built_in(self) result(is_built_in)

    Get is_built_in flag (maps to feature default flag)

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value logical

procedure, public :: link_time_flags => get_profile_link_time_flags

  • public function get_profile_link_time_flags(self) result(link_time_flags)

    Get link time flags

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value character(len=:), allocatable

generic, public :: load => load_from_toml, load_from_file, load_from_unit

  • private subroutine srcfile_load_from_toml(self, table, error)

    Read dependency from toml table (no checks made at this stage)

    Arguments

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

    Instance of the serializable object
    type(toml_table), intent(inout) :: table

    Data structure
    type(error_t), intent(out), allocatable :: error

    Error handling

  • private subroutine load_from_file(self, file, error, json)

    Read dependency tree from file

    Arguments

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

    Instance of the dependency tree
    character(len=*), intent(in) :: file

    File name
    type(error_t), intent(out), allocatable :: error

    Error handling
    logical, intent(in), optional :: json

    Optional JSON format

  • private subroutine load_from_unit(self, unit, error, json)

    Read dependency tree from file init JSON interpreter Read object from TOML table

    use default TOML parser

    Read object from TOML table

    Arguments

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

    Instance of the dependency tree
    integer, intent(in) :: unit

    File name
    type(error_t), intent(out), allocatable :: error

    Error handling
    logical, intent(in), optional :: json

    Optional JSON format

procedure, public :: load_from_toml => profile_load

  • public subroutine profile_load(self, table, error)

    Read from toml table (no checks made at this stage)

    Read more…

    Arguments

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

    Instance of the serializable object
    type(toml_table), intent(inout) :: table

    Data structure
    type(error_t), intent(out), allocatable :: error

    Error handling

generic, public :: operator(==) => serializable_is_same

  • private function srcfile_is_same(this, that)

    Check that two source files are equal All checks passed!

    Arguments

    Type IntentOptional Attributes Name
    class(srcfile_t), intent(in) :: this
    class(serializable_t), intent(in) :: that

    Return Value logical

procedure, public :: os_type => get_profile_os_type

  • public function get_profile_os_type(self) result(os_type)

    Get OS type

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value integer

procedure, public :: profile_name => get_profile_name

Convenience accessors for backward compatibility

  • public function get_profile_name(self) result(name)

    Convenience accessor procedures for backward compatibility Get profile name

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: self

    Return Value character(len=:), allocatable

procedure, public :: serializable_is_same => profile_same

Serialization interface

  • public function profile_same(this, that)

    All checks passed!

    Arguments

    Type IntentOptional Attributes Name
    class(profile_config_t), intent(in) :: this
    class(serializable_t), intent(in) :: that

    Return Value logical

procedure, public, non_overridable :: test_serialization

Test load/write roundtrip

  • private subroutine test_serialization(self, message, error)

    Test serialization of a serializable object Dump to scratch file Load from scratch file Check same

    Arguments

    Type IntentOptional Attributes Name
    class(serializable_t), intent(inout) :: self
    character(len=*), intent(in) :: message
    type(error_t), intent(out), allocatable :: error

Source Code

    type, extends(serializable_t) :: profile_config_t
        
      !> Profile feature - contains all profile configuration
      type(feature_config_t) :: profile_feature

      !> File scope flags (maintained for backwards compatibility)
      type(file_scope_flag), allocatable :: file_scope_flags(:)

      contains

        !> Print information on this instance
        procedure :: info

        !> Serialization interface
        procedure :: serializable_is_same => profile_same
        procedure :: dump_to_toml => profile_dump
        procedure :: load_from_toml => profile_load

        !> Convenience accessors for backward compatibility
        procedure :: profile_name => get_profile_name
        procedure :: compiler => get_profile_compiler
        procedure :: os_type => get_profile_os_type  
        procedure :: flags => get_profile_flags
        procedure :: c_flags => get_profile_c_flags
        procedure :: cxx_flags => get_profile_cxx_flags
        procedure :: link_time_flags => get_profile_link_time_flags
        procedure :: is_built_in => get_profile_is_built_in

    end type profile_config_t