From b52aa3bf2b9cbb529b861566f6dbed24483c0b67 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 13 May 2021 08:58:10 -0400
Subject: Temporary directory is now configurable.

---
 common/utilities.F90 | 46 ++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 42 insertions(+), 4 deletions(-)

(limited to 'common')

diff --git a/common/utilities.F90 b/common/utilities.F90
index e8bceff..4c0c13f 100644
--- a/common/utilities.F90
+++ b/common/utilities.F90
@@ -35,8 +35,32 @@ module utilities
         module procedure replace_field_int
     end interface
 
+    character(len=:), pointer::temporary_directory
+
 contains
 
+    subroutine set_temporary_directory(d)
+#ifdef WINDOWS    
+    use iso_c_binding, only: c_null_char
+#endif
+    implicit none
+        
+        character(*), intent(in)::d
+        
+        if(len_trim(d) > 0) then
+        
+#ifdef WINDOWS
+            allocate(character(len=(len_trim(d)+1)) :: temporary_directory)
+            temporary_directory = d//c_null_char
+#else
+            allocate(character(len=(len_trim(d))) :: temporary_directory)
+            temporary_directory = d
+#endif
+        
+        end if
+        
+    end subroutine set_temporary_directory
+
     function is_absolute_path(path)
     implicit none
     
@@ -200,12 +224,18 @@ contains
         integer::res
         
         tmp_path = c_malloc(int(1024, kind=c_size_t))
-        res = GetTempPath(1023, tmp_path)
+        if(.not. associated(temporary_directory)) then
+            res = GetTempPath(1023, tmp_path)
+        else
+            tmp_path = c_loc(temporary_directory)
+        end if
         
         tmp_name = c_malloc(int(1024, kind=c_size_t))
         res = GetTempFileName(tmp_path, c_null_ptr, 0, tmp_name)
         
-        call c_free(tmp_path)
+        if(.not.associated(temporary_directory)) then
+            call c_free(tmp_path)
+        end if
         
         ! Convert the C Ptr to a Fortran object
         clength = c_strlen(tmp_name)
@@ -229,7 +259,15 @@ contains
         
         call random_number(rnum)
         write(num_text, *) abs(rnum)
-        fullpath = "/tmp/lv."//trim(adjustl(num_text))//".tmp"
+        if(associated(temporary_directory)) then
+            if(temporary_directory(len(temporary_directory):len(temporary_directory)) == "/") then
+                fullpath = temporary_directory//"lv."//trim(adjustl(num_text))//".tmp"
+            else 
+                fullpath = temporary_directory//"/lv."//trim(adjustl(num_text))//".tmp"
+            end if
+        else
+            fullpath = "/tmp/lv."//trim(adjustl(num_text))//".tmp"
+        end if
     
         !call write_log("My temp filename is: '"//trim(fullpath)//"'")
 #endif
@@ -501,7 +539,7 @@ contains
             close(unum)
         end if
         
-        call delete_file(tempfilename)
+        call unlink(tempfilename)
         deallocate(tempfilename)
     
     end subroutine get_one_line_output_shell_command
-- 
cgit v1.2.3