www.gusucode.com > mbc 工具箱 matlab 源码程序 > mbc/@xregpointer/peval.m

    function varargout = peval(func,p,varargin)
%PEVAL Evaluate function on data referenced by pointer
% 
%  varargout = PEVAL(func, p, varargin) where func is a function handle or
%  string and p is an xregpointer evaluates func on the contents of the
%  memory pointed to by p.

%  Copyright 2000-2004 The MathWorks, Inc. and Ford Global Technologies, Inc.


inf = HeapManager(0,p.ptr);
if nargout==0
    data = feval(func, inf, varargin{:});
    if strcmp(class(data),class(inf))
        HeapManager(2,p.ptr,data);
    else
        varargout{1} = data;
    end
else
    [varargout{1:nargout}]= feval(func, inf, varargin{:});
end