Major improvements

Author: aplteam

APLSource/Initialize.aplf

@@ -0,0 +1,70 @@
+(
+ '## Overview'
+ ''
+ '`]Latest` is designed to list the latest changes.'
+ ''
+ '`]Latest` main purpsoe it to act on opened Cider and/or opened acre projects (no argument required at all).'
+ '                            '
+ 'However, it can do more than that:'
+ ''
+ '* It can act on the workspace, meaning that you need to specify something like `#` or `⎕SE` or `#.Foo` as argument'
+ '* It can act on a specific folder like C:\\MyProjects\\ThisProject\\APLSource'
+ ''
+ 'By default the user command reports all objects or files changed lately (read: last day with any changes).'
+ ''
+ 'This limits `]Latest` powers _within the workspace_, because scripts (classes, interfaces, scripted namespaces) '
+ 'do not own a timestamp that could be used. When acting on the file system however, this information is available.'
+ ''
+ 'Note that by providing a path as an argument you can extend the meaning of ]`Latest` beyond APL source files, in'
+ 'particular together with the `-all` flag.'
+ ''
+ 'Note that in case a path or the `all` flag was specified all files in .git/ or its sub-directories are removed'
+ 'from the result since the user will almost never be interested in them.'
+ ''
+ '## The argument(s)'
+ ''
+ 'When an argument is specified it must be one of:'
+ ''
+ '* An integer'
+ '  * A positive one smaller than 10000000 defines the number of objects/files to be listed.'
+ '  * A positive integer larger than 9999999 is treated as a specific date (YYYYMMDD).'
+ '  * A negative one defines the number of days with any changes.'
+ '* A character vector; if it starts with `#` or `⎕` the argument is treated as a namespace path\\'
+ '  Otherwise it is treated as a path.'
+ '* A vector of length two with an integer and a character vector in no particular order, see above.'
+ ''
+ 'In case no argument or only an integer is specified, `]Latest` will establish which Cider and/or acre projects are'
+ 'currently open. If it is just one it will act on it. If there are multiple projects open the user will be prompted.'
+ ''
+ 'Note that if you provide a path pointing to an acre project you should include `APLSource\\` if you are interested '
+ 'just in APL source files because that faster, and it also removes the folder APLSource/ from the result.'
+ 'For Cider projects APLSource/ is the default, but it can be overwritten. '
+ ''
+ 'If on the other hand you want to see more than just APL source file then you might want to specify the `-all` flag,'
+ 'see there for details.'
+ ''
+ '## FLags (options)'
+ ''
+ '`-recursive=0|1`'
+ ''
+ ': The default is 1, meaning that the path is searched recursively;'
+ '  if you don''t want this then specify a 0.'
+ '       '
+ '`-all`'
+ ''
+ ': By default only files with extensions that are recognized as APL source files (`.aplf`, `.aplc` etc.) are'
+ '  listed. You can force `]Latest` to consider all files by specifying this flag.'
+ '  '
+ ': Also, when acting on an open Cider or an open acre project then ]Latest adds "APLSource\" to an acre'
+ '  project path (because under acre that is a convention) and the "source" folder for a Cider projects (which'
+ '  defaults to APLSource\ but that can be overwritten.'
+ ''
+ '`-stats`'
+ ''
+ ': If this flag is specified you get a matrix with two columns, the first'
+ '  one with all unique dates and the second one with the number of objects changed '
+ '  on that day. The number of rows is defined by the number of unique dates.'
+ ''
+ ': If `-stats` is specified any integer provided as argument will be ignored.'
+ ''
+)

APLSource/Latest/ADOC_Doc.apla

@@ -0,0 +1 @@
+EndIf

APLSource/Latest/ADOC_Doc.charlist

