Bug fix: sort order

Author: aplteam

APLSource/Latest/History.aplf

@@ -1,6 +1,11 @@
  History
+⍝ * 3.0.2 from 2019-01-19
+⍝   * Default sequence was buggy.
 ⍝ * 3.0.1 from 2019-01-07
-⍝   * Bug fix: result was not ordered correctly under certain circumstances.
+⍝   * Bug fixes:
+⍝     * Result was not ordered correctly under certain circumstances.
+⍝     * If no acre project was open and the current directory did not have a sub-folder
+⍝       `APLSource` an error was signalled. Should return an empty result instead.
 ⍝ * 3.0.0 from 2019-01-06
 ⍝   * Can now handle accre projects as well as ordinary namespaces and
 ⍝     even whole workspaces.

APLSource/Latest/Run.aplf

@@ -25,43 +25,47 @@
      path←'expand'F.NormalizePath path
  :EndIf
  :If acreFlag
-     r←⍉⊃('recursive' 1)('type'(0 1 3))F.Dir path
-     r←(r[;1]=2)⌿r                 ⍝ Only regular files
-     r[;2]←↓A.FormatDateTime⊃r[;2]
-     r←r[⍋⊃r[;2];0 2]
-     :If stats
-         buff←10↑¨r[;1]
-         r←⊖(∪buff),[0.5]buff{+/⍵}⌸(≢r)⍴1
-         r←r[⍋r[;0];]
-     :Else
+     :If F.IsDir path
+         r←⍉⊃('recursive' 1)('type'(0 1 3))F.Dir path
+         r←(r[;1]=2)⌿r                 ⍝ Only regular files
+         r[;2]←↓A.FormatDateTime⊃r[;2]
+         r←r[⍋⊃r[;2];0 2]
+         :If stats
+             buff←10↑¨r[;1]
+             r←⊖(∪buff),[0.5]buff{+/⍵}⌸(≢r)⍴1
+             r←r[⍋r[;0];]
+         :Else
       ⍝ `noOf` is ...
       ⍝ ⍬ in case no argument was provided
       ⍝ 0 in case text was provided as argument
       ⍝ An integer otherwise.
-         :If ⍬≡noOf
-             r←((10↑¨r[;1])≡¨⊂10↑1⊃r[0;])⌿r
-         :ElseIf 0≢noOf
-             :If ¯1=×noOf
-                 buff←10↑¨r[;1]  ⍝ YYYY-MM-DD
-                 r←(buff∊noOf{(⍺⌊≢⍵)↑⍵}∪⌽buff)⌿r
-             :Else
-                 r←(noOf⌊≢r)↑r
+             :If ⍬≡noOf
+                 r←((10↑¨r[;1])≡¨⊂10↑1⊃r[¯1+≢r;])⌿r
+             :ElseIf 0≢noOf
+                 :If ¯1=×noOf
+                     buff←10↑¨r[;1]  ⍝ YYYY-MM-DD
+                     r←(buff∊noOf{(⍺⌊≢⍵)↑⍵}∪⌽buff)⌿r
+                 :Else
+                     r←(noOf⌊≢r)↑r
+                 :EndIf
              :EndIf
-         :EndIf
-         :If 0=+/≢¨r[;0]
-             r←0 2⍴''
-         :EndIf
-         :If 0<≢r
-             :If pathFlag
-             :AndIf ~(⊂path)∊(F.NormalizePath{⍵[;1],¨⊂'APLSource\'}⎕SE.acre.Projects'')
-                 r[;0]←(≢path)↓¨r[;0]
-             :Else
-                 r[;0]←⎕SE.acre.Itemname r[;0]
+             :If 0=+/≢¨r[;0]
+                 r←0 2⍴''
              :EndIf
-             :If 0<≢match
-                 r←(match{⍺∘≡¨(≢⍺)↑¨⍵}r[;0])⌿r
+             :If 0<≢r
+                 :If pathFlag
+                 :AndIf ~(⊂path)∊(F.NormalizePath{⍵[;1],¨⊂'APLSource\'}⎕SE.acre.Projects'')
+                     r[;0]←(≢path)↓¨r[;0]
+                 :Else
+                     r[;0]←⎕SE.acre.Itemname r[;0]
+                 :EndIf
+                 :If 0<≢match
+                     r←(match{⍺∘≡¨(≢⍺)↑¨⍵}r[;0])⌿r
+                 :EndIf
              :EndIf
          :EndIf
+     :Else
+         r←0 0⍴''
      :EndIf
  :ElseIf ((,'#')≡,path)∨9=⎕NC path
      :If 0=≢noOf

APLSource/Latest/Version.aplf

@@ -1,3 +1,3 @@
  r←Version
  ⍝ See also `History`
- r←'Latest' '3.0.1.22' '2020-01-07'
+ r←'Latest' '3.0.2.25' '2020-01-19'

Dist/Latest-3.0.1.22.zip

@@ -1 +1 @@
-<tool name="Latest">  <version>3.0.1</version>  <date>2020-01-07</date>  <container>#.Latest</container>  <needs>    <script>APLTreeUtils</script>    <script>FilesAndDirs</script>    <script development="true">Tester2</script>  </needs>  <admin>0</admin>  <autoload>1</autoload>  <buildid>22</buildid></tool>
+<tool name="Latest">  <version>3.0.2</version>  <date>2020-01-19</date>  <container>#.Latest</container>  <needs>    <script>APLTreeUtils</script>    <script>FilesAndDirs</script>    <script development="true">Tester2</script>  </needs>  <admin>0</admin>  <autoload>1</autoload>  <buildid>25</buildid></tool>