aboutsummaryrefslogtreecommitdiff
path: root/platform.F90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-08-08 12:02:59 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-08-08 12:02:59 -0400
commitf833fc391d3192733c799dcdaf1c4df4c9919f8b (patch)
tree61960f846063a7cda6843159e3a1c84294817d5d /platform.F90
parentf6a2bd488ca74881855f74f5302078526cfbd81c (diff)
downloadLR-87-f833fc391d3192733c799dcdaf1c4df4c9919f8b.zip
LR-87-f833fc391d3192733c799dcdaf1c4df4c9919f8b.tar.gz
Added make_directory subroutine. Fixed allocatable favorites to be pointers instead so the program doesn't crash.
Diffstat (limited to 'platform.F90')
-rw-r--r--platform.F9014
1 files changed, 13 insertions, 1 deletions
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