fill – FoXy

Variables

right_ filling_char_

Source Code

fill

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 fill(self, width, right, filling_char) result(filled)

Arguments

Type	Intent	Optional		Name
class(string),	intent(in)		::	self	The string.
integer,	intent(in)		::	width	Final width of filled string.
logical,	intent(in),	optional	::	right	Fill on the right instead of left.
character(kind=CK,len=1),	intent(in),	optional	::	filling_char	Filling character (default "0").

Return Value type(string)

Filled string.

Description

Pad string on the left (or right) with zeros (or other char) to fill width.

Variables

Type	Visibility	Attributes		Name		Initial
logical,	public		::	right_			Fill on the right instead of left, local variable.
character(kind=CK,len=1),	public		::	filling_char_			Filling character (default "0"), local variable.

Source Code

  elemental function fill(self, width, right, filling_char) result(filled)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Pad string on the left (or right) with zeros (or other char) to fill width.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string),             intent(in)           :: self          !< The string.
  integer,                   intent(in)           :: width         !< Final width of filled string.
  logical,                   intent(in), optional :: right         !< Fill on the right instead of left.
  character(kind=CK, len=1), intent(in), optional :: filling_char  !< Filling character (default "0").
  type(string)                                    :: filled        !< Filled string.
  logical                                         :: right_        !< Fill on the right instead of left, local variable.
  character(kind=CK, len=1)                       :: filling_char_ !< Filling character (default "0"), local variable.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw)) then
    if (width>len(self%raw)) then
      right_ = .false. ; if (present(right)) right_ = right
      filling_char_ = '0' ; if (present(filling_char)) filling_char_ = filling_char
      if (.not.right_) then
        filled%raw = repeat(filling_char_, width-len(self%raw))//self%raw
      else
        filled%raw = self%raw//repeat(filling_char_, width-len(self%raw))
      endif
    endif
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction fill

fill Function

Variables

Source Code

All Procedures

private elemental function fill(self, width, right, filling_char) result(filled)

Arguments

Return Value type(string)

Description

Variables

Source Code