+
−% VAL2STR converts each value into a string
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: VAL2STR converts each value into a string.
+
−%
+
−% CALL:        string = val2str(val)
+
−%              string = val2str(val, MAX_DISP);
+
−%
+
−% PARAMETERS:  val:      value which should be converted into a string.
+
−%              MAX_DISP: maximum string size. [default: 6000]
+
−%
+
−% REMARK:      In a cell have each element the MAX_DISP size.
+
−%
+
−% VERSION:     $Id: val2str.m,v 1.11 2010/12/17 14:21:59 hewitson Exp $
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function varargout = val2str(varargin)
+
−  
+
−  if nargin == 1
+
−    val      = varargin{1};
+
−    MAX_DISP = 6000;
+
−  elseif nargin == 2
+
−    val      = varargin{1};
+
−    MAX_DISP = varargin{2};
+
−  else
+
−    error('### Unknown number of inputs');
+
−  end
+
−  
+
−    
+
−  if ischar(val)
+
−    %%%%%%%%%%   character   %%%%%%%%%%
+
−    
+
−    valStr = fitStr(sprintf('''%s''', val), MAX_DISP);
+
−    
+
−  elseif isnumeric(val) || islogical(val)
+
−    %%%%%%%%%%   numbers   %%%%%%%%%%
+
−    if isvector(val)
+
−      if length(val)==1
+
−        valStr = sprintf('%.17g', val);
+
−      else
+
−        %%% Number is a vector
+
−        valStr = fitStr(utils.helper.mat2str(val), MAX_DISP);
+
−        if numel(valStr) > 3 && strcmp(valStr(end-2:end), '...')
+
−          valStr = sprintf('%s]', valStr);
+
−        end
+
−      end
+
−    elseif isempty(val)
+
−      valStr = '[]';
+
−    else
+
−      %%% Number is a matrix
+
−      valStr = fitStr(mat2str(val), MAX_DISP);
+
−      valStr = sprintf('[%dx%d], (%s)', size(val), valStr);
+
−      if numel(valStr) > 3 && strcmp(valStr(end-2:end), '...')
+
−        valStr = sprintf('%s]', valStr);
+
−      end
+
−    end
+
−    
+
−  elseif iscell(val)
+
−    %%%%%%%%%%   cell   %%%%%%%%%%
+
−    if ~isempty(val)
+
−      valStr = '{';
+
−      for ii = 1:length(val)
+
−        valStr = sprintf('%s%s, ', valStr, utils.helper.val2str(val{ii}, MAX_DISP));
+
−      end
+
−      
+
−      valStr = sprintf('%s}', valStr(1:end-2));
+
−    else
+
−      valStr = sprintf('{} [%dx%d]', size(val));
+
−    end
+
−    %%%%%%%%%%%%% symbols %%%%%%%%%%%%
+
−  elseif isa(val, 'sym')
+
−    valStr = fitStr(char(val), MAX_DISP);
+
−    
+
−  elseif isa(val, 'history')
+
−    %%%%%%%%%%   history objects   %%%%%%%%%%
+
−    valStr = char(val); % sprintf('%dx[%s.hist]', numel(val), valStr{1});
+
−    
+
−  elseif isa(val, 'provenance')
+
−    %%%%%%%%%%   provenance objects   %%%%%%%%%%
+
−    valStr = sprintf('%s %s', val.creator, val.ltpda_version);
+
−    
+
−  elseif isa(val, 'database')
+
−    valStr = sprintf('database-object: %s', val.Instance);
+
−    
+
−  elseif isobject(val)
+
−    %%%%%%%%%%   all other objects objects   %%%%%%%%%%
+
−    valStr = char(val);
+
−    
+
−  elseif isjava(val)
+
−    %%%%%%%%%%   java objects   %%%%%%%%%%
+
−    valStr = class(val);
+
−    
+
−  elseif isa(val, 'function_handle')
+
−    %%%%%%%%%%   function handle   %%%%%%%%%%
+
−    valStr = sprintf('function handle: %s', func2str(val));
+
−    
+
−  else
+
−    valStr = sprintf('%dx%d [%s]', size(val,1), size(val,2), class(val));
+
−  end
+
−  
+
−  varargout{1} = valStr;
+
−  
+
−end
+
−
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%                               Local Functions                               %
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% FUNCTION:    fitStr
+
−%
+
−% DESCRIPTION: Fits the string to the maximum displayed characters.
+
−%
+
−% HISTORY:     15-06-2009 Diepholz
+
−%                 Creation.
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function str = fitStr(str, MAX_DISP)
+
−  if length(str) > MAX_DISP
+
−    str = sprintf('%s ...', str(1:MAX_DISP));
+
−  end
+
−end