diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Makefile | 4 | ||||
-rw-r--r-- | src/tools/Makefile | 5 | ||||
-rw-r--r-- | src/tools/deptree2dot | 44 |
3 files changed, 0 insertions, 53 deletions
diff --git a/src/Makefile b/src/Makefile index ffbf8d6e..e3750347 100644 --- a/src/Makefile +++ b/src/Makefile @@ -3,9 +3,5 @@ SUBDIR= test libeinfo librc rc -ifeq (${MKTOOLS},yes) -SUBDIR+= tools -endif - MK= ../mk include ${MK}/subdir.mk diff --git a/src/tools/Makefile b/src/tools/Makefile deleted file mode 100644 index 92ff5063..00000000 --- a/src/tools/Makefile +++ /dev/null @@ -1,5 +0,0 @@ -DIR= ${UPREFIX}/bin -BIN= deptree2dot - -MK= ../../mk -include ${MK}/scripts.mk diff --git a/src/tools/deptree2dot b/src/tools/deptree2dot deleted file mode 100644 index 07ba17af..00000000 --- a/src/tools/deptree2dot +++ /dev/null @@ -1,44 +0,0 @@ -#!/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"; |