is_exe, is_readable, is_writable: generalize

For R2025a+, can be string arrays

Author: scivision

+stdlib/is_exe.m

@@ -4,24 +4,23 @@
 
 function ok = is_exe(p)
 arguments
-  p {mustBeTextScalar}
+  p string
 end
+% need to have string array type for p(:)
 
-if ~isfile(p)
-  ok = false;
-  return
+if ~stdlib.isoctave() && ~isMATLABReleaseOlderThan('R2025a')
+  if isunix
+    props = ["UserExecute", "GroupExecute", "OtherExecute"];
+  else
+    props = "Readable";
+  end
+  t = getPermissions(filePermissions(p), props);
+  ok = isfile(p(:)) & any(t{:,:}, 2);
+else
+  a = file_attributes_legacy(p);
+  ok = isfile(p) && (a.UserExecute || a.GroupExecute || a.OtherExecute);
 end
 
-try
-  a = filePermissions(p);
-  ok = a.UserExecute || (isa(a, "matlab.io.UnixPermissions") && (a.GroupExecute || a.OtherExecute));
-catch e
-  switch e.identifier
-    case {'Octave:undefined-function', 'MATLAB:UndefinedFunction'}
-      a = file_attributes_legacy(p);
-      ok = ~isempty(a) && (a.UserExecute || a.GroupExecute || a.OtherExecute);
-    otherwise, rethrow(e)
-  end
 end
 
 %!assert (!is_exe("."))

+stdlib/is_readable.m

@@ -1,20 +1,17 @@
 %% IS_READABLE is file readable
 
 function ok = is_readable(p)
-arguments
-  p {mustBeTextScalar}
-end
 
-try
-  a = filePermissions(p);
-  ok = a.Readable || (isa(a, "matlab.io.UnixPermissions") && (a.GroupRead || a.OtherRead));
-catch e
-  switch e.identifier
-    case {'Octave:undefined-function', 'MATLAB:UndefinedFunction'}
-      a = file_attributes_legacy(p);
-      ok = ~isempty(a) && (a.UserRead || a.GroupRead || a.OtherRead);
-    otherwise, rethrow(e)
+if ~stdlib.isoctave() && ~isMATLABReleaseOlderThan('R2025a')
+  props = "Readable";
+  if isunix
+    props = [props, "GroupRead", "OtherRead"];
   end
+  t = getPermissions(filePermissions(p), props);
+  ok = any(t{:,:}, 2);
+else
+  a = file_attributes_legacy(p);
+  ok = a.UserRead || a.GroupRead || a.OtherRead;
 end
 
 %!assert (is_readable('is_readable.m'))

+stdlib/is_writable.m

@@ -1,20 +1,17 @@
 %% IS_WRITABLE is path writable
 
 function ok = is_writable(p)
-arguments
-  p {mustBeTextScalar}
-end
 
-try
-  a = filePermissions(p);
-  ok = a.Writable || (isa(a, "matlab.io.UnixPermissions") && (a.GroupWrite || a.OtherWrite));
-catch e
-  switch e.identifier
-    case {'Octave:undefined-function', 'MATLAB:UndefinedFunction'}
-      a = file_attributes_legacy(p);
-      ok = ~isempty(a) && (a.UserWrite || a.GroupWrite || a.OtherWrite);
-    otherwise, rethrow(e)
+if ~stdlib.isoctave() && ~isMATLABReleaseOlderThan('R2025a')
+  props = "Writable";
+  if isunix
+    props = [props, "GroupWrite", "OtherWrite"];
   end
+  t = getPermissions(filePermissions(p), props);
+  ok = any(t{:,:}, 2);
+else
+  a = file_attributes_legacy(p);
+  ok = a.UserWrite || a.GroupWrite || a.OtherWrite;
 end
 
 end

+stdlib/private/file_attributes_legacy.m

@@ -1,4 +1,7 @@
 function a = file_attributes_legacy(p)
+arguments
+  p {mustBeTextScalar}
+end
 
 assert(~strempty(p), 'Path must not be empty.')