BeamLab200.rar_ BeamLab200_BeamLab200_beamlab_ridgelet_工具箱

function [trace_list, builtins, class_names, prob_files, prob_symbols, ... eval_strings, calledfrom, java_classes] = depfunsilent(varargin) %DEPFUNSILENT is a silent version of the system function DEPFUN %DEPFUN Locate dependent functions of an m/p-file. % TRACE_LIST = DEPFUN(FUN) returns a cell array of names of the dependent % functions of FUN. FUN is directly dependent on the functions that it % calls; FUN is indirectly dependent on the functions called by the % functions called by FUN, and so on. % % [TRACE_LIST, BUILTINS, CLASS_NAMES] = DEPFUN(FUN) also returns a % cell array of all builtin functions and MATLAB classes called by FUN % and its dependent functions. % % The syntax for DEPFUN with all possible outputs is: % [TRACE_LIST, BUILTINS, CLASS_NAMES, PROB_FILES, PROB_SYMBOLS,... % EVAL_STRINGS, CALLED_FROM, JAVA_CLASSES] = DEPFUN(FUN) % where: % PROB_FILES is a structure array of m/p-files that DEPFUN could not parse, % locate, or access. Parsing problems can arise from MATLAB syntax errors. % PROB_SYMBOLS is a structure array that indicates which symbol names DEPFUN % could not resolve as functions or variables. % EVAL_STRINGS is a structure array that indicates where functions in % TRACE_LIST call eval, evalc, evalin, or feval. The strings that eval and % similar functions evaluate might use functions that are not in TRACE_LIST. % CALLED_FROM is a cell array that indicates who calls whom. CALLED_FROM % is arranged so that TRACE_LIST(CALLED_FROM{i}) lists all functions in FUN % that call TRACE_LIST{i}. CALLED_FROM and TRACE_LIST have the same length. % JAVA_CLASSES is a cell array of Java class names used by one or more of the % files in TRACE_LIST. % % [...] = DEPFUN(FILE1,FILE2,...) processes each file in turn. % % [...] = DEPFUN(FIG_FILE) looks for dependent functions among the % callback strings of any GUI elements defined in the .FIG (or % .MAT) file FIG_FILE. % % DEPFUN has optional control input strings. The control parameter '-toponly' % will override the default recursive search for dependent files and means % DEPFUN will return lists of builtins, M/P/MEX-files, and classes used only % in the functions listed as inputs to DEPFUN. The control parameter % '-nographics' forces DEPFUN to only include graphics functions that are % explicitly called. Normally DEPFUN, at a minimum, adds newplot to the % function list. % % Note: DEPFUN frequently writes temporary M-files to the TEMP % directory. During this process the temporary directory is added to the % MATLAB path. Please try to ensure there are no M/P/MEX-files in this % directory. % % If you use any toolbar items from the default figure, then you % need to include 'FigureToolBar.fig' in your input to DEPFUN. If you % use any menu items from the default figure, then you must include % 'FigureMenuBar.fig' in your input to DEPFUN. % % See also DEPDIR. % Copyright 1984-2000 The MathWorks, Inc. % $Revision: 1.41 $ $Date: 2000/08/15 13:55:03 $ % check if there is the optional input flag that indicate we're not doing a recursive % search toponly = 0; nographics = 0; newvarargin = {}; for i=1:length(varargin) if isstr(varargin{i}) & strcmp(varargin{i},'-toponly') toponly = i; end if isstr(varargin{i}) & strcmp(varargin{i},'-nographics') nographics = i; end end if toponly, varargin{toponly} = []; end if nographics, varargin{nographics} = []; end for i = 1:length(varargin) if ~isempty(varargin{i}) newvarargin{end+1} = varargin{i}; end end varargin = newvarargin; if isempty(varargin), error('Not enough input arguments.'); end % check for valid input trace_list = {}; nin = length(varargin); for i=1:nin if ~isstr(varargin{i}) error('Input must be strings.'); end % make sure start_name is a full path name [path, fname, extension] = fileparts(varargin{i}); if isempty(extension) if exist(path,'dir') % have full path and name but no extension if exist([varargin{i} '.m']) extension = '.m'; elseif exist([varargin{i} mexext]) extension = mexext; elseif exist([varargin{i} '.p']) extension = 'p'; else error(['File ' varargin{i} ' cannot be located or is not an ' ... 'M/MEX/P file.']); end trace_list{end+1} = [varargin{i} extension]; else fullname = which(varargin{i}); if ispc, extension = lower(extension); end if isempty(fullname) error(['Cannot locate file ' varargin{i} '.']); end if strcmp(fullname,'built-in') fprintf('Function %s is a builtin and is being removed from search list\n',varargin{i}); else trace_list{end+1} = fullname; end end elseif exist(path,'dir') % got an extension and a full path trace_list(end+1) = varargin(i); elseif any(strcmp(extension,{'.m' '.p' '.fig' ['.' mexext]})) fullname = which(varargin{i}); if isempty(fullname) error(['Cannot locate file ' varargin{i} '.']); end trace_list{end+1} = fullname; else error(['File ' varargin{i} ' is not an allowed file type (M/P/FIGS).']); end end if isempty(trace_list) clear trace_list builtins class_names prob_files prob_symbols clear eval_strings calledfrom dyn_syms disp('DEPFUN inputs have no M-files to examine.'); return end % Add newplot function to trace list as it's called indirectly % for any graphics operation. if ~toponly & ~nographics trace_list{end+1} = which('newplot'); if strcmp(trace_list(end),'built-in'), trace_list(end) = []; end end % get handle graphics info if ~toponly & ~nographics [hg_param, hg_val, cbparam, cbdef] = gethginfo; for i=1:length(cbdef) fname = which(cbdef{i}); if ~strcmp(fname,'built-in'), trace_list{end+1} = fname; end end else gethginfo('setup'); end % Make sure tempdir is on the path if isempty(findstr(tempdir,matlabpath)) addpath(tempdir) added_temp = 1; else added_temp = 0; end % Generate a temp m-file name that is used to hold evaluated strings % for compilation. Test temp file to verify it can be opened in write % mode and deleted. Unfortunately the delete command does not provide % an error return value so I'm catching the warning and then erroring out. lastwarn(''); tmpname = [tempname '.m']; fid = fopen(tmpname, 'w'); fclose(fid); if exist(tmpname), delete(tmpname); end if strcmp(lastwarn,'File not found or permission denied') error(['Unable to run DEPFUN due to inability to write to and remove ' ... 'temporary file (' tmpname ').']); end % Check for PC so we can do case insensitive file name comparisons ispc = strncmp(computer,'PC',2); prob_files = []; fc = 0; clas = {}; calledfrom(1:length(trace_list)) = {0}; prob_symbols = []; script_id = []; eval_strings = []; which_psym = {}; del_prob_sym = {}; java_classes = {}; fsep = filesep; % initialize builtin function list if toponly builtins = {}; which_builtins = []; else builtins = {'subsindex' 'subsref' 'subsasgn' 'vertcat' 'horzcat'}; which_builtins{length(builtins)} = []; for i=1:length(builtins) meth = whichall(builtins{i}); if length(meth) > 1 which_builtins{i} = meth; end end end % find currently visible classes cls = classes; % initialize which list that corresponds to trace list which_trace_list{length(trace_list)} = []; for i=1:length(trace_list) [path, fname, extension] = f