mipsver

MIPSVER  Prints or returns MIPS version info for current installation.
   V = MIPSVER returns the current MIPS version number.
   V = MIPSVER('all') returns a struct with the fields Name, Version,
   Release and Date (all strings). Calling MIPSVER without assigning the
   return value prints the version and release date of the current
   installation of MIPS.

   See also MPVER.

0001 function rv = mipsver(varargin)
0002 %MIPSVER  Prints or returns MIPS version info for current installation.
0003 %   V = MIPSVER returns the current MIPS version number.
0004 %   V = MIPSVER('all') returns a struct with the fields Name, Version,
0005 %   Release and Date (all strings). Calling MIPSVER without assigning the
0006 %   return value prints the version and release date of the current
0007 %   installation of MIPS.
0008 %
0009 %   See also MPVER.
0010 
0011 %   MIPS
0012 %   $Id: mipsver.m,v 1.10 2011/02/07 21:32:02 cvs Exp $
0013 %   by Ray Zimmerman, PSERC Cornell
0014 %   Copyright (c) 2010 by Power System Engineering Research Center (PSERC)
0015 %
0016 %   This file is part of MIPS.
0017 %   See http://www.pserc.cornell.edu/matpower/ for more info.
0018 %
0019 %   MIPS is free software: you can redistribute it and/or modify
0020 %   it under the terms of the GNU General Public License as published
0021 %   by the Free Software Foundation, either version 3 of the License,
0022 %   or (at your option) any later version.
0023 %
0024 %   MIPS is distributed in the hope that it will be useful,
0025 %   but WITHOUT ANY WARRANTY; without even the implied warranty of
0026 %   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
0027 %   GNU General Public License for more details.
0028 %
0029 %   You should have received a copy of the GNU General Public License
0030 %   along with MIPS. If not, see <http://www.gnu.org/licenses/>.
0031 %
0032 %   Additional permission under GNU GPL version 3 section 7
0033 %
0034 %   If you modify MIPS, or any covered work, to interface with
0035 %   other modules (such as MATLAB code and MEX-files) available in a
0036 %   MATLAB(R) or comparable environment containing parts covered
0037 %   under other licensing terms, the licensors of MIPS grant
0038 %   you additional permission to convey the resulting work.
0039 
0040 v = struct( 'Name',     'MIPS', ... 
0041             'Version',  '1.0', ...
0042             'Release',  '', ...
0043             'Date',     '07-Feb-2011' );
0044 if nargout > 0
0045     if nargin > 0
0046         rv = v;
0047     else
0048         rv = v.Version;
0049     end
0050 else
0051     fprintf('%-22s Version %-9s  %11s\n', v.Name, v.Version, v.Date);
0052 end