get_permissions: choose_method

Author: scivision

+stdlib/+legacy/get_permissions.m

@@ -0,0 +1,9 @@
+function p = get_permissions(file)
+
+p = '';
+
+if ~stdlib.exists(file), return, end
+
+p = stdlib.native.perm2char(filePermissions(file), file);
+
+end

+stdlib/+legacy/is_exe.m

@@ -8,7 +8,7 @@
 
 if ~y, return, end
 
-a = stdlib.native.file_attributes(file);
+a = file_attributes(file);
 y = a.UserExecute || a.GroupExecute || a.OtherExecute;
 
 end

+stdlib/+legacy/is_readable.m

@@ -1,7 +1,7 @@
 function y = is_readable(file)
 
 if stdlib.exists(file)
-  a = stdlib.native.file_attributes(file);
+  a = file_attributes(file);
   y = a.UserRead || a.GroupRead || a.OtherRead;
 else
   y = false;

+stdlib/+legacy/is_writable.m

@@ -1,7 +1,7 @@
 function y = is_writable(file)
 
 if stdlib.exists(file)
-  a = stdlib.native.file_attributes(file);
+  a = file_attributes(file);
   y = a.UserWrite || a.GroupWrite || a.OtherWrite;
 else
   y = false;

+stdlib/+native/file_attributes.m renamed to +stdlib/+legacy/private/file_attributes.m

@@ -0,0 +1,11 @@
+function p = get_permissions(file)
+
+p = '';
+
+if ~stdlib.exists(file), return, end
+
+v = filePermissions(file);
+
+p = stdlib.native.perm2char(v, file);
+
+end

+stdlib/+native/get_permissions.m

@@ -0,0 +1,45 @@
+%% NATIVE.PERM2CHAR convert file permissions to permission string
+
+function p = perm2char(v, file)
+arguments
+  v (1,1)
+  file {mustBeTextScalar}
+end
+
+
+p = '---------';
+
+if isa(v, "matlab.io.WindowsPermissions") || isa(v, "matlab.io.UnixPermissions")
+  if v.Readable,  p(1) = 'r'; end
+  if v.Writable,  p(2) = 'w'; end
+elseif isstruct(v)
+  if v.UserRead,  p(1) = 'r'; end
+  if v.UserWrite, p(2) = 'w'; end
+else
+  % cloud / remote locations we don't handle
+  p = '';
+  return
+end
+
+if isa(v, "matlab.io.WindowsPermissions") || ispc()
+
+  if p(1) == 'r' && stdlib.native.has_windows_executable_suffix(file)
+    p(3) = 'x';
+  end
+
+  return
+
+else
+
+  if v.UserExecute, p(3) = 'x'; end
+
+end
+
+if v.GroupRead,     p(4) = 'r'; end
+if v.GroupWrite,    p(5) = 'w'; end
+if v.GroupExecute,  p(6) = 'x'; end
+if v.OtherRead,     p(7) = 'r'; end
+if v.OtherWrite,    p(8) = 'w'; end
+if v.OtherExecute,  p(9) = 'x'; end
+
+end

+stdlib/+native/perm2char.m

@@ -2,74 +2,14 @@
 %
 % output is char like 'rwxrwxr--'
 
-function p = get_permissions(f)
+function p = get_permissions(file, method)
 arguments
-  f {mustBeTextScalar}
+  file {mustBeTextScalar}
+  method (1,:) string = ["native", "legacy"]
 end
 
-p = '';
+fun = choose_method(method, "get_permissions", 'R2025a');
 
-if ~stdlib.exists(f), return, end
+p = fun(file);
 
-if ~isMATLABReleaseOlderThan('R2025a')
-  v = filePermissions(f);
-elseif stdlib.isoctave()
-  [s, err] = stat(f);
-  if err == 0
-    p = s.modestr;
-  end
-  return
-else
-  v = stdlib.native.file_attributes(f);
 end
-
-p = perm2char(v, f);
-
-end
-
-
-function p = perm2char(v, f)
-arguments
-  v (1,1)
-  f {mustBeTextScalar}
-end
-
-
-p = '---------';
-
-if isa(v, "matlab.io.WindowsPermissions") || isa(v, "matlab.io.UnixPermissions")
-  if v.Readable,  p(1) = 'r'; end
-  if v.Writable,  p(2) = 'w'; end
-elseif isstruct(v)
-  if v.UserRead,  p(1) = 'r'; end
-  if v.UserWrite, p(2) = 'w'; end
-else
-  % cloud / remote locations we don't handle
-  p = '';
-  return
-end
-
-if isa(v, "matlab.io.WindowsPermissions") || ispc()
-
-  if p(1) == 'r' && stdlib.native.has_windows_executable_suffix(f)
-    p(3) = 'x';
-  end
-
-  return
-
-else
-
-  if v.UserExecute, p(3) = 'x'; end
-
-end
-
-if v.GroupRead,     p(4) = 'r'; end
-if v.GroupWrite,    p(5) = 'w'; end
-if v.GroupExecute,  p(6) = 'x'; end
-if v.OtherRead,     p(7) = 'r'; end
-if v.OtherWrite,    p(8) = 'w'; end
-if v.OtherExecute,  p(9) = 'x'; end
-
-end
-
-%!assert(length(get_permissions('get_permissions.m')) >= 9)

+stdlib/get_permissions.m

@@ -2,7 +2,7 @@
 
 properties (TestParameter)
 Ps = {".", pwd(), "", tempname(), mfilename('fullpath') + ".m"}
-sp_fun = {'native', 'legacy'}
+fname = {'native', 'legacy'}
 end
 
 methods(TestClassSetup)
@@ -14,11 +14,15 @@ function pkg_path(tc)
 
 methods (Test, TestTags="impure")
 
-function test_get_permissions(tc, Ps)
+function test_get_permissions(tc, Ps, fname)
 import matlab.unittest.constraints.StartsWithSubstring
 
-p = stdlib.get_permissions(Ps);
-
+try
+  p = stdlib.get_permissions(Ps, fname);
+catch e
+  tc.verifyEqual(e.identifier, 'stdlib:choose_method:NameError')
+  return
+end
 tc.verifyClass(p, "char")
 
 if stdlib.exists(Ps)
@@ -54,7 +58,7 @@ function test_set_permissions_noread(tc)
 end
 
 
-function test_set_permissions_nowrite(tc, sp_fun)
+function test_set_permissions_nowrite(tc, fname)
 import matlab.unittest.constraints.StartsWithSubstring
 
 tc.assumeFalse(isMATLABReleaseOlderThan('R2022a'))
@@ -64,15 +68,14 @@ function test_set_permissions_nowrite(tc, sp_fun)
 
 tc.verifyTrue(stdlib.touch(nw))
 try
-  tc.verifyTrue(stdlib.set_permissions(nw, 0, -1, 0, sp_fun))
+  tc.verifyTrue(stdlib.set_permissions(nw, 0, -1, 0, fname))
 catch e
   tc.verifyEqual(e.identifier, 'stdlib:choose_method:NameError')
   return
 end
 
-
 p = stdlib.get_permissions(nw);
-if ~ispc() || sp_fun ~= "legacy"
+if ~ispc() || fname ~= "legacy"
   tc.verifyThat(p, StartsWithSubstring("r-"), "no-write permission failed to set")
 end