;;; Shared constants for the DBus bindings

(in-package :libdbus)

(export '(+dbus-service-dbus+
          +dbus-path-dbus+
          +dbus-path-local+
          +dbus-interface-dbus+
          +dbus-interface-introspecable+
          +dbus-interface-properties+
          +dbus-interface-peer+
          +dbus-interface-local+
          +dbus-name-flag-allow-replacement+
          +dbus-name-flag-replace-existing+
          +dbus-name-flag-do-not-queue+
          +dbus-request-name-reply-primary-owner+
          +dbus-request-name-reply-in-queue+
          +dbus-request-name-reply-exists+
          +dbus-request-name-reply-already-owner+
          +dbus-release-name-reply-released+
          +dbus-release-name-reply-non-existant+
          +dbus-release-name-reply-not-owner+
          +dbus-start-reply-success+
          +dbus-start-reply-already-running+
          dbus-bus-type
          dbus-handler-result))

(defmacro define-constant (name value &optional doc)
       `(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
                           ,@(when doc (list doc))))

(define-constant +dbus-service-dbus+ "org.freedesktop.DBus"
  "The bus name used to talk to the bus itself.")

(define-constant +dbus-path-dbus+ "/org/freedesktop/DBus"
  "The object path used to talk to the bus itself.")
  
(define-constant +dbus-path-local+ "/org/freedesktop/DBus/Local"
  "The object path used in local/in-process-generated messages.")
  
(define-constant +dbus-interface-dbus+ "org.freedesktop.DBus"
  "The interface exported by the object with +dbus-service-dbus+ and +dbus-path-dbus+.")
  
(define-constant +dbus-interface-introspecable+ "org.freedesktop.DBus.Introspectable"
  "The interface supported by introspectable objects.")
  
(define-constant +dbus-interface-properties+ "org.freedesktop.DBus.Properties"
  "The interface supported by objects with properties.")
  
(define-constant +dbus-interface-peer+ "org.freedesktop.DBus.Peer"
  "The interface supported by most dbus peers.")
  
(define-constant +dbus-interface-local+ "org.freedesktop.DBus.Local"
  "This is a special interface whose methods can only be invoked by the local implementation (messages from remote apps aren't allowed to specify this interface). ")
  
(define-constant +dbus-name-flag-allow-replacement+ 1
  "Allow another service to become the primary owner if requested.")
  
(define-constant +dbus-name-flag-replace-existing+ 2
  "Request to replace the current primary owner.")

(define-constant +dbus-name-flag-do-not-queue+ 4
  "If we can not become the primary owner do not place us in the queue.")
  
(define-constant +dbus-request-name-reply-primary-owner+ 1
  "Service has become the primary owner of the requested name.")
  
(define-constant +dbus-request-name-reply-in-queue+ 2
  "Service could not become the primary owner and has been placed in the queue. ")
  
(define-constant +dbus-request-name-reply-exists+ 3
  "Service is already in the queue.")
  
(define-constant +dbus-request-name-reply-already-owner+ 4
  "Service is already the primary owner.")
  
(define-constant +dbus-release-name-reply-released+ 1
  "Service was released from the given name.")
  
(define-constant +dbus-release-name-reply-non-existant+ 2
  "The given name does not exist on the bus.")
  
(define-constant +dbus-release-name-reply-not-owner+ 3
  "Service is not an owner of the given name.")
  
(define-constant +dbus-start-reply-success+ 1
  "Service was auto started.")
  
(define-constant +dbus-start-reply-already-running+ 2
  "Service was already running.")
  
(defcenum dbus-bus-type
  :DBUS_BUS_SESSION
  :DBUS_BUS_SYSTEM
  :DBUS_BUS_STARTER)
  
(defcenum dbus-handler-result
  :DBUS_HANDLER_RESULT_HANDLED
  :DBUS_HANDLER_RESULT_NOT_YET_HANDLED
  :DBUS_HANDLER_RESULT_NEED_MEMORY)