with_suffix: vectorize

Author: scivision

+stdlib/with_suffix.m

@@ -8,34 +8,19 @@
 
 function f = with_suffix(p, suffix)
 arguments
-  p {mustBeTextScalar}
+  p string
   suffix {mustBeTextScalar}
 end
 
-f = '';
+i = ~lookBehindBoundary("/" | filesep);
 
-r = stdlib.parent(p);
-if strempty(r), return, end
+pat = (i + "." + alphanumericsPattern + textBoundary('end')) | textBoundary('end');
 
-s = stdlib.stem(p);
+f = extractBefore(p, pat);
 
-if strempty(s)
-  f = stdlib.join(p, suffix);
-  return
-end
-
-if strcmp(r, '.')
-  f = s;
-else
-  f = fullfile(r, s);
-end
+i = strempty(f);
+f(i) = p(i);
 
-f = strcat(f, suffix);
+f = f + suffix;
 
 end
-
-%!assert(with_suffix("ab.h5", ".nc"), "ab.nc")
-%!assert(with_suffix("ab", ".nc"), "ab.nc")
-%!assert(with_suffix("ab.h5", ""), "ab")
-%!assert(with_suffix("ab", ""), "ab")
-%!assert(with_suffix("ab/.h5", ".nc"), fullfile("ab", ".h5.nc"))

test/TestStem.m

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

test/TestWithSuffix.m

@@ -9,9 +9,11 @@
 {"c", "", "c"}, ...
 {"c.nc", "", "c"}, ...
 {"", ".nc", ".nc"}, ...
-{'a/b/', '.h5', fullfile('a', 'b', '.h5')}, ...
-{"a/b/.h5", '.nc', fullfile("a", "b", ".h5.nc")}, ...
-{'a/b', '.nc', fullfile('a', 'b.nc')}};
+{"hello.txt.gz", ".bz", "hello.txt.bz"}, ...
+{'a/b/', '.h5', "a/b/.h5"}, ...
+{"a/b/.h5", '.nc', "a/b/.h5.nc"}, ...
+{".h5", ".nc", ".h5.nc"}, ...
+{'a/b', '.nc', "a/b.nc"}};
 end
 
 methods (Test, TestTags="true")