global-functions: $WaitForFile: allow to give iterations...

... to increase timeout. Every iteration is about 100ms.

1 files changed, 3 insertions, 1 deletions

diff --git a/global-functions b/global-functions
index dfb76f7..165ac9a 100644
--- a/global-functions
+++ b/global-functions
@@ -1213,14 +1213,16 @@
 # wait for file to be available
 :set WaitForFile do={
   :local FileName [ :tostr $1 ];
+  :local Iter     [ :tonum $2 ];
 
   :global CleanFilePath;
+  :global EitherOr;
 
   :set FileName [ $CleanFilePath $FileName ];
   :local I 0;
 
   :while ([ :len [ /file/find where name=$FileName ] ] = 0) do={
-    :if ($I > 20) do={
+    :if ($I > [ $EitherOr $Iter 20 ]) do={
       :return false;
     }
     :delay 100ms;