function htmlOut = profview(functionName, profInfo) %PROFVIEW Display HTML profiler interface. % PROFVIEW(FUNCTIONNAME, PROFILEINFO) % FUNCTIONNAME can be either a name or an index number into the profile. % PROFILEINFO is the profile stats structure as returned by % PROFILEINFO = PROFILE('INFO'). % If the FUNCTIONNAME argument passed in is zero, then profview displays % the profile summary page. % % The output for PROFVIEW is an HTML file in the Profiler window. The % file listing at the bottom of the function profile page shows four % columns to the left of each line of code. % * Column 1 (red) is total time spent on the line in seconds. % * Column 2 (blue) is number of calls to that line. % * Column 3 is the line number % % See also PROFILE. % Copyright 1984-2004 The MathWorks, Inc. % $Revision: 1.1.6.21 $ $Date: 2004/12/20 16:44:30 $ % Ned Gulley, Nov 2001 persistent profileInfo % Three possibilities: % 1) profile info wasn't passed and hasn't been created yet % 2) profile info wasn't passed in but is persistent % 3) profile info was passed in import com.mathworks.mde.profiler.Profiler; if (nargin < 2) || isempty(profInfo), if isempty(profileInfo), % 1) profile info wasn't passed and hasn't been created yet profile('viewer'); return else % 2) profile info wasn't passed in but is persistent % No action. profileInfo was created in a previous call to this function end else % 3) profile info was passed in profileInfo = profInfo; Profiler.stop; end if nargin < 1, % If there's no input argument, just provide the summary functionName = 0; end % Find the function in the supplied data structure % functionName can be either a name or an index number if ischar(functionName), functionNameList = {profileInfo.FunctionTable.FunctionName}; idx = find(strcmp(functionNameList,functionName)==1); if isempty(idx) error('No function %s found in profiler Function Table',functionName) end else idx = functionName; end % Create all the HTML for the page if idx==0 s = makesummarypage(profileInfo); else s = makefilepage(profileInfo,idx); end sOut = [s{:}]; if nargout==0 Profiler.setHtmlText(sOut); else htmlOut = sOut; end function s = makesummarypage(profileInfo) % -------------------------------------------------- % Show the main summary page % -------------------------------------------------- % pixel gif location fs = filesep; pixelPath = ['file:///' matlabroot fs 'toolbox' fs 'matlab' fs 'codetools' fs 'private' fs]; cyanPixelGif = [pixelPath 'one-pixel-cyan.gif']; bluePixelGif = [pixelPath 'one-pixel.gif']; % Read in preferences sortMode = getpref('profiler','sortMode','totaltime'); allTimes = [profileInfo.FunctionTable.TotalTime]; maxTime = max(allTimes); % Calculate self time list allSelfTimes = zeros(size(allTimes)); for i = 1:length(profileInfo.FunctionTable) allSelfTimes(i) = profileInfo.FunctionTable(i).TotalTime - ... sum([profileInfo.FunctionTable(i).Children.TotalTime]); end totalTimeFontWeight = 'normal'; selfTimeFontWeight = 'normal'; alphaFontWeight = 'normal'; numCallsFontWeight = 'normal'; if strcmp(sortMode,'totaltime') totalTimeFontWeight = 'bold'; [null,sortIndex] = sort(allTimes,'descend'); elseif strcmp(sortMode,'selftime') selfTimeFontWeight = 'bold'; [null,sortIndex] = sort(allSelfTimes,'descend'); elseif strcmp(sortMode,'alpha') alphaFontWeight = 'bold'; allFunctionNames = {profileInfo.FunctionTable.FunctionName}; [null,sortIndex] = sort(allFunctionNames); elseif strcmp(sortMode,'numcalls') numCallsFontWeight = 'bold'; [null,sortIndex] = sort([profileInfo.FunctionTable.NumCalls],'descend'); end s = {}; s{1} = makeheadhtml; s{end+1} = 'Profile Summary'; cssfile = which('styles.css'); s{end+1} = sprintf('',cssfile); s{end+1} = ''; s{end+1} = ''; % Summary info status = profile('status'); s{end+1} = 'Profile Summary
'; s{end+1} = sprintf('Generated %s using %s time.
',datestr(now), status.Timer); if length(profileInfo.FunctionTable)==1 s{end+1} = '

