Get a list of LTPDA objects in the MATLAB workspace M Hewitson $Id: getWorkspaceObjs.m,v 1.2 2008/01/22 21:10:23 hewitson Exp $
0001 function objs = getWorkspaceObjs() 0002 0003 % Get a list of LTPDA objects in the MATLAB workspace 0004 % 0005 % M Hewitson 0006 % 0007 % $Id: getWorkspaceObjs.m,v 1.2 2008/01/22 21:10:23 hewitson Exp $ 0008 % 0009 0010 0011 % get base workspace variables 0012 ws_vars = evalin('base','whos'); 0013 0014 objs = []; 0015 for j=1:length(ws_vars) 0016 0017 cmd = sprintf('obj = evalin(''base'', ''%s'');', ws_vars(j).name); 0018 eval(cmd) 0019 if ltpda_isuserobject(obj) 0020 objs = [objs ws_vars(j)]; 0021 end 0022 0023 end 0024 0025 0026 0027