AbstractSocket.F90 Source File

module pFIO_AbstractSocketMod
   implicit none
   private

   public :: AbstractSocket

   type, abstract :: AbstractSocket
   contains
      procedure (receive), deferred :: receive
      procedure (send), deferred :: send

      procedure (put), deferred :: put
      procedure (get), deferred :: get
      procedure (to_string), deferred :: to_string
   end type AbstractSocket

   abstract interface


      function receive(this, rc) result(message)
         use pFIO_AbstractMessageMod
         import AbstractSocket
         implicit none
         class (AbstractMessage), pointer :: message
         class (AbstractSocket), intent(inout) :: this
         integer, optional, intent(out) :: rc
      end function receive


      subroutine send(this, message, rc)
         use pFIO_AbstractMessageMod
         import AbstractSocket
         implicit none
         class (AbstractSocket), target, intent(inout) :: this
         class (AbstractMessage), intent(in) :: message
         integer, optional, intent(out) :: rc
      end subroutine send


      function put(this, request_id, local_reference, rc) result(handle)
         use pFIO_AbstractDataReferenceMod
         use pFIO_AbstractRequestHandleMod
         import AbstractSocket
         class (AbstractRequestHandle), allocatable :: handle
         class (AbstractSocket), intent(inout) :: this
         integer, intent(in) :: request_id
         class (AbstractDataReference), intent(in) :: local_reference
         integer, optional, intent(out) :: rc
      end function put

      
      function get(this, request_id, local_reference, rc) result(handle)
         use pFIO_AbstractDataReferenceMod
         use pFIO_AbstractRequestHandleMod
         import AbstractSocket
         class (AbstractRequestHandle), allocatable :: handle
         class (AbstractSocket), target, intent(inout) :: this
         integer, intent(in) :: request_id
         class (AbstractDataReference), intent(in) :: local_reference
         integer, optional, intent(out) :: rc
      end function get


      function to_string(this) result(string)
         import AbstractSocket
         class (AbstractSocket), intent(in) :: this
         character(len=:), allocatable :: string
      end function to_string

   end interface

end module pFIO_AbstractSocketMod