No profile information to display.
'; s{end+1} = 'Note that built-in functions do not appear in this report.

'; end s{end+1} = ''; s{end+1} = ''; s{end+1} = '',alphaFontWeight); s{end+1} = '',numCallsFontWeight); s{end+1} = '',totalTimeFontWeight); s{end+1} = '',selfTimeFontWeight); s{end+1} = ''; s{end+1} = ''; for i = 1:length(profileInfo.FunctionTable), n = sortIndex(i); name = profileInfo.FunctionTable(n).FunctionName; if strcmp(name,'profile') || strcmp(name,'callstats') % Avoid displaying the PROFILE and CALLSTATS functions. continue end s{end+1} = ''; % Truncate the name if it gets too long displayFunctionName = truncateDisplayName(profileInfo.FunctionTable(n).FunctionName,40); s{end+1} = sprintf('', ... profileInfo.FunctionTable(n).Type); else s{end+1} = ''; end s{end+1} = sprintf('', ... profileInfo.FunctionTable(n).NumCalls); % Don't display the time if it's zero if profileInfo.FunctionTable(n).TotalTime > 0, s{end+1} = sprintf('', ... profileInfo.FunctionTable(n).TotalTime); else s{end+1} = ''; end if profileInfo.FunctionTable(n).IsRecursive s{end+1} = ''; else if maxTime > 0, timeRatio = profileInfo.FunctionTable(n).TotalTime/maxTime; selfTime = profileInfo.FunctionTable(n).TotalTime - sum([profileInfo.FunctionTable(n).Children.TotalTime]); selfTimeRatio = selfTime/maxTime; else timeRatio = 0; selfTime = 0; selfTimeRatio = 0; end s{end+1} = sprintf('',selfTime); s{end+1} = sprintf('', ... bluePixelGif, round(100*selfTimeRatio), ... cyanPixelGif, round(100*(timeRatio-selfTimeRatio))); end s{end+1} = ''; end s{end+1} = '
'; s{end+1} = ''; s{end+1} = sprintf('Function Name'; s{end+1} = ''; s{end+1} = sprintf('Calls'; s{end+1} = ''; s{end+1} = sprintf('Total Time'; s{end+1} = ''; s{end+1} = sprintf('Self Time*Total Time Plot
'; s{end+1} = '(dark band = self time)
%s', ... n, displayFunctionName); if isempty(regexp(profileInfo.FunctionTable(n).Type,'^M-','once')) s{end+1} = sprintf(' (%s)%d%4.3f s0 sfunction is recursive%4.3f s
'; s{end+1} = '

