parent: handle corner case for Windows

Author: scivision

+stdlib/canonical.m

@@ -60,4 +60,4 @@
 end
 
 %!assert(canonical("", 0,0), "")
-%!assert(canonical("~",1,0), homedir(0))
+%!assert(canonical("~",1,0), homedir())

+stdlib/cpu_count.m

@@ -2,11 +2,14 @@
 function N = cpu_count()
 
   N = maxNumCompThreads;
-  if N < 2  % happens on some HPC
+
+  if N < 2 && ~stdlib.isoctave() % happens on some HPC
     N = feature('NumCores');
   end
 
 % logical CPUs
 % https://docs.oracle.com/en/java/javase/22/docs/api/java.base/java/lang/Runtime.html#getRuntime()
 % N=java.lang.Runtime.getRuntime().availableProcessors();
 end
+
+%!assert(cpu_count() > 0)

+stdlib/cpu_load.m

@@ -5,19 +5,17 @@
 % A value of 0.0 means that all CPUs were idle during the recent period of time observed, while a value of 1.0 means that all CPUs were actively running 100% of the time during the recent period being observed.
 % All values betweens 0.0 and 1.0 are possible depending of the activities going on in the system.
 % If the system recent cpu usage is not available, the method returns a negative value.
-%
-% Ref: https://docs.oracle.com/en/java/javase/21/docs/api/jdk.management/com/sun/management/OperatingSystemMXBean.html#getCpuLoad()
 
 function L = cpu_load()
 
 b = java.lang.management.ManagementFactory.getOperatingSystemMXBean();
 
 if stdlib.java_api() < 14
+  % https://docs.oracle.com/en/java/javase/21/docs/api/jdk.management/com/sun/management/OperatingSystemMXBean.html#getSystemCpuLoad()
   L = b.getSystemCpuLoad();
 else
+  % https://docs.oracle.com/en/java/javase/21/docs/api/jdk.management/com/sun/management/OperatingSystemMXBean.html#getCpuLoad()
   L = b.getCpuLoad();
 end
 
-% https://docs.oracle.com/en/java/javase/21/docs/api/jdk.management/com/sun/management/OperatingSystemMXBean.html#getSystemCpuLoad()
-
 end

+stdlib/create_symlink.m

@@ -15,7 +15,15 @@
   link (1,1) string
 end
 
-if ispc || isMATLABReleaseOlderThan("R2024b")
+if stdlib.isoctave()
+
+  [err, msg] = symlink(target, link);
+  ok = err == 0;
+  if ~ok
+    warning("symlink: %s", msg)
+  end
+
+elseif ispc || isMATLABReleaseOlderThan("R2024b")
 % ok = java.nio.file.Files.createSymbolicLink(java.io.File(link).toPath(), java.io.File(target).toPath());
 % the above should work, but Matlab Java doesn't recognize the optional argument omitted.
 
@@ -50,3 +58,8 @@
 end
 
 end
+
+%!test
+%! if !ispc
+%!   create_symlink(tempname, tempname)
+%! endif

+stdlib/diskfree.m

@@ -5,11 +5,19 @@
 %
 % Ref: https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/io/File.html#getUsableSpace()
 
-function freebytes = diskfree(d)
+function f = diskfree(d)
 arguments
   d (1,1) string {mustBeFolder}
 end
 
-freebytes = java.io.File(d).getUsableSpace;
+if stdlib.isoctave()
+  o = javaObject("java.io.File", d);
+else
+  o = java.io.File(d);
+end
+
+f = o.getUsableSpace();
 
 end
+
+%!assert (diskfree('.') > 0)

+stdlib/drop_slash.m

@@ -17,7 +17,7 @@
 end
 
 if ~ispc || (L ~= 3 || ~strcmp(d, stdlib.root(s, false)))
-  if stdlib.isoctave()
+  if ischar(s)
     if d(end) == '/'
       d = d(1:end-1);
     end

+stdlib/exists.m

@@ -13,7 +13,9 @@
 end
 
 
-if use_java
+if stdlib.isoctave()
+  ok = javaObject("java.io.File", p).exists();
+elseif use_java
 
 % https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/nio/file/Files.html#exists(java.nio.file.Path,java.nio.file.LinkOption...)
 % this takes 2x longer than java.io.File.exists()
@@ -27,5 +29,8 @@
   ok = isfile(p) || isfolder(p);
 end
 
-
 end
+
+%!assert (!exists(''))
+%!assert (!exists(tempname))
+%!assert (exists(program_invocation_name))

+stdlib/expanduser.m

@@ -50,8 +50,8 @@
 
 
 %!assert(expanduser('',0), '')
-%!assert(expanduser("~",0), homedir(0))
-%!assert(expanduser("~/",0), homedir(0))
+%!assert(expanduser("~",0), homedir())
+%!assert(expanduser("~/",0), homedir())
 %!assert(expanduser("~user",0), "~user")
 %!assert(expanduser("~user/",0), "~user")
-%!assert(expanduser("~///c",0), strcat(homedir(0), "/c"))
+%!assert(expanduser("~///c",0), strcat(homedir(), "/c"))

+stdlib/file_size.m

@@ -6,7 +6,9 @@
   use_java (1,1) logical = false
 end
 
-if use_java
+if stdlib.isoctave()
+  s = javaObject("java.io.File", p).length();
+elseif use_java
 % several percent slower than native Matlab
   s = java.io.File(p).length;
 else
@@ -18,5 +20,8 @@
   end
 end
 
-
 end
+
+
+%!assert (file_size(''), 0)
+%!assert (file_size('file_size.m') > 0)

+stdlib/filename.m

@@ -1,7 +1,7 @@
 % FILENAME file name of path
 % filename (including suffix) without directory
 
-function p = filename(p)
+function f = filename(p)
 arguments
   p (1,1) string
 end
@@ -11,6 +11,14 @@
 % this is like C++17 filesystem::path::filename
 
 [~, n, e] = fileparts(p);
-p = n + e;
 
+if ischar(n)
+  f = strcat(n, e);
+else
+  f = n + e;
 end
+
+end
+
+
+%!assert (filename('a/b/c.txt'), 'c.txt')