ROOT get root path
ROOT(P) returns the root path of P. root is the root_name + root_directory.
function r = root(p) arguments p (1,1) string end r = stdlib.root_name(p); if ~stdlib.len(r) if strncmp(p, "/", 1) r = "/"; end return end if ispc && strcmp(r, p) return end r = strcat(r, "/"); end %!assert(root(''), '') %!assert(root('/'), '/') %!test %! if ispc %! assert(root('C:\'), 'C:/') %! assert(root('C:/'), 'C:/') %! assert(root('C:'), 'C:') %! assert(root('C'), '') %! endif