view m-toolbox/classes/@LTPDAworkbench/cb_exportWS.m @ 15:ce3fbb7ebe71
database-connection-manager
Remove broken functions from utils.jmysql
author
Daniele Nicolodi <nicolodi@science.unitn.it>
date
Mon, 05 Dec 2011 16:20:06 +0100 (2011-12-05)
parents
f0afece42f48
children
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