/usr/share/psychtoolbox-3/PsychOneliners/IsOctave.m is in psychtoolbox-3-common 3.0.9+svn2579.dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | function resultFlag = IsOctave
% resultFlag = IsOctave
%
% Returns true if the script is running under GNU/Octave.
%
% Some scripts need to behave differently when running under
% GNU/Octave instead of running under Mathworks Matlab.
% History:
% 05/10/06 Written (MK).
% 03/08/06 Added the 'var' parameter to the exist function to make it
% faster. On my box it cuts 4+ ms off this function call. (CGB)
% 18/09/06 'var' parameter was wrong! It is a 'builtin' parameter (MK).
% 18/06/09 Add persistent rc caching to speed it up (MK).
persistent rc;
if isempty(rc)
% If the built-in variable OCTAVE_VERSION exists,
% then we are running under GNU/Octave, otherwise not.
if ismember(exist('OCTAVE_VERSION', 'builtin'), [102, 5])
rc = 1;
else
rc = 0;
end;
end
resultFlag = rc;
return;
|