draw-cfg ( cfg pass pass# -- cfg )


Vocabulary
compiler.cfg.graphviz

Inputs
cfgan object
passan object
pass#an object


Outputs
cfgan object


Definition
USING: accessors graphviz.render kernel math.parser sequences ;

IN: compiler.cfg.graphviz

: draw-cfg ( cfg pass pass# -- cfg )
[ dup cfgviz ] [ name>> "-" prepend ]
[ number>string prepend svg ] tri* ;