sysutils_obj Derived Type

type, public :: sysutils_obj

A utility to help with file and directory operations.


Type-Bound Procedures

procedure, public, nopass :: CreateDirectory => sysutils_obj_CreateDirectory

  • private impure subroutine sysutils_obj_CreateDirectory(dirname)

    Creates a directory using system commands.

    Arguments

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

    Directory name

procedure, public, nopass :: DeleteDirectory => sysutils_obj_DeleteDirectory

  • private impure subroutine sysutils_obj_DeleteDirectory(dirname)

    Deletes a directory using system commands.

    Arguments

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

    Directory name

procedure, public, nopass :: DeleteFile => sysutils_obj_DeleteFile

  • private impure subroutine sysutils_obj_DeleteFile(filename)

    Deletes a file.

    Arguments

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

    File name

procedure, public, nopass :: DirectoryExists => sysutils_obj_DirectoryExists

  • private impure function sysutils_obj_DirectoryExists(dirname) result(val)

    Arguments

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

    Directory name

    Return Value logical

procedure, public, nopass :: FileExists => sysutils_obj_FileExists

  • private impure function sysutils_obj_FileExists(filename) result(val)

    Checks whether a file exists.

    Arguments

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

    File name

    Return Value logical

Source Code

  type :: sysutils_obj
    !> A utility to help with file and directory operations.
    contains
      procedure, nopass :: CreateDirectory     => sysutils_obj_CreateDirectory
      procedure, nopass :: DeleteDirectory     => sysutils_obj_DeleteDirectory
      procedure, nopass :: DirectoryExists     => sysutils_obj_DirectoryExists
      procedure, nopass :: DeleteFile          => sysutils_obj_DeleteFile
      procedure, nopass :: FileExists          => sysutils_obj_FileExists
  end type sysutils_obj