changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/ffi/gstreamer/pkg.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 ;;; pkg.lisp --- GStreamer FFI
     2 
     3 ;; 
     4 
     5 ;;; Code:
     6 (defpackage :gstreamer
     7   (:nicknames :gst)
     8   (:use :cl :std :sb-alien)
     9   (:import-from :glib :gmainloop :gmaincontext
    10    :gerror :g-main-loop-new :goptiongroup :ginitially-unowned
    11    :gmutex :gpointer :glist :grec-mutex
    12    :gtype :gquark :gtype-interface :gcond
    13    :gthread :gdestroy-notify :ghook-list)
    14   (:export :gst-version-string :gst-version :gst-init
    15    :gst-init-check :gst-deinit :gst-is-initialized :gst-element-factory-make
    16    :gst-element-set-state))
    17 
    18 (in-package :gstreamer)
    19 
    20 ;; (load-glib)
    21 
    22 (define-alien-loader gstreamer t "/usr/lib/" "gstreamer-1.0")
    23 ;; (load-gstreamer)
    24 
    25 (define-alien-routine gst-version void (major (* unsigned)) (minor (* unsigned)) (micro (* unsigned)) (nano (* unsigned)))
    26 
    27 (define-alien-routine gst-version-string c-string)
    28 
    29 (define-alien-routine gst-segtrap-is-enabled boolean)
    30 (define-alien-routine gst-segtrap-set-enabled void (enabled boolean))
    31 (define-alien-routine gst-registry-fork-is-enabled boolean)
    32 (define-alien-routine gst-registry-fork-set-enabled void (enabled boolean))
    33 
    34 (define-alien-routine gst-update-registry boolean)
    35 
    36 (define-alien-routine gst-get-main-executable-path c-string)
    37 
    38 (define-alien-routine gst-init void (argc (* int)) (argv (array c-string)))
    39 (define-alien-routine gst-init-check void
    40   (argc (* int)) (argv (array c-string))
    41   (error (* (* gerror))))
    42 
    43 (define-alien-routine gst-is-initialized boolean)
    44 
    45 (define-alien-routine gst-init-get-option-group (* goptiongroup))
    46 
    47 (define-alien-routine gst-deinit void)
    48 
    49 (defconstant +gst-padding+ 4)
    50 
    51 ;; (with-alien ((loop (* gmainloop)))
    52 ;;   (g-main-loop-new loop nil))
    53