Oneliner to create clojure class inheritance |
||
| whoCreated: chouser | whenCreated: 2008-03-13 10:02:46 | mimetype: text/plain |
| download paste more | ||
(echo "digraph{"; perl -ne 'if( /public.* class (\w+) (.*)/) { foreach my $sub ( split( /\W+/, $2 ) ) { print $1, " -> ", $sub, ";\n" unless $sub eq "extends" || $sub eq "implements" } }' *.java; echo "}") | dot -Tpng > tmp.png