sane.asd

   1 ;;; -*- Mode: asdf -*-
   2
   3 (defpackage :sane-asdf
   4   (:use :cl :asdf))
   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-shell-command "swig -cffi ~A.i"
  13                        (merge-pathnames (asdf::component-parent-pathname s)
  14                                         (component-name s)))))
  15
  16 (defsystem sane
  17   :author "Rupert Swarbrick <rswarbrick@gmail.com>"
  18   :licence "GPLv3"
  19   :description "Lispy library bindings for sane."
  20   :components ((:module "package" :components ((:file "package")))
  21
  22                (:module "swig"
  23                         :components ((:swig-generated-source "sane-lowlevel"))
  24                         :depends-on ("package"))
  25
  26                (:module "lowlevel"
  27                         :components ((:file "lowlevel"))
  28                         :depends-on ("package"))
  29
  30                (:module "sane"
  31
  32                         :components
  33                         ((:file "devices")
  34                          (:file "library")
  35                          (:file "options" :depends-on ("devices"))
  36                          (:file "parameters" :depends-on ("devices"))
  37                          (:file "read" :depends-on ("devices"))
  38                          (:file "debug" :depends-on ("devices")))
  39
  40                         :depends-on ("package" "swig" "lowlevel")))
  41
  42   :depends-on (:iterate :cffi :trivial-gray-streams))