% PARSE an LTPDA command
%
% Try to parse out:
%   output vars
%   input vars
%   method name
%   plists
%   comment at end of line
%
% $Id: parse.m,v 1.2 2010/08/06 19:10:49 ingo Exp $
%
function out = parse(cmd)
  
  cmd = strtrim(cmd);
  
  % get comment
  st = regexp(cmd, '%', 'split');
  if numel(st)>1
    cmt = st{2};
  else
    cmt = '';
  end
  
  % get method
  str = st{1};
  mtdend = length(str);
  for kk=1:length(str)
    if str(kk) == '('
      mtdend = kk-1;
      break;
    end
  end
  mtdstart = 1;
  for kk=1:mtdend
    if str(kk) == '='
      mtdstart = kk+1;
      break;
    end
  end
  method = strtrim(regexp(str(mtdstart:mtdend), '\w*', 'match'));
  method = method{1};
  
  % get output
  output = '';
  for kk=1:mtdstart
    if str(kk) == '='
      output = str(1:kk-1);
      break;
    end
  end
  output = strrep(output, '[', '');
  output = strrep(output, ']', '');
  if ~isempty(output)
    outvars = regexp(output, ',*\s*', 'split');
  else
    outvars = {};
  end
  
  pls = {};
  pl = '';
  rest = strrep(cmd, pl, '');
  plstart = regexp(rest, 'plist\(', 'start');
  while ~isempty(plstart)
    % look for the opening (
    for kk=plstart(1):length(rest)
      if rest(kk) == '('
        plstart = kk;
        break
      end
    end
    % now look for the ending ) for this plist
    nexp = 1;
    kk=plstart+1;
    while nexp~=0
      if rest(kk) == '('
        nexp = nexp + 1;
      elseif rest(kk) == ')'
        nexp = nexp - 1;
      end
      kk=kk+1;
    end
    plend = kk-1;
    pl = ['plist' rest(plstart:plend)];
    rest = strrep(rest, pl, '');
    plstart = regexp(rest, 'plist\(', 'start');
    pls = [pls {pl}];
  end
  
  % input vars
  invars = regexp(rest, '\((.*)\)', 'tokens');
  if ~isempty(invars)
    invars = regexp(invars{1}, '\s*,\s*', 'split');
    invars = invars{1};
    for kk=1:numel(invars)
      % remove leading [ and trailing ]
      iv = strtrim(invars{kk});
      if ~isempty(iv)
        if invars{kk}(1) == '[' && invars{kk}(end) == ']'
          invars{kk} = invars{kk}(2:end-1);
        end
      else
        invars{kk} = iv;
      end
    end
  end
  out.outvars = strtrim(outvars(cellfun(@(x) ~isempty(x),outvars)));
  out.method  = strtrim(method);
  out.invars  = strtrim(invars(cellfun(@(x) ~isempty(x),invars)));
  out.pls     = strtrim(pls(cellfun(@(x) ~isempty(x),pls)));
  out.comment = strtrim(cmt);
  
end