ROOT_DIR get root directory

Examples:

Contents

Windows
Unix

Windows

root_dir('C:\path\to\file') returns '\'
root_dir('C:path\to\file') returns ''

Unix

root_dir('/path/to/file') returns '/'
root_dir('path/to/file') returns ''

function r = root_dir(p)
arguments
  p string
end

r = repmat("", size(p));

i = startsWith(p, "/" | filesep);
r(i) = extractBefore(p(i), 2);

if ispc()
  i = startsWith(p, lettersPattern(1) + ":" + characterListPattern("/" + filesep));
  r(i) = extractBetween(p(i), 3, 3);
end

end