blob: 45649f22629fdc17a54a553ee9813cedcd61efb4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
;;
;; 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")
)
(define-boxed PropsEntry
(in-module "Gst")
(c-name "GstPropsEntry")
(gtype-id "GST_TYPE_PROPS_ENTRY")
)
;;
;; Accelerate common GstBin iterate loop
;;
(define-function iterate_bin_all
(c-name "iterate_bin_all")
(return-type "none")
(parameters
'("GstBin*" "bin")
)
)
(define-function add_iterate_bin
(c-name "add_iterate_bin")
(return-type "guint")
(parameters
'("GstBin*" "bin")
)
)
(define-function remove_iterate_bin
(c-name "remove_iterate_bin")
(return-type "none")
(parameters
'("guint" "id")
)
)
;;
;; 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")
)
)
|
