% FROMM constructs an LTPDA workbench from an LTPDA script file.
%
% M Hewitson 17-11-08
%
% $Id: fromM.m,v 1.3 2010/09/17 14:09:47 ingo Exp $
%
function wb = fromM(wb, fname)
  
  wb = LTPDAworkbench();
  
  cmds = {};
  
  % get file parts
  [pathstr,name,ext] = fileparts(fname);
  min = textread(fname,'%s','delimiter','\n','whitespace','');
  
  for kk=1:numel(min)
    line = strtrim(min{kk});
    % Exceptions:
    %   empty lines
    %   comment lines
    %   mc
    if ~isempty(line) && ...
        line(1) ~= '%' && ...
        ~strcmp(line, 'mc')
      
      cmds = [cmds min(kk)];
    end
  end
  
  % Now build the pipline
  wb.cmds2pipeline(fname, cmds);
  
end