PluginGuestSendF Function

private function PluginGuestSendF(value)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: value

Return Value logical


Source Code

    FUNCTION PluginGuestSendF(value)
        LOGICAL :: PluginGuestSendF
        CHARACTER(*), INTENT(in) :: value
        CHARACTER(kind=c_char), DIMENSION(:), ALLOCATABLE :: cstring
        INTEGER :: i
        allocate(cstring(LEN_TRIM(value) + 1))
        DO i = 1, LEN_TRIM(value)
            cstring(i) = value(i:i)
        END DO
        cstring(LEN_TRIM(value) + 1) = c_null_char
        PluginGuestSendF = PluginGuestSend(cstring) /= 0
        DEallocate(cstring)
    END FUNCTION PluginGuestSendF