mirror of
https://gitlab.freedesktop.org/gstreamer/gstreamer.git
synced 2024-11-27 20:21:24 +00:00
a8a9c7e9d5
Original commit message from CVS: add boxed types adapt to boxed types remove obsoleted code
52 lines
786 B
Text
52 lines
786 B
Text
;;
|
|
;; Boxed types
|
|
;;
|
|
|
|
(define-boxed Buffer
|
|
(in-module "Gst")
|
|
(c-name "GstBuffer")
|
|
(gtype-id "GST_TYPE_BUFFER")
|
|
)
|
|
|
|
(define-boxed BufferPool
|
|
(in-module "Gst")
|
|
(c-name "GstBufferPool")
|
|
(gtype-id "GST_TYPE_BUFFER_POOL")
|
|
)
|
|
|
|
(define-boxed Caps
|
|
(in-module "Gst")
|
|
(c-name "GstCaps")
|
|
(gtype-id "GST_TYPE_CAPS")
|
|
)
|
|
|
|
(define-boxed Event
|
|
(in-module "Gst")
|
|
(c-name "GstEvent")
|
|
(gtype-id "GST_TYPE_EVENT")
|
|
)
|
|
|
|
(define-boxed Props
|
|
(in-module "Gst")
|
|
(c-name "GstProps")
|
|
(gtype-id "GST_TYPE_PROPS")
|
|
)
|
|
|
|
;;
|
|
;; HACK
|
|
;;
|
|
|
|
(define-method get_data
|
|
(of-object "GstBuffer")
|
|
(c-name "gst_buffer_get_data")
|
|
(return-type "char*")
|
|
)
|
|
|
|
(define-method set_data
|
|
(of-object "GstBuffer")
|
|
(c-name "gst_buffer_set_data")
|
|
(return-type "none")
|
|
(parameters
|
|
'("char*" "data")
|
|
)
|
|
)
|