steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.graphviz: use graphviz finder word.

db4
Doug Coleman 2015-06-24 19:25:16 -07:00
parent 09e4606791
commit fdcbe26cbc
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
extra/compiler/graphviz/graphviz.factor
View File

@ -1,12 +1,11 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors compiler.tree.builder compiler.cfg compiler.cfg.rpo USING: accessors arrays assocs combinators compiler.cfg
compiler.cfg.dominance compiler.cfg.dominance.private compiler.cfg.debugger compiler.cfg.dominance
compiler.cfg.predecessors compiler.cfg.debugger compiler.cfg.optimizer compiler.cfg.dominance.private compiler.cfg.rpo
compiler.cfg.utilities compiler.tree.recursive images.viewer compiler.tree.builder compiler.tree.recursive graphviz.render io
images.png io io.encodings.ascii io.files io.files.unique io.launcher io.encodings.ascii io.files io.files.unique io.launcher kernel
kernel math.parser sequences assocs arrays make math namespaces make math math.parser namespaces quotations sequences words ;
quotations combinators locals words ;
FROM: assocs => change-at ; FROM: assocs => change-at ;
IN: compiler.graphviz IN: compiler.graphviz
@ -24,7 +23,7 @@ IN: compiler.graphviz
"cfg" ".dot" make-unique-file "cfg" ".dot" make-unique-file
dup "Wrote " prepend print dup "Wrote " prepend print
[ [ concat ] dip ascii set-file-lines ] [ [ concat ] dip ascii set-file-lines ]
[ { "dot" "-Tpng" "-O" } swap suffix try-process ] [ [ ?default-graphviz-program "-Tpng" "-O" ] dip 4array try-process ]
[ ".png" append ] [ ".png" append ]
tri ; inline tri ; inline