TODO/FIXME Report

function htmlOut = dofixrpt(dirname) %DOFIXRPT Scan a file or directory for all TODO, FIXME, or NOTE messages. % Copyright 1984-2004 The MathWorks, Inc. if nargout == 0 web('text://Generating TODO/FIXME report...','-noaddressbox'); end if nargin < 1 dirname = cd; end todoDisplayMode = getpref('dirtools','todoDisplayMode',1); fixmeDisplayMode = getpref('dirtools','fixmeDisplayMode',1); regexpDisplayMode = getpref('dirtools','regexpDisplayMode',1); regexpText = getpref('dirtools','regexpText','NOTE'); if isdir(dirname) dirFileList = dir([dirname filesep '*.m']); fileList = {dirFileList.name}; else error('%s is not a directory',dirname) end % First gather all the data strc = []; for n = 1:length(fileList) filename = fileList{n}; file = textread(filename,'%s','delimiter','\n','whitespace',''); strc(n).filename = filename; strc(n).linenumber = []; strc(n).linecode = {}; for m = 1:length(file), if ~isempty(file{m}), showLine = 0; if todoDisplayMode if ~isempty(strfind(file{m},'TODO')) showLine = 1; end end if fixmeDisplayMode if ~isempty(strfind(file{m},'FIXME')) showLine = 1; end end if regexpDisplayMode if ~isempty(strfind(file{m},regexpText)) showLine = 1; end end if showLine ln = file{m}; ln = regexprep(ln,'^\s*%\s*',''); strc(n).linenumber(end+1) = m; strc(n).linecode{end+1} = ln; end end end end % Now generate the HTML s = {}; s{1} = makeheadhtml; s{end+1} = 'TODO/FIXME Report'; s{end+1} = ''; s{end+1} = ''; % Make the form s{end+1} = ''; s{end+1} = ''; s{end+1} = 'M-File List
'; % Make sure there is something to show before you build the table if ~isempty(strc) s{end+1} = ''; % Loop over all the files in the structure for n = 1:length(strc) s{end+1} = sprintf('', ... fullfile(dirname,strc(n).filename), strrep(strc(n).filename,'.m','')); s{end+1} = ''; end s{end+1} = '

%s	'; if length(strc(n).linenumber) > 0 for m = 1:length(strc(n).linenumber) s{end+1} = sprintf('%d %s ', ... fullfile(dirname,strc(n).filename), strc(n).linenumber(m), ... strc(n).linenumber(m), code2html(strc(n).linecode{m})); end end s{end+1} = '

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