make is_exe own file

Author: scivision

+stdlib/+fileio/TestFileio.m

@@ -78,14 +78,20 @@ function test_makedir(tc)
 
 function test_which(tc)
 import stdlib.fileio.which
+import stdlib.fileio.is_exe
 
 n = "matlab";
-% assumes Matlab in environment variable PATH
-tc.assumeNotEmpty(which(n))
-
+%% which: Matlab in environment variable PATH
+tc.verifyNotEmpty(which(n))
+%% is_exe test
 p = fullfile(matlabroot, "bin", n);
-
-% full absolute path
+if ispc
+  fp = p + ".exe";
+else
+  fp = p;
+end
+tc.verifyTrue(is_exe(fp))
+%% which: test absolute path
 exe = which(p);
 
 if ispc

+stdlib/+fileio/is_exe.m

@@ -0,0 +1,17 @@
+function ok = is_exe(file)
+%% ok = is_exe(file)
+% is a file executable?
+
+arguments
+  file (1,1) string
+end
+
+if ~isfile(file)
+  ok = false;
+  return
+end
+
+[ok1, stat] = fileattrib(file);
+ok = ok1 == 1 && (stat.UserExecute == 1 || stat.GroupExecute == 1);
+
+end

+stdlib/+fileio/which.m

@@ -8,6 +8,8 @@
   subdir (1,:) string {mustBeNonempty} = ""
 end
 
+import stdlib.fileio.is_exe
+
 exe = string.empty;
 
 if ispc
@@ -20,7 +22,7 @@
 if any(strlength(fileparts(name)) > 0)
   % has directory part
   for n = name
-    if check_exe(n)
+    if is_exe(n)
       exe = n;
       break
     end
@@ -40,7 +42,7 @@
   for s = subdir
     for n = name
       e = fullfile(p, s, n);
-      if check_exe(e)
+      if is_exe(e)
         exe = e;
         return
       end
@@ -50,14 +52,3 @@
 end
 
 end
-
-
-function ok = check_exe(exe)
-arguments
-  exe (1,1) string
-end
-
-[ok1, stat] = fileattrib(exe);
-ok = ok1 == 1 && (stat.UserExecute == 1 || stat.GroupExecute == 1);
-
-end