From f666d2f8fffd7cefc4aa590533f47e7c7d14abd7 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Tue, 31 Jan 2023 14:59:13 +0100
Subject: global-functions: $WaitForFile: allow to give iterations...

... to increase timeout. Every iteration is about 100ms.
---
 global-functions | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'global-functions')

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;
-- 
cgit v1.2.3-54-g00ecf