+
−function objs = ltpdv_getWorkspaceObjs()
+
−% 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 $
+
−%
+
−
+
−% get base workspace variables
+
−ws_vars = evalin('base','whos');
+
−
+
−objs = [];
+
−for j=1:length(ws_vars)
+
−
+
−   cmd = sprintf('obj = evalin(''base'', ''%s'');', ws_vars(j).name);
+
−   eval(cmd)
+
−   if isa(obj, 'ltpda_uo')
+
−      objs = [objs ws_vars(j)];
+
−   end
+
−
+
−end
+
−