partition – FoXy

Variables

sep_ c temporary

Source Code

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 pure function partition(self, sep) result(partitions)

Arguments

Type	Intent	Optional	Attributes		Name
class(string),	intent(in)			::	self	The string.
character(kind=CK,len=*),	intent(in),	optional		::	sep	Separator.

Return Value type(string) (1:3)

after the separator.

Description

Split string at separator and return the 3 parts (before, the separator and after).

Variables

Type	Visibility	Attributes		Name
character(kind=CK,len=:),	public,	allocatable	::	sep_	Separator, default value.
integer,	public		::	c	Character counter.
character(kind=CK,len=:),	public,	allocatable	::	temporary	Temporary storage, workaround for GNU bug.

Source Code

  pure function partition(self, sep) result(partitions)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Split string at separator and return the 3 parts (before, the separator and after).
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string),             intent(in)           :: self            !< The string.
  character(kind=CK, len=*), intent(in), optional :: sep             !< Separator.
  type(string)                                    :: partitions(1:3) !< Partions: before the separator, the separator itsels and
                                                                     !< after the separator.
  character(kind=CK, len=:), allocatable          :: sep_            !< Separator, default value.
  integer                                         :: c               !< Character counter.
#ifdef __GFORTRAN__
  character(kind=CK, len=:), allocatable          :: temporary       !< Temporary storage, workaround for GNU bug.
#endif
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw)) then
    sep_ = SPACE ; if (present(sep)) sep_ = sep

    partitions(1) = self
    partitions(2) = sep_
    partitions(3) = ''
    if (len(sep_)>=len(self%raw)) return
    c = index(self%raw, sep_)
    if (c>0) then
#ifdef __GFORTRAN__
      temporary = self%raw
      partitions(1)%raw = temporary(1:c-1)
      partitions(2)%raw = temporary(c:c+len(sep_)-1)
      partitions(3)%raw = temporary(c+len(sep_):)
#else
      partitions(1)%raw = self%raw(1:c-1)
      partitions(2)%raw = self%raw(c:c+len(sep_)-1)
      partitions(3)%raw = self%raw(c+len(sep_):)
#endif
    endif
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction partition

partition Function

Variables

Source Code

All Procedures

private pure function partition(self, sep) result(partitions)

Arguments

Return Value type(string) (1:3)

Description

Variables

Source Code