changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 698: 96958d3eb5b0
parent: 52a5ffbba7ac
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; mini-object.lisp --- GStreamer FFI MiniObjects
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :gstreamer)
     7 
     8 (eval-always
     9   (define-opaque gst-mini-object))
    10 
    11 (define-alien-type gst-mini-object-copy-function (* t))
    12 (define-alien-type gst-mini-object-dispose-function (* t))
    13 (define-alien-type gst-mini-object-free-function (* t))
    14 
    15 (define-alien-enum (gst-mini-object-flags int)
    16                    :lockable (ash 1 0)
    17                    :lock-readonly (ash 1 1)
    18                    :may-be-leaked (ash 1 2)
    19                    :last (ash 1 4))
    20 
    21 (define-alien-type gst-mini-object-t
    22   (struct gst-mini-object
    23           (type gtype)
    24           (refcount int)
    25           (lockstate int)
    26           (flags unsigned-int)
    27           (copy gst-mini-object-copy-function)
    28           (dispose gst-mini-object-dispose-function)
    29           (free gst-mini-object-free-function)
    30           (priv-uint unsigned-int)
    31           (priv-pointer gpointer)))