changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 698: 96958d3eb5b0
parent: 2ce4891d0661
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; play.lisp --- Gstreamer FFI Play API
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (in-package :gstreamer)
     7 
     8 (define-alien-loader gst-play t "/usr/lib/" "gstplay-1.0")
     9 
    10 (eval-always
    11   (define-opaque gst-play)
    12   (define-opaque gst-play-class)
    13   (define-opaque gst-play-signal-adapter)
    14   (define-opaque gst-play-signal-adapter-class)
    15   (define-opaque gst-play-video-renderer)
    16   (define-opaque gst-play-video-renderer-interface))
    17 
    18 (define-alien-type gst-play-video-renderer-interface-t
    19   (struct gst-play-video-renderer-interface
    20           (parent-iface gtype-interface)
    21           (gst-element (* t))))
    22 
    23 (define-alien-routine gst-play-state-get-type gtype)
    24 
    25 (define-alien-routine gst-play-error-quark gquark)
    26 ;; (gst-play-state-get-type)
    27 (define-alien-routine gst-play-error-get-type gtype)
    28 
    29 (define-alien-enum (gst-play-error int)
    30                    :failed 0)
    31 
    32 (define-alien-routine gst-play-error-get-name c-string (error gst-play-error))
    33 
    34 (define-alien-enum (gst-play-state int)
    35                    :stopped 0
    36                    :buffering 1
    37                    :paused 2
    38                    :playing 3)
    39 
    40 (define-alien-routine gst-play-state-get-name c-string (state gst-play-state))
    41 
    42 (define-alien-enum (gst-play-message int)
    43                    :uri-loaded 0
    44                    :position-updated 1
    45                    :duration-changed 2
    46                    :state-changed 3
    47                    :buffering 4
    48                    :end-of-stream 5
    49                    :error 6
    50                    :warning 7
    51                    :video-dimensions-changed 8
    52                    :media-info-updated 9
    53                    :volume-changed 10
    54                    :mute-changed 11
    55                    :seek-done 12)
    56 
    57 (define-alien-routine gst-play-message-get-name c-string (message-type gst-play-message))
    58 
    59 (define-alien-routine gst-play-get-type gtype)
    60 
    61 (define-alien-routine gst-play-new (* gst-play) (video-renderer (* gst-play-video-renderer)))
    62