From a29a58b46ef30b9d7088ee7b26bb5b98e534fef5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89rico=20Rolim?= <erico.erc@gmail.com>
Date: Wed, 24 Jun 2020 03:43:47 -0300
Subject: [PATCH] Add depgraph command.

Visualize program dependencies with PNGs generated by dot.
---
 utils/.local/bin/depgraph | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 utils/.local/bin/depgraph

diff --git a/utils/.local/bin/depgraph b/utils/.local/bin/depgraph
new file mode 100755
index 0000000..3b00fe9
--- /dev/null
+++ b/utils/.local/bin/depgraph
@@ -0,0 +1,39 @@
+#!/bin/sh
+
+set -eu
+
+args=
+package=
+open_after=
+
+print_help() {
+	cat << EOF
+Usage: $0 [flags] package
+Flags:
+	-o: open result in imv
+	-f, -g, -m: flags passed to xbps-dgraph
+EOF
+
+	exit 1
+}
+
+while [ $# -gt 0 ]; do
+	case $1 in
+		-g|-f|-m) args="$args $1";;
+		-o) open_after=1;;
+		*) package="$1";;
+	esac
+	shift
+done
+
+if [ -z "$package" ]; then
+	print_help
+fi
+
+echo "Generating graph for $package"
+
+if [ "$open_after" ]; then
+	xbps-dgraph $args $package | dot -Tpng | imv -
+else
+	xbps-dgraph $args $package | dot -Tpng -o "${package}.png"
+fi