is_absolute, absolute: any size array

Author: scivision

+stdlib/absolute.m

@@ -17,15 +17,18 @@
 
 function c = absolute(p, base)
 arguments
-  p {mustBeTextScalar}
+  p string
   base {mustBeTextScalar} = pwd()
 end
 
-if stdlib.is_absolute(p)
-  c = p;
-  return
+i = stdlib.is_absolute(p);
+c(i) = p(i);
+
+% avoid infinite recursion
+if ~stdlib.is_absolute(base)
+  base = fullfile(pwd(), base);
 end
 
-c = fullfile(stdlib.absolute(base), p);
+c(~i) = fullfile(base, p(~i));
 
 end

+stdlib/is_absolute.m

@@ -6,15 +6,17 @@
 
 function y = is_absolute(p)
 arguments
-  p {mustBeTextScalar}
+  p string
 end
 
-% not Octave is_absolute_filename() because this is a stricter check for "c:" false
+y = false(size(p));
 
-y = ~stdlib.strempty(stdlib.root_dir(p));
+i = ~stdlib.strempty(stdlib.root_dir(p));
+
+y(i) = true;
 
 if ispc()
-  y = y && ~stdlib.strempty(stdlib.root_name(p));
+  y(i) = ~stdlib.strempty(stdlib.root_name(p(i)));
 end
 
 end

test/TestAbsolute.m

@@ -6,7 +6,7 @@
 
 properties (TestParameter)
 p1 = {'', "", "hi", "./hi", "../hi"};
-p2 = {{'', ''}, {'', ""}, {"", ''}, {"", ""}, {"", "hi"}, {"hi", ""}, {'there', "hi"}};
+p2 = {{'', ""}, {'', ""}, {"", ""}, {"", ""}, {"", "hi"}, {"hi", ""}, {'there', "hi"}};
 end
 
 
@@ -47,11 +47,10 @@ function test_absolute1arg(tc, p1)
   r = fullfile(r, p1);
 end
 
-if isstring(p1)
-  r = string(r);
-end
+rabs = stdlib.absolute(p1);
 
-tc.verifyEqual(stdlib.absolute(p1), r)
+tc.verifyClass(rabs, 'string')
+tc.verifyEqual(rabs, string(r))
 end
 
 
@@ -67,11 +66,10 @@ function test_absolute2arg(tc, p2)
   r = fullfile(r, p2{1});
 end
 
-if isstring(p2{1}) || isstring(p2{2})
-  r = string(r);
-end
+rabs = stdlib.absolute(p2{1}, p2{2});
 
-tc.verifyEqual(stdlib.absolute(p2{1}, p2{2}), r)
+tc.verifyClass(rabs, 'string')
+tc.verifyEqual(rabs, string(r))
 end
 
 end