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

... to increase timeout. Every iteration is about 100ms.
This commit is contained in:
Christian Hesse 2023-01-31 14:59:13 +01:00
parent f62328ee8d
commit f666d2f8ff

View file

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