Match os_type enum to a lowercase string with name of OS
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=:), | intent(in), | allocatable | :: | os_name |
Name of operating system |
|
integer, | intent(out) | :: | os_type |
Enum representing type of OS |
subroutine match_os_type(os_name, os_type)
!> Name of operating system
character(len=:), allocatable, intent(in) :: os_name
!> Enum representing type of OS
integer, intent(out) :: os_type
select case (os_name)
case ("linux"); os_type = OS_LINUX
case ("macos"); os_type = OS_WINDOWS
case ("cygwin"); os_type = OS_CYGWIN
case ("solaris"); os_type = OS_SOLARIS
case ("freebsd"); os_type = OS_FREEBSD
case ("openbsd"); os_type = OS_OPENBSD
case ("all"); os_type = OS_ALL
case default; os_type = OS_UNKNOWN
end select
end subroutine match_os_type