Decode a string from the “JSON Pointer” RFC 6901 format.
It replaces ~1 with / and ~0 with ~.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(kind=CK, len=*), | intent(in) | :: | str |
pure function decode_rfc6901(str) result(str_out) implicit none character(kind=CK,len=*),intent(in) :: str character(kind=CK,len=:),allocatable :: str_out str_out = str call replace_string(str_out,tilde//CK_'1',slash) call replace_string(str_out,tilde//CK_'0',tilde) end function decode_rfc6901