global-functions: introduce $FileExists

This commit is contained in:
Christian Hesse 2025-05-30 20:34:07 +02:00
parent 117abedc0c
commit c1bb4f095e

View file

@ -38,6 +38,7 @@
:global ExitError;
:global FetchHuge;
:global FetchUserAgentStr;
:global FileExists;
:global FormatLine;
:global FormatMultiLines;
:global GetMacVendor;
@ -529,6 +530,29 @@
$Resource->"architecture-name" . " " . $Caller . "/Fetch (https://rsc.eworm.de/)");
}
# check for existence of file, optionally with type
:set FileExists do={
:local FileName [ :tostr $1 ];
:local Type [ :tostr $2 ];
:local FileVal;
:do {
:set FileVal [ /file/get $FileName ];
} on-error={
:return false;
}
:if ([ :len ($FileVal->"size") ] = 0) do={
:return false;
}
:if ([ :len $Type ] = 0 || $FileVal->"type" = $Type) do={
:return true;
}
:return false;
}
# format a line for output
:set FormatLine do={
:local Key [ :tostr $1 ];