Initialize OS.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(os_object), | intent(inout) | :: | self | OS. |
||
| character(len=*), | intent(in), | optional | :: | system | System name, valid [unix, windows]. |
elemental subroutine initialize(self, system)
!< Initialize OS.
class(os_object), intent(inout) :: self !< OS.
character(*), intent(in), optional :: system !< System name, valid [unix, windows].
type(string) :: system_ !< System name.
self%error%status = 0
system_ = 'UNIX'
if (present(system)) then
system_ = trim(adjustl(system))
system_ = system_%upper()
endif
select case(system_%chars())
case('UNIX')
call self%initialize_unix
case('WINDOWS')
call self%initialize_windows
case default
call self%initialize_unix
self%error%status = ERROR_FALLBACK_INIT
endselect
endsubroutine initialize