utilities_ESRF/isoctave.m

   1 % function [ ret ] = isoctave ()
   2 % equal to 1 when executed from octave, to 0 when executed from non-octave
   3
   4 % Author: P. Cloetens <cloetens@esrf.fr>
   5 %
   6 % 2006-06-04 P. Cloetens <cloetens@esrf.fr>
   7 % Initial revision
   8
   9 function [ ret ] = isoctave ()
  10     if exist('OCTAVE_VERSION','builtin')
  11         ret = 1;
  12     else
  13         ret = 0;
  14     end
  15 end