6f614cd3f3
Since deptree2dot and the perl requirement are completely optional, we can move this tool to the support folder. This gives the user the option of using it if they have perl installed, and means we do not have an optional runtime dependency on perl. Documentation for this tool has also been added to the support folder. X-Gentoo-Bug: 600742 X-Gentoo-Bug-URL: https://bugs.gentoo.org/show_bug.cgi?id=600742
45 lines
1.2 KiB
Perl
45 lines
1.2 KiB
Perl
#!/usr/bin/perl -w
|
|
# -*- cperl -*-
|
|
# Copyright © 2012 Diego Elio Pettenò <flameeyes@flameeyes.eu>
|
|
# Released under the 2-clause BSD license.
|
|
#
|
|
#Example usage:
|
|
#deptree2dot > deptree.dot
|
|
#deptree2dot | dot -Tpng -o deptree.png
|
|
|
|
my $deptree = defined($ARGV[0]) ? $ARGV[0] : "/run/openrc/deptree";
|
|
|
|
open DEPTREE, $deptree or exit 1;
|
|
|
|
print "digraph deptree {\n";
|
|
|
|
my @deptree;
|
|
|
|
while(my $line = readline(DEPTREE)) {
|
|
$line =~ /^depinfo_([0-9]+)_([a-z]+)(?:_[0-9]+)?='(.*)'\n$/;
|
|
my $index = $1;
|
|
my $prop = $2;
|
|
my $value = $3; $value =~ s/[-\.:~]/_/g;
|
|
|
|
if ( $prop eq "service" ) {
|
|
$deptree[$index] = $value;
|
|
printf "%s [shape=box];\n", $value;
|
|
} else {
|
|
my $service = $deptree[$index];
|
|
|
|
if ( $prop eq "ineed" ) {
|
|
printf "%s -> %s;\n", $service, $value;
|
|
} elsif ( $prop eq "iuse" ) {
|
|
printf "%s -> %s [color=blue];\n", $service, $value;
|
|
} elsif ( $prop eq "ibefore" ) {
|
|
printf "%s -> %s [style=dotted];\n", $service, $value;
|
|
} elsif ( $prop eq "iafter" ) {
|
|
printf "%s -> %s [style=dotted color=purple];\n", $value, $service;
|
|
} elsif ( $prop eq "iprovide" ) {
|
|
printf "%s -> %s [color=red];\n", $value, $service;
|
|
}
|
|
}
|
|
}
|
|
|
|
print "}\n";
|