%%
%%  Java Information Dynamics Toolkit (JIDT)
%%  Copyright (C) 2012, Joseph T. Lizier
%%  
%%  This program is free software: you can redistribute it and/or modify
%%  it under the terms of the GNU General Public License as published by
%%  the Free Software Foundation, either version 3 of the License, or
%%  (at your option) any later version.
%%  
%%  This program is distributed in the hope that it will be useful,
%%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%%  GNU General Public License for more details.
%%  
%%  You should have received a copy of the GNU General Public License
%%  along with this program.  If not, see <http://www.gnu.org/licenses/>.
%%

% function jDoubleArray = octaveToJavaDoubleArray(octaveArray)
%
% Convert a native octave array to a java double 1D array
%
% Assumes the JIDT jar is already on the java classpath - you will get a 
% java classpath error if this is not the case.
%

function jDoubleArray = octaveToJavaDoubleArray(octaveArray)

	if (exist ('OCTAVE_VERSION', 'builtin'))
		% We're in octave:
		% Using 'org.octave.Matrix' is much faster than conversion cell by cell
		if (length(octaveArray) > 1)
			% Do this the normal way
			tmp = javaObject('infodynamics.utils.OctaveMatrix');
			tmp.loadDoubleData(octaveArray,[1, length(octaveArray)]);
			jDoubleArray = tmp.asDoubleVector();
		else
			% For length 1 arrays, we need to perform a hack here or else
			%  java thinks the length-one array is a scalar.
			% I thought I had this work once:
			%  tmp = javaObject('org.octave.Matrix',[octaveArray,octaveArray] ,[1, 1]);
			%  jDoubleArray = tmp.asDoubleVector();
			% but now can't get that to repeat.
			% So instead we'll do this the slow way (doesn't matter for one element only)
			jDoubleArray = javaArray('java.lang.Double', 1);
			jDoubleArray(1) = octaveArray(1);
		end
	else
		% We're in matlab: the native matlab array can be passed to java as is:
		
		jDoubleArray = octaveArray;
	end

end