#!/usr/bin/awk -f

BEGIN {
	print "strict digraph {"
}

$1 ~ /^[a-z]+[0-9]+$/ && $3 ~ /^[a-z]+[0-9]*:?$/ {
	parent_device = $3;
	sub(/:$/,"",parent_device);
	this_device = $1;
	edgelabel=""
	for (i=4; i<NF; i+=2) {
		word = $i;
		number = $(i+1);
		if (word ~ /^[a-z]+$/ && number ~ /^[0-9]+$/) {
			edgelabel = edgelabel substr(word,0,1) number
		}
	}
	if (edgelabel != "") {
		edgelabel = " [ label=\"" edgelabel "\" ]";
	}
	printf("\t%s -> %s%s\n", parent_device, this_device, edgelabel);
}

END {
	print "}"
}