Self time is the time spent in a function excluding the '; s{end+1} = 'time spent in its child functions. Self time also includes '; s{end+1} = 'overhead resulting from the process of profiling.'; s{end+1} = ''; s{end+1} = ''; % -------------------------------------------------- % Show the function details page % -------------------------------------------------- function s = makefilepage(profileInfo,idx) % pixel gif location bluePixelGif = ['file:///' which('one-pixel.gif')]; ftItem = profileInfo.FunctionTable(idx); % NOTE: Since the ftItem.TotalTime occasionally reports a time less than % the sum of the time spent on the executed lines, we will pick the greater % of these two for our total time. In fact, ftItem.TotalTime should always % be the greater value. totalTime = max(ftItem.TotalTime,sum(ftItem.ExecutedLines(:,3))); % Build up function name target list from the children table targetHash = []; for n = 1:length(ftItem.Children) targetName = profileInfo.FunctionTable(ftItem.Children(n).Index).FunctionName; % Don't link to Opaque-functions with dots in the name if ~any(targetName=='.') && ~any(targetName=='@') % Build a hashtable for the target strings % Ensure that targetName is a legal MATLAB identifier. targetName = regexprep(targetName,'^([a-z_A-Z0-9]*[^a-z_A-Z0-9])+',''); if length(targetName) > 0 && targetName(1) ~= '_' targetHash.(targetName) = ftItem.Children(n).Index; end end end % M-functions, M-scripts, and M-subfunctions are the only file types we can % list mFileFlag = 1; pFileFlag = 0; if isempty(regexp(ftItem.Type,'^M-','once')) || isempty(ftItem.FileName) mFileFlag = 0; else % Make sure it's not a P-file if ~isempty(regexp(ftItem.FileName,'\.p$','once')) pFileFlag = 1; % Replace ".p" string with ".m" string. fullName = regexprep(ftItem.FileName,'\.p$','.m'); % Make sure the M-file corresponding to the P-file exists if ~exist(fullName,'file') mFileFlag = 0; end else fullName = ftItem.FileName; end end uncPathFlag = 0; if mFileFlag f = textread(fullName,'%s','delimiter','\n','whitespace',''); currDir = cd; if currDir(1) == '\' uncPathFlag = 1; end quoteFixedFullName = fixquote(fullName); end s = {}; s{1} = makeheadhtml; s{end+1} = sprintf('Function details for %s', ftItem.FunctionName); cssfile = which('styles.css'); s{end+1} = sprintf('',cssfile); s{end+1} = ''; s{end+1} = ''; % Summary info % displayName = truncateDisplayName(ftItem.FunctionName,40); displayName = ftItem.FunctionName; s{end+1} = sprintf('%s', ... displayName); if ftItem.NumCalls==1, callStr = 'call'; else callStr = 'calls'; end status = profile('status'); s{end+1} = sprintf(' (%d %s, %4.3f sec)
', ... ftItem.NumCalls, callStr, ftItem.TotalTime); s{end+1} = sprintf('Generated %s using %s time.
', datestr(now), status.Timer); if mFileFlag s{end+1} = sprintf('%s in file %s
', ... ftItem.Type, quoteFixedFullName, fullName); elseif isequal(ftItem.Type,'M-subfunction') s{end+1} = 'anonymous function from prompt or eval''ed string
'; else s{end+1} = sprintf('%s in file %s
', ... ftItem.Type, ftItem.FileName); end s{end+1} = '[Copy to new window for comparing multiple runs]'; if ftItem.IsRecursive s{end+1} = '

Function is recursive. Timing may be inaccurate

'; end if pFileFlag && ~mFileFlag s{end+1} = '

This is a P-file for which there is no corresponding M-file

'; end if uncPathFlag s{end+1} = ['

The current directory is a UNC pathname. This limits ' ... 'profiler functionality. Change directories to a non UNC pathname to restore full functionality.

']; end s{end+1} = '
'; % -------------------------------------------------- % Manage all the checkboxes % Read in preferences parentDisplayMode = getpref('profiler','parentDisplayMode',1); busylineDisplayMode = getpref('profiler','busylineDisplayMode',1); childrenDisplayMode = getpref('profiler','childrenDisplayMode',1); mlintDisplayMode = getpref('profiler','mlintDisplayMode',1); coverageDisplayMode = getpref('profiler','coverageDisplayMode',1); listingDisplayMode = getpref('profiler','listingDisplayMode',1); s{end+1} = '
'; s{end+1} = ''; s{end+1} = sprintf('',idx); s{end+1} = ''; s{end+1} = ''; s{end+1} = '
'; checkOptions = {'','checked'}; s{end+1} = sprintf('', ... checkOptions{parentDisplayMode+1}); s{end+1} = 'Show parent functions'; s{end+1} = sprintf('', ... checkOptions{busylineDisplayMode+1}); s{end+1} = 'Show busy lines'; s{end+1} = sprintf('', ... checkOptions{childrenDisplayMode+1}); s{end+1} = 'Show child functions
'; s{end+1} = sprintf('', ... checkOptions{mlintDisplayMode+1}); s{end+1} = 'Show M-Lint results'; s{end+1} = sprintf('', ... checkOptions{coverageDisplayMode+1}); s{end+1} = 'Show file coverage'; s{end+1} = sprintf('', ... checkOptions{listingDisplayMode+1}); s{end+1} = 'Show function listing
'; s{end+1} = '
'; s{end+1} = '
'; % -------------------------------------------------- % -------------------------------------------------- % Parent list % -------------------------------------------------- if parentDisplayMode parents = ftItem.Parents; s{end+1} = 'Parents (calling functions)
'; if isempty(parents) s{end+1} = ' No parent '; else s{end+1} = '

'; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; for n = 1:length(parents), s{end+1} = ''; displayName = truncateDisplayName(profileInfo.FunctionTable(parents(n).Index).FunctionName,40); s{end+1} = sprintf('', ... parents(n).Index, displayName); s{end+1} = sprintf('', ... profileInfo.FunctionTable(parents(n).Index).Type); s{end+1} = sprintf('', ... parents(n).NumCalls); s{end+1} = ''; end s{end+1} = '
Function NameFunction TypeCalls
%s%s%d
'; end s{end+1} = '

