f4facdd749e040543731a744276df31acb7e0731

Much, much more involved than in used to be. Also shows some functions
problably should be relocated.

Signed-off-by: Michel Pollet <buserror@gmail.com>

diff --git a/doc/simavr_callgraph.pdf b/doc/simavr_callgraph.pdf
index 50e10bda938f0a6e5094d5c5317e1a6a3337a0ba..1dd844b487e3b1a5715410db4da76ccfe0b49a2e 100644 (file)
Binary files a/doc/simavr_callgraph.pdf and b/doc/simavr_callgraph.pdf differ

diff --git a/doc/tags_to_dot.rb b/doc/tags_to_dot.rb
index 99ce137c4b3bdc8c4d7f9bdfcbf134b674e11f3a..7a46a96f911b7f654eabbd3086d3a4a0bc9d7dd3 100755 (executable)
--- a/doc/tags_to_dot.rb
+++ b/doc/tags_to_dot.rb
@@ -34,9 +34,9 @@ while !tags.eof?
        next if key[4] == 'm' or key[4] == 't'  or key[4] == 's'  or key[4] == 'e'  or key[4] == 'v';
        next if key[0].match(/[us]?int[0-9]+_t/);
        next if key[0] == "ROM_BASED";
-       
+
        key[1].gsub!(/.*\/|\.[ch]$/,"");
-       
+
        unless $files.key? key[1]
                $files[key[1]] = Hash.new
        end
@@ -56,11 +56,11 @@ links = Array.new;
 
        use = File.new(ARGV[i])
 #      puts "<<<<<<<<FILE " + ARGV[i]
-       
+
        fil = ARGV[i].gsub(/.*\/|\.[ch]$/,"");
 
        while !use.eof?
-                
+
                line = use.readline;
                next if line.match(/[ \t]*\/\//);
                line.gsub!(/[^a-zA-Z0-9_]/, " ");
@@ -72,7 +72,7 @@ links = Array.new;
                                unless $files[$syms[w]][w].key? fil
        #                               puts w + " is in " + $syms[w]
                                        $files[$syms[w]][w][fil] = 1
-                                       
+
                                        sym=w
                                        unless modules.key? fil
                                                modules[fil] = Array.new
@@ -87,7 +87,7 @@ links = Array.new;
 
 $files.keys.each { |fil|
 #      puts "File #{fil} ?"
-       $files[fil].keys.each { |sym| 
+       $files[fil].keys.each { |sym|
        #       puts "\tSym #{sym} : #{$files[fil][sym].length} ?"
                if $files[fil][sym].length > 0
                        unless modules.key? fil