changeset 698: | 96958d3eb5b0 |
parent: | dc4dfb4d71d0 |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Fri, 04 Oct 2024 22:04:59 -0400 |
permissions: | -rw-r--r-- |
description: | fixes |
494
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
1 | ;;; element-factory.lisp --- Gstreamer FFI Element Factories |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
2 | |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
3 | ;; |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
4 | |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
5 | ;;; Code: |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
6 | (in-package :gstreamer) |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
7 | |
501 | 8 | (eval-always |
9 | (define-opaque gst-element-factory)) |
|
10 | (define-alien-type gst-element-factory-t (struct gst-element-factory)) |
|
494
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
11 | |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
12 | (define-alien-routine gst-element-factory-get-type gtype) |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
13 | (define-alien-routine gst-element-factory-find (* gst-element-factory) (name c-string)) |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
14 | (define-alien-routine gst-element-factory-make (* gst-element) |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
15 | (factory (* gst-element-factory)) |
16fe3cdae1e2
gst and krypt work, added obj/secret
Richard Westhaver <ellis@rwest.io>
parents:
diff
changeset
|
16 | (name c-string)) |