From e462a7b2f6e3ec7672841584ccbcd34c10456db1 Mon Sep 17 00:00:00 2001
From: milisbir <milisarge@gmail.com>
Date: Tue, 23 Jan 2018 07:23:43 +0200
Subject: [PATCH] paket-grafik

---
 bin/paket_grafik.sh | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 bin/paket_grafik.sh

diff --git a/bin/paket_grafik.sh b/bin/paket_grafik.sh
new file mode 100755
index 000000000..5d49ecac6
--- /dev/null
+++ b/bin/paket_grafik.sh
@@ -0,0 +1,12 @@
+#!/bin/sh
+[ "`which dot`" = "" ] && exit 1
+[ $1 ] && paket=$1 || exit 1
+[ -f $paket.grafik ] && rm $paket.grafik
+[ -f $paket.png ] && rm $paket.png
+echo "digraph {" > $paket.grafik
+mps -dly $paket
+for gerek in `cat tumgerekler.liste`;do
+	echo "<${gerek}> -> <${paket}>;" >> $paket.grafik
+done
+echo "}" >> $paket.grafik
+cat $paket.grafik | dot -T png > $paket.png