global-functions: $WaitForFile: use delay instead of iterations

This commit is contained in:
Christian Hesse 2023-02-02 11:05:16 +01:00
parent b794d98cbb
commit 978c03131a
2 changed files with 7 additions and 6 deletions

View file

@ -1213,20 +1213,21 @@
# wait for file to be available
:set WaitForFile do={
:local FileName [ :tostr $1 ];
:local Iter [ :tonum $2 ];
:local FileName [ :tostr $1 ];
:local WaitTime [ :totime $2 ];
:global CleanFilePath;
:global EitherOr;
:set FileName [ $CleanFilePath $FileName ];
:local I 0;
:local I 1;
:local Delay ([ :totime [ $EitherOr $WaitTime 2s ] ] / 20);
:while ([ :len [ /file/find where name=$FileName ] ] = 0) do={
:if ($I > [ $EitherOr $Iter 20 ]) do={
:if ($I >= 20) do={
:return false;
}
:delay 100ms;
:delay $Delay;
:set I ($I + 1);
}
:return true;