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