Bug fixes in FindNuGetAPI and OpenProject

Author: aplteam

APLSource/Cider/FindNuGetAPI.aplf

@@ -2,7 +2,7 @@
 ⍝ Tries to find a NuGet ns somewhere, and returns a ref to the first hit, otherwise ''
  ref←''
  list←'#.NuGet' '⎕SE.Dyalog.Nuget' '⎕SE.NuGet'
- bool←9=⎕NC list
+ bool←9=⌊⎕NC list
  :If ∨/bool
      ref←⍎⊃bool/list
  :EndIf

APLSource/Cider/Version.aplf

@@ -1,3 +1,3 @@
  r←Version
 ⍝ See als History
- r←'0.36.0+581'
+ r←'0.36.0+587'

APLSource/Cider_uc.dyalog

@@ -229,7 +229,7 @@
       r←newList[;1]~oldList[;1]
     ∇
 
-    ∇ r←UpdateCider dummy;allVersions;thisVersion;ind;noOf;targetFolder;tempFolder;res;q
+    ∇ r←UpdateCider dummy;allVersions;thisVersion;ind;noOf;targetFolder;tempFolder;res;q;folder
       allVersions←,⎕SE.Tatin.ListVersions'[Tatin]aplteam-Cider'
       thisVersion←'aplteam-Cider-',{⍵↑⍨¯1+⍵⍳'+'}P.Version
       ind←allVersions⍳⊂thisVersion
@@ -244,11 +244,17 @@
               tempFolder←P.##.F.GetTempSubDir'Cider'
               res←⎕SE.Tatin.InstallPackages('[tatin]aplteam-Cider')tempFolder
               targetFolder←⊃⎕NPARTS ##.SourceFile
-              {}P.##.F.RmDir targetFolder
+              {}P.##.F.RmDirByForce targetFolder
               3 ⎕MKDIR targetFolder
               targetFolder ⎕NMOVE⍠1⊣tempFolder,'/*'
               r←'Cider was successfully updated to version ',{1↓⍵/⍨2≤+\⍵='-'}⊃res
-              {}P.##.F.RmDir tempFolder
+              {}P.##.F.RmDirByForce tempFolder
+              :If folder←P.##.F.IsDir P.GetMyUCMDsFolder,'/Cider'
+                  q←'RemoveCiderFromMyUCMDs@There is a folder Cider/ in ',P.GetMyUCMDsFolder,'/',⎕UCS 13
+                  q,←'Shall this folder be removed?'
+              :AndIf 1 P.##.C.YesOrNo q
+                  {}P.##.F.RmDirByForce folder
+              :EndIf
           :Else
               r←'Cancelled by user'
           :EndIf
@@ -399,7 +405,7 @@
       :Else
           path←Args._1
       :EndIf
-      :If ']['≡¯1⌽path
+      :If ']['≡2↑¯1⌽path
       :AndIf '*'=¯1↑path~'[]'
           bool←~aliasDefs[;2]∊{⍵[;2]}P.ListOpenProjects 0
           bool←bool\(¯1↓path~'[]'){(⎕C(≢⍺)↑[2]⍵)∧.=⎕C ⍺}↑bool⌿aliasDefs[;1]

apl-package.json

@@ -19,5 +19,5 @@
   source: "APLSource/Cider/",
   tags: "project-management",
   userCommandScript: "APLSource/Cider_UC.dyalog",
-  version: "0.36.0+581",
+  version: "0.36.0+587",
 }

tatin-packages/apl-buildlist.json

