% Get a list of LTPDA objects in the MATLAB workspace
%
% M Hewitson
%
% $Id: getWorkspaceObjs.m,v 1.1 2009/02/03 08:15:30 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