suffix: vectorize

Author: scivision

+stdlib/suffix.m

@@ -2,11 +2,16 @@
 
 function s = suffix(p)
 arguments
-  p {mustBeTextScalar}
+  p string
 end
 
-[~, ~, s] = fileparts(p);
+pat = textBoundary("start") + asManyOfPattern(wildcardPattern + ".", 1);
 
-end
+s = extractAfter(p, pat);
+
+i = ~ismissing(s);
+s(~i) = "";
 
-%!assert (suffix('/a/b.c'), '.c')
+s(i) = strcat('.', s(i));
+
+end

test/TestSuffix.m

@@ -4,8 +4,8 @@
 p = {{"", ""}, {"/a/b/c", ""}, ...
   {"/a/b/c/", ""}, {"a/b/c.txt", ".txt"}, ...
   {"a/b/c.txt.gz", ".gz"}, ...
-  {'.stat', '.stat'}, ...
-  {'.stat.txt', '.txt'}}
+  {'.stat', ".stat"}, ...
+  {'.stat.txt', ".txt"}}
 end
 
 methods (Test, TestTags="pure")