view m-toolbox/classes/@LTPDAworkbench/export.m @ 18:947e2ff4b1b9 database-connection-manager

Update plist.FROM_REPOSITORY_PLIST and plist.TO_REPOSITORY_PLIST
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Mon, 05 Dec 2011 16:20:06 +0100
parents f0afece42f48
children
line wrap: on
line source

% EXPORT the current pipeline as commands to an m-file or to the terminal.
%
% CALL:    wb.export          % export to terminal
%          wb.export('foo.m') % export to file
%
% M Hewitson 17-11-08
%
% $Id: export.m,v 1.3 2010/09/17 14:09:47 ingo Exp $
%
function export(wb, filename)
  
  % get commands
  wb.reset
  cmds = {};
  while awtinvoke(wb.mp, 'countReadyBlocks') > 0
    cmds = [cmds wb.parseReadyBlocks()];
    % move on
    wb.skipForward();
  end
  wb.reset
  
  if nargin == 2
    % open output file
    [path, fcnname, ext] = fileparts(filename);
    fd = fopen(filename, 'w+');
    
    % write header
    plineName = char(awtinvoke(wb.mp, 'getActiveDiagramName'));
    fprintf(fd, '%% Export of %s\n', plineName);
    fprintf(fd, '%% \n');
    fprintf(fd, '%% \n');
    fprintf(fd, '%% %s\n', datestr(now));
    fprintf(fd, '%% \n');
    fprintf(fd, '%% \n');
    
    fprintf(fd, 'function  %s\n', strrep(fcnname, ' ', '_'));
    for kk=1:numel(cmds)
      fprintf(fd, '\t%s\n', cmds{kk});
    end
    fprintf(fd, 'end\n');
    
    fclose(fd);
  else
    for kk=1:numel(cmds)
      fprintf('%03d: %s\n', kk, cmds{kk});
    end
  end
end