Merge branch 'file' into next

This commit is contained in:
Christian Hesse 2025-06-22 00:35:34 +02:00
commit c3010af4ed

View file

@ -559,6 +559,12 @@
:set FileGet do={ :set FileGet do={
:local FileName [ :tostr $1 ]; :local FileName [ :tostr $1 ];
:global WaitForFile;
:if ([ $WaitForFile $FileName 0s ] = false) do={
:return false;
}
:local FileVal false; :local FileVal false;
:do { :do {
:set FileVal [ /file/get $FileName ]; :set FileVal [ /file/get $FileName ];
@ -1771,14 +1777,26 @@
:global MAX; :global MAX;
:set FileName [ $CleanFilePath $FileName ]; :set FileName [ $CleanFilePath $FileName ];
:local Delay ([ $MAX [ $EitherOr $WaitTime 2s ] 100ms ] / 10); :local Delay ([ $MAX [ $EitherOr $WaitTime 2s ] 100ms ] / 9);
:do { :do {
:retry { :retry {
:if ([ :len [ /file/find where name=$FileName ] ] = 0) do={
:error false;
}
} delay=$Delay max=10;
} on-error={
:return false;
}
:while ([ :len [ /file/find where name=$FileName ] ] > 0) do={
:do {
/file/get $FileName; /file/get $FileName;
:return true; :return true;
} delay=$Delay max=10; } on-error={ }
} on-error={ } :delay $Delay;
:set Delay ($Delay * 3 / 2);
}
:return false; :return false;
} }