function htmlOut = coveragerpt(dirname) %COVERAGERPT Scan a directory for profiler line coverage. % Copyright 1984-2004 The MathWorks, Inc. if nargout == 0 web('text://Generating coverage report...','-noaddressbox'); end if nargin < 1 dirname = cd; end fs = filesep; if ~isempty(regexp(dirname,'\Wprivate$','once')) % Strip the front off the directory name, so we're left with something % like signal/private/ (Unix) or signal\private\ (Windows) fsIndex = find(dirname==fs); privateDirname = [dirname((fsIndex(end-1)+1):end) fs]; else privateDirname = ''; end % Gather the data profInfo = profile('info'); profiledFileList = {profInfo.FunctionTable.FileName}; profiledFcnList = {profInfo.FunctionTable.FunctionName}; d = dir([dirname fs '*.m']); d(1).profInfoIndex = []; fm = filemarker; % Determine the overlap between the list of profiled files and the list of % files in this directory. How many files in the current directory have % been profiled? for n = 1:length(profiledFileList) [pth name ext] = fileparts(profiledFileList{n}); if strcmp(pth, dirname) && strcmp(ext,'.m'); % The file in question lives in the current directory ndx = strmatch([name ext],{d.name}); % profInfoIndex is the index into the profiler's FunctionTable d(ndx).profInfoIndex = [d(ndx).profInfoIndex n]; % Remove the directory from the front of the profile function list. % This is necessary for proper operation inside private/ % directories. if ~isempty(privateDirname) profiledFcnList{n} = strrep(profiledFcnList{n},privateDirname,''); end end end % Take a second pass through to find the coverage stats by subfunction for n = 1:length(d) % Use a negative coverage so that sorting will work out automatically % If a file has coverage, it will be set later in this loop d(n).coverage = -1*n; d(n).funlist = []; if ~isempty(d(n).profInfoIndex) % We're in a function that was called % Get the names of all the subfunctions from this file callStrc = getcallinfo([dirname fs d(n).name],'funlist'); f = textread([dirname fs d(n).name],'%s','delimiter','\n','whitespace',''); linelist = (1:length(f))'; % In the expression [ftok,bptok] = xmtok(f), ftok returns information % about line continuations, and bptok returns information about whether % a line can be break-pointed. [ftok,bptok] = xmtok(f); % Lines that can run are ones that are break-pointable. That is, lines % for which the second xmtok output arg returned ones for that line. runnableLines = bptok .* linelist; startLineList = [callStrc.firstline]; endLineList = [startLineList-1 length(f)]; endLineList(1) = []; for m = 1:length(callStrc) % Loop through the callStrc and see if any of the % functions/subfunctions match the profiled functions. if strcmp(callStrc(m).type,'subfunction') profiledFcnName = [callStrc(1).name fm callStrc(m).name]; else profiledFcnName = callStrc(m).name; end d(n).funlist(m).firstline = callStrc(m).firstline; d(n).funlist(m).name = profiledFcnName; % When the file is a private function, profiledFcnList % returns the complete path, not just the file name, and the % next line's strmatch fails. ndx = strmatch(profiledFcnName,profiledFcnList(d(n).profInfoIndex),'exact'); startLine = startLineList(m); endLine = endLineList(m); canRunList = find(linelist(startLine:endLine)==runnableLines(startLine:endLine)); d(n).funlist(m).runnablelines = length(canRunList); if isempty(ndx) % We're in an uncalled subfunction of a called function d(n).funlist(m).coverage = 0; d(n).funlist(m).totaltime = 0; d(n).funlist(m).profindex = []; else % We're in a called subfunction of a called function % Now work out the coverage statistics for the % function/subfunction didRunList = profInfo.FunctionTable(d(n).profInfoIndex(ndx)).ExecutedLines(:,1); d(n).funlist(m).coverage = 100*length(didRunList)/length(canRunList); d(n).funlist(m).totaltime = profInfo.FunctionTable(d(n).profInfoIndex(ndx)).TotalTime; d(n).funlist(m).profindex = d(n).profInfoIndex(ndx); end end d(n).coverage = sum([d(n).funlist.coverage].*[d(n).funlist.runnablelines])/sum([d(n).funlist.runnablelines]); end end fixedQuoteDirname = fixquote(dirname); % Now generate the HTML s = {}; s{1} = makeheadhtml; s{end+1} = 'Coverage Report'; s{end+1} = ''; s{end+1} = ''; s{end+1} = sprintf('Coverage Report for %s

',dirname); % Make the form s{end+1} = '

'; s{end+1} = ''; s{end+1} = ''; s{end+1} = '

'; % pixel gif location pixelPath = ['file:///' matlabroot fs 'toolbox' fs 'matlab' fs 'codetools' fs 'private' fs]; whitePixelGif = [pixelPath 'one-pixel-white.gif']; bluePixelGif = [pixelPath 'one-pixel.gif']; % Make sure there is something to show before you build the table if isempty(d) s{end+1} = 'No M-files in this directory

'; else [null,ndx] = sort([d.coverage]); d = d(fliplr(ndx)); s{end+1} = ''; % Loop over all the files in the structure for n = 1:length(d) if isempty(d(n).funlist) s{end+1} = sprintf('', ... [fixedQuoteDirname fs d(n).name],d(n).name); else % First put a header on for the whole file s{end+1} = '', ... [fixedQuoteDirname fs d(n).name], d(n).name); s{end+1} = ''; s{end+1} = ''; else s{end+1} = sprintf('Total coverage: %4.1f %%', ... d(n).coverage); s{end+1} = ''; for m = 1:length(d(n).funlist) s{end+1} = sprintf('', ... [dirname fs d(n).name], d(n).funlist(m).firstline, d(n).funlist(m).name); if d(n).funlist(m).coverage == 0 s{end+1} = ''; else s{end+1} = ''; end s{end+1} = ''; end end end end s{end+1} = '
%s
'; s{end+1} = sprintf('%s'; s{end+1} = sprintf('', ... bluePixelGif, round(d(n).coverage)); s{end+1} = sprintf('
', ... whitePixelGif, round(100-d(n).coverage)); if length(d(n).funlist) == 1 s{end+1} = sprintf('Coverage: %4.1f%%
', ... d(n).funlist(1).profindex, ... d(n).funlist(1).coverage); s{end+1} = sprintf('Total time: %4.1f sec
', d(n).funlist(1).totaltime); s{end+1} = sprintf('Line count: %d
', d(n).funlist(1).runnablelines); s{end+1} = '
  %s'; s{end+1} = sprintf('Coverage: %4.1f%%
', ... d(n).funlist(m).profindex, ... d(n).funlist(m).coverage); s{end+1} = sprintf('Total time: %4.1f sec
', d(n).funlist(m).totaltime); s{end+1} = sprintf('Line count: %d
', d(n).funlist(m).runnablelines); s{end+1} = '
'; end s{end+1} = ''; sOut = [s{:}]; if nargout==0 web(['text://' sOut],'-noaddressbox'); else htmlOut = sOut; end