;;; Some initialization and common code

(defpackage :libdbus
  (:use :common-lisp :cffi)
  (:documentation "A low-level binding for the DBus IPC system."))
  
(in-package :libdbus)

; For libdbus from MacPorts
(push #p"/opt/local/lib/" *foreign-library-directories*)

(define-foreign-library libdbusa
  (:darwin "libdbus-1.dylib")
  (:unix (:or "libdbus-1.so.0" "libdbus.so"))
  (t (:default "libdbus")))
  
(use-foreign-library libdbusa)

(export '(dbus-bool))

(defctype dbus-bool (:boolean :uint32))