'; end % -------------------------------------------------- % End parent list section % -------------------------------------------------- % -------------------------------------------------- % Busy line list section % -------------------------------------------------- [sortedTimeList, sortedTimeIndex] = sort(ftItem.ExecutedLines(:,3)); sortedTimeList = flipud(sortedTimeList); maxTimeLineList = flipud(ftItem.ExecutedLines(sortedTimeIndex,1)); maxTimeLineList = maxTimeLineList(1:min(5,length(maxTimeLineList))); maxNumCalls = max(ftItem.ExecutedLines(:,2)); timeSortedNumCallsList = flipud(ftItem.ExecutedLines(sortedTimeIndex,2)); % Link directly to the busiest lines % ---------------------------------------------- if busylineDisplayMode s{end+1} = 'Lines where the most time was spent
'; if ~mFileFlag s{end+1} = 'No M-code to display'; else if (ftItem.IsRecursive) && (totalTime~=0) s{end+1} = 'Function is recursive. Line timing may be inaccurate.
'; end if totalTime==0 s{end+1} = 'No measurable time spent in this function'; end s{end+1} = '

'; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; for n = 1:length(maxTimeLineList), s{end+1} = ''; if listingDisplayMode && ~uncPathFlag s{end+1} = sprintf('', ... maxTimeLineList(n),maxTimeLineList(n)); else s{end+1} = sprintf('', ... maxTimeLineList(n)); end codeLine = f{maxTimeLineList(n)}; % Squeeze out the leading spaces codeLine(cumsum(1-isspace(codeLine))==0)=[]; % Replace angle brackets codeLine = code2html(codeLine); maxLineLen = 30; if length(codeLine) > maxLineLen s{end+1} = sprintf('',codeLine(1:maxLineLen)); else s{end+1} = sprintf('',codeLine); end s{end+1} = sprintf('',timeSortedNumCallsList(n)); if sortedTimeList(n) > 0 s{end+1} = sprintf('',sortedTimeList(n)); s{end+1} = sprintf('',100*sortedTimeList(n)/totalTime); else s{end+1} = ''; s{end+1} = ''; end if totalTime > 0 timeRatio = sortedTimeList(n)/totalTime; else timeRatio= 0; end s{end+1} = sprintf('', ... bluePixelGif, round(100*timeRatio)); s{end+1} = ''; end allOtherLineTime = ftItem.TotalTime - sum(sortedTimeList(1:length(maxTimeLineList))); % Now add a row for everything else s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; if allOtherLineTime > 0, s{end+1} = sprintf('',allOtherLineTime); s{end+1} = sprintf('',100*allOtherLineTime/totalTime); else s{end+1} = ''; s{end+1} = ''; end if totalTime > 0, timeRatio = allOtherLineTime/totalTime; else timeRatio= 0; end s{end+1} = sprintf('', ... bluePixelGif, round(100*timeRatio)); s{end+1} = ''; % Totals line s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = sprintf('',totalTime); if totalTime > 0, s{end+1} = ''; else s{end+1} = ''; end s{end+1} = ''; s{end+1} = ''; s{end+1} = '
Line NumberCodeCallsTotal Time% TimeTime Plot
%d%d
%s...
%s
%d%4.3f s%3.1f%%0 s0%
Other lines & overhead  %4.3f s%3.1f%%0 s0%
Totals  %4.3f s100%0% 
'; end s{end+1} = '

'; end % -------------------------------------------------- % End line list section % -------------------------------------------------- % -------------------------------------------------- % Children list % -------------------------------------------------- if childrenDisplayMode % Sort children by execution time children = ftItem.Children; s{end+1} = 'Children (called functions)
'; if isempty(children) s{end+1} = 'No children'; else % Recursive functions are not timed accurately if ftItem.IsRecursive s{end+1} = 'Function is recursive. Child timing may be inaccurate.
'; end % Children are sorted by total time childrenTimes = [ftItem.Children.TotalTime]; [null, timeSortIndex] = sort(childrenTimes); totalChildrenTime = sum([children.TotalTime]); selfTime = ftItem.TotalTime - totalChildrenTime; s{end+1} = '

'; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; for i = length(children):-1:1, n = timeSortIndex(i); s{end+1} = ''; % Truncate the name if it gets too long displayFunctionName = truncateDisplayName(profileInfo.FunctionTable(children(n).Index).FunctionName,40); s{end+1} = sprintf('', ... children(n).Index, displayFunctionName); s{end+1} = sprintf('', ... profileInfo.FunctionTable(children(n).Index).Type); s{end+1} = sprintf('', ... children(n).NumCalls); if children(n).TotalTime > 0, s{end+1} = sprintf('', children(n).TotalTime); s{end+1} = sprintf('', 100*children(n).TotalTime/totalTime); else s{end+1} = ''; s{end+1} = ''; end if totalTime > 0, timeRatio = children(n).TotalTime/totalTime; else timeRatio= 0; end s{end+1} = sprintf('', ... bluePixelGif, round(100*timeRatio)); s{end+1} = ''; end % Now add a row with self-timing information s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; if selfTime > 0, s{end+1} = sprintf('',selfTime); s{end+1} = sprintf('',100*selfTime/totalTime); else s{end+1} = ''; s{end+1} = ''; end if totalTime > 0, timeRatio = selfTime/totalTime; else timeRatio= 0; end s{end+1} = sprintf('', ... bluePixelGif, round(100*timeRatio)); s{end+1} = ''; % Totals row s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = sprintf('',ftItem.TotalTime); if totalTime > 0, s{end+1} = ''; else s{end+1} = ''; end s{end+1} = ''; s{end+1} = ''; s{end+1} = '
Function NameFunction TypeCallsTotal Time% TimeTime Plot
%s%s%d%4.3f s%3.1f%%0 s0%
Self time (built-ins, overhead, etc.)  %4.3f s%3.1f%%0 s0%
Totals  %4.3f s100%0% 
'; end s{end+1} = '

