function htmlStr = diffrpt(dirname,filename,filenum) %DIFFRPT Visual directory browser % DIFFRPT works in conjunction with the Current Directory Browser % Copyright 1984-2004 The MathWorks, Inc. % Ned Gulley if nargout == 0 web('text://Generating file comparison report...','-noaddressbox'); end persistent firstclick lastclick if ~exist(firstclick) firstclick = ''; end if ~exist(lastclick) lastclick = ''; end if nargin < 1 dirname = cd; end if nargin == 3 % If this is the second click on the same file, clear the selection if filenum == 1 if strcmp(firstclick,filename) firstclick = ''; lastclick = ''; filenum = 0; filename = ''; else firstclick = filename; end end if filenum == 2 if strcmp(lastclick,filename) firstclick = ''; lastclick = ''; filenum = 0; filename = ''; else lastclick = filename; end end if ~isempty(firstclick) && ~isempty(lastclick) if strcmp(firstclick,lastclick) firstclick = ''; lastclick = ''; filenum = 0; filename = ''; else visdiff(firstclick,lastclick); firstclick = ''; lastclick = ''; return end end else if ~isempty(firstclick) filenum = 1; filename = firstclick; elseif ~isempty(lastclick) filenum = 2; filename = lastclick; else filenum = 0; filename = ''; end end if isdir(dirname) d = dir([dirname filesep '*.m']); for n = 1:length(d) d(n).mfilename = regexprep(d(n).name,'\.m$',''); d(n).description = getdescription(d(n).mfilename); end else error('%s is not a directory',dirname) end % Generate the HTML s = {}; s{1} = makeheadhtml; s{end+1} = 'File Comparison Report'; s{end+1} = ''; s{end+1} = ''; s{end+1} = '
'; s{end+1} = ''; s{end+1} = ''; s{end+1} = '

'; s{end+1} = 'File Comparison Report
'; if filenum == 0 fileMsg = 'To compare two files, click <file 1> for the first file and <file 2> for the second file.

'; elseif filenum == 1 fileMsg = sprintf('To compare another file with %s, click <file 2> next to that file

', ... firstclick); elseif filenum == 2 fileMsg = sprintf('To compare another file with %s, click <file 1> next to that file

', ... lastclick); end s{end+1} = fileMsg; s{end+1} = ''; for n = 1:length(d) s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; s{end+1} = ''; end s{end+1} = '
'; fileMsg = ''; if (filenum > 0) && strcmp(filename,[dirname filesep d(n).name]) if filenum == 1 fileMsg = 'To compare this file with another, click <file 2> next to the other file'; elseif filenum == 2 fileMsg = 'To compare this file with another, click <file 1> next to the other file'; else fileMsg = ''; end end s{end+1} = sprintf('%s
', ... d(n).mfilename,d(n).mfilename); s{end+1} = '		'; if isempty(d(n).description) s{end+1} = 'No help
'; else % Remove the function name from the H-1 line if it exists sf = strfind(d(n).description,upper(d(n).mfilename)); if ~isempty(sf) if sf(1) == 1 d(n).description(1:length(d(n).mfilename)) = []; end end s{end+1} = sprintf('%s
', d(n).description); end if ~isempty(fileMsg) s{end+1} = sprintf('%s
',fileMsg); end s{end+1} = ''; s{end+1} = sprintf('[ file 1 | ', ... dirname, [dirname filesep d(n).name]); s{end+1} = sprintf('file 2 ', ... dirname, [dirname filesep d(n).name]); asvFilename = com.mathworks.mde.editor.EditorOptions.getAutoSaveFilename( ... dirname, d(n).name); if ~isempty(dir(char(asvFilename))) s{end+1} = sprintf('| diff to autosave ', ... [dirname filesep d(n).mfilename]); end s{end+1} = ']'; s{end+1} = ''; s{end+1} = '
'; s{end+1} = ''; s{end+1} = ''; sOut = [s{:}]; if nargout==0 web(['text://' sOut],'-noaddressbox'); else htmlStr = sOut; end