% function [ ret ] = isoctave ()
% equal to 1 when executed from octave, to 0 when executed from non-octave

% Author: P. Cloetens <cloetens@esrf.fr>
% 
% 2006-06-04 P. Cloetens <cloetens@esrf.fr>
% Initial revision

function [ ret ] = isoctave ()
    if exist('OCTAVE_VERSION','builtin')
        ret = 1;
    else
        ret = 0;
    end
end
