Home > classes > @plist > char.m

char

PURPOSE ^

CHAR convert a parameter list into a string.

SYNOPSIS ^

function pstr = char(pl)

DESCRIPTION ^

 CHAR convert a parameter list into a string.

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

 DESCRIPTION: CHAR convert a parameter list into a string.

 CALL:        string = char(plist);

 VERSION:     $Id: char.m,v 1.11 2007/10/22 12:03:02 ingo Exp $

 HISTORY:     04-02-2007 M Hewitson
                 Creation

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

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function pstr = char(pl)
0002 % CHAR convert a parameter list into a string.
0003 %
0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0005 %
0006 % DESCRIPTION: CHAR convert a parameter list into a string.
0007 %
0008 % CALL:        string = char(plist);
0009 %
0010 % VERSION:     $Id: char.m,v 1.11 2007/10/22 12:03:02 ingo Exp $
0011 %
0012 % HISTORY:     04-02-2007 M Hewitson
0013 %                 Creation
0014 %
0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0016 
0017 np   = length(pl.params);
0018 pstr = '';
0019 if np > 0
0020   pstr = ['('];
0021   for j=1:np
0022     p = pl.params(j);
0023 
0024     %%%%%%%%%%   cell   %%%%%%%%%%
0025     if iscell(p.val)
0026       pstr = [pstr p.key '={'];
0027       for ii = 1:length(p.val)
0028         if ischar(p.val{ii})
0029           pstr = [pstr '''' p.val{ii} ''', ' ];
0030         else
0031           pstr = [pstr '''' num2str(p.val{ii}) ''', '];
0032         end
0033       end
0034       if strcmp(pstr(end-1:end), ', ')
0035         pstr = [pstr(1:end-2) '}, '];
0036       else
0037         pstr = [pstr '}, '];
0038       end
0039 
0040     %%%%%%%%%%   character   %%%%%%%%%%
0041     elseif ischar(p.val)
0042       sval = char(p.val);
0043       if length(sval) == 0
0044         sval = [''' '''];
0045       elseif length(sval) >= 10
0046         sval = [sval(1:10) '...'];
0047       end
0048       pstr = [pstr p.key '=' sval ', '];
0049 
0050     %%%%%%%%%%   numbers   %%%%%%%%%%
0051     elseif isnumeric(p.val)
0052       vals = p.val;
0053       ml   = min(10, length(vals));
0054       vals = reshape(vals(1:ml),1,ml);
0055       pstr = [pstr p.key '=' num2str(vals) ', '];
0056       if length(p.val) > 10
0057         pstr = [pstr '...'];
0058       end
0059 
0060     %%%%%%%%%%   specwin   %%%%%%%%%%
0061     elseif isa(p.val, 'specwin')
0062       % display only the window name here
0063       w = p.val;
0064       pstr = [pstr p.key '=' w.name ', '];
0065 
0066     %%%%%%%%%%   miir   %%%%%%%%%%
0067     elseif isa(p.val, 'miir')
0068       f = p.val;
0069       if strcmp(get(f, 'infile'), '')
0070         pstr = [pstr p.key '=' get(f, 'name') ', '];
0071       else
0072         pstr = [pstr p.key '=' get(f, 'infile') ', '];
0073       end
0074 
0075     %%%%%%%%%%   mfir   %%%%%%%%%%
0076     elseif isa(p.val, 'mfir')
0077       f = p.val;
0078       pstr = [pstr p.key '=' get(f, 'name') ', '];
0079 
0080     %%%%%%%%%%   time, timeformat, timespan   %%%%%%%%%%
0081     elseif isa(p.val, 'time') || isa(p.val, 'timeformat') || isa(p.val, 'timespan')
0082       pstr = [pstr p.key '=' char(p.val) ', '];
0083 
0084     %%%%%%%%%%   data-objects: tsdata, fsdata, xydata and cdata   %%%%%%%%%%
0085     elseif isa(p.val, 'tsdata') || isa(p.val, 'fsdata') || isa(p.val, 'cdata')
0086       pstr = [pstr p.key '=' class(p.val) '-object, '];
0087 
0088     else
0089       pstr = [pstr p.key '=' class(p.val) '-object, '];
0090 %     else
0091 %       warning('!!! unknown parameter type. Can''t convert to string.');
0092     end
0093   end
0094   % remove last ', '
0095   if length(pstr)>1
0096     pstr = pstr(1:end-2);
0097   end
0098   % close bracket
0099   pstr = [pstr ')'];
0100 end
0101 
0102 
0103 % END

Generated on Fri 02-Nov-2007 19:39:27 by m2html © 2003