samepath: perl backend

perl backend

add has_perl, perl_version

perl: use -e calls

Author: scivision

+stdlib/+perl/device.m

@@ -0,0 +1,14 @@
+function [r, cmd] = device(file)
+
+cmd = sprintf('''%s'' -e ''($f=shift) && -e $f or exit 1; print +(stat $f)[0]'' ''%s''', stdlib.perl_exe(), file);
+
+[s, r] = system(cmd);
+if s == 0
+  r = str2double(r);
+else
+  r = [];
+end
+
+r = uint64(r);
+
+end

+stdlib/+perl/inode.m

@@ -0,0 +1,14 @@
+function [r, cmd] = inode(file)
+
+cmd = sprintf('''%s'' -e ''($f=shift) && -e $f or exit 1; print +(stat $f)[1]'' ''%s''', stdlib.perl_exe(), file);
+
+[s, r] = system(cmd);
+if s == 0
+  r = str2double(r);
+else
+  r = [];
+end
+
+r = uint64(r);
+
+end

+stdlib/+perl/samepath.m

@@ -0,0 +1,10 @@
+function [r, cmd] = samepath(file1, file2)
+
+cmd = sprintf('''%s'' -e ''(@ARGV==2) or exit 1; @s1 = stat shift or exit 1; @s2 = stat shift or exit 1; exit(($s1[0]==$s2[0] && $s1[1]==$s2[1]) ? 0 : 1)'' "%s" "%s"', ...
+        stdlib.perl_exe(), file1, file2);
+
+s = system(cmd);
+
+r = s == 0;
+
+end

+stdlib/Backend.m

@@ -1,7 +1,7 @@
 classdef Backend < matlab.mixin.SetGet
 
 properties (Constant)
-optionalBackends = ["python", "dotnet", "java"]
+optionalBackends = ["perl", "python", "dotnet", "java"]
 namespace = "stdlib"
 end
 

+stdlib/device.m

@@ -9,7 +9,7 @@
 function [i, b] = device(file, backend)
 arguments
   file
-  backend (1,:) string = ["java", "python", "sys"]
+  backend (1,:) string = ["java", "perl", "python", "sys"]
 end
 
 o = stdlib.Backend(mfilename(), backend);

+stdlib/has_perl.m

@@ -0,0 +1,7 @@
+%% HAS_PERL checks if Perl is available in the current environment.
+
+function y = has_perl()
+
+y = ~isempty(stdlib.perl_version());
+
+end

+stdlib/inode.m

@@ -9,7 +9,7 @@
 function [i, b] = inode(file, backend)
 arguments
   file string
-  backend (1,:) string = ["java", "python", "sys"]
+  backend (1,:) string = ["java", "perl", "python", "sys"]
 end
 
 o = stdlib.Backend(mfilename(), backend);

+stdlib/perl_exe.m

@@ -0,0 +1,19 @@
+function exe = perl_exe()
+
+persistent perle
+
+if ~isempty(perle)
+  exe = perle;
+  return
+end
+
+cwd = fileparts(mfilename("fullpath"));
+
+[r, s] = perl(cwd + "/private/executable.pl");
+
+if s == 0 && isfile(r)
+  exe = r;
+  perle = r;
+end
+
+end

+stdlib/perl_version.m

@@ -0,0 +1,31 @@
+%% PERL_VERSION get the Perl version used by MATLAB
+%
+%%% Output
+% * v: 1x3 vector of major, minor, micro version e.g. Perl 5.32.1 = [5, 32, 1]
+
+function v = perl_version()
+
+persistent perlv perlv_cached
+
+if isempty(perlv_cached)
+  perlv_cached = false;
+elseif perlv_cached
+  v = perlv;
+  return
+end
+
+cmd = sprintf('"%s" -e "print $^V"', stdlib.perl_exe());
+
+[s, r] = system(cmd);
+
+if s == 0
+  v = sscanf(r, 'v%d.%d.%d').';
+else
+  v = [];
+end
+
+% cache the result - even if empty -- because the check takes up to 1000 ms say on HPC
+perlv = v;
+perlv_cached = true;
+
+end

+stdlib/private/executable.pl

@@ -0,0 +1 @@
+print $^X;