graphviz: fix load errors
parent
ba416afd61
commit
5a38ddc31c
|
@ -6,6 +6,7 @@ fry io kernel literals math prettyprint sequences splitting
|
|||
system memoize graphviz ;
|
||||
IN: graphviz.ffi
|
||||
|
||||
<<
|
||||
"libgraph" {
|
||||
{ [ os macosx? ] [ "libgraph.dylib" ] }
|
||||
{ [ os unix? ] [ "libgraph.so" ] }
|
||||
|
@ -18,6 +19,7 @@ IN: graphviz.ffi
|
|||
{ [ os unix? ] [ "libgvc.so" ] }
|
||||
{ [ os winnt? ] [ "gvc.dll" ] }
|
||||
} cond cdecl add-library
|
||||
>>
|
||||
|
||||
LIBRARY: libgraph
|
||||
|
||||
|
|
|
@ -110,7 +110,7 @@ PRIVATE>
|
|||
<PRIVATE
|
||||
|
||||
: define-graphviz-by-engine ( -K -- )
|
||||
[ create-in dup make-inline ]
|
||||
[ "graphviz.render" create dup make-inline ]
|
||||
[ [ graphviz ] curry ] bi
|
||||
(( graph -O -T -- ))
|
||||
define-declared ;
|
||||
|
@ -118,7 +118,7 @@ PRIVATE>
|
|||
: define-graphviz-by-format ( -T -- )
|
||||
[
|
||||
dup supported-engines member? [ "-file" append ] when
|
||||
create-in dup make-inline
|
||||
"graphviz.render" create dup make-inline
|
||||
]
|
||||
[ [ graphviz* ] curry ] bi
|
||||
(( graph -O -- ))
|
||||
|
|
Loading…
Reference in New Issue