% 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 filesmfiles = dir([mypath '\*.m']);% Set up the cell array headingsVersionSummary{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 versionsfor 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);endVersionSummary{length(mfiles)+2,1} = 'Version number sum =';VersionSummary{length(mfiles)+2,2} = majsum;VersionSummary{length(mfiles)+2,3} = minsum;% Run the reportreport census