changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 698: 96958d3eb5b0
parent: 5540a3e32ba1
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; task.lisp --- GStreamer FFI Tasks
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :gstreamer)
     7 
     8 (eval-always
     9   (define-opaque gst-task)
    10   (define-opaque gst-task-private)
    11   (define-opaque gst-task-class))
    12 
    13 (define-alien-enum (gst-task-state int)
    14                    :started 0
    15                    :stopped 1
    16                    :paused 2)
    17 
    18 (define-alien-type gst-task-thread-func (* t))
    19 
    20 (define-alien-type gst-task-t
    21   (struct gst-task
    22           (object gst-object-t)
    23           (state gst-task-state)
    24           (cond gcond)
    25           (lock (* grec-mutex))
    26           (func gst-task-thread-func)
    27           (user-data gpointer)
    28           (notify gdestroy-notify)
    29           (running boolean)
    30           (thread (* gthread))
    31           (priv (* gst-task-private))
    32           (%gst-reserved (array gpointer #.+gst-padding+))))