% PROCESS_SMODEL_TRANSF_OPTIONS checks the options for the parameters needed
% by smodel methods like transforms
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: PROCESS_SMODEL_TRANSF_OPTIONS checks the options for the parameters needed
% by smodel methods like transforms. Checked options/parameters are:
%              - in_var
%              - ret_var
%
% CALL:       pl = process_smodel_transf_options(pl, type, varargin)
%
% INPUTS:
%             pl      - the parameter list passed by user
%             rest    - the list of user inputs to search for variable
%                       definition by string
%
% OUTPUTS:    in_var    - the variable to act with respect to
%             ret_var   - the variable to transform into
%             pl_out - the revised plist, with the variable to act with
%                      respect to added
%
% VERSION: $Id: process_smodel_transf_options.m,v 1.1 2009/09/18 06:57:34 mauro Exp $
%
% HISTORY: 04-09-2009 M Hueller
%             Creation
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function varargout = process_smodel_transf_options(pl, rest)
  % Necessary for debug messages
  import utils.const.*
  
  % Select the variable to use and the order
  % Input as a string or in a plist
  
  % First look for values inside the plist
  in_var = find(pl, 'in_var');
  ret_var = find(pl, 'ret_var');  
  
  % Then look for arguments inside a list (strings and/or numbers)
  switch numel(rest)
    case 0
      % Nothing to do
    case 1
      % Inputs in a list of arguments
      ret_var  = rest{1};
    case 2
      in_var  = rest{1};
      ret_var  = rest{2};
    otherwise
      error('### Not sure what to say here');
  end
    
  p_var = plist('in_var', in_var, 'ret_var', ret_var);  
  
  % Combine plists
  usepl = combine(pl, p_var);
  
  switch nargout
    case 2
      varargout{1} = ret_var;
      varargout{2} = usepl;
    case 3
      varargout{1} = in_var;
      varargout{2} = ret_var;      
      varargout{3} = usepl;
  end
end