Allow environment variables in config files

Dyalog · Apr 6, 2019 · 853355e · 853355e
1 parent ba53b03
commit 853355e
Showing 1 changed file with 30 additions and 0 deletions.
diff --git a/Core/Boot.dyalog b/Core/Boot.dyalog
@@ -246,6 +246,35 @@
       :If 0=⍴⍴r ⋄ r←⊃r ⋄ :EndIf
     ∇
 
+    ∇ SubstEnv config;getEnv;subst;n;v
+    ⍝ substitute environment variables for items with values im the form $envName$
+    ⍝ config is a configuration result from ReadConfiguration
+    ⍝   it should be either a namespace reference, or a vector of namespace references
+      getEnv←{2 ⎕NQ'.' 'GetEnvironment'⍵}
+      subst←{
+          0∊⍴⍵:⍵ ⋄
+          '$'∧.=(⊣/,⊢/)(2⌈≢⍵)↑⍵:getEnv 1↓¯1↓⍵ ⋄
+          ⍵}
+      :Select ⊃⎕NC'config'
+      :Case 2
+          :If 9.1∧.={⎕NC⊂,'⍵'}¨config
+              SubstEnv¨config
+          :EndIf
+      :Case 9
+          :For n :In config.⎕NL ¯2
+              :Select ≡v←config⍎n
+              :Case 1
+                  v←subst v
+              :Case 2
+                  v←subst¨v
+              :Else
+                  ∘∘∘
+              :EndSelect
+              ⍎'config.',n,'←v'
+          :EndFor
+      :EndSelect
+    ∇
+
     ∇ config←{element}ReadConfiguration type;serverconfig;file;siteconfig;thing;ind;mask
     ⍝ Attempt to read configuration file
     ⍝ 1) from server root MSRoot
@@ -278,6 +307,7 @@
               config←serverconfig
           :EndIf
       :EndIf
+      :If config≢'' ⋄ SubstEnv config ⋄ :EndIf
     ∇
 
     ∇ Config←ConfigureServer AppRoot;file