4 (:use :cl :asdf :asdf/run-program))
5 (in-package :sane-asdf)
7 (defclass swig-generated-source (cl-source-file)
10 (defmethod perform :before ((operation compile-op) (s swig-generated-source))
11 (let ((asdf::*verbose-out* *standard-output*))
12 (run-program (list "swig" "-cffi"
13 (namestring (merge-pathnames
14 (make-pathname :type "i")
15 (component-pathname s))))
19 :author "Rupert Swarbrick <rswarbrick@gmail.com>"
21 :description "Lispy library bindings for sane."
22 :components ((:file "package")
25 :components ((:swig-generated-source "sane-lowlevel"))
26 :depends-on ("package"))
31 (:file "library" :depends-on ("utilities"))
32 (:file "options" :depends-on ("devices"))
33 (:file "parameters" :depends-on ("devices"))
34 (:file "read" :depends-on ("devices" "utilities"))
35 (:file "debug" :depends-on ("devices"))
38 :depends-on ("package" "swig")))
40 :depends-on (:iterate :cffi :trivial-gray-streams))