allow older Matlab and GNU Octave to work

Author: scivision

+stdlib/absolute.m

@@ -17,14 +17,23 @@
 % non-existant path is made absolute relative to pwd
 
 function c = absolute(p, base, expand_tilde, use_java)
-arguments
-  p (1,1) string
-  base (1,1) string = ""
-  expand_tilde (1,1) logical = true
-  use_java (1,1) logical = false
+% arguments
+%   p (1,1) string
+%   base (1,1) string = ""
+%   expand_tilde (1,1) logical = true
+%   use_java (1,1) logical = false
+% end
+if nargin < 2, base = ""; end
+if nargin < 3, expand_tilde = true; end
+if nargin < 4, use_java = false; end
+
+cwd = pwd();
+
+try %#ok<TRYNC>
+  cwd = string(cwd);
 end
 
-cwd = stdlib.posix(pwd());
+cwd = stdlib.posix(cwd);
 
 Lb = stdlib.len(base);
 
@@ -70,5 +79,5 @@
 end
 
 
-%!assert(absolute('', '', 0,0), posix(pwd))
-%!assert(absolute('a/b', '', 0,0), posix(fullfile(pwd, 'a/b')))
+%!assert(absolute('', ''), posix(pwd))
+%!assert(absolute('a/b', ''), posix(fullfile(pwd, 'a/b')))

+stdlib/canonical.m

@@ -14,11 +14,13 @@
 % https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/io/File.html#getCanonicalPath()
 
 function c = canonical(p, expand_tilde, use_java)
-arguments
-  p (1,1) string
-  expand_tilde (1,1) logical = true
-  use_java (1,1) logical = false
-end
+% arguments
+%   p (1,1) string
+%   expand_tilde (1,1) logical = true
+%   use_java (1,1) logical = false
+% end
+if nargin < 2, expand_tilde = true; end
+if nargin < 3, use_java = false; end
 
 if expand_tilde
   c = stdlib.expanduser(p, use_java);
@@ -59,6 +61,6 @@
 
 end
 
-%!assert(canonical("", 0,0), "")
-%!assert(canonical("~",1,0), homedir())
-%!assert(canonical("a/b/..",0,0), "a")
+%!assert(canonical(""), "")
+%!assert(canonical("~"), homedir())
+%!assert(canonical("a/b/.."), "a")

+stdlib/create_symlink.m

@@ -9,18 +9,17 @@
 % Ref: https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/nio/file/Files.html#createSymbolicLink(java.nio.file.Path,java.nio.file.Path,java.nio.file.attribute.FileAttribute...)
 
 function ok = create_symlink(target, link)
-
-arguments
-  target (1,1) string
-  link (1,1) string
-end
+% arguments
+%   target (1,1) string
+%   link (1,1) string
+% end
 
 if stdlib.isoctave()
 
   [err, msg] = symlink(target, link);
   ok = err == 0;
   if ~ok
-    warning("symlink: %s", msg)
+    warning("create_symlink: %s", msg)
   end
 
 elseif ispc || isMATLABReleaseOlderThan("R2024b")
@@ -61,5 +60,5 @@
 
 %!test
 %! if !ispc
-%!   create_symlink(tempname, tempname)
+%!   assert(create_symlink(tempname, tempname))
 %! endif

+stdlib/diskfree.m

@@ -6,9 +6,9 @@
 % Ref: https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/io/File.html#getUsableSpace()
 
 function f = diskfree(d)
-arguments
-  d (1,1) string {mustBeFolder}
-end
+% arguments
+%   d (1,1) string
+% end
 
 if stdlib.isoctave()
   o = javaObject("java.io.File", d);

+stdlib/drop_slash.m

@@ -1,9 +1,9 @@
 %% DROP_SLASH drop repeated and trailing slash
 
 function d = drop_slash(p)
-arguments
-  p (1,1) string
-end
+% arguments
+%   p (1,1) string
+% end
 
 s = stdlib.posix(p);
 
@@ -12,7 +12,7 @@
 
 L = stdlib.len(d);
 
-if d == '/' || ~L
+if strcmp(d, '/') || ~L
   return;
 end
 

+stdlib/exists.m

@@ -7,11 +7,11 @@
 %
 
 function ok = exists(p, use_java)
-arguments
-  p (1,1) string
-  use_java (1,1) logical = false
-end
-
+% arguments
+%   p (1,1) string
+%   use_java (1,1) logical = false
+% end
+if nargin < 2, use_java = false; end
 
 if stdlib.isoctave()
   ok = javaObject("java.io.File", p).exists();

+stdlib/expanduser.m

@@ -8,10 +8,11 @@
 % * e: expanded path
 
 function e = expanduser(p, use_java)
-arguments
-  p (1,1) string
-  use_java (1,1) logical = false
-end
+% arguments
+%   p (1,1) string
+%   use_java (1,1) logical = false
+% end
+if nargin < 2, use_java = false; end
 
 e = stdlib.drop_slash(p);
 
@@ -49,9 +50,9 @@
 end
 
 
-%!assert(expanduser('',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(), "/c"))
+%!assert(expanduser(''), '')
+%!assert(expanduser("~"), homedir())
+%!assert(expanduser("~/"), homedir())
+%!assert(expanduser("~user"), "~user")
+%!assert(expanduser("~user/"), "~user")
+%!assert(expanduser("~///c"), strcat(homedir(), "/c"))

+stdlib/file_size.m

@@ -1,10 +1,11 @@
 % FILE_SIZE size in bytes of file
 
 function s = file_size(p, use_java)
-arguments
-  p (1,1) string {mustBeFile}
-  use_java (1,1) logical = false
-end
+% arguments
+%   p (1,1) string {mustBeFile}
+%   use_java (1,1) logical = false
+% end
+if nargin < 2, use_java = false; end
 
 if stdlib.isoctave()
   s = javaObject("java.io.File", p).length();

+stdlib/filename.m

@@ -2,9 +2,9 @@
 % filename (including suffix) without directory
 
 function f = filename(p)
-arguments
-  p (1,1) string
-end
+% arguments
+%   p (1,1) string
+% end
 
 % NOT https://docs.oracle.com/en/java/javase/21/docs/api/java.base/java/io/File.html#getName()
 % because by our definition, a trailing directory component is not part of the filename

+stdlib/get_pid.m

@@ -2,7 +2,7 @@
 
 function pid = get_pid()
 
-if stdlib.isoctave
+if stdlib.isoctave()
   pid = getpid();
 else
   pid = feature("getpid");