sourcery_string

Uses

- assert_m
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

- Descendants:
- sourcery_string_s
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Interfaces

interface

public pure module function array_of_strings(delimited_strings, delimiter) result(strings_array)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	delimited_strings
character(len=*),	intent(in)			::	delimiter

Return Value type(string_t), allocatable, (:)

public interface operator(.cat.)

private pure module function concatenate_elements(strings) result(concatenated_strings)

Arguments

Type	Intent	Optional	Attributes		Name
type(string_t),	intent(in)			::	strings(:)

Return Value type(string_t)

public interface string_t

private elemental module function construct(string) result(new_string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	string

Return Value type(string_t)

private elemental module function from_default_integer(i) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	i

Return Value type(string_t)

private elemental module function from_real(x) result(string)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	x

Return Value type(string_t)

interface

private pure module function as_character(self) result(raw_string)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	self

Return Value character(len=:), allocatable

interface

private pure module subroutine assign_character_to_string_t(lhs, rhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(inout)			::	lhs
character(len=*),	intent(in)			::	rhs

interface

private pure module subroutine assign_string_t_to_character(lhs, rhs)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=:),	intent(out),		allocatable	::	lhs
class(string_t),	intent(in)			::	rhs

interface

private pure module function base_name(self) result(base)

result contains all characters in file_name before the last dot (.)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	self

Return Value type(string_t)

interface

private pure module function character_cat_string_t(lhs, rhs) result(lhs_cat_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lhs
class(string_t),	intent(in)			::	rhs

Return Value type(string_t)

interface

private elemental module function character_eq_string_t(lhs, rhs) result(lhs_eq_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lhs
class(string_t),	intent(in)			::	rhs

Return Value logical

interface

private elemental module function character_ne_string_t(lhs, rhs) result(lhs_ne_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	lhs
class(string_t),	intent(in)			::	rhs

Return Value logical

interface

private elemental module function file_extension(self) result(extension)

result contains all characters in file_name after the last dot (.)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	self

Return Value type(string_t)

interface

private pure module function get_json_integer(self, key, mold) result(value_)

Arguments

Type	Intent		Name
class(string_t),	intent(in)	::	self
class(string_t),	intent(in)	::	key
integer,	intent(in)	::	mold

Return Value integer

interface

private pure module function get_json_integer_array(self, key, mold) result(value_)

Arguments

Type	Intent		Name
class(string_t),	intent(in)	::	self
class(string_t),	intent(in)	::	key
integer,	intent(in)	::	mold(:)

Return Value integer, allocatable, (:)

interface

private elemental module function get_json_key(self) result(unquoted_key)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	self

Return Value type(string_t)

interface

private elemental module function get_json_logical(self, key, mold) result(value_)

Arguments

Type	Intent		Name
class(string_t),	intent(in)	::	self
class(string_t),	intent(in)	::	key
logical,	intent(in)	::	mold

Return Value logical

interface

private pure module function get_json_real(self, key, mold) result(value_)

Arguments

Type	Intent		Name
class(string_t),	intent(in)	::	self
class(string_t),	intent(in)	::	key
real,	intent(in)	::	mold

Return Value real

interface

private pure module function get_json_real_array(self, key, mold) result(value_)

Arguments

Type	Intent		Name
class(string_t),	intent(in)	::	self
class(string_t),	intent(in)	::	key
real,	intent(in)	::	mold(:)

Return Value real, allocatable, (:)

interface

private elemental module function get_json_string(self, key, mold) result(value_)

Arguments

Type	Intent		Name
class(string_t),	intent(in)	::	self
class(string_t),	intent(in)	::	key
class(string_t),	intent(in)	::	mold

Return Value type(string_t)

interface

private elemental module function is_allocated(self) result(string_allocated)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	self

Return Value logical

interface

private pure module function string_t_cat_character(lhs, rhs) result(lhs_cat_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	lhs
character(len=*),	intent(in)			::	rhs

Return Value type(string_t)

interface

private pure module function string_t_cat_string_t(lhs, rhs) result(lhs_cat_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	lhs
class(string_t),	intent(in)			::	rhs

Return Value type(string_t)

interface

private elemental module function string_t_eq_character(lhs, rhs) result(lhs_eq_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	lhs
character(len=*),	intent(in)			::	rhs

Return Value logical

interface

private elemental module function string_t_eq_string_t(lhs, rhs) result(lhs_eq_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	lhs
class(string_t),	intent(in)			::	rhs

Return Value logical

interface

private elemental module function string_t_ne_character(lhs, rhs) result(lhs_ne_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	lhs
character(len=*),	intent(in)			::	rhs

Return Value logical

interface

private elemental module function string_t_ne_string_t(lhs, rhs) result(lhs_ne_rhs)

Arguments

Type	Intent	Optional	Attributes		Name
class(string_t),	intent(in)			::	lhs
class(string_t),	intent(in)			::	rhs

Return Value logical

Derived Types

type, public, extends(characterizable_t) :: string_t

Components

Type	Visibility	Attributes		Name		Initial
character(len=:),	private,	allocatable	::	string_

Constructor

private elemental, module function construct (string)
private elemental, module function from_default_integer (i)
private elemental, module function from_real (x)

Type-Bound Procedures

procedure, public :: as_character
generic, public :: assignment(= ) => assign_string_t_to_character, assign_character_to_string_t
procedure, public :: base_name
procedure, public :: file_extension
procedure, public :: get_json_key
generic, public :: get_json_value => get_json_integer_array, get_json_logical, get_json_integer, get_json_string, get_json_real, get_json_real_array
procedure, public :: is_allocated
generic, public :: operator(//) => string_t_cat_string_t, string_t_cat_character, character_cat_string_t
generic, public :: operator(/=) => string_t_ne_string_t, string_t_ne_character, character_ne_string_t
generic, public :: operator(==) => string_t_eq_string_t, string_t_eq_character, character_eq_string_t
generic, public :: string => as_character
procedure, private :: assign_character_to_string_t
procedure, private, pass(rhs) :: assign_string_t_to_character
procedure, private, pass(rhs) :: character_cat_string_t
procedure, private, pass(rhs) :: character_eq_string_t
procedure, private, pass(rhs) :: character_ne_string_t
procedure, private :: get_json_integer
procedure, private :: get_json_integer_array
procedure, private :: get_json_logical
procedure, private :: get_json_real
procedure, private :: get_json_real_array
procedure, private :: get_json_string
procedure, private :: string_t_cat_character
procedure, private :: string_t_cat_string_t
procedure, private :: string_t_eq_character
procedure, private :: string_t_eq_string_t
procedure, private :: string_t_ne_character
procedure, private :: string_t_ne_string_t

sourcery_string_m Module

Contents

Interfaces

Derived Types

Uses

Used by

Descendants:

Interfaces

interface

public pure module function array_of_strings(delimited_strings, delimiter) result(strings_array) Implementation →

Arguments

Return Value type(string_t), allocatable, (:)

public interface operator(.cat.)

private pure module function concatenate_elements(strings) result(concatenated_strings) Implementation →

Arguments

Return Value type(string_t)

public interface string_t

private elemental module function construct(string) result(new_string) Implementation →

Arguments

Return Value type(string_t)

private elemental module function from_default_integer(i) result(string) Implementation →

Arguments

Return Value type(string_t)

private elemental module function from_real(x) result(string) Implementation →

Arguments

Return Value type(string_t)

interface

private pure module function as_character(self) result(raw_string) Implementation →

Arguments

Return Value character(len=:), allocatable

interface

private pure module subroutine assign_character_to_string_t(lhs, rhs) Implementation →

Arguments

interface

private pure module subroutine assign_string_t_to_character(lhs, rhs) Implementation →

Arguments

interface

private pure module function base_name(self) result(base) Implementation →

Arguments

Return Value type(string_t)

interface

private pure module function character_cat_string_t(lhs, rhs) result(lhs_cat_rhs) Implementation →

Arguments

Return Value type(string_t)

interface

private elemental module function character_eq_string_t(lhs, rhs) result(lhs_eq_rhs) Implementation →

Arguments

Return Value logical

interface

private elemental module function character_ne_string_t(lhs, rhs) result(lhs_ne_rhs) Implementation →

Arguments

Return Value logical

interface

private elemental module function file_extension(self) result(extension) Implementation →

Arguments

Return Value type(string_t)

interface

private pure module function get_json_integer(self, key, mold) result(value_) Implementation →

Arguments

Return Value integer

interface

private pure module function get_json_integer_array(self, key, mold) result(value_) Implementation →

Arguments

Return Value integer, allocatable, (:)

interface

private elemental module function get_json_key(self) result(unquoted_key) Implementation →

Arguments

Return Value type(string_t)

interface

private elemental module function get_json_logical(self, key, mold) result(value_) Implementation →

Arguments

Return Value logical

interface

private pure module function get_json_real(self, key, mold) result(value_) Implementation →

Arguments

Return Value real

interface

private pure module function get_json_real_array(self, key, mold) result(value_) Implementation →

Arguments

Return Value real, allocatable, (:)

public pure module function array_of_strings(delimited_strings, delimiter) result(strings_array)

private pure module function concatenate_elements(strings) result(concatenated_strings)

private elemental module function construct(string) result(new_string)

private elemental module function from_default_integer(i) result(string)

private elemental module function from_real(x) result(string)

private pure module function as_character(self) result(raw_string)

private pure module subroutine assign_character_to_string_t(lhs, rhs)

private pure module subroutine assign_string_t_to_character(lhs, rhs)

private pure module function base_name(self) result(base)

private pure module function character_cat_string_t(lhs, rhs) result(lhs_cat_rhs)

private elemental module function character_eq_string_t(lhs, rhs) result(lhs_eq_rhs)

private elemental module function character_ne_string_t(lhs, rhs) result(lhs_ne_rhs)

private elemental module function file_extension(self) result(extension)

private pure module function get_json_integer(self, key, mold) result(value_)

private pure module function get_json_integer_array(self, key, mold) result(value_)

private elemental module function get_json_key(self) result(unquoted_key)

private elemental module function get_json_logical(self, key, mold) result(value_)

private pure module function get_json_real(self, key, mold) result(value_)

private pure module function get_json_real_array(self, key, mold) result(value_)

private elemental module function get_json_string(self, key, mold) result(value_)

private elemental module function is_allocated(self) result(string_allocated)

private pure module function string_t_cat_character(lhs, rhs) result(lhs_cat_rhs)

private pure module function string_t_cat_string_t(lhs, rhs) result(lhs_cat_rhs)

private elemental module function string_t_eq_character(lhs, rhs) result(lhs_eq_rhs)

private elemental module function string_t_eq_string_t(lhs, rhs) result(lhs_eq_rhs)

private elemental module function string_t_ne_character(lhs, rhs) result(lhs_ne_rhs)

private elemental module function string_t_ne_string_t(lhs, rhs) result(lhs_ne_rhs)