[84b1c9]: isoctave.m  Maximize  Restore  History

Download this file

17 lines (14 with data), 380 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
function t=isoctave()
%ISOCTAVE True if the operating environment is octave.
% Usage: t=isoctave();
%
% `isoctave` returns 1 if the operating environment is Octave, otherwise
% it returns 0 (Matlab)
% AUTHOR : Peter Soendergaard.
% TESTING: NA
% REFERENCE: NA
persistent inout;
if isempty(inout),
inout = exist('OCTAVE_VERSION','builtin') ~= 0;
end;
t = inout;