%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FUNCTION:    ssmFromss
%
% DESCRIPTION: Construct a ltpda statespace object from a matlab statespace
%               object
%
% CALL:        see ssm, this function is private
%
% TODO:        inplement multiple i/o when subassign function is done
%
% VERSION :    '$Id: ssmFromss.m,v 1.12 2011/04/08 08:56:22 hewitson Exp $';
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function sys = ssmFromss(varargin)
  
  VERSION = '$Id: ssmFromss.m,v 1.12 2011/04/08 08:56:22 hewitson Exp $';
  utils.helper.msg(utils.const.msg.MNAME, ['running ', mfilename]);
  % get info
  % Set the method version string in the minfo object
  
  if nargin ~=2
    error('ssmFromss need 2 inputs : (obj, plist) ')
  elseif isa(varargin{1}, 'ss') && isa(varargin{2}, 'plist')
    pl = varargin{2};
    ssin = varargin{1};
  else
    error('### Please input  (<object>,<plist>)');
  end
  
  sys = ssm.initObjectWithSize(1,1);
  sys.name = ssin.Name;
  if ~ isempty(ssin.Notes)
    sys.description = ssin.Notes;
  end
  
  [a,b,c,d,Ts] = ssdata(ssin) ;
  sys.amats = {a};
  sys.bmats = {b};
  sys.cmats = {c};
  sys.dmats = {d};
  sys.timestep = Ts;
  
  inputstr = 'input';
  outputstr = 'output';
  ssstr =  'state';
  
  sys.inputs = ssmblock.makeBlocksWithData({inputstr},{ssin.inputName}, [], [], [] );
  sys.outputs = ssmblock.makeBlocksWithData({outputstr},{ssin.outputName}, [], [], [] );
  sys.states = ssmblock.makeBlocksWithData({ssstr}, {ssin.stateName}, [], [], [] );
  
  if ~strcmp(pl.find('name'),'None')
    sys.name = pl.find('name');
  end
  if ~strcmp(pl.find('description'),'')
    sys.description = pl.find('description');
  end
  
end