quiet got retired, verbose and batch introduced

Author: aplteam

APLSource/Cider/AddAlias.aplf

@@ -5,7 +5,6 @@
 ⍝ * If the alias is already defined with a different folder the user is asked to confirm overwriting it
 ⍝ * If the alias is undefined yet it as added
 ⍝ * You cannot delete an alias with this function.
- :Access Public Shared
  r←⍬
  ciderAliasFilename←GetCiderAliasFilename
  msg←''
@@ -15,7 +14,7 @@
      :If F.Exists ciderAliasFilename
          data←⊃F.NGET ciderAliasFilename 1
          :If ~F.Exists folder
-             1 p Frame'Could not find "',folder,'"'
+             (1 parms.batch)p'Could not find "',folder,'"'
          :ElseIf 0=+/(alias,'=')∘{⍺≡(≢⍺)↑⍵}¨data
              ind←({⍵↓⍨⍵⍳'='}¨data)⍳⊂folder
              :If ind≤≢data
@@ -42,7 +41,7 @@
                          data←⊃¨{⍺,'=',⍵}/¨↓data
                          (⊂data)F.NPUT ciderAliasFilename 1
                      :Else
-                         1 p Frame'Alias "',alias,'" is already in use with a different path - alias not assigned'
+                         (1 parms.batch)p'Alias "',alias,'" is already in use with a different path - alias not assigned'
                      :EndIf
                  :EndIf
              :EndIf

APLSource/Cider/Box.aplf

@@ -1,30 +1,31 @@
- {r}←CheckForGit(path config);status;dmx
-⍝ Checks whether the project is managed by Git, and if so offers some help
+ {r}←CheckForGit(path config parms);status;dmx
+⍝ Checks whether the project is managed by Git, and if so offers some help, unless parms.batch=1
  r←⍬
- :If F.Exists(AddSlash path),'.git'
+ :If 0=parms.batch
+ :AndIf F.Exists(AddSlash path),'.git'
      :Trap 0
          status←G.Status path
      :Else
          dmx←⎕DMX
          :If 127=dmx.EN
-             p'The project appears to be managed by Git but Git is not installed?!'
+             (1 parms.batch)p'The project appears to be managed by Git but Git is not installed?!'
              :Return
          :ElseIf 128=dmx.EN
-             p'The project appears to be managed by Git but user.email and/or user.name are not defined'
+             (1 parms.batch)p'The project appears to be managed by Git but user.email and/or user.name are not defined'
              :Return
          :ElseIf 0<≢dmx.Message
-             ⎕←'The Git status of the project could not be determined due to an error:'
-             ⎕←dmx.Message,'; rc=',⍕dmx.EN
+             (1 parms.batch)p'The Git status of the project could not be determined due to an error:'
+             (1 parms.batch)pdmx.Message,'; rc=',⍕dmx.EN
              :Return
          :Else
-             ⎕←'The Git status of the project could not be determined due to an error'
+             (1 parms.batch)p'The Git status of the project could not be determined due to an error'
              :Return
          :EndIf
      :EndTrap
      :If ∧/∨/¨'nothing to commit' 'working tree clean'⍷¨⊂∊status
      :AndIf ~∨/∨/¨'on branch main' 'on branch master'⍷¨⊂⎕C∊status
-         ⎕←'Git: ',(1⊃status),', ',⊃{⍺,', ',⍵}/1↓status
-     :Else
+         (1 parms.batch)p'Git: ',(1⊃status),', ',⊃{⍺,', ',⍵}/1↓status
+     :ElseIf 0=parms.batch
          status←(↓(,[0.5]'Git status report')⍪'='),status
          {{}(#.⎕NS'').(⎕ED⍠('ReadOnly' 1)&{'GIT_Status_Report'}GIT_Status_Report←⍵)}⍪status
      :EndIf

APLSource/Cider/CheckForGit.aplf

@@ -1,10 +1,10 @@
- {r}←CheckOnToDo ref
+ {r}←parms CheckOnToDo ref
 ⍝ Checks whether there is a non-empty variable "ToDo" in the root of the project, and put it into ⎕ED if so.
 ⍝ Returns a 1 if found and 0 otherwise
  r←0
  :If 2=ref.⎕NC'ToDo'
  :AndIf 0<≢(∊ref.ToDo)~' '
-     ⎕←'>>> Found a variable ',(⍕ref),'.ToDo'
-     ⎕←Box Frame ref.ToDo
+     (1 parms.batch)p'>>> Found a variable ',(⍕ref),'.ToDo'
+     (1 parms.batch)p ref.ToDo
      r←1
  :EndIf

APLSource/Cider/CheckOnToDo.aplf

@@ -12,7 +12,7 @@
      :If 0≢parms.checkPackageVersions
      :AndIf 2>pkgStatus
          :If (⊂parms.checkPackageVersions)∊⍬ 1
-         :AndIf ~parms.quietFlag
+         :AndIf 0=parms.batch
              checkFlag←0 C.YesOrNo' Report availability of later versions of installed Tatin packages?'
          :Else
              checkFlag←2≡parms.checkPackageVersions
@@ -25,10 +25,10 @@
          1 ⎕SE._Tatin.Client.EstablishRumbaClients ⍬
          :If 0<≢report←report CheckTatinFoldersForLaterVersions parms folders
          :AndIf 0=+/⊃,/4⌷[2]¨report
-             p'   No later versions found '
+             (1 parms.batch)p'No later versions found '
              :If 0<≢buff←(⊂'https://tatin.dev/')~⍨⊃,/3⌷[2]¨report
                  plural←1<≢buff
-                 1 p Frame{'Note that ',(⍕≢⍵),' package',(plural/'s'),((1+plural)⊃' was' ' were'),' loaded from ',⊃{⍺,',',⍵}/∪⍵}buff
+                 (1 parms.batch)p{'Note that ',(⍕≢⍵),' package',(plural/'s'),((1+plural)⊃' was' ' were'),' loaded from ',⊃{⍺,',',⍵}/∪⍵}buff
              :EndIf
          :Else
              report←{⍵[;4]⌿⍵}¨report

APLSource/Cider/CheckPackagesStatus.aplf

@@ -1,5 +1,5 @@
  {config}←CheckParameters config;list;bool;list2
-    ⍝ Check the parameters for being complete and valid
+⍝ Check the parameters for being complete and valid
  p'Checking parameters...'
  list←' '~⍨¨⊃,/↓¨config.(LINK CIDER).⎕NL 2 9
  list2←list~GetValidCiderParams
@@ -13,4 +13,5 @@
  list←' '~⍨¨↓config.CIDER.⎕NL 2 9
  bool←GetValidCiderParams∊list
  ('Missing Cider parameter',((1<+/~bool)/'s'),': ',{0=≢⍵:'' ⋄ ⊃{⍺,',',⍵}/⍵}(~bool)/GetValidCiderParams)Assert∧/bool
- p'  All fine'
+ p'Parameters are okay'
+⍝Done

APLSource/Cider/CheckParameters.aplf

@@ -5,7 +5,7 @@
 ⍝ 4. In case only the folder is empty no action is taken
 ⍝ 5. In case neither the namespace `ref` nor the folder are empty the user is asked
 ⍝    whether she wants the namespace to be recreated; if not an error is thrown.
-⍝ When `quietFlag` is set however then either the namepace or the folder or both must
+⍝ When `batch` is set however, then either the namepace or the folder or both must
 ⍝ be empty, otherwise an error is thrown.
  :If (⎕NC⊂⍕ref)∊9.1 9.4 9.5
      nsIsEmpty←0=≢' '~¨⍨↓ref.⎕NL⍳16
@@ -20,8 +20,8 @@
      :OrIf folderIsEmpty∧nsIsEmpty
          :Return
      :EndIf
-     :If parms.quietFlag
-          ⍝ With quietFlag being true there is nothing we can do but throw an error
+     :If parms.batch
+          ⍝ With `batch` being true there is nothing we can do but throw an error
          'Both the target and the source folder are not empty'Assert 0
      :Else
          :If C.YesOrNo'Target "',(⍕ref),'" is not empty - recreate?'

APLSource/Cider/CheckTargetNamespaceAndLinkFolder.aplf

@@ -3,7 +3,7 @@
  :For folder :In folders
      folder_←⊃'='(≠⊆⊢)folder
      :If F.Exists parms.folder,'/',folder_
-         p'  Checking Tatin packages in <',(AddSlash folder_),'> ...'
+         p'Checking Tatin packages in <',(AddSlash folder_),'> ...'
          folder_←parms.folder,'/',folder_
          :If 0<≢⊃0 ⎕NINFO⍠('Wildcard' 1)⊣folder_,'/*'
              :Trap 998
@@ -13,14 +13,14 @@
                  :If qdmx.EM≡'The build list carries entries that are not on the Tatin Registry search path'
                      msg←''
                      msg,←⊂'ERROR: Checking for later versions of Tatin packages failed:'
-                     msg,←⊂'       ',qdmx.EM
-                     1 p Frame msg
+                     msg,←⊂' ',qdmx.EM
+                     (1 parms.batch)p msg
                  :Else
                      qdmx.EM ⎕SIGNAL 998
                  :EndIf
              :EndTrap
          :Else
-             p'     Folder is empty'
+             (1 parms.batch)p'Installation folder <',parms.folder,'/',folder,'> is empty'
          :EndIf
      :EndIf
  :EndFor

APLSource/Cider/CheckTatinFoldersForLaterVersions.aplf

@@ -8,7 +8,6 @@
 ⍝ 4. One or more paths of currently open projects
 ⍝ 5. A mixture of 2, 3 and 4
 ⍝ Returns the number of projects closed.
- :Access Public Shared
  r←0
  list←{0=⎕NC ⍵:ListOpenProjects 1 ⋄ ⍎⍵}'list'
  :If 0<≢list

APLSource/Cider/CloseProject.aplf

@@ -2,17 +2,17 @@
 ⍝ Creates a namespace with all parameters one might pass to `OpenProject`.\\
 ⍝ `y` might be an empty vector or a namespace with some such parameters.
 ⍝ Any parameters passed this way overwrite defaults.
- :Access Public Shared
  parms←(1⊃1↓⎕RSI,⎕THIS).⎕NS''      ⍝ Create namespace where we got called from
  parms.folder←''
  parms.projectSpace←''
- parms.quietFlag←0
  parms.alias←''
  parms.parent←''
  parms.suppressInit←0
  parms.ignoreUserExec←0
  parms.importFlag←0
  parms.noPkgLoad←0
+ parms.verbose←GetGlobalVerboseDefault
+ parms.batch←0
  parms.watch←(1+HasDotNet)⊃'ns' 'both'
  parms.checkPackageVersions←⍬      ⍝ ⍬ means the user will be asked; 0 means don't. 1 means yes, check, but ask before updating, 2 means update
  :If ~(⊂y)∊''⍬