Skip to content

Initial implementation of get_os() #142

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 13 commits into from
Jul 22, 2020
Merged

Initial implementation of get_os() #142

Changes from all commits
Commits
Show all changes
13 commits
Select commit Hold shift + click to select a range
ea19382
Implement get_os()
certik Jul 22, 2020
2990fe5
Rename fpm.f90 to fpm.F90
certik Jul 22, 2020
f98d13b
Use get_os()
certik Jul 22, 2020
f6f67d7
Use ()
certik Jul 22, 2020
93a9735
Rework the macros
certik Jul 22, 2020
46c839b
Use $HOME to determine the OS type
certik Jul 22, 2020
a1dc068
Polish the code, add comments
certik Jul 22, 2020
ef86557
Rename fpm.F90 back to fpm.f90
certik Jul 22, 2020
155e312
Use uppercase for constants
certik Jul 22, 2020
06edcbd
Print full OS name as a string
certik Jul 22, 2020
e2e2d9c
Name the function get_os_type()
certik Jul 22, 2020
bfd90a6
Only use the $HOME env variable for all OS types
certik Jul 22, 2020
82cc08c
Use $HOMEPATH on Windows
certik Jul 22, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
56 changes: 56 additions & 0 deletions fpm/src/fpm.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,10 +3,66 @@ module fpm
private
public :: print_help, cmd_build

integer, parameter :: OS_LINUX = 1
integer, parameter :: OS_MACOS = 2
integer, parameter :: OS_WINDOWS = 3

contains

integer function get_os_type() result(r)
! Determine the OS type
!
! Returns one of OS_LINUX, OS_MACOS, OS_WINDOWS.
!
! Currently we use the $HOME and $HOMEPATH environment variables to determine
! the OS type. That is not 100% accurate in all cases, but it seems to be good
! enough for now. See the following issue for a more robust solution:
!
! https://github.com/fortran-lang/fpm/issues/144
!
character(len=100) :: val
integer stat
! Only Windows define $HOMEPATH by default and we test its value to improve the
! chances of it working even if a user defines $HOMEPATH on Linux or macOS.
call get_environment_variable("HOMEPATH", val, status=stat)
if (stat == 0 .and. val(1:7) == "\Users\") then
r = OS_WINDOWS
return
end if

! We assume that $HOME=/home/... is Linux, $HOME=/Users/... is macOS, otherwise
! we assume Linux. This is only a heuristic and can easily fail.
call get_environment_variable("HOME", val, status=stat)
if (stat == 1) then
print *, "$HOME does not exist"
error stop
end if
if (stat /= 0) then
print *, "get_environment_variable() failed"
error stop
end if
if (val(1:6) == "/home/") then
r = OS_LINUX
else if (val(1:7) == "/Users/") then
r = OS_MACOS
else
! This will happen on HPC systems that typically do not use either /home nor
! /Users for $HOME. Those systems are typically Linux, so for now we simply
! set Linux here.
r = OS_LINUX
end if
end function

subroutine print_help()
print *, "Fortran Package Manager (fpm)"
select case (get_os_type())
case (OS_LINUX)
print *, "OS Type: Linux"
case (OS_MACOS)
print *, "OS Type: macOS"
case (OS_WINDOWS)
print *, "OS Type: Windows"
end select
end subroutine

subroutine run(cmd)
Expand Down