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

KindCoveredAll%
expression118 5.6
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
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
            :load-gstreamer :load-gst-play
16
    :gst-init-check :gst-deinit :gst-is-initialized :gst-element-factory-make
17
    :gst-element-set-state
18
    :gst-object-class
19
    :gst-object
20
    :gst-bus-private
21
    :gst-bus
22
    :gst-bus-class
23
    :gst-element
24
    :gst-element-class
25
    :gst-bin-private
26
    :gst-bin
27
    :gst-bin-class
28
    :gst-clock-private
29
    :gst-pad
30
    :gst-pad-template
31
    :gst-play
32
    :gst-play-class
33
    :gst-play-signal-adapter
34
    :gst-play-signal-adapter-class
35
    :gst-play-video-renderer
36
    :gst-play-video-renderer-interface
37
    :gst-caps
38
    :gst-mini-object
39
    :gst-task
40
    :gst-task-private
41
    :gst-task-class
42
    :gst-iterator
43
    :gst-element-factory
44
    :gst-element-factory-find
45
    :gst-element-factory-get-type
46
    :gst-element-factory-create
47
    :gst-object-unref
48
    :gst-object-ref
49
    :gst-object-get-path-string
50
    :gst-object-check-uniqueness
51
    :gst-object-replace
52
    :gst-object-ref-sink
53
    :gst-object-flags
54
    :gst-play-state
55
    :gst-play-state-get-name
56
    :gst-play-message
57
    :gst-play-message-get-name
58
    :gst-play-get-type
59
    :gst-play-new
60
    :gst-play-error
61
    :gst-state
62
    :gst-pipeline
63
    :gst-pipeline-new
64
    :gst-pipeline-get-bus
65
    :gst-pipeline-get-type
66
    :gst-parse-launch
67
    :gst-element-set-bus
68
    :gst-element-get-bus
69
    :gst-element-set-context
70
    :gst-element-get-context
71
    :gst-element-get-state
72
    :load-ges
73
    :ges-init
74
    :ges-init-check
75
    :ges-is-initialized
76
    :ges-deinit
77
    :gst-message-type
78
    :gst-message
79
    :gst-message-type-get-name
80
    :gst-message-get-type
81
    :gst-message-ref
82
    :gst-message-unref
83
    :gst-clock-time
84
    :gst-message-code
85
    :gst-task-state
86
    :gst-bus-timed-pop-filtered
87
    :gst-state-change-return
88
    :gst-state-change-return*
89
    :with-gst-init))
90
 
91
 (in-package :gstreamer)
92
 
93
 ;; (load-glib)
94
 
95
 (define-alien-loader gstreamer "/usr/lib/" "gstreamer-1.0")
96
 (define-alien-loader ges "/usr/lib/" "ges-1.0")
97
 ;; (load-gstreamer)
98
 ;; (load-ges)
99
 
100
 (defar gst-version void (major (* unsigned)) (minor (* unsigned)) (micro (* unsigned)) (nano (* unsigned)))
101
 
102
 (defar gst-version-string c-string)
103
 
104
 (defar gst-segtrap-is-enabled boolean)
105
 (defar gst-segtrap-set-enabled void (enabled boolean))
106
 (defar gst-registry-fork-is-enabled boolean)
107
 (defar gst-registry-fork-set-enabled void (enabled boolean))
108
 
109
 (defar gst-update-registry boolean)
110
 
111
 (defar gst-get-main-executable-path c-string)
112
 
113
 (defar gst-init void (argc (* int)) (argv (* (* c-string))))
114
 (defar gst-init-check void
115
   (argc (* int)) (argv (* (* c-string)))
116
   (error (* (* gerror))))
117
 
118
 (defar gst-is-initialized boolean)
119
 
120
 (defar gst-init-get-option-group (* goptiongroup))
121
 
122
 (defar gst-deinit void)
123
 
124
 (defconstant +gst-padding+ 4)
125
 
126
 ;; (with-alien ((loop (* gmainloop)))
127
 ;;   (g-main-loop-new loop nil))