40 lines
758 B
Awk
40 lines
758 B
Awk
|
BEGIN {
|
||
|
|
print "digraph {"
|
||
|
|
}
|
||
|
|
|
||
|
|
function t(s) {
|
||
|
|
if (s ~ /^[[:digit:]]+$/) {
|
||
|
|
print "S" NR, "[shape=doublecircle,label=\"" s "\"];"
|
||
|
|
return "S" NR
|
||
|
|
} else {
|
||
|
|
return s
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
NF == 3 { # register or int
|
||
|
|
print t($1), "->", $3
|
||
|
|
}
|
||
|
|
|
||
|
|
NF == 4 { # unary op
|
||
|
|
print "O" NR, "[shape=box,label=\"" $1 "\"];"
|
||
|
|
print t($2), "->", "O" NR ";"
|
||
|
|
print "O" NR, "->", $4 ";"
|
||
|
|
}
|
||
|
|
|
||
|
|
NF == 5 && substr($2,2) == "SHIFT" { # binary op (R/L)SHIFT
|
||
|
|
print "O" NR, "[shape=box,label=\"" $2 " " $3 "\"]"
|
||
|
|
print t($1), "->", "O" NR ";"
|
||
|
|
print "O" NR, "->", $5 ";"
|
||
|
|
next
|
||
|
|
}
|
||
|
|
|
||
|
|
NF == 5 { # binary op, AND or OR
|
||
|
|
print "O" NR, "[shape=box,label=\"" $2 "\"]"
|
||
|
|
print t($1), "->", "O" NR ";"
|
||
|
|
print t($3), "->", "O" NR ";"
|
||
|
|
print "O" NR, "->", $5 ";"
|
||
|
|
}
|
||
|
|
|
||
|
|
END {
|
||
|
|
print "}"
|
||
|
|
}
|