From c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 30 Mar 2021 15:09:09 -0400 Subject: Added script to scan and load instructions. Instructions now displayed on a page. --- captain/config.f90 | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'captain/config.f90') 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 -- cgit v1.2.3