view m-toolbox/classes/@ssmport/char.m @ 18:947e2ff4b1b9
database-connection-manager
Update plist.FROM_REPOSITORY_PLIST and plist.TO_REPOSITORY_PLIST
author
Daniele Nicolodi <nicolodi@science.unitn.it>
date
Mon, 05 Dec 2011 16:20:06 +0100 (2011-12-05)
parents
f0afece42f48
children
line source
+ − % CHAR convert a ssmport object into a string.
+ − %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ − %
+ − % DESCRIPTION: CHAR convert a ssmport object into a string.
+ − %
+ − % CALL: string = char(ssmport)
+ − %
+ − % VERSION: $Id: char.m,v 1.4 2011/02/18 16:48:55 ingo Exp $
+ − %
+ − %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ −
+ − function varargout = char(varargin)
+ − objs = varargin{1};
+ −
+ − % see if parent block name is there
+ − if nargin==2
+ − parentName=varargin{2};
+ − else
+ − parentName = '';
+ − end
+ −
+ − pstr = '';
+ − for ii = 1:numel(objs)
+ − [blockName, portName] = ssmblock.splitName(objs(ii).name);
+ − if strcmpi(parentName, blockName)
+ − pstr = [pstr portName ' ' char(objs(ii).units) ', '];
+ − else
+ − pstr = [pstr objs(ii).name ' ' char(objs(ii).units) ', '];
+ − end
+ − end
+ −
+ − % remove last ', '
+ − if length(pstr)>1
+ − pstr = pstr(1:end-2);
+ − end
+ −
+ − %%% Prepare output
+ − varargout{1} = pstr;
+ − end