sbin/rcorder/rcorder-visualize.sh

   1 #!/bin/sh
   2 # $NetBSD: rcorder-visualize.sh,v 1.5 2009/08/09 17:08:53 apb Exp $
   3 #
   4 # Copyright (c) 2009 by Joerg Sonnenberger
   5 # All rights reserved.
   6 #
   7 # Redistribution and use in source and binary forms, with or without
   8 # modification, are permitted provided that the following conditions
   9 # are met:
  10 # 1. Redistributions of source code must retain the above copyright
  11 #    notice, this list of conditions and the following disclaimer.
  12 # 2. Redistributions in binary form must reproduce the above copyright
  13 #    notice, this list of conditions and the following disclaimer in the
  14 #    documentation and/or other materials provided with the distribution.
  15 #
  16 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  17 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  18 # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  19 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  20 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  21 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  22 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  23 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  24 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  25 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  26 #
  27 # $FreeBSD$
  28 #
  29 # Simple script to show the dependency graph for rc scripts.
  30 # Output is in the dot(1) language and can be rendered using
  31 #       sh rcorder-visualize | dot -T svg -o rcorder.svg
  32 # dot(1) can be found in graphics/graphviz in pkgsrc.
  33
  34 rc_files=${*:-/etc/rc.d/*}
  35
  36 {
  37 echo ' digraph {'
  38 for f in $rc_files; do
  39 < $f awk '
  40 /# PROVIDE: /   { provide = $3 }
  41 /# REQUIRE: /   { for (i = 3; i <= NF; i++) requires[$i] = $i }
  42 /# BEFORE: /    { for (i = 3; i <= NF; i++) befores[$i] = $i }
  43
  44 END {
  45         print "    \"" provide "\";"
  46         for (x in requires) print "    \"" provide "\"->\"" x "\";"
  47         for (x in befores) print "    \"" x "\"->\"" provide "\";"
  48 }
  49 '
  50 done
  51 echo '}'
  52 }