native.parent: any size array

Author: scivision

+stdlib/+native/parent.m

@@ -1,18 +1,23 @@
 function p = parent(pth)
-
-f = fullfile(char(pth));
-if endsWith(f, {'/', filesep}) && ~strcmp(f, stdlib.root(f))
-  f = f(1:end-1);
+arguments
+  pth string
 end
 
+f = fullfile(pth);
+
+i = endsWith(f, ["/", filesep]) & ~strcmp(f, stdlib.root(f));
+
+f(i) = extractBefore(f(i), strlength(f(i)));
+
 p = fileparts(f);
 
-if stdlib.strempty(p)
-  p = '.';
-elseif ispc() && strcmp(p, stdlib.root_name(pth))
-  p = strcat(p, filesep);
-end
+i = stdlib.strempty(p);
+p(i) = ".";
 
-p = string(p);
+% the ~all(i) is for Windows Matlab < R2025a
+if ispc() && ~all(i)
+  i = p(~i) == stdlib.root_name(pth(~i));
+  p(i) = strcat(p(i), filesep);
+end
 
 end

+stdlib/parent.m

@@ -4,14 +4,17 @@
 % stdlib.parent("a/b/c") == "a/b"
 % stdlib.parent("a/b/c/") == "a/b"
 
-function p = parent(pth, backend)
+function par = parent(file, backend)
 arguments
-  pth {mustBeTextScalar}
-  backend (1,:)string = ["java", "python", "native"]
+  file string
+  backend (1,:) string = ["java", "python", "native"]
 end
 
-fun = hbackend(backend, "parent");
-
-p = fun(pth);
+if isscalar(file)
+  fun = hbackend(backend, "parent");
+  par = fun(file);
+else
+  par = stdlib.native.parent(file);
+end
 
 end

private/get_compiler.m

@@ -14,7 +14,7 @@
     case "fortran"
       comp = getenv("FC");
       if isempty(comp)
-        disp("set FC environment variable to the Fortran compiler path via get_compiler('fortran'), or do 'mex -setup c++")
+        disp("set FC environment variable to the Fortran compiler path via get_compiler('fortran'), or do 'mex -setup Fortran")
       end
     case "c++"
       comp = getenv("CXX");
@@ -49,5 +49,3 @@
 end
 
 end
-
-

test/TestParent.m

@@ -18,7 +18,7 @@ function test_parent(tc, p, backend)
 try
   pr = stdlib.parent(p{1}, backend);
 catch e
-  tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.message)
+  tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.stack(1).file + ":" + string(e.stack(1).line) + " " + e.message)
   return
 end
 tc.verifyEqual(pr, p{2}, sprintf("parent(%s, %s)", p{1}, backend))