% CHAR convert a param object into a string.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: CHAR convert a history object into a string.
%
% CALL:        string = char(hist)
%
% VERSION:     $Id: char.m,v 1.14 2011/02/18 16:48:52 ingo Exp $
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function varargout = char(varargin)
  
  objs  = [varargin{:}];
  
  hstr = '';
  
  for ii = 1:numel(objs)
    cl = getObjectClass(objs(ii));
    if ~isempty(cl)
      str = sprintf('%s.hist', cl);
    else
      str = sprintf('empty-history');
    end
    hstr = [hstr str ' / '];
  end
  
  hstr = hstr(1:end-2);
  
  varargout{1} = hstr;
end