chars Function

private pure function chars(self) result(raw)

Type Bound

string

Arguments

Type IntentOptional Attributes Name
class(string), intent(in) :: self

Return Value character(kind=CK, len=:), allocatable


Called by

proc~~chars~2~~CalledByGraph proc~chars~2 string%chars proc~colorize_str~2 string%colorize_str proc~colorize_str~2->proc~chars~2 proc~glob_character~2 string%glob_character proc~glob_character~2->proc~chars~2 none~glob~2 string%glob proc~glob_character~2->none~glob~2 proc~read_file~2 string%read_file proc~read_file~2->proc~chars~2 proc~read_lines~2 string%read_lines proc~read_file~2->proc~read_lines~2 proc~read_line~2 string%read_line proc~read_line~2->proc~chars~2 proc~write_file~2 string%write_file proc~write_file~2->proc~chars~2 proc~write_lines~2 string%write_lines proc~write_file~2->proc~write_lines~2 proc~write_line~2 string%write_line proc~write_line~2->proc~chars~2 interface~glob~2 glob interface~glob~2->proc~glob_character~2 proc~glob_string~2 string%glob_string interface~glob~2->proc~glob_string~2 none~glob~2->proc~glob_character~2 none~glob~2->proc~glob_string~2 proc~glob_string~2->proc~read_file~2 proc~read_lines~2->proc~read_line~2 proc~write_lines~2->proc~write_line~2

Source Code

   pure function chars(self) result(raw)
   !< Return the raw characters data.
   !<
   !<```fortran
   !< type(string) :: astring
   !< astring = 'say all Hello WorLD!'
   !< print '(L1)', astring%chars()=='say all Hello WorLD!'
   !<```
   !=> T <<<
   class(string), intent(in)              :: self !< The string.
   character(kind=CK, len=:), allocatable :: raw  !< Raw characters data.

   if (allocated(self%raw)) then
     raw = self%raw
   else
     raw = ''
   endif
   endfunction chars