@@ -1 +1 @@
-{  packageID: [    "aplteam-GitHubAPIv3-0.7.0",    "aplteam-FilesAndDirs-5.5.0",    "aplteam-CommTools-1.7.0",    "aplteam-APLTreeUtils2-1.2.0",    "aplteam-APLGit2-0.15.3",    "dyalog-HttpCommand-5.2.0",    "aplteam-OS-3.1.1",  ],  principal: [    1,    1,    1,    1,    1,    0,    0,  ],  url: [    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",  ],}
+{  packageID: [    "aplteam-FilesAndDirs-5.5.1",    "aplteam-CommTools-1.7.0",    "aplteam-APLTreeUtils2-1.2.0",    "aplteam-APLGit2-0.15.3",    "dyalog-HttpCommand-5.2.0",    "aplteam-OS-3.1.1",    "aplteam-GitHubAPIv3-0.7.0",  ],  principal: [    1,    1,    1,    1,    0,    0,    0,  ],  url: [    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",    "https://tatin.dev/",  ],}

tatin-packages/apl-dependencies.txt

@@ -1,4 +1,4 @@
 aplteam-APLTreeUtils2-1.2.0
-aplteam-FilesAndDirs-5.5.0
+aplteam-FilesAndDirs-5.5.1
 aplteam-CommTools-1.7.0
-aplteam-APLGit2-0.15.3
+aplteam-APLGit2-0.15.3

tatin-packages/aplteam-FilesAndDirs-5.5.1/APLSource/FilesAndDirs/ADOC_Doc.apla

@@ -0,0 +1,40 @@
+(
+ '## Overview'
+ ''
+ 'This package provides functions that are useful for dealing with files and directories. '
+ 'They aim to be platform-independent.\\'
+ 'Note that error codes and messages may differ between operating systems for the same'
+ 'type of problem.\\'
+ ''
+ '## Characters to avoid in file names and paths'
+ 'Windows filenames cannot contain any of these characters: `\/:*?"<>|`.'
+ 'If you want platform-independent code, now or in the future,'
+ 'avoid using them even in Mac OS or Linux filenames.\\'
+ ''
+ '## Separators in file paths'
+ 'Dyalog tried to ease the pain by converting any `\` character into `/` on Windows.'
+ 'The idea of sticking always with the `/` as separator because it works anyway is'
+ 'attractive, but it creates new poblems: when you use third-party software such as a .NET'
+ 'assembly or an EXE like 7zip.exe on Windows, then you **must** use `\` as a separator.'
+ 'Even setting the `Directory` property of a `FileBox` object will fail with `/` as the separator.\\'
+ 'For platform independence it is essential that filenames and directory names are _normalized_.'
+ 'This means using the correct separator for the current operating system.'
+ 'Otherwise you could create a directory or file with a backslash in its name, which is disastrous'
+ 'on Linux or Mac OS.\\'
+ 'The `FilesAndDirs` functions protect you from this problem by normalizing your file paths.'
+ 'Use cover functions like `MkDir`, `NNAMES` and `NCREATE` etc. instead of the built-in system '
+ 'functions to overcome the problem.\\'
+ '`⎕NCOPY` and `⎕NMOVE` (introduced in 17.0) are exceptions, but you can use the native function'
+ 'with the `ExecNfunction` operator.'
+ 'The `CurrentSep` method returns the correct separator for the current operating system.\\'
+ 'The `NormalizePath` method normalizes a file path for the current operating system.\\'
+ 'If you have a particular reason for using `/` under Windows or `\` under Linux'
+ 'or Mac OS then you can use the `EnforceBackslash` or `EnforceSlash` functions.\\'
+ ''
+ '## Misc'
+ 'This class supports Windows, Mac OS and Linux but neither the Raspberry Pi nor AIX.'
+ ''
+ 'Kai Jaeger'
+ ''
+ 'Homepage: <http://github.com/aplteam/FilesAndDirs>'
+)

tatin-packages/aplteam-FilesAndDirs-5.5.1/APLSource/FilesAndDirs/API/AddTrailingSep.aplf

@@ -0,0 +1 @@
+ AddTrailingSep←{⍺←⊢ ⋄ ⍺ ##.AddTrailingSep ⍵}

tatin-packages/aplteam-FilesAndDirs-5.5.1/APLSource/FilesAndDirs/API/Cd.aplf

@@ -0,0 +1 @@
+ Cd←{##.Cd ⍵}

tatin-packages/aplteam-FilesAndDirs-5.5.1/APLSource/FilesAndDirs/API/CheckPath.aplf

@@ -0,0 +1 @@
+ CheckPath←{⍺←⊢ ⋄ 1:shy←⍺ ##.CheckPath ⍵}