Lag graf av CG-dep-analyse

Frå https://gist.github.com/unhammer/f793d118e11dbc629a55d4e85d198a3d

@unhammer

devtools/cg2dot.awk

@@ -0,0 +1,38 @@
+#!/usr/bin/awk -f
+
+# From: https://gist.github.com/unhammer/f793d118e11dbc629a55d4e85d198a3d
+# Usage:
+# awk -f cg2dot.awk < cg-output.txt > tree.dot && dot -Tpng tree.dot -o tree.png
+
+BEGIN {
+ FS="^\"<|>\""
+ print "digraph ParseTree {"
+ print "\tnode [shape=plaintext];"
+ print "\tedge [fontname=Helvetica, fontsize=10];"
+ print ""
+}
+
+
+/^"/{
+ wf = $2
+ gsub(/[<>]/, "_", wf) # "escape" html
+ s=s" "wf
+}
+
+/^\t/ {
+ dep=$0; sub(/.* #/, "", dep); sub(/ .*/, "", dep)
+ id=dep; sub(/->.*/, "", id)
+ parent=dep; sub(/.*->/, "", parent)
+ flabel=$0; sub(/.* @/, "", flabel); sub(/ .*/, "", flabel)
+ mainpos=$0; sub(/.*" +/, "", mainpos); sub(/ .*/, "", mainpos)
+ lemma=$0; sub(/^\t+"/, "", lemma); sub(/".*/, "", lemma)
+ # print $0, "\n", dep, id, parent, flabel, mainpos
+ gsub(/[<>]/, "_", flabel)
+ printf "\t\"%d\" [label=<<i>%s</i><br/><font color=\"#665544\" point-size=\"10\">%s</font><br/><font color=\"#337733\" point-size=\"10\">%s</font>>]\n", id, wf, lemma, mainpos
+ printf "\t\"%d\" -> \"%d\" [label=<<font color=\"#443399\">%s</font>>]\n", id, parent, flabel
+}
+
+END {
+ printf "\t{ rank = sink; \n\t\tLegend [shape=none, margin=0, label=<<font point-size=\"12\">%s</font>>];\n\t}\n", s
+ print "\n}"
+}