UDSystem Derived Type

type, public, extends(CptrWrapper) :: UDSystem


Inherits

type~~udsystem~~InheritsGraph type~udsystem UDSystem type~cptrwrapper CptrWrapper type~udsystem->type~cptrwrapper c_ptr c_ptr type~cptrwrapper->c_ptr cptr_

Constructor

public interface UDSystem

  • private function construct_system(path, encoding) result(instance)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in), optional :: path
    integer(kind=ut_encoding), intent(in), optional :: encoding

    Return Value type(UDSystem)


Type-Bound Procedures

procedure, public :: free

  • private subroutine free(this)

    Arguments

    Type IntentOptional Attributes Name
    class(CptrWrapper), intent(inout) :: this

procedure, public, pass(this) :: free_memory => free_ut_system

  • private subroutine free_ut_system(this)

    Arguments

    Type IntentOptional Attributes Name
    class(UDSystem), intent(in) :: this

procedure, public :: get_cptr

  • private function get_cptr(this)

    Arguments

    Type IntentOptional Attributes Name
    class(CptrWrapper), intent(in) :: this

    Return Value type(c_ptr)

procedure, public :: is_free

  • private function is_free(this)

    Arguments

    Type IntentOptional Attributes Name
    class(CptrWrapper), intent(in) :: this

    Return Value logical

procedure, public :: set_cptr

  • private subroutine set_cptr(this, cptr)

    Arguments

    Type IntentOptional Attributes Name
    class(CptrWrapper), intent(inout) :: this
    type(c_ptr), intent(in) :: cptr

Source Code

   type, extends(CptrWrapper) :: UDSystem
      private
      integer(ut_encoding) :: encoding = UT_ASCII
   contains
      procedure, public, pass(this) :: free_memory => free_ut_system
   end type UDSystem