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

graphviz: fix load errors

db4
sheeple 2011-08-27 18:34:44 -06:00
parent ba416afd61
commit 5a38ddc31c
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/graphviz/ffi/ffi.factor
View File

@ -6,6 +6,7 @@ fry io kernel literals math prettyprint sequences splitting
system memoize graphviz ; system memoize graphviz ;
IN: graphviz.ffi IN: graphviz.ffi
<<
"libgraph" { "libgraph" {
{ [ os macosx? ] [ "libgraph.dylib" ] } { [ os macosx? ] [ "libgraph.dylib" ] }
{ [ os unix? ] [ "libgraph.so" ] } { [ os unix? ] [ "libgraph.so" ] }
@ -18,6 +19,7 @@ IN: graphviz.ffi
{ [ os unix? ] [ "libgvc.so" ] } { [ os unix? ] [ "libgvc.so" ] }
{ [ os winnt? ] [ "gvc.dll" ] } { [ os winnt? ] [ "gvc.dll" ] }
} cond cdecl add-library } cond cdecl add-library
>>
LIBRARY: libgraph LIBRARY: libgraph

4
extra/graphviz/render/render.factor
View File

@ -110,7 +110,7 @@ PRIVATE>
<PRIVATE <PRIVATE
: define-graphviz-by-engine ( -K -- ) : define-graphviz-by-engine ( -K -- )
[ create-in dup make-inline ] [ "graphviz.render" create dup make-inline ]
[ [ graphviz ] curry ] bi [ [ graphviz ] curry ] bi
(( graph -O -T -- )) (( graph -O -T -- ))
define-declared ; define-declared ;
@ -118,7 +118,7 @@ PRIVATE>
: define-graphviz-by-format ( -T -- ) : define-graphviz-by-format ( -T -- )
[ [
dup supported-engines member? [ "-file" append ] when dup supported-engines member? [ "-file" append ] when
create-in dup make-inline "graphviz.render" create dup make-inline
] ]
[ [ graphviz* ] curry ] bi [ [ graphviz* ] curry ] bi
(( graph -O -- )) (( graph -O -- ))