?? census.m
字號:
% Census Script
% This script and report tabulates the status of all the m-files in the MZDDE directory.
% Usage : 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
%
% $Header: C:\\Projects\\RCS\\C\\Projects\\MZDDE\\Census.m,v 1.1 2005-04-22 09:35:37+02 dgriffith Exp dgriffith $
% $Revision: 1.1 $
% 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';
VersionSummary{1,4} = 'GPL';
majsum = 0;
minsum = 0;
% Set up GPL Column
for i = 1:length(mfiles)
VersionSummary{i+1,4} = 'No';
end
% 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
% Check the line to see if the GNU licence is found
gnu = strfind(mline, 'GNU General Public License');
if ~isempty(gnu)
VersionSummary{i+1,4} = 'Yes';
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -