forgex_character_array_m Module


Derived Types

type, public ::  character_array_t

This derived-type contains single UTF-8 character and two flags. It will be used to parse character class patterns enclosed in square brackets. is_escaped is true when the character has preceding backslash. is_hyphenated is true when the character has following hyphen except for First character. seg_size is the number of segments the component represents, which is 1 for normal characters and greater than 1 for most shorthand escape sequences.

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: c
logical, public :: is_escaped = .false.
logical, public :: is_hyphenated = .false.
logical, public :: is_subtract = .false.
integer, public :: seg_size = 0

Functions

private pure function index_ca(ca, chara) result(idx)

Arguments

Type IntentOptional Attributes Name
type(character_array_t), intent(in) :: ca(:)
character(len=*), intent(in) :: chara

Return Value integer


Subroutines

public pure subroutine character_string_to_array(str, array)

This subroutine parses a pattern string for character class, and outputs character_array_t type array. When it encounters invalid value along the way, it returns.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str
type(character_array_t), intent(inout), allocatable :: array(:)

public pure subroutine parse_backslash_and_hyphen_in_char_array(array, ierr)

This subroutine processes a character array, and outputs the corresponding flagged array. It removes backslash and hyphen characters, and then flags the current element in character_array_t type array.

Arguments

Type IntentOptional Attributes Name
type(character_array_t), intent(inout), allocatable :: array(:)
integer, intent(inout) :: ierr

public pure subroutine parse_escape_sequence_with_argument(ca, ierr)

Arguments

Type IntentOptional Attributes Name
type(character_array_t), intent(inout), allocatable :: ca(:)
integer, intent(inout) :: ierr

public pure subroutine parse_segment_width_in_char_array(array)

This subroutine assigns the expected segment size from the character c of the current array element to its seg_size.

Arguments

Type IntentOptional Attributes Name
type(character_array_t), intent(inout) :: array(:)