lexical is_subdir

geospace-code · Dec 9, 2024 · 2963737 · 2963737
1 parent 12a4ca1
commit 2963737
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/+stdlib/is_subdir.m b/+stdlib/is_subdir.m
@@ -6,14 +6,10 @@
   dir (1,1) string
 end
 
-r = stdlib.relative_to(dir, subdir);
-
-if stdlib.len(r) == 0 || r == "."
-  s = false;
-elseif ischar(r)
-  s = ~strncmp(r, '..', 2);
+if ischar(subdir)
+  s = strfind(subdir, dir) == 1 && (length(subdir) > length(dir)); %#ok<UNRCH>
 else
-  s = ~startsWith(r, "..");
+  s = startsWith(subdir, dir) && (strlength(subdir) > strlength(dir));
 end
 
 end