Coverage report: /home/ellis/comp/core/ffi/gstreamer/pad.lisp

KindCoveredAll%
expression017 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; pad.lisp --- Gstreamer FFI Pads
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :gstreamer)
7
 
8
 (define-alien-type gst-pad-private (* t))
9
 
10
 (define-alien-enum (gst-pad-presence int)
11
                    :always 0
12
                    :sometimes 1
13
                    :request 2)
14
 
15
 (define-alien-enum (gst-pad-template-flags int)
16
                    :last (ash (gst-object-flags :last) 4))
17
 
18
 (define-alien-enum (gst-pad-direction int)
19
                    :unknown 0
20
                    :src 1
21
                    :sink 2)
22
 
23
 (define-alien-enum (gst-pad-mode int)
24
                    :none 0
25
                    :push 1
26
                    :pull 2)
27
 
28
 (define-alien-type gst-pad-template
29
   (struct gst-pad-template
30
           (object gst-object)
31
           (name-template c-string)
32
           (direction gst-pad-direction)
33
           (presence gst-pad-presence)
34
           (caps (* gst-caps))
35
           (abi (array gpointer #.+gst-padding+))))
36
 
37
 (define-alien-type gst-pad-activate-function (* t))
38
 (define-alien-type gst-pad-activate-mode-function (* t))
39
 (define-alien-type gst-pad-link-function (* t))
40
 (define-alien-type gst-pad-unlink-function (* t))
41
 (define-alien-type gst-pad-chain-function (* t))
42
 (define-alien-type gst-pad-chain-list-function (* t))
43
 (define-alien-type gst-pad-event-function (* t))
44
 (define-alien-type gst-pad-query-function (* t))
45
 (define-alien-type gst-pad-iter-int-link-function (* t))
46
 
47
 (define-alien-type gst-pad
48
   (struct gst-pad
49
           (object gst-object)
50
           (element-private gpointer)
51
           (padtemplate (* gst-pad-template))
52
           (direction gst-pad-direction)
53
           (stream-rec-lock grec-mutex)
54
           (task (* gst-task))
55
           (block-cond gcond)
56
           (probes ghook-list)
57
           (mode gst-pad-mode)
58
           (activatefun gst-pad-activate-function)
59
           (activatedata gpointer)
60
           (activatenotify gdestroy-notify)
61
           (activatemodefunc gst-pad-activate-mode-function)
62
           (activatemodenotify gdestroy-notify)
63
           ;; (* gst-pad)
64
           (peer (* t))
65
           (linkfunc gst-pad-link-function)
66
           (linkdata gpointer)
67
           (linknotify gdestroy-notify)
68
           (unlinkfunc gst-pad-unlink-function)
69
           (unlinkdata gpointer)
70
           (unlinknotify gdestroy-notify)
71
           (chainfunc gst-pad-chain-function)
72
           (chaindata gpointer)
73
           (chainnotify gdestroy-notify)
74
           (chainlistfunc gst-pad-chain-list-function)
75
           (chainlistdata gpointer)
76
           (chainlistnotify gdestroy-notify)
77
           (getrangedata gpointer)
78
           (getrangenotify gdestroy-notify)
79
           (eventfunc gst-pad-event-function)
80
           (eventdata gpointer)
81
           (eventnotify gdestroy-notify)
82
           (offset (signed 64))
83
           (queryfunc gst-pad-query-function)
84
           (querydata gpointer)
85
           (querynotify gdestroy-notify)
86
           (iterintlinkfunc gst-pad-iter-int-link-function)
87
           (iterintlinkdata gpointer)
88
           (iterintlinknotify gdestroy-notify)
89
           (num-probes int)
90
           (num-blocked int)
91
           (priv (* gst-pad-private))
92
           (abi gpointer)))