function htmlOut = mlintrpt(name,option) %MLINTRPT Scan a file or directory for all M-Lint messages. % MLINTRPT scans all M-files in the current directory for M-Lint % messages. % MLINTRPT(FILENAME) scans the M-file FILENAME for messages as does the % command MLINTRPT(FILENAME,'file') % MLINTRPT(DIRNAME,'dir') scans the specified directory. % % See also MLINT. % Copyright 1984-2004 The MathWorks, Inc. % $Revision: 1.1.6.17 $ $Date: 2004/12/20 16:44:23 $ if nargout == 0 web('text://Generating M-Lint report...','-noaddressbox'); end if nargin < 1 option = 'dir'; name = cd; end if nargin == 1 option = 'file'; end currDir = cd; if currDir(1) == '\' % mlint.exe cannot be called on a UNC pathname web(['text://M-Lint Report cannot run when the current ' ... 'directory is a UNC pathname.'],'-noaddressbox'); return end if strcmp(option,'dir') dirname = name; if isdir(dirname) dirFileList = dir([dirname filesep '*.m']); fileList = {dirFileList.name}; else error('MATLAB:mlintrpt:InputNotDir','%s is not a directory.',dirname) end if ~isempty(fileList) localFilenames = strcat(dirname,filesep,fileList); else localFilenames = {}; end mlintMsgs = mlint(localFilenames,'-fullpath','-struct'); else % Get the M-Lint data [mlintMsgs,localFilenames] = mlint({name},'-struct'); fullname = localFilenames{1}; if isempty(fullname) error('MATLAB:mlintrpt:FileNotFound','File %s not found.',name) end dirname = fileparts(fullname); fileList = {name}; end % Gather all the data into HTML'able structure strc = []; for i = 1:length(mlintMsgs) strc(i).filename = fileList{i}; strc(i).fullfilename = localFilenames{i}; strc(i).linenumber = []; strc(i).linemessage = {}; mlmsg = mlintMsgs{i}; for j = 1:length(mlmsg) ln = mlmsg(j).message; ln = code2html(ln); for k = 1:length(mlmsg(j).line) strc(i).linenumber(end+1) = mlmsg(j).line(k); strc(i).linemessage{end+1} = ln; end end % Now sort the list by line number if ~isempty(strc(i).linenumber) lnum = [strc(i).linenumber]; lmsg = strc(i).linemessage; [null,ndx] = sort(lnum); lnum = lnum(ndx); lmsg = lmsg(ndx); strc(i).linenumber = lnum; strc(i).linemessage = lmsg; end end % Now generate the HTML s = {}; s{1} = makeheadhtml; s{end+1} = 'M-Lint Code Check Report'; s{end+1} = ''; s{end+1} = ''; s{end+1} = '
'; s{end+1} = ''; s{end+1} = ''; s{end+1} = sprintf('',option); s{end+1} = sprintf('',name); s{end+1} = '

'; s{end+1} = 'M-Lint Code Check Report

'; if strcmp(option,'file') s{end+1} = sprintf('Report for file %s
', ... fixquote(strc.fullfilename), regexprep(strc(1).filename,'\.m$','')); if ~isempty(strc(1).fullfilename) s{end+1} = sprintf('%s

',strc(1).fullfilename); else s{end+1} = sprintf('File %s not found

',strc(1).filename); end else s{end+1} = sprintf('Report for directory %s

',name); end s{end+1} = ''; for n = 1:length(strc) s{end+1} = ''; end s{end+1} = '
'; if strcmp(option,'dir') s{end+1} = sprintf('%s
', ... fixquote(strc(n).filename), regexprep(strc(n).filename,'\.m$','')); end if isempty(strc(n).linenumber) msg = 'No messages'; elseif length(strc(n).linenumber)==1 msg = '1 message'; else msg = sprintf('%d messages', length(strc(n).linenumber)); end s{end+1} = sprintf('%s		',msg); if ~isempty(strc(n).linenumber) for m = 1:length(strc(n).linenumber) s{end+1} = sprintf('%d: %s
', ... fixquote(strc(n).fullfilename), strc(n).linenumber(m), strc(n).linenumber(m), strc(n).linemessage{m}); end end s{end+1} = '
'; s{end+1} = ''; sOut = [s{:}]; if nargout==0 web(['text://' sOut],'-noaddressbox'); else htmlOut = sOut; end