wider compatibility and speed

Author: scivision

+stdlib/expanduser.m

@@ -11,25 +11,26 @@
 
 function e = expanduser(file)
 
-pat = ['~[/\', filesep, ']+|^~$'];
+e = char(file);
 
-[i0, i1] = regexp(file, pat, 'once');
+pat = ['~[/', filesep, ']+|^~$'];
 
-if isempty(i0)
-  % no leading ~ or it's ~user, which we don't handle
-  e = file;
-  return
-end
+[i0, i1] = regexp(e, pat, 'once');
+
+if ~isempty(i0)
 
-home = stdlib.homedir();
+  home = stdlib.homedir();
 
-if i1 - i0 == 0 || strlength(file) == i1
-  e = home;
-  if isstring(file)
-    e = string(e);
+  if i1 - i0 == 0 || length(e) == i1
+    e = home;
+  else
+    e = [home, '/', e(i1+1:end)];
   end
-else
-  e = stdlib.append(home, '/', extractAfter(file, i1));
+
+end
+
+if isstring(file)
+  e = string(e);
 end
 
 end

+stdlib/get_modtime.m

@@ -7,8 +7,6 @@
 
 function t = get_modtime(file)
 
-t = datetime.empty;
-
 % char() for Matlab < R2018a
 finf = dir(char(file));
 
@@ -18,7 +16,13 @@
   finf = finf(i);
 end
 
-if ~isempty(finf)
+if isempty(finf)
+  t = datetime.empty;
+else
+  t = finf.datenum;
+end
+
+try %#ok<TRYNC>
   t = datetime(finf.datenum, 'ConvertFrom', 'datenum');
 end
 

+stdlib/is_rosetta.m

@@ -11,7 +11,7 @@
 
 if ismac()
   [s, raw] = system('sysctl -n sysctl.proc_translated');
-  r = s == 0 && startsWith(raw, '1');
+  r = s == 0 && raw(1) == '1';
 else
   r = false;
 end

+stdlib/root_dir.m

@@ -10,17 +10,22 @@
 
 function r = root_dir(p)
 
-if startsWith(p, ["/", filesep])
-  r = extractBefore(p, 2);
+c = char(p);
+r = '';
+
+if isempty(c)
+  % pass
+elseif ismember(c(1), ["/", filesep])
+  r = c(1);
 elseif ispc()
-  m = regexp(p, '^[A-Za-z]:([\\/])', 'tokens', 'once');
-  if isempty(m)
-    r = extractBefore(p, 1);
-  else
+  m = regexp(c, '^[A-Za-z]:([\\/])', 'tokens', 'once');
+  if ~isempty(m)
     r = m{1};
   end
-else
-  r = extractBefore(p, 1);
+end
+
+if isstring(p)
+  r = string(r);
 end
 
 end

+stdlib/root_name.m

@@ -7,10 +7,16 @@
 
 function r = root_name(p)
 
-if ispc() && ~isempty(regexp(p, '^[A-Za-z]:', 'once'))
-  r = extractBefore(p, 3);
+c = char(p);
+
+if ispc() && ~isempty(regexp(c, '^[A-Za-z]:', 'once'))
+  r = c(1:2);
 else
-  r = extractBefore(p, 1);
+  r = '';
+end
+
+if isstring(p)
+  r = string(r);
 end
 
 end

test/TestSymlink.m

@@ -20,9 +20,9 @@
 function setup_symlink(tc)
 tc.applyFixture(matlab.unittest.fixtures.WorkingFolderFixture());
 
-tc.link = [pwd(), '/my.lnk'];
+tc.link = fullfile(pwd(), 'my.lnk');
 
-tc.target = [pwd(), '/my_target.txt'];
+tc.target = fullfile(pwd(), 'my_target.txt');
 tc.assertTrue(stdlib.touch(tc.target), "failed to create test target " + tc.target)
 
 tc.assertTrue(stdlib.create_symlink(tc.target, tc.link), ...