% 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