Skip to content

Instantly share code, notes, and snippets.

@dgolden1
Created July 8, 2014 22:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dgolden1/49bb6eade8540aecf7d9 to your computer and use it in GitHub Desktop.
Save dgolden1/49bb6eade8540aecf7d9 to your computer and use it in GitHub Desktop.
Update of FEX function View Class Inheritance Hierarchy (http://www.mathworks.com/matlabcentral/fileexchange/21206-view-class-inheritance-hierarchy)
function viewClassTree(directory)
% View a class inheritence hierarchy. All classes residing in the directory
% or any subdirectory are discovered. Parents of these classes are also
% discovered as long as they are in the matlab search path.
% There are a few restrictions:
% (1) classes must be written using the new 2008a classdef syntax
% (2) classes must reside in their own @ directories.
% (3) requires the bioinformatics biograph class to display the tree.
% (4) works only on systems that support 'dir', i.e. windows.
%
% directory is an optional parameter specifying the directory one level
% above all of the @ class directories. The current working
% directory is used if this is not specified.
%Written by Matthew Dunham
% Updated to work with Matlab 2014b, ignoring parent classes that start with "matlab."
% such as:
%
% 'matlab.mixin.Copyable'
% 'matlab.unittest.TestCase'
% 'matlab.unittest.internal.RunnableTestContent'
% 'matlab.unittest.internal.Teardownable'
% 'matlab.unittest.internal.TestContent'
%
% By Daniel Golden (dgolden1 at gmail) July 2014
if nargin == 0
directory = '.';
end
info = dirinfo(directory);
baseClasses = vertcat(info.classes);
if(isempty(baseClasses))
fprintf('\nNo classes found in this directory.\n');
return;
end
allClasses = baseClasses;
for c=1:numel(baseClasses)
allClasses = union(allClasses,ancestors(baseClasses{c}));
end
allClasses = remove_matlab_builtin_classes(allClasses);
matrix = zeros(numel(allClasses));
map = struct;
for i=1:numel(allClasses)
map.(allClasses{i}) = i;
end
for i=1:numel(allClasses)
try
meta = eval(['?',allClasses{i}]);
parents = remove_matlab_builtin_classes(meta.SuperClasses);
catch ME
warning('CLASSTREE:discoveryWarning',['Could not discover information about class ',allClasses{i}]);
continue;
end
for j=1:numel(parents)
matrix(map.(allClasses{i}),map.(parents{j}.Name)) = 1;
end
end
for i=1:numel(allClasses)
allClasses{i} = ['@',allClasses{i}];
end
view(biograph(matrix,allClasses));
function info = dirinfo(directory)
%Recursively generate an array of structures holding information about each
%directory/subdirectory beginning, (and including) the initially specified
%parent directory.
info = what(directory);
flist = dir(directory);
dlist = {flist([flist.isdir]).name};
for i=1:numel(dlist)
dirname = dlist{i};
if(~strcmp(dirname,'.') && ~strcmp(dirname,'..'))
info = [info, dirinfo([directory,'\',dirname])];
end
end
end
function list = ancestors(class)
%Recursively generate a list of all of the superclasses, (and superclasses
%of superclasses, etc) of the specified class.
list = {};
try
meta = eval(['?',class]);
parents = meta.SuperClasses;
catch
return;
end
for p=1:numel(parents)
if(p > numel(parents)),continue,end %bug fix for version 7.5.0 (2007b)
list = [parents{p}.Name,ancestors(parents{p}.Name)];
end
end
function list = remove_matlab_builtin_classes(list)
if iscellstr(list)
class_names = list;
else
class_names = cellfun(@(x) x.Name, list, 'UniformOutput', false);
end
idx_to_remove = ~cellfun(@isempty, regexp(class_names, 'matlab\.', 'once'));
list(idx_to_remove) = [];
end
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment