diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 15:09:09 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 15:09:09 -0400 |
commit | c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac (patch) | |
tree | e9714d50e2be010557992708ad92aa93522d3daa /captain/config.f90 | |
parent | 8da227ca130355332fc92935cfbabc87bd0db078 (diff) | |
download | levitating-c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac.tar.gz levitating-c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac.zip |
Added script to scan and load instructions. Instructions now displayed on a page.
Diffstat (limited to 'captain/config.f90')
-rw-r--r-- | captain/config.f90 | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/captain/config.f90 b/captain/config.f90 index 5ab5930..3d23011 100644 --- a/captain/config.f90 +++ b/captain/config.f90 @@ -34,6 +34,12 @@ implicit none character(*), parameter::STATIC_DIRECTORY_VARIABLE = "static-directory" character(1024)::static_dir + character(*), parameter::INSTRUCTIONS_DIRECTORY_VARIABLE = "instructions-directory" + character(1024)::instructions_dir + + character(*), parameter::SCRIPT_DIRECTORY_VARIABLE = "script-directory" + character(1024)::script_dir + contains subroutine get_variable(str, v) @@ -109,7 +115,13 @@ contains else if(cvariable == STATIC_DIRECTORY_VARIABLE) then static_dir = cvalue - + + else if(cvariable == SCRIPT_DIRECTORY_VARIABLE) then + script_dir = cvalue + + else if(cvariable == INSTRUCTIONS_DIRECTORY_VARIABLE) then + instructions_dir = cvalue + end if end subroutine assign_config |