unique – FoXy

Variables

substring_

Source Code

unique

All Procedures

add_multiple_attributes add_single_attribute add_stream_attributes add_tag adjustl adjustr alloc_attributes assign_tag attributes autotest b64_decode b64_decode_I1 b64_decode_I1_a b64_decode_I2 b64_decode_I2_a b64_decode_I4 b64_decode_I4_a b64_decode_I8 b64_decode_I8_a b64_decode_R16 b64_decode_R16_a b64_decode_R4 b64_decode_R4_a b64_decode_R8 b64_decode_R8_a b64_decode_string b64_decode_string_a b64_decode_up b64_decode_up b64_decode_up_a b64_encode b64_encode_I1 b64_encode_I1_a b64_encode_I2 b64_encode_I2_a b64_encode_I4 b64_encode_I4_a b64_encode_I8 b64_encode_I8_a b64_encode_R16 b64_encode_R16_a b64_encode_R4 b64_encode_R4_a b64_encode_R8 b64_encode_R8_a b64_encode_string b64_encode_string_a b64_encode_up b64_encode_up b64_encode_up_a b64_init basedir basename bctoi_I1P bctoi_I2P bctoi_I4P bctoi_I8P bcton bctor_R16P bctor_R4P bctor_R8P bit_size bit_size bit_size_chr bit_size_R16P bit_size_R4P bit_size_R8P bstr bstr_I1P bstr_I2P bstr_I4P bstr_I8P bstr_R16P bstr_R4P bstr_R8P byte_size byte_size_chr byte_size_I1P byte_size_I2P byte_size_I4P byte_size_I8P byte_size_R16P byte_size_R4P byte_size_R8P camelcase capitalize character_concat_string character_concat_string_string character_eq_string character_ge_string character_gt_string character_le_string character_lt_string character_ne_string chars check_endian compact_real_string content content count count_substring create_tag_flat create_tag_nested ctoi_I1P ctoi_I2P ctoi_I4P ctoi_I8P cton ctor_R16P ctor_R4P ctor_R8P decode decode_bits delete_content delete_multiple_attributes delete_single_attribute delete_tag digit digit_I1 digit_I2 digit_I4 digit_I8 encode encode_bits end_tag end_with escape extension fill finalize finalize free free free get get_attributes get_decimal_mode get_delimiter_mode get_next_non_blank_character_any_record get_next_non_blank_character_this_record get_value index insert_character insert_string is_allocated is_attribute_present is_digit is_integer is_lower is_number is_parsed is_real is_upper join_characters join_strings len len_trim load_file_as_stream lower name pack_data pack_data_I1_I2 pack_data_I1_I4 pack_data_I1_I8 pack_data_I1_R4 pack_data_I1_R8 pack_data_I2_I1 pack_data_I2_I4 pack_data_I2_I8 pack_data_I2_R4 pack_data_I2_R8 pack_data_I4_I1 pack_data_I4_I2 pack_data_I4_I8 pack_data_I4_R4 pack_data_I4_R8 pack_data_I8_I1 pack_data_I8_I2 pack_data_I8_I4 pack_data_I8_R4 pack_data_I8_R8 pack_data_R4_I1 pack_data_R4_I2 pack_data_R4_I4 pack_data_R4_I8 pack_data_R4_R8 pack_data_R8_I1 pack_data_R8_I2 pack_data_R8_I4 pack_data_R8_I8 pack_data_R8_R4 parse parse parse_attributes_names parse_from_string parse_tag_name partition penf_init penf_print read_delimited read_file read_file read_formatted read_line read_lines read_lines read_undelimited read_undelimited_listdirected read_unformatted repeat replace replace_one_occurrence reverse sadjustl sadjustl_character sadjustr sadjustr_character scan scount search search self_closing_tag set sindex_character_string sindex_string_character sindex_string_string slen slen_trim slice snakecase split srepeat_character_string srepeat_string_string sscan_character_string sscan_string_character sscan_string_string start_tag start_with startcase str str_a_I1P str_a_I2P str_a_I4P str_a_I8P str_a_R16P str_a_R4P str_a_R8P str_bol str_I1P str_I2P str_I4P str_I8P str_R16P str_R4P str_R8P strf_I1P strf_I2P strf_I4P strf_I8P strf_R16P strf_R4P strf_R8P strim string_assign_character string_assign_integer_I1P string_assign_integer_I2P string_assign_integer_I4P string_assign_integer_I8P string_assign_real_R16P string_assign_real_R4P string_assign_real_R8P string_assign_string string_concat_character string_concat_character_string string_concat_string string_concat_string_string string_eq_character string_eq_string string_ge_character string_ge_string string_gt_character string_gt_string string_le_character string_le_string string_lt_character string_lt_string string_ne_character string_ne_string stringify stringify strip strz strz_I1P strz_I2P strz_I4P strz_I8P sverify swapcase to_integer_I1P to_integer_I2P to_integer_I4P to_integer_I8P to_real_R16P to_real_R4P to_real_R8P trim unescape unique upper write_file write_file write_formatted write_line write_lines write_lines write_tag write_unformatted xml_tag

private elemental function unique(self, substring) result(uniq)

Arguments

Type	Intent	Optional	Attributes		Name
class(string),	intent(in)			::	self	The string.
character(kind=CK,len=*),	intent(in),	optional		::	substring	Substring which multiple occurences must be reduced to one.

Return Value type(string)

String parsed.

Description

Reduce to one (unique) multiple (sequential) occurrences of a substring into a string.

For example the string ' ab-cre-cre-ab' is reduce to 'ab-cre-ab' if the substring is '-cre'.

Note

Eventual multiple trailing white space are not reduced to one occurrence.

Variables

Type	Visibility	Attributes		Name		Initial
character(kind=CK,len=:),	public,	allocatable	::	substring_			Substring, default value.

Source Code

  elemental function unique(self, substring) result(uniq)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Reduce to one (unique) multiple (sequential) occurrences of a substring into a string.
  !<
  !< For example the string ' ab-cre-cre-ab' is reduce to 'ab-cre-ab' if the substring is '-cre'.
  !< @note Eventual multiple trailing white space are not reduced to one occurrence.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string),             intent(in)           :: self       !< The string.
  character(kind=CK, len=*), intent(in), optional :: substring  !< Substring which multiple occurences must be reduced to one.
  character(kind=CK, len=:), allocatable          :: substring_ !< Substring, default value.
  type(string)                                    :: uniq       !< String parsed.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw)) then
    substring_ = SPACE ; if (present(substring)) substring_ = substring

    uniq = self
    do
      if (.not.uniq%index(repeat(substring_, 2))>0) exit
      uniq = uniq%replace(old=repeat(substring_, 2), new=substring_)
    enddo
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction unique

unique Function

Variables

Source Code

All Procedures

private elemental function unique(self, substring) result(uniq)

Arguments

Return Value type(string)

Description

Note

Variables

Source Code