'; end % -------------------------------------------------- % End children list section % -------------------------------------------------- if mFileFlag && ~uncPathFlag % Calculate beginning and ending lines for the current function % 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 .* (1:length(f))'; % FunctionName takes one of several forms: % 1. foo % 2. foo>bar % 3. foo1\private\foo2 % 4. foo1/private/foo2>bar % % We need to strip off everything except for the very last \w+ string fname = regexp(ftItem.FunctionName,'(\w+)$','tokens','once'); strc = getcallinfo(fullName,'funlist'); fcnList = {strc.name}; fcnIdx = find(strcmp(fcnList,fname)==1); if isempty(fcnIdx) % NESTED and ANONYMOUS FUNCTIONS % If we can't find the function name on the list of functions % and subfunctions, assume this is either a nested or an anonymous % function. Just display the entire file in this case. startLine = 1; endLine = length(f); else startLineList = [strc.firstline]; endLineList = [startLineList-1 length(f)]; endLineList(1) = []; startLine = startLineList(fcnIdx); endLine = endLineList(fcnIdx); end moreSubfunctionsInFileFlag = 0; if endLine < length(f) moreSubfunctionsInFileFlag = 1; end % hiliteOption = [ time | numcalls | coverage | noncoverage | none ] hiliteOption = getpref('profiler','hiliteOption','time'); if strcmp(hiliteOption,'mlint') || mlintDisplayMode mlintstrc = mlint(fullName,'-struct'); % Sometimes the number of lines reported for a single mlint message % is greater than one. When this is true, we will split the single % message into two similar messages, each with its own line number. sortFlag = false; for i = 1:length(mlintstrc) if length(mlintstrc(i).line)>1 mlintLineList = mlintstrc(i).line; % The original mlint message gets one of the line numbers. % Deal the rest of the messages out to new messages at the % end of the structure. sortFlag = true; mlintstrc(i).line = mlintLineList(1); for j = 2:length(mlintLineList) mlintstrc(end+1) = mlintstrc(i); mlintstrc(end).line = mlintLineList(j); end end end % Only sort the mlint structure if multiple lines per message were % encountered. if sortFlag % Sort the result so they go in order of line number mlintLines = [mlintstrc.line]; [null,sortIndex] = sort(mlintLines); mlintstrc = mlintstrc(sortIndex); end end end % -------------------------------------------------- % M-Lint list section % -------------------------------------------------- if mlintDisplayMode s{end+1} = 'M-Lint results
'; if ~mFileFlag s{end+1} = 'No M-code to display'; elseif uncPathFlag s{end+1} = 'M-Lint option is not available when the current directory is a UNC pathname'; else if isempty(mlintstrc) s{end+1} = 'No M-Lint messages.'; else % Remove mlint messages outside the function region mlintLines = [mlintstrc.line]; mlintstrc([find(mlintLines < startLine) find(mlintLines > endLine)]) = []; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; for n = 1:length(mlintstrc) if (mlintstrc(n).line <= endLine) && (mlintstrc(n).line >= startLine) s{end+1} = ''; if listingDisplayMode s{end+1} = sprintf('', mlintstrc(n).line, mlintstrc(n).line); else s{end+1} = sprintf('', mlintstrc(n).line); end s{end+1} = sprintf('', mlintstrc(n).message); s{end+1} = ''; end end s{end+1} = '
Line numberMessage
%d%d%s
'; end end s{end+1} = '
'; end % -------------------------------------------------- % End M-Lint list section % -------------------------------------------------- % -------------------------------------------------- % Coverage section % -------------------------------------------------- if coverageDisplayMode s{end+1} = 'Coverage results
'; if ~mFileFlag s{end+1} = 'No M-code to display'; elseif uncPathFlag s{end+1} = 'Coverage option is not available when the current directory is a UNC pathname'; else s{end+1} = sprintf('[ Show coverage for parent directory ]
', ... quoteFixedFullName); linelist = (1:length(f))'; canRunList = find(linelist(startLine:endLine)==runnableLines(startLine:endLine)) + startLine - 1; didRunList = ftItem.ExecutedLines(:,1); notRunList = setdiff(canRunList,didRunList); neverRunList = find(runnableLines(startLine:endLine)==0); s{end+1} = ''; s{end+1} = ''; s{end+1} = sprintf('', endLine-startLine+1); s{end+1} = ''; s{end+1} = sprintf('', length(neverRunList)); s{end+1} = ''; s{end+1} = sprintf('', length(canRunList)); s{end+1} = ''; s{end+1} = sprintf('', length(didRunList)); s{end+1} = ''; s{end+1} = sprintf('', length(notRunList)); s{end+1} = ''; s{end+1} = sprintf('', 100*length(didRunList)/length(canRunList)); s{end+1} = '
Total lines in file%d
Non-code lines (comments, blank lines)%d
Code lines (lines that can run)%d
Code lines that did run%d
Code lines that did not run%d
Coverage (did run/can run)%4.2f %%
'; end s{end+1} = '
'; end % -------------------------------------------------- % End Coverage section % -------------------------------------------------- % -------------------------------------------------- % File listing % -------------------------------------------------- % Make a lookup table to speed index identification % The executedLines table is as long as the file and stores the index % value for every executed line. if listingDisplayMode s{end+1} = 'Function listing
'; if ~mFileFlag s{end+1} = 'No M-code to display'; elseif uncPathFlag s{end+1} = 'File listing option is not available when the current directory is a UNC pathname'; else executedLines = zeros(length(f),1); executedLines(ftItem.ExecutedLines(:,1)) = 1:size(ftItem.ExecutedLines,1); % Enumerate all alphanumeric values for later use in linking code alphanumericList = ['a':'z' 'A':'Z' '0':'9' '_']; alphanumericArray = zeros(1,128); alphanumericArray(alphanumericList) = 1; % Take a first pass through the lines to figure out the line color bgColorCode = ones(length(f),1); textColorCode = ones(length(f),1); textColorTable = {'#228B22','#000000','#A0A0A0'}; switch hiliteOption case 'time' % Ten shades of red bgColorTable = {'#FFFFFF','#FFF0F0','#FFE2E2','#FFD4D4', ... '#FFC6C6','#FFB8B8','#FFAAAA','#FF9C9C','#FF8E8E','#FF8080'}; maxTime = max(ftItem.ExecutedLines(:,3)); for n = startLine:endLine if ftok(n) == 0 % Non-code line, comment or empty. Color is green textColorCode(n) = 1; elseif ftok(n) < n % This is a continuation line. Make it the same color % as the originating line bgColorCode(n) = bgColorCode(ftok(n)); textColorCode(n) = textColorCode(ftok(n)); else % This is a new executable line lineIdx = executedLines(n); if lineIdx > 0 textColorCode(n) = 2; if ftItem.ExecutedLines(lineIdx,3) > 0 timePerLine = ftItem.ExecutedLines(lineIdx,3); ratioTime = timePerLine/maxTime; bgColorCode(n) = ceil(10*ratioTime); else % The amount of time spent on the line was negligible bgColorCode(n) = 1; end else % The line was not executed textColorCode(n) = 3; bgColorCode(n) = 1; end end end case 'numcalls' % Ten shades of blue bgColorTable = {'#FFFFFF','#F5F5FF','#ECECFF','#E2E2FF', ... '#D9D9FF','#D0D0FF','#C6C6FF','#BDBDFF','#B4B4FF','#AAAAFF'}; for n = startLine:endLine if ftok(n) == 0 % Non-code line, comment or empty. Color is green textColorCode(n) = 1; elseif ftok(n) < n % This is a continuation line. Make it the same color % as the originating line bgColorCode(n) = bgColorCode(ftok(n)); textColorCode(n) = textColorCode(ftok(n)); else % This is a new executable line lineIdx = executedLines(n); if lineIdx > 0 textColorCode(n) = 2; if ftItem.ExecutedLines(lineIdx,2)>0; callsPerLine = ftItem.ExecutedLines(lineIdx,2); ratioNumCalls = callsPerLine/maxNumCalls; bgColorCode(n) = ceil(10*ratioNumCalls); else % This line was not called bgColorCode(n) = 1; end else % The line was not executed textColorCode(n) = 3; bgColorCode(n) = 1; end end end case 'coverage' bgColorTable = {'#FFFFFF','#E0E0FF'}; for n = startLine:endLine if ftok(n) == 0 % Non-code line, comment or empty. Color is green textColorCode(n) = 1; elseif ftok(n) < n % This is a continuation line. Make it the same color % as the originating line bgColorCode(n) = bgColorCode(ftok(n)); textColorCode(n) = textColorCode(ftok(n)); else % This is a new executable line lineIdx = executedLines(n); if lineIdx > 0 textColorCode(n) = 2; bgColorCode(n) = 2; else % The line was not executed textColorCode(n) = 3; bgColorCode(n) = 1; end end end case 'noncoverage' bgColorTable = {'#FFFFFF','#E0E0E0'}; for n = startLine:endLine if ftok(n) == 0 % Non-code line, comment or empty. Color is green textColorCode(n) = 1; elseif ftok(n) < n % This is a continuation line. Make it the same color % as the originating line bgColorCode(n) = bgColorCode(ftok(n)); textColorCode(n) = textColorCode(ftok(n)); else % This is a new executable line lineIdx = executedLines(n); % If the line did execute or it is a % non-breakpointable line, then it should not be % flagged if (lineIdx > 0) || (runnableLines(n) == 0) textColorCode(n) = 2; bgColorCode(n) = 1; else % The line was not executed textColorCode(n) = 2; bgColorCode(n) = 2; end end end case 'mlint' bgColorTable = {'#FFFFFF','#FFE0A0'}; for n = startLine:endLine if ftok(n) == 0 % Non-code line, comment or empty. Color is green textColorCode(n) = 1; elseif ftok(n) < n % This is a continuation line. Make it the same color % as the originating line bgColorCode(n) = bgColorCode(ftok(n)); textColorCode(n) = textColorCode(ftok(n)); else % This is a new executable line lineIdx = executedLines(n); if any([mlintstrc.line]==n) bgColorCode(n) = 2; textColorCode(n) = 2; else bgColorCode(n) = 1; if lineIdx > 0 textColorCode(n) = 2; else % The line was not executed textColorCode(n) = 3; end end end end case 'none' bgColorTable = {'#FFFFFF'}; for n = startLine:endLine if ftok(n) == 0 % Non-code line, comment or empty. Color is green textColorCode(n) = 1; elseif ftok(n) < n % This is a continuation line. Make it the same color % as the originating line bgColorCode(n) = bgColorCode(ftok(n)); textColorCode(n) = textColorCode(ftok(n)); else % This is a new executable line lineIdx = executedLines(n); if lineIdx > 0 textColorCode(n) = 2; else % The line was not executed textColorCode(n) = 3; end end end otherwise error(['hiliteOption ' hiliteOption ' unknown']) end % ---------------------------------------------- s{end+1} = '
'; s{end+1} = 'Color highlight code according to '; s{end+1} = sprintf('',idx); s{end+1} = ''; s{end+1} = '
'; % -------------------------------------------------- s{end+1} = '
';

        % Display column headers across the top
        s{end+1} = '   time ';
        s{end+1} = '  calls ';
        s{end+1} = ' line
