% PARSEFILTERPARAMS parses the input plist and returns a full plist for designing a standard FIR filter.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: PARSEFILTERPARAMS parses the input plist and returns a full
%              plist for designing a standard FIR filter. Defaults are used
%              for those parameters missing from the input plist.
%
% CALL:        plo = parseFilterParams(pl)
%
% INPUT:       'type'  - one of 'highpass', 'lowpass', 'bandpass', 'bandreject'.
%               [default: 'lowpass']
%              'gain'  - gain of filter [default: 1.0]
%              'fs'    - sample frequency to design for [default: 1 Hz]
%              'order' - order of filter [default: 64]
%              'fc'    - corner frequencies. This is a two element vector for
%                        bandpass and bandreject filters. [default: 0.1 or [0.1 0.25] Hz]
%              'Win'   - a window object to use in the design. [default: Hamming]
%
% VERSION:     $Id: parseFilterParams.m,v 1.9 2010/10/29 16:09:13 ingo Exp $
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function plo = parseFilterParams(pl)

  plo = plist();

  % type
  type = find(pl, 'type');
  if isempty(type)
    type = 'lowpass';
    utils.helper.msg(msg.OPROC2, 'using default type ''lowpass''');
  end
  plo = append(plo, 'type', type);

  % gain
  gain = find(pl, 'gain');
  if isempty(gain)
    gain = 1.0;
    utils.helper.msg(msg.OPROC2, ['using default gain ' num2str(gain)]);
  end
  plo = append(plo, 'gain', gain);

  % order
  order = find(pl, 'order');
  if isempty(order)
    order = 64;
    utils.helper.msg(msg.OPROC2, ['- using default order ' num2str(order)]);
  end
  if mod(order,2) == 1
    warning('!!! reseting filter order to even number (+1)')
    order = order + 1;
  end
  plo = append(plo, 'order', order);

  % fc
  fc = find(pl, 'fc');
  if isempty(fc)
    if strcmp(type, 'bandreject') || strcmp(type, 'bandpass')
      fc = [0.1 0.25];
    else
      fc = 0.1;
    end
    utils.helper.msg(msg.OPROC2, ['- using default fc ' num2str(fc)]);
  end
  plo = append(plo, 'fc', fc);

  % fs
  fs = find(pl, 'fs');
  if isempty(fs)
    fs = 10*max(fc);
    warning([sprintf('!!! no sample rate specified. Designing for fs=%2.2fHz.', fs)...
      sprintf('\nThe filter will be redesigned later when used.')]);
  end
  plo = append(plo, 'fs', fs);

  % win
  win = find(pl, 'Win');
  if isempty(win)
    % then we use the default window
    win = specwin('Hamming', order+1);
  elseif ischar(win)
    if strcmpi(win, 'kaiser')
      win = specwin(win, order+1, win.psll);
    else
      win = specwin(win, order+1);
    end
  end
  if length(win.win) ~= order + 1
    warning('!!! setting window length to filter order !!!');
    switch lower(win.type)
      case 'kaiser'
        win = specwin(win.type, order + 1, win.psll);
      otherwise
        win = specwin(win.type, order + 1);
    end
  end
  plo = append(plo, 'Win', win);
end