Find Application Directory for Dado and Link

Author: JoshDavid

.gitignore

@@ -2,3 +2,4 @@ aplcore
 .acre/
 dist/
 Assets/Runtime/LocallyDerived/
+config.json

APLSource/Config/DropEnding.aplf

@@ -0,0 +1,6 @@
+ DropEnding←{
+⍝ Drop ⍺ from ⍵ if ⍵ ends in ⍺
+     n←-≢⍺
+     b←⍺≡n↑⍵
+     (b×n)↓⍵
+ }

APLSource/Config/FindLinkedDir.aplf

@@ -3,8 +3,5 @@
 ⍝ ← ←→ Linked directory. Empty string if not found
      l←⎕SE.Link.List''
      2≠⍴⍴l:''
-     c←(,1↑l)⍳⊂'Directory'
-     d←1↓l[;c]
-     i←((-≢⍵)↑¨d)⍳⊂⍵
-     i⊃d,⊂''
+     ⊃l[⍸+/⍵∘⍷↑l]
  }

APLSource/Config/GetAppDir.aplf

@@ -1,12 +1,11 @@
  GetAppDir←{
- ⍝ TODO: Figure out how if this will work with DADO
      isWorkspace←'CLEAR WS'≢⎕WSID
      isWorkspace:WorkspaceDirectory''
-     isAcre←0≠⎕NC'#.AcreConfig'
-     isAcre:#.AcreConfig.ProjectFolder
-     r←FindLinkedDir ##.AppName''
+     isDado←0≠⎕NC'##.AcreConfig'
+     isDado:##.AcreConfig.ProjectFolder
+     r←'/APLSource'DropEnding FindLinkedDir ##.AppName''
      r≢'':r
      msg←'Unable to find directory where the app config file should reside.'
      msg,←' Please enter a valid folder location:'
-     ##.GUI.TextPrompt⊂msg
+     ⊃##.GUI.TextPrompt⊂msg
  }

APLSource/Version.aplf

@@ -0,0 +1,20 @@
+# SQL Browser
+Simple database browser for ODBC compliant databases. Currently designed for Windows, but a cross platform app could be released in future versions. 
+
+Dyalog APL comes with a powerful SQL interface. New users who don't want to read the docs to get it working, or older users who are tired of trying to remember table/column names will find this tool useful. Get your work done quick with the assistance of this browser, and let it take care of securely handling your database credentials. 
+
+This library requires EasyGUI as a dependency. If you use Dado, or some other package manager, it will fetch EasyGUI for you. Otherwise, you must load the EasyGUI namespace yourself as a sibling namespace to DBViewer. 
+
+If you use Dado:
+`]Dado.openproject C:\Git\SQL-Browser`
+
+If you use Link:
+`]link.create #.DBViewer C:\Git\SQL-Browser\APLSource`
+`]link.create #.EasyGUI C:\Git\EasyGUI\APLSource`
+
+Then just Run the application:
+`DBViewer.Run`
+
+Tested with PostgreSQL, Oracle, and SQL-Server.
+
+Currently in Beta. Feel free to download and play around with it, but an official release may not be backwards-compatible with Beta versions.