stem: vectorize

Author: scivision

+stdlib/stem.m

@@ -1,20 +1,23 @@
-%% STEM file name without directory or suffix
+%% STEM base file name without directory or suffix
+% STEM Extracts the file name without directory or suffix from a path.
+%   s = stem(p) returns the stem (base name) of the file specified by the path p.
+%   leading dot filenames are allowed.
+%
+%   Input:
+%     p - Character vector or string scalar specifying the file path.
+%
+%   Output:
+%     s - Character vector or string scalar containing the file name without directory or suffix.
 
-function st = stem(p)
-arguments
-  p {mustBeTextScalar}
-end
+function s = stem(p)
 
-[~, n, s] = fileparts(p);
+p0 = asManyOfPattern(wildcardPattern + ("/" | filesep));
+% p1 matches a file extension (e.g., '.txt') or the end of the string
+p1 = ("." + alphanumericsPattern + textBoundary('end')) | textBoundary('end');
 
-if strempty(n)
-  % leading dot filename
-  st = s;
-else
-  st = n;
-end
+s = extractBetween(p, p0, p1);
 
-end
+i = strempty(s);
+s(i) = extractAfter(p(i), p0);
 
-%!assert(stem('/a/b.c'), 'b')
-%!assert(stem("a/b/.c"), ".c")
+end

test/TestStem.m

@@ -8,6 +8,7 @@
 {"a/b/c/", ""}, ...
 {"a/b/c.txt", "c"}, ...
 {"a/b/c.txt.gz", "c.txt"}, ...
+{"a/b/.c", ".c"}, ...
 {'a/b/.c', '.c'}, ...
 {"", ""}
 }