Mercurial > hg > ltpda

diff m-toolbox/m/gui/ltpdv/callbacks/ltpdv_getWorkspaceObjs.m @ 0:f0afece42f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_getWorkspaceObjs.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,23 @@
+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
+