LTPDV_GETWORKSPACEOBJS gets a list of LTPDA user objects currently in the MATLAB workspace. M Hewitson 22-04-08 $Id: ltpdv_getWorkspaceObjs.m,v 1.2 2008/06/18 15:07:35 hewitson Exp $
0001 function objs = ltpdv_getWorkspaceObjs() 0002 % LTPDV_GETWORKSPACEOBJS gets a list of LTPDA user objects currently in the 0003 % MATLAB workspace. 0004 % 0005 % M Hewitson 22-04-08 0006 % 0007 % $Id: ltpdv_getWorkspaceObjs.m,v 1.2 2008/06/18 15:07:35 hewitson Exp $ 0008 % 0009 0010 % get base workspace variables 0011 ws_vars = evalin('base','whos'); 0012 0013 objs = []; 0014 for j=1:length(ws_vars) 0015 0016 cmd = sprintf('obj = evalin(''base'', ''%s'');', ws_vars(j).name); 0017 eval(cmd) 0018 if isa(obj, 'ltpda_uo') 0019 objs = [objs ws_vars(j)]; 0020 end 0021 0022 end 0023