--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/+utils/@helper/process_smodel_transf_options.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,69 @@
+
+% 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