From 1dd45535600237b2790a61eccd9e0c6cbabbc826 Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Sat, 5 Jun 2021 15:02:08 +0200
Subject: Redirect output when searching for archiver

---
 src/fpm_compiler.f90 | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

(limited to 'src/fpm_compiler.f90')

diff --git a/src/fpm_compiler.f90 b/src/fpm_compiler.f90
index 389ba94..aac6173 100644
--- a/src/fpm_compiler.f90
+++ b/src/fpm_compiler.f90
@@ -27,7 +27,7 @@
 ! Unisys            ?          ?       ?               ?             ?          discontinued
 module fpm_compiler
 use fpm_model, only: fpm_model_t
-use fpm_filesystem, only: join_path, basename
+use fpm_filesystem, only: join_path, basename, get_temp_filename
 use fpm_environment, only: &
         get_os_type, &
         OS_LINUX, &
@@ -36,13 +36,15 @@ use fpm_environment, only: &
         OS_CYGWIN, &
         OS_SOLARIS, &
         OS_FREEBSD, &
-        OS_OPENBSD
+        OS_OPENBSD, &
+        OS_UNKNOWN
 implicit none
 public :: is_unknown_compiler
 public :: get_module_flags
 public :: get_default_compile_flags
 public :: get_debug_compile_flags
 public :: get_release_compile_flags
+public :: get_archiver
 
 enum, bind(C)
     enumerator :: &
@@ -464,4 +466,23 @@ function is_unknown_compiler(compiler) result(is_unknown)
     is_unknown = get_compiler_id(compiler) == id_unknown
 end function is_unknown_compiler
 
+
+function get_archiver() result(archiver)
+    character(:), allocatable :: archiver
+    integer :: estat, os_type
+
+    os_type = get_os_type()
+    if (os_type /= OS_WINDOWS .and. os_type /= OS_UNKNOWN) then
+        archiver = "ar -rs "
+    else
+        call execute_command_line("ar --version > "//get_temp_filename(), &
+            & exitstat=estat)
+        if (estat /= 0) then
+            archiver = "lib /OUT:"
+        else
+            archiver = "ar -rs "
+        end if
+    end if
+end function
+
 end module fpm_compiler
-- 
cgit v1.2.3