;;; object.lisp --- Gstreamer FFI Objects

 ;; 

 ;;; Code:

 (in-package :gstreamer)

 (eval-always

   (define-opaque gst-object))

 (define-alien-enum (gst-object-flags int)

                    :may-be-leaked (ash 1 0)

                    :constructed (ash 1 1)

                    :last (ash 1 4))

 (define-alien-type gst-object-t

   (struct gst-object

           (object ginitially-unowned)

           (lock gmutex)

           (name c-string)

           (parent (* gst-object))

           (flags (unsigned 32))

           (control-bindings (* glist))

           (control-rate (unsigned 64))

           (last-sync (unsigned 64))

           (%gst-reserved gpointer)))

 (define-opaque gst-object-class)

 (define-alien-routine gst-object-ref gpointer (object gpointer))

 (define-alien-routine gst-object-unref void (object gpointer))

 (define-alien-routine gst-clear-object void (* (* gst-object)))

 (define-alien-routine gst-object-ref-sink gpointer (object gpointer))

 (define-alien-routine gst-object-replace boolean (old (* (* gst-object))) (new (* gst-object)))

 (define-alien-routine gst-object-get-path-string c-string (object (* gst-object)))

 (define-alien-routine gst-object-check-uniqueness boolean (list (* glist)) (name c-string))