Initialize OS as windows-like system.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(os_object), | intent(inout) | :: | self | OS. |
elemental subroutine initialize_windows(self)
!< Initialize OS as windows-like system.
class(os_object), intent(inout) :: self !< OS.
call self%destroy
self%path_separator = char(92)
self%cp_dir_command = 'copy'
self%cp_file_command = 'copy'
self%mkdir_command = 'mkdir'
self%rm_dir_command = 'del'
self%rm_file_command = 'del'
endsubroutine initialize_windows