make_child_name Function

public function make_child_name(collection_name, rc) result(child_name)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: collection_name
integer, intent(out), optional :: rc

Return Value character(len=:), allocatable


Calls

proc~~make_child_name~~CallsGraph proc~make_child_name make_child_name proc~mapl_return MAPL_Return proc~make_child_name->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Called by

proc~~make_child_name~~CalledByGraph proc~make_child_name make_child_name proc~setservices~12 setServices proc~setservices~12->proc~make_child_name proc~test_make_child_name test_make_child_name proc~test_make_child_name->proc~make_child_name proc~setservices~13 setServices proc~setservices~13->proc~setservices~12

Source Code

   function make_child_name(collection_name, rc) result(child_name)
      character(len=:), allocatable :: child_name
      character(len=*), intent(in) :: collection_name
      integer, optional, intent(out) :: rc

      integer :: status
      integer :: i
      character(*), parameter :: ESCAPE = '\'

      child_name = ''
      do i = 1, len(collection_name)
         associate (c => collection_name(i:i))
           if (c == '.') then
              child_name = child_name // ESCAPE
           end if
           child_name = child_name // c
         end associate
     end do

      _RETURN(_SUCCESS)
   end function make_child_name