Contents Report

function htmlOut = contentsrpt(dirname) %CONTENTSRPT Audit the Contents.m for the given directory % contentsrpt(dirname) % Copyright 1984-2004 The MathWorks, Inc. if nargout == 0 web('text://Generating contents report...','-noaddressbox'); end if nargin < 1 dirname = cd; end % Is there a Contents.m file? noContentsFlag = 0; if isempty(dir(fullfile(dirname,'Contents.m'))) noContentsFlag = 1; else [ct, ex] = auditcontents(dirname); end % Generate the HTML s{1} = makeheadhtml; s{end+1} = 'Contents Report'; s{end+1} = ''; s{end+1} = ''; s{end+1} = 'Contents Manager
'; s{end+1} = ''; if noContentsFlag s{end+1} = 'No Contents.m file. Make one? [ yes ]'; else s{end+1} = '[ edit Contents.m |'; s{end+1} = ' fix spacing |'; s{end+1} = ' fix all ]

'; s{end+1} = '

';

    for n = 1:length(ct)
        fileline = regexprep(ct(n).text,'^%','');
        if ct(n).ismfile
            fileline2 = regexprep(fileline, ...
                ct(n).mfilename, ...
                sprintf('%s', ct(n).mfilename, ct(n).mfilename) , ...
                'once');

            s{end+1} = sprintf('%s\n',fileline2);

            if strcmp(ct(n).action,'update')
                s{end+1} = '

'; s{end+1} = sprintf('Description lines do not match for file %s.
', ... ct(n).mfilename, ct(n).mfilename); s{end+1} = 'Use this description from the file? (default) '; s{end+1} = sprintf('[ yes ]', ... ct(n).mfilename); filelineFile = fileline; ndx = strfind(filelineFile,' - '); filelineFile(ndx:end) = []; filelineFile = [filelineFile ' - ' ct(n).filedescription]; s{end+1} = sprintf('

%s

\n',filelineFile); s{end+1} = 'Or put this description from the Contents into the file? '; s{end+1} = sprintf('[ yes ]', ... ct(n).mfilename); s{end+1} = sprintf('

%s

\n',fileline); s{end+1} = '

';

            elseif strcmp(ct(n).action,'remove')
                s{end+1} = '

'; s{end+1} = sprintf('File %s does not appear in this directory.
', ... ct(n).mfilename); s{end+1} = 'Remove it from Contents.m? '; s{end+1} = sprintf('[ yes ] ', ... ct(n).mfilename); s{end+1} = '

';
            end
        else
            s{end+1} = sprintf('%s\n',fileline);
        end
    end

    for n = 1:length(ex)
        s{end+1} = sprintf('

File %s is in the directory but not Contents.m

', ...
            ex(n).mfilename, ex(n).mfilename);
        s{end+1} = ex(n).contentsline;
        fileStr = regexprep(ex(n).contentsline,'-.*$','');
        
        s{end+1} = '

Add the line shown above? '; s{end+1} = sprintf('[ yes ]

',fileStr);
    end

    s{end+1} = '

'; end s{end+1} = ''; sOut = [s{:}]; if nargout==0 web(['text://' sOut],'-noaddressbox'); else htmlOut = sOut; end