WriteUtf8File has been made more robust in case a race condition prevents it from accessing a file

Author: aplteam

.gitignore

@@ -1,3 +1,4 @@
-.acre
+.acre/
+aplcore
 Dist/
-Development.dws
+.gitignore

APLSource/APLTreeUtils.apln

@@ -1,9 +1,11 @@
 :Namespace APLTreeUtils
 
-⍝ *** Version 6.0.0 ⋄ 2020-03-21 ***
+⍝ *** Version 6.0.1 ⋄ 2020-05-29 ***
 ⍝ ## Overview
 ⍝ Note that `APLTreeUtils` does not work with the Classic edition - it requires Unicode.\\
 ⍝ ## Version History
+⍝ * 6.0.1
+⍝   `WriteUtf8File` has been made more robust in case a race condition prevents it from accessing a file
 ⍝ * 6.0.0
 ⍝   * Renamed: it's now APLTreeUtils.apln rather than APLTreeUtils.dyalog
 ⍝ Kai Jaeger - APL Team Ltd.\\
@@ -214,7 +216,7 @@
       max←5
       fno←0⍴i←size←flag←0
       :Repeat
-          ⎕DL 1×i>0
+          ⎕DL i×0.1
           :If wasOpenFlag←0=1↑0⍴fileIdentifier
               fno←fileIdentifier
               size←⎕NSIZE fno
@@ -229,11 +231,14 @@
               :Case 22
                   fno←(filename~'"')⎕NCREATE 0
                   flag←1
+              :Case 19
+                  ⍝ Try again
               :Else
                   ('Could not open file ',filename)⎕SIGNAL ⎕EN
               :EndTrap
           :EndIf
       :Until flag∨max<i←i+1
+      ⎕DMX.EM ⎕SIGNAL ⎕EN/⍨0=≢fno
       :If append
       :AndIf (0<size)∧~simpleFlag
           data,⍨←newline

APLSource/TestCases/Test_013.aplf

@@ -5,6 +5,7 @@
  ⎕TRAP←(999 'C' '. ⍝ Deliberate error')(0 'N')
  home←GetTestFilesHome
  filename←home,'tiedFile'
+ ##.APLTreeUtils.WriteUtf8File filename'test file'
 
  :If 'Win'≡##.APLTreeUtils.GetOperatingSystem ⍬
      cs←##.Execute.DefaultParms

Make/Make.bat

@@ -1 +1 @@
-<tool name="APLTreeUtils">  <version>6.0.0</version>  <date>2020-03-21</date>  <container>#.APLTreeUtils</container>  <needs>    <script>APLTreeUtils</script>    <script>FilesAndDirs</script>    <script>OS</script>    <script>Logger</script>    <script>Execute</script>    <script development="true">Tester2</script>  </needs>  <autoload>1</autoload>  <scriptOnly>1</scriptOnly>  <buildid>1</buildid>  <package>1</package></tool>
+<tool name="APLTreeUtils">  <version>6.0.1</version>  <date>2020-05-29</date>  <container>#.APLTreeUtils</container>  <needs>    <script>APLTreeUtils</script>    <script development="true">FilesAndDirs</script>    <script development="true">OS</script>    <script development="true">Logger</script>    <script development="true">Execute</script>    <script development="true">Tester2</script>  </needs>  <autoload>1</autoload>  <scriptOnly>1</scriptOnly>  <buildid>1</buildid>  <package>1</package>  <desc>General utilities :Included by most members of the APLTree library</desc>  <tags>Utilities;Linux;Mac-OS;Windows</tags></tool>