Fixed a problem in lx when AppRoot contained quoted path

Dyalog · Jan 15, 2021 · 240a09f · 240a09f
1 parent 5322dbb
commit 240a09f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/DUI.dws b/DUI.dws
diff --git a/wsSource/lx.dyalog b/wsSource/lx.dyalog
@@ -1,8 +1,9 @@
- lx;App;Port;NoLink;path
+ lx;App;Port;NoLink;path
  WC2Root←1⊃1 ⎕NPARTS ⎕WSID      ⍝ WCRoot is the directory containing the workspace
  ⎕SE.SALT.Load WC2Root,'DUI.dyalog'
 ⍝ looks for envVars AppRoot, MSPort and NoLink.
- :If 0<≢App←2 ⎕NQ'.' 'GetEnvironment' 'AppRoot'
+ :If 0<≢App←(2 ⎕NQ'.' 'GetEnvironment' 'AppRoot')~'"'
+     App←('""'≡App[1,≢App]){(-⍺)↓⍺↓⍵}App
      NoLink←1{0=≢⍵:⍺ ⋄ (,'1')≡,⍵}⍕+2 ⎕NQ'.' 'GetEnvironment' 'NoLink'
      :If 0<Port←⍬⍴2⊃⎕VFI 2 ⎕NQ'.' 'GetEnvironment' 'MSPort'
          DUI.Run App Port WC2Root NoLink