[db48f6]: isoctave.m Maximize Restore History

Download this file

isoctave.m    17 lines (14 with data), 382 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 L. Søndergaard.
% TESTING: NA
% REFERENCE: NA
persistent inout;
if isempty(inout),
inout = exist('OCTAVE_VERSION','builtin') ~= 0;
end;
t = inout;