Destroy OS… not your :-)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(os_object), | intent(inout) | :: | self | OS. |
elemental subroutine destroy(self)
!< Destroy OS... not your :-)
class(os_object), intent(inout) :: self !< OS.
type(os_object) :: fresh !< Fresh instance of OS.
self = fresh
if (allocated(self%path_separator)) deallocate(self%path_separator)
if (allocated(self%cp_dir_command)) deallocate(self%cp_dir_command)
if (allocated(self%cp_file_command)) deallocate(self%cp_file_command)
if (allocated(self%mkdir_command)) deallocate(self%mkdir_command)
if (allocated(self%rm_dir_command)) deallocate(self%rm_dir_command)
if (allocated(self%rm_file_command)) deallocate(self%rm_file_command)
endsubroutine destroy