Coverage report: /home/ellis/comp/core/ffi/gstreamer/mini-object.lisp

Kind	Covered	All	%
expression	0	9	0.0
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; mini-object.lisp --- GStreamer FFI MiniObjects

2

3

;;

4

5

;;; Code:

6

(in-package :gstreamer)

7

8

(define-alien-type gst-mini-object-copy-function (* t))

9

(define-alien-type gst-mini-object-dispose-function (* t))

10

(define-alien-type gst-mini-object-free-function (* t))

11

12

(define-alien-type gst-mini-object

13

(struct gst-mini-object

14

(type gtype)

15

(lockstate int)

16

(flags unsigned-int)

17

(copy gst-mini-object-copy-function)

18

(dispose gst-mini-object-dispose-function)

19

(free gst-mini-object-free-function)

20

(priv-uint unsigned-int)

21

(priv-pointer gpointer)))

22

23

(define-alien-enum (gst-mini-object-flags int)

24

:lockable (ash 1 0)

25

:lock-readonly (ash 1 1)

26

:may-be-leaked (ash 1 2)

27

:last (ash 1 4))

28

29

(defar gst-mini-object-init void

30

(mini-object (* gst-mini-object))

31

(flags unsigned-int)

32

(type gtype)

33

(copy-func gst-mini-object-copy-function)

34

(dispose-func gst-mini-object-dispose-function)

35

(free-func gst-mini-object-free-function))

36

37

(defar gst-mini-object-ref (* gst-mini-object)

38

(mini-object (* gst-mini-object)))

39

40

(defar gst-mini-object-unref void

41

(mini-object (* gst-mini-object)))