type_string_setting Derived Type

type, private, extends(type_scalar_setting) :: type_string_setting

Inherits

Contents

Variables

long_name description backing_store_node path parent units has_default pvalue value default

Type-Bound Procedures

get_yaml_style create_child write_yaml get_comment get_maximum_depth as_string write_schema

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	public,	allocatable	::	long_name
character(len=:),	public,	allocatable	::	description
class(type_yaml_node),	public,	pointer	::	backing_store_node	=>	null()
character(len=:),	public,	allocatable	::	path
class(type_value),	public,	pointer	::	parent	=>	null()
character(len=:),	public,	allocatable	::	units
logical,	public		::	has_default	=	.false.
character(len=:),	public,	pointer	::	pvalue	=>	null()
character(len=:),	public,	allocatable	::	value
character(len=:),	public,	allocatable	::	default

Type-Bound Procedures

procedure, public :: get_yaml_style => value_get_yaml_style

private function value_get_yaml_style(self)

Arguments

Type Intent Optional Attributes Name

class(type_value), intent(in) :: self

Return Value integer

procedure, public :: create_child

private recursive function create_child(self) result(child)

Arguments

Type Intent Optional Attributes Name

class(type_value), intent(in) :: self

Return Value class(type_settings), pointer

procedure, public :: write_yaml => setting_write_yaml

private recursive subroutine setting_write_yaml(self, unit, indent, comment_depth, header)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_scalar_setting),	intent(in)			::	self
integer,	intent(in)			::	unit
integer,	intent(in)			::	indent
integer,	intent(in)			::	comment_depth
logical,	intent(in)			::	header

procedure, public :: get_comment => setting_get_comment

private recursive subroutine setting_get_comment(self, comment)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_scalar_setting),	intent(in)			::	self
character(len=:),	intent(inout),		allocatable	::	comment

procedure, public :: get_maximum_depth => setting_get_maximum_depth

private recursive function setting_get_maximum_depth(self, name) result(maxdepth)

Arguments

Type Intent Optional Attributes Name

class(type_scalar_setting), intent(in) :: self

character(len=*), intent(in) :: name

Return Value integer

procedure, public :: as_string => string_as_string

private function string_as_string(self, use_default) result(string)

Arguments

Type Intent Optional Attributes Name

class(type_string_setting), intent(in) :: self

logical, intent(in) :: use_default

Return Value character(len=:), allocatable

procedure, public :: write_schema => string_write_schema

private recursive subroutine string_write_schema(self, unit, name, indent)

Arguments

Type	Intent	Optional	Attributes		Name
class(type_string_setting),	intent(in)			::	self
integer,	intent(in)			::	unit
character(len=*),	intent(in)			::	name
integer,	intent(in)			::	indent