/usr/share/doc/graphviz/examples/demo/modgraph.lua is in graphviz-doc 2.26.3-10ubuntu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | #!/usr/bin/lua
-- display the kernel module dependencies
-- author: John Ellson <ellson@research.att.com>
require('gv')
modules = io.lines('/proc/modules')
G = gv.digraph("G")
N = gv.protonode(G)
E = gv.protoedge(G)
gv.setv(G, 'rankdir', 'LR')
gv.setv(G, 'nodesep', '0.05')
gv.setv(N, 'shape', 'box')
gv.setv(N, 'width', '0')
gv.setv(N, 'height', '0')
gv.setv(N, 'margin', '.03')
gv.setv(N, 'fontsize', '8')
gv.setv(N, 'fontname', 'helvetica')
gv.setv(E, 'arrowsize', '.4')
for rec in modules do
for mod, usedbylist in string.gfind(rec, "([_%w]+) %w+ %w+ ([-,_%w]+)") do
n = gv.node(G, mod)
for usedby in string.gfind(usedbylist, "([-_%w]+)") do
if (usedby ~= '-') and (usedby ~= '') then
gv.edge(n, gv.node(G, usedby))
end
end
end
end
gv.layout(G, 'dot')
gv.render(G, 'gtk')
|