+
−% LTPDA_USERCLASSES lists all the LTPDA user object types.
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: LTPDA_USERCLASSES lists all the LTPDA user object types.
+
−%
+
−% CALL:        classes = ltpda_userclasses()
+
−%
+
−% INPUTS:
+
−%
+
−% OUTPUTS:     classes - a cell array with a list of recognised LTPDA user object types
+
−%
+
−% Returns a list of all ltpda classes which are derived from the ltpda_uo
+
−% class.
+
−%
+
−% VERSION:     $Id: ltpda_userclasses.m,v 1.6 2010/08/16 14:06:15 hewitson Exp $
+
−%
+
−% HISTORY: 14-02-08 M Hueller
+
−%             Creation
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function classes = ltpda_userclasses(varargin)
+
−
+
−%   prefs = getappdata(0, 'LTPDApreferences');
+
−%   vl = double(prefs.getDisplayPrefs.getDisplayVerboseLevel);
+
−%   LTPDAprefs('display', 'verboseLevel', -1);
+
−  classes = utils.helper.ltpda_classes;
+
−
+
−  for ii = 1:numel(classes)
+
−    try
+
−      if ~isa(eval(classes{ii}), 'ltpda_uo')
+
−        classes{ii} = {};
+
−      end
+
−    catch
+
−      classes{ii} = {};
+
−    end
+
−  end
+
−
+
−  classes = classes(~cellfun('isempty', classes));
+
−  classes = sort(classes);
+
−
+
−end
+
−
+
−function result = isabstract(cl)
+
−
+
−  mi = eval(['?' cl]);
+
−
+
−  hasAbstractMethod = false;
+
−  for kk=1:numel(mi.Methods)
+
−    if mi.Methods{kk}.Abstract
+
−      hasAbstractMethod = true;
+
−      break;
+
−    end
+
−  end
+
−
+
−  hasAbstractProperty = false;
+
−  if ~hasAbstractMethod
+
−    for kk=1:numel(mi.Properties)
+
−      if mi.Properties{kk}.Abstract
+
−        hasAbstractProperty = true;
+
−        break;
+
−      end
+
−    end
+
−  end
+
−
+
−  if hasAbstractProperty || hasAbstractMethod
+
−    result = true;
+
−  else
+
−    result = false;
+
−  end
+
−
+
−end
+
−