vb_ch_info_set_channel_info_ref

 <<provate>> set REFFERENCE channel label list to ch_info
 [usage]
   [ch_info] = vb_ch_info_set_channel_info_ref(ch_info, ch_list)
 [input]
   ch_info : <required> <<struct>> temporal channel information 
           :   which is before changing
   ch_list : <optional> list of REFFERENCE channel label [N x 1] or [1 x N]
 [output]
   ch_info : <<struct>> temporal channel information which is after changing
 [note]
   this function is private
   returned channel list's size is [N x 1]
 [history]
   2007-07-12 (Sako) initial version

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function [ch_info] = vb_ch_info_set_channel_info_ref(ch_info, ch_list)
0002 % <<provate>> set REFFERENCE channel label list to ch_info
0003 % [usage]
0004 %   [ch_info] = vb_ch_info_set_channel_info_ref(ch_info, ch_list)
0005 % [input]
0006 %   ch_info : <required> <<struct>> temporal channel information
0007 %           :   which is before changing
0008 %   ch_list : <optional> list of REFFERENCE channel label [N x 1] or [1 x N]
0009 % [output]
0010 %   ch_info : <<struct>> temporal channel information which is after changing
0011 % [note]
0012 %   this function is private
0013 %   returned channel list's size is [N x 1]
0014 % [history]
0015 %   2007-07-12 (Sako) initial version
0016 %
0017 % Copyright (C) 2011, ATR All Rights Reserved.
0018 % License : New BSD License(see VBMEG_LICENSE.txt)
0019 
0020 % --- CHECK ARGUMENTS --- %
0021 if ~exist('ch_info', 'var'), ch_info = []; end
0022 if ~exist('ch_list', 'var'), ch_list = []; end
0023 [ch_info, ch_list] = inner_check_arguments(ch_info, ch_list);
0024 
0025 % --- MAIN PROCEDURE --------------------------------------------------------- %
0026 %
0027 ch_info.ref_channel = ch_list;
0028 return;
0029 %
0030 % --- END OF MAIN PROCEDURE -------------------------------------------------- %
0031 
0032 % --- INNER FUNCTIONS -------------------------------------------------------- %
0033 %
0034 % --- inner_check_arguments()
0035 %
0036 function [ch_info, ch_list] = inner_check_arguments(ch_info, ch_list)
0037 func_ = mfilename;
0038 if isempty(ch_info)
0039   error('(%s)ch_info is a required parameter', func_);
0040 end
0041 
0042 if isempty(ch_list)
0043   % require no action
0044 else
0045   % [N x 1]
0046   ch_list = vb_util_arrange_list(ch_list);
0047 end
0048 return;
0049 %
0050 % --- end of inner_check_arguments()
0051 %
0052 % --- END OF INNER FUNCTIONS ------------------------------------------------- %
0053 
0054 %%% END OF FILE %%%