sane.asd

   1 ;;; -*- Mode: asdf -*-
   2
   3 (defpackage :sane-asdf
   4   (:use :cl :asdf :asdf/run-program))
   5 (in-package :sane-asdf)
   6
   7 (defclass swig-generated-source (cl-source-file)
   8   ())
   9
  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))))
  16                  :wait t)))
  17
  18 (defsystem sane
  19   :author "Rupert Swarbrick <rswarbrick@gmail.com>"
  20   :licence "GPLv3"
  21   :description "Lispy library bindings for sane."
  22   :components ((:file "package")
  23
  24                (:module "swig"
  25                         :components ((:swig-generated-source "sane-lowlevel"))
  26                         :depends-on ("package"))
  27
  28                (:module "src"
  29                         :components
  30                         ((:file "devices")
  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"))
  36                          (:file "utilities"))
  37
  38                         :depends-on ("package" "swig")))
  39
  40   :depends-on (:iterate :cffi :trivial-gray-streams))