function [varargout] = calls(theFcn, varargin)

% calls -- List of function calls.
%  calls('demo') demonstrates itself by listing the
%   routines that would be called by "bessel(2, 1)".
%  [...] = calls('theFcn', ...) executes 'theFcn' with
%	the given arguments, then displays the list of M-file
%   routines that were called, according to the Matlab
%   "which" function.  The list is also placed in the
%   caller's "ans".  If the list is empty, then all
%   the calls were made to "built-in" functions.
%
% NOTE: When using this routine to assist a bundling
%  procedure, be sure not to include files whose
%  respective copyrights would be violated.
 
% Copyright (C) 2000 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 18-Apr-2000 09:11:50.
% Updated    18-Apr-2000 09:46:21.

if nargout > 0, varargout = cell(1, nargout); end

if nargin < 1, help(mfilename), theFcn = 'demo'; end

if isequal(theFcn, 'demo')
	calls('bessel', 2, 1)
	return
end

clear functions

if nargout > 0
	if nargin > 1
		[varargout{:}] = feval(theFcn, varargin{:});
	else
		[varargout{:}] = feval(theFcn);
	end
else
	if nargin > 1
		feval(theFcn, varargin{:});
	else
		feval(theFcn);
	end
end

theCalled = inmem;

for i = 1:length(theCalled)
	theCalled{i} = which(theCalled{i});
end

w = which(mfilename);
for i = length(theCalled):-1:1
	if isequal(w, theCalled{i})
		theCalled(i) = [];
		break
	end
end

if isempty(theCalled)
	theCalled = '    (none)';
end

assignin('caller', 'ans', theCalled)
disp(' ')
disp([' ## M-files called by "' theFcn '":'])
disp(' ')
disp(theCalled)

clear functions