From a001a16dbb64590172677092e2a55b594c6a2f7b Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 12 Apr 2021 20:54:33 -0400
Subject: Added directory listing feature to utilities in preparation for
 building releases page.

---
 common/utilities.F90 | 102 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)

(limited to 'common')

diff --git a/common/utilities.F90 b/common/utilities.F90
index cc2f727..961a349 100644
--- a/common/utilities.F90
+++ b/common/utilities.F90
@@ -272,4 +272,106 @@ contains
         
     end subroutine replace_field_int
     
+    function get_directories_in_directory(directory) result(res)
+    implicit none
+    
+        character(*), intent(in)::directory
+        character(1024), dimension(:), pointer::res
+        character(80)::line
+        character(len=:), pointer::tempfile
+        integer::dcount, unum, ierr, i
+        
+        tempfile => generate_temporary_filename()
+        res => null()
+        
+        call execute_command_line("ls -l "//trim(directory)//" > "//trim(tempfile), &
+                                  wait=.true.)
+    
+        open(newunit=unum, file=tempfile, action='read')
+        dcount = 0
+        read(unum, '(A)', iostat=ierr) line
+        do while(ierr == 0)
+            if(line(1:1) == 'd') then
+                dcount = dcount + 1
+            end if
+            read(unum, '(A)', iostat=ierr) line
+        end do
+        
+        close(unum)
+        
+        if(dcount > 0) then
+            allocate(res(dcount))
+            
+            ! Now call ls, but group directories first
+            call execute_command_line("ls -g "//trim(directory)//" > "//trim(tempfile), &
+                                      wait=.true.)
+            open(newunit=unum, file=tempfile, action='read')
+            i = 0
+            read(unum, '(A)', iostat=ierr) line
+            do while(ierr == 0 .and. i < dcount)
+                i = i + 1
+                call combine_paths(trim(directory), trim(line), res(i))
+                read(unum, '(A)', iostat=ierr) line
+            end do
+            
+            close(unum)
+        end if
+        
+        call unlink(tempfile)
+        
+    end function get_directories_in_directory
+    
+    function get_files_in_directory(directory) result(res)
+    implicit none
+    
+        character(*), intent(in)::directory
+        character(1024), dimension(:), pointer::res
+        character(80)::line
+        character(len=:), pointer::tempfile
+        integer::dcount, total_count, unum, ierr, i
+        
+        tempfile => generate_temporary_filename()
+        res => null()
+        
+        call execute_command_line("ls -l "//trim(directory)//" > "//trim(tempfile), &
+                                  wait=.true.)
+                                  
+        open(newunit=unum, file=tempfile, action='read')
+        dcount = 0
+        total_count = 0
+        read(unum, '(A)', iostat=ierr) line
+        do while(ierr == 0)
+            if(line(1:1) == 'd') then
+                dcount = dcount + 1
+            end if
+            total_count = total_count + 1
+            read(unum, '(A)', iostat=ierr) line
+        end do
+        
+        close(unum)
+        
+        if((total_count - dcount) > 0) then
+            allocate(res(total_count - dcount))
+            
+            ! Now call ls, but group directories first
+            call execute_command_line("ls -g "//trim(directory)//" > "//trim(tempfile), &
+                                      wait=.true.)
+            open(newunit=unum, file=tempfile, action='read')
+
+            read(unum, '(A)', iostat=ierr) line
+            do while(ierr == 0 .and. i < dcount)
+                i = i + 1
+                if(i > dcount) then
+                    call combine_paths(trim(directory), trim(line), res(i-dcount))
+                end if
+                read(unum, '(A)', iostat=ierr) line
+            end do
+            
+            close(unum)
+        end if
+        
+        call unlink(tempfile)
+    
+    end function get_files_in_directory
+    
 end module utilities
\ No newline at end of file
-- 
cgit v1.2.3