view m-toolbox/classes/@LTPDAworkbench/cb_exportWS.m @ 37:a4b7ceae0403 database-connection-manager

Show backtrace on unit test errors
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Mon, 05 Dec 2011 16:20:06 +0100
parents f0afece42f48
children
line wrap: on
line source

% CB_EXPORTWS stores the selected blocks outputs to the workspace
%
% CALL: LTPDAworkbench.cb_exportWS
%
% M Hewitson 13-11-08
%
% $Id: cb_exportWS.m,v 1.5 2010/08/06 19:10:48 ingo Exp $
%
function cb_exportWS(varargin)
  
  wb = varargin{1};
  
  % Get all selected blocks
  sbs = awtinvoke(wb.mp, 'getSelectedBlocks');
  
  outvars = {};
  for ii=0:sbs.size()-1
    block = sbs.get(ii);
    
    % if this is a MElementWithPorts
    if isa(block, 'mpipeline.canvas.MElementWithPorts')
      
      % loop over all outputs
      outports = block.getOutputs();
      for kk=0:outports.size()-1
        op = outports.get(kk);
        % get variable name
        outvar = LTPDAworkbench.getWS_VarName(wb.UUID, block, op.getNumber);
        outvars = [outvars {outvar}];
      end
    end
  end
  
  % Check if each var exists in the workspace, and then store in workspace
  try
    for kk=1:numel(outvars)
      
      % get class of the object
      cl = evalin('base', [ 'class(' outvars{kk} ')']);
      
      % get new var name
      %   - this means split the outvar at the last '.'
      nv = getVar(outvars{kk});
      
      if ismember(cl, utils.helper.ltpda_userclasses)
%         cmd  = [nv ' = ' cl '(' outvars{kk} ');'];
        cmd  = [nv ' = copy(' outvars{kk} ',1);'];
      else
        cmd  = [nv ' = ' outvars{kk} ';'];
      end
      evalin('base', cmd);
    end
  catch
    utils.helper.errorDlg('Unable to export selected objects. Has the pipeline been executed?', 'Export to workspace error');
  end
  
  
end

function nv = getVar(ov)
  
  nv = '';
  
  for kk=length(ov):-1:1
    if ov(kk) == '.'
      break
    else
      nv = [nv ov(kk)];
    end
  end
  
  nv = nv(end:-1:1);
  
end