FindInstance.m

Go to the documentation of this file.

/* (Autoinserted by mtoc++)
 * This source code has been filtered by the mtoc++ executable,
 * which generates code that can be processed by the doxygen documentation tool.
 *
 * On the other hand, it can neither be interpreted by MATLAB, nor can it be compiled with a C++ compiler.
 * Except for the comments, the function bodies of your M-file functions are untouched.
 * Consequently, the FILTER_SOURCE_FILES doxygen switch (default in our Doxyfile.template) will produce
 * attached source files that are highly readable by humans.
 *
 * Additionally, links in the doxygen generated documentation to the source code of functions and class members refer to
 * the correct locations in the source code browser.
 * However, the line numbers most likely do not correspond to the line numbers in the original MATLAB source files.
 */

function [PrintTablet , cellmatches , parents , celllocations ] = FindInstance(handle obj,char type,varargin) {


    if ~isa(obj, " handle ") && ~isstruct(obj) 
        error(" The argument must either be a handle class or a struct. ");
    end

    matches = [];
    visited = [];
    parents = [];
    locations = [];
    t = PrintTable(" Instances of '%s' in %s (%s) ",...
        type,inputname(1),class(obj));
    t.HasHeader= true;
    t.addRow(" Location "," Class "," ID "," Parent ",varargin[:]);

    warning(" off "," MATLAB:structOnObject ");
    findinst_recur(obj, inputname(1), true);
    warning(" on "," MATLAB:structOnObject ");

    function findinst_recur(obj, lvl, checkloop)
        if checkloop && any(cellfun(@(o)isequal(o,obj),visited))
            return;
        end

        if numel(obj) > 1
            if iscell(obj)
                for l = 1:length(obj)
                    findinst_recur(obj[l], sprintf(" %s{%d} ",lvl,l), false);
                end
            else
                for l = 1:length(obj)
                    findinst_recur(obj(l), sprintf(" %s(%d) ",lvl,l), false);
                end
            end
        else
            if isa(obj," handle ")
                try
                   os = struct(obj);
                catch ME
/*                      t.addRow(lvl,class(obj),'error',class(obj),{});
 *                     return; */
                end
            elseif isstruct(obj)
                os = obj;
            end
            fn = fieldnames(os);
            for idx = 1:length(fn)
                if ~isempty(os.(fn[idx]))
                    prop = os.(fn[idx]);
                    thislvl = [lvl " . " fn[idx]];
                    if isa(prop,type)
                        matches[end+1] = prop;/* #ok */

                        parents[end+1] = obj;/* #ok */

                        locations[end+1] = thislvl;/* #ok */

                        st = " none ";
                        if any(cellfun(@(o)isequal(o," ID "),fieldnames(prop)))
                            st = prop.ID;
                        end
                        props = cell(1,length(varargin));
                        for k = 1:length(varargin)
                            if isprop(prop,varargin[k]) || isfield(prop,varargin[k])
                                props[k] = prop.(varargin[k]);
                            else
                                props[k] = " doesn "" t exist ";
                            end
                        end
                        t.addRow(thislvl,class(prop),st,class(obj),props[:]);
                    end    
                    if isa(prop, " handle ") || isstruct(prop)
                        visited[end+1] = obj;/* #ok */

                        findinst_recur(prop, thislvl, true);
                    end
                end
            end
        end
    end


end
}