next_idxutf8 Function

public pure function next_idxutf8(str, curr) result(res)

Uses

This function returns the index of the next character, given the string str and the current index curr. If the current index is for the last character, it returns the invalid value.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str
integer, intent(in) :: curr

Return Value integer


Source Code

   pure function next_idxutf8(str, curr) result(res)
      use :: forgex_parameters_m
      implicit none
      character(*), intent(in) :: str
      integer, intent(in) :: curr
      
      integer :: res
      integer :: curr_end

      curr_end = idxutf8(str, curr)

      if (curr_end /= INVALID_CHAR_INDEX) then
         res = curr_end + 1
      else
         res = INVALID_CHAR_INDEX
      end if
      
   end function next_idxutf8