is_exe: default use Java true

Author: scivision

+stdlib/is_exe.m

@@ -6,25 +6,30 @@
 function ok = is_exe(p, use_java)
 arguments
   p (1,1) string
-  use_java (1,1) logical = false
+  use_java (1,1) logical = true
 end
 
 if ~isfile(p)
   ok = false;
   return
 end
 
-if stdlib.isoctave()
-  ok = javaObject("java.io.File", p).canExecute();
-elseif use_java
+if use_java
 % about the same time as fileattrib
-% doesn't need absolute path like other Java functions
 % https://docs.oracle.com/en/java/javase/22/docs/api/java.base/java/io/File.html#canExecute()
-  ok = java.io.File(p).canExecute();
-
 % more complicated
 % ok = java.nio.file.Files.isExecutable(java.io.File(stdlib.canonical(p)).toPath());
 
+try
+  ok = java.io.File(p).canExecute();
+catch e
+  if strcmp(e.identifier, "Octave:undefined-function")
+    ok = javaObject("java.io.File", p).canExecute();
+  else
+    rethrow(e);
+  end
+end
+
 else
 
   if ~strlength(p)

example/bench_is_exe.m

@@ -0,0 +1,17 @@
+%% benchmark
+
+f = mfilename("fullpath") + ".m";
+addpath(fullfile(fileparts(f), ".."))
+
+%f = tempname;
+
+fno = @() stdlib.is_exe(f, false);
+fjava = @() stdlib.is_exe(f, true);
+
+t_no = timeit(fno);
+t_java = timeit(fjava);
+
+disp("No Java: " + t_no + " s")
+disp("Java: " + t_java + " s")
+
+disp("Java is " + t_no/t_java + " times faster")

test/TestWhich.m

@@ -16,6 +16,8 @@ function test_which_name(tc)
 
 tc.verifyEmpty(stdlib.which(tempname))
 
+u = stdlib.has_java();
+
 if ispc
   n = "pwsh.exe";
 else
@@ -35,8 +37,8 @@ function test_is_exe_which_fullpath(tc)
 import matlab.unittest.constraints.IsFile
 import matlab.unittest.constraints.EndsWithSubstring
 
-tc.verifyFalse(stdlib.is_exe(""))
-tc.verifyFalse(stdlib.is_exe(tempname))
+tc.verifyFalse(stdlib.is_exe("", u))
+tc.verifyFalse(stdlib.is_exe(tempname, u))
 
 n = "matlab";
 %% is_exe test
@@ -46,7 +48,7 @@ function test_is_exe_which_fullpath(tc)
 else
   fp = p;
 end
-tc.verifyTrue(stdlib.is_exe(fp))
+tc.verifyTrue(stdlib.is_exe(fp, u))
 %% which: test absolute path
 exe = stdlib.which(p);