@@ -0,0 +1,26 @@
+(
+ '* 4.5.0 from 2022-05-21'
+ '  * Now compatible with Linux and Mac-OS (?!)'
+ '  * Can now handle open Cider projects'
+ '  * When the WS is empty the current dir is not questioned'
+ '  * .git is ignored now when a path or "all" is specified'
+ '  * Bug fix: for acre and Cider projects "APLSource/" should have been added to the path unless'
+ '    -all was specified because both project managers use that as default for source files.'
+ '  * The project path should have been deleted from file names for open projects with the "all"'
+ '    flag specified, but wasn''t.'
+ '* 4.3.4 from 2021-07-25'
+ '  * Bug fix: In SelectProject APLTreeUtils2 was wrongly addressed, resulting in a VALUE ERROR'
+ '* 4.3.3 from 2021-06-26'
+ '  * When # was passed as argument the # was missing in the output'
+ '* 4.3.2 from 2021-09-21'
+ '  ]Latest # caused a VALUE ERROR'
+ '* 4.3.1 from 2021-09-15'
+ '  * In case of an empty WS no VALUE ERROR is signalled but a message returned'
+ '* 4.3.0 from 2020-09-15'
+ '  * `]Latests` now runs under Linux and Mac OS as well.'
+ '  * Message corrected when the WS is empty (for example): instead of "Not Found" it now states'
+ '    "Latest: nothing found"'
+ '* 4.2.0 from 2020-06-06'
+ '  * Now acts on APLSource/ if no acre project is open and the folder exists in the current directory.'
+ '  * Bug fix: ]Latest n delievered, when n was a positiv integer, wrong result.'
+)

APLSource/Latest/EndIf.aplf

