sscan_string_string Function

  1. stringifor_string_t.F90
  2. stringifor_string_t
  3. sscan_string_string

public elemental function sscan_string_string(self, set, back) result(i)

Arguments

Type IntentOptional AttributesName
class(string), intent(in) :: self

The string.
type(string), intent(in) :: set

Searched set.
logical, intent(in), optional :: back

Start of the last occurrence rather than the first.

Return Value integer

Result of the search.

Description

Return the leftmost (if back is either absent or equals false, otherwise the rightmost) character of string that is in set.

Called By

proc~~sscan_string_string~~CalledByGraph proc~sscan_string_string sscan_string_string interface~scan scan interface~scan->proc~sscan_string_string
Help

Source Code

  elemental function sscan_string_string(self, set, back) result(i)
  !---------------------------------------------------------------------------------------------------------------------------------
  !< Return the leftmost (if `back` is either absent or equals false, otherwise the rightmost) character of string that is in `set`.
  !---------------------------------------------------------------------------------------------------------------------------------
  class(string), intent(in)           :: self  !< The string.
  type(string),  intent(in)           :: set   !< Searched set.
  logical,       intent(in), optional :: back  !< Start of the last occurrence rather than the first.
  integer                             :: i     !< Result of the search.
  !---------------------------------------------------------------------------------------------------------------------------------

  !---------------------------------------------------------------------------------------------------------------------------------
  if (allocated(self%raw).and.allocated(set%raw)) then
    i = scan(string=self%raw, set=set%raw, back=back)
  else
    i = 0
  endif
  return
  !---------------------------------------------------------------------------------------------------------------------------------
  endfunction sscan_string_string