Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-10 00:23:32 +02:00
Code Issues Releases Wiki Activity

src/graph.pl can generate hyperlinks for nodes in .svg images

Browse Source
This commit is contained in:
Paul Licameli
2020-05-21 15:38:55 -04:00
parent 8a88881e43
commit bf8387327e
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
scripts/graph.pl
View File

@@ -1,6 +1,7 @@
#!/usr/bin/perl
use strict 'vars';
use File::Spec;
my $traceLevel = 3;
@@ -10,9 +11,13 @@ my $clustering = 0;
# whether to prune redundant arcs implied in transitive closure
my $pruning = 1;
# whether to insert hyperlinks
my $links = 1;
# Step 1: collect short names and paths to .cpp files
# We assume that final path components uniquely identify the files!
my $dir = "../src";
my %names; # string to string
foreach my $file (`find $dir -name '*.cpp'`) {
my $short = $file;
@@ -22,6 +27,10 @@ foreach my $file (`find $dir -name '*.cpp'`) {
$names{$shorter} = $short;
}
#my $linkroot = "https://github.com/audacity/audacity/tree/master/src";
my $linkroot = "file://" . File::Spec->rel2abs( $dir );
print STDERR "Found ", scalar( keys %names ), " .cpp file(s)\n" if $traceLevel >= 1;
# Step 2: collect inclusions in each .cpp/.h pair, and folder information,
@@ -312,6 +321,7 @@ sub subgraph{
my $label = SCCLabel( $scc );
print " \"${id}\" [label=\"$label\"";
# insert other node attributes here as key=value pairs,
print " URL=\"${linkroot}${foldername}/${id}.cpp\"" if $links;
# separated by spaces
print"]\n";
}
@@ -347,5 +357,5 @@ print "}\n";
# Step 5: generate image
print STDERR "Generating image...\n" if $traceLevel >= 1;
my $verbosity = ($traceLevel >= 2) ? "-v" : "";
`dot $verbosity -O -Tgif $fname`;
`dot $verbosity -O -Tsvg $fname`;
print STDERR "done\n" if $traceLevel >= 1;