@@ -1,55 +1,74 @@
- r←Run(path_ recursive stats all noOf);acreFlag;F;A;bool;projects;buff;pathFlag;path;projects1;promaFlag;projects2;ind;ref
+ r←Run(path_ recursive stats all noOf);hasOpenAcreProjects;F;A;bool;projects;buff;pathFlag;path;projects1;hasOpenCiderProjects;projects2;ind;ref;name;isAcreProject;isCiderProject
 ⍝ Handles the following cases:
 ⍝ * Investigate the workspace (simple namespace or #)
 ⍝ * Investigate (currently tracked/opened) acre projects
-⍝ * Investigate (currently tracked/opened) ProMa projects
-⍝ * Investigate an acre project that is not currently tracked (not open)
- A←APLTreeUtils2 ⋄ F←FilesAndDirs
+⍝ * Investigate (currently tracked/opened) Cider projects
+⍝ * Investigate a folder
+ A←##.APLTreeUtils2 ⋄ F←##.FilesAndDirs
  r←''
- pathFlag←acreFlag←0
+ pathFlag←hasOpenAcreProjects←hasOpenCiderProjects←0
  path←path_
+ isAcreProject←isCiderProject←0
  :If 0=≢path                            ⍝ Only true if we deal with a project
+     projects1←projects2←0 2⍴''
      :If 9=⎕SE.⎕NC'acre'
          projects1←⎕SE.acre.Projects ⍬
-         acreFlag←0<≢projects1
+         hasOpenAcreProjects←0<≢projects1
      :EndIf
-     :If 0=⎕SE.⎕NC'ProMa'
-         {}⎕SE.UCMD'ProMa.Version'
+     :If 9=⎕SE.⎕NC'Cider'
+         {}⎕SE.UCMD'Cider.Version'
+         hasOpenCiderProjects←0<≢projects2←⎕SE.Cider.ListOpenProjects 0
      :EndIf
-     projects2←⎕SE.ProMa.ListProjects 0
-     :If promaFlag←0<≢projects2
-         projects2←(⍪projects2),{⍵.PromaConfig.HOME}∘⍎¨projects2
-     :Else
-         projects2←0 2⍴⍬
-     :EndIf
-     :If 0<+/≢¨projects1,projects2
-         projects←(projects1,1)⍪(projects2,2)
-     :Else
+     projects←(projects1,1)⍪(projects2,2)
+     :If 0=≢projects
          path←'expand'F.NormalizePath F.PWD,F.CurrentSep  ⍝ Current dir is the best we can do here
          pathFlag←1
      :EndIf
  :ElseIf ~(1⍴path)∊'#⎕'                 ⍝ True if it's a folder path
      path←('expand'F.NormalizePath path),F.CurrentSep
+     ('Is not a folder: ',path)⎕SIGNAL 6/⍨~F.IsDir path
      pathFlag←1
  :EndIf
  :If 0=≢path
- :AndIf 0=acreFlag
-     path←F.PWD,F.CurrentSep
-     pathFlag←F.IsDir path,'APLSource'
+ :AndIf 0=hasOpenAcreProjects+hasOpenCiderProjects
+     path←F.PWD,F.CurrentSep,'APLSource'
+     pathFlag←F.IsDir path
  :EndIf
- :If acreFlag∨promaFlag
-     ind←SelectProject{⍵[;0 1],('acre project' 'ProMa project')[⍵[;2]-1]}projects
-     →(¯1=ind)/0
-     path←1⊃projects[ind;]
-     projects1[;1]←{'/'@(⍸'\'=⍵)⊣⍵}¨projects1[;1]
-     projects2[;1]←{'/'@(⍸'\'=⍵)⊣⍵}¨projects2[;1]
+ :If hasOpenAcreProjects∨hasOpenCiderProjects
+     :If 1=≢projects
+         name←↑projects
+         :If 1=≢projects1
+             path←↑projects1[;1]
+             path←(~all){⍵.AcreConfig.ProjectFolder,⍺/'APLSource/'}⍎name  ⍝ Fixed in acre
+             isAcreProject←1
+         :Else
+             path←(~all){⍵.HOME,'/',⍺/⍵.CIDER.source}⍎(↑projects2),'.CiderConfig'
+             isCiderProject←1
+         :EndIf
+     :Else
+         ind←SelectProject{⍵[;0 1],('acre project' 'Cider project')[⍵[;2]-1]}projects
+         →(¯1=ind)/0
+         name←↑projects[ind;]
+         isAcreProject←∨/name∘≡¨projects1[;0]
+         isCiderProject←∨/name∘≡¨projects2[;0]
+         :If isCiderProject
+             path←(~all){⍵.HOME,'/',⍺/⍵.CIDER.source}⍎name,'.CiderConfig'
+         :ElseIf isAcreProject
+             path←(~all){⍵.AcreConfig.ProjectFolder,⍺/'APLSource/'}⍎name  ⍝ Fixed in acre
+         :EndIf
+     :EndIf
+     projects1[;1]←F.NormalizePath projects1[;1]
+     projects2[;1]←F.NormalizePath projects2[;1]
  :EndIf
- :If acreFlag∨promaFlag∨pathFlag
+ :If isAcreProject∨isCiderProject∨pathFlag
      path←'expand'F.NormalizePath path,F.CurrentSep
-     :If F.IsDir path
+     :If 0<≢#.⎕NL⍳16
+     :AndIf F.IsDir path
          r←⍉⊃('recursive'recursive)('type'(0 1 3))F.Dir path
          r←(r[;1]=2)⌿r                 ⍝ Only regular files
-         :If 0=all
+         :If all
+             r←(~{≢'[/\\]\.git[/\\]'⎕S 0⊣⍵}¨r[;0])⌿r
+         :Else
              r←(({2⊃⎕NPARTS ⍵}¨r[;0])∊GetExtensions)⌿r
          :EndIf
          r[;2]←↓A.FormatDateTime⊃r[;2]
@@ -62,7 +81,7 @@
       ⍝ 0 in case text was provided as argument
       ⍝ An integer otherwise.
              :If ⍬≡noOf
-                 r←((10↑¨r[;1])≡¨⊂10↑1⊃r[¯1+≢r;])⌿r
+                 r←((10↑¨r[;1])≡¨⊂10↑1⊃r[¯1+≢r;])⌿r  ⍝ All from the day with the latest change
              :ElseIf 0≢noOf
                  :If ¯1=×noOf
                      buff←10↑¨r[;1]  ⍝ YYYY-MM-DD
@@ -83,12 +102,15 @@
                      :Else
                          r[;0]←(≢path)↓¨r[;0]
                      :EndIf
+                 :ElseIf all
+                     r[;0]←(≢path){∧/~'/\'∊⍵:⍵ ⋄ ⍺↓⍵}¨r[;0]
                  :Else
-                     :If (⊂{'/'@(⍸'\'=⍵)⊣⍵}path)∊AddSlash projects1[;1]
+                     :If ∨/name∘≡¨projects1[;0]
                          r[;0]←⎕SE.acre.Itemname r[;0]
-                     :ElseIf (⊂{'/'@(⍸'\'=⍵)⊣⍵}path)∊AddSlash projects2[;1]
-                         r[;0]←⎕SE.Link.GetItemName{'/'@(⍸'\'=⍵)⊣⍵}¨r[;0]
+                     :ElseIf ∨/name∘≡¨projects2[;0]
+                         r[;0]←⎕SE.Link.GetItemName¨F.EnforceSlash¨r[;0]
                      :EndIf
+                     r←(0<≢¨r[;0])⌿r
                  :EndIf
              :EndIf
          :EndIf

APLSource/Latest/History.apla

@@ -1,3 +1,3 @@
  r←Version
  ⍝ See also `History`
- r←'Latest' '4.5.0-beta-1+97' '2021-07-30'
+ r←'Latest' '4.5.0+127' '2022-05-22'