File Coverage

blib/lib/Math/Matlab/Local.pm

Criterion	Covered	Total	%
statement	19	97	19.5
branch	4	42	9.5
condition	0	9	0.0
subroutine	7	20	35.0
pod	8	8	100.0
total	38	176	21.5

package Math::Matlab::Local;

use strict;
use vars qw($VERSION $ROOT_MWD $CMD);

BEGIN {
	$VERSION = sprintf "%d.%03d", q$Revision: 1.8 $ =~ /: (\d+)\.(\d+)/;
}

use Math::Matlab;
use base qw( Math::Matlab );

use Cwd qw( getcwd abs_path );

##-----  assign defaults, unless already set externally  -----
$CMD		= 'matlab -nodisplay -nojvm'	unless defined $CMD;
$ROOT_MWD	= getcwd						unless defined $ROOT_MWD;

##-----  Public Class Methods  -----
sub new {
	my ($class, $href) = @_;
	my $self	= {
		cmd					=> defined($href->{cmd})		? $href->{cmd}		: $CMD,
		root_mwd			=> defined($href->{root_mwd}) 	? $href->{root_mwd}	: $ROOT_MWD,
		err_msg				=> '',
		result				=> '',
		wrapper_fn			=> '',
		script_fn			=> '',
		output_fn			=> '',
		generated_script	=> undef,
	};

	bless $self, $class;
}

##-----  Public Object Methods  -----
sub execute {
	my ($self, $code, $rel_mwd, $script_fn) = @_;
	my $success	= 0;
	my ($cwd, $cmd);

	## clear err_msg
	$self->clear_err_msg;

	## save current directory and change to Matlab working directory
	$cwd = getcwd	if $self->root_mwd or $rel_mwd;
	if ($self->root_mwd) {
		chdir $self->root_mwd	or die("Couldn't chdir to '@{[ $self->root_mwd ]}'");
	}
	if ($rel_mwd) {
		my $mwd = abs_path( $rel_mwd );
		chdir $mwd	or die("Couldn't chdir to '$mwd'");
	}

	## create input files
	$self->_create_input_files($code, $script_fn);

	## set up command to fire off Matlab with the input file
	$cmd = sprintf('%s -r %s -logfile %s',
				$self->cmd, substr($self->wrapper_fn, 0, -2), $self->output_fn);

	## run it
	my $err = `$cmd 2>&1`;
	if (open(Matlab::IO, $self->output_fn)) {
		$self->{'result'} = join('', );
		close(Matlab::IO);
		if ($self->{'result'} =~ /-----MATLAB-BEGIN-----\n-----SUCCESS/) {
			$success = 1;
			$self->remove_files;
		} elsif ($self->{'result'} =~ /-----MATLAB-BEGIN-----\n-----ERROR/) {
			## runtime error
			$self->err_msg(
				sprintf("MATLAB RUNTIME ERROR\n[%s] in [%s] returned:\n%s",
					$cmd, getcwd, $self->{'result'} )
			);
		} else {
			## couldn't execute Matlab code (compile err, license err)
			$self->err_msg(
				sprintf("MATLAB INITIALIZATION ERROR\n[%s] in [%s] returned:\n%s",
					$cmd, getcwd, $self->{'result'} )
			);
		}
	} else {
		## couldn't launch Matlab (no output file created)
		$self->err_msg(
			sprintf("MATLAB LAUNCH FAILURE\n[%s] in [%s] returned:\n%s",
				$cmd, getcwd, $err )
		);
	}

	## restore current working directory
	if ($cwd) {
		chdir $cwd	or die("Couldn't chdir to '$cwd'");
	}

	return $success;
}

sub cmd {			my $self = shift; return $self->_getset('cmd',			@_); }
sub root_mwd {		my $self = shift; return $self->_getset('root_mwd',		@_); }
sub wrapper_fn {	my $self = shift; return $self->_getset('wrapper_fn',	@_); }
sub script_fn {		my $self = shift; return $self->_getset('script_fn',	@_); }
sub output_fn {		my $self = shift; return $self->_getset('output_fn',	@_); }

sub remove_files {
	my ($self) = @_;

	unlink $self->script_fn		if $self->{generated_script} && -f $self->script_fn;
	unlink $self->wrapper_fn	if -f $self->wrapper_fn;
	unlink $self->output_fn		if -f $self->output_fn;
	$self->{script_fn} = '';
	$self->{wrapper_fn} = '';
	$self->{output_fn} = '';
}

sub _create_input_files {
	my ($self, $code, $script_fn) = @_;

	## set script file name
	if (defined($script_fn)) {		## name given
		if (-f $script_fn) {
			if ($code) {
				$self->{generated_script} = undef;
				die("File '$script_fn' already exists");
			} else {
				$self->{generated_script} = 0;
			}
		}
	} else {					## generate random name
		while (!defined($script_fn) or -f $script_fn ) {
			$script_fn = 'mm'.(int rand 10000000).'.m';		## generate random file name
		}
		$self->{generated_script} = 1;
	}

	## create script
	$self->script_fn( $script_fn );
	if ($self->{generated_script}) {
		$self->_create_script_file( $code );
	}

	## create command wrapper
	$self->_set_wrapper_fn;
	$self->_create_wrapper_file;

	## set output file name
	$self->_set_output_fn;

	return 1;
}

## Private class methods
sub _gen_script_name {	return 'mm'.(int rand 10000000).'.m'; }

## Private object methods
sub _set_wrapper_fn {
	my ($self) = @_;
	return $self->wrapper_fn( substr($self->script_fn, 0, -2).'_wrap.m' );
}
sub _set_output_fn {
	my ($self) = @_;
	return $self->output_fn( substr($self->script_fn, 0, -2).'_out.txt' );
}

sub _create_script_file {
	my ($self, $code) = @_;

	my $fn = $self->script_fn;
	open(Matlab::IO, ">$fn") || die "Couldn't open '$fn'";
	print Matlab::IO $code;
	close(Matlab::IO);

	return 1;
}

sub _create_wrapper_file {
	my ($self) = @_;

	my $fn = $self->wrapper_fn;
	open(Matlab::IO, ">$fn") || die "Couldn't open '$fn'";
	print Matlab::IO <
fprintf('-----MATLAB-BEGIN-----\\n');
try
	rv = evalc('@{[ substr($self->script_fn, 0, -2) ]}');
	fprintf('-----SUCCESS\\n\%s', rv);
catch
	fprintf('-----ERROR\\n\%s\\n\%s', lasterr);
end
quit;
END_OF_CODE
	close(Matlab::IO);

	return 1;
}



1;
__END__