% A script to plot nicely the class structure of the LTPDA Toolbox, 
% showing all the dependencies
% Setting the flag 'show_methods' to true or false, it is possible to 
% display also the public methods of the user classes
% 
% M Hewitson 08/04/2011
%
% VERSION:    $Id: make_class_diagram.m,v 1.1 2011/07/05 06:51:37 mauro Exp $

% display methods or not
show_methods = false;

% get global variables
prefs = getappdata(0, 'LTPDApreferences');
DOT    = char(prefs.getExternalPrefs.getDotBinaryPath);
FEXT   = char(prefs.getExternalPrefs.getDotOutputFormat);

classes = utils.helper.ltpda_classes;

out = sprintf('digraph G \n');
out = [out sprintf('{\n')];
out = [out sprintf('rankdir = BT\n')];

out = [out sprintf('handle [fontsize=8 label="handle" shape="ellipse" ];\n')];

% first class nodes
for kk = 1:numel(classes)
  class = classes{kk};
  m = eval(['?' class]);
  
  if ~isempty(m)
    if show_methods
      label = sprintf('<<table border="1" cellborder="1" cellpadding="3" cellspacing="0" bgcolor="white"><tr><td bgcolor="black" align="center"><font color="white">%s</font></td></tr>\n', m.Name);
      
      mthds = m.Methods;
      for jj = 1:numel(mthds)
        mthd = mthds{jj};
        if strcmp(mthd.DefiningClass.Name, m.Name) && strcmp(mthd.Access, 'public')
          label = [label sprintf('<tr><td align="left" port="r%d">%s</td></tr>\n', jj, mthd.Name)];
        end
      end
      label = [label sprintf('</table>>')];
      out = [out sprintf('%s [  shape = "plaintext" fontsize=12 label=%s ];\n', m.Name, label)];
    else
      out = [out sprintf('%s [fontsize=12 shape=rectangle label="%s"];\n', m.Name, m.Name)];
    end
  end
  
end

% now links
for kk = 1:numel(classes)
  class = classes{kk};
  m = eval(['?' class]);
  % parents
  parents = m.SuperClasses;
  
  % m -> parent
  for jj = 1:numel(parents)
    p = parents{jj};
    
    out = [out sprintf('%s -> %s\n', m.Name, p.Name)];
    
  end
  
end

out = [out sprintf('}\n')];

dotfile = 'ltpda_classdiagram.dot';
fd = fopen(dotfile, 'w+');
fprintf(fd, out);
fclose(fd);

[path, name, ext] = fileparts(dotfile);
outfile = fullfile(path, [name '.' FEXT]);

% Write to graphics file
cmd = sprintf('%s -T%s -o %s %s', DOT, FEXT, outfile, dotfile);
system(cmd);

% View graphics file
if any(strcmpi(FEXT, {'gif', 'ico', 'jpg', 'jpeg', 'jpe', 'png', 'tiff'}))
  image(imread(outfile));
else
  open(outfile);
end