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.9 2007/08/20 15:14:39 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.9 2007/08/20 15:14:39 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     if ischar(p.val)
0024       sval = char(p.val);
0025       if length(sval) >= 10
0026         sval = [sval(1:10) '...'];
0027       end
0028       pstr = [pstr p.key '=' sval ', '];
0029     elseif isnumeric(p.val)
0030       vals = p.val;
0031       ml   = min(10, length(vals));
0032       vals = reshape(vals(1:ml),1,ml);
0033       pstr = [pstr p.key '=' num2str(vals) ', '];
0034       if length(p.val) > 10
0035         pstr = [pstr '...'];
0036       end
0037     elseif isa(p.val, 'specwin')
0038       % display only the window name here
0039       w = p.val;
0040       pstr = [pstr p.key '=' w.name ', '];
0041     elseif isa(p.val, 'miir')
0042       f = p.val;
0043       if strcmp(get(f, 'infile'), '')
0044         pstr = [pstr p.key '=' get(f, 'name') ', '];
0045       else
0046         pstr = [pstr p.key '=' get(f, 'infile') ', '];
0047       end
0048     elseif isa(p.val, 'mfir')
0049       f = p.val;
0050       pstr = [pstr p.key '=' get(f, 'name') ', '];
0051     elseif isa(p.val, 'time') || isa(p.val, 'timeformat') || isa(p.val, 'timespan')
0052       pstr = [pstr p.key '=' char(p.val) ', '];
0053     elseif isa(p.val, 'tsdata') || isa(p.val, 'fsdata') || isa(p.val, 'cdata')
0054 
0055       pstr = 'data';
0056 
0057     else
0058 %       warning('!!! unknown parameter type. Can''t convert to string.');
0059     end
0060   end
0061   % remove last ', '
0062   if length(pstr)>1
0063     pstr = pstr(1:end-2);
0064   end
0065   % close bracket
0066   pstr = [pstr ')'];
0067 end
0068 
0069 
0070 % END

Generated on Mon 03-Sep-2007 12:12:34 by m2html © 2003