Mercurial > hg > ltpda

diff m-toolbox/classes/@repogui2/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/classes/@repogui2/getWorkspaceObjs.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,22 @@
+% Get a list of LTPDA objects in the MATLAB workspace
+%
+% M Hewitson
+%
+% $Id: getWorkspaceObjs.m,v 1.2 2008/10/19 12:25:37 hewitson Exp $
+%
+
+function objs = getWorkspaceObjs()
+  
+  % 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
+end