+
−% GENERIC_GETINFO generic version of the getInfo function
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: GENERIC_GETINFO generic version of the getInfo function
+
−%
+
−% CALL:        ii = generic_getInfo(varargin{:}, 'class_name');
+
−%
+
−% INPUTS:      varargin:   Function inputs of the class version of getInfo
+
−%              class_name: Class name which calls this function.
+
−%
+
−% OUTPUT:      minfo-class of the method
+
−%
+
−% EXAMPLES:    Constructor call to get all sets
+
−%                specwin.getInfo()
+
−%                specwin.getInfo('specwin')
+
−%                specwin.getInfo('specwin', '')
+
−%
+
−%              Constructor call to get a specified set
+
−%                specwin.getInfo('specwin', 'None')
+
−%                specwin.getInfo('specwin', 'set')
+
−%
+
−%              Call for the methods in a class
+
−%                specwin.getInfo('char')
+
−%                specwin.getInfo('char', 'None')
+
−%
+
−% VERSION:     $Id: generic_getInfo.m,v 1.7 2011/03/28 12:45:45 hewitson Exp $
+
−%
+
−% HISTORY:     24-07-2008 Diepholz
+
−%                 Creation.
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function ii = generic_getInfo(varargin)
+
−  
+
−  class_name = varargin{end};
+
−  
+
−  verout = feval(sprintf('%s.VEROUT', class_name));
+
−  sets   = feval(sprintf('%s.SETS', class_name));
+
−  
+
−  if  nargin == 1 || ...
+
−      (nargin == 2 && strcmp(varargin{1}, class_name)) || ...
+
−      (nargin == 3 && strcmp(varargin{1}, class_name) && isempty(varargin{2}))
+
−    
+
−    %%%%%%%%%% Get the minfo-object for the Constructor
+
−    %%% specwin.getInfo()
+
−    %%% specwin.getInfo('specwin')
+
−    %%% specwin.getInfo('specwin', '')
+
−    if ~isempty(sets)
+
−      pls(1:numel(sets)) = plist();
+
−      for kk = 1:numel(sets)
+
−        cmd = sprintf('%s.getDefaultPlist', class_name);
+
−        pls(kk) = feval(cmd, sets{kk});
+
−      end
+
−    else
+
−      pls = plist;
+
−    end
+
−    ii = minfo(class_name, class_name, 'ltpda', 'Constructor', verout, sets, pls);
+
−    ii.setModifier(false);
+
−    ii.setArgsmin(0);
+
−    ii.setArgsmax(-1);
+
−    ii.setOutmin(1);
+
−    ii.setOutmax(1);
+
−    
+
−  elseif nargin == 3 && (strcmp(varargin{1}, class_name))
+
−    
+
−    %%%%%%%%%% Get the minfo-object for the Constructor with a specified set
+
−    %%% specwin.getInfo('specwin', 'None')
+
−    %%% specwin.getInfo('specwin', 'set')
+
−    if strcmpi(varargin{2}, 'None')
+
−      sets = {};
+
−      pls  = [];
+
−    else
+
−      sets = cellstr(varargin{2});
+
−      cmd = sprintf('%s.getDefaultPlist', class_name);
+
−      pls  = feval(cmd, varargin{2});
+
−    end
+
−    
+
−    ii = minfo(class_name, class_name, 'ltpda', 'Constructor', verout, sets, pls);
+
−    ii.setModifier(false);
+
−  else
+
−    
+
−    %%%%%%%%%% Get the minfo-object for the class methods
+
−    %%% specwin.getInfo('char')
+
−    %%% specwin.getInfo('char', 'None')
+
−    if nargin == 2
+
−      sets = '';
+
−    elseif nargin == 3
+
−      sets = varargin{2};
+
−    end
+
−    
+
−    try
+
−      obj = eval([class_name '.initObjectWithSize(0,0)']);
+
−%       obj = feval(class_name);
+
−    catch
+
−      cls = utils.helper.ltpda_classes;
+
−      for jj=1:numel(cls)
+
−        cl = cls{jj};
+
−        meta = eval(['?', cl]);
+
−        
+
−        scls = getSuperClasses ({}, meta);
+
−        if any(strcmp(class_name, scls)) && ismethod(cl, varargin{1})
+
−          try
+
−            obj = feval(cl);
+
−            break
+
−          end
+
−        end
+
−      end
+
−      %       error('### From the abstract class [%s] it is only possible to get the minfo class from the constructor.', class_name);
+
−    end
+
−    ii = feval(varargin{1}, obj, 'INFO', sets);
+
−  end
+
−  
+
−  % check we got an minfo object
+
−  if ~isa(ii, 'minfo')
+
−    error('### An minfo object was not retrieved.');
+
−  end
+
−end
+
−
+
−function scls = getSuperClasses (scls, meta)
+
−  
+
−  if ~isempty(meta.SuperClasses)
+
−    
+
−    scl = [meta.SuperClasses{:}];
+
−    scls = [scls, {scl(:).Name}];
+
−    
+
−    for ii = 1:numel(meta.SuperClasses)
+
−      scls = getSuperClasses(scls, meta.SuperClasses{1});
+
−    end
+
−  end
+
−  
+
−end
+
−