package.lisp

   1 (defpackage
   2     sane-lowlevel
   3   (:use cl cffi)
   4   (:export :ensure-ok))
   5
   6 (defpackage
   7     sane
   8   (:use cl iterate cffi sane-lowlevel trivial-gray-streams)
   9   (:export
  10    ;; Library
  11    :with-init
  12    :sane-ref :sane-unref
  13    ;; Device
  14    :devices
  15    :name :vendor :model :device-type :device-option
  16    :with-device
  17    ;; Option getters
  18    :get-name :get-title :get-description :get-device
  19    :get-capabilities :get-constraint
  20    ;; Constraints
  21    :get-min :get-step :get-max :get-list
  22    ;; Main option functions
  23    :option-value-readable-p
  24    :option :option-value
  25    ;; And option debugging
  26    :dump-option-list
  27    ;; Reading
  28    :with-open-scanner-stream :parameters :device))
  29
  30 (in-package :sane)
  31
  32 (define-foreign-library libsane
  33     (:unix (:or "libsane.so.1" "libsane.so"))
  34     (t (:default "libsane")))
  35 (use-foreign-library libsane)