getpid => get_pid()

Author: scivision

+stdlib/get_pid.m

@@ -0,0 +1,13 @@
+%% GET_PID process ID of Matlab session
+
+function pid = get_pid()
+
+if stdlib.isoctave
+  pid = getpid();
+else
+  pid = feature("getpid");
+end
+
+end
+
+%!assert(get_pid() > 0, "expected positive PID")

+stdlib/getpid.m

@@ -1,17 +1,7 @@
 %% IS_ABSOLUTE is path absolute?
-%
-%!assert(is_absolute('', false), false)
-%!test
-%! if ispc
-%!   assert(is_absolute('C:\', false), true)
-%!   assert(is_absolute('C:/', false), true)
-%!   assert(is_absolute('C:', false), false)
-%!   assert(is_absolute('C', false), false)
-%! else
-%!   assert(is_absolute('/', false), true)
-%!   assert(is_absolute('/usr', false), true)
-%!   assert(is_absolute('usr', false), false)
-%! endif
+% on Windows, absolute paths must be at least 3 character long, starting with a root name followed by a slash
+% on non-Windows, absolute paths must start with a slash
+
 
 function isabs = is_absolute(p, use_java)
 arguments
@@ -33,10 +23,24 @@
 else
   L = strlength(p);
   if ispc
-    isabs = L > 2 && strlength(stdlib.root_name(p)) && any(extractBetween(p, 3, 3) == ["/", "\"]);
+    s = extractBetween(p, 3, 3);
+    isabs = L > 2 && strlength(stdlib.root_name(p)) && (s == '/' || s == '\');
   else
     isabs = L >= 1 && startsWith(p, "/");
   end
 end
 
 end
+
+%!assert(is_absolute('', false), false)
+%!test
+%! if ispc
+%!   assert(is_absolute('C:\', false), true)
+%!   assert(is_absolute('C:/', false), true)
+%!   assert(is_absolute('C:', false), false)
+%!   assert(is_absolute('C', false), false)
+%! else
+%!   assert(is_absolute('/', false), true)
+%!   assert(is_absolute('/usr', false), true)
+%!   assert(is_absolute('usr', false), false)
+%! endif

+stdlib/is_absolute.m

@@ -1,8 +1,7 @@
 %% IS_EXE is file executable
 %
 % false if file does not exist
-%
-%!assert (is_exe('', false), false)
+
 
 function ok = is_exe(file, use_java)
 arguments
@@ -30,4 +29,9 @@
   ok = status ~= 0 && (v.UserExecute || (~isnan(v.GroupExecute) && v.GroupExecute) || (~isnan(v.OtherExecute) && v.OtherExecute));
 
 end
+
 end
+
+%!assert (is_exe('', false), false)
+%!assert (is_exe(tempname, false), false)
+%!assert (is_exe(program_invocation_name, 0), true)

+stdlib/is_exe.m

@@ -1,9 +1,6 @@
 %% IS_READABLE is file readable
 %
-% Ref: https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/nio/file/Files.html#isReadable(java.nio.file.Path)
-%
-%!assert (is_readable('is_readable.m', false))
-%!assert (is_readable('', false), false)
+% non-existant file is false
 
 function ok = is_readable(file, use_java)
 arguments
@@ -16,6 +13,7 @@
   % needs absolute()
   file = stdlib.absolute(file, "", false, use_java);
 
+  % https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/nio/file/Files.html#isReadable(java.nio.file.Path)
   ok = java.nio.file.Files.isReadable(java.io.File(file).toPath());
 else
   [status, v] = fileattrib(file);
@@ -24,3 +22,6 @@
 end
 
 end
+
+%!assert (is_readable('is_readable.m', false))
+%!assert (is_readable('', false), false)

+stdlib/is_readable.m

@@ -1,7 +1,6 @@
 %% IS_WRITABLE is path writable
 %
-%!assert (is_writable('is_writable.m', false))
-%!assert (is_writable('', false), false)
+% non-existant file is false
 
 function ok = is_writable(file, use_java)
 arguments
@@ -23,3 +22,6 @@
 end
 
 end
+
+%!assert (is_writable('is_writable.m', false))
+%!assert (is_writable('', false), false)

+stdlib/is_writable.m

@@ -1,6 +1,7 @@
 %% NULL_FILE get null file path
 
 function nul = null_file()
+
 if ispc
   nul = "NUL";
 else

+stdlib/null_file.m

@@ -2,7 +2,6 @@
 % convert a path to a Posix string path separated with "/" even on Windows.
 % If Windows path also have escaping "\" this breaks
 %
-%!assert (posix('/'), '/')
 
 function r = posix(p)
 arguments
@@ -16,3 +15,5 @@
 end
 
 end
+
+%!assert (posix('/'), '/')

+stdlib/posix.m

@@ -1,16 +1,7 @@
 %% ROOT get root path
 % ROOT(P) returns the root path of P.
 % root is the root_name + root_directory.
-%
-%!assert(root('', 0), '')
-%!assert(root('/', 0), '/')
-%!test
-%! if ispc
-%!   assert(root('C:\', 0), 'C:/')
-%!   assert(root('C:/', 0), 'C:/')
-%!   assert(root('C:', 0), 'C:')
-%!   assert(root('C', 0), '')
-%! endif
+
 
 function r = root(p, use_java)
 arguments
@@ -66,3 +57,13 @@
 end
 
 end
+
+%!assert(root('', 0), '')
+%!assert(root('/', 0), '/')
+%!test
+%! if ispc
+%!   assert(root('C:\', 0), 'C:/')
+%!   assert(root('C:/', 0), 'C:/')
+%!   assert(root('C:', 0), 'C:')
+%!   assert(root('C', 0), '')
+%! endif

+stdlib/root.m

@@ -3,16 +3,7 @@
 % root_name is the drive letter on Windows without the trailing slash
 % or an empty string if P is not an absolute path.
 % on non-Windows platforms, root_name is always an empty string.
-%
-%!assert(root_name(''), '')
-%!assert(root_name('/'), '')
-%!test
-%! if ispc
-%!   assert(root_name('C:\'), 'C:')
-%!   assert(root_name('C:/'), 'C:')
-%!   assert(root_name('C:'), 'C:')
-%!   assert(root_name('C'), '')
-%! endif
+
 
 function r = root_name(p)
 arguments
@@ -36,3 +27,13 @@
 end
 
 end
+
+%!assert(root_name(''), '')
+%!assert(root_name('/'), '')
+%!test
+%! if ispc
+%!   assert(root_name('C:\'), 'C:')
+%!   assert(root_name('C:/'), 'C:')
+%!   assert(root_name('C:'), 'C:')
+%!   assert(root_name('C'), '')
+%! endif