doc

Author: scivision

+stdlib/+perl/device.m

@@ -1,3 +1,5 @@
+%% PERL.DEVICE filesystem device index of path
+
 function [r, cmd] = device(file)
 
 c = '($f=shift) && -e $f or exit 1; print +(stat $f)[0]';

+stdlib/+perl/get_uid.m

@@ -1,3 +1,5 @@
+%% PERL.GET_UID tell UID (numeric) of current user
+
 function u = get_uid()
 
 u = [];

+stdlib/is_exe.m

@@ -6,15 +6,17 @@
 %%% Outputs
 % ok: true if path is a file and has executable permissions
 
-function ok = is_exe(file)
+function [ok, b] = is_exe(file)
 arguments
   file string
 end
 
 if isscalar(file)
   ok = stdlib.legacy.is_exe(file);
+  b = 'legacy';
 else
   ok = stdlib.native.is_exe(file);
+  b = 'native';
 end
 
 end

+stdlib/is_readable.m

@@ -5,15 +5,17 @@
 %%% Outputs
 % ok: true if file is readable
 
-function ok = is_readable(file)
+function [ok, b] = is_readable(file)
 arguments
   file string
 end
 
 if isscalar(file)
   ok = stdlib.legacy.is_readable(file);
+  b = 'legacy';
 else
   ok = stdlib.native.is_readable(file);
+  b = 'native';
 end
 
 end

+stdlib/is_writable.m

@@ -5,15 +5,17 @@
 %%% Outputs
 % * ok: true if file is writable
 
-function ok = is_writable(file)
+function [ok, b] = is_writable(file)
 arguments
   file string
 end
 
 if isscalar(file)
   ok = stdlib.legacy.is_writable(file);
+  b = 'legacy';
 else
   ok = stdlib.native.is_writable(file);
+  b = 'native';
 end
 
 end