';
       
        % Cycle through all the lines
        for n = startLine:endLine

            lineIdx = executedLines(n);
            if lineIdx>0,
                timePerLine = ftItem.ExecutedLines(lineIdx,3);
                callsPerLine = ftItem.ExecutedLines(lineIdx,2);
            else
                timePerLine = 0;
                callsPerLine = 0;
            end

            % Display the mlint message if necessary
            color = bgColorTable{bgColorCode(n)};
            textColor = textColorTable{textColorCode(n)};

            if mlintDisplayMode
                if any([mlintstrc.line]==n)
                    s{end+1} = sprintf('',n);
                end
            end

            if strcmp(hiliteOption,'mlint')
                % Use the color as the indicator that an mlint message
                % occurred on this line
                if ~strcmp(color,'#FFFFFF')
                    % Mark this line for in-document linking from the mlint
                    % list
                    mlintIdx = find([mlintstrc.line]==n);
                    for nMsg = 1:length(mlintIdx)
                        s{end+1} = '                    ';
                        s{end+1} = sprintf('%s
', ...
                            mlintstrc(mlintIdx(nMsg)).message);
                    end
                end
            end

            % Modify text so that < and > don't cause problems
            codeLine = code2html(f{n});

            % Display the time
            if timePerLine > 0.01,
                s{end+1} = sprintf(' %5.2f ', ...
                    timePerLine);
            elseif timePerLine > 0
                s{end+1} = '< 0.01 ';
            else
                s{end+1} = '       ';
            end

            % Display the number of calls
            if callsPerLine > 0,
                s{end+1} = sprintf('%7d ', ...
                    callsPerLine);
            else
                s{end+1} = '        ';
            end

            % Display the line number
            if callsPerLine > 0,
                s{end+1} = sprintf('%4d ', ...
                    quoteFixedFullName, n, n);
            else
                s{end+1} = sprintf('%4d ', n);
            end

            if ~isempty(find(n==maxTimeLineList)),
                % Mark the busy lines in the file with an anchor
                s{end+1} = sprintf('',n);
            end

            if timePerLine > 0
                % Need to add a space to the end to make sure the last
                % character is an identifier.
                codeLine = [codeLine ' '];
                % Use state machine to substitute in linking code
                codeLineOut = '';

                state = 'between';

                substr = [];
                for m = 1:length(codeLine),
                    ch = codeLine(m);
                    % Deal with the line with identifiers and Japanese comments .
                    % 128 characters are from 0 to 127 in ASCII
                    if abs(ch)>127
                        alphanumeric = 0;
                    else
                        alphanumeric = alphanumericArray(ch);
                    end

                    switch state
                        case 'identifier'
                            if alphanumeric,
                                substr = [substr ch];
                            else
                                state = 'between';
                                if isfield(targetHash,substr)
                                    substr = sprintf('%s', targetHash.(substr), substr);
                                end
                                codeLineOut = [codeLineOut substr ch];
                            end
                        case 'between'
                            if alphanumeric,
                                substr = ch;
                                state = 'identifier';
                            else
                                codeLineOut = [codeLineOut ch];
                            end
                        otherwise
 
                            error(['Unknown case ' state])

                    end
                end
                codeLine = codeLineOut;
            end

            % Display the line
            s{end+1} = sprintf('%s
', ...
                textColor, color, codeLine);

        end

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

Other subfunctions in this file are not included in this listing.'; end end end % -------------------------------------------------- % End file list section % -------------------------------------------------- s{end+1} = ''; s{end+1} = ''; % -------------------------------------------------- function shortFileName = truncateDisplayName(longFileName,maxNameLen) %TRUNCATEDISPLAYNAME Truncate the name if it gets too long shortFileName = longFileName; if length(longFileName) > maxNameLen, shortFileName = char(com.mathworks.util.FileUtils.truncatePathname( ... longFileName, maxNameLen)); end