% HIST2DOT converts a history object to a 'DOT' file suitable for processing with graphviz
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: HIST2DOT converts a history object to a 'DOT' file suitable for
%              processing with graphviz (www.graphviz.org).
%
% CALL:        hist2dot(h, 'foo.dot');
%
% INPUT:       h       - history object
%              foo.dot - file name to view the graphic with the programm
%                        graphviz
%
% VERSION:     $Id: hist2dot.m,v 1.16 2011/02/18 16:48:52 ingo Exp $
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function varargout = hist2dot(varargin)
  
  %%% Set inputs
  h        = varargin{1};
  filename = varargin{2};
  pl = [];
  if nargin > 2
    if isa(varargin{3}, 'plist')
      pl = varargin{3};
    end
  end
  pl = combine(pl, getDefaultPlist);
  stop_option = find(pl, 'stop_option');
  
  %%% Write .dot file
  
  fd = fopen(filename, 'w+');
  
  %%% write header
  fprintf(fd, 'digraph G \n{\n');
  
  old = 0;
  
  if old
    
    [n,a, nodes] = getNodes(h, stop_option);
    nodesWritten = {};
    %%% Write block set
    fprintf(fd, 'end [label="END"];\n');
    for j=1:length(nodes)
      node = nodes(j);
      
      %     tag =
      
      if ~containsNodeArray(nodesWritten, node)
        
        % wrap label
        % Do some command substitution
        fcn = node.names;
        shape = 'rectangle';
        fsize  = 12;
        extras  = '';
        
        wstr = utils.prog.wrapstring([fcn char(node.params)], 25);
        ss = '';
        for s=wstr
          ss = [ss '\n' char(s)];
        end
        ss = ss(3:end);
        fprintf(fd, '%s [%s fontsize=%d shape=%s label="%s"];\n', nodeName(node), extras, fsize, shape, ss);
        nodesWritten = [nodesWritten {node.h.UUID}];
      end
    end
    
    %%% Write node list
    fprintf(fd, '\n');
    fprintf(fd, '\n');
    
    nodesConnected = [];
    for j=length(nodes):-1:1
      %   disp('----------------')
      node = nodes(j);
      %     node.h
      %     if ~arrayContainsElement(nodesConnected, node.pn)
      if node.pn > 0
        dst  = nodes(node.pn);
        fprintf(fd, '%s -> %s; # %d\n', nodeName(node), nodeName(dst), dst.pn);
        %       nodesConnected = [nodesConnected {node.h.UUID}];
      else
        fprintf(fd, '%s -> end;\n', nodeName(node));
      end
      nodesConnected = [nodesConnected node.pn];
      %     end
      %   disp('----------------')
    end
  else
    
    % Get unique history nodes
    [hists, links] = getHists(h, [], []);
    
    % Now write history blocks
    fprintf(fd, 'end [label="END"];\n');
    for ll=1:numel(hists)
      hist = hists(ll);
      
      % wrap label
      % Do some command substitution
      fcn = hist.methodInfo.mname;
      shape = 'rectangle';
      fsize  = 12;
      extras  = '';
      
      wstr = utils.prog.wrapstring([fcn char(hist.plistUsed)], 25);
      ss = '';
      for s=wstr
        ss = [ss '\n' char(s)];
      end
      ss = ss(3:end);
      fprintf(fd, '%s [%s fontsize=%d shape=%s label="%s"];\n', ...
        nodeName(hist), ...
        extras, fsize, shape, ss);
      
    end
    
    fprintf(fd, '\n');
    fprintf(fd, '\n');
    
    % Now write links
    for kk=1:numel(links)
      fprintf(fd, '%s', links{kk});
    end
    
    fprintf(fd, '%s -> end;\n', nodeName(h));
  end
  
  %%% close
  fprintf(fd, '}\n');
  
  %%% Close
  fclose(fd);
  
end


function [hists, links] = getHists(obj, links, hists)
  
  if isa(obj, 'history') && ~arrayContainsObjects(hists, obj)
    pl = obj.plistUsed;
    
    for kk=1:pl.nparams
      
      val = pl.params(kk).getVal();
      if isa(val, 'history')
        
        for jj=1:numel(val)
          if ~arrayContainsObjects(hists, val(jj))
            [hists, links] = getHists(val(jj), links, hists);
          end
          
          % write link
          l = sprintf('%s -> %s;\n', nodeName(val(jj)), nodeName(obj));
          links = [links {l}];
        end
        
        
        
      end
      
    end
    
    hists = [hists obj];
  end
  
  
  if isprop(obj, 'hist')
    if ~arrayContainsObjects(hists, obj.hist)
      [hists, links] = getHists(obj.hist, links, hists);
    end
  end
  
  if isprop(obj, 'inhists')
    for kk=1:numel(obj.inhists)
      if ~arrayContainsObjects(hists, obj.inhists(kk))
        [hists, links] = getHists(obj.inhists(kk), links, hists);
      end
      
      % write link
      l = sprintf('%s -> %s;\n', nodeName(obj.inhists(kk)), nodeName(obj));
      links = [links {l}];
    end
  end
  
  
end

function res = arrayContainsObjects(array, obj)
  res = false;
  for kk=1:numel(array)
    if strcmp(array(kk).UUID, obj.UUID)
      res = true;
      break;
    end
  end
end

function nn = nodeName(node)
  
  nn = ['node_' strrep(node.UUID, '-', '_')];
  
  
  
end

function res = arrayContainsElement(array, element)
  
  res = any(array == element);
  
%   res = false;
%   for kk=1:numel(array)
%     if strcmp(array(kk).UUID, element.UUID)
%       res = true;
%       break;
%     end
%   end
  
end

function res = containsNodeArray(nodes, node)
  
  x = @(c)(strcmp(c, node.h.UUID));
  res = any(cellfun(x, nodes));
  
%   res = cellfun('strcmp', nodes, node);
  
%   res = false;
%   for kk=1:numel(nodes)
%     if strcmp(nodes{kk}, node.h.UUID)
%       res = true;
%       break;
%     end
%   end
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                               Local Functions                               %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% FUNCTION:    getDefaultPlist
%
% DESCRIPTION: Get Default Plist
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function plo = getDefaultPlist()
  plo = plist('stop_option', 'full');
end