helpx.m

实现地震勘探中

function warnings=helpx(func)
% Run the example in the help section of a function
% The help section starts with the line "% EXAMPLE"


string=blanks(80);
string=strrep(string,' ','=');

helptext = help(func);
if isempty(helptext)
   warnings=['Function "',func,'" has no help section'];
   return
end

htext=tokens(helptext,char(10));
idx=strmatch('EXAMPLE',strtrim(htext));

if ~isempty(idx)
   if length(idx) > 1
      warnings=['Function "',func,'" has more than one EXAMPLE'];
   else
      label=['Example for "',func,'"  '];
      disp([label,string(1:80-length(label))])
      hhh=htext(idx+1:end);
      hhh=splice_continued_lines_no1(hhh);
      try
         evalc(cell2str(hhh,','))
      catch
         ple
         disp('Error while evaluating help example. Investigate or type "return" to continue.')
         keyboard
      end
      warnings='';
  end
else
   warnings=['Function "',func,'" has no EXAMPLE'];
end
if nargout == 0
   clear warnings
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function htext=splice_continued_lines_no1(htext)
%	Splice command lines that end in ...
for ii=length(htext)-1:-1:1
   temp=deblank(htext{ii});
   if length(temp) > 3
      while strcmp(temp(end-2:end),'...')
         temp=[temp(1:end-3),htext{ii+1}];
         htext(ii+1)=[];
      end
   end
   htext{ii}=temp;
end