DummyMessage.F90 Source File


This file depends on

sourcefile~~dummymessage.f90~~EfferentGraph sourcefile~dummymessage.f90 DummyMessage.F90 sourcefile~abstractmessage.f90 AbstractMessage.F90 sourcefile~dummymessage.f90->sourcefile~abstractmessage.f90 sourcefile~mapl_exceptionhandling.f90 MAPL_ExceptionHandling.F90 sourcefile~dummymessage.f90->sourcefile~mapl_exceptionhandling.f90 sourcefile~abstractmessage.f90->sourcefile~mapl_exceptionhandling.f90 sourcefile~mapl_errorhandling.f90 MAPL_ErrorHandling.F90 sourcefile~mapl_exceptionhandling.f90->sourcefile~mapl_errorhandling.f90 sourcefile~mapl_throw.f90 MAPL_Throw.F90 sourcefile~mapl_exceptionhandling.f90->sourcefile~mapl_throw.f90 sourcefile~mapl_errorhandling.f90->sourcefile~mapl_throw.f90

Files dependent on this one

sourcefile~~dummymessage.f90~~AfferentGraph sourcefile~dummymessage.f90 DummyMessage.F90 sourcefile~abstractserver.f90 AbstractServer.F90 sourcefile~abstractserver.f90->sourcefile~dummymessage.f90 sourcefile~baseserver.f90 BaseServer.F90 sourcefile~baseserver.f90->sourcefile~dummymessage.f90 sourcefile~clientthread.f90 ClientThread.F90 sourcefile~clientthread.f90->sourcefile~dummymessage.f90 sourcefile~messagevisitor.f90 MessageVisitor.F90 sourcefile~messagevisitor.f90->sourcefile~dummymessage.f90 sourcefile~mocksocket.f90 MockSocket.F90 sourcefile~mocksocket.f90->sourcefile~dummymessage.f90 sourcefile~protocolparser.f90 ProtocolParser.F90 sourcefile~protocolparser.f90->sourcefile~dummymessage.f90 sourcefile~serverthread.f90 ServerThread.F90 sourcefile~serverthread.f90->sourcefile~dummymessage.f90 sourcefile~simplesocket.f90 SimpleSocket.F90 sourcefile~simplesocket.f90->sourcefile~dummymessage.f90

Source Code

#include "MAPL_ErrLog.h"
#include "unused_dummy.H"

module pFIO_DummyMessageMod
   use MAPL_ExceptionHandling
   use pFIO_AbstractMessageMod
   use, intrinsic :: iso_fortran_env, only: INT32
   implicit none
   private

   public :: DummyMessage

   type, extends(AbstractMessage) :: DummyMessage
   contains
      procedure, nopass :: get_type_id
      procedure :: get_length
      procedure :: serialize
      procedure :: deserialize
   end type DummyMessage

   interface DummyMessage
      module procedure new_DummyMessage
   end interface

contains

   function new_DummyMessage() result(message)
      type (DummyMessage) :: message
      return
      _UNUSED_DUMMY(message)
   end function new_DummyMessage

   integer function get_type_id() result(type_id)
      type_id = DUMMY_ID
   end function get_type_id

   integer function get_length(this) result(length)
      class (DummyMessage), intent(in) :: this
      length = 0
      return
      _UNUSED_DUMMY(this) 
   end function get_length

   subroutine serialize(this, buffer, rc)
      class (DummyMessage), intent(in) :: this
      integer(kind=INT32), intent(inout) :: buffer(:) ! no-op
      integer, optional, intent(out) :: rc
      integer :: empty(0)
      buffer = empty
      _RETURN(_SUCCESS)
      _UNUSED_DUMMY(this)
   end subroutine serialize

   subroutine deserialize(this, buffer, rc)
      class (DummyMessage), intent(inout) :: this
      integer(kind=INT32), intent(in) :: buffer(:)
      integer, optional, intent(out) :: rc
      _RETURN(_SUCCESS)
      _UNUSED_DUMMY(this)
      _UNUSED_DUMMY(buffer)
   end subroutine deserialize
   
end module pFIO_DummyMessageMod