From f833fc391d3192733c799dcdaf1c4df4c9919f8b Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Sat, 8 Aug 2020 12:02:59 -0400
Subject: Added make_directory subroutine.  Fixed allocatable favorites to be
 pointers instead so the program doesn't crash.

---
 platform.F90 | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'platform.F90')

diff --git a/platform.F90 b/platform.F90
index e10ca64..f71abdd 100644
--- a/platform.F90
+++ b/platform.F90
@@ -11,6 +11,15 @@ implicit none
 
 contains
 
+    subroutine make_directory(dir)
+    implicit none
+
+        character(*), intent(in)::dir
+
+        call execute_command_line('mkdir "'//trim(dir)//'"')
+        
+    end subroutine make_directory          
+
     subroutine get_settings_directory(dir)
     use iso_c_binding
     implicit none
@@ -60,6 +69,9 @@ contains
         dir = trim(dir)//".lr87"
 #endif        
     
+        ! Harmless
+        call make_directory(dir)
+
     end subroutine get_settings_directory
     
     subroutine get_favorites_file(filename)
@@ -72,4 +84,4 @@ contains
         
     end subroutine get_favorites_file
     
-end module platform
\ No newline at end of file
+end module platform
-- 
cgit v1.2.3