--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/+utils/@helper/val2str.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,125 @@
+% 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