% Census Script % This script and report tabulates the status of all the m-files in the MZDDE directory. % Usage : census % report census % See Also : docgen % MZDDE - The ZEMAX DDE Toolbox for Matlab. % Copyright (C) 2002-2004 Defencetek, CSIR % Contact : dgriffith@csir.co.za % % This file is part of MZDDE. % % MZDDE is free software; you can redistribute it and/or modify % it under the terms of the GNU General Public License as published by % the Free Software Foundation; either version 2 of the License, or % (at your option) any later version. % % MZDDE 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 General Public License for more details. % % You should have received a copy of the GNU General Public License % along with MZDDE (COPYING.html); if not, write to the Free Software % Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA % % $Revision:$ % Get a directory of all the .m files in this directory % Of course, there may be other files in the directory under revision control and these should be % included in future versions of this script. myself = which('Census'); % Get the directory from which this census is running (presumably) [mypath,name,ext,versn] = fileparts(myself); % Get the path % Now get all the .m files mfiles = dir([mypath '\*.m']); % Set up the cell array headings VersionSummary{1,1} = 'Filename'; VersionSummary{1,2} = 'Major Revision'; VersionSummary{1,3} = 'Minor Revision'; majsum = 0; minsum = 0; % Loop through all .m files and and get the versions for i = 1:length(mfiles) mfid = fopen([mypath '\' mfiles(i).name]); VersionSummary{i+1,1} = mfiles(i).name; % Read lines in the .m file until the version information is found while 1 mline = fgetl(mfid); if ~ischar(mline), break, end % Check the line to see if there is a $Revision line head = strfind(mline, '$Revision: '); if ~isempty(head) mline = mline(head(1):end); mrev = []; [mrev, count] = sscanf(mline, '$Revision: %i.%i'); if count == 2 VersionSummary{i+1,2} = mrev(1); majsum = majsum + mrev(1); VersionSummary{i+1,3} = mrev(2); minsum = minsum + mrev(2); end break; end end fclose(mfid); end VersionSummary{length(mfiles)+2,1} = 'Version number sum ='; VersionSummary{length(mfiles)+2,2} = majsum; VersionSummary{length(mfiles)+2,3} = minsum; % Run the report report census
