Return a string encoded accordingly the codec.
Only BASE64 codec is currently available.
```fortran type(string) :: astring astring = 'How are you?' print '(A)', astring%encode(codec='base64')//'' ! print "SG93IGFyZSB5b3U/"
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(string), | intent(in) | :: | self | The string. |
||
| character(kind=CK,len=*), | intent(in) | :: | codec | Encoding codec. |
Encoded string.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
elemental function encode(self, codec) result(encoded)
!---------------------------------------------------------------------------------------------------------------------------------
!< Return a string encoded accordingly the codec.
!<
!< @note Only BASE64 codec is currently available.
!<
!<### Example
!<
!<```fortran
!< type(string) :: astring
!< astring = 'How are you?'
!< print '(A)', astring%encode(codec='base64')//'' ! print "SG93IGFyZSB5b3U/"
!---------------------------------------------------------------------------------------------------------------------------------
class(string), intent(in) :: self !< The string.
character(kind=CK, len=*), intent(in) :: codec !< Encoding codec.
type(string) :: encoded !< Encoded string.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
if (allocated(self%raw)) then
encoded = codec
select case(encoded%upper()//'')
case('BASE64')
call b64_encode(s=self%raw, code=encoded%raw)
endselect
endif
return
!---------------------------------------------------------------------------------------------------------------------------------
endfunction encode