changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/ffi/gstreamer/object.lisp

changeset 698: 96958d3eb5b0
parent: 16fe3cdae1e2
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; object.lisp --- Gstreamer FFI Objects
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :gstreamer)
     7 
     8 (eval-always
     9   (define-opaque gst-object))
    10 
    11 (define-alien-enum (gst-object-flags int)
    12                    :may-be-leaked (ash 1 0)
    13                    :constructed (ash 1 1)
    14                    :last (ash 1 4))
    15 
    16 (define-alien-type gst-object-t
    17   (struct gst-object
    18           (object ginitially-unowned)
    19           (lock gmutex)
    20           (name c-string)
    21           (parent (* gst-object))
    22           (flags (unsigned 32))
    23           (control-bindings (* glist))
    24           (control-rate (unsigned 64))
    25           (last-sync (unsigned 64))
    26           (%gst-reserved gpointer)))
    27 
    28 (define-opaque gst-object-class)
    29 
    30 (define-alien-routine gst-object-ref gpointer (object gpointer))
    31 (define-alien-routine gst-object-unref void (object gpointer))
    32 (define-alien-routine gst-clear-object void (* (* gst-object)))
    33 (define-alien-routine gst-object-ref-sink gpointer (object gpointer))
    34 (define-alien-routine gst-object-replace boolean (old (* (* gst-object))) (new (* gst-object)))
    35 (define-alien-routine gst-object-get-path-string c-string (object (* gst-object)))
    36 (define-alien-routine gst-object-check-uniqueness boolean (list (* glist)) (name c-string))
    37