-
Notifications
You must be signed in to change notification settings - Fork 0
/
package.lisp
29 lines (23 loc) · 760 Bytes
/
package.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(cl:defpackage :cl-graphviz
(:use :common-lisp :cffi :bind)
(:nicknames :graphviz)
(:documentation "CL-GraphViz is a CFFI binding for GraphViz.")
(:export
#:*graphviz-foreign-library-directories*
#:layout-dot-format
#:edge-between
#:node-name
#:node-coordinate
#:node-size
#:graph-bounding-box
#:iterate-edge-beziers
#:bezier-points))
(in-package :cl-graphviz)
(defvar *graphviz-foreign-library-directories* (list "/usr/lib/graphviz/" "/usr/lib/"))
(define-foreign-library libgvc
(:unix (:or "libgvc.so.6" "libgvc32.so.6"))
(:darwin "libgvc.so")
(:windows ("libgvc.dll" "msvcrt.dll"))
(t "libgvc"))
(let ((*foreign-library-directories* *graphviz-foreign-library-directories*))
(load-foreign-library 'libgvc))