ensure.m

来自「Spectral Projected L1 solver」· M 代码 · 共 42 行

function ensure(condition)

%   ensure.m
%   $Id: ensure.m 800 2008-02-26 22:32:04Z mpf $
%
%   ----------------------------------------------------------------------
%   This file is part of SPGL1 (Spectral Projected Gradient for L1).
%
%   Copyright (C) 2007 Ewout van den Berg and Michael P. Friedlander,
%   Department of Computer Science, University of British Columbia, Canada.
%   All rights reserved. E-mail: <{ewout78,mpf}@cs.ubc.ca>.
%
%   SPGL1 is free software; you can redistribute it and/or modify it
%   under the terms of the GNU Lesser General Public License as
%   published by the Free Software Foundation; either version 2.1 of the
%   License, or (at your option) any later version.
%
%   SPGL1 is distributed in the hope that it will be useful, but WITHOUT
%   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
%   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
%   Public License for more details.
%
%   You should have received a copy of the GNU Lesser General Public
%   License along with SPGL1; if not, write to the Free Software
%   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
%   USA
%   ----------------------------------------------------------------------

   if ~condition
      [ST,I] = dbstack;
      msg = 'Assertion failed';
      if length(ST) > 1
         msg = sprintf('%s in %s; function %s line %d', ...
                       msg, ST(2).file, ST(2).name, ST(2).line);
      end

      errstr.message = msg;
      error(errstr);
   end

end % function ensure