From a9db5086167e909fb8411789c3bce0684c99fa49 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Tue, 6 May 2025 16:01:32 +0300
Subject: [PATCH] dot
---
zk | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/zk b/zk
index 5f1fe40..8b2a8d7 100755
--- a/zk
+++ b/zk
@@ -97,7 +97,9 @@ sub usage {
print STDERR "Usage:
\t$0 links PAGE
\t$0 backs PAGE
-\t$0 htmls DIR\n";
+\t$0 htmls DIR
+\t$0 dot | dot -Tpng >png
+";
exit 1;
}
@@ -302,6 +304,14 @@ if ($ARGV[0] eq "dump") {
@s = stat($pth) or die "$!";
utime $s[9], $s[9], "$ARGV[1]/$pth.html";
}
+} elsif ($ARGV[0] eq "dot") {
+ print "digraph d {\n";
+ while (my ($from, $v) = each %links) {
+ foreach (@{$v}) {
+ print "\t\"$from\" -> \"$_\"\n";
+ }
+ }
+ print "}\n";
} else {
usage;
}
--
2.51.0