checkprversion.m

来自「SVDD的工具箱」· M 代码 · 共 40 行

function out = checkprversion;
%out = checkprversion;
%
% Check the version of Prtools, and see if it is good enough for
% dd_tools.

% Copyright: D.M.J. Tax, [e-mail]
% Faculty EWI, Delft University of Technology
% P.O. Box 5031, 2600 GA Delft, The Netherlands

out = 1; %everything OK...
minversion = 4.0;
% Generate a newline:
if strcmp(computer,'MAC2')
   newln = char(13);
else
   newln = char(10);
end
% For fun, some color:
if ~usejava('desktop')
	clr_on = [char(27) '[1;31m'];
	clr_off = [char(27) '[0;0m'];
else
	clr_on = [];
	clr_off = [];
end
% check if prtools exist
if ~exist('prversion')
	error([clr_on '  !! Cannot find Prtools. Please put Prtools in your path.' clr_off]);
end
% And do the check:
if prversion<minversion
	str = sprintf('This version of Dd_tools requires >= Prtools %3.1f!',...
	       minversion);
	error([clr_on newln '---- ' str ' ----' clr_off]);
	out = 0;
end

return