samepath: perl backend

perl backend

add has_perl, perl_version

Author: scivision

+stdlib/+perl/samepath.m

@@ -0,0 +1,8 @@
+function r = samepath(file1, file2)
+
+cwd = fileparts(fullfile(mfilename('fullpath')));
+
+[~, s] = perl([cwd filesep 'samepath.pl'], file1, file2);
+r = s == 0;
+
+end

+stdlib/+perl/samepath.pl

@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+@ARGV == 2 or die "Usage: $0 <path1> <path2>\n";
+my $path1 = shift;
+my $path2 = shift;
+
+my @st1 = stat($path1);
+@st1 ? () : die "stat($path1): $!\n";
+
+my @st2 = stat($path2);
+@st2 ? () : die "stat($path2): $!\n";
+
+if ($st1[1] != $st2[1] || $st1[0] != $st2[0]) { print "different\n"; exit 1; }

+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/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/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
+
+cwd = fileparts(fullfile(mfilename('fullpath')));
+
+[r, s] = perl([cwd filesep 'version.pl']);
+
+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/samepath.m

@@ -20,7 +20,7 @@
 arguments
   path1 string
   path2 string
-  backend (1,:) string = ["python", "java", "sys", "native"]
+  backend (1,:) string = ["python", "perl", "java", "sys", "native"]
 end
 
 % For this function, Python is over 10x faster than Java

+stdlib/version.pl

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

private/publish_gen_index_html.m

@@ -100,7 +100,7 @@ function publish_pkg(fid, pkg, pkg_name)
 fprintf(fid, newline + "<table>" + newline);
 fprintf(fid, "<tr><th>Function</th> <th>Description</th> <th>Backends</th></tr>" + newline);
 
-Nbe = struct("dotnet", 0, "java", 0, "python", 0, "sys", 0, "native", 0, "legacy", 0, "top_level", 0);
+Nbe = struct(dotnet=0, java=0, perl=0, python=0, sys=0, native=0, legacy=0, top_level=0);
 
 for fun = pkg.m.'